-- 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
      ]