SVUtility.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Last edited by Bier on February 5, 1987
Contents: Some helpful Solidviews routines that don't fit anywhere in particular.
DIRECTORY
Feedback, Rope, SVSceneTypes, ViewerClasses;
SVUtility: CEDAR DEFINITIONS =
BEGIN
MasterObject: TYPE = SVSceneTypes.MasterObject;
MasterObjectList: TYPE = SVSceneTypes.MasterObjectList;
Slice: TYPE = SVSceneTypes.Slice;
SliceList: TYPE = SVSceneTypes.SliceList;
SliceDescriptor: TYPE = SVSceneTypes.SliceDescriptor;
Viewer: TYPE = ViewerClasses.Viewer;
ReadTwoReals: PROC [textViewer: Viewer] RETURNS [x, y: REAL];
AppendToMasterObjects: PROC [mo: MasterObject, list: MasterObjectList] RETURNS [MasterObjectList];
AppendToAssemblyList: PROC [assembly: Slice, list: SliceList] RETURNS [SliceList];
StartSliceList: PROC [] RETURNS [entityList, ptr: LIST OF Slice];
AddSlice: PROC [slice: Slice, entityList, ptr: LIST OF Slice] RETURNS [newList, newPtr: LIST OF Slice];
StartList: PROC [] RETURNS [entityList, ptr: LIST OF REF ANY];
AddEntity: PROC [entity: REF ANY, entityList, ptr: LIST OF REF ANY] RETURNS [newList, newPtr: LIST OF REF ANY];
StartSliceDescriptorList: PROC [] RETURNS [entityList, ptr: LIST OF SliceDescriptor];
AddSliceDescriptor: PROC [entity: SliceDescriptor, entityList, ptr: LIST OF SliceDescriptor] RETURNS [newList, newPtr: LIST OF SliceDescriptor];
GetInterpressFileName: PROC [shortName, workingDir: Rope.ROPE, feedback: Feedback.FeedbackData] RETURNS [fullName: Rope.ROPE ← NIL, success: BOOL ← TRUE];
GetScriptFileName: PROC [scriptName: Rope.ROPE, currentWDir: Rope.ROPE, feedback: Feedback.FeedbackData] RETURNS [fullName: Rope.ROPE ← NIL, success: BOOL ← TRUE];
GetGenericFileName: PROC [shortName, workingDir, defaultExt: Rope.ROPE, illegalExts: LIST OF Rope.ROPE, feedback: Feedback.FeedbackData, emergency: BOOL ← FALSE] RETURNS [fullName: Rope.ROPE ← NIL, success: BOOL ← TRUE, versionSpecified: BOOL ← FALSE];
END.