clipsruby 0.0.2

data/ext/clipsruby/tmpltutl.h

@@ -0,0 +1,82 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.41  11/10/22            */
+   /*                                                     */
+   /*          DEFTEMPLATE UTILITIES HEADER FILE          */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.23: Added support for templates maintaining their  */
+/*            own list of facts.                             */
+/*                                                           */
+/*      6.24: Renamed BOOLEAN macro type to intBool.         */
+/*                                                           */
+/*            Added additional arguments to                  */
+/*            InvalidDeftemplateSlotMessage function.        */
+/*                                                           */
+/*            Added additional arguments to                  */
+/*            PrintTemplateFact function.                    */
+/*                                                           */
+/*      6.30: Support for long long integers.                */
+/*                                                           */
+/*            Used gensprintf instead of sprintf.            */
+/*                                                           */
+/*            Added const qualifiers to remove C++           */
+/*            deprecation warnings.                          */
+/*                                                           */
+/*      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.                               */
+/*                                                           */
+/*            Watch facts for modify command only prints     */
+/*            changed slots.                                 */
+/*                                                           */
+/*      6.41: Added error message for using ordered facts    */
+/*            with functions expecting deftemplate facts.    */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_tmpltutl
+
+#pragma once
+
+#define _H_tmpltutl
+
+#include "constrnt.h"
+#include "evaluatn.h"
+#include "expressn.h"
+#include "factmngr.h"
+#include "symbol.h"
+
+   void                           InvalidDeftemplateSlotMessage(Environment *,const char *,const char *,bool);
+   void                           SingleFieldSlotCardinalityError(Environment *,const char *);
+   void                           MultiIntoSingleFieldSlotError(Environment *,struct templateSlot *,Deftemplate *);
+   void                           CheckTemplateFact(Environment *,Fact *);
+   bool                           CheckRHSSlotTypes(Environment *,struct expr *,struct templateSlot *,const char *);
+   struct templateSlot           *GetNthSlot(Deftemplate *,long long);
+   int                            FindSlotPosition(Deftemplate *,CLIPSLexeme *);
+   void                           PrintTemplateFact(Environment *,const char *,Fact *,bool,bool,const char *);
+   void                           UpdateDeftemplateScope(Environment *);
+   struct templateSlot           *FindSlot(Deftemplate *,CLIPSLexeme *,unsigned short *);
+   Deftemplate                   *CreateImpliedDeftemplate(Environment *,CLIPSLexeme *,bool);
+   void                           OrderedFactFunctionError(Environment *,const char *);
+  
+#endif /* _H_tmpltutl */
+
+
+

data/ext/clipsruby/userdata.c

@@ -0,0 +1,156 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.40  07/30/16             */
+   /*                                                     */
+   /*                  USER DATA MODULE                   */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Routines for attaching user data to constructs,  */
+/*   facts, instances, user functions, etc.                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.40: Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*************************************************************/
+
+#include <stdlib.h>
+
+#include "setup.h"
+
+#include "envrnmnt.h"
+
+#include "userdata.h"
+
+/*************************************************/
+/* InitializeUserDataData: Allocates environment */
+/*    data for user data routines.               */
+/*************************************************/
+void InitializeUserDataData(
+  Environment *theEnv)
+  {
+   AllocateEnvironmentData(theEnv,USER_DATA_DATA,sizeof(struct userDataData),NULL);
+  }
+
+/******************************************************/
+/* InstallUserDataRecord: Installs a user data record */
+/*   in the user data record array and returns the    */
+/*   integer data ID associated with the record.      */
+/******************************************************/
+unsigned char InstallUserDataRecord(
+  Environment *theEnv,
+  struct userDataRecord *theRecord)
+  {
+   theRecord->dataID = UserDataData(theEnv)->UserDataRecordCount;
+   UserDataData(theEnv)->UserDataRecordArray[UserDataData(theEnv)->UserDataRecordCount] = theRecord;
+   return(UserDataData(theEnv)->UserDataRecordCount++);
+  }
+
+/*****************************************************/
+/* FetchUserData: Searches for user data information */
+/*   from a list of user data structures. A new user */
+/*   data structure is created if one is not found.  */
+/*****************************************************/
+struct userData *FetchUserData(
+  Environment *theEnv,
+  unsigned char userDataID,
+  struct userData **theList)
+  {
+   struct userData *theData;
+
+   for (theData = *theList;
+        theData != NULL;
+        theData = theData->next)
+     {
+      if (theData->dataID == userDataID)
+        { return(theData); }
+     }
+
+   theData = (struct userData *) (*UserDataData(theEnv)->UserDataRecordArray[userDataID]->createUserData)(theEnv);
+   theData->dataID = userDataID;
+   theData->next = *theList;
+   *theList = theData;
+
+   return(theData);
+  }
+
+/*****************************************************/
+/* TestUserData: Searches for user data information  */
+/*   from a list of user data structures. NULL is    */
+/*   returned if the appropriate user data structure */
+/*   is not found.                                   */
+/*****************************************************/
+struct userData *TestUserData(
+  unsigned char userDataID,
+  struct userData *theList)
+  {
+   struct userData *theData;
+
+   for (theData = theList;
+        theData != NULL;
+        theData = theData->next)
+     {
+      if (theData->dataID == userDataID)
+        { return(theData); }
+     }
+
+   return NULL;
+  }
+
+/***************************************************************/
+/* ClearUserDataList: Deallocates a linked list of user data.  */
+/***************************************************************/
+void ClearUserDataList(
+  Environment *theEnv,
+  struct userData *theList)
+  {
+   struct userData *nextData;
+
+   while (theList != NULL)
+     {
+      nextData = theList->next;
+      (*UserDataData(theEnv)->UserDataRecordArray[theList->dataID]->deleteUserData)(theEnv,theList);
+      theList = nextData;
+     }
+  }
+
+/*************************************************/
+/* DeleteUserData: Removes user data information */
+/*   from a list of user data structures.        */
+/*************************************************/
+struct userData *DeleteUserData(
+  Environment *theEnv,
+  unsigned char userDataID,
+  struct userData *theList)
+  {
+   struct userData *theData, *lastData = NULL;
+
+   for (theData = theList;
+        theData != NULL;
+        theData = theData->next)
+     {
+      if (theData->dataID == userDataID)
+        {
+         if (lastData == NULL)
+           { theList = theData->next; }
+         else
+           { lastData->next = theData->next; }
+
+         (*UserDataData(theEnv)->UserDataRecordArray[userDataID]->deleteUserData)(theEnv,theData);
+         return(theList);
+        }
+
+      lastData = theData;
+     }
+
+   return(theList);
+  }
+

