XEROX PP-CODE-FILE 2 4 1 PP-CODE-FILE 1 4 By: Doug Cutting (Cutting.PA@Xerox.COM) This document last edited on November 3, 1987. This module changes the places in the system where file manager files are presented to the user for viewing such that they are always pretty printed. This enables one to put IL:FAST in IL:CLEANUPOPTIONS, speeding up IL:MAKEFILE significantly. Pretty printing is also done in such a way that comments are printed with semi-colons instead of as lists with il:* as CAR. We redefine IL:LISTFILES1, change the File Browser Fast See Pretty command and redefine the see exectutive command. All will pretty print file manager files after PP-CODE-FILE has been loaded. (xcl::pp-code-file file &optional output) [Function] Pretty prints the contents of file to output. File must be a file produced by the file manager. Output may be an open stream or the name of a file and defaults to *standard-output*. Bugs This module is not compatable with the SINGLEFILEINDEX module. A file beginning with an open parenthesis which is not a file manager file can take quite long to identify as such, as we read the first expression on the file. (LIST ((PAGE NIL (PAPERSIZE LETTER STARTINGPAGE# 210) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL . LETTER) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))))).ÈÈ(È(È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADMODERN TERMINAL MODERN MODERN MODERN MODERNLOGO  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN   HRULE.GETFNMODERN  HRULE.GETFNMODERN ).¯™  Ce  /=?¡‘Gzº