C++ (Cpp) AtomInstallの例

コード例 #1

ファイル: evaluatn.c プロジェクト: chrislong/clipsrules

globle void ValueInstall(
  void *theEnv,
  DATA_OBJECT *vPtr)
  {
   if (vPtr->type == MULTIFIELD) MultifieldInstall(theEnv,(struct multifield *) vPtr->value);
   else AtomInstall(theEnv,vPtr->type,vPtr->value);
  }

コード例 #2

ファイル: expressn.c プロジェクト: ahmed-masud/FuzzyCLIPS

globle void ExpressionInstall(
  struct expr *expression)
  {
   if (expression == NULL) return;

   while (expression != NULL)
     {
      AtomInstall(expression->type,expression->value);
      ExpressionInstall(expression->argList);
      expression = expression->nextArg;
     }
  }

コード例 #3

ファイル: factmngr.c プロジェクト: OS2World/DEV-LISP-Clips

globle void IncrementFactBasisCount(
  void *vFactPtr)
  {
   struct fact *factPtr = (struct fact *) vFactPtr;
   struct multifield *theSegment;
   int i;

   IncrementFactCount(factPtr);

   theSegment = &factPtr->theProposition;

   for (i = 0 ; i < (int) theSegment->multifieldLength ; i++)
     {
      AtomInstall(theSegment->theFields[i].type,theSegment->theFields[i].value);
     }
  }

コード例 #4

ファイル: multifld.c プロジェクト: OS2World/DEV-LISP-Clips

globle void MultifieldInstall(
  struct multifield *theSegment)
  {
   long length, i; /* 6.04 Bug Fix */
   struct field *theFields;

   if (theSegment == NULL) return;

   length = theSegment->multifieldLength;

   theSegment->busyCount++;
   theFields = theSegment->theFields;

   for (i = 0 ; i < length ; i++)
     { AtomInstall(theFields[i].type,theFields[i].value); }
  }

コード例 #5

ファイル: factmngr.c プロジェクト: OS2World/DEV-LISP-Clips

globle void FactInstall(
  struct fact *newFact)
  {
   struct multifield *theSegment;
   int i;

   NumberOfFacts++;
   newFact->whichDeftemplate->busyCount++;
   theSegment = &newFact->theProposition;

   for (i = 0 ; i < (int) theSegment->multifieldLength ; i++)
     {
      AtomInstall(theSegment->theFields[i].type,theSegment->theFields[i].value);
     }

   newFact->factHeader.busyCount++;
  }

コード例 #6

ファイル: multifld.c プロジェクト: DrItanium/durandal

globle void MultifieldInstall(
  void *theEnv,
  struct multifield *theSegment)
  {
   unsigned long length, i;
   struct field *theFields;

   if (theSegment == NULL) return;

   length = theSegment->multifieldLength;

   theSegment->busyCount++;
   theFields = theSegment->theFields;

   for (i = 0 ; i < length ; i++)
     { AtomInstall(theEnv,theFields[i].type,theFields[i].value); }
  }