1 //  Declarations entirely restricted to the lexical analysis phase.
 2 //  Last modified on 04/02/74 at 16:02:00 by R F Mabee.
 3 //  Installed on 6180 as Version 3.4, R F Mabee.
 4 //  First installed with Version 2.7 by R F Mabee.
 5 
 6 get "bcpl_compiler_head"
 7 get "bcpl_symbols"
 8 get "bcpl_lex_codes"
 9 
10 external
11      $(   Rch = "bcpl_lex0$Rch"
12           EnterIntoDictionary = "bcpl_lex0$EnterIntoDictionary"
13           Nsymb = "bcpl_lex1$Nsymb"
14           LoadDictionary = "bcpl_lex2$LoadDictionary"
15      $)
16 global              //  200 - 229 are reserved for the lexical phase.
17      $(   ST                  : 200               //  Internal switches etc. for Lex.
18           SavedSymb           : 201
19           V                   : 202
20           Vp                  : 203
21           NLPending           : 204
22           Lvch                : 205
23           Chkind              : 206
24           BeginNewLine        : 207
25           EndCurrentLine      : 208
26 
27           EndOfAllInputReached: 210
28           NestingDepth        : 211
29           NamesTable          : 212
30      $)
31 manifest
32      $(   Ignorable = 1                 //  Codes for Chkind - always set to type of current character.
33           Endline   = 2
34           Bracket   = 3
35           Simple    = 4
36           Digit     = 6                 //  Order is important from here on.
37           Small     = 7
38           Capital   = 8
39           UnderScore= 9
40      $)