clipsruby 0.0.2

data/ext/clipsruby/dffctbsc.c

@@ -0,0 +1,308 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.40  07/02/18             */
+   /*                                                     */
+   /*         DEFFACTS BASIC COMMANDS HEADER FILE         */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Implements core commands for the deffacts        */
+/*   construct such as clear, reset, save, undeffacts,       */
+/*   ppdeffacts, list-deffacts, and get-deffacts-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           */
+/*                                                           */
+/*      6.24: Renamed BOOLEAN macro type to intBool.         */
+/*                                                           */
+/*      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.        */
+/*                                                           */
+/*            Changed find construct functionality so that   */
+/*            imported modules are search when locating a    */
+/*            named construct.                               */
+/*                                                           */
+/*      6.40: Added Env prefix to GetEvaluationError and     */
+/*            SetEvaluationError functions.                  */
+/*                                                           */
+/*            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 DEFFACTS_CONSTRUCT
+
+#include <stdio.h>
+#include <string.h>
+
+#include "argacces.h"
+#include "constrct.h"
+#include "cstrccom.h"
+#include "cstrcpsr.h"
+#include "dffctdef.h"
+#include "dffctpsr.h"
+#include "envrnmnt.h"
+#include "extnfunc.h"
+#include "factrhs.h"
+#include "memalloc.h"
+#include "multifld.h"
+#include "router.h"
+#include "scanner.h"
+#include "tmpltdef.h"
+
+#if BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE
+#include "dffctbin.h"
+#endif
+#if CONSTRUCT_COMPILER && (! RUN_TIME)
+#include "dffctcmp.h"
+#endif
+
+#include "dffctbsc.h"
+
+/***************************************/
+/* LOCAL INTERNAL FUNCTION DEFINITIONS */
+/***************************************/
+
+   static void                    ResetDeffacts(Environment *,void *);
+   static void                    SaveDeffacts(Environment *,Defmodule *,const char *,void *);
+   static void                    ResetDeffactsAction(Environment *,ConstructHeader *,void *);
+
+/***************************************************************/
+/* DeffactsBasicCommands: Initializes basic deffacts commands. */
+/***************************************************************/
+void DeffactsBasicCommands(
+  Environment *theEnv)
+  {
+   AddResetFunction(theEnv,"deffacts",ResetDeffacts,0,NULL);
+   AddSaveFunction(theEnv,"deffacts",SaveDeffacts,10,NULL);
+
+#if ! RUN_TIME
+   AddUDF(theEnv,"get-deffacts-list","m",0,1,"y",GetDeffactsListFunction,"GetDeffactsListFunction",NULL);
+   AddUDF(theEnv,"undeffacts","v",1,1,"y",UndeffactsCommand,"UndeffactsCommand",NULL);
+   AddUDF(theEnv,"deffacts-module","y",1,1,"y",DeffactsModuleFunction,"DeffactsModuleFunction",NULL);
+
+#if DEBUGGING_FUNCTIONS
+   AddUDF(theEnv,"list-deffacts","v",0,1,"y",ListDeffactsCommand,"ListDeffactsCommand",NULL);
+   AddUDF(theEnv,"ppdeffacts","vs",1,2,";y;ldsyn",PPDeffactsCommand,"PPDeffactsCommand",NULL);
+#endif
+
+#if (BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE)
+   DeffactsBinarySetup(theEnv);
+#endif
+
+#if CONSTRUCT_COMPILER && (! RUN_TIME)
+   DeffactsCompilerSetup(theEnv);
+#endif
+
+#endif
+  }
+
+/**********************************************************/
+/* ResetDeffacts: Deffacts reset routine for use with the */
+/*   reset command. Asserts all of the facts contained in */
+/*   deffacts constructs.                                 */
+/**********************************************************/
+static void ResetDeffacts(
+  Environment *theEnv,
+  void *context)
+  {
+   DoForAllConstructs(theEnv,
+                      ResetDeffactsAction,
+                      DeffactsData(theEnv)->DeffactsModuleIndex,
+                      true,NULL);
+  }
+
+/*****************************************************/
+/* ResetDeffactsAction: Action to be applied to each */
+/*   deffacts construct during a reset command.      */
+/*****************************************************/
+static void ResetDeffactsAction(
+  Environment *theEnv,
+  ConstructHeader *theConstruct,
+  void *buffer)
+  {
+#if MAC_XCD
+#pragma unused(buffer)
+#endif
+   UDFValue returnValue;
+   Deffacts *theDeffacts = (Deffacts *) theConstruct;
+
+   if (theDeffacts->assertList == NULL) return;
+
+   SetEvaluationError(theEnv,false);
+
+   EvaluateExpression(theEnv,theDeffacts->assertList,&returnValue);
+  }
+
+/***************************************/
+/* SaveDeffacts: Deffacts save routine */
+/*   for use with the save command.    */
+/***************************************/
+static void SaveDeffacts(
+  Environment *theEnv,
+  Defmodule *theModule,
+  const char *logicalName,
+  void *context)
+  {
+   SaveConstruct(theEnv,theModule,logicalName,DeffactsData(theEnv)->DeffactsConstruct);
+  }
+
+/*******************************************/
+/* UndeffactsCommand: H/L access routine   */
+/*   for the undeffacts command.           */
+/*******************************************/
+void UndeffactsCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   UndefconstructCommand(context,"undeffacts",DeffactsData(theEnv)->DeffactsConstruct);
+  }
+
+/*********************************/
+/* Undeffacts: C access routine  */
+/*   for the undeffacts command. */
+/*********************************/
+bool Undeffacts(
+  Deffacts *theDeffacts,
+  Environment *allEnv)
+  {
+   Environment *theEnv;
+   
+   if (theDeffacts == NULL)
+     {
+      theEnv = allEnv;
+      return Undefconstruct(theEnv,NULL,DeffactsData(theEnv)->DeffactsConstruct);
+     }
+   else
+     {
+      theEnv = theDeffacts->header.env;
+      return Undefconstruct(theEnv,&theDeffacts->header,DeffactsData(theEnv)->DeffactsConstruct);
+     }
+  }
+
+/*************************************************/
+/* GetDeffactsListFunction: H/L access routine   */
+/*   for the get-deffacts-list function.         */
+/*************************************************/
+void GetDeffactsListFunction(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   GetConstructListFunction(context,returnValue,DeffactsData(theEnv)->DeffactsConstruct);
+  }
+
+/*****************************************/
+/* GetDeffactsList: C access routine     */
+/*   for the get-deffacts-list function. */
+/*****************************************/
+void GetDeffactsList(
+  Environment *theEnv,
+  CLIPSValue *returnValue,
+  Defmodule *theModule)
+  {
+   UDFValue result;
+   
+   GetConstructList(theEnv,&result,DeffactsData(theEnv)->DeffactsConstruct,theModule);
+   NormalizeMultifield(theEnv,&result);
+   returnValue->value = result.value;
+  }
+
+/************************************************/
+/* DeffactsModuleFunction: H/L access routine   */
+/*   for the deffacts-module function.          */
+/************************************************/
+void DeffactsModuleFunction(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   returnValue->value = GetConstructModuleCommand(context,"deffacts-module",DeffactsData(theEnv)->DeffactsConstruct);
+  }
+
+#if DEBUGGING_FUNCTIONS
+
+/*******************************************/
+/* PPDeffactsCommand: H/L access routine   */
+/*   for the ppdeffacts command.           */
+/*******************************************/
+void PPDeffactsCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   PPConstructCommand(context,"ppdeffacts",DeffactsData(theEnv)->DeffactsConstruct,returnValue);
+  }
+
+/************************************/
+/* PPDeffacts: C access routine for */
+/*   the ppdeffacts command.        */
+/************************************/
+bool PPDeffacts(
+  Environment *theEnv,
+  const char *deffactsName,
+  const char *logicalName)
+  {
+   return(PPConstruct(theEnv,deffactsName,logicalName,DeffactsData(theEnv)->DeffactsConstruct));
+  }
+
+/*********************************************/
+/* ListDeffactsCommand: H/L access routine   */
+/*   for the list-deffacts command.          */
+/*********************************************/
+void ListDeffactsCommand(
+  Environment *theEnv,
+  UDFContext *context,
+  UDFValue *returnValue)
+  {
+   ListConstructCommand(context,DeffactsData(theEnv)->DeffactsConstruct);
+  }
+
+/************************************/
+/* ListDeffacts: C access routine   */
+/*   for the list-deffacts command. */
+/************************************/
+void ListDeffacts(
+  Environment *theEnv,
+  const char *logicalName,
+  Defmodule *theModule)
+  {
+   ListConstruct(theEnv,DeffactsData(theEnv)->DeffactsConstruct,logicalName,theModule);
+  }
+
+#endif /* DEBUGGING_FUNCTIONS */
+
+#endif /* DEFFACTS_CONSTRUCT */
+
+

