GGUtilityImplC.mesa
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Pier, August 18, 1988 12:37:57 pm PDT
Bier, August 29, 1990 0:02 am PDT
DIRECTORY
CedarProcess, Commander, FeedbackTypes, GGBasicTypes, GGCoreTypes, GGEvent, GGHistoryTypes, GGHistoryTypesOpaque, GGInterfaceTypes, GGModelTypes, GGMUserProfile, GGOutline, GGScene, GGSelect, GGSliceOps, GGUtility, IO, RefTab, Rope, UserProfile;
GGUtilityImplC:
CEDAR
PROGRAM
IMPORTS CedarProcess, Commander, GGScene, GGSelect, GGSliceOps, GGUtility, IO, RefTab, Rope, UserProfile
EXPORTS GGHistoryTypes, GGUtility, GGMUserProfile = BEGIN
Change: PUBLIC TYPE = GGHistoryTypesOpaque.Change;
MsgRouter: TYPE = FeedbackTypes.MsgRouter;
FontData: TYPE = GGModelTypes.FontData;
GGData: TYPE = GGInterfaceTypes.GGData;
GravityType: TYPE = GGInterfaceTypes.GravityType;
HistoryEvent: TYPE = GGHistoryTypes.HistoryEvent;
Line: TYPE = GGCoreTypes.Line;
OverlapOrder: TYPE = GGUtility.OverlapOrder;
Point: TYPE = GGBasicTypes.Point;
Scene: TYPE = GGScene.Scene;
Slice: TYPE = GGModelTypes.Slice;
SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;
SliceGenerator: TYPE = GGModelTypes.SliceGenerator;
Traj: TYPE = GGModelTypes.Traj;
Vector: TYPE = GGBasicTypes.Vector;
SequenceSubst:
PUBLIC
PROC [new, old: GGModelTypes.Sequence, expr:
LIST
OF GGModelTypes.Sequence]
RETURNS [head:
LIST
OF GGModelTypes.Sequence ←
NIL] = {
tail, cons: LIST OF GGModelTypes.Sequence ← NIL;
first: GGModelTypes.Sequence ← NIL;
WHILE expr #
NIL
DO
first ← expr.first;
cons ← LIST[IF first = old THEN new ELSE first];
IF tail = NIL THEN head ← cons ELSE tail.rest ← cons;
tail ← cons;
expr ← expr.rest;
ENDLOOP;
};
OrderedSelectionList:
PUBLIC
PROC [ggData: GGData, order: OverlapOrder, andSelectEntire:
BOOL ←
FALSE]
RETURNS [list:
LIST
OF Slice] = {
traverse the scene.entities from beginning (back) to end (front)
scene: Scene ← ggData.scene;
DoAddSliceToList:
PROC [slice: Slice]
RETURNS [done:
BOOL ←
FALSE] = {
IF GGSelect.IsSelectedInPart[slice, scene, normal]
THEN {
list ← CONS[slice, list];
IF andSelectEntire THEN GGSelect.SelectEntireSlice[slice, scene, normal];
};
};
[] ← GGScene.WalkSlices[scene, first, DoAddSliceToList];
IF order=decr THEN list ← ReverseList[list];
};
ReverseList:
PROC [list:
LIST
OF Slice]
RETURNS [val:
LIST
OF Slice] = {
val ← NIL;
UNTIL list =
NIL
DO
val ← CONS[list.first, val];
list ← list.rest;
ENDLOOP;
RETURN[val];
};
For GGMUserProfile
masterData: MasterData;
MasterData: TYPE = REF MasterDataObj;
MasterDataObj:
TYPE =
RECORD [
turboOn: BOOL ← FALSE,
junk: BOOL ← FALSE -- records in Impls with one field kick up an Interpreter bug
];
LookAtProfile:
PUBLIC UserProfile.ProfileChangedProc = {
[reason: UserProfile.ProfileChangeReason]
turboOn: BOOL ← UserProfile.Boolean[key: "Gargoyle.TurboOn", default: FALSE];
SetTurboOn[turboOn];
};
SetTurboOn:
PUBLIC
PROC [sense:
BOOL] = {
masterData.turboOn ← sense;
};
GetTurboOn:
PUBLIC
PROC
RETURNS [sense:
BOOL] = {
sense ← masterData.turboOn;
};
GGTurboOn: Commander.CommandProc = {
SetTurboOn[TRUE];
cmd.out.PutRope["Gargoyle turbo shape caching turned on."];
};
GGTurboOff: Commander.CommandProc = {
SetTurboOn[FALSE];
cmd.out.PutRope["Gargoyle turbo shape caching turned off."];
};
Utilities for undo/history
RestoreSceneClean:
PUBLIC
PROC [scene: Scene, virginList:
LIST
OF Slice, virginMap: RefTab.Ref] = {
restores scene.entities to its original state as specified by the virginList and virginMap
found: BOOL ← FALSE;
virginScene: Scene;
restoredPtr: LIST OF Slice;
restoredList: LIST OF Slice;
[restoredList, restoredPtr] ← GGUtility.StartSliceList[];
FOR sliceList:
LIST
OF Slice ← virginList, sliceList.rest
UNTIL sliceList =
NIL
DO
original: REF ← NIL;
nextSlice: Slice ← sliceList.first; -- candidate slice for new scene
[found, original] ← RefTab.Fetch[virginMap, nextSlice]; -- is candidate mapped to original ?
IF found
THEN {
originalSlice: Slice ← NARROW[original, Slice]; -- get original storage. May be trashed
overlay original storage with virgin data from virginList
GGSliceOps.Restore[from: nextSlice, to: originalSlice];
nextSlice ← originalSlice; -- get ready to store
};
nextSlice.parent ← NIL; -- in case it was a hole previously
[restoredList, restoredPtr] ← GGUtility.AddSlice[nextSlice, restoredList, restoredPtr];
ENDLOOP;
virginScene ← GGScene.CreateScene[restoredList]; -- fresh scene
GGScene.SetScene[from: virginScene, to: scene]; -- wipes out selections in scene
};
CopySceneClean:
PUBLIC
PROC [scene: Scene, copyAll:
BOOL ←
FALSE]
RETURNS [virginList:
LIST
OF Slice, virginMap: RefTab.Ref] = {
ENABLE ABORTED => {IF virginMap#NIL THEN RefTab.Erase[virginMap]};
traverse the scene entities from beginning (back) to end (front), making a copy of the scene list from unselected slices AND copies of selected slices. Also, return a RefTab that maps the copies onto their originals. Used by history code. Calls must be properly synchronized by the caller to allow unambiguous traversal of the scene.
CopyWithSelections:
PROC [slice: Slice]
RETURNS [copy: Slice] = {
IF doSelections THEN GGSelect.SaveSelectionsInSliceAllClasses[slice, NIL]; -- scene argument no longer used
copy ← GGSliceOps.Copy[slice].first; -- copy entire slice
IF NOT RefTab.Insert[x: virginMap, key: copy, val: slice] THEN ERROR;
};
virginPtr: LIST OF Slice;
sceneList: LIST OF Slice ← GGScene.ListSlices[scene, first];
IF sceneList#
NIL
THEN {
CedarProcess.CheckAbort[]; -- check self for aborted
virginMap ← RefTab.Create[];
[virginList, virginPtr] ← GGUtility.StartSliceList[];
FOR sliceList:
LIST
OF Slice ← sceneList, sliceList.rest
UNTIL sliceList =
NIL
DO
slice: Slice ← sliceList.first;
[virginList, virginPtr] ← GGUtility.AddSlice[IF copyAll OR GGSelect.IsSelectedInPart[slice, scene, normal] THEN CopyWithSelections[slice] ELSE slice, virginList, virginPtr];
CedarProcess.CheckAbort[]; -- check self for aborted
ENDLOOP;
};
};
UnlinkError: SIGNAL = CODE;
UnlinkCapturedScene:
PUBLIC
PROC [historyEvent: HistoryEvent] = {
IF historyEvent#NIL AND NOT Rope.Equal[historyEvent.name, "advance", FALSE] THEN SIGNAL UnlinkError; -- debugging check
IF historyEvent#
NIL
AND historyEvent.subevents#
NIL
AND historyEvent.subevents.first#
NIL
THEN {
found: BOOL ← FALSE;
captureRef: REF Change ← historyEvent.subevents.first.historyData;
captureData: REF Change.capture ← NARROW[captureRef];
FOR sliceList:
LIST
OF Slice ← captureData.virginData, sliceList.rest
UNTIL sliceList =
NIL
DO
found ← RefTab.Fetch[captureData.virginMap, sliceList.first].found;
IF found AND doUnlink THEN GGSliceOps.Unlink[sliceList.first]; -- ASSERT: this slice appears only on the clean list and can be unlinked
sliceList.first←NIL;
ENDLOOP;
IF captureData.virginMap#NIL THEN RefTab.Erase[captureData.virginMap];
};
};
doSelections: BOOL ← TRUE;
doUnlink: BOOL ← TRUE;
Init:
PROC [] = {
masterData ← NEW[MasterDataObj];
UserProfile.CallWhenProfileChanges[LookAtProfile];
Commander.Register["GGTurboOn", GGTurboOn, "turns on Imager.Object caching to speed up Gargoyle refresh on black and white displays"];
Commander.Register["GGTurboOff", GGTurboOff, "turns off Imager.Object caching to speed up Gargoyle refresh on black and white displays"];
};
Init[];
END.