TGAL Manual

TGAL Procedures
Tailoring TGAL
060865 Tandem Computers Incorporated 4–7
In the file TGALUPS, the RESERVED^WORD procedure is:
T^ALT,
T^ALWAYS,
T^ARROW,
T^BLANK,
T^BOX,
T^BOTTOM^MARGIN,
T^BREAK,
T^B,
T^CENTER,
T^CHANGES,
T^COMMENT,
T^COMPUSET,
T^DBL,
T^EXIT,
T^ERRORS,
T^EVEN,
T^FONTS,
T^FOOT,
T^HEAD,
T^IF,
T^INDEX,
T^IN,
T^JOIN,
T^JUSTIFY,
T^LINENO,
T^LONG,
T^NEED,
T^NEW,
T^ODD,
T^OFF,
T^ON,
INT PROC reserved^word(str); !
STRING .str; ! token to be found !
BEGIN ! !
STRING .buffer[ 0:19 ] := 20*[" "], ! holds uppercase string!
rswdtext = 'p' ! list of reserved words!
:= [
3, "ALT",
6, "ALWAYS",
5, "ARROW",
5, "BLANK",
3, "BOX",
12, "BOTTOMMARGIN",
5, "BREAK",
1, "B",
6, "CENTER",
7, "CHANGES,
7, "COMMENT", ->
8, "COMPUSET",
3, "DBL",
4, "EXIT",
6, "ERRORS",
4, "EVEN",
5, "FONTS",
4, "FOOT",
4, "HEAD",
2, "IF",
5, "INDEX",
2, "IN",
4, "JOIN",
7, "JUSTIFY",
6, "LINENO",
4, "LONG",
4, "NEED",
3, "NEW",
3, "ODD",
3, "OFF",
2, "ON",