-- CrossCL.model, 12-May-83 8:47:37 PDT OPEN @TrinityPilot.model!2586712235; KernelFile: TYPE~@KernelFile.bcd; ProcessorFace: TYPE~@ProcessorFace.bcd; Strings: TYPE~@LongStrings.Mesa!2579451954[LongString]; System: TYPE~@System.bcd; CrossCL: PROC [DirectoryImpl: Directory, ExecImpl: Exec, ExecOpsImpl: ExecOps, FileImpl: File, FileStreamImpl: FileStream, HeapImpl: Heap, InlineImpl: Inline, KernelFileImpl: KernelFile, LongStringImpl: LongString, ProcessorFaceImpl: ProcessorFace, RuntimeImpl: Runtime, SpaceImpl: Space, StreamImpl: Stream, StringsImpl: Strings, TimeImpl: Time, TransactionImpl: Transaction, TTYImpl: TTY] RETURNS [] [ CharIO: TYPE~@CharIO.mesa!2585844909[Format, Stream, Strings]; CommandUtil: TYPE~@CommandUtil.mesa!2585845958[ExecOps, Stream, Strings]; Table: TYPE~@Table.mesa!2577115106; Alloc: TYPE~@Alloc.mesa!2585849506; BcdDefs: TYPE~@tempBcdDefs.mesa!2582065272[PrincOps, Table, TimeStamp]; BcdOps: TYPE~@BcdOps.mesa!2563405009[BcdDefs]; Symbols: TYPE~@Symbols.mesa!2591895789[PrincOps, Table, TimeStamp]; Literals: TYPE~@Literals.mesa!2591823743[Symbols, Table]; Tree: TYPE~@Tree.mesa!2591824100[Table, Literals, Symbols]; SymbolSegment: TYPE~@SymbolSegment.mesa!2591823663[Literals, Symbols, Table, TimeStamp, Tree]; SymbolOps: TYPE~@SymbolOps.mesa!2591827562[Alloc, Strings, Symbols, TimeStamp, Tree]; SymbolTable: TYPE~@SymbolTable.mesa!2568557625[FileSegment, SymbolPack]; FileSegment: TYPE~@FileSegment.mesa!2550689766[File]; FileParms: TYPE~@FileParms.mesa!2563230620[FileSegment, Strings, TimeStamp]; CatchFormat: TYPE~@CatchFormat.mesa!2573406132[PrincOps]; ESCAlpha: TYPE~@tESCAlpha.mesa!2586364738; OSMiscOps: TYPE~@OSMiscOps.mesa!2585846758[Environment, File, Strings, TimeStamp]; OSMiscOpsImpl: OSMiscOps~@OSMiscOpsImpl.mesa!2585847230[DCSFileTypes, Directory, File, Inline, KernelFile, OSMiscOps, ProcessorFace, Runtime, Space, Time, TimeStamp, "-b-cj-ns", DirectoryImpl, InlineImpl, KernelFileImpl, ProcessorFaceImpl, RuntimeImpl, SpaceImpl, TimeImpl]; CharIOImpl: CharIO~@CharIOImpl.mesa!2585845746[CharIO, Stream, Strings, "-b-cj-ns", StringsImpl, StreamImpl]; CommandUtilImpl: CommandUtil~@CommandPack.mesa!2585846832[CommandUtil, Heap, Stream, Strings, "-b-cj-ns", HeapImpl, StreamImpl, StringsImpl]; LET [SymbolPack: TYPE, SymbolPackImpl: SymbolPack, SymbolOpsImpl: SymbolOps] ~ @SymbolPack.mesa!2591827548[ Inline, Literals, Strings, Symbols, SymbolOps, SymbolSegment, TimeStamp, Tree, "-b-cj-ns", InlineImpl, StringsImpl]; SymbolTableImpl: SymbolTable~@SymbolCache.mesa!2591914617[Environment, File, FileSegment, Heap, Space, Symbols, SymbolPack, SymbolSegment, SymbolTable, "-b-cj-ns", SymbolPackImpl, FileImpl, HeapImpl, SpaceImpl]; ListerUtil: TYPE~@ListerUtil.mesa!2599055087[BcdDefs, BcdOps, FileSegment, Space, Stream, Strings, Symbols, SymbolTable]; LET [discard: Alloc, ListerUtilImpl: ListerUtil] ~ @tempListerUtilities.mesa!2599055116[ Alloc, BcdDefs, BcdOps, CharIO, Environment, Exec, File, FileSegment, FileStream, Format, Heap, ListerUtil, OSMiscOps, Space, Stream, Strings, Symbols, SymbolSegment, SymbolTable, Time, TTY, "-b-cj-ns", CharIOImpl, ExecImpl, FileStreamImpl, HeapImpl, OSMiscOpsImpl, SpaceImpl, StreamImpl, StringsImpl, TimeImpl, TTYImpl]; ListerOps: TYPE~@ListerOps.mesa!2581441556[Strings]; OpTableDefs: TYPE~@tOpTableDefs.mesa!2573769749; LET [MopcodeNames: TYPE, MopcodeNamesImpl: MopcodeNames] ~ @MopcodeNames.bcd; LET [ESCAlphaSDDefsNames: TYPE, ESCAlphaSDDefsNamesImpl: ESCAlphaSDDefsNames] ~ @ESCAlphaSDDefsNames.bcd; ListerOpsImpl: ListerOps~@tCLList.mesa!2599055569[BcdDefs, BcdOps, CatchFormat, CharIO, Environment, ESCAlpha, ESCAlphaSDDefsNames, FileSegment, FileStream, Format, Heap, Inline, ListerOps, ListerUtil, Mopcodes, OpTableDefs, OSMiscOps, PrincOps, Runtime, Space, Stream, Strings, Symbols, SymbolSegment, SymbolTable, "-b-cj-ns", CharIOImpl, FileStreamImpl, ESCAlphaSDDefsNamesImpl, HeapImpl, InlineImpl, ListerUtilImpl, OpTableDefsImpl, OSMiscOpsImpl, RuntimeImpl, SpaceImpl, StreamImpl, StringsImpl, SymbolTableImpl]; OpTableDefsImpl1: OpTableDefs~@OpNames.mesa!2539382116[Environment, MopcodeNames, OpTableDefs, Runtime, Strings, "-b-cj-ns", MopcodeNamesImpl, RuntimeImpl, StringsImpl]; OpTableDefsImpl2: OpTableDefs~@tOpTable.mesa!2586212633[OpTableDefs, "-b-cj-ns"]; OpTableDefsImpl: OpTableDefs~(OpTableDefsImpl1) PLUS (OpTableDefsImpl2); CLControl: CONTROL~@CrossCLControl.mesa!2581374447[CharIO, CommandUtil, Exec, ExecOps, ListerOps, OSMiscOps, Runtime, Stream, Strings, Time, TTY, "-b-cj-ns", CharIOImpl, CommandUtilImpl, ExecImpl, ExecOpsImpl, ListerOpsImpl, OSMiscOpsImpl, RuntimeImpl, StreamImpl, StringsImpl, TimeImpl, TTYImpl] ]