/*******************************************************/   /*      "C" Language Integrated Production System      */   /*                                                     */   /*               CLIPS Version 6.24  05/17/06          */   /*                                                     */   /*                                                     */   /*******************************************************//*************************************************************//* Purpose:                                                  *//*                                                           *//* Principal Programmer(s):                                  *//*      Brian L. Donnell                                     *//*                                                           *//* Contributing Programmer(s):                               *//*                                                           *//* Revision History:                                         *//*                                                           *//*      6.24: Converted INSTANCE_PATTERN_MATCHING to         *//*            DEFRULE_CONSTRUCT.                             *//*                                                           *//*            Renamed BOOLEAN macro type to intBool.         *//*                                                           *//*************************************************************/#ifndef _H_classfun#define _H_classfun#ifndef _H_object#include "object.h"#endif#define TestTraversalID(traversalRecord,id) TestBitMap(traversalRecord,id)#define SetTraversalID(traversalRecord,id) SetBitMap(traversalRecord,id)#define ClearTraversalID(traversalRecord,id) ClearBitMap(traversalRecord,id)#define CLASS_TABLE_HASH_SIZE     167#define SLOT_NAME_TABLE_HASH_SIZE 167#define INITIAL_OBJECT_CLASS_NAME "INITIAL-OBJECT"#define ISA_ID  0#define NAME_ID 1#ifdef LOCALE#undef LOCALE#endif#ifdef _CLASSFUN_SOURCE_#define LOCALE#else#define LOCALE extern#endifLOCALE void IncrementDefclassBusyCount(void *,void *);LOCALE void DecrementDefclassBusyCount(void *,void *);LOCALE intBool InstancesPurge(void *theEnv);#if ! RUN_TIMELOCALE void InitializeClasses(void *);#endifLOCALE SLOT_DESC *FindClassSlot(DEFCLASS *,SYMBOL_HN *);LOCALE void ClassExistError(void *,char *,char *);LOCALE void DeleteClassLinks(void *,CLASS_LINK *);LOCALE void PrintClassName(void *,char *,DEFCLASS *,intBool);#if DEBUGGING_FUNCTIONS || ((! BLOAD_ONLY) && (! RUN_TIME))LOCALE void PrintPackedClassLinks(void *,char *,char *,PACKED_CLASS_LINKS *);#endif#if ! RUN_TIMELOCALE void PutClassInTable(void *,DEFCLASS *);LOCALE void RemoveClassFromTable(void *,DEFCLASS *);LOCALE void AddClassLink(void *,PACKED_CLASS_LINKS *,DEFCLASS *,int);LOCALE void DeleteSubclassLink(void *,DEFCLASS *,DEFCLASS *);LOCALE DEFCLASS *NewClass(void *,SYMBOL_HN *);LOCALE void DeletePackedClassLinks(void *,PACKED_CLASS_LINKS *,int);LOCALE void AssignClassID(void *,DEFCLASS *);LOCALE SLOT_NAME *AddSlotName(void *,SYMBOL_HN *,int,int);LOCALE void DeleteSlotName(void *,SLOT_NAME *);LOCALE void RemoveDefclass(void *,void *);LOCALE void InstallClass(void *,DEFCLASS *,int);#endifLOCALE void DestroyDefclass(void *,void *);#if (! BLOAD_ONLY) && (! RUN_TIME)LOCALE int IsClassBeingUsed(DEFCLASS *);LOCALE int RemoveAllUserClasses(void *);LOCALE int DeleteClassUAG(void *,DEFCLASS *);LOCALE void MarkBitMapSubclasses(char *,DEFCLASS *,int);#endifLOCALE short FindSlotNameID(void *,SYMBOL_HN *);LOCALE SYMBOL_HN *FindIDSlotName(void *,int);LOCALE SLOT_NAME *FindIDSlotNameHash(void *,int);LOCALE int GetTraversalID(void *);LOCALE void ReleaseTraversalID(void *);LOCALE unsigned HashClass(SYMBOL_HN *);#ifndef _CLASSFUN_SOURCE_#if DEFRULE_CONSTRUCTextern SYMBOL_HN *INITIAL_OBJECT_SYMBOL;#endif#if DEBUGGING_FUNCTIONSextern unsigned WatchInstances,WatchSlots;#endif#endif#define DEFCLASS_DATA 21#define PRIMITIVE_CLASSES 9struct defclassData  {    struct construct *DefclassConstruct;   int DefclassModuleIndex;   ENTITY_RECORD DefclassEntityRecord;   DEFCLASS *PrimitiveClassMap[PRIMITIVE_CLASSES];   DEFCLASS **ClassIDMap;   DEFCLASS **ClassTable;   unsigned short MaxClassID;   unsigned short AvailClassID;   SLOT_NAME **SlotNameTable;   SYMBOL_HN *ISA_SYMBOL;   SYMBOL_HN *NAME_SYMBOL;#if DEFRULE_CONSTRUCT   SYMBOL_HN *INITIAL_OBJECT_SYMBOL;#endif#if DEBUGGING_FUNCTIONS   unsigned WatchInstances;   unsigned WatchSlots;#endif   unsigned short CTID;   struct token ObjectParseToken;   unsigned short ClassDefaultsMode;  };#define DefclassData(theEnv) ((struct defclassData *) GetEnvironmentData(theEnv,DEFCLASS_DATA))#endif