<> <> <> <> <> <> <<>> DIRECTORY Alloc: TYPE USING [Handle], BcdDefs: TYPE USING [FTIndex, NameRecord, VersionStamp], BcdLiterals: TYPE USING [LiteralState], CommandUtil: TYPE USING [PairList], FS: TYPE USING [OpenFile], IO: TYPE USING [STREAM], OSMiscOps: TYPE USING [Stamp], Rope: TYPE USING [ROPE]; BcdComData: PROGRAM = { <> op: PUBLIC {bind, conc} _ $bind; <> table: PUBLIC Alloc.Handle; <> rootName: PUBLIC Rope.ROPE _ NIL; sourceName: PUBLIC Rope.ROPE _ NIL; sourceVersion: PUBLIC BcdDefs.VersionStamp; sourceStream: PUBLIC IO.STREAM; commandArgs: PUBLIC CommandUtil.PairList; <> logStream: PUBLIC IO.STREAM; errorStream: PUBLIC IO.STREAM; textIndex: PUBLIC CARDINAL; currentName: PUBLIC BcdDefs.NameRecord; errors: PUBLIC BOOL; warnings: PUBLIC BOOL; nErrors: PUBLIC CARDINAL; nWarnings: PUBLIC CARDINAL; aborted: PUBLIC BOOL; <

> objectStream: PUBLIC IO.STREAM; outputFile: PUBLIC FS.OpenFile; outputFti: PUBLIC BcdDefs.FTIndex; bcdName: PUBLIC Rope.ROPE _ NIL; objectStamp: PUBLIC OSMiscOps.Stamp; codeName: PUBLIC Rope.ROPE _ NIL; symbolName: PUBLIC Rope.ROPE _ NIL; nConfigs: PUBLIC CARDINAL; nModules: PUBLIC CARDINAL; nImports: PUBLIC CARDINAL; nExports: PUBLIC CARDINAL; nPages: PUBLIC CARDINAL; typeExported: PUBLIC BOOL; <> binderVersion: PUBLIC BcdDefs.VersionStamp; copyCode: PUBLIC BOOL; copySymbols: PUBLIC BOOL; debug: PUBLIC BOOL; <> <<>> literals: PUBLIC BcdLiterals.LiteralState _ NIL; <<>> }.