DIRECTORY TerminalDefs USING [BW, FL3, FL4], TIPPrivate USING [errorText, keyNames]; TIPTableBuilder2: CEDAR PROGRAM IMPORTS TIPPrivate EXPORTS TIPPrivate = BEGIN OPEN TIPPrivate; InitBuilder: PUBLIC PROC = { errorText[0] _ "Error"; errorText[1] _ "OPTIONS or CASE expected"; errorText[2] _ "ENDCASE or; expected"; errorText[3] _ "'.' expected"; errorText[4] _ "Ident expected"; errorText[5] _ "TRIGGER expected"; errorText[6] _ "OF expected"; errorText[7] _ "': expected"; errorText[8] _ "KeyIdent or Mouse expected"; errorText[9] _ "error in Action"; errorText[10] _ "Number expected"; errorText[11] _ "'> expected"; errorText[12] _ "Up or Down expected"; errorText[13] _ "TRIGGER or ENABLED expected"; errorText[14] _ "illegal option"; errorText[15] _ "enable procedures as CONDITION only"; errorText[16] _ "mouse motion as TRIGGER only"; errorText[17] _ "label used twice"; errorText[18] _ "; expected"; errorText[19] _ ", expected"; errorText[20] _ "BY expected"; errorText[21] _ "Key or Ident expected"; errorText[22] _ "AND, WHILE, =>, or : expected"; errorText[23] _ "CASE expected"; errorText[24] _ "sorry, results only at leaves implemented"; errorText[25] _ "Mouse movement entry must not occur more than once in table."; errorText[26] _ "Illegal character following \\ in string"; errorText[27] _ ""; errorText[28] _ ""; errorText[29] _ ""; errorText[30] _ ""; keyNames[x0] _ "x0"; keyNames[x1] _ "x1"; keyNames[x2] _ "x2"; keyNames[x3] _ "x3"; keyNames[x4] _ "x4"; keyNames[x5] _ "x5"; keyNames[x6] _ "x6"; keyNames[Pen] _ "Pen"; keyNames[Keyset1] _ "Keyset1"; keyNames[Keyset2] _ "Keyset2"; keyNames[Keyset3] _ "Keyset3"; keyNames[Keyset4] _ "Keyset4"; keyNames[Keyset5] _ "Keyset5"; keyNames[Red] _ "Red"; keyNames[Blue] _ "Blue"; keyNames[Yellow] _ "Yellow"; keyNames[Five] _ "Five"; keyNames[Four] _ "Four"; keyNames[Six] _ "Six"; keyNames[E] _ "E"; keyNames[Seven] _ "Seven"; keyNames[D] _ "D"; keyNames[U] _ "U"; keyNames[V] _ "V"; keyNames[Zero] _ "Zero"; keyNames[K] _ "K"; keyNames[Dash] _ "Dash"; keyNames[P] _ "P"; keyNames[Slash] _ "Slash"; keyNames[BackSlash] _ "BackSlash"; keyNames[LF] _ "LF"; keyNames[BS] _ "BS"; keyNames[Three] _ "Three"; keyNames[Two] _ "Two"; keyNames[W] _ "W"; keyNames[Q] _ "Q"; keyNames[S] _ "S"; keyNames[A] _ "A"; keyNames[Nine] _ "Nine"; keyNames[I] _ "I"; keyNames[X] _ "X"; keyNames[O] _ "O"; keyNames[L] _ "L"; keyNames[Comma] _ "Comma"; keyNames[Quote] _ "Quote"; keyNames[RightBracket] _ "RightBracket"; keyNames[Spare2] _ "Spare2"; keyNames[TerminalDefs.BW] _ "BW"; keyNames[One] _ "One"; keyNames[ESC] _ "ESC"; keyNames[TAB] _ "TAB"; keyNames[F] _ "F"; keyNames[Ctrl] _ "Ctrl"; keyNames[C] _ "C"; keyNames[J] _ "J"; keyNames[B] _ "B"; keyNames[Z] _ "Z"; keyNames[LeftShift] _ "LeftShift"; keyNames[Period] _ "Period"; keyNames[SemiColon] _ "SemiColon"; keyNames[Return] _ "Return"; keyNames[Arrow] _ "Arrow"; keyNames[DEL] _ "DEL"; keyNames[TerminalDefs.FL3] _ "FL3"; keyNames[R] _ "R"; keyNames[T] _ "T"; keyNames[G] _ "G"; keyNames[Y] _ "Y"; keyNames[H] _ "H"; keyNames[Eight] _ "Eight"; keyNames[N] _ "N"; keyNames[M] _ "M"; keyNames[Lock] _ "Lock"; keyNames[Space] _ "Space"; keyNames[LeftBracket] _ "LeftBracket"; keyNames[Equal] _ "Equal"; keyNames[RightShift] _ "RightShift"; keyNames[Spare3] _ "Spare3"; keyNames[TerminalDefs.FL4] _ "FL4"; }; END. θTIPTableBuilder2.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last Edited by McGregor, June 10, 1982 12:54 pm Last Edited by: Maxwell, January 3, 1983 10:36 am Doug Wyatt, April 14, 1985 10:08:54 pm PST Κ– "Mesa" style˜codešœ™Kšœ Οmœ1™