<<>> <> <> <> <<>> DIRECTORY CGM, Commander, FileNames, FS, Imager, ImagerFont, ImagerInterpress, ImagerPixelArray, IO, Rope, -- MacPaint, MacPICT,-- InterpressFabricators; InterpressFabricatorsCommand: CEDAR PROGRAM IMPORTS CGM, Commander, FileNames, FS, Imager, ImagerFont, ImagerInterpress, IO, Rope -- , MacPaint, MacPICT EXPORTS InterpressFabricators ~ BEGIN OPEN InterpressFabricators; ROPE: TYPE ~ Rope.ROPE; inch: REAL = 0.0254; -- inches->meters conversion factor defaultMacPixelsPerInch: REAL = 72.0; -- for Macintosh files macCaptionFont: ROPE Ź "xerox/pressfonts/helvetica-mir"; -- to put caption in Macintosh files headerSampled: ROPE Ź "Interpress/Xerox/3.0 "; -- IP header for sampled images macCaptionLoc: Imager.VEC Ź [72, 72]; -- where the caption should be in Macintosh files defaultPageWidth: REAL Ź 0.210; -- for normal A4 sized paper defaultPageHeight: REAL Ź 0.297; -- for normal A4 sized paper macMarginW: REAL Ź 0.020; -- offset of Mac images on regular-sized paper macMarginH: REAL Ź 0.040; -- offset of Mac images on regular-sized paper <> <> <> <<>> <> <> <> <> <> <> <> <> <> <> <> <<};>> <> <> <> <> <> <> <> <<};>> <> <> <> <> <> < failed Ź TRUE;>> <<};>> <> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <> <> < rect.h THEN {>> <> <> <<}>> <> <> <> <<};>> <> <> <> <> <> <> <<};>> <> <> <> <> <> < failed Ź TRUE;>> <<};>> <<>> CGMToInterpress: PUBLIC PROC [inputName: Rope.ROPE, interpress: ImagerInterpress.Ref, beginPage, endPage: ProgressProc, msg: IO.STREAM Ź NIL, pageWidth, pageHeight: REAL, caption: ROPE] RETURNS [failed: BOOL Ź FALSE] ~ { <> resolvedName: Rope.ROPE Ź FileNames.ResolveRelativePath[inputName]; Paint: PROC [context: Imager.Context] ~ { Caption: PROC ~ { Imager.ScaleT[context, inch/72]; Imager.SetFont[context, ImagerFont.Scale[ImagerFont.Find[macCaptionFont], 9]]; Imager.SetXY[context, macCaptionLoc]; Imager.ShowRope[context, caption]; }; Imager.SetPriorityImportant[context, TRUE]; Imager.DoSave[context, Caption]; CGM.ToInterpress[context: context, fileName: resolvedName, pageWidth: pageWidth, pageHeight: pageHeight]; }; IF beginPage[1, 1] THEN GOTO tooBad; ImagerInterpress.DoPage[self: interpress, action: Paint, scale: 1.0]; IF endPage[1, 1] THEN GOTO tooBad; EXITS tooBad => failed Ź TRUE; }; <> <> <> <> <> <<[] Ź MacPaintToInterpress[inputName, output, BeginPage, EndPage, cmd.out, defaultPageWidth, defaultPageHeight, cmd.commandLine];>> <> <<};>> <> <> <> <> <> <<[] Ź PICTToInterpress[inputName, output, BeginPage, EndPage, cmd.out, defaultPageWidth, defaultPageHeight, cmd.commandLine];>> <> <<};>> CGMToInterpressAction: PUBLIC ActionProc ~ { BeginPage: ProgressProc ~ { IF cmd.commandLine # NIL THEN cmd.out.PutF1["[%g", IO.int[pageNumber]]}; EndPage: ProgressProc ~ {IF cmd.commandLine # NIL THEN cmd.out.PutRope["] "]}; output: ImagerInterpress.Ref Ź ImagerInterpress.Create[outputName, headerSampled]; [] Ź CGMToInterpress[inputName, output, BeginPage, EndPage, cmd.out, defaultPageWidth, defaultPageHeight, cmd.commandLine]; ImagerInterpress.Close[output]; }; FindFullName: PROC [inputName: ROPE] RETURNS [ROPE] ~ { fullFName: ROPE Ź NIL; fullFName Ź FS.FileInfo[inputName].fullFName; RETURN [fullFName] }; <> <> <> <> <<};>> < CONTINUE].token;>> <<};>> GetFileNameToken: PROC [stream: IO.STREAM] RETURNS [rope: ROPE Ź NIL] = { FileNameTokenBreak: PROC [char: CHAR] RETURNS [IO.CharClass] = { IF char = '_ THEN RETURN [break]; IF char = ' OR char = '\t OR char = ', OR char = '; OR char = '\n THEN RETURN [sepr]; RETURN [other]; }; rope Ź stream.GetTokenRope[FileNameTokenBreak ! IO.EndOfStream => CONTINUE].token; }; Complain: PUBLIC ERROR [complaint: ROPE] ~ CODE; MakeOutputName: PROC [inputName: ROPE, doc: ROPE] RETURNS [ROPE] ~ { <> start: INT Ź Rope.Index[s1: doc, s2: " to "]+4; end: INT Ź Rope.SkipTo[s: doc, pos: start, skip: " \n\t"]; cp: FS.ComponentPositions; isMPNT: BOOL Ź Rope.Equal[Rope.Substr[doc, start, end-start], "MPNT", FALSE]; [inputName, cp] Ź FS.ExpandName[inputName]; RETURN [Rope.Cat[ Rope.Substr[inputName, cp.base.start, cp.base.length], IF isMPNT THEN NIL ELSE ".", IF isMPNT THEN NIL ELSE Rope.Substr[doc, start, end-start] ]] }; Command: PUBLIC Commander.CommandProc ~ { refAction: REF ActionProc ~ NARROW[cmd.procData.clientData]; stream: IO.STREAM Ź IO.RIS[cmd.commandLine]; firstToken: ROPE Ź GetFileNameToken[stream]; quiet: BOOL Ź Rope.Equal[firstToken, "-q", FALSE]; outputName: ROPE Ź FileNames.ResolveRelativePath[IF quiet THEN GetFileNameToken[stream] ELSE firstToken]; secondTokenIndex: INT Ź IO.GetIndex[stream]; gets: ROPE Ź GetFileNameToken[stream]; inputName: ROPE Ź NIL; IF NOT gets.Equal["_"] THEN { inputName Ź outputName; outputName Ź NIL; stream.SetIndex[secondTokenIndex]; } ELSE {inputName Ź FileNames.ResolveRelativePath[GetFileNameToken[stream]]}; IF inputName = NIL THEN RETURN[result: $Failure, msg: cmd.procData.doc]; inputName Ź FindFullName[inputName ! FS.Error => { IF error.group = user THEN {result Ź $Failure; msg Ź error.explanation; GOTO Quit} }]; IF outputName = NIL THEN { outputName Ź MakeOutputName[inputName, cmd.procData.doc]; }; cmd.out.PutRope["Reading "]; cmd.out.PutRope[inputName]; cmd.out.PutRope[" . . . "]; IF quiet THEN cmd.commandLine Ź NIL; refAction[inputName, outputName, cmd, stream ! Complain => {result Ź $Failure; msg Ź complaint; GOTO Quit}; FS.Error => { IF error.group = user THEN {result Ź $Failure; msg Ź error.explanation; GOTO Quit} } ]; outputName Ź FindFullName[outputName ! FS.Error => { outputName Ź "Output file(s)"; CONTINUE}; ]; cmd.out.PutRope[outputName]; cmd.out.PutRope[" written.\n"]; EXITS Quit => NULL }; Commander.Register["CGMToInterpress", Command, "\nConvert CGM to Interpress\nUsage:\tCGMToInterpress [-q] [ _] \n\t\t\t-q to suppress caption and page number", NEW[ActionProc Ź CGMToInterpressAction]]; Commander.Register["CGMToIP", Command, "\nConvert CGM to Interpress\nUsage:\tCGMToIP [-q] [ _] \n\t\t\t-q to suppress caption and page number", NEW[ActionProc Ź CGMToInterpressAction]]; < _] \n\t\t\t-q to suppress caption and page number", NEW[ActionProc Ź MacPaintToInterpressAction]];>> < _] \n\t\t\t-q to suppress caption and page number", NEW[ActionProc Ź MacPaintToInterpressAction]];>> < _] \n\t\t\t-q to suppress caption and page number", NEW[ActionProc Ź PICTToInterpressAction]];>> < _] \n\t\t\t-q to suppress caption and page number", NEW[ActionProc Ź PICTToInterpressAction]];>> END.