-- Poplar.model
-- last edited by Satterthwaite, February 24, 1986 11:31:42 am PST

LET @///SML/OSBasics.modelBcd!560125375 IN 
LET @///SML/CedarBasics.modelBcd!560125418 IN 

LAMBDA [
    AsciiImpl: Ascii, BasicTimeImpl: BasicTime, FSImpl: FS, IOImpl: IO, 
    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!577413997*[]*[]; 
    
    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