clipsruby 0.0.2

data/ext/clipsruby/cstrcpsr.h

@@ -0,0 +1,97 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  11/13/17            */
+   /*                                                     */
+   /*              CONSTRUCT PARSER MODULE                */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Parsing routines and utilities for parsing       */
+/*   constructs.                                             */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.24: Added environment parameter to GenClose.       */
+/*            Added environment parameter to GenOpen.        */
+/*                                                           */
+/*            Made the construct redefinition message more   */
+/*            prominent.                                     */
+/*                                                           */
+/*            Added pragmas to remove compilation warnings.  */
+/*                                                           */
+/*      6.30: Added code for capturing errors/warnings.      */
+/*                                                           */
+/*            Removed conditional code for unsupported       */
+/*            compilers/operating systems (IBM_MCW, MAC_MCW, */
+/*            and IBM_TBC).                                  */
+/*                                                           */
+/*            Changed garbage collection algorithm.          */
+/*                                                           */
+/*            GetConstructNameAndComment API change.         */
+/*                                                           */
+/*            Added const qualifiers to remove C++           */
+/*            deprecation warnings.                          */
+/*                                                           */
+/*            Fixed linkage issue when BLOAD_ONLY compiler   */
+/*            flag is set to 1.                              */
+/*                                                           */
+/*      6.40: Removed LOCALE definition.                     */
+/*                                                           */
+/*            Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Added support for booleans with <stdbool.h>.   */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*            ALLOW_ENVIRONMENT_GLOBALS no longer supported. */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_cstrcpsr
+
+#pragma once
+
+#define _H_cstrcpsr
+
+#include "strngfun.h"
+
+typedef enum
+  {
+   LE_NO_ERROR = 0,
+   LE_OPEN_FILE_ERROR,
+   LE_PARSING_ERROR,
+  } LoadError;
+
+#if (! RUN_TIME) && (! BLOAD_ONLY)
+   LoadError                      Load(Environment *,const char *);
+   bool                           LoadConstructsFromLogicalName(Environment *,const char *);
+   bool                           LoadFromString(Environment *,const char *,size_t);
+   BuildError                     ParseConstruct(Environment *,const char *,const char *);
+   void                           ImportExportConflictMessage(Environment *,const char *,const char *,
+                                                              const char *,const char *);
+   void                           FlushParsingMessages(Environment *);
+   char                          *GetParsingFileName(Environment *);
+   void                           SetParsingFileName(Environment *,const char *);
+   char                          *GetErrorFileName(Environment *);
+   void                           SetErrorFileName(Environment *,const char *);
+   char                          *GetWarningFileName(Environment *);
+   void                           SetWarningFileName(Environment *,const char *);
+   void                           CreateErrorCaptureRouter(Environment *);
+   void                           DeleteErrorCaptureRouter(Environment *);
+#endif
+
+#endif
+
+
+
+
+
+
+

data/ext/clipsruby/cstrnbin.c

