
DIRECTORY Commander, CommanderOps, Convert, FS, Imager, ImagerInterpress, InterpressInterpreter, IO, Rope;

InterpressPageUp: CEDAR PROGRAM
IMPORTS Commander, CommanderOps, Convert, FS, Imager, ImagerInterpress, InterpressInterpreter, IO, Rope ~ {

ROPE: TYPE = Rope.ROPE;
STREAM: TYPE = IO.STREAM;

paperWidth: REAL м 0.01 * 2.54 * 8.5; -- meters
paperHight: REAL м 0.01 * 2.54 * 11.0; -- meters
margin: REAL м 0.01 * 1.0; -- one centimeter margin
defaultScaleFactor: REAL = 0.455; -- enough to leave 2 centimeters free across whole page

scaleFactor: REAL м defaultScaleFactor;
scaleIt: BOOL м TRUE;

input: ROPE;
output: ROPE;

PageUp: PROC [output, input: ROPE, logProc: InterpressInterpreter.LogProc, ms: STREAM] ~ {
ref: ImagerInterpress.Ref ~ ImagerInterpress.Create[fileName: output];
master: InterpressInterpreter.Master ~ InterpressInterpreter.Open[fileName: input, log: logProc];
inPages: INT = master.pages;
outPages: INT = (inPages+3)/4;
outPage: INT м 1;
lowPage: INT м 1;
highPage: INT м outPages * 4;
WriteSide: PROC [context: Imager.Context] ~ {
Page1: PROC ~ {
IF lowPage > inPages THEN RETURN;
Imager.TranslateT[context, [margin, paperHight/2.0]];
IF scaleIt THEN Imager.ScaleT[context, scaleFactor];
InterpressInterpreter.DoPage[master: master, page: lowPage, context: context, log: logProc];
lowPage м lowPage + 1;
};
Page2: PROC ~ {
IF lowPage > inPages THEN RETURN;
Imager.TranslateT[context, [(paperWidth/2.0), paperHight/2.0]];
IF scaleIt THEN Imager.ScaleT[context, scaleFactor];
InterpressInterpreter.DoPage[master: master, page: lowPage, context: context, log: logProc];
lowPage м lowPage + 1;
};
Page3: PROC ~ {
IF lowPage > inPages THEN RETURN;
Imager.TranslateT[context, [margin, margin]];
IF scaleIt THEN Imager.ScaleT[context, scaleFactor];
InterpressInterpreter.DoPage[master: master, page: lowPage, context: context, log: logProc];
lowPage м lowPage + 1;
};
Page4: PROC ~ {
IF lowPage > inPages THEN RETURN;
Imager.TranslateT[context, [(paperWidth/2.0), margin]];
IF scaleIt THEN Imager.ScaleT[context, scaleFactor];
InterpressInterpreter.DoPage[master: master, page: lowPage, context: context, log: logProc];
lowPage м lowPage + 1;
};
Imager.DoSave[context, Page1];
Imager.DoSave[context, Page2];
Imager.DoSave[context, Page3];
Imager.DoSave[context, Page4];
};

ms.PutFL["Making new interpress file %g (%g pages) from %g (%g input pages) ... ", LIST[
[rope[output]],
[integer[outPages]],
[rope[input]],
[integer[inPages]]]];
WHILE lowPage <= inPages DO
ms.PutF1["[%g", [integer[outPage]]];
ImagerInterpress.DoPage[self: ref, action: WriteSide];
ms.PutRope["] "];
outPage м outPage + 1;
ENDLOOP;
ImagerInterpress.Close[self: ref];
ms.PutF1["\n%g written.\n", [rope[output]]];
};

ProcessArgs: PROC [cmd: Commander.Handle, argv: CommanderOps.ArgumentVector]
RETURNS [msg: ROPE м NIL] ~ {
i: INT м 1;
arrowSpecified: BOOL м FALSE;
input м NIL;
output м NIL;
scaleFactor м defaultScaleFactor;
scaleIt м TRUE;
WHILE i < argv.argc DO
len: INT ~ Rope.Length[argv[i]];
IF len = 0 THEN { msg м "Null argument"; GOTO Bad };
IF Rope.Fetch[argv[i], 0] = '-
THEN {
IF len = 1 THEN { msg м "Missing option"; GOTO Bad };
SELECT Rope.Fetch[argv[i], 1] FROM
'b => scaleIt м FALSE;  -- booklet style, no scaling
'f => scaleIt м TRUE;   -- fit a "standard" 8.5 x 11
's => {  -- use an arbitrary scaleing factor
scaleIt м TRUE;
scaleFactor м Convert.RealFromRope[Rope.Substr[argv[i], 2]];
};
ENDCASE => { msg м "Invalid option"; GOTO Bad };
}
ELSE {
SELECT TRUE FROM
Rope.Equal[argv[i], "_"] => {
IF input = NIL THEN { msg м "No output file specified"; GOTO Bad };
arrowSpecified м TRUE;
};
input = NIL => input м argv[i];
(output = NIL) AND arrowSpecified => {
output м input;
input м argv[i];
};
ENDCASE => {
IF arrowSpecified
THEN msg м "Too much in command line"
ELSE msg м "Missing \"_\"";
GOTO Bad;
};
};
i м i.SUCC;
ENDLOOP;
IF input = NIL OR output = NIL THEN { msg м "File name missing"; GOTO Bad };
EXITS
Bad => NULL;
};

PageUpLogProc: InterpressInterpreter.LogProc ~ { -- doesn't do anything!
};

