github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-03 14:49:45 +00:00
Code Issues Projects Releases Wiki Activity

Rmk20: Eliminate string arguments to TEDIT, move some bogus files to obsolete (#668)

Browse Source 
* Eliminate string arguments to OPENTEXTSTREAM  #666

Empty string replaced by NIL, mostly.  Otherwise, string wrapped in OPENSTRINGSTREAM.  TEDIT hasn't yet been modified, just all the callers.

* INDEX, NGROUP:  move to obsolete   #667

* HELPSYS:  Add proper FILETYPE property

* ROOMS files:  Also updated for TEDIT string arguments
This commit is contained in:
rmkaplan
2022-02-07 13:56:05 -08:00
committed by GitHub
parent fe90ac5f9f
commit 66091a2375
34 changed files with 2796 additions and 2029 deletions
Download Patch File Download Diff File Expand all files Collapse all files

259
library/TEDITPAGE
View File

@@ -1,19 +1,94 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "25-Aug-94 10:55:28" {DSK}<king>export>lispcore>library>TEDITPAGE.;3 123769
changes to%: (VARS TEDITPAGECOMS) (FILES TEDITDCL)
(FILECREATED "31-Jan-2022 23:33:37" {DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEDITPAGE.;2 124691
previous date%: " 4-Jul-93 00:42:12" {DSK}<king>export>lispcore>library>TEDITPAGE.;2)
:CHANGES-TO (FNS TEDIT.FORMATHEADING TEDIT.FORMATFOLIO)
:PREVIOUS-DATE "25-Aug-94 10:55:28"
{DSK}<Users>kaplan>Local>medley3.5>my-medley>library>TEDITPAGE.;1)
(* ; "
Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venue & Xerox Corporation. All rights reserved.
Copyright (c) 1984-1991, 1993-1994 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT TEDITPAGECOMS)
(RPAQQ TEDITPAGECOMS ((FILES TEDITDCL) (DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64)) (FILES (LOADCOMP) TEDITDCL)) (COMS (* ;; "Page-numbering font specification/default") (* ;; "(Must come before calls to TEDIT.SINGLE.PAGEFORMAT below.)") (GLOBALVARS TEDIT.DEFAULT.FOLIO.LOOKS) (INITVARS (TEDIT.DEFAULT.FOLIO.LOOKS (\TEDIT.PARSE.CHARLOOKS.LIST (QUOTE (FAMILY MODERN SIZE 10 WEIGHT MEDIUM SLOPE REGULAR))))) (* ;; "If non-nil, TEdit appends the start & end fileptrs for pages here.") (INITVARS (*TEDIT-PAGE-BREAKS* NIL))) (VARS (MAXPAGE# 65535) (MINPAGE# 1) (TEDIT.PAGE.FRAMES (LIST (TEDIT.SINGLE.PAGEFORMAT NIL NIL NIL NIL NIL 72 72 72 72 NIL 1) (TEDIT.SINGLE.PAGEFORMAT T 72 756 NIL (QUOTE LEFT) 72 72 72 72 NIL 1) (TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL (QUOTE RIGHT) 72 72 72 72 NIL 1)))) (COMS (* ;; "Creation, GET, and PUT of page frames.") (FNS TEDIT.GET.PAGEFRAMES TEDIT.PARSE.PAGEFRAMES TEDIT.PUT.PAGEFRAMES TEDIT.UNPARSE.PAGEFRAMES)) (COMS (* ;; "For setting up page layouts") (FNS TEDIT.SINGLE.PAGEFORMAT TEDIT.COMPOUND.PAGEFORMAT TEDIT.PAGEFORMAT)) (COMS (* ;; "Perform page layout, based on a regular expression of typed regions.") (FNS TEDIT.FORMAT.HARDCOPY TEDIT.FORMATBOX TEDIT.FORMATHEADING TEDIT.FORMATPAGE TEDIT.FORMATTEXTBOX TEDIT.FORMATFOLIO \TEDIT.FORMAT.FOUNDBOX? TEDIT.SKIP.SPECIALCOND) (* ;; "Aux function to capture page headings during line formatting:") (FNS TEDIT.HARDCOPY.PAGEHEADING) (* ;; " Aux function to handle end-of-column processing (paragraph keep, widow elimination, etc):") (FNS TEDIT.HARDCOPY-COLUMN-END)) (COMS (* ;; "Handle varying paper sizes") (FNS SCALEPAGEUNITS SCALEPAGEXUNITS SCALEPAGEYUNITS \TEDIT.PAPERHEIGHT \TEDIT.PAPERWIDTH) (GLOBALVARS TEDIT.PAPER.SIZES) (VARS (TEDIT.PAPER.SIZES (QUOTE ((A0 2384 3370) (A1 1684 2384) (A2 1191 1684) (A3 842 1191) (A4 595 842) (A5 420 595) (B0 2835 4008) (B1 2004 2835) (B2 1417 2004) (B3 1001 1417) (B4 709 1001) (B5 499 709)))))) (COMS (* ; "Page numbering option support") (FNS ROMANNUMERALS)) (COMS (* ;; "Foot note support") (FNS \TEDIT.FORMAT.FOOTNOTE)))
)
(RPAQQ TEDITPAGECOMS
((FILES TEDITDCL)
(DECLARE%: EVAL@COMPILE DONTCOPY (CONSTANTS (\SCRATCHLEN 64))
(FILES (LOADCOMP)
TEDITDCL))
(COMS
(* ;; "Page-numbering font specification/default")
(* ;; "(Must come before calls to TEDIT.SINGLE.PAGEFORMAT below.)")
(GLOBALVARS TEDIT.DEFAULT.FOLIO.LOOKS)
[INITVARS (TEDIT.DEFAULT.FOLIO.LOOKS (\TEDIT.PARSE.CHARLOOKS.LIST '(FAMILY MODERN SIZE
10 WEIGHT
MEDIUM SLOPE
REGULAR]
(* ;; "If non-nil, TEdit appends the start & end fileptrs for pages here.")
(INITVARS (*TEDIT-PAGE-BREAKS* NIL)))
[VARS (MAXPAGE# 65535)
(MINPAGE# 1)
(TEDIT.PAGE.FRAMES (LIST (TEDIT.SINGLE.PAGEFORMAT NIL NIL NIL NIL NIL 72 72 72 72 NIL 1
)
(TEDIT.SINGLE.PAGEFORMAT T 72 756 NIL 'LEFT 72 72 72 72 NIL 1)
(TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72 72 72 NIL
1]
(COMS
(* ;; "Creation, GET, and PUT of page frames.")
(FNS TEDIT.GET.PAGEFRAMES TEDIT.PARSE.PAGEFRAMES TEDIT.PUT.PAGEFRAMES
TEDIT.UNPARSE.PAGEFRAMES))
(COMS
(* ;; "For setting up page layouts")
(FNS TEDIT.SINGLE.PAGEFORMAT TEDIT.COMPOUND.PAGEFORMAT TEDIT.PAGEFORMAT))
(COMS
(* ;; "Perform page layout, based on a regular expression of typed regions.")
(FNS TEDIT.FORMAT.HARDCOPY TEDIT.FORMATBOX TEDIT.FORMATHEADING TEDIT.FORMATPAGE
TEDIT.FORMATTEXTBOX TEDIT.FORMATFOLIO \TEDIT.FORMAT.FOUNDBOX?
TEDIT.SKIP.SPECIALCOND)
(* ;; "Aux function to capture page headings during line formatting:")
(FNS TEDIT.HARDCOPY.PAGEHEADING)
(* ;;
 " Aux function to handle end-of-column processing (paragraph keep, widow elimination, etc):")
(FNS TEDIT.HARDCOPY-COLUMN-END))
[COMS
(* ;; "Handle varying paper sizes")
(FNS SCALEPAGEUNITS SCALEPAGEXUNITS SCALEPAGEYUNITS \TEDIT.PAPERHEIGHT
\TEDIT.PAPERWIDTH)
(GLOBALVARS TEDIT.PAPER.SIZES)
(VARS (TEDIT.PAPER.SIZES '((A0 2384 3370)
(A1 1684 2384)
(A2 1191 1684)
(A3 842 1191)
(A4 595 842)
(A5 420 595)
(B0 2835 4008)
(B1 2004 2835)
(B2 1417 2004)
(B3 1001 1417)
(B4 709 1001)
(B5 499 709]
(COMS (* ; "Page numbering option support")
(FNS ROMANNUMERALS))
(COMS
(* ;; "Foot note support")
(FNS \TEDIT.FORMAT.FOOTNOTE))))
(FILESLOAD TEDITDCL)
(DECLARE%: EVAL@COMPILE DONTCOPY
@@ -26,7 +101,8 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
)
(FILESLOAD (LOADCOMP) TEDITDCL)
(FILESLOAD (LOADCOMP)
TEDITDCL)
)
@@ -43,8 +119,8 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
(GLOBALVARS TEDIT.DEFAULT.FOLIO.LOOKS)
)
(RPAQ? TEDIT.DEFAULT.FOLIO.LOOKS (\TEDIT.PARSE.CHARLOOKS.LIST (QUOTE (FAMILY MODERN SIZE 10 WEIGHT MEDIUM SLOPE REGULAR)))
)
(RPAQ? TEDIT.DEFAULT.FOLIO.LOOKS (\TEDIT.PARSE.CHARLOOKS.LIST '(FAMILY MODERN SIZE 10 WEIGHT MEDIUM
SLOPE REGULAR)))
@@ -57,8 +133,10 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
(RPAQQ MINPAGE# 1)
(RPAQ TEDIT.PAGE.FRAMES (LIST (TEDIT.SINGLE.PAGEFORMAT NIL NIL NIL NIL NIL 72 72 72 72 NIL 1) (TEDIT.SINGLE.PAGEFORMAT T 72 756 NIL (QUOTE LEFT) 72 72 72 72 NIL 1) (TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL (QUOTE RIGHT) 72 72 72 72 NIL 1))
)
(RPAQ TEDIT.PAGE.FRAMES
(LIST (TEDIT.SINGLE.PAGEFORMAT NIL NIL NIL NIL NIL 72 72 72 72 NIL 1)
(TEDIT.SINGLE.PAGEFORMAT T 72 756 NIL 'LEFT 72 72 72 72 NIL 1)
(TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72 72 72 NIL 1)))
@@ -677,25 +755,26 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
(replace (PAGEFORMATTINGSTATE CHNO) of FORMATTINGSTATE with CHNO])
(TEDIT.FORMATHEADING
[LAMBDA (TEXTOBJ PRSTREAM FORMATTINGSTATE PAGEREGION) (* ; "Edited 9-Oct-90 13:24 by jds")
[LAMBDA (TEXTOBJ PRSTREAM FORMATTINGSTATE PAGEREGION) (* ; "Edited 31-Jan-2022 23:30 by rmk")
(* ; "Edited 9-Oct-90 13:24 by jds")
(* ;; "Grab text from the TEXTOBJ, starting with CH#, and use it to fill REGION on a page. Return a list of line descriptors which, taken together, fill the region.")
(PROG ((CHNO 1)
[REGION (for VALUE in (fetch (PAGEREGION REGIONSPEC) of PAGEREGION)
collect (FIXR (FTIMES (DSPSCALE NIL PRSTREAM)
VALUE]
VALUE]
(LOCALINFO (fetch (PAGEREGION REGIONLOCALINFO) of PAGEREGION))
HEADINGSTREAM HEADINGTEXTOBJ PRECONDITIONS THISLINE LINE YBOT (FORCENEXTPAGE NIL)
LINES HEADING)
[COND
((SETQ PRECONDITIONS (LISTGET LOCALINFO 'PRECONDITIONS))
(* ;
 "There are preconditions for this heading to appear. Check them.")
 "There are preconditions for this heading to appear. Check them.")
(COND
((for FORM inside PRECONDITIONS thereis (NOT (EVAL FORM)))
(* ;
 "One of the predicates returned NIL, so don't display this heading.")
 "One of the predicates returned NIL, so don't display this heading.")
(RETURN]
(COND
([NOT (SETQ HEADING (LISTGET (fetch (PAGEFORMATTINGSTATE PAGEHEADINGS) of
@@ -703,23 +782,20 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
)
(LISTGET LOCALINFO 'HEADINGTYPE]
(* ;
 "There's no text for this heading. Punt.")
 "There's no text for this heading. Punt.")
(RETURN)))
[SETQ HEADINGTEXTOBJ (fetch (TEXTSTREAM TEXTOBJ)
of (SETQ HEADINGSTREAM (OPENTEXTSTREAM
"" NIL NIL NIL
(LIST 'PARALOOKS (fetch
(PIECE PPARALOOKS)
of (CAR HEADING
]
[SETQ HEADINGTEXTOBJ (fetch (TEXTSTREAM TEXTOBJ) of (SETQ HEADINGSTREAM
(OPENTEXTSTREAM
NIL NIL NIL NIL
(LIST 'PARALOOKS (fetch (PIECE
PPARALOOKS
)
of (CAR HEADING]
(\TEDIT.INSERT.PIECES HEADINGTEXTOBJ 1 HEADING)
(for PC in HEADING do (add (fetch (TEXTOBJ TEXTLEN) of
HEADINGTEXTOBJ
)
(fetch (PIECE PLEN) of PC)))
(SETQ LINES (while (AND (ILESSP CHNO (fetch (TEXTOBJ TEXTLEN) of HEADINGTEXTOBJ
))
(NOT FORCENEXTPAGE))
(for PC in HEADING do (add (fetch (TEXTOBJ TEXTLEN) of HEADINGTEXTOBJ)
(fetch (PIECE PLEN) of PC)))
(SETQ LINES (while (AND (ILESSP CHNO (fetch (TEXTOBJ TEXTLEN) of HEADINGTEXTOBJ))
(NOT FORCENEXTPAGE))
collect (SETQ THISLINE (create THISLINE))
(SETQ FORCENEXTPAGE (\TEDIT.HARDCOPY.FORMATLINE HEADINGTEXTOBJ
(fetch (REGION WIDTH) of REGION)
@@ -729,36 +805,31 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
PRSTREAM T))
(replace (LINEDESCRIPTOR CACHE) of LINE with THISLINE)
(* ;
 "Mark this line as having cached print info.")
(replace (LINEDESCRIPTOR LTEXTOBJ) of LINE with
HEADINGSTREAM
) (* ;
 "And remember the document it came from.")
 "Mark this line as having cached print info.")
(replace (LINEDESCRIPTOR LTEXTOBJ) of LINE with HEADINGSTREAM)
(* ;
 "And remember the document it came from.")
(add (fetch (LINEDESCRIPTOR LEFTMARGIN) of LINE)
(fetch (REGION LEFT) of REGION))
(fetch (REGION LEFT) of REGION))
(add (fetch (LINEDESCRIPTOR RIGHTMARGIN) of LINE)
(fetch (REGION LEFT) of REGION))
(fetch (REGION LEFT) of REGION))
(* ; "Format the next possible line")
[COND
[YBOT (* ;
 "We're into it; take account of this line's height")
(SETQ YBOT (IDIFFERENCE YBOT (fetch (LINEDESCRIPTOR
LHEIGHT)
 "We're into it; take account of this line's height")
(SETQ YBOT (IDIFFERENCE YBOT (fetch (LINEDESCRIPTOR LHEIGHT)
of LINE]
(T (* ;
 "Just starting out; find the line's position with respect to the top of the region to be filled.")
(SETQ YBOT (IDIFFERENCE (fetch (REGION BOTTOM) of REGION
)
(fetch (LINEDESCRIPTOR DESCENT)
of LINE]
 "Just starting out; find the line's position with respect to the top of the region to be filled.")
(SETQ YBOT (IDIFFERENCE (fetch (REGION BOTTOM) of REGION)
(fetch (LINEDESCRIPTOR DESCENT) of LINE]
(* ; "This line is good; use it.")
(replace (LINEDESCRIPTOR YBOT) of LINE with YBOT)
(replace (LINEDESCRIPTOR YBASE) of LINE
with (IPLUS YBOT (fetch (LINEDESCRIPTOR DESCENT)
of LINE)))
with (IPLUS YBOT (fetch (LINEDESCRIPTOR DESCENT) of LINE)))
(SETQ CHNO (ADD1 (fetch (LINEDESCRIPTOR CHARLIM) of LINE)))
(* ;
 "Keep track of the next character...")
 "Keep track of the next character...")
LINE))
(RETURN LINES])
@@ -1216,13 +1287,14 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
FORMATTINGSTATE FINAL-CHNO])
(TEDIT.FORMATFOLIO
[LAMBDA (TEXTOBJ PRSTREAM FORMATTINGSTATE REGIONSPEC) (* ; "Edited 30-May-91 12:51 by jds")
[LAMBDA (TEXTOBJ PRSTREAM FORMATTINGSTATE REGIONSPEC) (* ; "Edited 31-Jan-2022 23:33 by rmk")
(* ; "Edited 30-May-91 12:51 by jds")
(* ;; "Print a page number (called a %"folio%" in the biz) at the location and with the alignment specified in the REGIONSPEC.")
(PROG ([REGION (for VALUE in (fetch (PAGEREGION REGIONSPEC) of REGIONSPEC)
collect (FIXR (FTIMES (DSPSCALE NIL PRSTREAM)
VALUE]
VALUE]
(FOLIOINFO (fetch (PAGEREGION REGIONLOCALINFO) of REGIONSPEC))
(FORCENEXTPAGE NIL)
(CHNO 1)
@@ -1233,36 +1305,33 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
TEDIT.DEFAULT.FOLIO.LOOKS))
(SETQ NOFIRSTPAGE (LISTGET FOLIOINFO 'NOFIRSTPAGE))
(SETQ INFOLIST (LISTGET FOLIOINFO 'FORMATINFO)) (* ;
 "A LIST OF (FORMAT PRETEXT POSTTEXT)")
 "A LIST OF (FORMAT PRETEXT POSTTEXT)")
(SETQ FOLIOFORMAT (CAR INFOLIST))
(SETQ PRETEXT (CADR INFOLIST))
(SETQ POSTTEXT (CADDR INFOLIST))
[SETQ PAGE# (COND
((fetch (PAGEFORMATTINGSTATE PAGE#TEXT) of FORMATTINGSTATE)
(MKSTRING (fetch (PAGEFORMATTINGSTATE PAGE#TEXT) of FORMATTINGSTATE
)))
(MKSTRING (fetch (PAGEFORMATTINGSTATE PAGE#TEXT) of FORMATTINGSTATE)))
(T (SELECTQ FOLIOFORMAT
(LOWERROMAN (ROMANNUMERALS (fetch (PAGEFORMATTINGSTATE PAGE#)
of FORMATTINGSTATE)))
of FORMATTINGSTATE)))
(UPPERROMAN (ROMANNUMERALS (fetch (PAGEFORMATTINGSTATE PAGE#)
of FORMATTINGSTATE)
of FORMATTINGSTATE)
T))
(MKSTRING (fetch (PAGEFORMATTINGSTATE PAGE#) of
FORMATTINGSTATE
]
(MKSTRING (fetch (PAGEFORMATTINGSTATE PAGE#) of FORMATTINGSTATE]
[COND
(PRETEXT (SETQ PAGE# (CONCAT PRETEXT PAGE#]
[COND
(POSTTEXT (SETQ PAGE# (CONCAT PAGE# POSTTEXT]
[SETQ FOLIOTEXTOBJ (TEXTOBJ (SETQ FOLIOSTREAM (OPENTEXTSTREAM PAGE# NIL NIL NIL
(LIST 'PARALOOKS PARALOOKS
'LOOKS CHARLOOKS]
[SETQ FOLIOTEXTOBJ (TEXTOBJ (SETQ FOLIOSTREAM (OPENTEXTSTREAM (OPENSTRINGSTREAM PAGE#)
NIL NIL NIL (LIST 'PARALOOKS PARALOOKS
'LOOKS CHARLOOKS]
(COND
((OR (NOT (fetch (PAGEFORMATTINGSTATE FIRSTPAGE) of FORMATTINGSTATE))
(NOT NOFIRSTPAGE)) (* ;
 "If this isn't the first page, OR we want a page # on the first page, go ahead and format it.")
 "If this isn't the first page, OR we want a page # on the first page, go ahead and format it.")
(RETURN (while (AND (ILEQ CHNO (fetch (TEXTOBJ TEXTLEN) of FOLIOTEXTOBJ))
(NOT FORCENEXTPAGE))
(NOT FORCENEXTPAGE))
collect (SETQ THISLINE (create THISLINE))
(SETQ FORCENEXTPAGE (\TEDIT.HARDCOPY.FORMATLINE FOLIOTEXTOBJ
(fetch (REGION WIDTH) of REGION)
@@ -1271,41 +1340,36 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
))
PRSTREAM))
(replace (LINEDESCRIPTOR CACHE) of LINE with THISLINE)
(replace (LINEDESCRIPTOR LTEXTOBJ) of LINE with
FOLIOSTREAM)
(replace (LINEDESCRIPTOR LTEXTOBJ) of LINE with FOLIOSTREAM)
(add (fetch (LINEDESCRIPTOR LEFTMARGIN) of LINE)
(fetch (REGION LEFT) of REGION))
(fetch (REGION LEFT) of REGION))
(add (fetch (LINEDESCRIPTOR RIGHTMARGIN) of LINE)
(fetch (REGION LEFT) of REGION))
(fetch (REGION LEFT) of REGION))
(* ; "Format the next possible line")
(SETQ CHNO (ADD1 (fetch (LINEDESCRIPTOR CHARLIM) of LINE)))
(* ;
 "Keep track of the next character...")
 "Keep track of the next character...")
[COND
[YBOT (* ;
 "We're into it; take account of this line's height")
(SETQ YBOT (IDIFFERENCE YBOT (fetch (LINEDESCRIPTOR
LHEIGHT)
 "We're into it; take account of this line's height")
(SETQ YBOT (IDIFFERENCE YBOT (fetch (LINEDESCRIPTOR LHEIGHT)
of LINE]
(T (* ;
 "Just starting out; find the line's position with respect to the top of the region to be filled.")
 "Just starting out; find the line's position with respect to the top of the region to be filled.")
(SETQ YBOT (SETQ YBOT (IDIFFERENCE (fetch (REGION BOTTOM)
of REGION)
(fetch (LINEDESCRIPTOR DESCENT)
of LINE]
(COND
((ILESSP YBOT (IDIFFERENCE (fetch (REGION BOTTOM) of REGION
)
(fetch (LINEDESCRIPTOR DESCENT)
of LINE)))
((ILESSP YBOT (IDIFFERENCE (fetch (REGION BOTTOM) of REGION)
(fetch (LINEDESCRIPTOR DESCENT) of LINE)))
(* ;
 "This line hangs off the bottom; punt it.")
 "This line hangs off the bottom; punt it.")
NIL)
(T (* ; "This line is good; use it.")
(replace (LINEDESCRIPTOR YBOT) of LINE with YBOT)
(replace (LINEDESCRIPTOR YBASE) of LINE
with (IPLUS YBOT (fetch (LINEDESCRIPTOR DESCENT)
of LINE)))
with (IPLUS YBOT (fetch (LINEDESCRIPTOR DESCENT) of LINE)))
LINE])
(\TEDIT.FORMAT.FOUNDBOX?
@@ -1696,8 +1760,19 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
(GLOBALVARS TEDIT.PAPER.SIZES)
)
(RPAQQ TEDIT.PAPER.SIZES ((A0 2384 3370) (A1 1684 2384) (A2 1191 1684) (A3 842 1191) (A4 595 842) (A5 420 595) (B0 2835 4008) (B1 2004 2835) (B2 1417 2004) (B3 1001 1417) (B4 709 1001) (B5 499 709))
)
(RPAQQ TEDIT.PAPER.SIZES
((A0 2384 3370)
(A1 1684 2384)
(A2 1191 1684)
(A3 842 1191)
(A4 595 842)
(A5 420 595)
(B0 2835 4008)
(B1 2004 2835)
(B2 1417 2004)
(B3 1001 1417)
(B4 709 1001)
(B5 499 709)))
@@ -1825,15 +1900,15 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1993, 1994 by Venu
(PUTPROPS TEDITPAGE COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1989 1990 1991
1993 1994))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3553 7108 (TEDIT.GET.PAGEFRAMES 3563 . 3915) (TEDIT.PARSE.PAGEFRAMES 3917 . 5620) (
TEDIT.PUT.PAGEFRAMES 5622 . 6250) (TEDIT.UNPARSE.PAGEFRAMES 6252 . 7106)) (7154 19997 (
TEDIT.SINGLE.PAGEFORMAT 7164 . 17723) (TEDIT.COMPOUND.PAGEFORMAT 17725 . 18351) (TEDIT.PAGEFORMAT
18353 . 19995)) (20084 97190 (TEDIT.FORMAT.HARDCOPY 20094 . 31166) (TEDIT.FORMATBOX 31168 . 46475) (
TEDIT.FORMATHEADING 46477 . 53053) (TEDIT.FORMATPAGE 53055 . 64626) (TEDIT.FORMATTEXTBOX 64628 . 84946
) (TEDIT.FORMATFOLIO 84948 . 91873) (\TEDIT.FORMAT.FOUNDBOX? 91875 . 94064) (TEDIT.SKIP.SPECIALCOND
94066 . 97188)) (97270 100471 (TEDIT.HARDCOPY.PAGEHEADING 97280 . 100469)) (100580 110247 (
TEDIT.HARDCOPY-COLUMN-END 100590 . 110245)) (110292 115296 (SCALEPAGEUNITS 110302 . 111530) (
SCALEPAGEXUNITS 111532 . 112296) (SCALEPAGEYUNITS 112298 . 113063) (\TEDIT.PAPERHEIGHT 113065 . 113994
) (\TEDIT.PAPERWIDTH 113996 . 115294)) (115618 119532 (ROMANNUMERALS 115628 . 119530)) (119568 123634
(\TEDIT.FORMAT.FOOTNOTE 119578 . 123632)))))
(FILEMAP (NIL (5196 8751 (TEDIT.GET.PAGEFRAMES 5206 . 5558) (TEDIT.PARSE.PAGEFRAMES 5560 . 7263) (
TEDIT.PUT.PAGEFRAMES 7265 . 7893) (TEDIT.UNPARSE.PAGEFRAMES 7895 . 8749)) (8797 21640 (
TEDIT.SINGLE.PAGEFORMAT 8807 . 19366) (TEDIT.COMPOUND.PAGEFORMAT 19368 . 19994) (TEDIT.PAGEFORMAT
19996 . 21638)) (21727 98018 (TEDIT.FORMAT.HARDCOPY 21737 . 32809) (TEDIT.FORMATBOX 32811 . 48118) (
TEDIT.FORMATHEADING 48120 . 54287) (TEDIT.FORMATPAGE 54289 . 65860) (TEDIT.FORMATTEXTBOX 65862 . 86180
) (TEDIT.FORMATFOLIO 86182 . 92701) (\TEDIT.FORMAT.FOUNDBOX? 92703 . 94892) (TEDIT.SKIP.SPECIALCOND
94894 . 98016)) (98098 101299 (TEDIT.HARDCOPY.PAGEHEADING 98108 . 101297)) (101408 111075 (
TEDIT.HARDCOPY-COLUMN-END 101418 . 111073)) (111120 116124 (SCALEPAGEUNITS 111130 . 112358) (
SCALEPAGEXUNITS 112360 . 113124) (SCALEPAGEYUNITS 113126 . 113891) (\TEDIT.PAPERHEIGHT 113893 . 114822
) (\TEDIT.PAPERWIDTH 114824 . 116122)) (116540 120454 (ROMANNUMERALS 116550 . 120452)) (120490 124556
(\TEDIT.FORMAT.FOOTNOTE 120500 . 124554)))))
STOP