DIRECTORY
Commander, CommanderOps, Feedback, FeedbackClasses, FileNames, FS, GGFileOps, GGModelTypes, GGParseIn, GGScene, GGSlice, GGSliceOps, GGUtility, Imager, ImagerInterpress, IO, Process, Real, Rope;

GGToIPImpl: CEDAR PROGRAM
IMPORTS Commander, CommanderOps, Feedback, FeedbackClasses, FileNames, FS, GGFileOps, GGParseIn, GGScene, GGSlice, GGSliceOps, GGUtility, Imager, ImagerInterpress, IO, Process, Real, Rope
= BEGIN


IPFromGG: PROC[ggName, ipName: Rope.ROPE, router: Feedback.MsgRouter, camera: GGModelTypes.Camera] = {
DrawObjects: PROC [dc: Imager.Context, scene: GGModelTypes.Scene, camera: GGModelTypes.Camera] = {
DoDrawObject: PROC [slice: GGModelTypes.Slice] RETURNS [done: BOOL ¬ FALSE] = {
GGSliceOps.DrawParts[slice, NIL, dc, camera, FALSE];
};
Imager.SetColor[dc, Imager.black];
[] ¬ GGScene.WalkSlices[scene, first, DoDrawObject];
};

DoIP: PROC [dc: Imager.Context] = {
metersPerPixel: REAL = 0.0254/72.0;
Imager.ScaleT[dc, metersPerPixel];
DrawObjects[dc, scene, camera];
};

scene: GGModelTypes.Scene;
f: IO.STREAM;
ipRef: ImagerInterpress.Ref;
ggFullName, ipFullName: Rope.ROPE;
success: BOOL ¬ FALSE;

BEGIN
IF Rope.Equal[ipName, NIL] THEN {
Feedback.Append[router, oneLiner, $Complaint, "GGToIP failed: NIL IP filename"];
RETURN;
};
[ipFullName, success] ¬ GGFileOps.GetInterpressFileName["GGToIP", ipName, NIL, router];
IF NOT success THEN {
Feedback.PutF[router, oneLiner, $Complaint, "GGToIP failed: %g", [rope[ipName]] ];
RETURN;
};

IF Rope.Equal[ggName, NIL] THEN {
Feedback.Append[router, oneLiner, $Complaint, "GGToIP failed: NIL Gargoyle filename"];
RETURN;
};
[ggFullName, success] ¬ GGFileOps.GetGargoyleFileName["GGToIP", ggName, NIL, router];
IF NOT success THEN {
Feedback.PutF[router, oneLiner, $Complaint, "GGToIP failed: %g", [rope[ggName]] ];
RETURN;
};

f ¬ FS.StreamOpen[ggFullName, $read ! FS.Error, IO.Error => GOTO Abort;];
scene ¬ GGScene.CreateScene[];
[success, ] ¬ FileinSceneOnly[f, scene, router, camera];
IF NOT success THEN GOTO Fail;
ipRef ¬ ImagerInterpress.Create[ipFullName];
Feedback.PutF[router, begin, $Feedback, "Creating IP file %g . . . ", [rope[ipFullName]] ];
ImagerInterpress.DoPage[ipRef, DoIP, 1.0];
ImagerInterpress.Close[ipRef];
IO.Close[f];
Feedback.Append[router, end, $Feedback, "Done"];
EXITS
Abort => Feedback.PutF[router, oneLiner, $Complaint, "GGToIP failed: could not find %g (FS or IO Error)", [rope[ggFullName]] ];
Fail => Feedback.PutF[router, oneLiner, $Complaint, "GGToIP failed: malformed scene in %g", [rope[ggFullName]] ];
END;
};

IPFromGGCommand: Commander.CommandProc = {
TryPattern: PROC [dest, source: Rope.ROPE ¬ NIL, isArrow: BOOL ¬ FALSE] = {
ENABLE FS.Error => IF error.group # $bug THEN {
IO.PutRope[out, "  -- "];
IO.PutRope[out, error.explanation];
GO TO err};
EachFile: FS.NameProc = {
ipName: Rope.ROPE = IF dest#NIL THEN dest ELSE Rope.Concat[GGFileOps.FilenameMinusExtension[fullFName], ".ip"];
continue ¬ FALSE;
Process.CheckForAbort[];
IPFromGG[fullFName, ipName, router, camera];
sawSomeFile ¬ continue ¬ TRUE;
};
IF isArrow AND source#NIL THEN { -- new style syntax: GGToIP newfile.ip ¬ oldfile.gargoyle
dest ¬ FileNames.ResolveRelativePath[dest];
dest ¬ FS.ExpandName[dest].fullFName;
}
ELSE { -- old style syntax: GGToIP oldfile.gargoyle
source ¬ dest; -- never really was a destination
dest ¬ NIL;  -- needed above
};
source ¬ FileNames.ResolveRelativePath[source];
source ¬ FS.ExpandName[source].fullFName;
FS.EnumerateForNames[source, EachFile];
EXITS
err => {IO.PutRope[out, "\n"]; RETURN};
};