PageUpCmd: Commander.CommandProc ~ {
ENABLE {
FS.Error => {
result м $Failure;
msg м error.explanation;
GOTO Failure;
};
};
argv: CommanderOps.ArgumentVector м CommanderOps.Parse[cmd
! CommanderOps.Failed => { msg м errorMsg; result м $Failure; GOTO Failure }];
IF argv = NIL THEN RETURN;
msg м ProcessArgs[cmd, argv];
IF msg # NIL THEN { result м $Failure; RETURN };
PageUp[output, input, PageUpLogProc, cmd.out];
EXITS
Failure => {};
};

doc: ROPE м "Create a new IP master that has 4 pages per page.";
Commander.Register["InterpressPageUp", PageUpCmd, doc];
Commander.Register["IPPageUp", PageUpCmd, doc];
}.
   (  
InterpressPageUp.mesa
Copyright ╙ 1987, 1992 by Xerox Corporation.  All rights reserved.
Mark Weiser, November 15, 1988 4:43:59 pm PST
Wes Irish, December 3, 1987 4:14:02 pm PST
Michael Plass, April 15, 1992 3:39 pm PDT
InterpressPageUp


PROC [class: INT, code: ATOM, explanation: ROPE];
Э╩  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЩKЪЬ	╧eЬdЩpKЩ*KЩ)ЧKШ KЩKЩ KЩ KЪ╧k	Ь#ЮЬ3ЮЬШjKШ KЪ╧bЬЮЬЮШЪЮЬ#ЮЬ3ЮЬ
ШkKШ KЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШKШ KЪЬЮЬ╧c	Ш/KЪЬЮЬа	Ш0KЪЬЮЬаШ3KЪЬЮЬ
а7ШYKШ KЪЬЮЬШ'KЪЬ	ЮЬЮЬШKШ KЪЬЮЬШKЪЬЮЬШKШ Ъ╧nЬЮЬЮЬ.ЮЬШZKХStartOfExpansion([fileName: ROPE, header: ROPE _ NIL]ШFKЦK[fileName: ROPE, logProc: Interpress.LogProc, logData: REF ANY _ NIL]ШaKЪЬ	ЮЬШKЪЬ
ЮЬШKЪЬ	ЮЬШKЪЬ	ЮЬШKЪЬ
ЮЬШcode2ЦI[self: ImagerInterpress.Ref, action: PROC [...], scale: REAL _ 1.0]Ъ╨bn	ЬЮЬШ-ЪбЬЮЬШKЪЮЬЮЬЮЬШ!KШ5KЪЮЬ	ЮЬ%Ш4KЦI[master: Interpress.OpenMaster, page: INT, context: Imager.Context]Ш\KШKШЧЪбЬЮЬШKЪЮЬЮЬЮЬШ!KШ?KЪЮЬ	ЮЬ%Ш4KЦI[master: Interpress.OpenMaster, page: INT, context: Imager.Context]Ш\KШKШЧЪбЬЮЬШKЪЮЬЮЬЮЬШ!KШ-KЪЮЬ	ЮЬ%Ш4KЦI[master: Interpress.OpenMaster, page: INT, context: Imager.Context]Ш\KШKШЧЪбЬЮЬШKЪЮЬЮЬЮЬШ!KШ7KЪЮЬ	ЮЬ%Ш4KЦI[master: Interpress.OpenMaster, page: INT, context: Imager.Context]Ш\KШKШЧKШKШKШKШKШЧLЦI[self: ImagerInterpress.Ref, action: PROC [...], scale: REAL _ 1.0]Ш ЪЬSЮЬШXKШKШKШKШЧЪЮЬЮШKШ$KШ6KШKШKЪЮЬШЧKЦ[self: ImagerInterpress.Ref]Ш"KШ,KШKШ ЧЪ
бЬЮЬ<ЮЬЮЬЮЬШjKЪЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬШKЪЬ	ЮЬШKШ!KЪЬ
ЮЬШЪЮЬЮШKЪЬЮЬШ KЪЮЬ	ЮЬЮЬШ4ЪЮЬШЪЮЬШKЪЮЬ	ЮЬЮЬШ5ЪЮЬЮШ"KЪЬЮЬаШ4KЪЬЮЬаШ4ЪЬ	а#Ш,KЪЬ
ЮЬШKШ<KШЧKЪЮЬЮЬШ0ЧKШЧЪЮЬШЪЮЬЮЬЮШШKЪЮЬ	ЮЬЮЬ%ЮЬШCKЪЬЮЬШKШЧKЪЬЮЬШЪЬ
ЮЬЮЬШ&KШKШKШЧЪЮЬШЪЮЬШKЪЮЬ!Ш%KЪЮЬШЧKЪЮЬШ	KШЧЧKШЧЧKЪЬЮЬШKЪЮЬШЧKЪЮЬ	ЮЬЮЬ
ЮЬЮЬЮЬШLЪЮШKЪЬЮЬШЧKШKШ ЧЪбЬ$аШHKЪЮЬ	ЮЬЮЬЮЬЩ1KШKШ ЧЪб	ЬШ$Ц[error: FS.ErrorDesc]ЪЮЬШЦ[error: FS.ErrorDesc]ЪЮЬШKШKШKЪЮЬ	ШKШЧKШЧШ:KЪЬ>ЮЬШNЧKЪЮЬЮЬЮЬЮЬШKШKЪЮЬЮЬЮЬЮЬШ0KШ.ЪЮШKШЧKШЧЧШ KЪЬЮЬ7Ш@KШ7KШ/ЧKШЧ ЕЧ       a  