@@ -0,0 +1,282 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.40  12/02/19             */
+   /*                                                     */
+   /*            CONSTRAINT BLOAD/BSAVE MODULE            */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Implements the binary save/load feature for      */
+/*    constraint records.                                    */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*      Brian L. Dantes                                      */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.24: Added allowed-classes slot facet.              */
+/*                                                           */
+/*      6.30: Changed integer type/precision.                */
+/*                                                           */
+/*      6.40: Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Added support for booleans with <stdbool.h>.   */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*************************************************************/
+
+#include "setup.h"
+
+#if (BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE) && (! RUN_TIME)
+
+#include "constant.h"
+#include "envrnmnt.h"
+#include "memalloc.h"
+#include "prntutil.h"
+#include "router.h"
+#include "bload.h"
+
+#if BLOAD_AND_BSAVE
+#include "bsave.h"
+#endif
+
+#include "cstrnbin.h"
+
+/*******************/
+/* DATA STRUCTURES */
+/*******************/
+
+struct bsaveConstraintRecord
+  {
+   unsigned int anyAllowed : 1;
+   unsigned int symbolsAllowed : 1;
+   unsigned int stringsAllowed : 1;
+   unsigned int floatsAllowed : 1;
+   unsigned int integersAllowed : 1;
+   unsigned int instanceNamesAllowed : 1;
+   unsigned int instanceAddressesAllowed : 1;
+   unsigned int externalAddressesAllowed : 1;
+   unsigned int factAddressesAllowed : 1;
+   unsigned int anyRestriction : 1;
+   unsigned int symbolRestriction : 1;
+   unsigned int stringRestriction : 1;
+   unsigned int numberRestriction : 1;
+   unsigned int floatRestriction : 1;
+   unsigned int integerRestriction : 1;
+   unsigned int classRestriction : 1;
+   unsigned int instanceNameRestriction : 1;
+   unsigned int multifieldsAllowed : 1;
+   unsigned int singlefieldsAllowed : 1;
+   unsigned long classList;
+   unsigned long restrictionList;
+   unsigned long minValue;
+   unsigned long maxValue;
+   unsigned long minFields;
+   unsigned long maxFields;
+  };
+
+typedef struct bsaveConstraintRecord BSAVE_CONSTRAINT_RECORD;
+
+/***************************************/
+/* LOCAL INTERNAL FUNCTION DEFINITIONS */
+/***************************************/
+
+#if BLOAD_AND_BSAVE
+   static void                    CopyToBsaveConstraintRecord(Environment *,CONSTRAINT_RECORD *,BSAVE_CONSTRAINT_RECORD *);
+#endif
+   static void                    CopyFromBsaveConstraintRecord(Environment *,void *,unsigned long);
+
+#if BLOAD_AND_BSAVE
+
+/**************************************************/
+/* WriteNeededConstraints: Writes the constraints */
+/*   in the constraint table to the binary image  */
+/*   currently being saved.                       */
+/**************************************************/
+void WriteNeededConstraints(
+  Environment *theEnv,
+  FILE *fp)
+  {
+   int i;
+   unsigned long theIndex = 0;
+   unsigned long numberOfUsedConstraints = 0;
+   CONSTRAINT_RECORD *tmpPtr;
+   BSAVE_CONSTRAINT_RECORD bsaveConstraints;
+
+   /*================================*/
+   /* Get the number of constraints. */
+   /*================================*/
+
+   for (i = 0; i < SIZE_CONSTRAINT_HASH; i++)
+     {
+      for (tmpPtr = ConstraintData(theEnv)->ConstraintHashtable[i];
+           tmpPtr != NULL;
+           tmpPtr = tmpPtr->next)
+        {
+         tmpPtr->bsaveID = theIndex++;
+         numberOfUsedConstraints++;
+        }
+     }
+
+   /*=============================================*/
+   /* If dynamic constraint checking is disabled, */
+   /* then no constraints are saved.              */
+   /*=============================================*/
+
+   if ((! GetDynamicConstraintChecking(theEnv)) && (numberOfUsedConstraints != 0))
+     {
+      numberOfUsedConstraints = 0;
+      PrintWarningID(theEnv,"CSTRNBIN",1,false);
+      WriteString(theEnv,STDWRN,"Constraints are not saved with a binary image\n");
+      WriteString(theEnv,STDWRN,"  when dynamic constraint checking is disabled.\n");
+     }
+
+   /*============================================*/
+   /* Write out the number of constraints in the */
+   /* constraint table followed by each of the   */
+   /* constraints in the constraint table.       */
+   /*============================================*/
+
+   GenWrite(&numberOfUsedConstraints,sizeof(unsigned long),fp);
+   if (numberOfUsedConstraints == 0) return;
+
+   for (i = 0 ; i < SIZE_CONSTRAINT_HASH; i++)
+     {
+      for (tmpPtr = ConstraintData(theEnv)->ConstraintHashtable[i];
+           tmpPtr != NULL;
+           tmpPtr = tmpPtr->next)
+        {
+         CopyToBsaveConstraintRecord(theEnv,tmpPtr,&bsaveConstraints);
+         GenWrite(&bsaveConstraints,sizeof(BSAVE_CONSTRAINT_RECORD),fp);
+        }
+     }
+  }
+
+/****************************************************/
+/* CopyToBsaveConstraintRecord: Copies a constraint */
+/*   record to the data structure used for storing  */
+/*   constraints in a binary image.                 */
+/****************************************************/
+static void CopyToBsaveConstraintRecord(
+  Environment *theEnv,
+  CONSTRAINT_RECORD *constraints,
+  BSAVE_CONSTRAINT_RECORD *bsaveConstraints)
+  {
+   bsaveConstraints->anyAllowed = constraints->anyAllowed;
+   bsaveConstraints->symbolsAllowed = constraints->symbolsAllowed;
+   bsaveConstraints->stringsAllowed = constraints->stringsAllowed;
+   bsaveConstraints->floatsAllowed = constraints->floatsAllowed;
+   bsaveConstraints->integersAllowed = constraints->integersAllowed;
+   bsaveConstraints->instanceNamesAllowed = constraints->instanceNamesAllowed;
+   bsaveConstraints->instanceAddressesAllowed = constraints->instanceAddressesAllowed;
+   bsaveConstraints->externalAddressesAllowed = constraints->externalAddressesAllowed;
+   bsaveConstraints->multifieldsAllowed = constraints->multifieldsAllowed;
+   bsaveConstraints->singlefieldsAllowed = constraints->singlefieldsAllowed;
+   bsaveConstraints->factAddressesAllowed = constraints->factAddressesAllowed;
+   bsaveConstraints->anyRestriction = constraints->anyRestriction;
+   bsaveConstraints->symbolRestriction = constraints->symbolRestriction;
+   bsaveConstraints->stringRestriction = constraints->stringRestriction;
+   bsaveConstraints->floatRestriction = constraints->floatRestriction;
+   bsaveConstraints->integerRestriction = constraints->integerRestriction;
+   bsaveConstraints->classRestriction = constraints->classRestriction;
+   bsaveConstraints->instanceNameRestriction = constraints->instanceNameRestriction;
+
+   bsaveConstraints->restrictionList = HashedExpressionIndex(theEnv,constraints->restrictionList);
+   bsaveConstraints->classList = HashedExpressionIndex(theEnv,constraints->classList);
+   bsaveConstraints->minValue = HashedExpressionIndex(theEnv,constraints->minValue);
+   bsaveConstraints->maxValue = HashedExpressionIndex(theEnv,constraints->maxValue);
+   bsaveConstraints->minFields = HashedExpressionIndex(theEnv,constraints->minFields);
+   bsaveConstraints->maxFields = HashedExpressionIndex(theEnv,constraints->maxFields);
+  }
+
+#endif /* BLOAD_AND_BSAVE */
+
+/********************************************************/
+/* ReadNeededConstraints: Reads in the constraints used */
+/*   by the binary image currently being loaded.        */
+/********************************************************/
+void ReadNeededConstraints(
+  Environment *theEnv)
+  {
+   GenReadBinary(theEnv,&ConstraintData(theEnv)->NumberOfConstraints,sizeof(unsigned long));
+   if (ConstraintData(theEnv)->NumberOfConstraints == 0) return;
+
+   ConstraintData(theEnv)->ConstraintArray = (CONSTRAINT_RECORD *)
+           genalloc(theEnv,(sizeof(CONSTRAINT_RECORD) * ConstraintData(theEnv)->NumberOfConstraints));
+
+   BloadandRefresh(theEnv,ConstraintData(theEnv)->NumberOfConstraints,sizeof(BSAVE_CONSTRAINT_RECORD),
+                   CopyFromBsaveConstraintRecord);
+  }
+
+/*****************************************************/
+/* CopyFromBsaveConstraintRecord: Copies values to a */
+/*   constraint record from the data structure used  */
+/*   for storing constraints in a binary image.      */
+/*****************************************************/
+static void CopyFromBsaveConstraintRecord(
+  Environment *theEnv,
+  void *buf,
+  unsigned long theIndex)
+  {
+   BSAVE_CONSTRAINT_RECORD *bsaveConstraints;
+   CONSTRAINT_RECORD *constraints;
+
+   bsaveConstraints = (BSAVE_CONSTRAINT_RECORD *) buf;
+   constraints = (CONSTRAINT_RECORD *) &ConstraintData(theEnv)->ConstraintArray[theIndex];
+
+   constraints->anyAllowed = bsaveConstraints->anyAllowed;
+   constraints->symbolsAllowed = bsaveConstraints->symbolsAllowed;
+   constraints->stringsAllowed = bsaveConstraints->stringsAllowed;
+   constraints->floatsAllowed = bsaveConstraints->floatsAllowed;
+   constraints->integersAllowed = bsaveConstraints->integersAllowed;
+   constraints->instanceNamesAllowed = bsaveConstraints->instanceNamesAllowed;
+   constraints->instanceAddressesAllowed = bsaveConstraints->instanceAddressesAllowed;
+   constraints->externalAddressesAllowed = bsaveConstraints->externalAddressesAllowed;
+   constraints->voidAllowed = false;
+   constraints->multifieldsAllowed = bsaveConstraints->multifieldsAllowed;
+   constraints->singlefieldsAllowed = bsaveConstraints->singlefieldsAllowed;
+   constraints->factAddressesAllowed = bsaveConstraints->factAddressesAllowed;
+   constraints->anyRestriction = bsaveConstraints->anyRestriction;
+   constraints->symbolRestriction = bsaveConstraints->symbolRestriction;
+   constraints->stringRestriction = bsaveConstraints->stringRestriction;
+   constraints->floatRestriction = bsaveConstraints->floatRestriction;
+   constraints->integerRestriction = bsaveConstraints->integerRestriction;
+   constraints->classRestriction = bsaveConstraints->classRestriction;
+   constraints->instanceNameRestriction = bsaveConstraints->instanceNameRestriction;
+
+   constraints->restrictionList = HashedExpressionPointer(bsaveConstraints->restrictionList);
+   constraints->classList = HashedExpressionPointer(bsaveConstraints->classList);
+   constraints->minValue = HashedExpressionPointer(bsaveConstraints->minValue);
+   constraints->maxValue = HashedExpressionPointer(bsaveConstraints->maxValue);
+   constraints->minFields = HashedExpressionPointer(bsaveConstraints->minFields);
+   constraints->maxFields = HashedExpressionPointer(bsaveConstraints->maxFields);
+   constraints->multifield = NULL;
+  }
+
+/********************************************************/
+/* ClearBloadedConstraints: Releases memory associated  */
+/*   with constraints loaded from binary image          */
+/********************************************************/
+void ClearBloadedConstraints(
+  Environment *theEnv)
+  {
+   if (ConstraintData(theEnv)->NumberOfConstraints != 0)
+     {
+      genfree(theEnv,ConstraintData(theEnv)->ConstraintArray,
+                     (sizeof(CONSTRAINT_RECORD) * ConstraintData(theEnv)->NumberOfConstraints));
+      ConstraintData(theEnv)->NumberOfConstraints = 0;
+     }
+  }
+
+#endif /* (BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE) && (! RUN_TIME) */
+
+
+
+
+

