clipsruby 0.0.2

data/ext/clipsruby/tmpltbin.h

@@ -0,0 +1,108 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  07/30/16            */
+   /*                                                     */
+   /*         DEFTEMPLATE BSAVE/BLOAD HEADER FILE         */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*      Brian L. Dantes                                      */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.23: Added support for templates maintaining their  */
+/*            own list of facts.                             */
+/*                                                           */
+/*      6.30: Changed integer type/precision.                */
+/*                                                           */
+/*            Support for deftemplate slot facets.           */
+/*                                                           */
+/*      6.40: Removed LOCALE definition.                     */
+/*                                                           */
+/*            Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_tmpltbin
+
+#pragma once
+
+#define _H_tmpltbin
+
+#if (! RUN_TIME)
+
+struct bsaveTemplateSlot
+  {
+   unsigned long slotName;
+   unsigned int multislot : 1;
+   unsigned int noDefault : 1;
+   unsigned int defaultPresent : 1;
+   unsigned int defaultDynamic : 1;
+   unsigned long constraints;
+   unsigned long defaultList;
+   unsigned long facetList;
+   unsigned long next;
+  };
+
+struct bsaveDeftemplate;
+struct bsaveDeftemplateModule;
+
+#include "cstrcbin.h"
+
+struct bsaveDeftemplate
+  {
+   struct bsaveConstructHeader header;
+   unsigned long slotList;
+   unsigned int implied : 1;
+   unsigned int numberOfSlots : 15;
+   unsigned long patternNetwork;
+  };
+
+#include "modulbin.h"
+
+struct bsaveDeftemplateModule
+  {
+   struct bsaveDefmoduleItemHeader header;
+  };
+
+#define TMPLTBIN_DATA 61
+
+#include "tmpltdef.h"
+
+struct deftemplateBinaryData
+  {
+   Deftemplate *DeftemplateArray;
+   unsigned long NumberOfDeftemplates;
+   unsigned long NumberOfTemplateSlots;
+   unsigned long NumberOfTemplateModules;
+   struct templateSlot *SlotArray;
+   struct deftemplateModule *ModuleArray;
+  };
+
+#define DeftemplateBinaryData(theEnv) ((struct deftemplateBinaryData *) GetEnvironmentData(theEnv,TMPLTBIN_DATA))
+
+#define DeftemplatePointer(i) ((Deftemplate *) (&DeftemplateBinaryData(theEnv)->DeftemplateArray[i]))
+
+#ifndef _H_tmpltdef
+#include "tmpltdef.h"
+#endif
+
+   void                           DeftemplateBinarySetup(Environment *);
+   void                          *BloadDeftemplateModuleReference(Environment *,unsigned long);
+
+#endif /* (! RUN_TIME) */
+
+#endif /* _H_tmpltbin */
+
+
+

data/ext/clipsruby/tmpltbsc.c

