DIRECTORYAtom, FS, GGError, GGInterfaceTypes, GGModelTypes, GGSessionLog, GGUserInput, IO, Rope;GGSessionLogImpl: CEDAR PROGRAMIMPORTS Atom, FS, GGError, GGUserInput, IO, RopeEXPORTS GGSessionLog =BEGINCharClass: TYPE = IO.CharClass;GargoyleData: TYPE = GGInterfaceTypes.GargoyleData;Point: TYPE = GGModelTypes.Point;globalStream: IO.STREAM;SetStream: PUBLIC PROC [stream: IO.STREAM] = {globalStream _ stream;};EnterAction: PUBLIC PROC [point: Point, action: LIST OF REF ANY, mouseEvent: BOOL] = {IF mouseEvent THEN globalStream.PutF["* [%g, %g] ", [real[point[1]]], [real[point[2]]] ];FOR actionList: LIST OF REF ANY _ action, actionList.rest UNTIL actionList = NIL DOWITH actionList.first SELECT FROMatom: ATOM => globalStream.PutF["%g", [rope[Atom.GetPName[atom]]]];n: REF INT => globalStream.PutF["%g", [integer[n^]]];r: REF REAL => globalStream.PutF["%g", [real[r^]]];ENDCASE => ERROR;IF actionList.rest = NIL THEN globalStream.PutChar[IO.CR]ELSE globalStream.PutChar[IO.SP];ENDLOOP;};OpenFile: PROC [name: Rope.ROPE] RETURNS [f: IO.STREAM, success: BOOL] = {success _ TRUE;f _ FS.StreamOpen[name! FS.Error => {IF error.group = user THEN {success _ FALSE;GGError.Append["Picture file problem: ", oneLiner];GGError.Append[error.explanation, oneLiner];}ELSE ERROR;CONTINUE}];};PlaybackFromFile: PUBLIC PROC [name: Rope.ROPE, gargoyleData: GargoyleData] = {wdir, fullName: Rope.ROPE;success: BOOL;f: IO.STREAM;wdir _ gargoyleData.originalWorkingDirectory;success _ TRUE;[fullName,,] _ FS.ExpandName[name, wdir! FS.Error => IF error.group = user THEN {success _ FALSE;CONTINUE;}];IF NOT success THEN RETURN;[f, success] _ OpenFile[fullName];IF NOT success THEN RETURN;WHILE success DOsuccess _ PlayAction[f, gargoyleData];ENDLOOP;};AppendAtom: PROC [atom: ATOM, list: LIST OF REF ANY] RETURNS [newList: LIST OF REF ANY] = {l: LIST OF REF ANY _ list;IF l = NIL THEN RETURN[LIST[atom]];UNTIL l.rest = NIL DO l _ l.rest ENDLOOP;l.rest _ CONS[atom, NIL];newList _ list;};AppendToken: PROC [token: REF ANY, list: LIST OF REF ANY] RETURNS [newList: LIST OF REF ANY] = {l: LIST OF REF ANY _ list;IF l = NIL THEN RETURN[LIST[token]];UNTIL l.rest = NIL DO l _ l.rest ENDLOOP;l.rest _ CONS[token, NIL];newList _ list;};PlayAction: PROC [f: IO.STREAM, gargoyleData: GargoyleData] RETURNS [success: BOOL] = {c: CHAR;mouseEvent: BOOL;point: Point;good: BOOL;token: REF ANY;action: LIST OF REF ANY;success _ TRUE;c _ IO.GetChar[f!IO.EndOfStream => {success _ FALSE; CONTINUE}];IF NOT success THEN RETURN;IF c = '* THEN {good _ ReadHorizontalBlank[f];IF NOT good THEN ERROR;point _ ReadPoint[f];mouseEvent _ TRUE}ELSE {mouseEvent _ FALSE;IO.Backup[f, c];};token _ $Start;UNTIL token = $EndOfLine DO[token] _ ReadSpacesAndAtomOrNum[f];IF token = $EndOfLine THEN LOOPELSE action _ AppendToken[token, action]ENDLOOP;GGUserInput.PlayAction[point, action, mouseEvent, gargoyleData];};ReadPoint: PUBLIC PROC [f: IO.STREAM] RETURNS [point: Point] = {ReadRope[f, "["];point[1] _ ReadBlankAndReal[f];ReadRope[f, ","];point[2] _ ReadBlankAndReal[f];ReadRope[f, "]"];};ReadBlankAndReal: PUBLIC PROC [f: IO.STREAM] RETURNS [r: REAL] = {ReadBlank[f];r _ ReadReal[f];};ReadReal: PUBLIC PROC [f: IO.STREAM] RETURNS [r: REAL] = {realRope: Rope.ROPE;end: BOOL _ FALSE;[realRope, ----] _ IO.GetTokenRope[f, RealBreakProc!IO.EndOfStream => {end _ TRUE; CONTINUE}];IF end THEN {r _ 0.0; RETURN};IF Rope.Find[realRope, ".", 0, FALSE] = -1 THEN realRope _ Rope.Concat[realRope, ".0"];r _ IO.GetReal[IO.RIS[realRope]];};RealBreakProc: SAFE PROC [char: CHAR] RETURNS [IO.CharClass] = TRUSTED {SELECT char FROM'], ', => RETURN [break];IO.CR =>RETURN [break];IO.SP => RETURN [break];ENDCASE => RETURN [other];};ReadBlankAndNAT: PUBLIC PROC [f: IO.STREAM] RETURNS [n: NAT] = {ReadBlank[f];n _ ReadNAT[f];};ReadHorizontalBlank: PUBLIC PROC [f: IO.STREAM] RETURNS [good: BOOL] = {whiteSpace: Rope.ROPE;c: CHAR;end: BOOL _ FALSE;good _ TRUE;[whiteSpace, ----] _ IO.GetTokenRope[f, HorizontalBlankProc!IO.EndOfStream => {end _ TRUE; CONTINUE}];IF end THEN {good _ FALSE; RETURN};c _ Rope.Fetch[whiteSpace, 0];SELECT c FROMIO.CR => {good _ FALSE; RETURN};IO.TAB, IO.SP => {good _ TRUE; RETURN};ENDCASE => {good _ TRUE; IO.Backup[f, c]; RETURN};};HorizontalBlankProc: SAFE PROC [char: CHAR] RETURNS [CharClass] = {SELECT char FROMIO.TAB, IO.SP => RETURN [other];ENDCASE => RETURN [break];};IsDigit: PROC [c: CHAR] RETURNS [BOOL] = {RETURN[c IN ['0..'9]];};ReadSpacesAndAtomOrNum: PUBLIC PROC [f: IO.STREAM] RETURNS [token: REF ANY] = {word: Rope.ROPE;good: BOOL;int: INT;real: REAL;good _ ReadHorizontalBlank[f];IF NOT good THEN {token _ $EndOfLine;RETURN;};word _ ReadWord[f];IF IsDigit[Rope.Fetch[word, 0]] THEN {IF Rope.Find[word, "."] = -1 THEN { -- an integerint _ IO.GetInt[IO.RIS[word]];token _ NEW[INT _ int];}ELSE {real _ IO.GetReal[IO.RIS[word]];token _ NEW[REAL _ real];};}ELSE {token _ Atom.MakeAtom[word];};};ReadBlankAndWord: PUBLIC PROC [f: IO.STREAM] RETURNS [word: Rope.ROPE] = {ReadBlank[f];word _ ReadWord[f];};ReadBlankAndRope: PUBLIC PROC [f: IO.STREAM, rope: Rope.ROPE] = {ReadBlank[f];ReadRope[f, rope];};ReadBlank: PUBLIC PROC [f: IO.STREAM] = {[] _ IO.SkipWhitespace[f, TRUE];};ReadWord: PUBLIC PROC [f: IO.STREAM] RETURNS [word: Rope.ROPE] = {[word, ----] _ IO.GetTokenRope[f, WordBreakProc!IO.EndOfStream => {word _ NIL; CONTINUE}];};WordBreakProc: SAFE PROC [char: CHAR] RETURNS [IO.CharClass] = CHECKED {SELECT char FROMIO.TAB => RETURN [break];IO.CR =>RETURN [break];IO.SP => RETURN [break];', => RETURN [break];'] => RETURN [break];') => RETURN [break];ENDCASE => RETURN [other];};ReadNAT: PUBLIC PROC [f: IO.STREAM] RETURNS [n: NAT] = {end: BOOL _ FALSE;intRope: Rope.ROPE;[intRope, ----] _ IO.GetTokenRope[f, NATBreakProc!IO.EndOfStream => {end _ TRUE; CONTINUE}];IF end THEN {n _ 1; RETURN};n _ IO.GetInt[IO.RIS[intRope]];};NATBreakProc: SAFE PROC [char: CHAR] RETURNS [IO.CharClass] = TRUSTED {SELECT char FROM'], IO.CR, IO.SP, '., ', => RETURN [break];ENDCASE => RETURN [other];};RopeNotOnTop: PUBLIC SIGNAL [position: NAT, wasThere: Rope.ROPE, notThere: Rope.ROPE] = CODE;ReadRope: PUBLIC PROC [f: IO.STREAM, rope: Rope.ROPE] = {c: CHAR;endofstream: BOOL _ FALSE;FOR i: INT IN[1..Rope.Length[rope]] DOc _ IO.GetChar[f! IO.EndOfStream => {endofstream _ TRUE; CONTINUE}];IF endofstream THEN SIGNAL RopeNotOnTop [IO.GetIndex[f], NIL, rope];IF NOT c = Rope.Fetch[rope,i-1] THEN SIGNAL RopeNotOnTop [IO.GetIndex[f], Rope.FromChar[c], rope];ENDLOOP;};END.  ║  GGSessionLogImpl.mesaLast edited by Bier on August 20, 1985 3:08:55 pm PDT.Contents:  Routines for saving TIP Table atoms in a file to aid in interface evaluation and for playback.Two possiblilities1)  File doesn't exist.  Print error message.2)  File does exist.  File it in.  Succeed.Assumes the next rope on the stream will be of the form "[<real1>,<real2>]".A convenience function.  Equivalent to ReadBlank[f]; r _ ReadReal[f];Reads digits up to the next ], <CR>, <SPACE> or <COMMA>.  Leaves these terminators on the stream.A convenience function.  Equivalent to ReadBlank[f]; n _ ReadNAT[f];Reads <SPACE>'s, and <TABS>'s until something else is encountered.  Returns good = FALSE if a CR is encountered before anything elseA convenience function.  Equivalent to ReadBlank[f]; word _ ReadWord[f];Reads, <SPACE>'s, <CR>'s, and <TAB>'s until something else is encountered.  Doesn't mind if no white space characters are found.  Treats comments as white space.Reads a rope until <SPACE>, <CR>, <COMMA> or <TAB> are encountered.  Used to read in a rope which is data.  ie the name of a coordinate system from a 3d file.Reads digits up to the next ], <CR>, <SPACE>.  Leaves these terminators on the stream.Removes the given rope from the top of the stream. Used to remove formatting words and phrases from 3d files.  We are not interested in these strings but only in the data in between them.Signals RopeNotOnTop if some other rope is on top. Э╩Е  Ш Ihead1ЩJЩ6JЪЬiЩiЪ╧k	Ш	JЪЬЭЬ8ЭЬЭЬШWЧJШ ЪЬЭЬЭШJЪЭЬЭЬ	ЭЬЭЬШ0JЪЭЬШЧJЪЭШJШ IprocЪЬЭЬЭЬШJЪЬЭЬ!Ш3JЪЬЭЬШ!JШ JЪЬЭЬЭЬШJШ Ъ
╧n	ЬЭЬЭЬ
ЭЬЭЬШ.JЪЬШJШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШVJЪЭЬЭЬGШYЪЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭШSJЪЭЬЭЬЭШ!JЪЬЭЬ9ШCJЪЬЭЬЭЬ+Ш5JЪЬЭЬЭЬ(Ш3JЪЭЬЭЬШJЪ
ЭЬЭЬЭЬЭЬЭЬШ9JЪЭЬЭЬЭЬШ!ЧJЪЭЬШJШЧJШ ЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШJLЪЬ
ЭЬШLШ ЪЬЩLЪЬ-Щ-LЪЬ+Щ+ЧЪЬЭЬШЪЬЭЬШЪЭЬЭЬШLЪЬ
ЭЬШLЪЬ3Ш3LЪЬ,Ш,LЪЬШЧLЪЭЬЭЬШLЪЭЬШЧLШLШ ЧЧЪЮЬЭЬЭЬЭЬ!ШOJЪЬЭЬШJЪЬ	ЭЬШJЪЬЭЬЭЬШJЪЬ-Ш-JЪЬ
ЭЬШЪЬЭЬШ'ЪЬЭЬ
ЭЬЭЬШ*JЪЬ
ЭЬШJЪЭЬШ	JШЧJЪЬШЧJЪЭЬЭЬ	ЭЬЭЬШJЪЬ"Ш"JЪЭЬЭЬ	ЭЬЭЬШШJЪЬ&Ш&ЧJШJЪЬШJШ ЧЪЮ
ЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ[JЪ	ЬЭЬЭЬЭЬЭЬШJЪ
ЭЬЭЬЭЬЭЬЭЬШ#JЪЭЬ
ЭЬЭЬЭЬШ)JЪЬ	ЭЬЭЬШJЪЬШJШЧЪЮЬЭЬ	ЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ`JЪ	ЬЭЬЭЬЭЬЭЬШJЪ
ЭЬЭЬЭЬЭЬЭЬ	Ш$JЪЭЬ
ЭЬЭЬЭЬШ)JЪЬ	ЭЬЭЬШJЪЬШJШJШ JШ JШ JШ ЧЪЮ
ЬЭЬЭЬЭЬЭЬЭЬШWJЪЬЭЬШJЪЬЭЬШJШJЪЬЭЬШJШJЪ	ЬЭЬЭЬЭЬЭЬШJЪЬ
ЭЬШЪЬЭЬ
ШJЪЬЭЬЭЬЭЬШ0ЧJЪЭЬЭЬ	ЭЬЭЬШЪЭЬЭЬШJШJЪЭЬЭЬЭЬЭЬШJШJЪЬЭШJШЧЪЭЬШJЪЬЭЬШJШJШЧJШЪЭЬЭШJШ$JЪЭЬЭЬЭШJЪЭЬ$Ш(ЧJЪЭЬШJЪЬ@Ш@JШJШ ЧЪЮ	ЬЭЬЭЬЭЬЭЬЭЬШ@LЪЬLЩLLЪЬШLЪЬШLЪЬШLЪЬШLЪЬШLЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШBLЪЬEЩELЪЬШLЪЬШLЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШ:LЪЬaЩaLЪЬЭЬШLЪЬЭЬЭЬШЪЬ╧cЬЭЬШ3LЪЬЭЬЭЬЭЬШ+ЧLЪЭЬЭЬЭЬШLЪЭЬЭЬЭЬ(ШWLЪЬЭЬ	ЭЬЭЬШ!LЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШHЪЭЬЭШLЪЬ
ЭЬ	ШLЪЭЬЭЬЭЬ	ШLЪЭЬЭЬЭЬ	ШLЪЭЬЭЬ	ШЧLЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШ@LЪЬDЩDLЪЬШLЪЬШLЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШHLЪЬДЩДLЪЬЭЬШLЪЬЭЬШLЪЬЭЬЭЬШLЪЬЭЬШЪЬЯЬЭЬ$Ш;LЪЬЭЬЭЬЭЬШ+ЧLЪЭЬЭЬ	ЭЬЭЬШ#LЪЬШЪЭЬЭШLЪЭЬЭЬЭЬЭЬШ LЪЭЬЭЬЭЬЭЬЭЬЭЬШ'LЪЭЬЭЬЭЬЭЬШ2ЧLЪЬШЧЪ
ЮЬЭЬЭЬЭЬЭЬШCЪЭЬЭШLЪ
ЭЬЭЬЭЬЭЬЭЬ	Ш LЪЭЬЭЬ	ШЧLЪЬШLШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШ*LЪЭЬЭЬШLШLШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬ	ЭЬЭЬШOLЪЬЭЬШLЪЬЭЬШLЪЬЭЬШ	LЪЬЭЬШLЪЬШЪЭЬЭЬЭЬШLЪЬШLЪЭЬШLШЧLЪЬШЪЭЬЭЬШ&ЪЭЬЭЬЯШ1LЪЬЭЬЭЬЭЬШLЪЬЭЬЭЬШLШЧЪЭЬШLЪЬЭЬ	ЭЬЭЬШ LЪЬЭЬЭЬ	ШLШЧLШЧЪЭЬШLЪЬШLШЧLЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШJLЪЬHЩHLЪЬШLЪЬШLЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬШALЪЬШLЪЬШLЪЬШЧЪ
Ю	ЬЭЬЭЬЭЬЭЬШ)LЪЬбЩбLЪЬЭЬЭЬШ LЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШBLЪЬЮЩЮЪЬЯЬЭЬШ/LЪЬЭЬЭЬЭЬШ+ЧLЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШHЪЭЬЭШLЪЭЬЭЬЭЬ	ШLЪЭЬЭЬЭЬ	ШLЪЭЬЭЬЭЬ	ШLЪЬЭЬ	ШLЪЬЭЬ	ШLЪЬЭЬ	ШLЪЭЬЭЬ	ШЧLЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШ8LЪЬVЩVLЪЬЭЬЭЬШLЪЬЭЬШЪЬ
ЯЬЭЬШ1LЪЬЭЬЭЬЭЬШ+ЧLЪЭЬЭЬ	ЭЬШLЪЬЭЬЭЬЭЬШLЪЬШЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШGЪЭЬЭШLЪЬЭЬЭЬЭЬЭЬЭЬ	Ш+LЪЭЬЭЬ	ШЧLЪЬШLШ ЧLЪЬЭЬЭЬЭЬЭЬЭЬЭЬШ]ЪЮЬЭЬЭЬЭЬЭЬЭЬШ9LЪЬ╗Щ╗LЪЬ2Щ2LЪЬЭЬШLЪЬЭЬЭЬШЪЭЬЭЬЭЬЭШ&ЪЬЭЬ
ШLЪЬ╧rЬЭЬЭ	ЬШ4ЧЪЭЬЭЬШLЪЭЬЭЬЭЬШ0ЧЪЭЬЭЬЭЬШ%LЪЭЬЭЬ&Ш=ЧЧLЪЭЬШLЪЬШЧJШ JШ JЪЭЬШJШ JШ JШ Ч ЕЧ    "  -a  