clipsruby 0.0.2

data/ext/clipsruby/crstrtgy.h

@@ -0,0 +1,85 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  11/01/16            */
+   /*                                                     */
+   /*      CONFLICT RESOLUTION STRATEGY HEADER MODULE     */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Used to determine where a new activation is      */
+/*   placed on the agenda based on the current conflict      */
+/*   resolution strategy (depth, breadth, mea, lex,          */
+/*   simplicity, or complexity). Also provides the           */
+/*   set-strategy and get-strategy commands.                 */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.23: Corrected compilation errors for files         */
+/*            generated by constructs-to-c. DR0861           */
+/*                                                           */
+/*      6.24: Removed CONFLICT_RESOLUTION_STRATEGIES         */
+/*            compilation flag.                              */
+/*                                                           */
+/*      6.30: Added salience groups to improve performance   */
+/*            with large numbers of activations of different */
+/*            saliences.                                     */
+/*                                                           */
+/*            Removed pseudo-facts used for not CEs.         */
+/*                                                           */
+/*            Changed integer type/precision.                */
+/*                                                           */
+/*            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.       */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*            ALLOW_ENVIRONMENT_GLOBALS no longer supported. */
+/*                                                           */
+/*            UDF redesign.                                  */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_crstrtgy
+
+#pragma once
+
+#define _H_crstrtgy
+
+typedef enum
+  {
+   DEPTH_STRATEGY,
+   BREADTH_STRATEGY,
+   LEX_STRATEGY,
+   MEA_STRATEGY,
+   COMPLEXITY_STRATEGY,
+   SIMPLICITY_STRATEGY,
+   RANDOM_STRATEGY
+  } StrategyType;
+
+#include "agenda.h"
+#include "entities.h"
+
+#define DEFAULT_STRATEGY DEPTH_STRATEGY
+
+   void                           PlaceActivation(Environment *,Activation **,Activation *,struct salienceGroup *);
+   StrategyType                   SetStrategy(Environment *,StrategyType);
+   StrategyType                   GetStrategy(Environment *);
+   void                           SetStrategyCommand(Environment *,UDFContext *,UDFValue *);
+   void                           GetStrategyCommand(Environment *,UDFContext *,UDFValue *);
+
+#endif /* _H_crstrtgy */
+
+

data/ext/clipsruby/cstrcbin.c

