DIRECTORYFS USING [StreamOpen],IO USING [BreakProc, Error, GetIndex, GetTokenRope, RIS, STREAM],PascalBasic,PascalWizardFiles,Rope USING [Cat, Concat, FromChar],WeaveProcs,WeaveVars;WeaveExternalsImpl: PROGRAM IMPORTS PascalBasic, FS, IO, PascalWizardFiles, Rope EXPORTS WeaveProcs =BEGIN OPEN PascalBasic, PascalWizardFiles, WeaveProcs, WeaveVars;TtyRewrite: PUBLIC PROC [F: PascalTextFilePtr] =BEGINPascalOpenTextFileTTYOutput[F];END;FileReset: PUBLIC PROC [F: PascalTextFilePtr, Ext: Alfa] =BEGINinStream: IO.STREAM;IF F.baseFile = NIL THEN	-- In case we actually want to rewind this already-open file{inStream _ FS.StreamOpen[Rope.Cat[FileNameRoot[], ".", RopeFromAlfa[Ext]]];PascalOpenTextFileWithStream[F, inStream];};PascalTextRESET[F];END;FileRewrite: PUBLIC PROC [F: PascalTextFilePtr, Ext: Alfa] =BEGINoutStream: IO.STREAM;outStream _ FS.StreamOpen[Rope.Cat[FileNameRoot[], ".", RopeFromAlfa[Ext]], $create];PascalOpenTextFileWithStream[F, outStream];PascalTextREWRITE[F];END;FileClose: PUBLIC PROC [F: PascalTextFilePtr] =BEGINPascalCloseTextFile[F];END;FileGetPos: PUBLIC PROC [F: PascalTextFilePtr] RETURNS [FileGetPosResult: PascalInteger] =BEGINFileGetPosResult _ 0;  -- in case of error belowFileGetPosResult _ F.baseFile.str.GetIndex[ ! IO.Error => IF ec = NotImplementedForThisStream THEN CONTINUE];END;fileNameRootBreak: PRIVATE IO.BreakProc = CHECKEDBEGINRETURN[SELECT char FROM IN ['0..'9], IN ['A..'Z], IN ['a..'z], '-, '+, '# => other,ENDCASE => sepr];END;FileNameRoot: PROC RETURNS [ROPE] =BEGINRETURN[IO.RIS[commandLineTail].GetTokenRope[breakProc: fileNameRootBreak].token];END;RopeFromAlfa: PROC [a: Alfa] RETURNS [r: ROPE] =BEGINr _ NIL;FOR i:AlfaIndex IN AlfaIndex DOIF a[i] = '  THEN EXIT;r _ Rope.Concat[r, Rope.FromChar[a[i]]];ENDLOOP;END;END.    ╠  file:  WeaveExternalsImpl.mesaEdited by Lyle Ramshaw:  October 27, 1983 5:24 pmLast changed by Pavel on September 11, 1984 5:00:10 pm PDTimplements those procedures called by Weave as externals.Э╩-  Ш JЪЬЩJЪЬ1Щ1JЩ:JЪЬ9Щ9JШ Ъ╧k	Ш	JЪЬЭЬШJЪЭЬЭЬ,ЭЬЭЬШAJШJШJЪЬЭЬШ#JЪЬШJЪЬ
Ш
JШ ЧЪЬЭЬЭЬШ$JЪЬЭЬЭЬШAЧJЪЭЬЭЬ7ШAJШ Ъ╧n
ЬЭЬЭЬЭЬШ0JЪЭШJЪЬЭЬШJЪЭЬШJШ ЧЪЮ	ЬЭЬЭЬЭЬ!Ш:JЪЭШJЪЬ
ЭЬЭЬШJЪ	ЭЬЭЬЭЬЭЬ╧c<ШUШJШKJЪЬЭЬШ*ЧJШJЪЬЭЬШJЪЭЬШJШ ЧЪЮЬЭЬЭЬЭЬ!Ш<JЪЭШЪЬЭЬЭЬШJШUЧJЪЬЭЬШ+JЪЬЭЬШJЪЭЬШJШ ЧЪЮ	ЬЭЬЭЬЭЬШ/JЪЭШJЪЬЭЬШJЪЭЬШЧJШ Ъ
Ю
ЬЭЬЭЬЭЬЭЬ$ШZJЪЭШJЪЬЯШ0ЪЬЭЬЭЬ
Ш:JЪЭЬ"ЭЬЭЬШ3ЧJЪЭЬШЧIunitШ ЪЬЭЬЭЬЭШ1JЪЭШЪЭЬЭЬЭЬШJЪЭЬЭЬЭЬШ;JЪЭЬ
ШЧJЪЭЬШЧЪЮЬЭЬЭЬЭЬШ#JЪЭШJЪЭЬЭЬЭЬDШQJЪЭЬШЧJШ ЪЮЬЭЬЭЬЭЬШ0JЪЭШJЪЬЭЬШЪЭЬЭЬЭШJЪЭЬЭЬЭЬШJШ(ЧJЪЭЬШJЪЭЬШJШ ЧJЪЭЬШJШ JШ Ч ЕЧ    :  3  