dest, arrow, source: Rope.ROPE;
sawSomeFile: BOOL ¬ FALSE;
camera: GGModelTypes.Camera ¬ NEW[GGModelTypes.CameraObj ¬ [quality, print, FALSE, FALSE, 1.0]];
out: IO.STREAM ¬ cmd.out;
argv: CommanderOps.ArgumentVector ¬ CommanderOps.Parse[cmd: cmd
! CommanderOps.Failed => {msg ¬ errorMsg; GO TO failed}];

router: Feedback.MsgRouter ¬ Feedback.CreateRouter[];
msgHandler: Feedback.MsgHandler ¬ FeedbackClasses.CreateHandlerOnStream[cmd.out, TRUE, NIL];
Feedback.SetMultiHandler[router, LIST[$Feedback, $Complaint], msgHandler];

FOR i: NAT IN [1..argv.argc) DO
dest ¬ argv[i];
arrow ¬ IF i<argv.argc-1 THEN argv[i+1] ELSE NIL; -- maybe an arrow
source ¬ IF i<argv.argc-2 THEN argv[i+2] ELSE NIL; -- maybe a source file
IF Rope.Length[dest] = 0 THEN LOOP; -- huh ??
sawSomeFile ¬ FALSE; -- in case this pattern is totally bogus
IF Rope.Match["_", arrow] AND source#NIL THEN {
TryPattern[dest, source, TRUE];
RETURN;
}
ELSE TryPattern[dest]; -- will set sawSomeFile TRUE if some file exists
IF NOT sawSomeFile THEN Feedback.PutF[router, oneLiner, $Complaint, "GGToIP failed: pattern %g matched no filenames", [rope[source]] ];
ENDLOOP;
EXITS
failed => {result ¬ $Failure};
};


