C++ (Cpp) EnvDefineFunction Examples

Example #1

File: factcom.c Project: yang-neu/brms_src

globle void FactCommandDefinitions(
  void *theEnv)
  {
#if ! RUN_TIME
#if DEBUGGING_FUNCTIONS
   EnvDefineFunction2(theEnv,"facts", 'v', PTIEF FactsCommand,        "FactsCommand", "*4iu");
#endif

   //madianyi Begin
   EnvDefineFunction(theEnv,"update", 'u', PTIEF UpdateCommand,  "UpdateCommand");
   //madianyi End

   EnvDefineFunction(theEnv,"assert", 'u', PTIEF AssertCommand,  "AssertCommand");
   EnvDefineFunction2(theEnv,"retract", 'v', PTIEF RetractCommand, "RetractCommand","1*z");
   EnvDefineFunction2(theEnv,"assert-string", 'u', PTIEF AssertStringFunction,   "AssertStringFunction", "11s");
   EnvDefineFunction2(theEnv,"str-assert", 'u', PTIEF AssertStringFunction,   "AssertStringFunction", "11s");

   EnvDefineFunction2(theEnv,"get-fact-duplication",'b',
                   GetFactDuplicationCommand,"GetFactDuplicationCommand", "00");
   EnvDefineFunction2(theEnv,"set-fact-duplication",'b',
                   SetFactDuplicationCommand,"SetFactDuplicationCommand", "11");

   EnvDefineFunction2(theEnv,"save-facts", 'b', PTIEF SaveFactsCommand, "SaveFactsCommand", "1*wk");
   EnvDefineFunction2(theEnv,"load-facts", 'b', PTIEF LoadFactsCommand, "LoadFactsCommand", "11k");
   EnvDefineFunction2(theEnv,"fact-index", 'g', PTIEF FactIndexFunction,"FactIndexFunction", "11y");

   AddFunctionParser(theEnv,"assert",AssertParse);
   FuncSeqOvlFlags(theEnv,"assert",FALSE,FALSE);
#else
#if MAC_XCD
#pragma unused(theEnv)
#endif
#endif
  }

Example #2

File: factcom.c Project: DrItanium/DROID-CLIPS

globle void FactCommandDefinitions(
  void *theEnv)
  {
#if ! RUN_TIME
#if DEBUGGING_FUNCTIONS
   EnvDefineFunction2(theEnv,(char*)"facts", 'v', PTIEF FactsCommand,        (char*)"FactsCommand", (char*)"*4iu");
#endif

   EnvDefineFunction(theEnv,(char*)"assert", 'u', PTIEF AssertCommand,  (char*)"AssertCommand");
   EnvDefineFunction2(theEnv,(char*)"retract", 'v', PTIEF RetractCommand, (char*)"RetractCommand",(char*)"1*z");
   EnvDefineFunction2(theEnv,(char*)"assert-string", 'u', PTIEF AssertStringFunction,   (char*)"AssertStringFunction", (char*)"11s");
   EnvDefineFunction2(theEnv,(char*)"str-assert", 'u', PTIEF AssertStringFunction,   (char*)"AssertStringFunction", (char*)"11s");

   EnvDefineFunction2(theEnv,(char*)"get-fact-duplication",'b',
                   GetFactDuplicationCommand,(char*)"GetFactDuplicationCommand", (char*)"00");
   EnvDefineFunction2(theEnv,(char*)"set-fact-duplication",'b',
                   SetFactDuplicationCommand,(char*)"SetFactDuplicationCommand", (char*)"11");

   EnvDefineFunction2(theEnv,(char*)"save-facts", 'b', PTIEF SaveFactsCommand, (char*)"SaveFactsCommand", (char*)"1*wk");
   EnvDefineFunction2(theEnv,(char*)"load-facts", 'b', PTIEF LoadFactsCommand, (char*)"LoadFactsCommand", (char*)"11k");
   EnvDefineFunction2(theEnv,(char*)"fact-index", 'g', PTIEF FactIndexFunction,(char*)"FactIndexFunction", (char*)"11y");

   AddFunctionParser(theEnv,(char*)"assert",AssertParse);
   FuncSeqOvlFlags(theEnv,(char*)"assert",FALSE,FALSE);
#else
#if MAC_MCW || WIN_MCW || MAC_XCD
#pragma unused(theEnv)
#endif
#endif
  }

Example #3

File: tmpltfun.c Project: pandaxcl/CLIPS-unicode

globle void DeftemplateFunctions(
  void *theEnv)
  {
#if ! RUN_TIME
   EnvDefineFunction(theEnv,"modify",'u', PTIEF ModifyCommand,"ModifyCommand");
   EnvDefineFunction(theEnv,"duplicate",'u', PTIEF DuplicateCommand,"DuplicateCommand");

#if (! BLOAD_ONLY)
   AddFunctionParser(theEnv,"modify",ModifyParse);
   AddFunctionParser(theEnv,"duplicate",DuplicateParse);
#endif
   FuncSeqOvlFlags(theEnv,"modify",FALSE,FALSE);
   FuncSeqOvlFlags(theEnv,"duplicate",FALSE,FALSE);
#else
#if MAC_MCW || IBM_MCW
#pragma unused(theEnv)
#endif
#endif
  }

Example #4

File: userfunctions.c Project: yang-neu/brms_src

void EnvUserFunctions(
  void *environment)
  {
#if MAC_XCD
#pragma unused(environment)
#endif
	//extern double entryPoint(void *);
//	EnvDefineFunction(environment,"entryPoint",'d',PTIEF entryPoint,"entryPoint");
	//	extern void* entryPoint(void *);
		//	EnvDefineFunction(environment,"entryPoint",'y',PTIEF entryPoint,"entryPoint");
	int i = 0;
	PExt_FuncInfo p;
	
	EnvDefineFunction(environment,"entry-point",'b',PTIEF NewEntryPoint_clips,"NewEntryPoint");
	for ( i=0; i<g_extFuncTable_cnt; i++ )
	{
		p = &g_extFuncTable_clips[i];
		//EnvDefineFunction(environment,"entry-point",'y',PTIEF entry_point,"entry-point");
		EnvDefineFunction(environment,p->name, p->retCode, PTIEF p->pointer, p->name2);
	}

  }