blob: 01aa954cb9f0e1e0f4e30c6c47259a9e03ae8e27 (
plain)
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
|
/* pass2.h */
/*
* isode/pepsy/pass2.h
*/
/*
* NOTICE
*
* Acquisition, use, and distribution of this module and related
* materials are subject to the restrictions of a license agreement.
* Consult the Preface in the User's Manual for the full terms of
* this agreement.
*
*/
/* Change the version number only important features change - so people can
* #ifdef on the version number. Also used to provide backwards compatible
* macro definitions for posy/pepy.
*/
#define PEPSY_VERSION_NUMBER 2
#define NBPC 8 /* Number of Bits per character - machine dependant */
#define NBPI sizeof (int)*NBPC /* Number of bits per integer */
#define PSAP_DOT_H "\"psap.h\""
#define I_PSAP_DOT_H "<isode/psap.h>"
#define UNIV_TYPES_DOT_H "\"UNIV-types.h\""
#define I_UNIV_TYPES_DOT_H "<isode/pepsy/UNIV-types.h>"
#define HFILE1 "_defs.h"
#define HFILE2 "_pre_defs.h"
#define ACTIONDEFS "_action.h"
#define GENTYPES "-types.h"
#define INCFILE1 "pepsy.h"
/* #define INCFILE2 "pepdefs.h" - not used any more */
#define ACT1 "_act1"
#define ACT2 "_act2"
#define ACT3 "_act3"
#define ACT4 "_act4"
#define ACT05 "_act05"
#define PREFIX "_Z"
#define ETABLE "et_"
#define DTABLE "dt_"
#define PTABLE "pt_"
#define ENCFNCNAME "enc_f"
#define DECFNCNAME "dec_f"
#define PRNTFNCNAME "prnt_f"
#define ENC_FNCNAME "enc_f_"
#define DEC_FNCNAME "dec_f_"
#define PRNT_FNCNAME "prnt_f_"
#define ENCFILENAME "_enc.c"
#define DECFILENAME "_dec.c"
#define PRNTFILENAME "_prnt.c"
#define TBLNAME "_tables.c"
#define MODTYP_SUFFIX "_mod"
#define MAXPTRS 200 /* maximum number of pointers in pointer table */
#define PTR_TABNAME "ptrtab"
extern int p_debug;
#define DEB 1
#ifdef DEB
#define Printf(x, y) if (x <= p_debug) printf y
#else
#define Printf(x, y)
#endif
/*
* info for handling a Universal type
*/
struct univ_typ {
char *univ_name; /* Name of this Universal type */
char *univ_data; /* type to generate for it */
char *univ_tab; /* type of table entry it needs */
PElementID univ_id; /* tag of the type */
PElementClass univ_class; /* class - probably Universal primative */
char *univ_mod; /* Name of its module if it has one */
int univ_flags; /* Information about entry */
int univ_type; /* Type we can use for its contents */
#define UNF_EXTMOD 1 /* Use an external module reference */
#define UNF_HASDATA 2 /* Has data structure - allocate data for it */
};
extern struct univ_typ *univtyp();
/* How many entries in an array */
#define NENTRIES(x) (sizeof (x)/sizeof ((x)[0]))
/* used to specify which tables a routine is to generate */
#define G_ENC 0 /* encoding */
#define G_DEC 1 /* decoding */
#define G_PNT 2 /* printing */
#define hflag (options[0])
#define Hflag (options[1])
#define h2flag (options[2])
#define NOPTIONS 3
extern int options[];
#define STRSIZE 128 /* general buffer size */
extern char *proc_name();
extern char *getfield(), *getfldbit();
extern char *class2str();
extern int gen_ventry(); /* generate a Value Passing Entry */
extern int gen_fnentry(); /* generate a function calling entry */
/* extern Action start_action, final_action; */
extern char *int2tstr(); /* integer to temporary string */
extern char *getfield(), *getfldbit();
extern char *class2str();
extern int gen_ventry(); /* generate a Value Passing Entry */
extern int gen_fnentry(); /* generate a function calling entry */
/* extern Action start_action, final_action; */
|
