clipsruby 0.0.2

data/ext/clipsruby/factrhs.h

@@ -0,0 +1,55 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  07/30/16            */
+   /*                                                     */
+   /*        FACT RHS PATTERN PARSER HEADER MODULE        */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.30: Added const qualifiers to remove C++           */
+/*            deprecation warnings.                          */
+/*                                                           */
+/*            Added code to prevent a clear command from     */
+/*            being executed during fact assertions via      */
+/*            Increment/DecrementClearReadyLocks API.        */
+/*                                                           */
+/*      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.                               */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_factrhs
+
+#pragma once
+
+#define _H_factrhs
+
+#include "expressn.h"
+#include "factmngr.h"
+#include "scanner.h"
+#include "symbol.h"
+
+   struct expr                   *BuildRHSAssert(Environment *,const char *,struct token *,bool *,bool,bool,const char *);
+   struct expr                   *GetAssertArgument(Environment *,const char *,struct token *,bool *,TokenType,bool,bool *);
+   struct expr                   *GetRHSPattern(Environment*,const char *,struct token *,bool *,bool,
+                                                       bool,bool,TokenType);
+   Fact                          *StringToFact(Environment *,const char *);
+
+#endif /* _H_factrhs */
+

data/ext/clipsruby/filecom.c

@@ -0,0 +1,353 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  02/03/21            */
+   /*                                                     */
+   /*                 FILE COMMANDS MODULE                */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Contains the code for file commands including    */
+/*   batch, dribble-on, dribble-off, save, load, bsave, and  */
+/*   bload.                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*      Brian L. Dantes                                      */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*      Bebe Ly                                              */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.24: Added environment parameter to GenClose.       */
+/*            Added environment parameter to GenOpen.        */
+/*                                                           */
+/*            Renamed BOOLEAN macro type to intBool.         */
+/*                                                           */
+/*      6.30: Removed conditional code for unsupported       */
+/*            compilers/operating systems (IBM_MCW,          */
+/*            MAC_MCW, and IBM_TBC).                         */
+/*                                                           */
+/*            Added code for capturing errors/warnings.      */
+/*                                                           */
+/*            Added AwaitingInput flag.                      */
+/*                                                           */
+/*            Added const qualifiers to remove C++           */
+/*            deprecation warnings.                          */
+/*                                                           */
+/*            Converted API macros to function calls.        */
+/*                                                           */
+/*            Fixed linkage issue when BLOAD_ONLY compiler   */
+/*            flag is set to 1.                              */
+/*                                                           */
+/*            Added STDOUT and STDIN logical name            */
+/*            definitions.                                   */
+/*                                                           */
+/*      6.31: Unprocessed batch files did not deallocate     */
+/*            all memory on exit.                            */
+/*                                                           */
+/*      6.40: Split inputSource to fileSource and            */
+/*            logicalSource.                                 */
+/*                                                           */
+/*            Added Env prefix to GetEvaluationError and     */
+/*            SetEvaluationError functions.                  */
+/*                                                           */
+/*            Added Env prefix to GetHaltExecution and       */
+/*            SetHaltExecution functions.                    */
+/*                                                           */
+/*            Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Added support for booleans with <stdbool.h>.   */
+/*                                                           */
+/*            Changed return values for router functions.    */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*            ALLOW_ENVIRONMENT_GLOBALS no longer supported. */
+/*                                                           */
+/*            UDF redesign.                                  */
+/*                                                           */
+/*************************************************************/
+
+#include <stdio.h>
+#include <string.h>
+
+#include "setup.h"
+
+#include "argacces.h"
+#if BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE
+#include "bload.h"
+#include "bsave.h"
+#endif
+#include "commline.h"
+#include "cstrcpsr.h"
+#include "envrnmnt.h"
+#include "extnfunc.h"
+#include "fileutil.h"
+#include "memalloc.h"
+#include "router.h"
+#include "sysdep.h"
+#include "utility.h"
+
+#include "filecom.h"
+
+/***************************************/
+/* LOCAL INTERNAL FUNCTION DEFINITIONS */
+/***************************************/
+
+   static void                    DeallocateFileCommandData(Environment *);
+
+/***************************************/
+/* FileCommandDefinitions: Initializes */
+/*   file commands.                    */
+/***************************************/
+void FileCommandDefinitions(
+  Environment *theEnv)
+  {
+   AllocateEnvironmentData(theEnv,FILECOM_DATA,sizeof(struct fileCommandData),DeallocateFileCommandData);
+
+#if ! RUN_TIME
+#if DEBUGGING_FUNCTIONS
+   AddUDF(theEnv,"batch","b",1,1,"sy",BatchCommand,"BatchCommand",NULL);
+   AddUDF(theEnv,"batch*","b",1,1,"sy",BatchStarCommand,"BatchStarCommand",NULL);
+   AddUDF(theEnv,"dribble-on","b",1,1,"sy",DribbleOnCommand,"DribbleOnCommand",NULL);
+   AddUDF(theEnv,"dribble-off","b",0,0,NULL,DribbleOffCommand,"DribbleOffCommand",NULL);
+   AddUDF(theEnv,"save","b",1,1,"sy",SaveCommand,"SaveCommand",NULL);
+#endif
+   AddUDF(theEnv,"load","b",1,1,"sy",LoadCommand,"LoadCommand",NULL);
+   AddUDF(theEnv,"load*","b",1,1,"sy",LoadStarCommand,"LoadStarCommand",NULL);
+#if BLOAD_AND_BSAVE
+   AddUDF(theEnv,"bsave","b",1,1,"sy",BsaveCommand,"BsaveCommand",NULL);
+#endif
+#if BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE
+   InitializeBsaveData(theEnv);
+   InitializeBloadData(theEnv);
+   AddUDF(theEnv,"bload","b",1,1,"sy",BloadCommand,"BloadCommand",NULL);
+#endif
+#endif
+  }
+
+/******************************************************/
+/* DeallocateFileCommandData: Deallocates environment */
+/*    data for file commands.                         */
+/******************************************************/
+static void DeallocateFileCommandData(
+  Environment *theEnv)
+  {
+   struct batchEntry *theEntry, *nextEntry;
+
+   theEntry = FileCommandData(theEnv)->TopOfBatchList;
+   while (theEntry != NULL)
+     {
+      nextEntry = theEntry->next;
+
+      if (theEntry->batchType == FILE_BATCH)
+        { GenClose(theEnv,FileCommandData(theEnv)->TopOfBatchList->fileSource); }
+      else
+        { rm(theEnv,(void *) theEntry->theString,strlen(theEntry->theString) + 1); }
+
+      DeleteString(theEnv,theEntry->fileName);
+      DeleteString(theEnv,theEntry->logicalSource);
+      rtn_struct(theEnv,batchEntry,theEntry);
+
+      theEntry = nextEntry;
+     }
+
+   if (FileCommandData(theEnv)->BatchBuffer != NULL)
+     { rm(theEnv,FileCommandData(theEnv)->BatchBuffer,FileCommandData(theEnv)->BatchMaximumPosition); }
+
+   DeleteString(theEnv,FileCommandData(theEnv)->batchPriorParsingFile);
+   FileCommandData(theEnv)->batchPriorParsingFile = NULL;
+
+#if DEBUGGING_FUNCTIONS
+   if (FileCommandData(theEnv)->DribbleBuffer != NULL)
+     { rm(theEnv,FileCommandData(theEnv)->DribbleBuffer,FileCommandData(theEnv)->DribbleMaximumPosition); }
+
+   if (FileCommandData(theEnv)->DribbleFP != NULL)
+     { GenClose(theEnv,FileCommandData(theEnv)->DribbleFP); }
+#endif
+  }
+
+#if DEBUGGING_FUNCTIONS
+
+/******************************************/
+/* DribbleOnCommand: H/L access routine   */
+/*   for the dribble-on command.          */
+/******************************************/
+void DribbleOnCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   const char *fileName;
+
+   if ((fileName = GetFileName(context)) == NULL)
+     {
+      returnValue->lexemeValue = FalseSymbol(theEnv);
+      return;
+     }
+
+   returnValue->lexemeValue = CreateBoolean(theEnv,DribbleOn(theEnv,fileName));
+  }
+
+/*******************************************/
+/* DribbleOffCommand: H/L access  routine  */
+/*   for the dribble-off command.          */
+/*******************************************/
+void DribbleOffCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   returnValue->lexemeValue = CreateBoolean(theEnv,DribbleOff(theEnv));
+  }
+
+#endif /* DEBUGGING_FUNCTIONS */
+
+/**************************************/
+/* BatchCommand: H/L access routine   */
+/*   for the batch command.           */
+/**************************************/
+void BatchCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   const char *fileName;
+
+   if ((fileName = GetFileName(context)) == NULL)
+     {
+      returnValue->lexemeValue = FalseSymbol(theEnv);
+      return;
+     }
+
+   returnValue->lexemeValue = CreateBoolean(theEnv,OpenBatch(theEnv,fileName,false));
+  }
+
+/******************************************/
+/* BatchStarCommand: H/L access routine   */
+/*   for the batch* command.              */
+/******************************************/
+void BatchStarCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   const char *fileName;
+
+   if ((fileName = GetFileName(context)) == NULL)
+     {
+      returnValue->lexemeValue = FalseSymbol(theEnv);
+      return;
+     }
+
+   returnValue->lexemeValue = CreateBoolean(theEnv,BatchStar(theEnv,fileName));
+  }
+
+/***********************************************************/
+/* LoadCommand: H/L access routine for the load command.   */
+/***********************************************************/
+void LoadCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+#if (! BLOAD_ONLY) && (! RUN_TIME)
+   const char *theFileName;
+   LoadError rv;
+
+   if ((theFileName = GetFileName(context)) == NULL)
+     {
+      returnValue->lexemeValue = FalseSymbol(theEnv);
+      return;
+     }
+
+   if (CommandLineData(theEnv)->EvaluatingTopLevelCommand)
+     { SetPrintWhileLoading(theEnv,true); }
+
+   if ((rv = Load(theEnv,theFileName)) == LE_OPEN_FILE_ERROR)
+     {
+      SetPrintWhileLoading(theEnv,false);
+      OpenErrorMessage(theEnv,"load",theFileName);
+      returnValue->lexemeValue = FalseSymbol(theEnv);
+      return;
+     }
+
+   if (CommandLineData(theEnv)->EvaluatingTopLevelCommand)
+     { SetPrintWhileLoading(theEnv,false); }
+
+   if (rv == LE_PARSING_ERROR) returnValue->lexemeValue = FalseSymbol(theEnv);
+   else returnValue->lexemeValue = TrueSymbol(theEnv);
+#else
+   WriteString(theEnv,STDOUT,"Load is not available in this environment\n");
+   returnValue->lexemeValue = FalseSymbol(theEnv);
+#endif
+  }
+
+/****************************************************************/
+/* LoadStarCommand: H/L access routine for the load* command.   */
+/****************************************************************/
+void LoadStarCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+#if (! BLOAD_ONLY) && (! RUN_TIME)
+   const char *theFileName;
+   LoadError rv;
+
+   if ((theFileName = GetFileName(context)) == NULL)
+     {
+      returnValue->lexemeValue = FalseSymbol(theEnv);
+      return;
+     }
+
+   if ((rv = Load(theEnv,theFileName)) == LE_OPEN_FILE_ERROR)
+     {
+      OpenErrorMessage(theEnv,"load*",theFileName);
+      returnValue->lexemeValue = FalseSymbol(theEnv);
+      return;
+     }
+
+   if (rv == LE_PARSING_ERROR) returnValue->lexemeValue = FalseSymbol(theEnv);
+   else returnValue->lexemeValue = TrueSymbol(theEnv);
+#else
+   WriteString(theEnv,STDOUT,"Load* is not available in this environment\n");
+   returnValue->lexemeValue = FalseSymbol(theEnv);
+#endif
+  }
+
+#if DEBUGGING_FUNCTIONS
+/*********************************************************/
+/* SaveCommand: H/L access routine for the save command. */
+/*********************************************************/
+void SaveCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+#if (! BLOAD_ONLY) && (! RUN_TIME)
+   const char *theFileName;
+
+   if ((theFileName = GetFileName(context)) == NULL)
+     {
+      returnValue->lexemeValue = FalseSymbol(theEnv);
+      return;
+     }
+
+   if (Save(theEnv,theFileName) == false)
+     {
+      OpenErrorMessage(theEnv,"save",theFileName);
+      returnValue->lexemeValue = FalseSymbol(theEnv);
+      return;
+     }
+
+   returnValue->lexemeValue = TrueSymbol(theEnv);
+#else
+   WriteString(theEnv,STDOUT,"Save is not available in this environment\n");
+   returnValue->lexemeValue = FalseSymbol(theEnv);
+#endif
+  }
+#endif