@@ -0,0 +1,185 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.40  07/30/16             */
+   /*                                                     */
+   /*          CONSTRUCT BINARY LOAD/SAVE MODULE          */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Binary load/save functions for construct         */
+/*   headers.                                                */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Brian L. Dantes                                      */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      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
+
+#include "bload.h"
+#include "envrnmnt.h"
+
+#if BLOAD_AND_BSAVE
+#include "bsave.h"
+#endif
+
+#include "moduldef.h"
+
+#include "cstrcbin.h"
+
+#if BLOAD_AND_BSAVE
+
+/***************************************************
+  NAME         : MarkConstructHeaderNeededItems
+  DESCRIPTION  : Marks symbols and other ephemerals
+                 needed by a construct header, and
+                 sets the binary-save id for the
+                 construct
+  INPUTS       : 1) The construct header
+                 2) The binary-save id to assign
+  RETURNS      : Nothing useful
+  SIDE EFFECTS : Id set and items marked
+  NOTES        : None
+ ***************************************************/
+void MarkConstructHeaderNeededItems(
+  ConstructHeader *theConstruct,
+  unsigned long theBsaveID)
+  {
+   theConstruct->name->neededSymbol = true;
+   theConstruct->bsaveID = theBsaveID;
+  }
+
+/******************************************************
+  NAME         : AssignBsaveConstructHeaderVals
+  DESCRIPTION  : Assigns value to the construct
+                 header for saving in the binary file
+  INPUTS       : 1) The binary-save buffer for the
+                    construct header values
+                 2) The actual construct header
+  RETURNS      : Nothing useful
+  SIDE EFFECTS : Binary-save buffer for construct
+                 header written with appropriate values
+  NOTES        : Assumes that module items for this
+                 construct were saved in the same
+                 order as the defmodules.
+                 The defmodule binary-save id is
+                 used for the whichModule id of
+                 this construct.
+ ******************************************************/
+void AssignBsaveConstructHeaderVals(
+  struct bsaveConstructHeader *theBsaveConstruct,
+  ConstructHeader *theConstruct)
+  {
+   if (theConstruct->name != NULL)
+     { theBsaveConstruct->name = theConstruct->name->bucket; }
+   else
+     { theBsaveConstruct->name = ULONG_MAX; }
+   
+   if ((theConstruct->whichModule != NULL) &&
+       (theConstruct->whichModule->theModule != NULL))
+     { theBsaveConstruct->whichModule = theConstruct->whichModule->theModule->header.bsaveID; }
+   else
+     { theBsaveConstruct->whichModule = ULONG_MAX; }
+     
+   if (theConstruct->next != NULL)
+     theBsaveConstruct->next = theConstruct->next->bsaveID;
+   else
+     theBsaveConstruct->next = ULONG_MAX;
+  }
+
+#endif /* BLOAD_AND_BSAVE */
+
+/***************************************************
+  NAME         : UpdateConstructHeader
+  DESCRIPTION  : Determines field values for
+                 construct header from binary-load
+                 buffer
+  INPUTS       : 1) The binary-load data for the
+                    construct header
+                 2) The actual construct header
+                 3) The size of a defmodule item for
+                    this construct
+                 4) The array of all defmodule items
+                    for this construct
+                 5) The size of this construct
+                 6) The array of these constructs
+  RETURNS      : Nothing useful
+  SIDE EFFECTS : Header values set
+  NOTES        : None
+ ***************************************************/
+void UpdateConstructHeader(
+  Environment *theEnv,
+  struct bsaveConstructHeader *theBsaveConstruct,
+  ConstructHeader *theConstruct,
+  ConstructType theType,
+  size_t itemModuleSize,
+  void *itemModuleArray,
+  size_t itemSize,
+  void *itemArray)
+  {
+   size_t moduleOffset, itemOffset;
+
+   if (theBsaveConstruct->whichModule != ULONG_MAX)
+     {
+      moduleOffset = itemModuleSize * theBsaveConstruct->whichModule;
+      theConstruct->whichModule =
+        (struct defmoduleItemHeader *) &((char *) itemModuleArray)[moduleOffset];
+     }
+   else
+     { theConstruct->whichModule = NULL; }
+     
+   if (theBsaveConstruct->name != ULONG_MAX)
+     {
+      theConstruct->name = SymbolPointer(theBsaveConstruct->name);
+      IncrementLexemeCount(theConstruct->name);
+     }
+   else
+     { theConstruct->name = NULL; }
+     
+   if (theBsaveConstruct->next != ULONG_MAX)
+     {
+      itemOffset = itemSize * theBsaveConstruct->next;
+      theConstruct->next = (ConstructHeader *) &((char *) itemArray)[itemOffset];
+     }
+   else
+     { theConstruct->next = NULL; }
+
+   theConstruct->constructType = theType;
+   theConstruct->env = theEnv;
+   theConstruct->ppForm = NULL;
+   theConstruct->bsaveID = 0L;
+   theConstruct->usrData = NULL;
+  }
+
+/*******************************************************
+  NAME         : UnmarkConstructHeader
+  DESCRIPTION  : Releases any ephemerals (symbols, etc.)
+                 of a construct header for removal
+  INPUTS       : The construct header
+  RETURNS      : Nothing useful
+  SIDE EFFECTS : Busy counts fo ephemerals decremented
+  NOTES        : None
+ *******************************************************/
+void UnmarkConstructHeader(
+  Environment *theEnv,
+  ConstructHeader *theConstruct)
+  {
+   ReleaseLexeme(theEnv,theConstruct->name);
+  }
+
+#endif /* BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE */
+

data/ext/clipsruby/cstrcbin.h

@@ -0,0 +1,61 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  07/30/16            */
+   /*                                                     */
+   /*                                                     */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Brian L. Dantes                                      */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.40: Removed LOCALE definition.                     */
+/*                                                           */
+/*            Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_cstrcbin
+
+#pragma once
+
+#define _H_cstrcbin
+
+#if BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE
+
+struct bsaveConstructHeader
+  {
+   unsigned long name;
+   unsigned long whichModule;
+   unsigned long next;
+  };
+
+#include "constrct.h"
+
+#if BLOAD_AND_BSAVE
+void MarkConstructHeaderNeededItems(ConstructHeader *,unsigned long);
+void AssignBsaveConstructHeaderVals(struct bsaveConstructHeader *,
+                                    ConstructHeader *);
+#endif
+
+void UpdateConstructHeader(Environment *,struct bsaveConstructHeader *,
+                           ConstructHeader *,ConstructType,size_t,void *,size_t,void *);
+void UnmarkConstructHeader(Environment *,ConstructHeader *);
+
+#endif
+
+#endif
+
+
+
+

data/ext/clipsruby/cstrccmp.h

@@ -0,0 +1,43 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  06/20/16            */
+   /*                                                     */
+   /*           CONSTRUCT CONSTRUCTS-TO-C HEADER          */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*      Support functions for the constructs-to-c of         */
+/*      construct headers and related items.                 */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.30: Removed ANSI_COMPILER compilation flag.        */
+/*                                                           */
+/*      6.40: Removed LOCALE definition.                     */
+/*                                                           */
+/*            Pragma once and other inclusion changes.       */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_cstrccmp
+
+#pragma once
+
+#define _H_cstrccmp
+
+#include <stdio.h>
+
+   void                           MarkConstructHeaders(int);
+
+#endif /* _H_cstrccmp */
+
+
+
+