BEGIN
OPEN PasPrivate;
V a r i a b l e s
PascalIntegerName: ROPE; -- "INT"
PascalRealName: ROPE; -- "REAL"
Z: ZONE; -- for PasMesa's use
commandHandle: Commander.Handle;
ch: CHARACTER;
contextBufferLength: NAT = 50;
contextBuffer: REF TEXT;
contextBufferIndex: NAT;
positionInInputFile: INT;
nameOfInputFile: ROPE;
sy: Symbol;
op: Operator;
ident: Name;
sourceFileSeq: SourceFileSeqPtr; -- the sequence of source files
capitalizeChars: BOOLEAN;
capitalizeStrings: BOOLEAN;
targetLanguage: TargetLanguage;
pointerName: ROPE; -- either "POINTER TO " or "LONG POINTER TO " or "REF "
varPointerName: ROPE; --same for VAR parameters instead
paramsHaveNames: BOOLEAN;
useVarNamesForFileNames: BOOLEAN;
modularize: BOOLEAN;
defsModules: IdentifierSetPtr;
implModules: IdentifierSetPtr;
configImports: IdentifierSetPtr;
configExports: IdentifierSetPtr;
segments: IdentifierPtr;
segmentsTail: SegmentIdentifierTailPtr;
config: IdentifierPtr;
configTail: REF config IdentifierTail;
defaultDest: ARRAY ItemType OF DestinationPtr;
initCodeQPtr: OutputQueuePtr;
lexLevel: LexLevel;
display: ARRAY LexLevel OF DisplayEntryPtr;
outLevel: LexLevel;
outQStk: ARRAY LexLevel OF OutputQueuePtr;
outBuf: REF TEXT;
outBufMaxLength: NAT = 500;
integer, real, string: ScalarTypePtr; -- dummies
char: ScalarTypePtr;
boolean: ScalarTypePtr;
nil: PointerTypePtr;
integerId, realId, charId, booleanId, stringId: IdentifierPtr;
maxIntegerId, falseId, trueId, nilId: IdentifierPtr;
END. -- Pas