|
|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3200 (0xc80)
Types: TextFile
Names: »PPTYPES.PAS«
└─⟦02f213fda⟧ Bits:30008919 MT+ SPP 2/3
└─⟦this⟧ »PPTYPES.PAS«
CONST
CR = $0D;
MAXSYMSIZE = 200; (* MAX SIZE OF A SYMBOL *)
MAXSTKSIZE = 100; (* MAX # OF SYMBOLS CAUSING INDENTATION *)
MAXKEYLEN = 10; (* MAX LENGTH OF A RESERVED WORD *)
MAXLINSIZE = 72; (* MAX SIZE OF AN OUTPUT LINE *)
SLFAIL1 = 48; (* USE TWO BLANKS AS TAB BEFORE THIS COL *)
SLFAIL2 = 60; (* USE ONE BLANK AS TAB BETWEEN SF1 AND HERE *)
INDENT1 = 2;
INDENT2 = 1;
SPACE = ' ';
TYPE
KEYSYMBOL = (PROGSY,
EXTSY,
FUNCSY,
PROCSY,
LABELSY,
CONSTSY,
TYPESY,
VARSY,
BEGINSY,
REPEATSY,
RECORDSY,
CASESY,
CASEVARSY,
OFSY,
FORSY,
WHILESY,
WITHSY,
DOSY,
IFSY,
THENSY,
ELSESY,
ENDSY,
UNTILSY,
BECOMES,
OPENCOMMENT,
CLOSECOMMENT,
SEMICOLON,
COLON,
EQUALS,
OPENPAREN,
CLOSEPAREN,
PERIOD,
END_OF_FILE,
ANOTHERSY,
OTHERSY);
OPTION = (CRSUPPRESS,
CRBEFORE,
BLANKLINEBEFORE,
DINDENTONKEYS,
DINDENT,
SPACEBEFORE,
SPACEAFTER,
GOBBLESYMBOLS,
INDENTBYTAB,
INDENTTOCLP,
CRAFTER);
OPTIONSET = SET OF OPTION;
KEYSYMSET = SET OF KEYSYMBOL;
TABLEENTRY = RECORD
OPT : OPTIONSET;
DINDENTSYMBOLS : KEYSYMSET;
GOBBLETERMINATORS: KEYSYMSET
END;
OPTIONTABLE = ARRAY ÆKEYSYMBOLÅ OF TABLEENTRY;
KEY = PACKED ARRAY Æ1..MAXKEYLENÅ OF CHAR;
KEYWORDTABLE = ARRAY ÆPROGSY..UNTILSYÅ OF KEY;
SPECIALCHAR = PACKED ARRAY Æ1..2Å OF CHAR;
DBLCHRSET = SET OF BECOMES..OPENCOMMENT;
DBLCTABLE = ARRAY ÆBECOMES..OPENCOMMENTÅ OF SPECIALCHAR;
SGLCHARTABLE = ARRAY ÆOPENCOMMENT..PERIODÅ OF CHAR;
STRING = ARRAY Æ1..MAXSYMSIZEÅ OF CHAR;
SYMBOL = RECORD
NAME : KEYSYMBOL;
VALUE : STRING;
LENGTH : INTEGER;
SPACESBEFORE: INTEGER;
CRSBEFORE : INTEGER
END;
SYMBOLINFO = æ^åSYMBOL;
CHARNAME = (LETTER, DIGIT, BLANK, QUOTE,
END_OF_LINE, FILEMARK, OTHERCHAR);
CHARINFO = RECORD
NAME : CHARNAME;
VALUE : CHAR
END;
STACKENTRY = RECORD
INDENTSYMBOL : KEYSYMBOL;
PREVMARGIN : INTEGER
END;
SYMBOLSTACK = ARRAY Æ1..MAXSTKSIZEÅ OF STACKENTRY;
«eof»