data/ext/clipsruby/cstrnbin.h

@@ -0,0 +1,55 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  12/02/19            */
+   /*                                                     */
+   /*    CONSTRAINT BLOAD/BSAVE/CONSTRUCTS-TO-C HEADER    */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Implements the binary save/load feature for      */
+/*    constraint records.                                    */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.24: Added allowed-classes slot facet.              */
+/*                                                           */
+/*      6.30: Changed integer type/precision.                */
+/*                                                           */
+/*      6.40: Removed LOCALE definition.                     */
+/*                                                           */
+/*            Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_cstrnbin
+
+#pragma once
+
+#define _H_cstrnbin
+
+#include <stdio.h>
+
+#include "evaluatn.h"
+#include "constrnt.h"
+
+#define ConstraintIndex(theConstraint) (((! GetDynamicConstraintChecking(theEnv)) || (theConstraint == NULL)) ? ULONG_MAX : (theConstraint->bsaveID))
+#define ConstraintPointer(i) (((i) == ULONG_MAX) ? NULL : (CONSTRAINT_RECORD *) &ConstraintData(theEnv)->ConstraintArray[i])
+
+#if BLOAD_AND_BSAVE
+   void                           WriteNeededConstraints(Environment *,FILE *);
+#endif
+   void                           ReadNeededConstraints(Environment *);
+   void                           ClearBloadedConstraints(Environment *);
+
+#endif /* _H_cstrnbin */
+
+