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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
/*******************************************************/
/* "C" Language Integrated Production System */
/* */
/* CLIPS Version 6.20 01/31/02 */
/* */
/* CONSTRUCT BINARY LOAD/SAVE MODULE */
/*******************************************************/
/*************************************************************/
/* Purpose: Binary load/save functions for construct */
/* headers. */
/* */
/* Principal Programmer(s): */
/* Brian L. Donnell */
/* */
/* Contributing Programmer(s): */
/* */
/* Revision History: */
/* */
/*************************************************************/
#include "setup.h"
#if BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE
#include "bload.h"
#include "envrnmnt.h"
#if BLOAD_AND_BSAVE
#include "bsave.h"
#endif
#include "moduldef.h"
#define _CSTRCBIN_SOURCE_
#include "cstrcbin.h"
#if BLOAD_AND_BSAVE
/***************************************************
NAME : MarkConstructHeaderNeededItems
DESCRIPTION : Marks symbols and other ephemerals
needed by a construct header, and
sets the binary-save id for the
construct
INPUTS : 1) The construct header
2) The binary-save id to assign
RETURNS : Nothing useful
SIDE EFFECTS : Id set and items marked
NOTES : None
***************************************************/
globle void MarkConstructHeaderNeededItems(
struct constructHeader *theConstruct,
long theBsaveID)
{
theConstruct->name->neededSymbol = TRUE;
theConstruct->bsaveID = theBsaveID;
}
/******************************************************
NAME : AssignBsaveConstructHeaderVals
DESCRIPTION : Assigns value to the construct
header for saving in the binary file
INPUTS : 1) The binary-save buffer for the
construct header values
2) The actual construct header
RETURNS : Nothing useful
SIDE EFFECTS : Binary-save buffer for construct
header written with appropriate values
NOTES : Assumes that module items for this
construct were saved in the same
order as the defmodules.
The defmodule binary-save id is
used for the whichModule id of
this construct.
******************************************************/
globle void AssignBsaveConstructHeaderVals(
struct bsaveConstructHeader *theBsaveConstruct,
struct constructHeader *theConstruct)
{
theBsaveConstruct->name = (long) theConstruct->name->bucket;
theBsaveConstruct->whichModule = theConstruct->whichModule->theModule->bsaveID;
if (theConstruct->next != NULL)
theBsaveConstruct->next = ((struct constructHeader *) theConstruct->next)->bsaveID;
else
theBsaveConstruct->next = -1L;
}
#endif /* BLOAD_AND_BSAVE */
/***************************************************
NAME : UpdateConstructHeader
DESCRIPTION : Determines field values for
construct header from binary-load
buffer
INPUTS : 1) The binary-load data for the
construct header
2) The actual construct header
3) The size of a defmodule item for
this construct
4) The array of all defmodule items
for this construct
5) The size of this construct
6) The array of these constructs
RETURNS : Nothing useful
SIDE EFFECTS : Header values set
NOTES : None
***************************************************/
LOCALE void UpdateConstructHeader(
void *theEnv,
struct bsaveConstructHeader *theBsaveConstruct,
struct constructHeader *theConstruct,
int itemModuleSize,
void *itemModuleArray,
int itemSize,
void *itemArray)
{
long moduleOffset, itemOffset;
moduleOffset = itemModuleSize * theBsaveConstruct->whichModule;
theConstruct->whichModule =
(struct defmoduleItemHeader *) &((char *) itemModuleArray)[moduleOffset];
theConstruct->name = SymbolPointer(theBsaveConstruct->name);
IncrementSymbolCount(theConstruct->name);
if (theBsaveConstruct->next != -1L)
{
itemOffset = itemSize * theBsaveConstruct->next;
theConstruct->next = (struct constructHeader *) &((char *) itemArray)[itemOffset];
}
else
theConstruct->next = NULL;
theConstruct->ppForm = NULL;
theConstruct->bsaveID = 0L;
theConstruct->usrData = NULL;
}
/*******************************************************
NAME : UnmarkConstructHeader
DESCRIPTION : Releases any ephemerals (symbols, etc.)
of a construct header for removal
INPUTS : The construct header
RETURNS : Nothing useful
SIDE EFFECTS : Busy counts fo ephemerals decremented
NOTES : None
*******************************************************/
globle void UnmarkConstructHeader(
void *theEnv,
struct constructHeader *theConstruct)
{
DecrementSymbolCount(theEnv,theConstruct->name);
}
#endif /* BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE */
|
