TIPTableBuilder2.mesa
Copyright © 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
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.