data/ext/clipsruby/dffctbsc.h

@@ -0,0 +1,72 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*             CLIPS Version 6.40  08/25/16            */
+   /*                                                     */
+   /*         DEFFACTS BASIC COMMANDS HEADER FILE         */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Implements core commands for the deffacts        */
+/*   construct such as clear, reset, save, undeffacts,       */
+/*   ppdeffacts, list-deffacts, and get-deffacts-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           */
+/*                                                           */
+/*      6.24: Renamed BOOLEAN macro type to intBool.         */
+/*                                                           */
+/*      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_dffctbsc
+
+#pragma once
+
+#define _H_dffctbsc
+
+#include "dffctdef.h"
+#include "evaluatn.h"
+
+   void                           DeffactsBasicCommands(Environment *);
+   void                           UndeffactsCommand(Environment *,UDFContext *,UDFValue *);
+   bool                           Undeffacts(Deffacts *,Environment *);
+   void                           GetDeffactsListFunction(Environment *,UDFContext *,UDFValue *);
+   void                           GetDeffactsList(Environment *,CLIPSValue *,Defmodule *);
+   void                           DeffactsModuleFunction(Environment *,UDFContext *,UDFValue *);
+   void                           PPDeffactsCommand(Environment *,UDFContext *,UDFValue *);
+   bool                           PPDeffacts(Environment *,const char *,const char *);
+   void                           ListDeffactsCommand(Environment *,UDFContext *,UDFValue *);
+   void                           ListDeffacts(Environment *,const char *,Defmodule *);
+
+#endif /* _H_dffctbsc */
+

