
<<file:  PasVars.mesa>>
<<modified by Ramshaw, January 20, 1984 1:51 pm>>
<<written by McCreight, September 22, 1980  5:14 PM>>
    <<Pavel, May 29, 1985 6:51:09 pm PDT>>

DIRECTORY
Commander USING [Handle],
PasPrivate,
PasPrivateVars,
SafeStorage USING [GetSystemZone];

PasVars: CEDAR PROGRAM IMPORTS SafeStorage EXPORTS PasPrivateVars = PUBLIC

BEGIN OPEN PasPrivate, PasPrivateVars;

<<Variables>>


PascalIntegerName: ROPE _ "INT";
PascalRealName: ROPE _ "REAL";

Z: ZONE _ SafeStorage.GetSystemZone[];

commandHandle: Commander.Handle;

ch: CHARACTER;
contextBuffer: REF TEXT _ Z.NEW[TEXT[contextBufferLength]]; -- initialized by the Scanner
contextBufferIndex: NAT _ 0;
positionInInputFile: INT _ 0;
nameOfInputFile: ROPE _ "commandLine";
sy: Symbol;
op: Operator;
ident: Name _ NIL;

sourceFileSeq: SourceFileSeqPtr; -- the sequence of source files

capitalizeChars: BOOLEAN _ FALSE;
capitalizeStrings: BOOLEAN _ FALSE;
targetLanguage: TargetLanguage _ cedar;

pointerName: ROPE _ "LONG POINTER TO  ";
varPointerName: ROPE _ "LONG POINTER TO ";

paramsHaveNames: BOOLEAN _ FALSE;
useVarNamesForFileNames: BOOLEAN _ TRUE;

modularize: BOOL _ FALSE;
defsModules: IdentifierSetPtr;
implModules: IdentifierSetPtr;
configImports: IdentifierSetPtr;
configExports: IdentifierSetPtr;

segments: IdentifierPtr;  -- the procedures mentioned as containing funny arrays
segmentsTail: SegmentIdentifierTailPtr;

config: IdentifierPtr;
configTail: REF config IdentifierTail;

defaultDest: ARRAY ItemType OF DestinationPtr;

initCodeQPtr: OutputQueuePtr;

lexLevel: LexLevel;
display: ARRAY LexLevel OF DisplayEntryPtr;

outLevel: LexLevel _ 0;
outQStk: ARRAY LexLevel OF OutputQueuePtr;
outBuf: REF TEXT _ Z.NEW[TEXT[outBufMaxLength]];

integer: ScalarTypePtr _ Z.NEW[scalar Type _ [scalar[firstId: NIL, size: 0]]]; -- dummy
real: ScalarTypePtr _ Z.NEW[scalar Type _ [scalar[firstId: NIL, size: 0]]]; -- dummy
string: ScalarTypePtr _ Z.NEW[scalar Type _ [scalar[firstId: NIL, size: 0]]]; -- dummy
char: ScalarTypePtr _ Z.NEW[scalar Type _ [scalar[firstId: NIL, size: 256]]];
boolean: ScalarTypePtr _ Z.NEW[scalar Type _ [scalar[firstId: NIL, size: 2]]];
nil: PointerTypePtr _ Z.NEW[pointer Type_[pointer[elType: NIL]]];

integerId, realId, charId, booleanId, stringId: IdentifierPtr;
maxIntegerId, falseId, trueId, nilId: IdentifierPtr;

END.  -- of PasVars --