1 /* ====== BEGIN INCLUDE SEGMENT         apl_lex_pseudo_chars.incl.pl1 ============================= */
 2 
 3 /*  These are codes which are used by the lex as if they were characters,
 4     for purposes of looking up in the char_index table in apl_lex_tables_.
 5     In this way these codes lead to operator beads.
 6     However these codes are not characters but special pseudo-characters
 7     generated by the lex from multi-character sequences.
 8     At present these codes start at 200 (decimal), which is a little above
 9     the end of the regular characters.
10     6/18/73 DAM
11     Modified 740131 by PG for new system variables.
12     Modified 781115 by PG to add SemiColonCons.
13     Modified 790207 by William M. York to add file system functions.
14     Modified 811211 by H. Hoover (UofC) to add QuadCALL & QuadCALLSemicolon.
15 */
16 
17 
18 dcl (
19           SDelta                        init(201),
20           TDelta                        init(202),
21           QuadCT                        init(203),
22           QuadIO                        init(204),
23           QuadLX                        init(205),
24           QuadPP                        init(206),
25           QuadPW                        init(207),
26           QuadRL                        init(208),
27           QuadAI                        init(209),
28           QuadLC                        init(210),
29           QuadTS                        init(211),
30           QuadTT                        init(212),
31           QuadUL                        init(213),
32           QuadWA                        init(214),
33           QuadWU                        init(215),                    /* extra */
34           QuadCS                        init(216),                    /* extra */
35           AssignSub                     init(217),
36           AssignIgnore                  init(218),
37           RightOprBracket               init(219),
38           QuadCR                        init(220),
39           QuadFX                        init(221),
40           QuadEX                        init(222),
41           QuadNL                        init(223),
42           QuadNC                        init(224),
43           QuadDL                        init(225),
44           QuadSVO                       init(226),
45           QuadSVC                       init(227),
46           QuadSVQ                       init(228),
47           QuadSVR                       init(229),
48           QuadIT                        init(230),
49           QuadEC                        init(231),
50           QuadAF                        init(232),
51           SemiColonCons                 init(233),
52           QuadFADDACL                   init(234),
53           QuadFAPPEND                   init(235),
54           QuadFCREATE                   init(236),
55           QuadFDELETEACL                init(237),
56           QuadFDROP                     init(238),
57           QuadFERASE                    init(239),
58           QuadFHOLD                     init(240),
59           QuadFLIB                      init(241),
60           QuadFLIM                      init(242),
61           QuadFLISTACL                  init(243),
62           QuadFNAMES                    init(244),
63           QuadFNUMS                     init(245),
64           QuadFRDCI                     init(246),
65           QuadFREAD                     init(247),
66           QuadFRENAME                   init(248),
67           QuadFREPLACE                  init(249),
68           QuadFSETACL                   init(250),
69           QuadFSIZE                     init(251),
70           QuadFSTIE                     init(252),
71           QuadFTIE                      init(253),
72           QuadFUNTIE                    init(254),
73           QuadCALL                      init(255),
74           QuadCALLSemicolon             init(256)
75     ) fixed binary internal static;
76 
77 /* ------ END INCLUDE SEGMENT           apl_lex_pseudo_chars.incl.pl1 ----------------------------- */