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