Camera: TYPE = GGModelTypes.Camera;
Scene: TYPE = GGModelTypes.Scene;
Slice: TYPE = GGModelTypes.Slice;
SliceClass: TYPE = GGModelTypes.SliceClass;
FileinSceneOnly: PROC [f: IO.STREAM, scene: Scene, router: Feedback.MsgRouter, camera: Camera] RETURNS [success: BOOL ¬ FALSE, sceneName: Rope.ROPE] = {
ENABLE GGParseIn.SyntaxError => {
Feedback.PutFL[router, oneLiner, $Complaint, "position: %g, wasThere: %g, notThere: %g", LIST[[integer[position]], [rope[wasThere]], [rope[notThere]]] ];
GOTO Abort;
};
version: REAL;
count: NAT;
entity: Slice;
finger, newEntities: LIST OF Slice;
GGParseIn.ReadRope[f, "Gargoyle file for scene: "];
sceneName ¬ GGParseIn.ReadLine[f];
GGParseIn.ReadRope[f, "Produced by version"];
version ¬ GGParseIn.ReadReal[f];
version ¬ Real.Round[version*100.0]/100.0; -- compensate for fuzzy ReadReal of version
IF version >= 8607.17 THEN SkipOptions[f];
GGParseIn.ReadRope[f, "Entities:"];
GGParseIn.ReadChar[f, '[];
count ¬ GGParseIn.ReadNAT[f];
GGParseIn.ReadRope[f, "]:"]; GGParseIn.ReadWhiteSpace[f];
[newEntities, finger] ¬ GGUtility.StartSliceList[];
FOR i: NAT IN[1..count] DO
entity ¬ FileinEntity[f, version, router, camera];
IF entity#NIL THEN [newEntities, finger] ¬ GGUtility.AddSlice[entity, newEntities, finger];
ENDLOOP;
IO.Close[f];
GGScene.AddSlices[scene, newEntities];
RETURN[TRUE, sceneName];
EXITS
Abort => {}; -- RETURN[FALSE, NIL];
};

SkipOptions: PROC [f: IO.STREAM] = {
keyWord, option: Rope.ROPE;
good: BOOL;
nextChar: CHAR;
twoCRsFound: BOOL ¬ FALSE;
UNTIL twoCRsFound DO
[keyWord, good] ¬ GGParseIn.ReadKeyWord[f];
IF NOT good THEN {
nextChar ¬ IO.PeekChar[f];
IF IsEndLine[nextChar] THEN {
[] ¬ IO.GetChar[f];
twoCRsFound ¬ TRUE;
};
LOOP};
good ¬ GGParseIn.ReadHorizontalBlank[f];
IF NOT good THEN {
nextChar ¬ IO.PeekChar[f];
IF IsEndLine[nextChar] THEN {
[] ¬ IO.GetChar[f];
twoCRsFound ¬ TRUE;
};
LOOP};
option ¬ GGParseIn.ReadLine[f];
nextChar ¬ IO.PeekChar[f];
IF IsEndLine[nextChar] THEN {
[] ¬ IO.GetChar[f];
twoCRsFound ¬ TRUE;
};
ENDLOOP;
};

FileinEntity: PROC [f: IO.STREAM, version: REAL, router: Feedback.MsgRouter, camera: Camera] RETURNS [entity: Slice] = {
nextWord: Rope.ROPE;
IF version > 8605.22 THEN {
IF version >= 8705.14 THEN {
entity ¬ GGSliceOps.FileinSlice[f, version, router, camera];
}
ELSE {
nextWord ¬ GGParseIn.ReadWord[f];
SELECT TRUE FROM
Rope.Equal[nextWord, "Outline:"] => {
class: SliceClass ¬ GGSlice.FetchSliceClass[$Outline];
entity ¬ class.filein[f, version, router, camera];
};
Rope.Equal[nextWord, "Slice"] => {
entity ¬ GGSliceOps.FileinSlice[f, version, router, camera];
};
ENDCASE => ERROR
}
}
ELSE {
nextWord ¬ GGParseIn.ReadWord[f];
SELECT TRUE FROM
Rope.Equal[nextWord, "Outline:"] => {
class: SliceClass ¬ GGSlice.FetchSliceClass[$Outline];
entity ¬ class.filein[f, version, router, camera];
};
Rope.Equal[nextWord, "Cluster"] => {
entity ¬ GGSliceOps.FileinSlice[f, version, router, camera];
};
ENDCASE => ERROR;
};
};

IsEndLine: PROC [c: CHAR] RETURNS [BOOL] = {
RETURN[c=IO.CR OR c=IO.LF];
};

useage: Rope.ROPE = "useage:\nGGToIP list of Gargoyle filenames\n    or\nGGToIP OutputFile.ip _ InputFile.gargoyle\n";
Commander.Register[ key: "GGToIP", proc: IPFromGGCommand, doc: useage];
Commander.Register[ key: "GGToInterpress", proc: IPFromGGCommand, doc: useage];
Commander.Register[ key: "GargoyleToIP", proc: IPFromGGCommand, doc: useage];
Commander.Register[ key: "GargoyleToInterpress", proc: IPFromGGCommand, doc: useage];
Commander.Register[key: "IPFromGG", proc: IPFromGGCommand, doc: "useage:\nIPFromGG list of Gargoyle filenames\n    or\nIPFromGG OutputFile.ip _ InputFile.gargoyle\n"];

END.

–
GGToIPImpl.mesa
Copyright Σ 1990, 1992 by Xerox Corporation.  All rights reserved.
Bier, December 3, 1992 5:39 pm PST
Kenneth A. Pier, February 11, 1992 2:14 pm PST
added second syntax:  GGToIP output.ip _ input.gargoyle
Doug Wyatt, April 16, 1992 3:35 pm PDT

[fullFName: ROPE] RETURNS [continue: BOOL]
IF NOT Rope.Match["*!*", source] THEN source _ Rope.Concat[source, "!h"];
Why bother?  !h is the default
Following code stolen from GGFileImpl and slightly modified
Ignores the control panel state variables options in f.  Merges any objects in f into scene.
Read in the Header
Read in the alignment objects, etc.
Read the scene entities
GGPort.SafeClose[f];
GGSelect.DeselectAll[scene, normal];
IF selectSlices THEN FOR sliceList: LIST OF Slice _ newEntities, sliceList.rest UNTIL sliceList=NIL DO
GGSelect.SelectEntireSlice[sliceList.first, scene, normal];
ENDLOOP;
ProcessOption[keyWord, option, ggData];
Κ	Ύ•NewlineDelimiter

–
(cedarcode) style™
code™Kšœ
Οe
œ7™BK™"™.K™7—K™&K™—š
Οk	˜	Jšœ?žœižœ˜Β
K˜—šΟn
œžœ
ž˜Jšžœ@žœ[žœ˜»
Kšœž˜—˜K˜—šŸœžœžœ>˜fšŸœžœQ˜bš
Ÿœžœžœžœžœ˜OKšœžœžœ˜4K˜—Kš
œ"˜"Kšœ$Οtœ ˜4K˜K˜—šŸœžœ˜#Kšœžœ˜#K˜"Kš
œ˜K˜K˜—K˜Kšœžœ
žœ
˜
Kš
œ˜Kšœžœ
˜"Kšœ	žœžœ
˜K˜š
ž˜šžœžœžœ˜!š
œP˜PKšžœ
˜K˜——KšœJžœ
˜WKšžœ
žœ	žœ˜š
œR˜RKšžœ
˜K˜—K˜šžœžœžœ˜!š
œV˜VKšžœ
˜K˜——KšœHžœ
˜UKšžœ
žœ	žœ˜š
œR˜RKšžœ
˜K˜—K˜Kš	œžœ žœžœ
žœ	˜IK˜KšœŸœ˜8Kšžœ
žœ	žœ
žœ˜K˜,Kš
œ[˜[Kš
œ*˜*Kš
œ˜Kšžœ
˜K˜0š
ž˜Kš
œ˜Kš
œq˜q—Kšžœ
˜—K˜K˜—šŸœ˜*šŸ
œžœžœžœžœžœ˜Kšžœ
žœ
žœžœ˜/Kšžœ˜Kšžœ!˜#Kšžœ
žœ˜—šŸœžœ
˜Kšœžœžœžœ
™*Kšœ
žœžœžœ
žœžœA˜oKšœžœ
˜Kš
œ˜Kš
œ,˜,Kšœžœ
˜K˜—šžœ	žœžœ
žœΟc'œ
‘˜ZK˜+Kšœžœ˜%K˜
—šžœ‘,˜3Kšœ‘!˜0Kšœžœ‘˜K˜—K˜/Kšœ	žœ˜)šžœ
žœžœ$™IK™—Kšžœ%˜'š
ž˜Kšœžœžœ˜'—K˜K˜—Kšœžœ
˜Kšœ
žœžœ
˜Kšœžœ+žœžœ˜`Kšœžœ
žœ˜˜?Kšœ*žœ
žœ
˜9K˜—K˜5KšœQžœžœ˜\Kšœ!žœ%˜JK˜šžœžœ
žœž˜K˜Kš
œžœžœžœ
žœ‘˜CKš
œ	žœžœžœ
žœ‘˜IKšžœžœ
žœ‘	˜-Kšœžœ‘(˜=šžœžœžœ
žœ˜/Kšœžœ˜Kšžœ
˜Kš
œ
˜
—Kšžœ‘0˜GKšžœ
žœ
žœp˜‡
Kšžœ
˜—š
ž˜K˜—K˜K˜—K˜Iprocš
Οb;™;Lšœžœ˜#Lšœžœ˜!Lšœžœ˜!Lšœžœ˜+šŸœžœžœ
žœ<žœžœžœžœ˜˜
Lš
œ\™\šžœž
˜!LšœYžœ<˜™
Lšžœ˜L˜—Lšœ	žœ
˜Lšœžœ
˜Lš
œ˜Lšœžœ
žœ˜#Lš
’™L˜3L˜"L˜-L˜ Lšœ+‘+˜VLš
’#™#Lšžœžœ˜*Lš
’™L˜#L˜L˜L˜9L˜3šžœžœ
žœž˜Lšœ"’œ
˜2Kšžœžœ
žœI˜[Lšžœ
˜—Jš
Οy™K˜Lš
£$™$Lš
œ&˜&šΠky£€£
€£€£
€£%€£€£
€™fLš
£;™;Lš€£
™—Lšžœ
žœ
˜š
ž˜Lšœ
‘˜#—Lš
œ˜L˜—šŸœžœžœ
žœ˜$Kšœžœ
˜Kšœžœ
˜Kšœ
žœ
˜Kšœ
žœžœ
˜šžœ
ž˜K˜+šžœ
žœžœ˜Kšœžœ
˜šžœžœ˜Kšœžœ˜Kšœžœ
˜K˜—Kšžœ˜—K˜(šžœ
žœžœ˜Kšœžœ
˜šžœžœ˜Kšœžœ˜Kšœžœ
˜K˜—Kšžœ˜—K˜Jš
œ'™'Kšœžœ
˜šžœžœ˜Kšœžœ˜Kšœžœ
˜K˜——Kšžœ
˜K˜K˜—šŸœžœžœ
žœžœ.žœ˜xLšœžœ
˜šžœžœ˜šžœžœ˜K˜<L˜
—šžœ˜L˜!šžœ
žœ
ž˜š
œ%˜%K˜6K˜2Lš
œ˜—š
œ"˜"K˜<Lš
œ˜—Lšžœž˜—L˜
—L˜
—šžœ˜L˜!šžœ
žœ
ž˜š
œ%˜%K˜6K˜2Lš
œ˜—š
œ$˜$K˜<Lš
œ˜—Lšžœžœ
˜—L˜—Lš
œ˜—L˜š
Ÿ	œžœžœžœžœ˜,Kšžœžœ
žœ
žœžœ
žœ˜K˜—K˜Kšœ
žœe˜vKš
œG˜GKš
œO˜OKš
œM˜MKš
œU˜UKš
Ϥ
˜§
K˜Kšžœ
˜K˜—…— n-Β