TGAL Manual

TGAL Procedures
Tailoring TGAL
060865 Tandem Computers Incorporated 4–9
The exclamation points mark off the comments in the program. You can change only
the lines marked with an arrow. The procedure does not determine the length of the
names; therefore, you must remember to change the values of the length; for example:
T^ALT,
T^ALWAYS,
T^ARROW,
T^BLANK,
T^BOX,
T^BOTTOM^MARGIN,
T^BREAK,
T^B,
T^CENTER,
T^CENTER,
T^CHANGES,
T^COMPUSET,
T^DBL,
T^EXIT,
T^ERRORS,
T^EVEN,
T^FONTS,
T^FOOT,
T^HEAD,
T^IF,
T^COMMENT,
T^INDEX,
T^IN,
T^JOIN,
T^JUSTIFY,
T^LINENO,
T^LONG,
T^NEED,
T^NEW,
T^ODD,
T^OFF,
T^ON,
T^OUTLEN,
T^OUT,
T^OV,
T^PAGELEN,
T^PAUSE,
T^POFF,
T^SECT,
T^SEQ,
T^SET,
T^SHORT,
T^SPACE,
T^SUBHEAD,
T^TAG,
T^TEXT,
T^TODAY,
T^TOP^MARGIN,
T^TRANSPARENT,
T^TRIGGER,
T^UPSHIFT,
T^USA,
T^VERSION,
T^WORLD,
0
];
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",
7, "BMARGIN", !shortened command name !
5, "BREAK",
1, "B",
6, "CENTER",
6, "CENTRE", !a synonym for CENTER !
7, "CHANGES,
8, "COMPUSET",
3, "DBL",
4, "EXIT",
6, "ERRORS",
4, "EVEN",
5, "FONTS",
4, "FOOT",
4, "HEAD",
2, "IF",
6, "IGNORE", !replacement for COMMENT !
5, "INDEX",
2, "IN",
4, "JOIN",
7, "JUSTIFY",
6, "LINENO",
4, "LONG",
4, "NEED",
7, "NEWPAGE", !expanded command name !
3, "ODD",
3, "OFF",
2, "ON",
6, "OUTLEN",
3, "OUT",
2, "OV",
7, "PAGELEN",
5, "PAUSE",
4, "POFF",
4, "SECT",
3, "SEQ",
3, "SET",
5, "SHORT",
5, "SPACE",
7, "SUBHEAD",
3, "TAG",
4, "TEXT",
5, "TODAY",
9, "TOPMARGIN",
11, "TRANSPARENT",
7, "TRIGGER",
7, "UPSHIFT",
3, "USA",
7, "VERSION",
5, "WORLD",