data/ext/clipsruby/dffctcmp.c

@@ -0,0 +1,297 @@
+   /*******************************************************/
+   /*      "C" Language Integrated Production System      */
+   /*                                                     */
+   /*            CLIPS Version 6.40  07/30/16             */
+   /*                                                     */
+   /*            DEFFACTS CONSTRUCTS-TO-C MODULE          */
+   /*******************************************************/
+
+/*************************************************************/
+/* Purpose: Implements the constructs-to-c feature for the   */
+/*    deffacts construct.                                    */
+/*                                                           */
+/* Principal Programmer(s):                                  */
+/*      Gary D. Riley                                        */
+/*                                                           */
+/* Contributing Programmer(s):                               */
+/*      Brian L. Dantes                                      */
+/*                                                           */
+/* Revision History:                                         */
+/*                                                           */
+/*      6.30: Added support for path name argument to        */
+/*            constructs-to-c.                               */
+/*                                                           */
+/*            Removed conditional code for unsupported       */
+/*            compilers/operating systems (IBM_MCW,          */
+/*            MAC_MCW, and IBM_TBC).                         */
+/*                                                           */
+/*            Added const qualifiers to remove C++           */
+/*            deprecation warnings.                          */
+/*                                                           */
+/*      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 DEFFACTS_CONSTRUCT && CONSTRUCT_COMPILER && (! RUN_TIME)
+
+#include <stdio.h>
+
+#include "conscomp.h"
+#include "dffctdef.h"
+#include "envrnmnt.h"
+
+#include "dffctcmp.h"
+
+/***************************************/
+/* LOCAL INTERNAL FUNCTION DEFINITIONS */
+/***************************************/
+
+   static bool                    ConstructToCode(Environment *,const char *,const char *,char *,
+                                                  unsigned int,FILE *,unsigned int,unsigned int);
+   static void                    DeffactsToCode(Environment *,FILE *,Deffacts *,
+                                                 unsigned int,unsigned int,unsigned int);
+   static void                    DeffactsModuleToCode(Environment *,FILE *,Defmodule *,
+                                                       unsigned int,unsigned int,unsigned int);
+   static void                    CloseDeffactsFiles(Environment *,FILE *,FILE *,unsigned int);
+   static void                    BeforeDeffactsToCode(Environment *);
+   static void                    InitDeffactsCode(Environment *,FILE *,unsigned,unsigned int);
+
+/*************************************************************/
+/* DeffactsCompilerSetup: Initializes the deffacts construct */
+/*    for use with the constructs-to-c command.              */
+/*************************************************************/
+void DeffactsCompilerSetup(
+  Environment *theEnv)
+  {
+   DeffactsData(theEnv)->DeffactsCodeItem =
+      AddCodeGeneratorItem(theEnv,"deffacts",0,BeforeDeffactsToCode,
+                           InitDeffactsCode,ConstructToCode,2);
+  }
+
+/*************************************************************/
+/* BeforeDeffactsToCode: Assigns each deffacts a unique ID   */
+/*   which will be used for pointer references when the data */
+/*   structures are written to a file as C code              */
+/*************************************************************/
+static void BeforeDeffactsToCode(
+  Environment *theEnv)
+  {
+   MarkConstructBsaveIDs(theEnv,DeffactsData(theEnv)->DeffactsModuleIndex);
+  }
+
+/***********************************************/
+/* InitDeffactsCode: Writes out initialization */
+/*   code for deffacts for a run-time module.  */
+/***********************************************/
+static void InitDeffactsCode(
+  Environment *theEnv,
+  FILE *initFP,
+  unsigned imageID,
+  unsigned maxIndices)
+  {
+#if MAC_XCD
+#pragma unused(maxIndices)
+#pragma unused(imageID)
+#pragma unused(theEnv)
+#endif
+   fprintf(initFP,"   DeffactsRunTimeInitialize(theEnv);\n");
+  }
+
+/**********************************************************/
+/* ConstructToCode: Produces deffacts code for a run-time */
+/*   module created using the constructs-to-c function.   */
+/**********************************************************/
+static bool ConstructToCode(
+  Environment *theEnv,
+  const char *fileName,
+  const char *pathName,
+  char *fileNameBuffer,
+  unsigned int fileID,
+  FILE *headerFP,
+  unsigned int imageID,
+  unsigned int maxIndices)
+  {
+   unsigned int fileCount = 1;
+   Defmodule *theModule;
+   Deffacts *theDeffacts;
+   unsigned int moduleCount = 0, moduleArrayCount = 0, moduleArrayVersion = 1;
+   unsigned int deffactsArrayCount = 0, deffactsArrayVersion = 1;
+   FILE *moduleFile = NULL, *deffactsFile = NULL;
+
+   /*===============================================*/
+   /* Include the appropriate deffacts header file. */
+   /*===============================================*/
+
+   fprintf(headerFP,"#include \"dffctdef.h\"\n");
+
+   /*=================================================================*/
+   /* Loop through all the modules and all the deffacts writing their */
+   /* C code representation to the file as they are traversed.        */
+   /*=================================================================*/
+
+   for (theModule = GetNextDefmodule(theEnv,NULL);
+        theModule != NULL;
+        theModule = GetNextDefmodule(theEnv,theModule))
+     {
+      SetCurrentModule(theEnv,theModule);
+
+      moduleFile = OpenFileIfNeeded(theEnv,moduleFile,fileName,pathName,fileNameBuffer,fileID,imageID,&fileCount,
+                                    moduleArrayVersion,headerFP,
+                                    "struct deffactsModule",ModulePrefix(DeffactsData(theEnv)->DeffactsCodeItem),
+                                    false,NULL);
+
+      if (moduleFile == NULL)
+        {
+         CloseDeffactsFiles(theEnv,moduleFile,deffactsFile,maxIndices);
+         return false;
+        }
+
+      DeffactsModuleToCode(theEnv,moduleFile,theModule,imageID,maxIndices,moduleCount);
+      moduleFile = CloseFileIfNeeded(theEnv,moduleFile,&moduleArrayCount,&moduleArrayVersion,
+                                     maxIndices,NULL,NULL);
+
+      /*===================================================*/
+      /* Loop through each of the deffacts in this module. */
+      /*===================================================*/
+
+      for (theDeffacts = GetNextDeffacts(theEnv,NULL);
+           theDeffacts != NULL;
+           theDeffacts = GetNextDeffacts(theEnv,theDeffacts))
+        {
+         deffactsFile = OpenFileIfNeeded(theEnv,deffactsFile,fileName,pathName,fileNameBuffer,fileID,imageID,&fileCount,
+                                         deffactsArrayVersion,headerFP,
+                                         "Deffacts",ConstructPrefix(DeffactsData(theEnv)->DeffactsCodeItem),
+                                         false,NULL);
+         if (deffactsFile == NULL)
+           {
+            CloseDeffactsFiles(theEnv,moduleFile,deffactsFile,maxIndices);
+            return false;
+           }
+
+         DeffactsToCode(theEnv,deffactsFile,theDeffacts,imageID,maxIndices,moduleCount);
+         deffactsArrayCount++;
+         deffactsFile = CloseFileIfNeeded(theEnv,deffactsFile,&deffactsArrayCount,
+                                          &deffactsArrayVersion,maxIndices,NULL,NULL);
+        }
+
+      moduleCount++;
+      moduleArrayCount++;
+     }
+
+   CloseDeffactsFiles(theEnv,moduleFile,deffactsFile,maxIndices);
+
+   return true;
+  }
+
+/*********************************************************/
+/* CloseDeffactsFiles: Closes all of the C files created */
+/*   for deffacts. Called when an error occurs or when   */
+/*   the deffacts have all been written to the files.    */
+/*********************************************************/
+static void CloseDeffactsFiles(
+  Environment *theEnv,
+  FILE *moduleFile,
+  FILE *deffactsFile,
+  unsigned maxIndices)
+  {
+   unsigned int count = maxIndices;
+   unsigned int arrayVersion = 0;
+
+   if (deffactsFile != NULL)
+     {
+      count = maxIndices;
+      CloseFileIfNeeded(theEnv,deffactsFile,&count,&arrayVersion,maxIndices,NULL,NULL);
+     }
+
+   if (moduleFile != NULL)
+     {
+      count = maxIndices;
+      CloseFileIfNeeded(theEnv,moduleFile,&count,&arrayVersion,maxIndices,NULL,NULL);
+     }
+  }
+
+/**********************************************************/
+/* DeffactsModuleToCode: Writes the C code representation */
+/*   of a single deffacts module to the specified file.   */
+/**********************************************************/
+static void DeffactsModuleToCode(
+  Environment *theEnv,
+  FILE *theFile,
+  Defmodule *theModule,
+  unsigned int imageID,
+  unsigned int maxIndices,
+  unsigned int moduleCount)
+  {
+#if MAC_XCD
+#pragma unused(moduleCount)
+#endif
+
+   fprintf(theFile,"{");
+
+   ConstructModuleToCode(theEnv,theFile,theModule,imageID,maxIndices,
+                                  DeffactsData(theEnv)->DeffactsModuleIndex,
+                                  ConstructPrefix(DeffactsData(theEnv)->DeffactsCodeItem));
+
+   fprintf(theFile,"}");
+  }
+
+/*********************************************************/
+/* DeffactsToCode: Writes the C code representation of a */
+/*   single deffacts construct to the specified file.    */
+/*********************************************************/
+static void DeffactsToCode(
+  Environment *theEnv,
+  FILE *theFile,
+  Deffacts *theDeffacts,
+  unsigned int imageID,
+  unsigned int maxIndices,
+  unsigned int moduleCount)
+  {
+   /*=================*/
+   /* Deffacts Header */
+   /*=================*/
+
+   fprintf(theFile,"{");
+
+   ConstructHeaderToCode(theEnv,theFile,&theDeffacts->header,imageID,maxIndices,
+                         moduleCount,ModulePrefix(DeffactsData(theEnv)->DeffactsCodeItem),
+                         ConstructPrefix(DeffactsData(theEnv)->DeffactsCodeItem));
+
+   fprintf(theFile,",");
+
+   /*=============*/
+   /* Assert List */
+   /*=============*/
+
+   ExpressionToCode(theEnv,theFile,theDeffacts->assertList);
+   fprintf(theFile,"}");
+  }
+
+/**************************************************************/
+/* DeffactsCModuleReference: Writes the C code representation */
+/*   of a reference to a deffacts module data structure.      */
+/**************************************************************/
+void DeffactsCModuleReference(
+  Environment *theEnv,
+  FILE *theFile,
+  unsigned long count,
+  unsigned int imageID,
+  unsigned int maxIndices)
+  {
+   fprintf(theFile,"MIHS &%s%u_%lu[%lu]",
+                      ModulePrefix(DeffactsData(theEnv)->DeffactsCodeItem),
+                      imageID,
+                      (count / maxIndices) + 1,
+                      (count % maxIndices));
+  }
+
+#endif /* DEFFACTS_CONSTRUCT && CONSTRUCT_COMPILER && (! RUN_TIME) */
+
+