File [ivy]<Satterthwaite>Poplar>Poplar.model!8

    -- Poplar.model
    -- last edited by Satterthwaite, May 15, 1986 1:39:37 pm PDT

    LET @///SML/OSBasics.modelBcd!581021414 IN
    LET @///SML/CedarBasics.modelBcd!581021540 IN

    LAMBDA [
        AsciiImpl: Ascii, BasicsImpl: Basics, BasicTimeImpl: BasicTime,
        FSImpl: FS, IOImpl: IO, PrincOpsUtilsImpl: PrincOpsUtils,
        ProcessImpl: Process, RefTextImpl: RefText, RopeImpl: Rope,
        SafeStorageImpl: SafeStorage, ViewerIOImpl: ViewerIO, VMImpl: VM] IN
      REC [
        &options: STRING~"bjn-s";

        PL: TYPE~@PL.mesa!577413656*[];

        Disp: TYPE~@Disp.mesa!577413677*[];
        DispImpl: Disp~@DispImpl.mesa!581980810*[]*[];

        PString: TYPE~@PString.mesa!577413734*[];
        PStringImpl: PString~@PStringImpl.mesa!577414165*[]*[];
        S: PString~PStringImpl;

        WindowProcInt: TYPE~@WindowProcInt.mesa!577413788*[];
        WindowProcIntImpl: WindowProcInt~@WindowProcImpl.mesa!577414478*[]*[];

        Route: TYPE~@Route.mesa!577413806*[];
        RouteImpl: Route~
          @RouteImpl1.mesa!577414701*[]*[D2:~DispImpl]
            + @RouteImpl2.mesa!577414885*[]*[];

        [Poplar: CONTROL, Driver: PL]~@PLImpl.mesa!577414982*[]*[D1:~DispImpl];
        PLImpl: PL~
          Driver + @PLSupImpl.mesa!577415086*[]*[]
            + @PLParseImpl.mesa!577415201*[]*[] + @PLStoreImpl.mesa!577415268*[]*[]
            + @PLEvalImpl.mesa!577415389*[]*[];
        P: PL~PLImpl].Poplar