DIRECTORY Ascii, Commander, Basics, Rope, FS, IO, PressFormat;SetPressPrintingModeImpl: CEDAR PROGRAMIMPORTS Ascii, Commander, FS, IO, Rope~ BEGINROPE: TYPE ~ Rope.ROPE;Bad: ERROR ~ CODE;bytesPerPressPage: INT ~ 512;bytesPerWord: INT ~ Basics.bytesPerWord;ReadDirectory: PROC [input: IO.STREAM] RETURNS [REF PressFormat.DDV] ~ TRUSTED {ddv: REF PressFormat.DDV _ NEW[PressFormat.DDV];fileLength: INT _ input.GetLength;IF fileLength MOD bytesPerPressPage # 0 THEN ERROR Bad;IF fileLength < bytesPerPressPage THEN ERROR Bad;input.SetIndex[fileLength-bytesPerPressPage];[] _ input.UnsafeGetBlock[block: [base: LOOPHOLE[ddv], startIndex: 0, count: bytesPerWord*SIZE[PressFormat.DDV]]];IF ddv.Passwd # PressFormat.PressPasswd THEN ERROR Bad;IF ddv.nRecs*bytesPerPressPage # fileLength THEN ERROR Bad;RETURN [ddv];};GetToken: PROC [stream: IO.STREAM] RETURNS [token: ROPE _ NIL] = {token _ stream.GetTokenRope[Break ! IO.EndOfStream => CONTINUE].token;};Break: PROC [char: CHAR] RETURNS [IO.CharClass] = {IF char = '_ THEN RETURN [break];IF char = '  OR char = '	 OR char = ', OR char = '; OR char = '\n THEN RETURN [sepr];RETURN [other];};SetMode: PROC [fileName: ROPE, mode: CHAR] RETURNS [expl: ROPE] ~ {file: IO.STREAM _ FS.StreamOpen[fileName: fileName, accessOptions: $write, streamOptions: [tiogaRead: FALSE, commitAndReopenTransOnFlush: TRUE, truncatePagesOnClose: FALSE, finishTransOnClose: TRUE, closeFSOpenFileOnClose: TRUE]];documentDirectory: REF PressFormat.DDV _ ReadDirectory[file ! Bad => GOTO Quit];was: CARDINAL _ documentDirectory.spare3[0];documentDirectory.spare3[0] _ IF mode = '\000 THEN CARDINAL.LAST ELSE ORD[mode];file.SetIndex[file.GetLength-bytesPerPressPage];file.UnsafePutBlock[block: [base: LOOPHOLE[documentDirectory], startIndex: 0, count: bytesPerWord*SIZE[PressFormat.DDV]]];file.Close;expl _ IO.PutFR["Mode used to be %g", IF was < 128 THEN IO.char[LOOPHOLE[was]] ELSE IF was = CARDINAL.LAST THEN IO.rope["normal"] ELSE IO.int[was]];EXITS Quit => {expl _ "Sorry, not a press file";};};SetPressPrintingModeCommand: Commander.CommandProc ~ {stream: IO.STREAM _ IO.RIS[cmd.commandLine];fileName: ROPE _ GetToken[stream];mode: ROPE _ GetToken[stream];charMode: CHAR _ IF mode.Length = 0 THEN '\000 ELSE Ascii.Upper[mode.Fetch[0]];expl: ROPE;IF fileName = NIL THEN {cmd.out.PutRope["Please supply a file name.\n"]; RETURN};SELECT charMode FROM'\000, 'R, 'S, 'T => NULL;ENDCASE => {cmd.out.PutRope["Mode options are (R = reverse, S = solid, T = transparent)\n"]; RETURN};expl _ SetMode[fileName, charMode !FS.Error => {expl _ error.explanation; CONTINUE};IO.Error => {expl _ FS.ErrorFromStream[stream].explanation; CONTINUE}];cmd.out.PutRope[expl];cmd.out.PutRope["\n"];};Commander.Register["SetPressPrintingMode", SetPressPrintingModeCommand, "Force the Printing mode of a press file (R = reverse, S = solid, T = transparent), e.g.,\n  SetPressPrintingMode myPress.press T"];END.    ’  SetPressPrintingModeImpl.mesaCopyright (C) 1984, Xerox Corporation.  All rights reserved.Michael Plass, November 1, 1984 4:21:07 pm PST ‌ت/  ک Jڑœ™J™<™.J™ —ڑدk	œ!‌œ‌œک>Jک —ڑœ‌œ‌ک'Jڑ‌œ‌œ‌œک&Jڑœ‌ک–"cedar" styleڑ‌œ‌œ‌œکJ–"cedar" styleک —Jڑœ‌œ‌œکJڑœ‌œکJڑœ‌œک(ڑدnœ‌œ	‌œ‌œ‌œ‌œ‌œ‌œکPJڑ	œ‌œ‌œ‌œ‌œک0Jڑœ‌œک"Jڑ‌œ‌œ‌œ‌œک7Jڑ‌œ ‌œ‌œک1Jڑœ-ک-Jڑœ(‌œ*‌œ‌œکrJڑ‌œ&‌œ‌œک7Jڑ‌œ*‌œ‌œک;Jڑ‌œکJڑœکJک —–"cedar" styleڑ‍œ‌œ
‌œ‌œ‌œ	‌œ‌œکBJڑœ$‌œ‌œکFJڑœکJک —–"cedar" styleڑ
‍œ‌œ‌œ‌œ‌œک3Jڑ‌œ‌œ‌œ	ک!Jڑ‌œ‌œ‌œ‌œ‌œ‌œ‌œکUJڑ‌œ	کJڑœکJک —ڑ‍œ‌œ‌œ‌œ‌œ‌œکCJڑœ‌œ‌œ‌œR‌œ‌œ‌œ‌œ‌œکوJڑœ‌œ‌œ‌œکPJڑœ‌œک,Jڑœ‌œ‌œ‌œ‌œ‌œ‌œکPJڑœ0ک0Jڑœ"‌œ8‌œ‌œکzJڑœکJڑœ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œ‌œک”ڑ‌œ
کJڑœ!ک!Jڑœک—JڑœکJک —ڑ‍œک6Jڑ	œ‌œ‌œ‌œ‌œک,Jڑœ
‌œک"Jڑœ‌œکJڑ	œ
‌œ‌œ‌œ‌œکOJڑœ‌œکJڑ‌œ‌œ‌œ3‌œکQڑ‌œ
‌کJڑœ‌œکJڑ‌œV‌œکe—ڑœ#ک#Jڑ‌œ%‌œک1Jڑ‌œ‌œ&‌œکEJڑœک—JڑœکJڑœکJڑœکJک —ڑœجکجJک —Jڑ‌œکJک —Jک — …—       a  