@@ -0,0 +1,327 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.40  07/02/18             */
+   /*                                                     */
+   /*          DEFTEMPLATE BASIC COMMANDS MODULE          */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Implements core commands for the deftemplate     */
+/*   construct such as clear, reset, save, undeftemplate,    */
+/*   ppdeftemplate, list-deftemplates, and                   */
+/*   get-deftemplate-list.                                   */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*      Brian L. Dantes                                      */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.23: Corrected compilation errors for files         */
+/*            generated by constructs-to-c. DR0861           */
+/*                                                           */
+/*            Changed name of variable log to logName        */
+/*            because of Unix compiler warnings of shadowed  */
+/*            definitions.                                   */
+/*                                                           */
+/*      6.24: Renamed BOOLEAN macro type to intBool.         */
+/*                                                           */
+/*            Corrected code to remove compiler warnings     */
+/*            when ENVIRONMENT_API_ONLY flag is set.         */
+/*                                                           */
+/*      6.30: Removed conditional code for unsupported       */
+/*            compilers/operating systems (IBM_MCW,          */
+/*            MAC_MCW, and IBM_TBC).                         */
+/*                                                           */
+/*            Added const qualifiers to remove C++           */
+/*            deprecation warnings.                          */
+/*                                                           */
+/*            Converted API macros to function calls.        */
+/*                                                           */
+/*      6.40: 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.                                  */
+/*                                                           */
+/*            Removed initial-fact support.                  */
+/*                                                           */
+/*            Pretty print functions accept optional logical */
+/*            name argument.                                 */
+/*                                                           */
+/*************************************************************/
+
+#include "setup.h"
+
+#if DEFTEMPLATE_CONSTRUCT
+
+#include <stdio.h>
+#include <string.h>
+
+#include "argacces.h"
+#include "constrct.h"
+#include "cstrccom.h"
+#include "cstrcpsr.h"
+#include "envrnmnt.h"
+#include "extnfunc.h"
+#include "factrhs.h"
+#include "memalloc.h"
+#include "multifld.h"
+#include "router.h"
+#include "scanner.h"
+#if BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE
+#include "tmpltbin.h"
+#endif
+#if CONSTRUCT_COMPILER && (! RUN_TIME)
+#include "tmpltcmp.h"
+#endif
+#include "tmpltdef.h"
+#include "tmpltpsr.h"
+#include "tmpltutl.h"
+
+#include "tmpltbsc.h"
+
+/***************************************/
+/* LOCAL INTERNAL FUNCTION DEFINITIONS */
+/***************************************/
+
+   static void                    SaveDeftemplates(Environment *,Defmodule *,const char *,void *);
+
+/*********************************************************************/
+/* DeftemplateBasicCommands: Initializes basic deftemplate commands. */
+/*********************************************************************/
+void DeftemplateBasicCommands(
+  Environment *theEnv)
+  {
+   AddSaveFunction(theEnv,"deftemplate",SaveDeftemplates,10,NULL);
+
+#if ! RUN_TIME
+   AddUDF(theEnv,"get-deftemplate-list","m",0,1,"y",GetDeftemplateListFunction,"GetDeftemplateListFunction",NULL);
+   AddUDF(theEnv,"undeftemplate","v",1,1,"y",UndeftemplateCommand,"UndeftemplateCommand",NULL);
+   AddUDF(theEnv,"deftemplate-module","y",1,1,"y",DeftemplateModuleFunction,"DeftemplateModuleFunction",NULL);
+
+#if DEBUGGING_FUNCTIONS
+   AddUDF(theEnv,"list-deftemplates","v",0,1,"y",ListDeftemplatesCommand,"ListDeftemplatesCommand",NULL);
+   AddUDF(theEnv,"ppdeftemplate","vs",1,2,";y;ldsyn",PPDeftemplateCommand,"PPDeftemplateCommand",NULL);
+#endif
+
+#if (BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE)
+   DeftemplateBinarySetup(theEnv);
+#endif
+
+#if CONSTRUCT_COMPILER && (! RUN_TIME)
+   DeftemplateCompilerSetup(theEnv);
+#endif
+
+#endif
+  }
+
+/**********************************************/
+/* SaveDeftemplates: Deftemplate save routine */
+/*   for use with the save command.           */
+/**********************************************/
+static void SaveDeftemplates(
+  Environment *theEnv,
+  Defmodule *theModule,
+  const char *logicalName,
+  void *context)
+  {
+   SaveConstruct(theEnv,theModule,logicalName,DeftemplateData(theEnv)->DeftemplateConstruct);
+  }
+
+/**********************************************/
+/* UndeftemplateCommand: H/L access routine   */
+/*   for the undeftemplate command.           */
+/**********************************************/
+void UndeftemplateCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   UndefconstructCommand(context,"undeftemplate",DeftemplateData(theEnv)->DeftemplateConstruct);
+  }
+
+/************************************/
+/* Undeftemplate: C access routine  */
+/*   for the undeftemplate command. */
+/************************************/
+bool Undeftemplate(
+  Deftemplate *theDeftemplate,
+  Environment *allEnv)
+  {
+   Environment *theEnv;
+   
+   if (theDeftemplate == NULL)
+     {
+      theEnv = allEnv;
+      return Undefconstruct(theEnv,NULL,DeftemplateData(theEnv)->DeftemplateConstruct);
+     }
+   else
+     {
+      theEnv = theDeftemplate->header.env;
+      return Undefconstruct(theEnv,&theDeftemplate->header,DeftemplateData(theEnv)->DeftemplateConstruct);
+     }
+  }
+
+/****************************************************/
+/* GetDeftemplateListFunction: H/L access routine   */
+/*   for the get-deftemplate-list function.         */
+/****************************************************/
+void GetDeftemplateListFunction(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   GetConstructListFunction(context,returnValue,DeftemplateData(theEnv)->DeftemplateConstruct);
+  }
+
+/********************************************/
+/* GetDeftemplateList: C access routine for */
+/*   the get-deftemplate-list function.     */
+/********************************************/
+void GetDeftemplateList(
+  Environment *theEnv,
+  CLIPSValue *returnValue,
+  Defmodule *theModule)
+  {
+   UDFValue result;
+   
+   GetConstructList(theEnv,&result,DeftemplateData(theEnv)->DeftemplateConstruct,theModule);
+   NormalizeMultifield(theEnv,&result);
+   returnValue->value = result.value;
+  }
+
+/***************************************************/
+/* DeftemplateModuleFunction: H/L access routine   */
+/*   for the deftemplate-module function.          */
+/***************************************************/
+void DeftemplateModuleFunction(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   returnValue->value = GetConstructModuleCommand(context,"deftemplate-module",DeftemplateData(theEnv)->DeftemplateConstruct);
+  }
+
+#if DEBUGGING_FUNCTIONS
+
+/**********************************************/
+/* PPDeftemplateCommand: H/L access routine   */
+/*   for the ppdeftemplate command.           */
+/**********************************************/
+void PPDeftemplateCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   PPConstructCommand(context,"ppdeftemplate",DeftemplateData(theEnv)->DeftemplateConstruct,returnValue);
+  }
+
+/***************************************/
+/* PPDeftemplate: C access routine for */
+/*   the ppdeftemplate command.        */
+/***************************************/
+bool PPDeftemplate(
+  Environment *theEnv,
+  const char *deftemplateName,
+  const char *logicalName)
+  {
+   return(PPConstruct(theEnv,deftemplateName,logicalName,DeftemplateData(theEnv)->DeftemplateConstruct));
+  }
+
+/*************************************************/
+/* ListDeftemplatesCommand: H/L access routine   */
+/*   for the list-deftemplates command.          */
+/*************************************************/
+void ListDeftemplatesCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   ListConstructCommand(context,DeftemplateData(theEnv)->DeftemplateConstruct);
+  }
+
+/****************************************/
+/* ListDeftemplates: C access routine   */
+/*   for the list-deftemplates command. */
+/****************************************/
+void ListDeftemplates(
+  Environment *theEnv,
+  const char *logicalName,
+  Defmodule *theModule)
+  {
+   ListConstruct(theEnv,DeftemplateData(theEnv)->DeftemplateConstruct,logicalName,theModule);
+  }
+
+/********************************************************/
+/* DeftemplateGetWatch: C access routine for retrieving */
+/*   the current watch value of a deftemplate.          */
+/********************************************************/
+bool DeftemplateGetWatch(
+  Deftemplate *theTemplate)
+  {
+   return theTemplate->watch;
+  }
+
+/******************************************************/
+/* DeftemplateSetWatch:  C access routine for setting */
+/*   the current watch value of a deftemplate.        */
+/******************************************************/
+void DeftemplateSetWatch(
+  Deftemplate *theTemplate,
+  bool newState)
+  {
+   theTemplate->watch = newState;
+  }
+
+/**********************************************************/
+/* DeftemplateWatchAccess: Access routine for setting the */
+/*   watch flag of a deftemplate via the watch command.   */
+/**********************************************************/
+bool DeftemplateWatchAccess(
+  Environment *theEnv,
+  int code,
+  bool newState,
+  Expression *argExprs)
+  {
+#if MAC_XCD
+#pragma unused(code)
+#endif
+
+   return ConstructSetWatchAccess(theEnv,DeftemplateData(theEnv)->DeftemplateConstruct,newState,argExprs,
+                                  (ConstructGetWatchFunction *) DeftemplateGetWatch,
+                                  (ConstructSetWatchFunction *) DeftemplateSetWatch);
+  }
+
+/*************************************************************************/
+/* DeftemplateWatchPrint: Access routine for printing which deftemplates */
+/*   have their watch flag set via the list-watch-items command.         */
+/*************************************************************************/
+bool DeftemplateWatchPrint(
+  Environment *theEnv,
+  const char *logName,
+  int code,
+  Expression *argExprs)
+  {
+#if MAC_XCD
+#pragma unused(code)
+#endif
+
+   return ConstructPrintWatchAccess(theEnv,DeftemplateData(theEnv)->DeftemplateConstruct,logName,argExprs,
+                                    (ConstructGetWatchFunction *) DeftemplateGetWatch,
+                                    (ConstructSetWatchFunction *) DeftemplateSetWatch);
+  }
+
+#endif /* DEBUGGING_FUNCTIONS */
+
+#endif /* DEFTEMPLATE_CONSTRUCT */
+
+

