github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-24 19:40:36 +00:00
Code Issues Projects Releases Wiki Activity

Rmk62 old tedit formats and nits (#851)

Browse Source 
* TEDIT-FIND, TEDIT-OFD: Read old-format TEDIT files

TEDIT-OFD also traps non-stream TEXT arguments that should no longer propagate

* EDITKEYS: Only BKSYSBUF when TEDIT has the TTY

Also, changed the name from Function Keys to Tedit Keys, made the shrunk window open on left-click

* COMPAREDIRECTORIES: better format when one of the columns is empty

* GITFNS: "cob next" asks to confirm the parent branch

* TEDIT-FILE:  Pass TEXTSTREAM to TEDIT.GET.OBJECT

* TEDIT-FILE again:  same problem in readers for old formats

* Eliminate (OPENTEXTSTREAM "")
This commit is contained in:
rmkaplan
2022-07-20 22:52:25 -07:00
committed by GitHub
parent 3c26eeb964
commit a23ce42726
12 changed files with 879 additions and 920 deletions
Download Patch File Download Diff File Expand all files Collapse all files

604
doctools/IMTEDIT
View File

@@ -1,20 +1,21 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED " 8-Dec-91 15:41:54" {DSK}<users>sybalsky>PUBS>IMTEDIT.;2 116642
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
changes to%: (FNS TRANSLATE.DUMPOUT DUMP DUMP.HEADERS.FOOTERS DUMP.HRULE CHANGE.FONT
IM.BOUT.IMAGEOBJ IM.TEDIT.DUMP.COMMANDS IM.TEDIT.DUMP.FOOTNOTES
MAKE.IM.DOCUMENT PRINT.VRULES.ON.PAGE CREATE.FOLIO.OBJECT GET.FOLIO.STRING)
(FILECREATED "20-Jul-2022 15:10:53" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>doctools>IMTEDIT.;2 117347
previous date%: " 4-Aug-86 11:53:22" {DSK}<users>sybalsky>PUBS>IMTEDIT.;1)
:CHANGES-TO (FNS MAKE.IM.DOCUMENT)
:PREVIOUS-DATE " 8-Dec-91 15:41:54"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>doctools>IMTEDIT.;1)
(* ; "
Copyright (c) 1983, 1984, 1985, 1986, 1991 by Xerox Corporation. All rights reserved.
Copyright (c) 1983-1986, 1991 by Xerox Corporation.
")
(PRETTYCOMPRINT IMTEDITCOMS)
(RPAQQ IMTEDITCOMS
(RPAQQ IMTEDITCOMS
((FNS IM.TEDIT DUMP DUMP.HEADERS.FOOTERS DUMP.HRULE CHANGE.FONT IM.BOUT.IMAGEOBJ
IM.TEDIT.DUMP.COMMANDS IM.TEDIT.DUMP.FOOTNOTES IM.TEDIT.DUMP.PARA INDEXX.PARSE.TYPE
FORMAT.DEF FORMAT.LISPWORD MAKE.IM.DOCUMENT PRINT.NOTE SEND.INFO)
@@ -493,26 +494,26 @@ Copyright (c) 1983, 1984, 1985, 1986, 1991 by Xerox Corporation. All rights res
(MAKE.IM.DOCUMENT
[LAMBDA (FORM OUTFILE.FLG PAGE.LAYOUT OUTPUT.MESSAGE DEFAULT.PARALOOKS PTRFILENAME)
(* ; "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)
 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 <but not printed>.)
(* * 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 <but not printed>.)
(* * 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)
(* * PTRFILENAME is the name to be used if an index pointer file is generated
 during hardcopy <by printing index objects>)
 during hardcopy <by printing index objects>)
(PROG ((IM.OUTFILE (OPENTEXTSTREAM "" NIL NIL NIL (LIST 'IM.INDEX.PTRFILENAME PTRFILENAME)))
(PROG ((IM.OUTFILE (OPENTEXTSTREAM NIL NIL NIL NIL (LIST 'IM.INDEX.PTRFILENAME PTRFILENAME)))
(FONT.STACK (CONS))
(IM.TEDIT.LAST.PARA.BEGIN 1)
(IM.TEDIT.LAST.FONT.BEGIN 1)
@@ -523,10 +524,10 @@ Copyright (c) 1983, 1984, 1985, 1986, 1991 by Xerox Corporation. All rights res
(IM.TEDIT.FOOTNOTE.SAVES NIL)
(IM.TEDIT.SUB.SUPER.BEGIN NIL)
IM.CHARLOOKS IM.PARALOOKS)
(DECLARE (SPECVARS IM.OUTFILE FONT.STACK IM.TEDIT.LAST.PARA.BEGIN
IM.TEDIT.LAST.FONT.BEGIN IM.TEDIT.PARA.LOOKS IM.TEDIT.LAST.PARA.LOOKS
IM.TEDIT.FONT IM.TEDIT.CR.FLG IM.TEDIT.FOOTNOTE.SAVES
IM.TEDIT.SUB.SUPER.BEGIN IM.CHARLOOKS IM.PARALOOKS))
(DECLARE (SPECVARS IM.OUTFILE FONT.STACK IM.TEDIT.LAST.PARA.BEGIN IM.TEDIT.LAST.FONT.BEGIN
IM.TEDIT.PARA.LOOKS IM.TEDIT.LAST.PARA.LOOKS IM.TEDIT.FONT IM.TEDIT.CR.FLG
IM.TEDIT.FOOTNOTE.SAVES IM.TEDIT.SUB.SUPER.BEGIN IM.CHARLOOKS IM.PARALOOKS)
)
(SETQ IM.VRULE.STATE.LIST NIL)
(DUMP.HEADERS.FOOTERS " " " ")
(DUMPOUT CR CR START.PARA PARALOOKS
@@ -543,8 +544,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1991 by Xerox Corporation. All rights res
(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)
 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 %,
@@ -552,8 +553,8 @@ Copyright (c) 1983, 1984, 1985, 1986, 1991 by Xerox Corporation. All rights res
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))
@@ -595,7 +596,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1991 by Xerox Corporation. All rights res
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)
 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
@@ -608,26 +609,24 @@ Copyright (c) 1983, 1984, 1985, 1986, 1991 by Xerox Corporation. All rights res
(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 >>)
 significant << earlier looks are overridden by later ones >>)
(SETQ IM.CHARLOOKS (DREVERSE IM.CHARLOOKS))
(SETQ IM.PARALOOKS (DREVERSE IM.PARALOOKS))
[while IM.CHARLOOKS bind (LOOKS CH# LEN)
do (BLOCK)
(SETQ LEN (pop IM.CHARLOOKS))
(SETQ CH# (ADD1 (pop IM.CHARLOOKS)))
(SETQ LOOKS (pop IM.CHARLOOKS))
(COND
((IGREATERP LEN 0)
(TEDIT.LOOKS IM.OUTFILE LOOKS CH# LEN]
[while IM.PARALOOKS bind (LOOKS CH# LEN)
do (BLOCK)
(SETQ LEN (pop IM.PARALOOKS))
(SETQ CH# (ADD1 (pop IM.PARALOOKS)))
(SETQ LOOKS (pop IM.PARALOOKS))
(COND
((IGREATERP LEN 0)
(TEDIT.PARALOOKS IM.OUTFILE LOOKS CH# LEN]
[while IM.CHARLOOKS bind (LOOKS CH# LEN) do (BLOCK)
(SETQ LEN (pop IM.CHARLOOKS))
(SETQ CH# (ADD1 (pop IM.CHARLOOKS)))
(SETQ LOOKS (pop IM.CHARLOOKS))
(COND
((IGREATERP LEN 0)
(TEDIT.LOOKS IM.OUTFILE LOOKS CH# LEN]
[while IM.PARALOOKS bind (LOOKS CH# LEN) do (BLOCK)
(SETQ LEN (pop IM.PARALOOKS))
(SETQ CH# (ADD1 (pop IM.PARALOOKS)))
(SETQ LOOKS (pop IM.PARALOOKS))
(COND
((IGREATERP LEN 0)
(TEDIT.PARALOOKS IM.OUTFILE LOOKS CH# LEN]
(COND
((NULL OUTFILE.FLG)
(TEDIT.HARDCOPY IM.OUTFILE NIL NIL OUTPUT.MESSAGE)
@@ -1648,7 +1647,7 @@ Copyright (c) 1983, 1984, 1985, 1986, 1991 by Xerox Corporation. All rights res
(SAVE.DUMPOUT FONT LISP DUMP.CHARS (GET.ARG.SAV NAME])
)
(RPAQQ TO.NAME.LIST
(RPAQQ TO.NAME.LIST
(ANONARG ARG ATOM BIGLISPCODE BRACKET BREAKCOM BULLET CHAPTER COMMENT CRSYMBOL DEF EDITCOM
ELLIPSIS EMDASH ENDASH FIGURE FIGUREREF FILECOM FN FNDEF FOOT GE INCLUDE INDEX INDEXX
IT LABELEDLIST LBRACKET LE LISP LISPCODE MAC MACDEF NE NOTE NUMBEREDLIST PACOM PAGEREF
@@ -1656,409 +1655,409 @@ Copyright (c) 1983, 1984, 1985, 1986, 1991 by Xerox Corporation. All rights res
UNNUMBEREDLIST VAR VARDEF))
(RPAQQ TO.SYNONYM.LIST ((CR CRSYMBOL)
(EMPHASIZE IT)
(FOOTNOTE FOOT)
(ITALICS IT)
(LITATOM ATOM)
(UNLABELEDLIST UNNUMBEREDLIST)))
(EMPHASIZE IT)
(FOOTNOTE FOOT)
(ITALICS IT)
(LITATOM ATOM)
(UNLABELEDLIST UNNUMBEREDLIST)))
(RPAQQ TO.NAME.LIST
(RPAQQ TO.NAME.LIST
(ANONARG ARG ATOM BIGLISPCODE BRACKET BREAKCOM BULLET CHAPTER COMMENT CRSYMBOL DEF EDITCOM
ELLIPSIS EMDASH ENDASH FIGURE FIGUREREF FILECOM FN FNDEF FOOT GE INCLUDE INDEX INDEXX
IT LABELEDLIST LBRACKET LE LISP LISPCODE MAC MACDEF NE NOTE NUMBEREDLIST PACOM PAGEREF
PI PLUSMINUS PROP PROPDEF RBRACKET RM SECTIONREF SP SUB SUBSEC SUPER TABLE TAG TERM
UNNUMBEREDLIST VAR VARDEF))
(PUTPROPS ANONARG TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS ANONARG TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS ARG TO.PROG ARG#TOPROG)
(PUTPROPS ARG TO.PROG ARG#TOPROG)
(PUTPROPS ATOM TO.PROG LISPWORD#TOPROG)
(PUTPROPS ATOM TO.PROG LISPWORD#TOPROG)
(PUTPROPS BIGLISPCODE TO.PROG BIGLISPCODE#TOPROG)
(PUTPROPS BIGLISPCODE TO.PROG BIGLISPCODE#TOPROG)
(PUTPROPS BRACKET TO.PROG BRACKET#TOPROG)
(PUTPROPS BRACKET TO.PROG BRACKET#TOPROG)
(PUTPROPS BREAKCOM TO.PROG LISPWORD#TOPROG)
(PUTPROPS BREAKCOM TO.PROG LISPWORD#TOPROG)
(PUTPROPS BULLET TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS BULLET TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS CHAPTER TO.PROG CHAPTER#TOPROG)
(PUTPROPS CHAPTER TO.PROG CHAPTER#TOPROG)
(PUTPROPS COMMENT TO.PROG COMMENT#TOPROG)
(PUTPROPS COMMENT TO.PROG COMMENT#TOPROG)
(PUTPROPS CRSYMBOL TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS CRSYMBOL TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS DEF TO.PROG DEF#TOPROG)
(PUTPROPS DEF TO.PROG DEF#TOPROG)
(PUTPROPS EDITCOM TO.PROG LISPWORD#TOPROG)
(PUTPROPS EDITCOM TO.PROG LISPWORD#TOPROG)
(PUTPROPS ELLIPSIS TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS ELLIPSIS TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS EMDASH TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS EMDASH TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS ENDASH TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS ENDASH TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS FIGURE TO.PROG FIGURE#TOPROG)
(PUTPROPS FIGURE TO.PROG FIGURE#TOPROG)
(PUTPROPS FIGUREREF TO.PROG REF#TOPROG)
(PUTPROPS FIGUREREF TO.PROG REF#TOPROG)
(PUTPROPS FILECOM TO.PROG LISPWORD#TOPROG)
(PUTPROPS FILECOM TO.PROG LISPWORD#TOPROG)
(PUTPROPS FN TO.PROG FN#TOPROG)
(PUTPROPS FN TO.PROG FN#TOPROG)
(PUTPROPS FNDEF TO.PROG FNDEF#TOPROG)
(PUTPROPS FNDEF TO.PROG FNDEF#TOPROG)
(PUTPROPS FOOT TO.PROG FOOT#TOPROG)
(PUTPROPS FOOT TO.PROG FOOT#TOPROG)
(PUTPROPS GE TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS GE TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS INCLUDE TO.PROG INCLUDE#TOPROG)
(PUTPROPS INCLUDE TO.PROG INCLUDE#TOPROG)
(PUTPROPS INDEX TO.PROG INDEX#TOPROG)
(PUTPROPS INDEX TO.PROG INDEX#TOPROG)
(PUTPROPS INDEXX TO.PROG INDEXX#TOPROG)
(PUTPROPS INDEXX TO.PROG INDEXX#TOPROG)
(PUTPROPS IT TO.PROG IT#TOPROG)
(PUTPROPS IT TO.PROG IT#TOPROG)
(PUTPROPS LABELEDLIST TO.PROG LIST#TOPROG)
(PUTPROPS LABELEDLIST TO.PROG LIST#TOPROG)
(PUTPROPS LBRACKET TO.PROG LBRACKET#TOPROG)
(PUTPROPS LBRACKET TO.PROG LBRACKET#TOPROG)
(PUTPROPS LE TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS LE TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS LISP TO.PROG LISP#TOPROG)
(PUTPROPS LISP TO.PROG LISP#TOPROG)
(PUTPROPS LISPCODE TO.PROG LISPCODE#TOPROG)
(PUTPROPS LISPCODE TO.PROG LISPCODE#TOPROG)
(PUTPROPS MAC TO.PROG LISPWORD#TOPROG)
(PUTPROPS MAC TO.PROG LISPWORD#TOPROG)
(PUTPROPS MACDEF TO.PROG MACDEF#TOPROG)
(PUTPROPS MACDEF TO.PROG MACDEF#TOPROG)
(PUTPROPS NE TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS NE TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS NOTE TO.PROG NOTE#TOPROG)
(PUTPROPS NOTE TO.PROG NOTE#TOPROG)
(PUTPROPS NUMBEREDLIST TO.PROG LIST#TOPROG)
(PUTPROPS NUMBEREDLIST TO.PROG LIST#TOPROG)
(PUTPROPS PACOM TO.PROG LISPWORD#TOPROG)
(PUTPROPS PACOM TO.PROG LISPWORD#TOPROG)
(PUTPROPS PAGEREF TO.PROG REF#TOPROG)
(PUTPROPS PAGEREF TO.PROG REF#TOPROG)
(PUTPROPS PI TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS PI TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS PLUSMINUS TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS PLUSMINUS TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS PROP TO.PROG LISPWORD#TOPROG)
(PUTPROPS PROP TO.PROG LISPWORD#TOPROG)
(PUTPROPS PROPDEF TO.PROG PROPDEF#TOPROG)
(PUTPROPS PROPDEF TO.PROG PROPDEF#TOPROG)
(PUTPROPS RBRACKET TO.PROG RBRACKET#TOPROG)
(PUTPROPS RBRACKET TO.PROG RBRACKET#TOPROG)
(PUTPROPS RM TO.PROG RM#TOPROG)
(PUTPROPS RM TO.PROG RM#TOPROG)
(PUTPROPS SECTIONREF TO.PROG REF#TOPROG)
(PUTPROPS SECTIONREF TO.PROG REF#TOPROG)
(PUTPROPS SP TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS SP TO.PROG PRINT.SPECIAL.CHARS#TOPROG)
(PUTPROPS SUB TO.PROG SUB#TOPROG)
(PUTPROPS SUB TO.PROG SUB#TOPROG)
(PUTPROPS SUBSEC TO.PROG SUBSEC#TOPROG)
(PUTPROPS SUBSEC TO.PROG SUBSEC#TOPROG)
(PUTPROPS SUPER TO.PROG SUPER#TOPROG)
(PUTPROPS SUPER TO.PROG SUPER#TOPROG)
(PUTPROPS TABLE TO.PROG TABLE#TOPROG)
(PUTPROPS TABLE TO.PROG TABLE#TOPROG)
(PUTPROPS TAG TO.PROG TAG#TOPROG)
(PUTPROPS TAG TO.PROG TAG#TOPROG)
(PUTPROPS TERM TO.PROG TERM#TOPROG)
(PUTPROPS TERM TO.PROG TERM#TOPROG)
(PUTPROPS UNNUMBEREDLIST TO.PROG LIST#TOPROG)
(PUTPROPS UNNUMBEREDLIST TO.PROG LIST#TOPROG)
(PUTPROPS VAR TO.PROG VAR#TOPROG)
(PUTPROPS VAR TO.PROG VAR#TOPROG)
(PUTPROPS VARDEF TO.PROG VARDEF#TOPROG)
(PUTPROPS VARDEF TO.PROG VARDEF#TOPROG)
(PUTPROPS CHAPTER TO.ARGS ((TITLE NUMBER)
TEXT))
(PUTPROPS DEF TO.ARGS ((TYPE NAME PRINTNAME ARGS PARENS NOPARENS)
(PUTPROPS CHAPTER TO.ARGS ((TITLE NUMBER)
TEXT))
(PUTPROPS FIGURE TO.ARGS ((TAG)
(TEXT)
(CAPTION)))
(PUTPROPS DEF TO.ARGS ((TYPE NAME PRINTNAME ARGS PARENS NOPARENS)
TEXT))
(PUTPROPS FNDEF TO.ARGS (NAME (ARGS)
(TYPE)
TEXT))
(PUTPROPS FIGURE TO.ARGS ((TAG)
(TEXT)
(CAPTION)))
(PUTPROPS INDEXX TO.ARGS ((TYPE NAME INFO TEXT SUBNAME SUBTYPE SUBTEXT SUBSUBNAME SUBSUBTYPE
SUBSUBTEXT)))
(PUTPROPS FNDEF TO.ARGS (NAME (ARGS)
(TYPE)
TEXT))
(PUTPROPS LABELEDLIST TO.ARGS ((LNAME NAME ITEM INDENT MAX UNINDENTED)))
(PUTPROPS INDEXX TO.ARGS ((TYPE NAME INFO TEXT SUBNAME SUBTYPE SUBTEXT SUBSUBNAME SUBSUBTYPE
SUBSUBTEXT)))
(PUTPROPS MACDEF TO.ARGS (NAME (ARGS)
(TYPE)
TEXT))
(PUTPROPS LABELEDLIST TO.ARGS ((LNAME NAME ITEM INDENT MAX UNINDENTED)))
(PUTPROPS NUMBEREDLIST TO.ARGS ((ITEM)))
(PUTPROPS MACDEF TO.ARGS (NAME (ARGS)
(TYPE)
TEXT))
(PUTPROPS PROPDEF TO.ARGS (NAME TEXT))
(PUTPROPS NUMBEREDLIST TO.ARGS ((ITEM)))
(PUTPROPS SUBSEC TO.ARGS (TITLE TEXT))
(PUTPROPS PROPDEF TO.ARGS (NAME TEXT))
(PUTPROPS TABLE TO.ARGS ((FIRST NEXT COLUMN UNDERLINE MULTIPAGE HSKIP VSKIP)))
(PUTPROPS SUBSEC TO.ARGS (TITLE TEXT))
(PUTPROPS UNNUMBEREDLIST TO.ARGS ((ITEM)))
(PUTPROPS TABLE TO.ARGS ((FIRST NEXT COLUMN UNDERLINE MULTIPAGE HSKIP VSKIP)))
(PUTPROPS VARDEF TO.ARGS (NAME TEXT))
(PUTPROPS UNNUMBEREDLIST TO.ARGS ((ITEM)))
(PUTPROPS FNDEF TO.ARG.SYNONYMS (FNNAME NAME FNARGS ARGS FNTYPE TYPE))
(PUTPROPS VARDEF TO.ARGS (NAME TEXT))
(PUTPROPS LABELEDLIST TO.ARG.SYNONYMS (LABEL NAME TEXT ITEM UNINDENT UNINDENTED UNLABELED
UNINDENTED UNLABEL UNINDENTED))
(PUTPROPS FNDEF TO.ARG.SYNONYMS (FNNAME NAME FNARGS ARGS FNTYPE TYPE))
(PUTPROPS NUMBEREDLIST TO.ARG.SYNONYMS (TEXT ITEM))
(PUTPROPS LABELEDLIST TO.ARG.SYNONYMS (LABEL NAME TEXT ITEM UNINDENT UNINDENTED UNLABELED UNINDENTED
UNLABEL UNINDENTED))
(PUTPROPS TABLE TO.ARG.SYNONYMS (COL COLUMN MULTI MULTIPAGE))
(PUTPROPS NUMBEREDLIST TO.ARG.SYNONYMS (TEXT ITEM))
(PUTPROPS UNNUMBEREDLIST TO.ARG.SYNONYMS (TEXT ITEM))
(PUTPROPS TABLE TO.ARG.SYNONYMS (COL COLUMN MULTI MULTIPAGE))
(PUTPROPS ANONARG TO.TYPE SIMPLE)
(PUTPROPS UNNUMBEREDLIST TO.ARG.SYNONYMS (TEXT ITEM))
(PUTPROPS ARG TO.TYPE SIMPLE)
(PUTPROPS ANONARG TO.TYPE SIMPLE)
(PUTPROPS ATOM TO.TYPE SIMPLE)
(PUTPROPS ARG TO.TYPE SIMPLE)
(PUTPROPS BIGLISPCODE TO.TYPE NIL)
(PUTPROPS ATOM TO.TYPE SIMPLE)
(PUTPROPS BRACKET TO.TYPE SIMPLE)
(PUTPROPS BIGLISPCODE TO.TYPE NIL)
(PUTPROPS BREAKCOM TO.TYPE SIMPLE)
(PUTPROPS BRACKET TO.TYPE SIMPLE)
(PUTPROPS BULLET TO.TYPE SIMPLE)
(PUTPROPS BREAKCOM TO.TYPE SIMPLE)
(PUTPROPS CHAPTER TO.TYPE NIL)
(PUTPROPS BULLET TO.TYPE SIMPLE)
(PUTPROPS COMMENT TO.TYPE SIMPLE)
(PUTPROPS CHAPTER TO.TYPE NIL)
(PUTPROPS CRSYMBOL TO.TYPE SIMPLE)
(PUTPROPS COMMENT TO.TYPE SIMPLE)
(PUTPROPS EDITCOM TO.TYPE SIMPLE)
(PUTPROPS CRSYMBOL TO.TYPE SIMPLE)
(PUTPROPS ELLIPSIS TO.TYPE SIMPLE)
(PUTPROPS EDITCOM TO.TYPE SIMPLE)
(PUTPROPS EMDASH TO.TYPE SIMPLE)
(PUTPROPS ELLIPSIS TO.TYPE SIMPLE)
(PUTPROPS ENDASH TO.TYPE SIMPLE)
(PUTPROPS EMDASH TO.TYPE SIMPLE)
(PUTPROPS FIGURE TO.TYPE NIL)
(PUTPROPS ENDASH TO.TYPE SIMPLE)
(PUTPROPS FIGUREREF TO.TYPE SIMPLE)
(PUTPROPS FIGURE TO.TYPE NIL)
(PUTPROPS FILECOM TO.TYPE SIMPLE)
(PUTPROPS FIGUREREF TO.TYPE SIMPLE)
(PUTPROPS FN TO.TYPE SIMPLE)
(PUTPROPS FILECOM TO.TYPE SIMPLE)
(PUTPROPS FNDEF TO.TYPE NIL)
(PUTPROPS FN TO.TYPE SIMPLE)
(PUTPROPS FOOT TO.TYPE SIMPLE)
(PUTPROPS FNDEF TO.TYPE NIL)
(PUTPROPS GE TO.TYPE SIMPLE)
(PUTPROPS FOOT TO.TYPE SIMPLE)
(PUTPROPS INCLUDE TO.TYPE SIMPLE)
(PUTPROPS GE TO.TYPE SIMPLE)
(PUTPROPS INDEX TO.TYPE SIMPLE)
(PUTPROPS INCLUDE TO.TYPE SIMPLE)
(PUTPROPS INDEXX TO.TYPE SIMPLE)
(PUTPROPS INDEX TO.TYPE SIMPLE)
(PUTPROPS IT TO.TYPE SIMPLE)
(PUTPROPS INDEXX TO.TYPE SIMPLE)
(PUTPROPS LABELEDLIST TO.TYPE NIL)
(PUTPROPS IT TO.TYPE SIMPLE)
(PUTPROPS LBRACKET TO.TYPE SIMPLE)
(PUTPROPS LABELEDLIST TO.TYPE NIL)
(PUTPROPS LE TO.TYPE SIMPLE)
(PUTPROPS LBRACKET TO.TYPE SIMPLE)
(PUTPROPS LISP TO.TYPE SIMPLE)
(PUTPROPS LE TO.TYPE SIMPLE)
(PUTPROPS LISPCODE TO.TYPE NIL)
(PUTPROPS LISP TO.TYPE SIMPLE)
(PUTPROPS MAC TO.TYPE SIMPLE)
(PUTPROPS LISPCODE TO.TYPE NIL)
(PUTPROPS MACDEF TO.TYPE NIL)
(PUTPROPS MAC TO.TYPE SIMPLE)
(PUTPROPS NE TO.TYPE SIMPLE)
(PUTPROPS MACDEF TO.TYPE NIL)
(PUTPROPS NOTE TO.TYPE SIMPLE)
(PUTPROPS NE TO.TYPE SIMPLE)
(PUTPROPS NUMBEREDLIST TO.TYPE NIL)
(PUTPROPS NOTE TO.TYPE SIMPLE)
(PUTPROPS PACOM TO.TYPE SIMPLE)
(PUTPROPS NUMBEREDLIST TO.TYPE NIL)
(PUTPROPS PAGEREF TO.TYPE SIMPLE)
(PUTPROPS PACOM TO.TYPE SIMPLE)
(PUTPROPS PI TO.TYPE SIMPLE)
(PUTPROPS PAGEREF TO.TYPE SIMPLE)
(PUTPROPS PLUSMINUS TO.TYPE SIMPLE)
(PUTPROPS PI TO.TYPE SIMPLE)
(PUTPROPS PROP TO.TYPE SIMPLE)
(PUTPROPS PLUSMINUS TO.TYPE SIMPLE)
(PUTPROPS PROPDEF TO.TYPE NIL)
(PUTPROPS PROP TO.TYPE SIMPLE)
(PUTPROPS RBRACKET TO.TYPE SIMPLE)
(PUTPROPS PROPDEF TO.TYPE NIL)
(PUTPROPS RM TO.TYPE SIMPLE)
(PUTPROPS RBRACKET TO.TYPE SIMPLE)
(PUTPROPS SECTIONREF TO.TYPE SIMPLE)
(PUTPROPS RM TO.TYPE SIMPLE)
(PUTPROPS SP TO.TYPE SIMPLE)
(PUTPROPS SECTIONREF TO.TYPE SIMPLE)
(PUTPROPS SUB TO.TYPE SIMPLE)
(PUTPROPS SP TO.TYPE SIMPLE)
(PUTPROPS SUBSEC TO.TYPE NIL)
(PUTPROPS SUB TO.TYPE SIMPLE)
(PUTPROPS SUPER TO.TYPE SIMPLE)
(PUTPROPS SUBSEC TO.TYPE NIL)
(PUTPROPS TABLE TO.TYPE NIL)
(PUTPROPS SUPER TO.TYPE SIMPLE)
(PUTPROPS TAG TO.TYPE SIMPLE)
(PUTPROPS TABLE TO.TYPE NIL)
(PUTPROPS TERM TO.TYPE SIMPLE)
(PUTPROPS TAG TO.TYPE SIMPLE)
(PUTPROPS UNNUMBEREDLIST TO.TYPE NIL)
(PUTPROPS TERM TO.TYPE SIMPLE)
(PUTPROPS VAR TO.TYPE SIMPLE)
(PUTPROPS UNNUMBEREDLIST TO.TYPE NIL)
(PUTPROPS VARDEF TO.TYPE NIL)
(PUTPROPS VAR TO.TYPE SIMPLE)
(PUTPROPS ANONARG TO.ARG.TYPE CHARS)
(PUTPROPS VARDEF TO.TYPE NIL)
(PUTPROPS ARG TO.ARG.TYPE SIMPLE)
(PUTPROPS ANONARG TO.ARG.TYPE CHARS)
(PUTPROPS ATOM TO.ARG.TYPE SIMPLE)
(PUTPROPS ARG TO.ARG.TYPE SIMPLE)
(PUTPROPS BIGLISPCODE TO.ARG.TYPE SIMPLE)
(PUTPROPS ATOM TO.ARG.TYPE SIMPLE)
(PUTPROPS BRACKET TO.ARG.TYPE SIMPLE)
(PUTPROPS BIGLISPCODE TO.ARG.TYPE SIMPLE)
(PUTPROPS BREAKCOM TO.ARG.TYPE SIMPLE)
(PUTPROPS BRACKET TO.ARG.TYPE SIMPLE)
(PUTPROPS BULLET TO.ARG.TYPE CHARS)
(PUTPROPS BREAKCOM TO.ARG.TYPE SIMPLE)
(PUTPROPS CHAPTER TO.ARG.TYPE (TITLE SIMPLE NUMBER CHARS))
(PUTPROPS BULLET TO.ARG.TYPE CHARS)
(PUTPROPS COMMENT TO.ARG.TYPE NIL)
(PUTPROPS CHAPTER TO.ARG.TYPE (TITLE SIMPLE NUMBER CHARS))
(PUTPROPS CRSYMBOL TO.ARG.TYPE CHARS)
(PUTPROPS COMMENT TO.ARG.TYPE NIL)
(PUTPROPS DEF TO.ARG.TYPE (TYPE CHARS NAME SIMPLE PRINTNAME SIMPLE PARENS CHARS NOPARENS CHARS))
(PUTPROPS CRSYMBOL TO.ARG.TYPE CHARS)
(PUTPROPS EDITCOM TO.ARG.TYPE SIMPLE)
(PUTPROPS DEF TO.ARG.TYPE (TYPE CHARS NAME SIMPLE PRINTNAME SIMPLE PARENS CHARS NOPARENS CHARS))
(PUTPROPS ELLIPSIS TO.ARG.TYPE CHARS)
(PUTPROPS EDITCOM TO.ARG.TYPE SIMPLE)
(PUTPROPS EMDASH TO.ARG.TYPE CHARS)
(PUTPROPS ELLIPSIS TO.ARG.TYPE CHARS)
(PUTPROPS ENDASH TO.ARG.TYPE CHARS)
(PUTPROPS EMDASH TO.ARG.TYPE CHARS)
(PUTPROPS FIGURE TO.ARG.TYPE (TAG CHARS))
(PUTPROPS ENDASH TO.ARG.TYPE CHARS)
(PUTPROPS FIGUREREF TO.ARG.TYPE CHARS)
(PUTPROPS FIGURE TO.ARG.TYPE (TAG CHARS))
(PUTPROPS FILECOM TO.ARG.TYPE SIMPLE)
(PUTPROPS FIGUREREF TO.ARG.TYPE CHARS)
(PUTPROPS FN TO.ARG.TYPE SIMPLE)
(PUTPROPS FILECOM TO.ARG.TYPE SIMPLE)
(PUTPROPS FNDEF TO.ARG.TYPE (NAME SIMPLE ARGS SIMPLE TYPE CHARS))
(PUTPROPS FN TO.ARG.TYPE SIMPLE)
(PUTPROPS FOOT TO.ARG.TYPE SIMPLE)
(PUTPROPS FNDEF TO.ARG.TYPE (NAME SIMPLE ARGS SIMPLE TYPE CHARS))
(PUTPROPS GE TO.ARG.TYPE CHARS)
(PUTPROPS FOOT TO.ARG.TYPE SIMPLE)
(PUTPROPS INCLUDE TO.ARG.TYPE CHARS)
(PUTPROPS GE TO.ARG.TYPE CHARS)
(PUTPROPS INDEX TO.ARG.TYPE CHARS)
(PUTPROPS INCLUDE TO.ARG.TYPE CHARS)
(PUTPROPS INDEXX TO.ARG.TYPE
(TYPE CHARS NAME CHARS INFO CHARS TEXT SIMPLE SUBNAME CHARS SUBTYPE CHARS SUBTEXT SIMPLE
SUBSUBNAME CHARS SUBSUBTYPE CHARS SUBSUBTEXT SIMPLE))
(PUTPROPS INDEX TO.ARG.TYPE CHARS)
(PUTPROPS IT TO.ARG.TYPE SIMPLE)
(PUTPROPS INDEXX TO.ARG.TYPE (TYPE CHARS NAME CHARS INFO CHARS TEXT SIMPLE SUBNAME CHARS SUBTYPE
CHARS SUBTEXT SIMPLE SUBSUBNAME CHARS SUBSUBTYPE CHARS SUBSUBTEXT
SIMPLE))
(PUTPROPS LABELEDLIST TO.ARG.TYPE (LNAME SIMPLE NAME SIMPLE INDENT CHARS MAX CHARS))
(PUTPROPS IT TO.ARG.TYPE SIMPLE)
(PUTPROPS LBRACKET TO.ARG.TYPE CHARS)
(PUTPROPS LABELEDLIST TO.ARG.TYPE (LNAME SIMPLE NAME SIMPLE INDENT CHARS MAX CHARS))
(PUTPROPS LE TO.ARG.TYPE CHARS)
(PUTPROPS LBRACKET TO.ARG.TYPE CHARS)
(PUTPROPS LISP TO.ARG.TYPE SIMPLE)
(PUTPROPS LE TO.ARG.TYPE CHARS)
(PUTPROPS LISPCODE TO.ARG.TYPE SIMPLE)
(PUTPROPS LISP TO.ARG.TYPE SIMPLE)
(PUTPROPS MAC TO.ARG.TYPE SIMPLE)
(PUTPROPS LISPCODE TO.ARG.TYPE SIMPLE)
(PUTPROPS MACDEF TO.ARG.TYPE (NAME SIMPLE ARGS SIMPLE TYPE CHARS))
(PUTPROPS MAC TO.ARG.TYPE SIMPLE)
(PUTPROPS NE TO.ARG.TYPE CHARS)
(PUTPROPS MACDEF TO.ARG.TYPE (NAME SIMPLE ARGS SIMPLE TYPE CHARS))
(PUTPROPS NOTE TO.ARG.TYPE NIL)
(PUTPROPS NE TO.ARG.TYPE CHARS)
(PUTPROPS NUMBEREDLIST TO.ARG.TYPE NIL)
(PUTPROPS NOTE TO.ARG.TYPE NIL)
(PUTPROPS PACOM TO.ARG.TYPE SIMPLE)
(PUTPROPS NUMBEREDLIST TO.ARG.TYPE NIL)
(PUTPROPS PAGEREF TO.ARG.TYPE CHARS)
(PUTPROPS PACOM TO.ARG.TYPE SIMPLE)
(PUTPROPS PI TO.ARG.TYPE CHARS)
(PUTPROPS PAGEREF TO.ARG.TYPE CHARS)
(PUTPROPS PLUSMINUS TO.ARG.TYPE CHARS)
(PUTPROPS PI TO.ARG.TYPE CHARS)
(PUTPROPS PROP TO.ARG.TYPE SIMPLE)
(PUTPROPS PLUSMINUS TO.ARG.TYPE CHARS)
(PUTPROPS PROPDEF TO.ARG.TYPE (NAME SIMPLE))
(PUTPROPS PROP TO.ARG.TYPE SIMPLE)
(PUTPROPS RBRACKET TO.ARG.TYPE CHARS)
(PUTPROPS PROPDEF TO.ARG.TYPE (NAME SIMPLE))
(PUTPROPS RM TO.ARG.TYPE SIMPLE)
(PUTPROPS RBRACKET TO.ARG.TYPE CHARS)
(PUTPROPS SECTIONREF TO.ARG.TYPE CHARS)
(PUTPROPS RM TO.ARG.TYPE SIMPLE)
(PUTPROPS SP TO.ARG.TYPE CHARS)
(PUTPROPS SECTIONREF TO.ARG.TYPE CHARS)
(PUTPROPS SUB TO.ARG.TYPE SIMPLE)
(PUTPROPS SP TO.ARG.TYPE CHARS)
(PUTPROPS SUBSEC TO.ARG.TYPE (TITLE SIMPLE))
(PUTPROPS SUB TO.ARG.TYPE SIMPLE)
(PUTPROPS SUPER TO.ARG.TYPE SIMPLE)
(PUTPROPS SUBSEC TO.ARG.TYPE (TITLE SIMPLE))
(PUTPROPS TABLE TO.ARG.TYPE (COLUMN CHARS UNDERLINE CHARS MULTIPAGE CHARS HSKIP CHARS VSKIP CHARS
))
(PUTPROPS SUPER TO.ARG.TYPE SIMPLE)
(PUTPROPS TAG TO.ARG.TYPE CHARS)
(PUTPROPS TABLE TO.ARG.TYPE (COLUMN CHARS UNDERLINE CHARS MULTIPAGE CHARS HSKIP CHARS VSKIP CHARS))
(PUTPROPS TERM TO.ARG.TYPE SIMPLE)
(PUTPROPS TAG TO.ARG.TYPE CHARS)
(PUTPROPS UNNUMBEREDLIST TO.ARG.TYPE NIL)
(PUTPROPS TERM TO.ARG.TYPE SIMPLE)
(PUTPROPS VAR TO.ARG.TYPE SIMPLE)
(PUTPROPS UNNUMBEREDLIST TO.ARG.TYPE NIL)
(PUTPROPS VARDEF TO.ARG.TYPE (NAME SIMPLE))
(PUTPROPS VAR TO.ARG.TYPE SIMPLE)
(RPAQ? IM.TEDIT.FONT.DEFS '(NIL (FAMILY MODERN FACE MRR SIZE 10)
FOOTNOTE
(FAMILY MODERN FACE MRR SIZE 10)
NOTE
(FAMILY MODERN FACE MIR SIZE 8)
BOLD
(FAMILY MODERN FACE BRR SIZE 10)
ITALIC
(FAMILY MODERN FACE MIR SIZE 10)
LISP
(FAMILY MODERN FACE BRR SIZE 10)
ARG
(FAMILY MODERN FACE MIR SIZE 10)))
(PUTPROPS VARDEF TO.ARG.TYPE (NAME SIMPLE))
(RPAQ? IM.TEDIT.FONT.DEFS
'(NIL (FAMILY MODERN FACE MRR SIZE 10)
FOOTNOTE
(FAMILY MODERN FACE MRR SIZE 10)
NOTE
(FAMILY MODERN FACE MIR SIZE 8)
BOLD
(FAMILY MODERN FACE BRR SIZE 10)
ITALIC
(FAMILY MODERN FACE MIR SIZE 10)
LISP
(FAMILY MODERN FACE BRR SIZE 10)
ARG
(FAMILY MODERN FACE MIR SIZE 10)))
(RPAQ? IM.CHAPTER.TITLE.FONT '(FAMILY MODERN FACE BRR SIZE 18))
@@ -2076,10 +2075,10 @@ Copyright (c) 1983, 1984, 1985, 1986, 1991 by Xerox Corporation. All rights res
(* the following variables specify all of the lengths used for possitioning IM text, headers, etc.
on the page. All of these are measured with respect to the page *margins* <the region on the page
defined by the Tedit margin parameters> or with respect to the page *edges* <the edges of the physical
page>.)
(* the following variables specify all of the lengths used for possitioning IM text, headers, etc. on
the page. All of these are measured with respect to the page *margins* <the region on the page defined
by the Tedit margin parameters> or with respect to the page *edges* <the edges of the physical page>.
)
@@ -2091,16 +2090,16 @@ come out correctly on your printer.)
(* indentation of 1st line of definitian header, measured in points from left page margin. Also used
for indentation of hrule under defn header.)
(* indentation of 1st line of definitian header, measured in points from left page margin. Also used
for indentation of hrule under defn header.)
(RPAQ? IM.DEF.TITLE.1STLEFTMARGIN 75)
(* indentation of 2nd and other overflow lines of definition header, measured in points from left
page margin.)
(* indentation of 2nd and other overflow lines of definition header, measured in points from left page
margin.)
(RPAQ? IM.DEF.TITLE.LEFTMARGIN 204)
@@ -2198,9 +2197,9 @@ measured in points from the bottom page margin. The Y-pos is always the normal t
(* Tedit tab setting used for subsection heading text. "(40 . LEFT)" determines the indentation of
the title after the subsec number, measured in points from the left page margin. "18" is the tab used
if the subsec number is wider than 40 pts.)
(* Tedit tab setting used for subsection heading text. "(40 . LEFT)" determines the indentation of the
title after the subsec number, measured in points from the left page margin. "18" is the tab used if
the subsec number is wider than 40 pts.)
(RPAQ? IM.SUBSEC.TITLE.TABS '(18 (40 . LEFT)))
@@ -2223,12 +2222,12 @@ right-justifies the label on the left of the center space. "(204 . LEFT)" starts
(RPAQ? IM.LABELED.LIST.TABS '(18 (186 . RIGHT)
(204 . LEFT)))
(204 . LEFT)))
(* left, right, top, and bottom margins of the "page region" %, measured in points from the four
edges of the page.)
(* left, right, top, and bottom margins of the "page region" %, measured in points from the four edges
of the page.)
(RPAQ? IM.PAGE.LEFTMARGIN 58)
@@ -2249,9 +2248,9 @@ chapter title>, measured in points from the top page edge.)
(* top margin of the page region for the first page of the index, measured in points from the top
page edge. Note that in the case of the index, because it uses two columns, the index title is
implemented as a Tedit header, instead of as the first paragraph of the document.)
(* top margin of the page region for the first page of the index, measured in points from the top page
edge. Note that in the case of the index, because it uses two columns, the index title is implemented
as a Tedit header, instead of as the first paragraph of the document.)
(RPAQ? IM.INDEX.PAGE.FIRST.TOPMARGIN 144)
@@ -2286,8 +2285,7 @@ implemented as a Tedit header, instead of as the first paragraph of the document
(* y-pos of lower-left corner of bottom draft message, measured in points from the bottom page edge.
)
(* y-pos of lower-left corner of bottom draft message, measured in points from the bottom page edge.)
(RPAQ? IM.DRAFT.MESSAGE.BOTTOM.Y 5)
@@ -2301,8 +2299,8 @@ implemented as a Tedit header, instead of as the first paragraph of the document
(* x-pos of lower-left corner of both top and bottom draft messages, measured in points from the
left page edge.)
(* x-pos of lower-left corner of both top and bottom draft messages, measured in points from the left
page edge.)
(RPAQ? IM.DRAFT.MESSAGE.X 200)
@@ -2400,35 +2398,35 @@ left page edge.)
)
(DECLARE%: EVAL@COMPILE
[PUTPROPS IM.HOLD.FOOTNOTES MACRO (X `(PROG NIL
(PUTPROPS IM.HOLD.FOOTNOTES MACRO [X `(PROG NIL
(PUT.MY.PROP 'PASSFOOT T)
%,@
X (PUT.MY.PROP 'PASSFOOT NIL)
(DUMPOUT CR CR DUMP.FOOTNOTES]
(DUMPOUT CR CR DUMP.FOOTNOTES])
(PUTPROPS DUMPOUT MACRO (X (TRANSLATE.DUMPOUT X)))
(PUTPROPS DUMPOUT MACRO (X (TRANSLATE.DUMPOUT X)))
(PUTPROPS SAVE.DUMPOUT MACRO (X (TRANSLATE.SAVE.DUMPOUT X)))
(PUTPROPS SAVE.DUMPOUT MACRO (X (TRANSLATE.SAVE.DUMPOUT X)))
)
(PUTPROPS IMTEDIT COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986 1991))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (10973 37992 (IM.TEDIT 10983 . 12664) (DUMP 12666 . 14961) (DUMP.HEADERS.FOOTERS 14963
. 17329) (DUMP.HRULE 17331 . 18482) (CHANGE.FONT 18484 . 19678) (IM.BOUT.IMAGEOBJ 19680 . 20003) (
IM.TEDIT.DUMP.COMMANDS 20005 . 23558) (IM.TEDIT.DUMP.FOOTNOTES 23560 . 24001) (IM.TEDIT.DUMP.PARA
24003 . 24777) (INDEXX.PARSE.TYPE 24779 . 26074) (FORMAT.DEF 26076 . 28207) (FORMAT.LISPWORD 28209 .
28360) (MAKE.IM.DOCUMENT 28362 . 36847) (PRINT.NOTE 36849 . 37063) (SEND.INFO 37065 . 37990)) (38101
42119 (IM.VRULE.DISPLAYFN 38111 . 38435) (CREATE.VRULE.OBJECT 38437 . 40217) (PRINT.VRULES.ON.PAGE
40219 . 42117)) (42277 47032 (IM.FOLIO.DISPLAYFN 42287 . 42965) (IM.FOLIO.SIZEFN 42967 . 43816) (
CREATE.FOLIO.OBJECT 43818 . 45364) (GET.FOLIO.STRING 45366 . 47030)) (47164 93404 (ARG#TOPROG 47174 .
47313) (BIGLISPCODE#TOPROG 47315 . 48551) (BRACKET#TOPROG 48553 . 48717) (CHAPTER#TOPROG 48719 . 51400
) (COMMENT#TOPROG 51402 . 51954) (DEF#TOPROG 51956 . 55291) (FIGURE#TOPROG 55293 . 56637) (FN#TOPROG
56639 . 57036) (FNDEF#TOPROG 57038 . 60930) (FOOT#TOPROG 60932 . 61473) (INCLUDE#TOPROG 61475 . 61790)
(INDEX#TOPROG 61792 . 62882) (INDEXX#TOPROG 62884 . 64965) (IT#TOPROG 64967 . 65108) (LBRACKET#TOPROG
65110 . 65264) (LISP#TOPROG 65266 . 65407) (LISPCODE#TOPROG 65409 . 66528) (LISPWORD#TOPROG 66530 .
67270) (LIST#TOPROG 67272 . 71694) (MACDEF#TOPROG 71696 . 72874) (NOTE#TOPROG 72876 . 73556) (
PRINT.SPECIAL.CHARS#TOPROG 73558 . 74535) (PROPDEF#TOPROG 74537 . 74814) (RBRACKET#TOPROG 74816 .
74970) (REF#TOPROG 74972 . 82811) (RM#TOPROG 82813 . 82951) (SUB#TOPROG 82953 . 83101) (SUBSEC#TOPROG
83103 . 87606) (SUPER#TOPROG 87608 . 87762) (TABLE#TOPROG 87764 . 91716) (TAG#TOPROG 91718 . 91985) (
TERM#TOPROG 91987 . 92300) (VAR#TOPROG 92302 . 92705) (VARDEF#TOPROG 92707 . 93402)) (110656 116084 (
TRANSLATE.DUMPOUT 110666 . 115683) (TRANSLATE.SAVE.DUMPOUT 115685 . 116082)))))
(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)))))
STOP

BIN
doctools/IMTEDIT.LCOM
View File

Binary file not shown.