DIRECTORYDisplayList3d,Filein3d,Fileout3d,FileNames,FS,IO,MessageWindow,Rope,SVArtwork,SVError,SVFiles,SVTransforms,SVSceneTypes,TFI3d;SVFilesImpl: PROGRAMIMPORTS DisplayList3d, Filein3d, Fileout3d, FileNames, FS, IO, MessageWindow, Rope, SVArtwork, SVError, SVTransforms, TFI3dEXPORTS SVFiles =BEGINScene: TYPE = SVSceneTypes.Scene;SceneTable: TYPE = LIST OF Scene;FindScene: PRIVATE PROC [name: Rope.ROPE, table: SceneTable] RETURNS [scene: Scene, success: BOOL] = {success _ FALSE;FOR list: SceneTable _ table, list.rest UNTIL list = NIL OR success DOIF Rope.Equal[s1: name, s2: list.first.name, case: TRUE] THEN {success _ TRUE;scene _ list.first;};ENDLOOP;};AddSceneToTable: PRIVATE PROC [scene: Scene, table: SceneTable] RETURNS [newtable: SceneTable] = {newtable _ CONS[scene, table];};OpenScene: PUBLIC PROC [picName: Rope.ROPE, wdirForAIS: Rope.ROPE] RETURNS [scene: Scene, success: BOOL] = {f: IO.STREAM;[f, success] _ OpenFile[picName];IF NOT success THEN RETURN; -- OpenFile prints any error messages.[scene, success] _ MakeScene[f, picName, wdirForAIS]; -- MakeScene will print any error messages};OpenFile: PUBLIC PROC [picName: Rope.ROPE] RETURNS [f: IO.STREAM, success: BOOL] = {success _ TRUE;f _ FS.StreamOpen[picName! FS.Error => CHECKED {IF error.group = user THEN {success _ FALSE;SVError.Append["Picture file problem: ", TRUE];SVError.Append[error.explanation];}ELSE ERROR;CONTINUE}];}; -- end of OpenFileMakeScene: PRIVATE PROC [f: IO.STREAM, picName: Rope.ROPE, wdirForAIS: Rope.ROPE] RETURNS [scene: Scene, success: BOOL] = {errorPos: NAT;errorRope, expected, actual: Rope.ROPE;fileNotFound: BOOL _ FALSE;allMapsFound: BOOL _ TRUE;success _ TRUE;scene _ DisplayList3d.CreateEmptyScene[picName];SVError.Append["Reading scene: ",TRUE];SVError.Append[scene.name];SVError.Append[" from file: "];SVError.Append[picName];SVError.Append["..."];Filein3d.FileinScene [scene, f, wdirForAIS!TFI3d.RopeNotOnTop => {success _ FALSE; errorPos _ position; expected _ notThere;actual _ wasThere; CONTINUE}; SVArtwork.FileNotFound => {allMapsFound _ FALSE; CONTINUE}];IF NOT allMapsFound THEN {errorRope _ IO.PutFR["Some AIS mapping file not found"];SVError.Append[errorRope, TRUE, TRUE];success _ FALSE;RETURN};IF NOT success THEN {errorRope _ IO.PutFR["At %g in %g expected '%g' not '%g'", [integer[errorPos]], [rope[picName]], [rope[expected]], [rope[actual]]];SVError.Append[errorRope, TRUE, TRUE];RETURN}ELSE SVError.Append["Done", FALSE, TRUE];}; -- end of MakeSceneSaveScene: PUBLIC PROC [updatedScene: Scene, picName: Rope.ROPE] RETURNS [success: BOOL] = {f: IO.STREAM;success _ TRUE;IF FileExists[picName] THEN {f _ FS.StreamOpen[picName, $create! FS.Error => CHECKED {IF error.group = user THEN { success _ FALSE;SVError.Append["Pic file problem: ", TRUE];SVError.Append[error.explanation];SVError.Blink[];CONTINUE} ELSE ERROR}];IF success THEN {SVTransforms.TidyUpCoordSysTree[updatedScene.coordSysRoot];SaveFile[updatedScene, f, picName];};}ELSE {SVError.Append["File not found. Use Store.", TRUE];SVError.Blink[];};};SaveFile: PRIVATE PROC [scene: Scene, f: IO.STREAM, picName: Rope.ROPE] = {SVError.Append["Writing scene: ",TRUE];SVError.Append[scene.name];SVError.Append[" to file: "];SVError.Append[picName];SVError.Append["..."];Fileout3d.FileoutScene [scene, f, picName];scene.dirty _ FALSE;SVError.Append["Done",FALSE,TRUE];}; -- end of SaveFileStoreScene: PUBLIC PROC [unNamedScene: Scene, newPicName: Rope.ROPE] RETURNS [success: BOOL] = {f: IO.STREAM;fileAlreadyExists: BOOL _ FALSE;confirmation: BOOL _ FALSE;success _ FALSE;IF FileExists[newPicName] THEN {confirmation _ MessageWindow.Confirm["Confirm overwrite of existing pic file"];IF confirmation THEN f _ FS.StreamOpen[newPicName, $create]ELSE RETURN;}ELSE f _ FS.StreamOpen[newPicName, $create];SVError.Append["Writing scene: ",TRUE];SVError.Append[newPicName];SVError.Append[" to file: "];SVError.Append[newPicName];SVError.Append["..."];SVTransforms.TidyUpCoordSysTree[unNamedScene.coordSysRoot];Fileout3d.FileoutScene [unNamedScene, f, newPicName];SVError.Append["Done", FALSE, TRUE];success _ TRUE;unNamedScene.dirty _ FALSE;unNamedScene.name _ newPicName;}; -- end of StoreSceneFileExists: PUBLIC PROC [fileName: Rope.ROPE] RETURNS [answer: BOOL] = {answer _ TRUE;[----, ----, ----, ----] _ FS.FileInfo[fileName! FS.Error => {IF error.code = $unknownFile THEN {answer _ FALSE;  CONTINUE}  ELSE ERROR}];};FilenameMinusExtension: PUBLIC PROC [wholeName: Rope.ROPE] RETURNS [firstPart: Rope.ROPE] = {directory, shortName, shortNameMinusExtension: Rope.ROPE;shortNameStream: IO.STREAM;directory _ FileNames.Directory[wholeName];shortName _ FileNames.GetShortName[wholeName, TRUE];shortNameStream _ IO.RIS[shortName];[shortNameMinusExtension, ----] _ IO.GetTokenRope[shortNameStream, PeriodBreakProc];firstPart _ Rope.Concat[directory, shortNameMinusExtension];};PeriodBreakProc: SAFE PROC [char: CHAR] RETURNS [IO.CharClass] = TRUSTED {SELECT char FROM'.=> RETURN[sepr];ENDCASE => RETURN[other];};END.   P  File: SVFilesImpl.mesaLast edited by: Eric Bier on January 2, 1985 5:22:31 pm PSTCopyright c 1984 by Xerox Corporation.  All rights reserved.Contents: Interfaces which make creating scenes look like opening files.Look for the pic file on the local disk.  If there, read in the scene.  If not, Tell the user "file not found" and return success = false.Now we must turn the text file into a scene.Two possiblilities1)  File doesn't exist.  Print error message.2)  File does exist.  File it in.  Succeed.Check local disk to see that we have a scene with this name.  If so, save it as a file on the local disk after confirmation.  scene.dirty _ FALSE.If not, SVError "File not found.  Use Store." and return success = FALSE.Check the local disk for this name.  Ask for confirmation to store to new (or old) file.  Store if confirmed. Э╩G  Ц"cedar" styleШ Ihead1ЪЬЩIprocЪЬ;Щ;JЪЬ
╧mЬ1Щ<LЪЬHЩHLШ Ъ╧k	Ш	LЪЬШLЪЬ	Ш	LЪЬ
Ш
LШ
LЪЮЬШLЪЮЬШLЪЬШLЪЬШLЪЬ
Ш
LШLЪЬШLШLЪЬШLЪЬШЧLШ ЪЬЮШLЪЮЬ0ЮЬЮЬ>Ш{LЪЮЬ
ШЧLШ LЪЮШШ LЪЬЮЬШ!LЪЬЮЬЮЬЮЬШ!LШ ЧЪ╧n	ЬЮЬЮЬЮЬЮЬЮЬШfLЪЬ
ЮЬШЪ	ЮЬ%ЮЬЮЬЮЬ	ЮШFЪЮЬ1ЮЬЮЬШ?LЪЬ
ЮЬШLЪЬШLЪЬШЧLЪЮЬШЧLЪЬШЧLШ ЪЯЬЮЬЮЬ#ЮЬШbLЪЬЮЬШLЪЬШЧLШ ЪЯ	ЬЮЬЮЬЮЬЮЬЮЬЮЬШlLЪЬКЩКLЪЬЮЬЮЬШLЪЬ!Ш!LЪ	ЮЬЮЬ	ЮЬЮЬ╧c&ШBLЪЬ,Щ,LЪЬ6а*Ш`LЪЬШЧLШ LШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШTLЪЬ
ЮЬШLШ ЪЬЩLЪЬ-Щ-LЪЬ+Щ+ЧLШ ЪЬЮЬШЪЬЮЬ
ЮЬШЪЮЬЮЬШLЪЬ
ЮЬШLЪЬ)ЮЬШ/LЪЬ"Ш"LЪЬШЧLЪЮЬЮЬШLЪЮЬШЧЧLЪЬаШЧLШ ЪЯ	ЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШ{LЪЬ
ЮЬШLЪЬ"ЮЬШ'LЪЬЮЬЮЬШLЪЬЮЬЮЬШLЪЬ
ЮЬШLЪЬ0Ш0LШ LЪЬ!ЮЬШ'LЪЬШLЪЬШLЪЬШLЪЬШЪЬ*Ш*ЪЬШLЪЬ
ЮЬ+Ш:LЪЬЮЬШЧLЪЬ+ЮЬЮЬШ;LЪЬШЧЪЮЬЮЬЮЬШLЪЬЮЬ*Ш8LЪЬЮЬЮЬШ&LЪЬ
ЮЬШLЪЮШLЪЬШЧЪЮЬЮЬ	ЮЬШLЪЬЮЬuШГLЪЬЮЬЮЬШ&LЪЮШLЪЬШЧLЪЮЬЮЬЮЬШ)LЪЬаШЧLШ ЪЯ	ЬЮЬЮЬ%ЮЬЮЬЮЬШ\LЪЬТЩТLЪЬIЩILЪЬЮЬЮЬШLЪЬ
ЮЬШЪЮЬЮЬШLЪЬЮЬШ"ЪЬЮЬ
ЮЬШЪЮЬЮЬШLЪЬ
ЮЬШLЪЬ%ЮЬШ+LЪЬ"Ш"LЪЬШLЪЮЬШ	ЧLЪЬЮЬЮЬШЧЪЮЬ	ЮЬШLЪЬ;Ш;LЪЬ#Ш#LШЧLШЧЪЮЬШLЪЬ-ЮЬШ3LЪЬШLЪЬШЧLЪЬШЧLШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШKLЪЬ!ЮЬШ'LЪЬШLЪЬШLЪЬШLЪЬШLЪЬ+Ш+LЪЬЮЬШLЪЬЮЬЮЬШ"LЪЬаШЧLШ ЪЯ
ЬЮЬЮЬ(ЮЬЮЬЮЬШ`LЪЬmЩmLЪЬЮЬЮЬШLЪЬЮЬЮЬШ LЪЬЮЬЮЬШLЪЬ
ЮЬШLШ ЪЮЬЮЬШ LЪЬOШOЪЮЬЮЬШLЪЬЮЬ Ш&ЧLЪЮЬЮЬШLЪЬШЧLЪЮЬЮЬ!Ш,LЪЬ!ЮЬШ'LЪЬШLЪЬШLЪЬШLЪЬШLЪЬ;Ш;LЪЬ5Ш5LЪЬЮЬЮЬШ$LЪЬ
ЮЬШLЪЬЮЬШLЪЬШLЪЬаШЧLШ LШ ЪЯ
ЬЮЬЮЬЮЬЮЬ
ЮЬШHLЪЬ	ЮЬШЪЬаЬаЬаЬаЬЮЬШ/LЪЬЮЬЮЬЮЬЮЬЮЬШLLЪЬЮЬЮЬШЧJЪЬШЧJШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШ]JЪЬ4ЮЬШ9JЪЬЮЬЮЬШJЪЬ+Ш+JЪЬ.ЮЬШ4JЪЬЮЬЮЬШ$JЪЬаЬЮЬ0ШTJЪЬ<Ш<JЪЬШЧJШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШJJЪЮЬЮШJЪЬЮЬШJЪЮЬЮЬШJЪЬШЧJШ JЪЮЬШЧ ЕЧ    6  ═  