From dd60b856580af4b353f08bbf7a4cff7b6c60a3db Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Fri, 15 Mar 2024 15:55:24 -0700 Subject: [PATCH] IMTEDIT and IMINDEX (#1571) Backquote commas were escaped in IMTEDIT. Also put the AFTERHARDCOPYFN on the text proplist, removed the advice in IMINDEX. --- doctools/IMINDEX | 50 +++----- doctools/IMINDEX.LCOM | Bin 17113 -> 16726 bytes doctools/IMTEDIT | 268 +++++++++++++++++++----------------------- doctools/IMTEDIT.LCOM | Bin 63523 -> 63411 bytes 4 files changed, 142 insertions(+), 176 deletions(-) diff --git a/doctools/IMINDEX b/doctools/IMINDEX index 1e96d387..b0a0e94b 100644 --- a/doctools/IMINDEX +++ b/doctools/IMINDEX @@ -1,21 +1,20 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "12-Feb-92 12:28:48" {DSK}sybalsky>PUBS>IMINDEX.;2 37264 - changes to%: (FNS IM.CHAP.DISPLAYFN) +(FILECREATED " 6-Mar-2024 21:19:25" {WMEDLEY}IMINDEX.;2 36416 - previous date%: " 8-Dec-91 15:46:22" {DSK}sybalsky>PUBS>IMINDEX.;1) + :EDIT-BY rmk + :CHANGES-TO (VARS IMINDEXCOMS) + + :PREVIOUS-DATE "12-Feb-92 12:28:48" {WMEDLEY}IMINDEX.;1) -(* ; " -Copyright (c) 1986, 1987, 1988, 1991, 1992 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT IMINDEXCOMS) (RPAQQ IMINDEXCOMS ( (* ;; - "this file contains the functions used for creating and manipulating index image objects") + "this file contains the functions used for creating and manipulating index image objects") (FNS IM.INDEX.CLOSEF IM.INDEX.COPYFN IM.INDEX.CREATEOBJ IM.INDEX.DISPLAY.STRING IM.INDEX.DISPLAYFN IM.INDEX.EDIT IM.INDEX.LIST.FROM.STRING IM.INDEX.SIZEFN @@ -32,12 +31,7 @@ Copyright (c) 1986, 1987, 1988, 1991, 1992 by Xerox Corporation. All rights res (COMS (* ; "An image object to set the chapter number, on the TEXTOBJ's proplist, on the INDEXING-CHAPTER property.") (FNS IM.CHAP.COPYFN IM.CHAP.CREATEOBJ IM.CHAP.DISPLAYFN IM.CHAP.SIZEFN IM.CHAP.PUTFN IM.CHAP.GETFN IM.CHAP.BUTTONEVENTFN)) - (P (ADVISE 'TEDIT.FORMAT.HARDCOPY 'AROUND '(RESETLST - (RESETSAVE NIL (LIST (FUNCTION IM.INDEX.CLOSEF - ) - STREAM)) - *)) - (IM.INDEX.INIT)))) + (P (IM.INDEX.INIT)))) @@ -494,9 +488,9 @@ Copyright (c) 1986, 1987, 1988, 1991, 1992 by Xerox Corporation. All rights res (DECLARE%: EVAL@COMPILE (RECORD IM.INDEX.DATA (NAME TYPE SAV INFO SUBSEC PAGE# . PROPLIST) - SUBSEC _ IM.INDEX.DEFAULT.SUBSEC (TYPE? (AND (LISTP DATUM) - (IGEQ (LENGTH DATUM) - 6)))) + SUBSEC _ IM.INDEX.DEFAULT.SUBSEC (TYPE? (AND (LISTP DATUM) + (IGEQ (LENGTH DATUM) + 6)))) ) (RPAQQ IM.INDEX.OBJ.FREEMENU.SPECS @@ -638,21 +632,15 @@ Copyright (c) 1986, 1987, 1988, 1991, 1992 by Xerox Corporation. All rights res T]) ) -(ADVISE 'TEDIT.FORMAT.HARDCOPY 'AROUND '(RESETLST - (RESETSAVE NIL (LIST (FUNCTION IM.INDEX.CLOSEF) - STREAM)) - *)) - (IM.INDEX.INIT) -(PUTPROPS IMINDEX COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1991 1992)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2160 15212 (IM.INDEX.CLOSEF 2170 . 2785) (IM.INDEX.COPYFN 2787 . 2972) ( -IM.INDEX.CREATEOBJ 2974 . 4320) (IM.INDEX.DISPLAY.STRING 4322 . 4743) (IM.INDEX.DISPLAYFN 4745 . 8588) - (IM.INDEX.EDIT 8590 . 12058) (IM.INDEX.LIST.FROM.STRING 12060 . 13094) (IM.INDEX.SIZEFN 13096 . 13856 -) (IM.INDEX.STRING.FROM.LIST 13858 . 14103) (IM.INDEX.PUTFN 14105 . 14294) (IM.INDEX.GETFN 14296 . -14451) (IM.INDEX.BUTTONEVENTFN 14453 . 15210)) (15213 17283 (IM.INDEX.INIT 15223 . 17281)) (17284 -29200 (IM.INDEX.MENU 17294 . 18982) (IM.INDEX.MENU.WHENSELECTEDFN 18984 . 25739) ( -IM.INDEX.OBJ.FREEMENU.SELECTEDFN 25741 . 29198)) (31736 36879 (IM.CHAP.COPYFN 31746 . 31926) ( -IM.CHAP.CREATEOBJ 31928 . 33354) (IM.CHAP.DISPLAYFN 33356 . 35316) (IM.CHAP.SIZEFN 35318 . 36320) ( -IM.CHAP.PUTFN 36322 . 36506) (IM.CHAP.GETFN 36508 . 36669) (IM.CHAP.BUTTONEVENTFN 36671 . 36877))))) + (FILEMAP (NIL (1673 14725 (IM.INDEX.CLOSEF 1683 . 2298) (IM.INDEX.COPYFN 2300 . 2485) ( +IM.INDEX.CREATEOBJ 2487 . 3833) (IM.INDEX.DISPLAY.STRING 3835 . 4256) (IM.INDEX.DISPLAYFN 4258 . 8101) + (IM.INDEX.EDIT 8103 . 11571) (IM.INDEX.LIST.FROM.STRING 11573 . 12607) (IM.INDEX.SIZEFN 12609 . 13369 +) (IM.INDEX.STRING.FROM.LIST 13371 . 13616) (IM.INDEX.PUTFN 13618 . 13807) (IM.INDEX.GETFN 13809 . +13964) (IM.INDEX.BUTTONEVENTFN 13966 . 14723)) (14726 16796 (IM.INDEX.INIT 14736 . 16794)) (16797 +28713 (IM.INDEX.MENU 16807 . 18495) (IM.INDEX.MENU.WHENSELECTEDFN 18497 . 25252) ( +IM.INDEX.OBJ.FREEMENU.SELECTEDFN 25254 . 28711)) (31229 36372 (IM.CHAP.COPYFN 31239 . 31419) ( +IM.CHAP.CREATEOBJ 31421 . 32847) (IM.CHAP.DISPLAYFN 32849 . 34809) (IM.CHAP.SIZEFN 34811 . 35813) ( +IM.CHAP.PUTFN 35815 . 35999) (IM.CHAP.GETFN 36001 . 36162) (IM.CHAP.BUTTONEVENTFN 36164 . 36370))))) STOP diff --git a/doctools/IMINDEX.LCOM b/doctools/IMINDEX.LCOM index 02a963a9efa2d6e585ad232b78abf421390d784f..133af2de7e333e4f6ddc666786f9e762230f3507 100644 GIT binary patch delta 961 zcma)3OK1~O6eW%Q@Jhvgw3^1`F)E!DC+$o#$>dF%G$xZcl4R1%v|5DJHcd73lQyj& z6fKA?C@v}w7cLZZsV;;dxGT7IAu0&yN@r>)g4E*iEE0q`Hey@l3VxmMrJy*t$zds-;iyDW4*=M0LPQ|y)Y_o zbTpfc7yGXRKK6|5t18A7BbKTNQk&?Zy9fNh6*^yA>LD-OM;C~VI`=e|dk%dwRUBO- zR@lGj*n~oJ-fM#6OZTUG=w+>IRCl*QW6CX?+y}icP3}fVnm+H}uG~5cXcMOa*TiKz zVl(OR&`@n&m}PsgEMr6ud(Q#wiZ=`R(K`+p@}&SZhn+t3ooYrd%tA1bewuFiI%vBT zfvH92=rsvE(66$czLQ$u>$6k<%=q(w&;0f_*s6M0Q>x*DAEMLbC=A!hk;dwqLiCoc zlOC54bU%;`V6W^1)MQiSsoW2^E$e_gawpyD2KRv=RCfa=cPEfT=ATx*h29T2=<rfE3TMc)sIKyM9>0WJhhk8dg{hRn|G&=lbJ3g!kUnviNJNgcEFRckxl8jQn` W4Vz0h!czwk*f8^`afVWA0{s9mAqZ#y delta 1320 zcmb`GPi)(C6vq{1Xs1X+>qh&X2Hl-4Ba(yz>4u`&TB-am=pssrAkRvO0&SR4S%cKYI{xa zJHP_7lXKqMU8)9NFVO0}LFYrS-MFab{KjC*>+}O{&}m)K+O43gwVR&S^c#T|Y;V@v z!KH1@ESja9u`Xmp9@rr$QN7#4f-x*8t1(fHOIV;!3%1WRp@sE|UbF3OLtIEge$Z}% zvmN+@K8WI>RzVP0Xx96vkbTyVpG=CX7-RY88X(^R}#>IN)eJ_B%e_91DUvhvki$Zo)w}qVP*af|oFY(ard6!%MAQ(%- zL>A<+W<>-ssU}kDqJ-W4hq5BikiF1!h#CDFdM6ZOh#39~ja%W*sIeaT7L6kl7bfx1 zU=}9uadr9_4HFg-H+ODKXff*84> z%#9wNc!Z}%59Zdwn6^59XM*8ukR);q=10cD&I=gaJ99UJK{5OZc}do~EHz5rmQgkNQs$A@4Lp`@ga0*l*|Hf1(SO7)l$|qtrB)1 z>~C_mU^zyf2gk+VsL1nhVv$F32MK1$bkT!%_@nYFO1-PRGPys874p-OS@Jl26upaT z1-Yv(Aiq{UWH=Lll2^u7Pm)?jMDOp+EO~utiu{mCp>;1qPiaeyqjUlH1(CnCd2(|} zK6dDGYqmjR+8p7RlbFA;yn(#2Oviajqr9q7&!5_R$nz_d->+;UkDsN{%VX|o)8yV+ zXUJeH-2XG{gw#wD$~cEz%tr~3u;t}EubRlGTN-Rt>RAnW(K dey`qd`5hKSMNUzqDP#owH5Em|Z{wXa{{XPfaY+CG diff --git a/doctools/IMTEDIT b/doctools/IMTEDIT index 31b3417c..b5539ee0 100644 --- a/doctools/IMTEDIT +++ b/doctools/IMTEDIT @@ -1,17 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "20-Jul-2022 15:10:53"  -{DSK}kaplan>Local>medley3.5>working-medley>doctools>IMTEDIT.;2 117347 +(FILECREATED " 6-Mar-2024 21:18:02" {WMEDLEY}IMTEDIT.;4 116622 - :CHANGES-TO (FNS MAKE.IM.DOCUMENT) + :EDIT-BY rmk - :PREVIOUS-DATE " 8-Dec-91 15:41:54" -{DSK}kaplan>Local>medley3.5>working-medley>doctools>IMTEDIT.;1) + :CHANGES-TO (FNS TRANSLATE.DUMPOUT MAKE.IM.DOCUMENT) + :PREVIOUS-DATE "20-Jul-2022 15:10:53" {WMEDLEY}IMTEDIT.;2) -(* ; " -Copyright (c) 1983-1986, 1991 by Xerox Corporation. -") (PRETTYCOMPRINT IMTEDITCOMS) @@ -493,27 +489,26 @@ Copyright (c) 1983-1986, 1991 by Xerox Corporation. (DUMPOUT FONT LISP DUMP.CHARS SAV]) (MAKE.IM.DOCUMENT - [LAMBDA (FORM OUTFILE.FLG PAGE.LAYOUT OUTPUT.MESSAGE DEFAULT.PARALOOKS PTRFILENAME) - (* ; "Edited 20-Jul-2022 15:10 by rmk") + [LAMBDA (FORM OUTFILE.FLG PAGE.LAYOUT OUTPUT.MESSAGE DEFAULT.PARALOOKS PTRFILENAME) + + (* ;; "Edited 6-Mar-2024 21:17 by rmk: Fixed backquote commas. Also put IM.INDEX.CLOSEF calls in TEXTPROPs so advice in IMINDEX can be eliminated.") + + (* ;; "Edited 20-Jul-2022 15:10 by rmk") (* mjs " 4-Aug-86 10:52") - (* * this function creates an IM output file, in XPS-compatible format. - If sets up all of the special variables needed by DUMP, evaluates FORM, and sets - all of the para and font looks) +(* ;;; "this function creates an IM output file, in XPS-compatible format. If sets up all of the special variables needed by DUMP, evaluates FORM, and sets all of the para and font looks") - (* * If OUTFILE.FLG is NIL, the output file is just sent to the default printer. - If OUTFILE.FLG is T, the outfile textstream is simply returned. - If OUTFILE.FLG = anything else, it is taken as a file name to put the press file - which is created .) +(* ;;; "If OUTFILE.FLG is NIL, the output file is just sent to the default printer. If OUTFILE.FLG is T, the outfile textstream is simply returned. If OUTFILE.FLG = anything else, it is taken as a file name to put the press file which is created .") - (* * if PAGE.LAYOUT is non-NIL, it should be the compound page layout to be used.) +(* ;;; "if PAGE.LAYOUT is non-NIL, it should be the compound page layout to be used.") - (* * if OUTPUT.MESSAGE is non-NIL, it is printed on the hardcopy output) +(* ;;; "if OUTPUT.MESSAGE is non-NIL, it is printed on the hardcopy output") - (* * PTRFILENAME is the name to be used if an index pointer file is generated - during hardcopy ) +(* ;;; "PTRFILENAME is the name to be used if an index pointer file is generated during hardcopy ") - (PROG ((IM.OUTFILE (OPENTEXTSTREAM NIL NIL NIL NIL (LIST 'IM.INDEX.PTRFILENAME PTRFILENAME))) + (PROG ([IM.OUTFILE (OPENTEXTSTREAM NIL NIL NIL NIL `(IM.INDEX.PTRFILENAME ,PTRFILENAME + AFTERHARDCOPYFN (FUNCTION + IM.INDEX.INIT] (FONT.STACK (CONS)) (IM.TEDIT.LAST.PARA.BEGIN 1) (IM.TEDIT.LAST.FONT.BEGIN 1) @@ -532,7 +527,7 @@ Copyright (c) 1983-1986, 1991 by Xerox Corporation. (DUMP.HEADERS.FOOTERS " " " ") (DUMPOUT CR CR START.PARA PARALOOKS `(TYPE PAGEHEADING SUBTYPE DRAFTMESSAGE QUAD LEFT 1STLEFTMARGIN 0 LEFTMARGIN 0 - RIGHTMARGIN %, IM.TEXT.RIGHTMARGIN) + RIGHTMARGIN ,IM.TEXT.RIGHTMARGIN) DUMP.CHARS (COND (IM.DRAFT.FLG (CONCAT "***DRAFT*** " (DATE) @@ -543,73 +538,65 @@ Copyright (c) 1983-1986, 1991 by Xerox Corporation. (COND (IM.EVEN.FLG - (* if you must quarantee that you have an even number of pages for two-sided - copying, dump out a blank page no matter what -- - it can always be discarded) + (* ;; "if you must quarantee that you have an even number of pages for two-sided copying, dump out a blank page no matter what -- it can always be discarded") (DUMPOUT CR CR START.PARA PARALOOKS - `(NEWPAGEBEFORE T QUAD LEFT 1STLEFTMARGIN 0 LEFTMARGIN 0 RIGHTMARGIN %, - IM.TEXT.RIGHTMARGIN SPECIALX %, IM.BLANKPAGE.SPECIALX SPECIALY %, - IM.BLANKPAGE.SPECIALY) + `(NEWPAGEBEFORE T QUAD LEFT 1STLEFTMARGIN 0 LEFTMARGIN 0 RIGHTMARGIN + ,IM.TEXT.RIGHTMARGIN SPECIALX ,IM.BLANKPAGE.SPECIALX SPECIALY + ,IM.BLANKPAGE.SPECIALY) DUMP.CHARS "[This page intentionally left blank]" CR CR))) - (* after converting document, make sure that last para is formatted correctly by - changing font, ending current para, and starting new para) + (* ;; "after converting document, make sure that last para is formatted correctly by changing font, ending current para, and starting new para") (DUMPOUT CR CR FONT NIL) (DUMP '(START.PARA)) - (* * set page format) +(* ;;; "set page format") [TEDIT.PAGEFORMAT IM.OUTFILE (COND (PAGE.LAYOUT) - (T (TEDIT.COMPOUND.PAGEFORMAT [TEDIT.SINGLE.PAGEFORMAT NIL NIL NIL NIL NIL - IM.PAGE.LEFTMARGIN IM.PAGE.RIGHTMARGIN - IM.PAGE.FIRST.TOPMARGIN IM.PAGE.BOTTOMMARGIN - 1 NIL NIL - `((RECTOFOOT %, IM.PAGE.LEFTMARGIN %, - IM.FOOTER.Y) - (RECTOFOOTRULE %, IM.PAGE.LEFTMARGIN %, - IM.FOOTER.RULE.Y) - (DRAFTMESSAGE %, IM.DRAFT.MESSAGE.X %, - IM.DRAFT.MESSAGE.BOTTOM.Y] + (T (TEDIT.COMPOUND.PAGEFORMAT [TEDIT.SINGLE.PAGEFORMAT + NIL NIL NIL NIL NIL IM.PAGE.LEFTMARGIN + IM.PAGE.RIGHTMARGIN IM.PAGE.FIRST.TOPMARGIN + IM.PAGE.BOTTOMMARGIN 1 NIL NIL + `((RECTOFOOT ,IM.PAGE.LEFTMARGIN ,IM.FOOTER.Y) + (RECTOFOOTRULE ,IM.PAGE.LEFTMARGIN + ,IM.FOOTER.RULE.Y) + (DRAFTMESSAGE ,IM.DRAFT.MESSAGE.X + ,IM.DRAFT.MESSAGE.BOTTOM.Y] [TEDIT.SINGLE.PAGEFORMAT NIL NIL NIL NIL NIL IM.PAGE.LEFTMARGIN IM.PAGE.RIGHTMARGIN IM.PAGE.TOPMARGIN IM.PAGE.BOTTOMMARGIN 1 NIL - NIL `((DRAFTMESSAGE %, IM.DRAFT.MESSAGE.X %, - IM.DRAFT.MESSAGE.TOP.Y) - (VERSOHEAD %, IM.PAGE.LEFTMARGIN %, IM.HEADER.Y) - (VERSOHEADRULE %, IM.PAGE.LEFTMARGIN %, IM.HEADER.RULE.Y) - (VERSOFOOT %, IM.PAGE.LEFTMARGIN %, IM.FOOTER.Y) - (VERSOFOOTRULE %, IM.PAGE.LEFTMARGIN %, IM.FOOTER.RULE.Y) - (DRAFTMESSAGE %, IM.DRAFT.MESSAGE.X %, - IM.DRAFT.MESSAGE.BOTTOM.Y] + NIL `((DRAFTMESSAGE ,IM.DRAFT.MESSAGE.X ,IM.DRAFT.MESSAGE.TOP.Y) + (VERSOHEAD ,IM.PAGE.LEFTMARGIN ,IM.HEADER.Y) + (VERSOHEADRULE ,IM.PAGE.LEFTMARGIN ,IM.HEADER.RULE.Y) + (VERSOFOOT ,IM.PAGE.LEFTMARGIN ,IM.FOOTER.Y) + (VERSOFOOTRULE ,IM.PAGE.LEFTMARGIN ,IM.FOOTER.RULE.Y) + (DRAFTMESSAGE ,IM.DRAFT.MESSAGE.X + ,IM.DRAFT.MESSAGE.BOTTOM.Y] (TEDIT.SINGLE.PAGEFORMAT NIL NIL NIL NIL NIL IM.PAGE.LEFTMARGIN IM.PAGE.RIGHTMARGIN IM.PAGE.TOPMARGIN IM.PAGE.BOTTOMMARGIN 1 NIL - NIL `((DRAFTMESSAGE %, IM.DRAFT.MESSAGE.X %, - IM.DRAFT.MESSAGE.TOP.Y) - (RECTOHEAD %, IM.PAGE.LEFTMARGIN %, IM.HEADER.Y) - (RECTOHEADRULE %, IM.PAGE.LEFTMARGIN %, IM.HEADER.RULE.Y) - (RECTOFOOT %, IM.PAGE.LEFTMARGIN %, IM.FOOTER.Y) - (RECTOFOOTRULE %, IM.PAGE.LEFTMARGIN %, IM.FOOTER.RULE.Y) - (DRAFTMESSAGE %, IM.DRAFT.MESSAGE.X %, - IM.DRAFT.MESSAGE.BOTTOM.Y] + NIL `((DRAFTMESSAGE ,IM.DRAFT.MESSAGE.X ,IM.DRAFT.MESSAGE.TOP.Y) + (RECTOHEAD ,IM.PAGE.LEFTMARGIN ,IM.HEADER.Y) + (RECTOHEADRULE ,IM.PAGE.LEFTMARGIN ,IM.HEADER.RULE.Y) + (RECTOFOOT ,IM.PAGE.LEFTMARGIN ,IM.FOOTER.Y) + (RECTOFOOTRULE ,IM.PAGE.LEFTMARGIN ,IM.FOOTER.RULE.Y) + (DRAFTMESSAGE ,IM.DRAFT.MESSAGE.X + ,IM.DRAFT.MESSAGE.BOTTOM.Y] - (* * dump default char and para looks for whole document -- - and looks that should be different should be specified in the fns) +(* ;;; "dump default char and para looks for whole document -- and looks that should be different should be specified in the fns") (TEDIT.LOOKS IM.OUTFILE IM.TEXT.FONT 1 (GETFILEINFO IM.OUTFILE 'LENGTH)) - (TEDIT.PARALOOKS IM.OUTFILE - [COND - (DEFAULT.PARALOOKS) - (T `(QUAD JUSTIFIED 1STLEFTMARGIN %, IM.TEXT.LEFTMARGIN LEFTMARGIN %, - IM.TEXT.LEFTMARGIN RIGHTMARGIN %, IM.TEXT.RIGHTMARGIN LINELEADING 0 - PARALEADING 5 POSTPARALEADING 0] + (TEDIT.PARALOOKS IM.OUTFILE [COND + (DEFAULT.PARALOOKS) + (T `(QUAD JUSTIFIED 1STLEFTMARGIN ,IM.TEXT.LEFTMARGIN + LEFTMARGIN ,IM.TEXT.LEFTMARGIN RIGHTMARGIN + ,IM.TEXT.RIGHTMARGIN LINELEADING 0 PARALEADING 5 + POSTPARALEADING 0] 1 (GETFILEINFO IM.OUTFILE 'LENGTH)) - (* must reverse list because the order of some char and paragraph looks is - significant << earlier looks are overridden by later ones >>) + (* ;; "must reverse list because the order of some char and paragraph looks is significant << earlier looks are overridden by later ones >>") (SETQ IM.CHARLOOKS (DREVERSE IM.CHARLOOKS)) (SETQ IM.PARALOOKS (DREVERSE IM.PARALOOKS)) @@ -2309,83 +2296,75 @@ page edge.) (DEFINEQ (TRANSLATE.DUMPOUT - [LAMBDA (DUMPOUT.ARGS) (* mjs "18-Sep-85 16:17") + [LAMBDA (DUMPOUT.ARGS) (* mjs "18-Sep-85 16:17") - (* * this function translates the DUMPOUT macro form into a PROGN form that - calls a series of functions, such as DUMP.) + (* * this function translates the DUMPOUT macro form into a PROGN form that calls + a series of functions, such as DUMP.) (* * the indentation code has been commented out --- - will try indenting everything to same, unless specified otherwise with - PARALOOKS) + will try indenting everything to same, unless specified otherwise with PARALOOKS) (PROG ((DUMPOUT.FORMS NIL) (DUMPOUT.UNDO NIL) COMM COMM.ARG) [while DUMPOUT.ARGS do (SELECTQ (SETQ COMM (pop DUMPOUT.ARGS)) - (NIL) - ((CR TAB START.PARA DUMP.FOOTNOTES START.SUPER START.SUB - END.SUPER END.SUB) - (* just pass these atoms as commands - to DUMP) - (push DUMPOUT.FORMS (LIST 'DUMP.FORMAT - (KWOTE COMM)))) - ((FLUSH.ARG TRIVIAL.ARG DUMP.ARG) - (push DUMPOUT.FORMS (LIST COMM))) - (INDENT + (NIL) + ((CR TAB START.PARA DUMP.FOOTNOTES START.SUPER START.SUB + END.SUPER END.SUB) (* just pass these atoms as commands + to DUMP) + (push DUMPOUT.FORMS (LIST 'DUMP.FORMAT (KWOTE COMM)))) + ((FLUSH.ARG TRIVIAL.ARG DUMP.ARG) + (push DUMPOUT.FORMS (LIST COMM))) + (INDENT (* * SELECTQ (SETQ COMM.ARG (pop DUMPOUT.ARGS)) - (INIT (push DUMPOUT.FORMS (QUOTE (PUT.MY.PROP - (QUOTE INDENT) INITIAL.INDENT))) (push DUMPOUT.FORMS - (QUOTE (PUT.MY.PROP (QUOTE WIDTH) INITIAL.WIDTH))) - (push DUMPOUT.FORMS (QUOTE (DUMP.FORMAT - (QUOTE INDENT) INITIAL.INDENT)))) (NONE - (push DUMPOUT.FORMS (QUOTE (PUT.MY.PROP - (QUOTE INDENT) (QUOTE NONE)))) (push DUMPOUT.FORMS - (QUOTE (PUT.MY.PROP (QUOTE WIDTH) (ANC.WIDTH)))) - (push DUMPOUT.FORMS (QUOTE (DUMP.FORMAT - (QUOTE INDENT) (QUOTE NONE))))) (push DUMPOUT.FORMS - (LIST (QUOTE (LAMBDA (I) (PUT.MY.PROP (QUOTE INDENT) - (IPLUS (ANC.INDENT) I)) (PUT.MY.PROP (QUOTE WIDTH) - (IDIFFERENCE (ANC.WIDTH) I)) (DUMP.FORMAT - (QUOTE INDENT) (IPLUS (ANC.INDENT) I)))) COMM.ARG))) + (INIT (push DUMPOUT.FORMS (QUOTE (PUT.MY.PROP + (QUOTE INDENT) INITIAL.INDENT))) (push DUMPOUT.FORMS + (QUOTE (PUT.MY.PROP (QUOTE WIDTH) INITIAL.WIDTH))) + (push DUMPOUT.FORMS (QUOTE (DUMP.FORMAT (QUOTE INDENT) INITIAL.INDENT)))) + (NONE (push DUMPOUT.FORMS (QUOTE (PUT.MY.PROP + (QUOTE INDENT) (QUOTE NONE)))) (push DUMPOUT.FORMS + (QUOTE (PUT.MY.PROP (QUOTE WIDTH) (ANC.WIDTH)))) + (push DUMPOUT.FORMS (QUOTE (DUMP.FORMAT (QUOTE INDENT) + (QUOTE NONE))))) (push DUMPOUT.FORMS (LIST + (QUOTE (LAMBDA (I) (PUT.MY.PROP (QUOTE INDENT) + (IPLUS (ANC.INDENT) I)) (PUT.MY.PROP (QUOTE WIDTH) + (IDIFFERENCE (ANC.WIDTH) I)) (DUMP.FORMAT + (QUOTE INDENT) (IPLUS (ANC.INDENT) I)))) COMM.ARG))) (* * push DUMPOUT.UNDO (QUOTE INDENT)) - (SETQ COMM.ARG (pop DUMPOUT.ARGS))) - (WIDTH (push DUMPOUT.FORMS - (LIST 'PUT.MY.PROP (KWOTE 'WIDTH) - (pop DUMPOUT.ARGS)))) - (FONT (SETQ COMM.ARG (pop DUMPOUT.ARGS)) - [push DUMPOUT.FORMS - (LIST 'DUMP.FORMAT (KWOTE 'FONT) - (COND - ((LISTGET IM.TEDIT.FONT.DEFS - COMM.ARG) - (KWOTE COMM.ARG)) - (T COMM.ARG] - (push DUMPOUT.UNDO 'FONT)) - (PARALOOKS (push DUMPOUT.FORMS - (LIST 'DUMP.FORMAT (KWOTE 'PARALOOKS) - (pop DUMPOUT.ARGS)))) - (DUMP.CHARS (push DUMPOUT.FORMS - (LIST (FUNCTION IM.DUMP.CHARS) + (SETQ COMM.ARG (pop DUMPOUT.ARGS))) + (WIDTH (push DUMPOUT.FORMS (LIST 'PUT.MY.PROP + (KWOTE 'WIDTH) (pop DUMPOUT.ARGS)))) - (push DUMPOUT.FORMS (LIST 'DUMP.FORMAT - (KWOTE 'TEXT) - (LIST 'MAKE.SAVE COMM] - [for X in DUMPOUT.UNDO do (push DUMPOUT.FORMS (LIST 'DUMP.FORMAT - (KWOTE 'UNDO) - (KWOTE X] + (FONT (SETQ COMM.ARG (pop DUMPOUT.ARGS)) + [push DUMPOUT.FORMS (LIST 'DUMP.FORMAT (KWOTE 'FONT) + (COND + ((LISTGET IM.TEDIT.FONT.DEFS + COMM.ARG) + (KWOTE COMM.ARG)) + (T COMM.ARG] + (push DUMPOUT.UNDO 'FONT)) + (PARALOOKS (push DUMPOUT.FORMS (LIST 'DUMP.FORMAT + (KWOTE 'PARALOOKS) + (pop DUMPOUT.ARGS)))) + (DUMP.CHARS (push DUMPOUT.FORMS (LIST (FUNCTION IM.DUMP.CHARS) + (pop DUMPOUT.ARGS)))) + (push DUMPOUT.FORMS (LIST 'DUMP.FORMAT (KWOTE 'TEXT) + (LIST 'MAKE.SAVE COMM] + [for X in DUMPOUT.UNDO do (push DUMPOUT.FORMS (LIST 'DUMP.FORMAT (KWOTE 'UNDO) + (KWOTE X] (* * push DUMPOUT.FORMS (QUOTE (PUT.MY.PROP - (QUOTE INDENT) DUMPOUT.SAVE.INDENT))) + (QUOTE INDENT) DUMPOUT.SAVE.INDENT))) (* * push DUMPOUT.FORMS (QUOTE (PUT.MY.PROP - (QUOTE WIDTH) DUMPOUT.SAVE.WIDTH))) + (QUOTE WIDTH) DUMPOUT.SAVE.WIDTH))) (* * RETURN (APPEND (QUOTE (PROG ((DUMPOUT.SAVE.INDENT - (GET.MY.PROP (QUOTE INDENT))) (DUMPOUT.SAVE.WIDTH - (GET.MY.PROP (QUOTE WIDTH)))))) (DREVERSE DUMPOUT.FORMS))) + (GET.MY.PROP (QUOTE INDENT))) (DUMPOUT.SAVE.WIDTH + (GET.MY.PROP (QUOTE WIDTH)))))) (DREVERSE DUMPOUT.FORMS))) (RETURN (CONS 'PROGN (DREVERSE DUMPOUT.FORMS]) @@ -2408,25 +2387,24 @@ page edge.) (PUTPROPS SAVE.DUMPOUT MACRO (X (TRANSLATE.SAVE.DUMPOUT X))) ) -(PUTPROPS IMTEDIT COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986 1991)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (10773 38278 (IM.TEDIT 10783 . 12464) (DUMP 12466 . 14761) (DUMP.HEADERS.FOOTERS 14763 - . 17129) (DUMP.HRULE 17131 . 18282) (CHANGE.FONT 18284 . 19478) (IM.BOUT.IMAGEOBJ 19480 . 19803) ( -IM.TEDIT.DUMP.COMMANDS 19805 . 23358) (IM.TEDIT.DUMP.FOOTNOTES 23360 . 23801) (IM.TEDIT.DUMP.PARA -23803 . 24577) (INDEXX.PARSE.TYPE 24579 . 25874) (FORMAT.DEF 25876 . 28007) (FORMAT.LISPWORD 28009 . -28160) (MAKE.IM.DOCUMENT 28162 . 37133) (PRINT.NOTE 37135 . 37349) (SEND.INFO 37351 . 38276)) (38387 -42405 (IM.VRULE.DISPLAYFN 38397 . 38721) (CREATE.VRULE.OBJECT 38723 . 40503) (PRINT.VRULES.ON.PAGE -40505 . 42403)) (42563 47318 (IM.FOLIO.DISPLAYFN 42573 . 43251) (IM.FOLIO.SIZEFN 43253 . 44102) ( -CREATE.FOLIO.OBJECT 44104 . 45650) (GET.FOLIO.STRING 45652 . 47316)) (47450 93690 (ARG#TOPROG 47460 . -47599) (BIGLISPCODE#TOPROG 47601 . 48837) (BRACKET#TOPROG 48839 . 49003) (CHAPTER#TOPROG 49005 . 51686 -) (COMMENT#TOPROG 51688 . 52240) (DEF#TOPROG 52242 . 55577) (FIGURE#TOPROG 55579 . 56923) (FN#TOPROG -56925 . 57322) (FNDEF#TOPROG 57324 . 61216) (FOOT#TOPROG 61218 . 61759) (INCLUDE#TOPROG 61761 . 62076) - (INDEX#TOPROG 62078 . 63168) (INDEXX#TOPROG 63170 . 65251) (IT#TOPROG 65253 . 65394) (LBRACKET#TOPROG - 65396 . 65550) (LISP#TOPROG 65552 . 65693) (LISPCODE#TOPROG 65695 . 66814) (LISPWORD#TOPROG 66816 . -67556) (LIST#TOPROG 67558 . 71980) (MACDEF#TOPROG 71982 . 73160) (NOTE#TOPROG 73162 . 73842) ( -PRINT.SPECIAL.CHARS#TOPROG 73844 . 74821) (PROPDEF#TOPROG 74823 . 75100) (RBRACKET#TOPROG 75102 . -75256) (REF#TOPROG 75258 . 83097) (RM#TOPROG 83099 . 83237) (SUB#TOPROG 83239 . 83387) (SUBSEC#TOPROG -83389 . 87892) (SUPER#TOPROG 87894 . 88048) (TABLE#TOPROG 88050 . 92002) (TAG#TOPROG 92004 . 92271) ( -TERM#TOPROG 92273 . 92586) (VAR#TOPROG 92588 . 92991) (VARDEF#TOPROG 92993 . 93688)) (111336 116764 ( -TRANSLATE.DUMPOUT 111346 . 116363) (TRANSLATE.SAVE.DUMPOUT 116365 . 116762))))) + (FILEMAP (NIL (10668 38115 (IM.TEDIT 10678 . 12359) (DUMP 12361 . 14656) (DUMP.HEADERS.FOOTERS 14658 + . 17024) (DUMP.HRULE 17026 . 18177) (CHANGE.FONT 18179 . 19373) (IM.BOUT.IMAGEOBJ 19375 . 19698) ( +IM.TEDIT.DUMP.COMMANDS 19700 . 23253) (IM.TEDIT.DUMP.FOOTNOTES 23255 . 23696) (IM.TEDIT.DUMP.PARA +23698 . 24472) (INDEXX.PARSE.TYPE 24474 . 25769) (FORMAT.DEF 25771 . 27902) (FORMAT.LISPWORD 27904 . +28055) (MAKE.IM.DOCUMENT 28057 . 36970) (PRINT.NOTE 36972 . 37186) (SEND.INFO 37188 . 38113)) (38224 +42242 (IM.VRULE.DISPLAYFN 38234 . 38558) (CREATE.VRULE.OBJECT 38560 . 40340) (PRINT.VRULES.ON.PAGE +40342 . 42240)) (42400 47155 (IM.FOLIO.DISPLAYFN 42410 . 43088) (IM.FOLIO.SIZEFN 43090 . 43939) ( +CREATE.FOLIO.OBJECT 43941 . 45487) (GET.FOLIO.STRING 45489 . 47153)) (47287 93527 (ARG#TOPROG 47297 . +47436) (BIGLISPCODE#TOPROG 47438 . 48674) (BRACKET#TOPROG 48676 . 48840) (CHAPTER#TOPROG 48842 . 51523 +) (COMMENT#TOPROG 51525 . 52077) (DEF#TOPROG 52079 . 55414) (FIGURE#TOPROG 55416 . 56760) (FN#TOPROG +56762 . 57159) (FNDEF#TOPROG 57161 . 61053) (FOOT#TOPROG 61055 . 61596) (INCLUDE#TOPROG 61598 . 61913) + (INDEX#TOPROG 61915 . 63005) (INDEXX#TOPROG 63007 . 65088) (IT#TOPROG 65090 . 65231) (LBRACKET#TOPROG + 65233 . 65387) (LISP#TOPROG 65389 . 65530) (LISPCODE#TOPROG 65532 . 66651) (LISPWORD#TOPROG 66653 . +67393) (LIST#TOPROG 67395 . 71817) (MACDEF#TOPROG 71819 . 72997) (NOTE#TOPROG 72999 . 73679) ( +PRINT.SPECIAL.CHARS#TOPROG 73681 . 74658) (PROPDEF#TOPROG 74660 . 74937) (RBRACKET#TOPROG 74939 . +75093) (REF#TOPROG 75095 . 82934) (RM#TOPROG 82936 . 83074) (SUB#TOPROG 83076 . 83224) (SUBSEC#TOPROG +83226 . 87729) (SUPER#TOPROG 87731 . 87885) (TABLE#TOPROG 87887 . 91839) (TAG#TOPROG 91841 . 92108) ( +TERM#TOPROG 92110 . 92423) (VAR#TOPROG 92425 . 92828) (VARDEF#TOPROG 92830 . 93525)) (111173 116115 ( +TRANSLATE.DUMPOUT 111183 . 115714) (TRANSLATE.SAVE.DUMPOUT 115716 . 116113))))) STOP diff --git a/doctools/IMTEDIT.LCOM b/doctools/IMTEDIT.LCOM index ae61f3693590fba51e1e450e52f95189bf31c624..68d91551f3098e71d1d25eb30290ab7036c25b1a 100644 GIT binary patch delta 2043 zcmah~PjBNy6yMSnhj7?KS0J%_cmxDVQH^KDe**$sdy;ya*v6i0+XIJHQ^AV1S#`T7 zRQW5g@+Sa}9D7Abh%dl}6XG+l9JuovCu!{615xCe_ukBVzj^a}Z+?8SdHwh1cL!gR zvom>gvBOPn5oZJD4NTFcUiWx@_T=&D$&BXb)TM6^CNdh!qpMG5^W)3;{PgLk@kGfe zR>sFxpE_N#8gBT&W&_*p((}KJvS~34qf4_#mvH;)7Ctapx8LavNMi?WSPO@~WsQP82`wlmE z9y~kM3E{--0W$|S64F^`pnATsbv=0Pr}yt>ckbSL{p;Cm_SG%?Ny0GoT*`uQUmr0ECK4LQzA@SYdvr?ovo%x>ivM=B9mZ~hsgK?Vf7vwWWyW=$6C(pN+)`i6r-pT@^M7ew@^Forx z?1o^jJeF&h9x#oh(kG6SVM?yGI_1K#3&$-xU)i%@B!_7}2^6_(^u$=YwoKlVg>SZH*Kf;6TVsFq#?=R9 zLniLD_j9YgpX0o(^`M!27>rSTPTOE2wGE)mwF%2*gV&&8EaYcCmC$cC&3UY8KxeQf0OjDIl$Iv(kyV8(@N~)zj8AJ=aWok{S zQmrC~yKRrQr+M56VY{3(#n&Nh+h1$QMse2mn-Det-)P9@ph452zzuT}u2l~XcmN5h(*w2@nGEA#d_=-@R>C21zeL^| zm&4JS8aKhwo!WQ9!3@2CIH*xy3kN9@d7!IrS68P5;T^Q3RR`fXLZO0Op+NJ1xK$(M z$PJ+J68%Mw=#Cf|N}&mdiAA&}br^SEg2Omlz(I#!z+rIMN;4WN71LdHld)nzo?JXW zzdX6d&8hCG&hdXZSPM)06G(?HV~o=)i?;LxXi4 zvg&nsTE%jsMLked=BxK$nBXa!CZW>xirx?>kvzmVR{egzqu(55Bq^H0Ao8v&>+|1k IC-J!RAIVMz(f|Me delta 2235 zcmb_d-EQMV6y9nP61`a@5J=^MBO{@-D3NFUGjKhtxluIZbI#0n&Ybg|nVWy^|Mu_wAD=A$ z+<9lwP|owq>BV?7qAZWn^{DS zZkW>U@`oMeGqRfA=)7q&Vn$nMZ9{)WnPNA8@BIGZo56#(@4fzPI2=B`ho5|Q^J~L> zZK2vGWip8qpO|XdgpUvrsFp^t;~p1z2%Wx!#$+3#ZeveTg=0SmVAA=meB>ma8^x#4 zX~taub>qpl*NzspC8}7qrQU_IP5o9CJBbrS(Q!()D(EnX++(tkuT?B7i>2vn3s=cY zdCA)upf3K659HZD`1qaZf9$I?DS+eO8QPlf~}F=s2@jz z&}&t#>UvA+hrK|;w*0>J#(h)e%Sr3K9RuUug6rfB`Z4LiDn44b*qUwCWy`F~!l=v0 zTW!Cg)n!!8@3+b&U}Tb#rXfj-ic4Rbs6u1IvU{^&1NlWoaIvzNHG)5qLN{BIvWthp6EX~m3 zeY87Mg++c0+KPonu*fj=qp)B-h!%Mzp%HSif*Z93ph3An*gBzCdf5>P!71^3M_J!V zdVWa4G+^p(M8hJMW;KmQj|OSxcYV3=Naz-QI&kp8?KP%pq56pf5SgYR9GNJ0BHb)1 z&Xo)TXiT_WYskd;OQ|^j%C4DP4VfHtr~(>Ab`xi@bzztm745TiVHn0%Lk1XB+BYr? z1iaCZ!9bs?3tfmi3UG82av7w)FxXZ_I$EY1g&96{LOVsI*?gtZ5U-n%1{M?(s$Wb< zT`^%>8cWxAf>Q{5Eu0Xyk+w>0IPSbkCAfw9*NekJjba6Hp{>foL5fg5DLVVG=zK{W zso&mC97jkqC&|#@i9=j3Bjm^pLgTo)FfrV_#e@#3hQs(`y(0WC**776m189`! zdOp3L(^q)L+jzrmTO-BG&#x~>lQ~@#!#t|!z>%@nkNO^qe}vbX$Md-pB$NMoCj zeOxqR`ImO^31A6-CiLRt;NYNS3ufrR45gyMx?R%CbqY98ZoK(Ik6*@(c#y?O6sNdR x%9jB5NPJo*l^V*)XqLYqH=j-O+1dOep8(p%_di3eOAG)2