clipsruby 0.0.2

data/ext/clipsruby/conscomp.h

@@ -0,0 +1,150 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  07/30/16            */
+   /*                                                     */
+   /*           CONSTRUCT COMPILER HEADER FILE            */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.23: Modifications to use the system constant       */
+/*            FILENAME_MAX to check file name lengths.       */
+/*            DR0856                                         */
+/*                                                           */
+/*            Corrected compilation errors for files         */
+/*            generated by constructs-to-c. DR0861           */
+/*                                                           */
+/*      6.24: Used EnvClear rather than Clear in             */
+/*            InitCImage initialization code.                */
+/*                                                           */
+/*            Added environment parameter to GenClose.       */
+/*            Added environment parameter to GenOpen.        */
+/*                                                           */
+/*            Removed SHORT_LINK_NAMES code as this option   */
+/*            is no longer supported.                        */
+/*                                                           */
+/*            Support for run-time programs directly passing */
+/*            the hash tables for initialization.            */
+/*                                                           */
+/*      6.30: Added path name argument to constructs-to-c.   */
+/*                                                           */
+/*            Changed integer type/precision.                */
+/*                                                           */
+/*            Removed conditional code for unsupported       */
+/*            compilers/operating systems (IBM_MCW, MAC_MCW, */
+/*            IBM_TBC, IBM_MSC, IBM_ICB, IBM_ZTC, and        */
+/*            IBM_SC).                                       */
+/*                                                           */
+/*            Use genstrcpy instead of strcpy.               */
+/*                                                           */
+/*            Added const qualifiers to remove C++           */
+/*            deprecation warnings.                          */
+/*                                                           */
+/*      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_conscomp
+
+#pragma once
+
+#define _H_conscomp
+
+#define ArbitraryPrefix(codeItem,i)    (codeItem)->arrayNames[(i)]
+
+#define ModulePrefix(codeItem)         (codeItem)->arrayNames[0]
+#define ConstructPrefix(codeItem)      (codeItem)->arrayNames[1]
+
+#include <stdio.h>
+
+#include "constrct.h"
+#include "extnfunc.h"
+#include "symblcmp.h"
+#include "moduldef.h"
+
+#define CONSTRUCT_COMPILER_DATA 41
+
+struct CodeGeneratorItem
+  {
+   const char *name;
+   void (*beforeFunction)(Environment *);
+   void (*initFunction)(Environment *,FILE *,unsigned,unsigned);
+   bool (*generateFunction)(Environment *,const char *,const char *,char *,
+                            unsigned int,FILE *,unsigned int,unsigned int);
+   int priority;
+   char **arrayNames;
+   unsigned int arrayCount;
+   struct CodeGeneratorItem *next;
+  };
+
+struct constructCompilerData
+  {
+   unsigned ImageID;
+   FILE *HeaderFP;
+   unsigned MaxIndices;
+   FILE *ExpressionFP;
+   FILE *FixupFP;
+   const char *FilePrefix;
+   const char *PathName;
+   char *FileNameBuffer;
+   bool ExpressionHeader;
+   unsigned long ExpressionCount;
+   unsigned ExpressionVersion;
+   unsigned CodeGeneratorCount;
+   struct CodeGeneratorItem *ListOfCodeGeneratorItems;
+  };
+
+#define ConstructCompilerData(theEnv) ((struct constructCompilerData *) GetEnvironmentData(theEnv,CONSTRUCT_COMPILER_DATA))
+
+struct CodeGeneratorFile
+ {
+  const char *filePrefix;
+  const char *pathName;
+  char *fileNameBuffer;
+  unsigned int id;
+  unsigned int version;
+ };
+
+   void                      InitializeConstructCompilerData(Environment *);
+   void                      ConstructsToCCommandDefinition(Environment *);
+   FILE                     *NewCFile(Environment *,const char *,const char *,char *,unsigned,unsigned,bool);
+   int                       ExpressionToCode(Environment *,FILE *,struct expr *);
+   void                      PrintFunctionReference(Environment *,FILE *,struct functionDefinition *);
+   struct CodeGeneratorItem *AddCodeGeneratorItem(Environment *,const char *,int,
+                                                  void (*)(Environment *),
+                                                  void (*)(Environment *,FILE *,unsigned,unsigned),
+                                                  bool (*)(Environment *,const char *,const char *,char *,
+                                                           unsigned int,FILE *,unsigned int,unsigned int),
+                                                  unsigned);
+   FILE                     *CloseFileIfNeeded(Environment *,FILE *,unsigned int *,unsigned int *,unsigned int,
+                                               bool *,struct CodeGeneratorFile *);
+   FILE                     *OpenFileIfNeeded(Environment *,FILE *,const char *,const char *,char *,unsigned int,
+                                              unsigned int,unsigned int *,unsigned int,FILE *,const char *,char *,bool,struct CodeGeneratorFile *);
+   void                      MarkConstructBsaveIDs(Environment *,unsigned int);
+   void                      ConstructHeaderToCode(Environment *,FILE *,ConstructHeader *,unsigned int,
+                                                   unsigned int,unsigned int,const char *,const char *);
+   void                      ConstructModuleToCode(Environment *,FILE *,Defmodule *,unsigned int,
+                                                   unsigned int,unsigned int,const char *);
+   void                      PrintHashedExpressionReference(Environment *,FILE *,struct expr *,unsigned,unsigned);
+
+#endif
+
+
+
+

data/ext/clipsruby/constant.h

@@ -0,0 +1,264 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.41  04/08/23             */
+   /*                                                     */
+   /*                CONSTANTS HEADER FILE                */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose:                                                  */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.30: Moved default type constants (NO_DEFAULT,      */
+/*            STATIC_DEFAULT, and DYNAMIC_DEFAULT) to        */
+/*            constant.h                                     */
+/*                                                           */
+/*            Added DATA_OBJECT_ARRAY primitive type.        */
+/*                                                           */
+/*            Added NESTED_RHS constant.                     */
+/*                                                           */
+/*      6.40: Pragma once and other inclusion changes.       */
+/*                                                           */
+/*            Added support for booleans with <stdbool.h>.   */
+/*                                                           */
+/*            Removed use of void pointers for specific      */
+/*            data structures.                               */
+/*                                                           */
+/*            UDF redesign.                                  */
+/*                                                           */
+/*            Removed DATA_OBJECT_ARRAY primitive type.      */
+/*                                                           */
+/*************************************************************/
+
+#ifndef _H_constant
+
+#pragma once
+
+#define _H_constant
+
+#include <stdbool.h>
+#include <stdint.h>
+#include <limits.h>
+
+#define EXACTLY       0
+#define AT_LEAST      1
+#define NO_MORE_THAN  2
+#define RANGE         3
+
+#define UNBOUNDED    USHRT_MAX
+
+#define LHS           0
+#define RHS           1
+#define NESTED_RHS    2
+#define NEGATIVE      0
+#define POSITIVE      1
+#define EOS        '\0'
+
+#define INSIDE        0
+#define OUTSIDE       1
+
+#define LESS_THAN     0
+#define GREATER_THAN  1
+#define EQUAL         2
+
+typedef enum
+  {
+   LOCAL_SAVE,
+   VISIBLE_SAVE
+  } SaveScope;
+
+typedef enum
+  {
+   NO_DEFAULT,
+   STATIC_DEFAULT,
+   DYNAMIC_DEFAULT
+  } DefaultType;
+  
+typedef enum
+  {
+   PSE_NO_ERROR = 0,
+   PSE_NULL_POINTER_ERROR,
+   PSE_INVALID_TARGET_ERROR,
+   PSE_SLOT_NOT_FOUND_ERROR,
+   PSE_TYPE_ERROR,
+   PSE_RANGE_ERROR,
+   PSE_ALLOWED_VALUES_ERROR,
+   PSE_CARDINALITY_ERROR,
+   PSE_ALLOWED_CLASSES_ERROR,
+   PSE_EVALUATION_ERROR,
+   PSE_RULE_NETWORK_ERROR
+  } PutSlotError;
+
+typedef enum
+  {
+   GSE_NO_ERROR = 0,
+   GSE_NULL_POINTER_ERROR,
+   GSE_INVALID_TARGET_ERROR,
+   GSE_SLOT_NOT_FOUND_ERROR
+  } GetSlotError;
+
+#ifndef APPLICATION_NAME
+#define APPLICATION_NAME "CLIPS"
+#endif
+
+#ifndef COMMAND_PROMPT
+#define COMMAND_PROMPT "CLIPS> "
+#endif
+
+#ifndef VERSION_STRING
+#define VERSION_STRING "6.4.1"
+#endif
+
+#ifndef CREATION_DATE_STRING
+#define CREATION_DATE_STRING "4/8/23"
+#endif
+
+#ifndef BANNER_STRING
+#define BANNER_STRING "         CLIPS (6.4.1 4/8/23)\n"
+#endif
+
+/*************************/
+/* TOKEN AND TYPE VALUES */
+/*************************/
+
+#define OBJECT_TYPE_NAME               "OBJECT"
+#define USER_TYPE_NAME                 "USER"
+#define PRIMITIVE_TYPE_NAME            "PRIMITIVE"
+#define NUMBER_TYPE_NAME               "NUMBER"
+#define INTEGER_TYPE_NAME              "INTEGER"
+#define FLOAT_TYPE_NAME                "FLOAT"
+#define SYMBOL_TYPE_NAME               "SYMBOL"
+#define STRING_TYPE_NAME               "STRING"
+#define MULTIFIELD_TYPE_NAME           "MULTIFIELD"
+#define LEXEME_TYPE_NAME               "LEXEME"
+#define ADDRESS_TYPE_NAME              "ADDRESS"
+#define EXTERNAL_ADDRESS_TYPE_NAME     "EXTERNAL-ADDRESS"
+#define FACT_ADDRESS_TYPE_NAME         "FACT-ADDRESS"
+#define INSTANCE_TYPE_NAME             "INSTANCE"
+#define INSTANCE_NAME_TYPE_NAME        "INSTANCE-NAME"
+#define INSTANCE_ADDRESS_TYPE_NAME     "INSTANCE-ADDRESS"
+
+/*************************************************************************/
+/* The values of these constants should not be changed.  They are set to */
+/* start after the primitive type codes in CONSTANT.H.  These codes are  */
+/* used to let the generic function bsave image be used whether COOL is  */
+/* present or not.                                                       */
+/*************************************************************************/
+
+#define OBJECT_TYPE_CODE                9
+#define PRIMITIVE_TYPE_CODE            10
+#define NUMBER_TYPE_CODE               11
+#define LEXEME_TYPE_CODE               12
+#define ADDRESS_TYPE_CODE              13
+#define INSTANCE_TYPE_CODE             14
+
+typedef enum
+  {
+   FLOAT_BIT = (1 << 0),
+   INTEGER_BIT = (1 << 1),
+   SYMBOL_BIT = (1 << 2),
+   STRING_BIT = (1 << 3),
+   MULTIFIELD_BIT = (1 << 4),
+   EXTERNAL_ADDRESS_BIT = (1 << 5),
+   FACT_ADDRESS_BIT = (1 << 6),
+   INSTANCE_ADDRESS_BIT = (1 << 7),
+   INSTANCE_NAME_BIT = (1 << 8),
+   VOID_BIT = (1 << 9),
+   BOOLEAN_BIT = (1 << 10),
+  } CLIPSType;
+
+#define NUMBER_BITS (INTEGER_BIT | FLOAT_BIT)
+#define LEXEME_BITS (SYMBOL_BIT | STRING_BIT | BOOLEAN_BIT)
+#define ADDRESS_BITS (EXTERNAL_ADDRESS_BIT | FACT_ADDRESS_BIT | INSTANCE_ADDRESS_BIT)
+#define INSTANCE_BITS (INSTANCE_ADDRESS_BIT | INSTANCE_NAME_BIT)
+#define SINGLEFIELD_BITS (NUMBER_BITS | LEXEME_BITS | ADDRESS_BITS | INSTANCE_NAME_BIT)
+#define ANY_TYPE_BITS (VOID_BIT | SINGLEFIELD_BITS | MULTIFIELD_BIT)
+
+/****************************************************/
+/* The first 9 primitive types need to retain their */
+/* values!! Sorted arrays depend on their values!!  */
+/****************************************************/
+
+#define FLOAT_TYPE                      0
+#define INTEGER_TYPE                    1
+#define SYMBOL_TYPE                     2
+#define STRING_TYPE                     3
+#define MULTIFIELD_TYPE                 4
+#define EXTERNAL_ADDRESS_TYPE           5
+#define FACT_ADDRESS_TYPE               6
+#define INSTANCE_ADDRESS_TYPE           7
+#define INSTANCE_NAME_TYPE              8
+
+#define VOID_TYPE                       9
+
+#define BITMAP_TYPE                    11
+
+#define FCALL                          30
+#define GCALL                          31
+#define PCALL                          32
+#define GBL_VARIABLE                   33
+#define MF_GBL_VARIABLE                34
+
+#define SF_VARIABLE                    35
+#define MF_VARIABLE                    36
+#define BITMAPARRAY                    39
+
+#define FACT_PN_CMP1                   50
+#define FACT_JN_CMP1                   51
+#define FACT_JN_CMP2                   52
+#define FACT_SLOT_LENGTH               53
+#define FACT_PN_VAR1                   54
+#define FACT_PN_VAR2                   55
+#define FACT_PN_VAR3                   56
+#define FACT_JN_VAR1                   57
+#define FACT_JN_VAR2                   58
+#define FACT_JN_VAR3                   59
+#define FACT_PN_CONSTANT1              60
+#define FACT_PN_CONSTANT2              61
+#define FACT_STORE_MULTIFIELD          62
+#define DEFTEMPLATE_PTR                63
+
+#define OBJ_GET_SLOT_PNVAR1            70
+#define OBJ_GET_SLOT_PNVAR2            71
+#define OBJ_GET_SLOT_JNVAR1            72
+#define OBJ_GET_SLOT_JNVAR2            73
+#define OBJ_SLOT_LENGTH                74
+#define OBJ_PN_CONSTANT                75
+#define OBJ_PN_CMP1                    76
+#define OBJ_JN_CMP1                    77
+#define OBJ_PN_CMP2                    78
+#define OBJ_JN_CMP2                    79
+#define OBJ_PN_CMP3                    80
+#define OBJ_JN_CMP3                    81
+#define DEFCLASS_PTR                   82
+#define HANDLER_GET                    83
+#define HANDLER_PUT                    84
+
+#define DEFGLOBAL_PTR                  90
+
+#define PROC_PARAM                     95
+#define PROC_WILD_PARAM                96
+#define PROC_GET_BIND                  97
+#define PROC_BIND                      98
+
+#define UNKNOWN_VALUE                 173
+
+#define INTEGER_OR_FLOAT              180
+#define SYMBOL_OR_STRING              181
+#define INSTANCE_OR_INSTANCE_NAME     182
+
+/*************************/
+/* Macintosh Definitions */
+/*************************/
+
+#define CREATOR_STRING "CLIS"
+#define CREATOR_CODE   'CLIS'
+
+#endif