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
|
/* file generated by oo2c -- do not edit */
#ifndef _MODULE_Scanner_
#define _MODULE_Scanner_
#include "ParamOptions.h"
extern ParamOptions__IntegerOption Scanner__stringLength;
extern ParamOptions__IntegerOption Scanner__identLength;
extern unsigned char Scanner__allowUnderscore;
extern unsigned char Scanner__moduleIdent;
#define Scanner__undefStr "\077\077\077"
#define Scanner__moduleSeparator 58
#define Scanner__times 1
#define Scanner__slash 2
#define Scanner__div 3
#define Scanner__mod 4
#define Scanner__and 5
#define Scanner__plus 6
#define Scanner__minus 7
#define Scanner__or 8
#define Scanner__eql 9
#define Scanner__neq 10
#define Scanner__lss 11
#define Scanner__leq 12
#define Scanner__gtr 13
#define Scanner__geq 14
#define Scanner__in 15
#define Scanner__is 16
#define Scanner__arrow 17
#define Scanner__period 18
#define Scanner__comma 19
#define Scanner__colon 20
#define Scanner__upto 21
#define Scanner__rParen 22
#define Scanner__rBrak 23
#define Scanner__rBrace 24
#define Scanner__of 25
#define Scanner__then 26
#define Scanner__do 27
#define Scanner__to 28
#define Scanner__by 29
#define Scanner__lParen 30
#define Scanner__lBrak 31
#define Scanner__lBrace 32
#define Scanner__not 33
#define Scanner__becomes 34
#define Scanner__number 35
#define Scanner__nil 36
#define Scanner__string 37
#define Scanner__ident 38
#define Scanner__semicolon 39
#define Scanner__bar 40
#define Scanner__end 41
#define Scanner__else 42
#define Scanner__elsif 43
#define Scanner__until 44
#define Scanner__if 45
#define Scanner__case 46
#define Scanner__while 47
#define Scanner__repeat 48
#define Scanner__loop 49
#define Scanner__for 50
#define Scanner__with 51
#define Scanner__exit 52
#define Scanner__return 53
#define Scanner__array 54
#define Scanner__record 55
#define Scanner__pointer 56
#define Scanner__begin 57
#define Scanner__const 58
#define Scanner__type 59
#define Scanner__var 60
#define Scanner__procedure 61
#define Scanner__import 62
#define Scanner__module 63
#define Scanner__endOfFile 64
#define Scanner__numInt 1
#define Scanner__numReal 2
#define Scanner__numLReal 3
extern signed char Scanner__sym;
extern int Scanner__currSymPos;
extern int Scanner__lastSymEnd;
#include "Parameter.h"
extern Parameter__String Scanner__str;
extern signed char Scanner__numType;
extern int Scanner__intVal;
extern double Scanner__realVal;
extern int Scanner__sourceTotal;
extern int Scanner__sourceLines;
typedef struct Scanner__ConditionStackDesc {
struct Scanner__ConditionStackDesc* prev;
int ifPos;
unsigned char skippedCond;
unsigned char foundTrue;
unsigned char elsePresent;
char _11pad;
} Scanner__ConditionStackDesc;
typedef struct Scanner__ConditionStackDesc* Scanner__ConditionStack;
#include "ParamPragmas.h"
typedef struct Scanner__ScanState {
int pos;
Scanner__ConditionStack condStack;
ParamPragmas__PragmaState pragmaState;
} Scanner__ScanState;
extern int Scanner__Line(int pos);
extern int Scanner__Column(int pos);
extern void Scanner__CheckSym(signed char s);
extern void Scanner__CheckPragmas(void);
extern void Scanner__Close(void);
extern void Scanner__GetSym(void);
extern void Scanner__SaveScanPos(Scanner__ScanState *state, _Type state__tag);
extern void Scanner__RestoreScanPos(Scanner__ScanState *state, _Type state__tag);
extern void Scanner__SetSym(signed char newSym);
extern unsigned char Scanner__ThreeDots(unsigned char read);
extern void Scanner__Name2File(unsigned char* name, int name_0d);
extern void Scanner__Init(const unsigned char* fileName__ref, int fileName_0d, unsigned char incrRead);
extern struct _TD Scanner__ConditionStackDesc_td;
extern struct _TD Scanner__ScanState_td;
extern struct _TD Scanner__ParsePragma_Value_td;
extern void Scanner_init(void);
#endif
|
