/*******************************************************/   /*      "C" Language Integrated Production System      */   /*                                                     */   /*             CLIPS Version 6.24  06/05/06            */   /*                                                     */   /*                MULTIFIELD HEADER FILE               */   /*******************************************************//*************************************************************//* Purpose: Routines for creating and manipulating           *//*   multifield values.                                      *//*                                                           *//* Principal Programmer(s):                                  *//*      Gary D. Riley                                        *//*                                                           *//* Contributing Programmer(s):                               *//*                                                           *//* Revision History:                                         *//*                                                           *//*      6.24: Renamed BOOLEAN macro type to intBool.         *//*                                                           *//*            Moved ImplodeMultifield from multifun.c.       *//*                                                           *//*************************************************************/#ifndef _H_multifld#define _H_multifldstruct field;struct multifield;#ifndef _H_evaluatn#include "evaluatn.h"#endifstruct field  {   unsigned short type;   void *value;  };struct multifield  {   unsigned busyCount;   short depth;   long multifieldLength;   struct multifield *next;   struct field theFields[1];  };typedef struct multifield SEGMENT;typedef struct multifield * SEGMENT_PTR;typedef struct multifield * MULTIFIELD_PTR;typedef struct field FIELD;typedef struct field * FIELD_PTR;#define GetMFLength(target)     (((struct multifield *) (target))->multifieldLength)#define GetMFPtr(target,index)  (&(((struct field *) ((struct multifield *) (target))->theFields)[index-1]))#define SetMFType(target,index,value)  (((struct field *) ((struct multifield *) (target))->theFields)[index-1].type = (unsigned short) (value))#define SetMFValue(target,index,val)  (((struct field *) ((struct multifield *) (target))->theFields)[index-1].value = (void *) (val))#define GetMFType(target,index)  (((struct field *) ((struct multifield *) (target))->theFields)[index-1].type)#define GetMFValue(target,index)  (((struct field *) ((struct multifield *) (target))->theFields)[index-1].value)#define EnvGetMFLength(theEnv,target)     (((struct multifield *) (target))->multifieldLength)#define EnvGetMFPtr(theEnv,target,index)  (&(((struct field *) ((struct multifield *) (target))->theFields)[index-1]))#define EnvSetMFType(theEnv,target,index,value)  (((struct field *) ((struct multifield *) (target))->theFields)[index-1].type = (unsigned short) (value))#define EnvSetMFValue(theEnv,target,index,val)  (((struct field *) ((struct multifield *) (target))->theFields)[index-1].value = (void *) (val))#define EnvGetMFType(theEnv,target,index)  (((struct field *) ((struct multifield *) (target))->theFields)[index-1].type)#define EnvGetMFValue(theEnv,target,index)  (((struct field *) ((struct multifield *) (target))->theFields)[index-1].value)/*==================*//* ENVIRONMENT DATA *//*==================*/#define MULTIFIELD_DATA 51struct multifieldData  {    struct multifield *ListOfMultifields;  };#define MultifieldData(theEnv) ((struct multifieldData *) GetEnvironmentData(theEnv,MULTIFIELD_DATA))#ifdef LOCALE#undef LOCALE#endif#ifdef _MULTIFLD_SOURCE_#define LOCALE#else#define LOCALE extern#endif   #if ENVIRONMENT_API_ONLY#define CreateMultifield(theEnv,a) EnvCreateMultifield(theEnv,a)#else#define CreateMultifield(a) EnvCreateMultifield(GetCurrentEnvironment(),a)#endif   LOCALE void                           InitializeMultifieldData(void *);   LOCALE void                          *CreateMultifield2(void *,long);   LOCALE void                           ReturnMultifield(void *,struct multifield *);   LOCALE void                           MultifieldInstall(void *,struct multifield *);   LOCALE void                           MultifieldDeinstall(void *,struct multifield *);   LOCALE struct multifield             *StringToMultifield(void *,char *);   LOCALE void                          *EnvCreateMultifield(void *,long);   LOCALE void                           AddToMultifieldList(void *,struct multifield *);   LOCALE void                           FlushMultifields(void *);   LOCALE void                           DuplicateMultifield(void *,struct dataObject *,struct dataObject *);   LOCALE void                           PrintMultifield(void *,char *,SEGMENT_PTR,long,long,int);   LOCALE intBool                        MultifieldDOsEqual(DATA_OBJECT_PTR,DATA_OBJECT_PTR);   LOCALE void                           StoreInMultifield(void *,DATA_OBJECT *,EXPRESSION *,int);   LOCALE void                          *CopyMultifield(void *,struct multifield *);   LOCALE intBool                        MultifieldsEqual(struct multifield *,struct multifield *);   LOCALE void                          *DOToMultifield(void *,DATA_OBJECT *);   LOCALE unsigned long                  HashMultifield(struct multifield *,unsigned long);   LOCALE struct multifield             *GetMultifieldList(void *);   LOCALE void                          *ImplodeMultifield(void *,DATA_OBJECT *);#endif