clipsruby 0.0.2

data/ext/clipsruby/lgcldpnd.h

@@ -0,0 +1,75 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  11/01/16            */
+   /*                                                     */
+   /*          LOGICAL DEPENDENCIES HEADER FILE           */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Provide support routines for managing truth      */
+/*   maintenance using the logical conditional element.      */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.24: Removed LOGICAL_DEPENDENCIES compilation flag. */
+/*                                                           */
+/*            Renamed BOOLEAN macro type to intBool.         */
+/*                                                           */
+/*            Rule with exists CE has incorrect activation.  */
+/*            DR0867                                         */
+/*                                                           */
+/*      6.30: Added support for hashed memories.             */
+/*                                                           */
+/*      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.                               */
+/*                                                           */
+/*            UDF redesign.                                  */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_lgcldpnd
+
+#pragma once
+
+#define _H_lgcldpnd
+
+struct dependency
+  {
+   void *dPtr;
+   struct dependency *next;
+  };
+
+#include "entities.h"
+#include "match.h"
+
+   bool                           AddLogicalDependencies(Environment *,PatternEntity *,bool);
+   void                           RemoveEntityDependencies(Environment *,PatternEntity *);
+   void                           RemovePMDependencies(Environment *,PartialMatch *);
+   void                           DestroyPMDependencies(Environment *,PartialMatch *);
+   void                           RemoveLogicalSupport(Environment *,PartialMatch *);
+   void                           ForceLogicalRetractions(Environment *);
+   void                           Dependencies(Environment *,PatternEntity *);
+   void                           Dependents(Environment *,PatternEntity *);
+   void                           DependenciesCommand(Environment *,UDFContext *,UDFValue *);
+   void                           DependentsCommand(Environment *,UDFContext *,UDFValue *);
+   void                           ReturnEntityDependencies(Environment *,PatternEntity *);
+   PartialMatch                  *FindLogicalBind(struct joinNode *,PartialMatch *);
+
+#endif /* _H_lgcldpnd */
+
+
+
+
+

data/ext/clipsruby/main.c

@@ -0,0 +1,112 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*               CLIPS Version 6.40  08/06/16          */
+   /*                                                     */
+   /*                     MAIN MODULE                     */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.24: Moved UserFunctions and EnvUserFunctions to    */
+/*            the new userfunctions.c file.                  */
+/*                                                           */
+/*      6.40: Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*            Moved CatchCtrlC to main.c.                    */
+/*                                                           */
+/*************************************************************/
+
+/***************************************************************************/
+/*                                                                         */
+/* 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"
+
+#if   UNIX_V || LINUX || DARWIN || UNIX_7 || WIN_GCC || WIN_MVC
+#include <signal.h>
+#endif
+
+/***************************************/
+/* LOCAL INTERNAL FUNCTION DEFINITIONS */
+/***************************************/
+
+#if UNIX_V || LINUX || DARWIN || UNIX_7 || WIN_GCC || WIN_MVC
+   static void                    CatchCtrlC(int);
+#endif
+
+/***************************************/
+/* LOCAL INTERNAL VARIABLE DEFINITIONS */
+/***************************************/
+
+   static Environment            *mainEnv;
+
+/****************************************/
+/* main: Starts execution of the expert */
+/*   system development environment.    */
+/****************************************/
+int main(
+  int argc,
+  char *argv[])
+  {
+   mainEnv = CreateEnvironment();
+
+#if UNIX_V || LINUX || DARWIN || UNIX_7 || WIN_GCC || WIN_MVC
+   signal(SIGINT,CatchCtrlC);
+#endif
+
+   RerouteStdin(mainEnv,argc,argv);
+   CommandLoop(mainEnv);
+
+   /*==================================================================*/
+   /* Control does not normally return from the CommandLoop function.  */
+   /* However if you are embedding CLIPS, have replaced CommandLoop    */
+   /* with your own embedded calls that will return to this point, and */
+   /* are running software that helps detect memory leaks, you need to */
+   /* add function calls here to deallocate memory still being used by */
+   /* CLIPS. If you have a multi-threaded application, no environments */
+   /* can be currently executing.                                      */
+   /*==================================================================*/
+
+   DestroyEnvironment(mainEnv);
+
+   return -1;
+  }
+
+#if UNIX_V || LINUX || DARWIN || UNIX_7 || WIN_GCC || WIN_MVC || DARWIN
+/***************/
+/* CatchCtrlC: */
+/***************/
+static void CatchCtrlC(
+  int sgnl)
+  {
+   SetHaltExecution(mainEnv,true);
+   CloseAllBatchSources(mainEnv);
+   signal(SIGINT,CatchCtrlC);
+  }
+#endif

