clipsruby 0.0.2

data/ext/clipsruby/multifun.h

@@ -0,0 +1,102 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.41  11/04/22            */
+   /*                                                     */
+   /*        MULTIFIELD_TYPE FUNCTIONS HEADER FILE        */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary Riley and Brian Dantes                          */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.23: Correction for FalseSymbol/TrueSymbol. DR0859  */
+/*                                                           */
+/*            Changed name of variable exp to theExp         */
+/*            because of Unix compiler warnings of shadowed  */
+/*            definitions.                                   */
+/*                                                           */
+/*      6.24: Renamed BOOLEAN macro type to intBool.         */
+/*                                                           */
+/*            Moved ImplodeMultifield to multifld.c.         */
+/*                                                           */
+/*      6.30: Changed integer type/precision.                */
+/*                                                           */
+/*            Support for long long integers.                */
+/*                                                           */
+/*            Changed garbage collection algorithm.          */
+/*                                                           */
+/*            Fixed memory leaks when error occurred.        */
+/*                                                           */
+/*            Added const qualifiers to remove C++           */
+/*            deprecation warnings.                          */
+/*                                                           */
+/*            Fixed linkage issue when DEFMODULE_CONSTRUCT   */
+/*            compiler flag is set to 0.                     */
+/*                                                           */
+/*      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.                                  */
+/*                                                           */
+/*      6.41: Added intersection$, union$, and difference$   */
+/*            functions.                                     */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_multifun
+
+#pragma once
+
+#define _H_multifun
+
+#include "evaluatn.h"
+
+#define VALUE_NOT_FOUND SIZE_MAX
+
+   void                    MultifieldFunctionDefinitions(Environment *);
+#if MULTIFIELD_FUNCTIONS
+   void                    DeleteFunction(Environment *,UDFContext *,UDFValue *);
+   void                    ReplaceFunction(Environment *,UDFContext *,UDFValue *);
+   void                    DeleteMemberFunction(Environment *,UDFContext *,UDFValue *);
+   void                    ReplaceMemberFunction(Environment *,UDFContext *,UDFValue *);
+   void                    InsertFunction(Environment *,UDFContext *,UDFValue *);
+   void                    ExplodeFunction(Environment *,UDFContext *,UDFValue *);
+   void                    ImplodeFunction(Environment *,UDFContext *,UDFValue *);
+   void                    SubseqFunction(Environment *,UDFContext *,UDFValue *);
+   void                    FirstFunction(Environment *,UDFContext *,UDFValue *);
+   void                    RestFunction(Environment *,UDFContext *,UDFValue *);
+   void                    NthFunction(Environment *,UDFContext *,UDFValue *);
+   void                    SubsetpFunction(Environment *,UDFContext *,UDFValue *);
+   void                    MemberFunction(Environment *,UDFContext *,UDFValue *);
+   void                    IntersectionFunction(Environment *,UDFContext *,UDFValue *);
+   void                    UnionFunction(Environment *,UDFContext *,UDFValue *);
+   void                    DifferenceFunction(Environment *,UDFContext *,UDFValue *);
+   void                    MultifieldPrognFunction(Environment *,UDFContext *,UDFValue *);
+   void                    ForeachFunction(Environment *,UDFContext *,UDFValue *);
+   void                    GetMvPrognField(Environment *,UDFContext *,UDFValue *);
+   void                    GetMvPrognIndex(Environment *,UDFContext *,UDFValue *);
+   bool                    FindDOsInSegment(UDFValue *,unsigned int,UDFValue *,
+                                            size_t *,size_t *,size_t *,unsigned int);
+#endif
+   bool                    ReplaceMultiValueFieldSizet(Environment *,UDFValue *,UDFValue *,
+                                                  size_t,size_t,UDFValue *,const char *);
+   bool                    InsertMultiValueField(Environment *,UDFValue *,UDFValue *,
+                                                 size_t,UDFValue *,const char *);
+   void                    MVRangeError(Environment *,long long,long long,size_t,const char *);
+   size_t                  FindValueInMultifield(UDFValue *,UDFValue *);
+
+#endif /* _H_multifun */
+

data/ext/clipsruby/network.h

@@ -0,0 +1,142 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.40  11/01/16             */
+   /*                                                     */
+   /*                 NETWORK HEADER FILE                 */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.30: Added support for hashed memories.             */
+/*                                                           */
+/*      6.40: Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_network
+
+#pragma once
+
+#define _H_network
+
+struct alphaMemoryHash;
+struct betaMemory;
+struct joinLink;
+struct joinNode;
+struct patternNodeHashEntry;
+typedef struct patternNodeHeader PatternNodeHeader;
+
+#include "entities.h"
+
+struct patternNodeHeader
+  {
+   struct alphaMemoryHash *firstHash;
+   struct alphaMemoryHash *lastHash;
+   struct joinNode *entryJoin;
+   Expression *rightHash;
+   unsigned int singlefieldNode : 1;
+   unsigned int multifieldNode : 1;
+   unsigned int stopNode : 1;
+   unsigned int initialize : 1;
+   unsigned int marked : 1;
+   unsigned int beginSlot : 1;
+   unsigned int endSlot : 1;
+   unsigned int selector : 1;
+  };
+
+#include "match.h"
+
+struct patternNodeHashEntry
+  {
+   void *parent;
+   void *child;
+   int type;
+   void *value;
+   struct patternNodeHashEntry *next;
+  };
+
+#define SIZE_PATTERN_HASH 16231
+
+struct alphaMemoryHash
+  {
+   unsigned long bucket;
+   struct patternNodeHeader *owner;
+   PartialMatch *alphaMemory;
+   PartialMatch *endOfQueue;
+   struct alphaMemoryHash *nextHash;
+   struct alphaMemoryHash *prevHash;
+   struct alphaMemoryHash *next;
+   struct alphaMemoryHash *prev;
+  };
+
+typedef struct alphaMemoryHash ALPHA_MEMORY_HASH;
+
+#ifndef _H_ruledef
+#include "ruledef.h"
+#endif
+
+#define INITIAL_BETA_HASH_SIZE 17
+
+struct betaMemory
+  {
+   unsigned long size;
+   unsigned long count;
+   struct partialMatch **beta;
+   struct partialMatch **last;
+  };
+
+struct joinLink
+  {
+   char enterDirection;
+   struct joinNode *join;
+   struct joinLink *next;
+   unsigned long bsaveID;
+  };
+
+struct joinNode
+  {
+   unsigned int firstJoin : 1;
+   unsigned int logicalJoin : 1;
+   unsigned int joinFromTheRight : 1;
+   unsigned int patternIsNegated : 1;
+   unsigned int patternIsExists : 1;
+   unsigned int initialize : 1;
+   unsigned int marked : 1;
+   unsigned int rhsType : 3;
+   unsigned int depth : 16;
+   unsigned long bsaveID;
+   long long memoryLeftAdds;
+   long long memoryRightAdds;
+   long long memoryLeftDeletes;
+   long long memoryRightDeletes;
+   long long memoryCompares;
+   struct betaMemory *leftMemory;
+   struct betaMemory *rightMemory;
+   Expression *networkTest;
+   Expression *secondaryNetworkTest;
+   Expression *leftHash;
+   Expression *rightHash;
+   void *rightSideEntryStructure;
+   struct joinLink *nextLinks;
+   struct joinNode *lastLevel;
+   struct joinNode *rightMatchNode;
+   Defrule *ruleToActivate;
+  };
+
+#endif /* _H_network */
+
+
+
+