-- PoplarDD.model -- last edited August 3, 1983 9:09 am LET @OSBasics.modelBcd IN LET @CedarBasics.model!2606162699 IN LET [ ConvertUnsafe: TYPE~@ConvertUnsafe.bcd[], RefText: TYPE~@RefText.bcd[], RTTypesBasic: TYPE~@RTTypesBasic.bcd[], System: TYPE~@System.bcd[], ViewerIO: TYPE ~@ViewerIO.bcd[] ] IN LAMBDA [ ConvertUnsafeImpl: ConvertUnsafe, DirectoryImpl: Directory, FileImpl: File, FileIOImpl: FileIO, InlineImpl: Inline, IOImpl: IO, ProcessImpl: Process, RefTextImpl: RefText, RopeImpl: Rope, RTTypesBasicImpl: RTTypesBasic, SafeStorageImpl: SafeStorage, SpaceImpl: Space, ViewerIOImpl: ViewerIO ] => [] IN REC [ &options: STRING~"bjn"; PString: TYPE ~@PString.mesa!2576354169*[]*[]; PL: TYPE ~@PL.mesa!2605973442*[]*[]; Disp: TYPE ~@Disp.mesa!2576351876*[]*[]; PStringImpl: PString~@PStringImpl.mesa!2605104398*[]*[]; S: PString~PStringImpl; DispImpl: Disp~@DispImpl.mesa!2576354366*[]*[]; WindowProcInt: TYPE ~@WindowProcInt.mesa!2576350075*[]*[]; WindowProcIntImpl: WindowProcInt~@WindowProcImpl.mesa!2590695151*[]*[]; Route: TYPE ~@Route.mesa!2576352241*[]*[]; RouteImpl: Route~ @RouteImpl1.mesa!2576354837*[]*[D2~DispImpl]+@RouteImpl2.mesa!2605106165*[]*[]; [Poplar: CONTROL,Driver: PL]~@PLImpl.mesa!2603202980*[]*[D1~DispImpl]; PLImpl: PL~ Driver+@PLSupImpl.mesa!2605973337*[]*[]+@PLEvalImpl.mesa!2602518872*[]*[]+ @PLStoreImpl.mesa!2602518924*[]*[]+@PLParseImpl.mesa!2602532061*[]*[]; P: PL~PLImpl ]