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; }. bBcdComData.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Satterthwaite on April 17, 1986 12:44:47 pm PST Maxwell, August 3, 1983 12:44 pm Paul Rovner, September 22, 1983 12:56 pm Russ Atkinson (RRA) March 7, 1985 0:13:39 am PST mode scratch storage input error reporting output global info for config bcd literal management Κd˜codešœ™Kšœ Οmœ1™