/usr/include/clips/multifld.h is in libclips-dev 6.24-3.2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | /*******************************************************/
/* "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_multifld
struct field;
struct multifield;
#ifndef _H_evaluatn
#include "evaluatn.h"
#endif
struct field
{
unsigned short type;
void *value;
};
struct multifield
{
unsigned busyCount;
short depth;
unsigned 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 51
struct 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 *,unsigned 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 *,unsigned 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 HashMultifield(struct multifield *,unsigned);
LOCALE struct multifield *GetMultifieldList(void *);
LOCALE void *ImplodeMultifield(void *,DATA_OBJECT *);
#endif
|