data/ext/clipsruby/tmpltbsc.h

@@ -0,0 +1,87 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  08/25/16            */
+   /*                                                     */
+   /*       DEFTEMPLATE BASIC COMMANDS HEADER FILE        */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Implements core commands for the deftemplate     */
+/*   construct such as clear, reset, save, undeftemplate,    */
+/*   ppdeftemplate, list-deftemplates, and                   */
+/*   get-deftemplate-list.                                   */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*      Brian L. Dantes                                      */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.23: Corrected compilation errors for files         */
+/*            generated by constructs-to-c. DR0861           */
+/*                                                           */
+/*            Changed name of variable log to logName        */
+/*            because of Unix compiler warnings of shadowed  */
+/*            definitions.                                   */
+/*                                                           */
+/*      6.24: Renamed BOOLEAN macro type to intBool.         */
+/*                                                           */
+/*            Corrected code to remove compiler warnings     */
+/*            when ENVIRONMENT_API_ONLY flag is set.         */
+/*                                                           */
+/*      6.30: Removed conditional code for unsupported       */
+/*            compilers/operating systems (IBM_MCW,          */
+/*            MAC_MCW, and IBM_TBC).                         */
+/*                                                           */
+/*            Added const qualifiers to remove C++           */
+/*            deprecation warnings.                          */
+/*                                                           */
+/*            Converted API macros to function calls.        */
+/*                                                           */
+/*      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_tmpltbsc
+
+#pragma once
+
+#define _H_tmpltbsc
+
+#include "evaluatn.h"
+#include "tmpltdef.h"
+
+   void                           DeftemplateBasicCommands(Environment *);
+   void                           UndeftemplateCommand(Environment *,UDFContext *,UDFValue *);
+   bool                           Undeftemplate(Deftemplate *,Environment *);
+   void                           GetDeftemplateListFunction(Environment *,UDFContext *,UDFValue *);
+   void                           GetDeftemplateList(Environment *,CLIPSValue *,Defmodule *);
+   void                           DeftemplateModuleFunction(Environment *,UDFContext *,UDFValue *);
+#if DEBUGGING_FUNCTIONS
+   void                           PPDeftemplateCommand(Environment *,UDFContext *,UDFValue *);
+   bool                           PPDeftemplate(Environment *,const char *,const char *);
+   void                           ListDeftemplatesCommand(Environment *,UDFContext *,UDFValue *);
+   void                           ListDeftemplates(Environment *,const char *,Defmodule *);
+   bool                           DeftemplateGetWatch(Deftemplate *);
+   void                           DeftemplateSetWatch(Deftemplate *,bool);
+   bool                           DeftemplateWatchAccess(Environment *,int,bool,struct expr *);
+   bool                           DeftemplateWatchPrint(Environment *,const char *,int,struct expr *);
+#endif
+
+#endif /* _H_tmpltbsc */
+
+