data/ext/clipsruby/filecom.h

@@ -0,0 +1,137 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  04/04/19            */
+   /*                                                     */
+   /*              FILE COMMANDS HEADER FILE              */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Contains the code for file commands including    */
+/*   batch, dribble-on, dribble-off, save, load, bsave, and  */
+/*   bload.                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.24: Added environment parameter to GenClose.       */
+/*            Added environment parameter to GenOpen.        */
+/*                                                           */
+/*            Renamed BOOLEAN macro type to intBool.         */
+/*                                                           */
+/*      6.30: Removed conditional code for unsupported       */
+/*            compilers/operating systems (IBM_MCW,          */
+/*            MAC_MCW, and IBM_TBC).                         */
+/*                                                           */
+/*            Added code for capturing errors/warnings.      */
+/*                                                           */
+/*            Added AwaitingInput flag.                      */
+/*                                                           */
+/*            Added const qualifiers to remove C++           */
+/*            deprecation warnings.                          */
+/*                                                           */
+/*            Converted API macros to function calls.        */
+/*                                                           */
+/*            Fixed linkage issue when BLOAD_ONLY compiler   */
+/*            flag is set to 1.                              */
+/*                                                           */
+/*      6.31: Fixed error in AppendDribble for older         */
+/*            compilers not allowing variable definition     */
+/*            within for statement.                          */
+/*                                                           */
+/*      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. */
+/*                                                           */
+/*            UDF redesign.                                  */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_filecom
+
+#pragma once
+
+#define _H_filecom
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "entities.h"
+
+typedef struct batchEntry BatchEntry;
+
+/***************/
+/* STRUCTURES  */
+/***************/
+
+struct batchEntry
+  {
+   int batchType;
+   FILE *fileSource;
+   const char *logicalSource;
+   const char *theString;
+   const char *fileName;
+   long lineNumber;
+   BatchEntry *next;
+  };
+
+/***************/
+/* DEFINITIONS */
+/***************/
+
+#define FILE_BATCH      0
+#define STRING_BATCH    1
+
+#define BUFFER_SIZE   120
+
+#define FILECOM_DATA 14
+
+struct fileCommandData
+  {
+#if DEBUGGING_FUNCTIONS
+   FILE *DribbleFP;
+   char *DribbleBuffer;
+   size_t DribbleCurrentPosition;
+   size_t DribbleMaximumPosition;
+   int (*DribbleStatusFunction)(Environment *,bool);
+#endif
+   int BatchType;
+   FILE *BatchFileSource;
+   const char *BatchLogicalSource;
+   char *BatchBuffer;
+   size_t BatchCurrentPosition;
+   size_t BatchMaximumPosition;
+   BatchEntry *TopOfBatchList;
+   BatchEntry *BottomOfBatchList;
+   char *batchPriorParsingFile;
+  };
+
+#define FileCommandData(theEnv) ((struct fileCommandData *) GetEnvironmentData(theEnv,FILECOM_DATA))
+
+   void                           FileCommandDefinitions(Environment *);
+   void                           BatchCommand(Environment *,UDFContext *,UDFValue *);
+   void                           BatchStarCommand(Environment *,UDFContext *,UDFValue *);
+   void                           LoadCommand(Environment *,UDFContext *,UDFValue *);
+   void                           LoadStarCommand(Environment *,UDFContext *,UDFValue *);
+   void                           SaveCommand(Environment *,UDFContext *,UDFValue *);
+   void                           DribbleOnCommand(Environment *,UDFContext *,UDFValue *);
+   void                           DribbleOffCommand(Environment *,UDFContext *,UDFValue *);
+
+#endif /* _H_filecom */
+
+
+
+
+
+