DIRECTORYCommander USING [Handle],PasPrivate,PasPrivateVars,SafeStorage USING [GetSystemZone];PasVars: CEDAR PROGRAM IMPORTS SafeStorage EXPORTS PasPrivateVars = PUBLICBEGIN OPEN PasPrivate, PasPrivateVars;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 --    ¨  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Variables ÊÃ  ˜ Jšœ™Jšœ-™-šœ1™1Icode™"—J˜ šÏk	˜	Jšœ
œ
˜J˜J˜Jšœœ˜"J˜ —Jš
œ	œœœœ˜J˜ Jšœœ˜&J˜ Jšœ	™	J˜ J˜ Jšœœ	˜ Jšœœ
˜J˜ Jšœœ˜&J˜ J˜ J˜ Jšœ	œ˜JšœœœœœœÏc˜YJšœœ˜Jšœœ˜Jšœœ˜&J˜J˜Jšœœ˜J˜ Jšœ!ž˜@J˜ Jšœœœ˜!Jšœœœ˜#J˜'J˜ Jšœœ˜(Jšœœ˜*J˜ Jšœœœ˜!Jšœœœ˜(J˜ Jšœœœ˜J˜J˜J˜ J˜ J˜ Jšœž6˜PJ˜'J˜ J˜Jšœœ˜&J˜ Jšœœ
œ˜.J˜ J˜J˜ J˜Jšœ	œ
œ˜+J˜ J˜Jšœ	œ
œ˜*Jšœœœœœœ˜0J˜ Jšœœœ œž˜WJšœœœ œž˜TJšœœœ œž˜VJšœœœ œ˜MJšœœœ œ˜NJšœœœœ˜AJ˜ J˜>J˜4J˜ Jšœž˜J˜ J˜ —— …—    ~  é  