data/ext/clipsruby/match.h

@@ -0,0 +1,142 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.40  08/28/17             */
+   /*                                                     */
+   /*                  MATCH HEADER FILE                  */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.30: Added support for hashed memories.             */
+/*                                                           */
+/*            Added additional members to partialMatch to    */
+/*            support changes to the matching algorithm.     */
+/*                                                           */
+/*      6.31: Bug fix to prevent rule activations for        */
+/*            partial matches being deleted.                 */
+/*                                                           */
+/*      6.40: Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_match
+
+#pragma once
+
+#define _H_match
+
+typedef struct genericMatch GenericMatch;
+typedef struct patternMatch PatternMatch;
+typedef struct partialMatch PartialMatch;
+typedef struct alphaMatch AlphaMatch;
+typedef struct multifieldMarker MultifieldMarker;
+
+#include "entities.h"
+#include "network.h"
+
+/****************/
+/* patternMatch */
+/****************/
+struct patternMatch
+  {
+   PatternMatch *next;
+   PartialMatch *theMatch;
+   PatternNodeHeader *matchingPattern;
+  };
+
+/****************/
+/* genericMatch */
+/****************/
+struct genericMatch
+  {
+   union
+     {
+      void *theValue;
+      AlphaMatch *theMatch;
+     } gm;
+  };
+
+/****************/
+/* partialMatch */
+/****************/
+struct partialMatch
+  {
+   unsigned int betaMemory  :  1;
+   unsigned int busy        :  1;
+   unsigned int rhsMemory   :  1;
+   unsigned int deleting    :  1;
+   unsigned short bcount;
+   unsigned long hashValue;
+   void *owner;
+   void *marker;
+   void *dependents;
+   PartialMatch *nextInMemory;
+   PartialMatch *prevInMemory;
+   PartialMatch *children;
+   PartialMatch *rightParent;
+   PartialMatch *nextRightChild;
+   PartialMatch *prevRightChild;
+   PartialMatch *leftParent;
+   PartialMatch *nextLeftChild;
+   PartialMatch *prevLeftChild;
+   PartialMatch *blockList;
+   PartialMatch *nextBlocked;
+   PartialMatch *prevBlocked;
+   GenericMatch binds[1];
+  };
+
+/**************/
+/* alphaMatch */
+/**************/
+struct alphaMatch
+  {
+   PatternEntity *matchingItem;
+   MultifieldMarker *markers;
+   AlphaMatch *next;
+   unsigned long bucket;
+  };
+
+/******************************************************/
+/* multifieldMarker: Used in the pattern matching     */
+/*    process to mark the range of fields that the $? */
+/*    and $?variables match because a single pattern  */
+/*    restriction may span zero or more fields.       */
+/******************************************************/
+struct multifieldMarker
+  {
+   unsigned short whichField;
+   union
+     {
+      void *whichSlot;
+      unsigned short whichSlotNumber;
+     } where;
+    size_t startPosition;
+    size_t range;
+    MultifieldMarker *next;
+   };
+
+#define get_nth_pm_value(thePM,thePos) (thePM->binds[thePos].gm.theValue)
+#define get_nth_pm_match(thePM,thePos) (thePM->binds[thePos].gm.theMatch)
+
+#define set_nth_pm_value(thePM,thePos,theVal) (thePM->binds[thePos].gm.theValue = (void *) theVal)
+#define set_nth_pm_match(thePM,thePos,theVal) (thePM->binds[thePos].gm.theMatch = theVal)
+
+#endif /* _H_match */
+
+
+
+
+
+