/
classexm.h
90 lines (80 loc) · 4.05 KB
/
classexm.h
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
/*******************************************************/
/* "C" Language Integrated Production System */
/* */
/* CLIPS Version 6.30 03/04/08 */
/* */
/* */
/*******************************************************/
/*************************************************************/
/* Purpose: */
/* */
/* Principal Programmer(s): */
/* Brian L. Dantes */
/* */
/* Contributing Programmer(s): */
/* */
/* Revision History: */
/* 6.23: Corrected compilation errors for files */
/* generated by constructs-to-c. DR0861 */
/* */
/* 6.24: The DescribeClass macros were incorrectly */
/* defined. DR0862 */
/* */
/* Added allowed-classes slot facet. */
/* */
/* Renamed BOOLEAN macro type to intBool. */
/* */
/* 6.30: Added EnvSlotDefaultP function. */
/* */
/*************************************************************/
#ifndef _H_classexm
#define _H_classexm
#ifdef LOCALE
#undef LOCALE
#endif
#ifdef _CLASSEXM_SOURCE_
#define LOCALE
#else
#define LOCALE extern
#endif
#define BrowseClasses(a,b) EnvBrowseClasses(GetCurrentEnvironment(),a,b)
#define DescribeClass(a,b) EnvDescribeClass(GetCurrentEnvironment(),a,b)
#define SlotDirectAccessP(a,b) EnvSlotDirectAccessP(GetCurrentEnvironment(),a,b)
#define SlotExistP(a,b,c) EnvSlotExistP(GetCurrentEnvironment(),a,b,c)
#define SlotInitableP(a,b) EnvSlotInitableP(GetCurrentEnvironment(),a,b)
#define SlotPublicP(a,b) EnvSlotPublicP(GetCurrentEnvironment(),a,b)
#define SlotDefaultP(a,b) EnvSlotDefaultP(GetCurrentEnvironment(),a,b)
#define SlotWritableP(a,b) EnvSlotWritableP(GetCurrentEnvironment(),a,b)
#define SubclassP(a,b) EnvSubclassP(GetCurrentEnvironment(),a,b)
#define SuperclassP(a,b) EnvSuperclassP(GetCurrentEnvironment(),a,b)
#define SlotDefaultValue(a,b,c) EnvSlotDefaultValue(GetCurrentEnvironment(),a,b,c)
#if DEBUGGING_FUNCTIONS
LOCALE void BrowseClassesCommand(void *);
LOCALE void EnvBrowseClasses(void *,char *,void *);
LOCALE void DescribeClassCommand(void *);
LOCALE void EnvDescribeClass(void *,char *,void *);
#endif
LOCALE char *GetCreateAccessorString(void *);
LOCALE void *GetDefclassModuleCommand(void *);
LOCALE intBool SuperclassPCommand(void *);
LOCALE intBool EnvSuperclassP(void *,void *,void *);
LOCALE intBool SubclassPCommand(void *);
LOCALE intBool EnvSubclassP(void *,void *,void *);
LOCALE int SlotExistPCommand(void *);
LOCALE intBool EnvSlotExistP(void *,void *,char *,intBool);
LOCALE int MessageHandlerExistPCommand(void *);
LOCALE intBool SlotWritablePCommand(void *);
LOCALE intBool EnvSlotWritableP(void *,void *,char *);
LOCALE intBool SlotInitablePCommand(void *);
LOCALE intBool EnvSlotInitableP(void *,void *,char *);
LOCALE intBool SlotPublicPCommand(void *);
LOCALE intBool EnvSlotPublicP(void *,void *,char *);
LOCALE intBool SlotDirectAccessPCommand(void *);
LOCALE intBool EnvSlotDirectAccessP(void *,void *,char *);
LOCALE void SlotDefaultValueCommand(void *,DATA_OBJECT_PTR);
LOCALE intBool EnvSlotDefaultValue(void *,void *,char *,DATA_OBJECT_PTR);
LOCALE int ClassExistPCommand(void *);
LOCALE int EnvSlotDefaultP(void *,void *,char *);
#ifndef _CLASSEXM_SOURCE_
#endif
#endif