<> <> <> <> <<>> <> DIRECTORY Commander USING [Handle], PasPrivate; PasPrivateVars: CEDAR DEFINITIONS = BEGIN OPEN PasPrivate; <> 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 <> <> <<>>