globle long long TimetagFunction( void *theEnv) { DATA_OBJECT item; void *ptr; if (EnvArgCountCheck(theEnv,"timetag",EXACTLY,1) == -1) return(-1LL); ptr = GetFactOrInstanceArgument(theEnv,1,&item,"timetag"); if (ptr == NULL) return(-1); return ((struct patternEntity *) ptr)->timeTag; }
globle void DependentsCommand( void *theEnv) { DATA_OBJECT item; void *ptr; if (EnvArgCountCheck(theEnv,"dependents",EXACTLY,1) == -1) return; ptr = GetFactOrInstanceArgument(theEnv,1,&item,"dependents"); if (ptr == NULL) return; #if DEFRULE_CONSTRUCT Dependents(theEnv,(struct patternEntity *) ptr); #else EnvPrintRouter(theEnv,WDISPLAY,"None\n"); #endif }
void DependentsCommand( Environment *theEnv, UDFContext *context, UDFValue *returnValue) { UDFValue item; void *ptr; ptr = GetFactOrInstanceArgument(context,1,&item); if (ptr == NULL) return; #if DEFRULE_CONSTRUCT Dependents(theEnv,(struct patternEntity *) ptr); #else WriteString(theEnv,STDOUT,"None\n"); #endif }