DIRECTORYGriffinMenusInterface USING [MenuItemFromRope, PlaceObjectCP, Close],JaM,IO,FS,Rope USING [ROPE, Equal, Length];LogToGriffinImpl: PROGRAMIMPORTS JaM, Rope, IO, FS, GriffinMenusInterfaceEXPORTS = BEGINstream: IO.STREAM;Done: SIGNAL = CODE;ROPE: TYPE = Rope.ROPE;objectNumber: INTEGER _ 0;OpenInputFile: SAFE PROC[state: JaM.State] = TRUSTED {ENABLE FS.Error => TRUSTED {JaM.ExecuteRope[state,"(FS.StreamOpen failed\n) .print"]; CONTINUE};rope: ROPE _ JaM.PopRope[state];IF stream # NIL THEN stream.Close[];stream _ NIL;IF rope.Length[] > 0 THEN stream _ FS.StreamOpen[fileName: rope, accessOptions: $read];FindNextObject[];	--reads past any junk at the frontobjectNumber _ 0;};CloseInputFile: SAFE PROC[state: JaM.State] = TRUSTED {IF stream # NIL THEN stream.Close[];stream _ NIL;};JFindObject: SAFE PROCEDURE[state: JaM.State] = TRUSTED  {ENABLE IO.EndOfStream =>{JaM.ExecuteRope[state,"(not found \n) .print"]; CONTINUE};cn: INTEGER _ JaM.PopInt[state];FindObject[cn];};FindObject: PUBLIC PROCEDURE [cn: NAT] = {count: NAT _ 0;IO.SetIndex[stream,0];FindNextObject[];	--reads past any junk at the frontobjectNumber _ 0;UNTIL count=cn DOFindNextObject[];count _ count+1;ENDLOOP;};FindNextObject: PUBLIC PROC = {rope: ROPE;UNTIL Rope.Equal[rope,"beginoutline",FALSE] DO[rope,  ] _ stream.GetTokenRope[];objectNumber _ objectNumber+1;ENDLOOP;};JInputCubics: SAFE PROC[state: JaM.State] = TRUSTED {JaM.PushBool[state,InputCubics[]];};InputCubics: PUBLIC PROCEDURE RETURNS[endOfFile: BOOLEAN] = {OPEN GriffinMenusInterface;x0,y0,x1,y1,x2,y2,x3,y3: REAL;endOfFile _ FALSE;[x0,y0] _ GetFirst[ ! IO.Error => {FindNextObject[]; RETRY}; IO.EndOfStream => ERROR];GriffinMenusInterface.PlaceObjectCP[[x0,y0]];DO[x0,y0,x1,y1,x2,y2,x3,y3] _ GetCurve[! Done => EXIT; IO.EndOfStream => {endOfFile _ TRUE; EXIT}];GriffinMenusInterface.PlaceObjectCP[[x1,y1]];GriffinMenusInterface.PlaceObjectCP[[x2,y2]];GriffinMenusInterface.PlaceObjectCP[[x3,y3]];ENDLOOP;objectNumber _ objectNumber+1;GriffinMenusInterface.Close[GriffinMenusInterface.MenuItemFromRope["Close"]];};GetFirst: PROC RETURNS[x,y: REAL] = {r: ROPE;x _ IO.GetReal[stream];y _ IO.GetReal[stream];[r,  ] _ IO.GetTokenRope[stream];IF ~Rope.Equal[r,"setcp",FALSE] THEN ERROR;};GetCurve: PROC RETURNS[x0,y0,x1,y1,x2,y2,x3,y3: REAL] = {r: ROPE;x0 _ IO.GetReal[stream ! IO.Error => SIGNAL Done];y0 _ IO.GetReal[stream];x1 _ IO.GetReal[stream];y1 _ IO.GetReal[stream];x2 _ IO.GetReal[stream];y2 _ IO.GetReal[stream];x3 _ IO.GetReal[stream];y3 _ IO.GetReal[stream];[r,  ] _ stream.GetTokenRope[];IF ~Rope.Equal[r,"bezier",FALSE] THEN ERROR;};Init: SAFE PROC[state: JaM.State] = TRUSTED {JaM.Register[state,"Griffin.openInput",OpenInputFile];	--open the input file (will close current file)JaM.Register[state,"Griffin.closeInput",CloseInputFile];	--close the input fileJaM.Register[state,"Griffin.findObject",JFindObject];	--object number .findObjectJaM.Register[state,"Griffin.inputCubics",JInputCubics];	--inputs current object. returns endOfFile};JaM.RegisterInit["LogToGriffinImpl",Init];END.    ╛  LogToGriffinImpl.mesaWritten by: Maureen Stone December 15, 1983 5:29 pmLast Edited by: Pier, February 14, 1984 10:36:36 am PSTLast Edited by: Stone, April 16, 1984 5:05:56 pm PST Э╩a  Ш JШ JЪЬЩJЪЬ3Щ3JЩ7JЩ4Ъ╧k	Ш	JЪЬЭЬ*ШEJШJЪЭЬШJЪЭЬШJЪЬЭЬЭЬШ!ЧJШ JЪЬЭШJЪЭЬ)Ш0JЪЭЬЭШJЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЭЬЭЬЭЬШJЪЬЭЬШJШ Ъ╧nЬЭ	ЬЭЬШ6ЪЭЬЭЬШJЪЬ:ЭЬШDЧJЪЬЭЬШ JЪЭЬ
ЭЬЭЬШ$JЪЬ	ЭЬШJЪЭЬЭЬ>ШWJЪЬ╧c"Ш4JШJШJШ ЧЪЮЬЭ	ЬЭЬШ7JЪЭЬ
ЭЬЭЬШ$JЪЬ	ЭЬШJШJШ ЧЪЮЬЭЬЭЬШ:JЪЭЬCЭЬШSJЪЬЭЬШ JШJЪЬШJШ ЧЪЮ
ЬЭЬЭЬШ*JЪЬЭЬШJЪЭЬШJЪЬЯ"Ш4JШЪЭЬ	ЭШJЪЬШJШJЪЭЬШЧJЪЬШЧЪЮЬЭЬШJЪЬЭЬШЪЭЬ ЭЬЭШ.JЪЬ"Ш"JШJЪЭШЧJЪЬШЧЪЮЬЭ	ЬЭЬШ5JЪЬ"Ш"JЪЬШЧЪЮЬЭЬЭ	ЬЭЬЭЬЭЬШXJЪЬЭЬШJЪЬЭЬШJЪ	ЬЭЬЭЬЭЬЭЬШVJЪЬ-Ш-ЪЭШЪЬ/ЭЬЭЬШHJЪЬЭЬЭЬШЧJЪЬ-Ш-JЪЬ-Ш-JЪЬ-Ш-JЪЭЬШЧJШJЪЬMШMJЪЬШЧЪЮЬЭЬЭЬЭЬШ%JЪЬЭЬШJЪЬЭЬШJЪЬЭЬШJЪЬ	ЭЬШ!JЪЭЬЭЬЭЬЭЬШ+JШЧЪЮЬЭЬЭЬЭЬШ9JЪЬЭЬШJЪЬЭЬЭЬ
ЭЬШ2JЪЬЭЬШJЪЬЭЬШJЪЬЭЬШJЪЬЭЬШJЪЬЭЬШJЪЬЭЬШJЪЬЭЬШJЪЬШJЪЭЬЭЬЭЬЭЬШ,JШЧJШ ЪЮЬЭЬЭЬЭЬШ-JЪЬ7Я/ШfJЪЬ9ЯШOJЪЬ6Я╨ci╧i
ШQJЪЬ8Я*ШbJШЧJШ JЪЬ*Ш*JШ JЪЭЬШJШ JШ Ч ЕЧ    L  k  