data/ext/clipsruby/userdata.h

@@ -0,0 +1,72 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  07/30/16            */
+   /*                                                     */
+   /*                USER DATA HEADER FILE                */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Routines for attaching user data to constructs,  */
+/*   facts, instances, user functions, etc.                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.40: Removed LOCALE definition.                     */
+/*                                                           */
+/*            Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_userdata
+
+#pragma once
+
+#define _H_userdata
+
+struct userData
+  {
+   unsigned char dataID;
+   struct userData *next;
+  };
+
+typedef struct userData USER_DATA;
+typedef struct userData * USER_DATA_PTR;
+
+struct userDataRecord
+  {
+   unsigned char dataID;
+   void *(*createUserData)(Environment *);
+   void (*deleteUserData)(Environment *,void *);
+  };
+
+typedef struct userDataRecord USER_DATA_RECORD;
+typedef struct userDataRecord * USER_DATA_RECORD_PTR;
+
+#define MAXIMUM_USER_DATA_RECORDS 100
+
+#define USER_DATA_DATA 56
+
+struct userDataData
+  {
+   struct userDataRecord *UserDataRecordArray[MAXIMUM_USER_DATA_RECORDS];
+   unsigned char UserDataRecordCount;
+  };
+
+#define UserDataData(theEnv) ((struct userDataData *) GetEnvironmentData(theEnv,USER_DATA_DATA))
+
+   void                           InitializeUserDataData(Environment *);
+   unsigned char                  InstallUserDataRecord(Environment *,struct userDataRecord *);
+   struct userData               *FetchUserData(Environment *,unsigned char,struct userData **);
+   struct userData               *TestUserData(unsigned char,struct userData *);
+   void                           ClearUserDataList(Environment *,struct userData *);
+   struct userData               *DeleteUserData(Environment *,unsigned char,struct userData *);
+
+#endif
+

data/ext/clipsruby/userfunctions.c

@@ -0,0 +1,70 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.40  07/30/16             */
+   /*                                                     */
+   /*                USER FUNCTIONS MODULE                */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.24: Created file to seperate UserFunctions and     */
+/*            EnvUserFunctions from main.c.                  */
+/*                                                           */
+/*      6.30: Removed conditional code for unsupported       */
+/*            compilers/operating systems (IBM_MCW,          */
+/*            MAC_MCW, and IBM_TBC).                         */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*************************************************************/
+
+/***************************************************************************/
+/*                                                                         */
+/* Permission is hereby granted, free of charge, to any person obtaining   */
+/* a copy of this software and associated documentation files (the         */
+/* "Software"), to deal in the Software without restriction, including     */
+/* without limitation the rights to use, copy, modify, merge, publish,     */
+/* distribute, and/or sell copies of the Software, and to permit persons   */
+/* to whom the Software is furnished to do so.                             */
+/*                                                                         */
+/* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS */
+/* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF              */
+/* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT   */
+/* OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY  */
+/* CLAIM, OR ANY SPECIAL INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES */
+/* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN   */
+/* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF */
+/* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.          */
+/*                                                                         */
+/***************************************************************************/
+
+#include "clips.h"
+
+void UserFunctions(Environment *);
+
+/*********************************************************/
+/* UserFunctions: Informs the expert system environment  */
+/*   of any user defined functions. In the default case, */
+/*   there are no user defined functions. To define      */
+/*   functions, either this function must be replaced by */
+/*   a function with the same name within this file, or  */
+/*   this function can be deleted from this file and     */
+/*   included in another file.                           */
+/*********************************************************/
+void UserFunctions(
+  Environment *env)
+  {
+#if MAC_XCD
+#pragma unused(env)
+#endif
+  }

data/ext/clipsruby/usrsetup.h

@@ -0,0 +1,7 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.40  06/28/16             */
+   /*                                                     */
+   /*               USER SETUP HEADER FILE                */
+   /*******************************************************/