292 lines
28 KiB
Plaintext
292 lines
28 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED " 6-May-2026 22:17:41" ("compiled on " {MEDLEY}<library>TEDIT>TEDIT-PAGE.;244)
|
||
" 5-May-2026 11:14:53" brecompiled exprs%: TEDIT.TO.IMAGEFILE in "FULL 5-May-2026 ..." dated
|
||
" 5-May-2026 11:15:02")
|
||
(FILECREATED " 6-May-2026 22:17:41" {MEDLEY}<library>TEDIT>TEDIT-PAGE.;244 130772 :EDIT-BY rmk
|
||
:CHANGES-TO (FNS TEDIT.TO.IMAGEFILE) :PREVIOUS-DATE "27-Jan-2026 10:30:27"
|
||
{MEDLEY}<library>TEDIT>TEDIT-PAGE.;243)
|
||
\TEDIT.PARSE.PAGEFRAMES :D8
|
||
(P 8 ALIST P 1 PAGEFRAME P 0 FRAMETYPE I 1 PARENT I 0 PAGELIST) ½ P@à ‘@@@b ¿Xg ð³t` dH ¿@@b ¿ºdJ
|
||
¿@@b ¿»dK¿@@b ¿µ jdddh¼dL¿Yd @@@b ¿°d_I
|
||
½NµMh_<0E>M&¾µçOI@b d@b ¿ @@b ¿ @@b ¿ (186 TEDIT.COMPOUND.PAGEFORMAT 181 \TEDIT.PARSE.PAGEFRAMES 169 \TEDIT.PARSE.PAGEFRAMES 157 \TEDIT.PARSE.PAGEFRAMES 117 \TEDIT.PARSE.PAGEFRAMES)
|
||
(95 PAGEREGION 32 |PAGEREGIONTYPE#| 24 LIST 8 PAGEREGION)
|
||
()
|
||
\TEDIT.PUT.PAGEFRAMES :D8
|
||
(I 1 PAGEFRAMES I 0 LOOKSFILE) * @j
|
||
@j
|
||
¿@l
|
||
A @` (39 PRIN4 28 \TEDIT.UNPARSE.PAGEFRAMES 22 \BOUT 13 \BOUT 6 \DWOUT)
|
||
(34 *TEDIT-FILE-READTABLE*)
|
||
()
|
||
\TEDIT.UNPARSE.PAGEFRAMES :D8
|
||
(P 4 SUBREGION P 3 FRAME I 0 PAGEFRAME) <00> @d²,¿g @@°d[ ¸IµHhZ<>H&¹µêJh É @ É
|
||
@ É@ É0@ É°dL ¸IµHhZ<>H&¹µæJh (101 \TEDIT.UNPARSE.PAGEFRAMES 24 \TEDIT.UNPARSE.PAGEFRAMES)
|
||
(86 PAGEREGION 75 PAGEREGION 67 PAGEREGION 59 PAGEREGION 51 PAGEREGION 10 LIST)
|
||
()
|
||
TEDIT.SINGLE.PAGEFORMAT :D8
|
||
(P 49 CLEFT P 48 COL P 46 LEFT P 45 HDG P 40 I P 36 I P 32 I P 28 I P 24 I P 20 I P 16 HEADINGREGIONS P 15 SCALEFACTOR P 14 FOLIOLEFT P 13 SUBREGIONS P 12 PAGEWIDTH P 11 PAGEREGION P 10 PAPERHEIGHT P 9 PAPERWIDTH P 0 LANDSCAPE? I 15 PAPERSIZE I 14 PAGEPROPS I 13 UNITS I 12 HEADINGS I 11 INTERCOL I 10 COLWIDTH I 9 COLS I 8 BOTTOM I 7 TOP I 6 RIGHT I 5 LEFT I 4 PQUAD I 3 PFONT I 2 PY I 1 PX I 0 PAGE#S?) 5 G g '<11>G H
|
||
G H
|
||
|
||
` dg ¿jdOOh¹dI¿g G G ºdJ¿QGg ð£Gµk°@g ð“l °5Gdg ð”¿lH°&g ð–o °Gdg ð–¿o „ _ AO G H bBO G H bE²CE²30E°&dO Eê _"¿O$µ O"h_&‚O"&_$¿µÛO&ˆO Eê b
|
||
¿F²CF²30F°&dO Fê _*¿O,µ O*h_.‚O*&_,¿µÛO.ˆO Fê b ¿G²GG²50G°'d O Gê _2¿O4µ O2h_6‚O2&_4¿µÚO6‰O Gê b¿G²GG²50 G°'d O Gê _:¿O<µ O:h_>‚O:&_<¿µÚO>‰O Gê b¿G²GG²50#G°'d$O Gê _B¿ODµ OBh_F‚OB&_D¿µÚOF‰O Gê b¿G²GG²50'G°'d(O Gê _J¿OLµ OJh_N‚OJ&_L¿µÚON‰O Gê b¿OFÙEÙ_@i
|
||
o
|
||
¢± ÂD dg ð•¿A_ °?dg ð›¿AllHÚÙ_ °+dg ð©dg ð¡dª¿AllHÚÙ_ ‹¿o D
|
||
¿` dg ¿O BllHÚl$h»dK¿g g Dµg hg C`
|
||
g G g 'h¼dL¿h_¿Gµ>G—Gk𢱠÷O` dg ¿EGOOGÙGÙh_¿dO¿h±vQ.ORµOT_ ¿OO
|
||
_¿°ª_Zd¢± ‘3²iOZ3²`OZO G H _\¿` dg ¿O\OZO G H OO\ÙdlHñ¢¿lHl$h½dM¿g OZh¾dN¿°o OZ
|
||
_X¿OVµOXh_V_T¿OR_R±ÿLOX&_V°òG³+Gªo ¿G³OGGkÙÚÙGë b¿°G³OGGÚÙGkÙë b¿OGkE34O`O^ó³Y` dg ¿ObGGOGÙGÙh_¿dO¿_h¿Ofµ Ohh_f_d¿O`kÔ_`¿ObGGØÔ_b¿°¬Oh&_f¿°æOd
|
||
_¿O OO (1278 \NCONC2 1164 FIXR 1137 FIXR 1114 ERROR 1066 ERROR 1061 CONCAT 1003 SCALEPAGEYUNITS 968 SCALEPAGEXUNITS 925 \APPEND2 807 \TEDIT.UNPARSE.CHARLOOKS.LIST 802 \TEDIT.PARSE.CHARLOOKS.LIST 728 ERROR 653 U-CASE 643 MEMB 633 L-CASE 615 FIXR 576 FIXR 542 FIXR 503 FIXR 469 FIXR 430 FIXR 396 FIXR 357 FIXR 323 FIXR 285 FIXR 255 FIXR 217 FIXR 188 SCALEPAGEYUNITS 175 SCALEPAGEXUNITS 162 \ILLEGAL.ARG 29 \TEDIT.PAPERHEIGHT 18 \TEDIT.PAPERWIDTH)
|
||
(1288 PAGEREGION 1195 TEXT 1188 |PAGEREGIONTYPE#| 1034 HEADINGTYPE 983 HEADING 976 |PAGEREGIONTYPE#| 867 TEXT 860 |PAGEREGIONTYPE#| 819 FOLIOINFO 812 FORMATINFO 797 TEDIT.DEFAULT.FOLIO.LOOKS 791 CHARLOOKS 783 CENTERED 775 QUAD 770 PARALOOKS 741 FOLIO 734 |PAGEREGIONTYPE#| 701 CENTER 693 CENTERED 673 RIGHT 659 LEFT 148 CM 131 MICAS 119 INCHES 105 PICAS 91 POINTS 69 PAPERSIZE 44 PAGE 37 |PAGEREGIONTYPE#| 6 LANDSCAPE?)
|
||
( 1109 "Can't default both Col width and spacing" 1053 "Invalid X/Y position for heading-type " 722 "Invalid page number alignment"
|
||
638 (T Yes) 156 28.346457 138 0.028346457)
|
||
TEDIT.COMPOUND.PAGEFORMAT :D8
|
||
(I 2 RECTO I 1 VERSO I 0 FIRST) n A£@b¿B£Ab¿` dg ¿@` dg ¿ABhHdI¿jdddhHdI¿hHdI¿jdddhHdI¿ NIL
|
||
(39 ALTERNATE 32 |PAGEREGIONTYPE#| 23 SEQUENCE 16 |PAGEREGIONTYPE#|)
|
||
()
|
||
TEDIT.PAGEFORMAT :D8
|
||
(P 6 SUBBOXES P 5 NEWPAGEREGION P 4 OLDRIGHT P 3 OLDLEFT P 2 OLDFIRST P 1 OLDPAGEREGION P 0 TEXTOBJ I 2 PAGEID I 1 FORMAT I 0 TSTREAM) @ b d ÉHÉTYg
|
||
AAi
|
||
ŸA ÉTb€Aà ¦A ¿A É dg 𢱠Ž¿Bdg ð²2¿Ig
|
||
»Ig
|
||
¼AJKð‘d€KJLð‘A€L ± Ég ð²JAIg
|
||
± ¬Bdg ð²¿JIg
|
||
A ± ŒªAdd ± € °xg ð²jA É^ É g ð²HN É g ð²6N É É g ð² N É É g ð¦M ¿A…A ]dI
|
||
³DH MT¿I²7Hdg hdddI
|
||
|
||
¿Hh ¿HÊ, jðhðið¬Hi
|
||
¿HkÏ, @ (419 \TEDIT.WINDOW.TITLE 395 \TEDIT.HISTORYADD 390 \TEDIT.HISTORY.EVENT 357 EQUALALL 349 \ILLEGAL.ARG 340 \ILLEGAL.ARG 229 \ILLEGAL.ARG 221 TEDIT.COMPOUND.PAGEFORMAT 209 TEDIT.COMPOUND.PAGEFORMAT 203 TEDIT.GET.PAGEFORMAT 177 TEDIT.COMPOUND.PAGEFORMAT 172 TEDIT.GET.PAGEFORMAT 148 TEDIT.COMPOUND.PAGEFORMAT 127 TEDIT.GET.PAGEFORMAT 115 TEDIT.GET.PAGEFORMAT 72 \ILLEGAL.ARG 49 TEXTOBJ 42 TEXTSTREAM 32 TEDIT.GET.PAGEFORMAT 5 TEXTSTREAM)
|
||
(379 :PageFormat 365 TEXTOBJ 332 PAGE 325 PAGEREGION 316 PAGEREGION 305 PAGE 298 PAGEREGION 290 PAGEREGION 279 ALTERNATE 272 PAGEREGION 261 PAGE 254 PAGEREGION 245 PAGEREGION 236 SEQUENCE 198 LEFT 187 OTHER% RIGHT 167 RIGHT 156 OTHER% LEFT 122 RIGHT 110 LEFT 100 |FIRST(&DEFAULT)| 87 PAGE 79 PAGEREGION 65 PAGEREGION 54 TEXTOBJ 27 |FIRST(&DEFAULT)| 13 STREAM)
|
||
()
|
||
TEDIT.GET.PAGEFORMAT :D8
|
||
(P 1 REST P 0 PAGEREGION I 2 NOERROR I 1 PAGETYPE I 0 TSTREAM) S @Ã ’@°@i
|
||
™@ ÉTµ@Hd²b¿Ag ð³ Ag ð³Ag ð©Adg ð“¿Hg ð©Adg ðœ¿hHh Hg ð§Ag ð”HB¢± Êhà ¢± ³H É g 𢱠¡H ÉYAg ð³ Ag ð³Ag ð©Adg ðš¿H Ég ðªAdg ð² ¿I É g ð˜I É€Ig ð¨Ag ð² I É g ð˜I É€IB’±ÿOA H´‚±ÿBB’±ÿ<A (336 \ILLEGAL.ARG 317 \ILLEGAL.ARG 102 TEDIT.COMPOUND.PAGEFORMAT 23 TEXTOBJ 16 TEXTOBJ)
|
||
(299 PAGEREGION 291 ALTERNATE 284 PAGEREGION 275 RIGHT 267 OTHER% RIGHT 256 PAGEREGION 248 ALTERNATE 241 PAGEREGION 231 LEFT 222 OTHER% LEFT 213 PAGEREGION 204 FIRST/DEFAULT 195 |FIRST(&DEFAULT)| 186 DEFAULT 177 FIRST 166 PAGEREGION 155 SEQUENCE 148 PAGEREGION 138 PAGEREGION 119 RIGHT 111 OTHER% RIGHT 91 LEFT 82 OTHER% LEFT 71 FIRST/DEFAULT 62 |FIRST(&DEFAULT)| 53 DEFAULT 44 FIRST 5 PAGEREGION)
|
||
()
|
||
TEDIT.TO.IMAGEFILEA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 8 SCRATCHFILE P 7 PAGEREGION P 6 IMAGESTREAM P 5 FORMATTINGSTATE P 1 TEXTOBJ P 0 FIRSTPG# I 0 SI::*CLEANUP-FORMS* F 9 TSTREAM F 10 SI::*RESETFORMS* F 11 IMAGETYPE F 12 OPTIONS F 13 IMAGEFILE F 14 TEDIT.DEFAULTPAGEREGION) W Wi
|
||
µo W chWc¿Wcdg
|
||
žW c¿W³QWg
|
||
².g hg W g Wg
|
||
|
||
°g W
|
||
c¿Wg h Wg 'AWÃ ’WˆW É ¹H3 iHºWg 'Wg 'µnÿÿJhdkhdddH´HH´Hhddjhdd1Ig
|
||
µg »WkKg ð‘ho Io
|
||
hWc¿IÉT_¿MW ¿WWg hW ¾o N
|
||
¿MIÉñ³zWNMOMW
|
||
¿Mdg ð²Í_¿MMkÙ¿Mj¿Mg ±ÿ{Ig
|
||
µg ¼WkL¿Wg MN N h ¿N (596 CLOSEF 589 PUTTEXTPROP 580 PRINTERNAME 574 FULLNAME 529 GETTEXTPROP 421 \TEDIT.FORMATBOX 382 DSPRIGHTMARGIN 370 OPENIMAGESTREAM 323 \TEDIT.MARKACTIVE 284 GETTEXTPROP 159 PUTTEXTPROP 143 UNIX-TMP-FILE-NAME 137 EXTENSIONS.FOR.IMAGEFILETYPE 123 PACKFILENAME 117 GETTEXTPROP 99 EXTENSIONS.FOR.IMAGEFILETYPE 79 GETTEXTPROP 60 TEXTSTREAM 55 \TEDIT.MAINW 47 GETTEXTPROP 21 OPENTEXTSTREAM 7 TEXTSTREAM)
|
||
(551 LASTIMAGEFILE 536 NILL 524 AFTERHARDCOPYFN 514 :SEARCHING-FOR-EQUIVALENT-PAGE 434 :NEW-PAGE-LAYOUT 360 HEADING 303 DON'T 291 NILL 279 BEFOREHARDCOPYFN 217 ENDPG 209 STARTPG 195 TEXTOBJ 188 STREAM 177 TEXTOBJ 166 FIRSTPG# 153 LASTIMAGEFILE 130 tedit 112 FILENAME 105 BODY 92 EXTENSION 86 VERSION 74 FILENAME 42 MENUFLG)
|
||
( 376 131072 318 "Hardcopy" 312 (PROGN (\TEDIT.MARKINACTIVE OLDVALUE)) 14 (PROGN (CLOSEF? OLDVALUE)))
|
||
TEDIT.TO.IMAGEFILE :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 OPTIONS I 2 IMAGETYPE I 1 IMAGEFILE I 0 TSTREAM F 3 LISPXHIST) S!g ¿$ (23 SI::RESETUNWIND 18 \MVLIST 13 TEDIT.TO.IMAGEFILEA0001)
|
||
(8 SI::RESETUNWIND)
|
||
()
|
||
\TEDIT.FORMATBOX :D8
|
||
(P 20 LTEXTSTREAM P 19 LINE P 17 SUBREGIONSPEC P 16 SUBREGION P 14 SUBREGIONSPEC P 13 SUBREGION P 11 SUBREGIONSPEC P 5 LAST-CHNO P 4 LINES P 3 CHNO P 2 TEXTLEN P 1 REGION P 0 TEXTOBJ I 4 FORMATTINGSTATE I 3 PAGEREGION I 2 STARTINGCHNO I 1 PRSTREAM I 0 TSTREAM) P @Ã ‘@‡@ É ¡
|
||
C ɹHɺh[\½ C É dg ð²&¿CD
|
||
¢±\@ABCD
|
||
^N¾¼N]±Cdg ð²¿CD
|
||
¢±/HADC \±#dg ð²¿CD
|
||
¢±
|
||
HADC \±dg ð²¿CD
|
||
¿@ABCD
|
||
±ßdg ð³'dg ð³ dg ð³dg ðªdg 𢱱¿CD
|
||
¿C É dg ðªdg 𢱠·¿C É!Oµ±y_¿DJñ³íDdŸd™Dñ³ÚDg ð³ÌO É_¿O ÉIØO ÉIØOOO_ ¿@AD` O
|
||
dO ¿D
|
||
¿O_±ÿ]dg 𢱠¿DJñ’± ¿Dg ð’± ¯C É!O µ°Ð_ ¿DJñ³îDg ð³àO É_¿O ÉIØO ÉIØOOO_"¿@AD` O
|
||
dO"¿D
|
||
¿O _ ±ÿqg 𥠿L!O$µM¢± ‘DM_&²w ¿D™DDýñ³%O&É"_(¿O&É"O&hA
|
||
I
|
||
AD
|
||
¿@O(ð²KµjO&ÉkØ_¿dOñ¢¿O»D_O&O¿O&h"¿O$_$±ÿlK´
|
||
DK (761 \TEDIT.HARDCOPY.DISPLAYLINE 753 SCALEREGION 747 DSPSCALE 711 BLOCK 673 \TEDIT.THELP 652 \TEDIT.FORMATBOX 639 NCREATE2 450 \TEDIT.FORMATBOX 437 NCREATE2 251 \TEDIT.FORMAT.FOUNDBOX? 194 \TEDIT.FORMATPAGE 182 \TEDIT.FORMAT.FOUNDBOX? 161 \TEDIT.FORMATHEADING 148 \TEDIT.FORMAT.FOUNDBOX? 127 \TEDIT.FORMATFOLIO 114 \TEDIT.FORMAT.FOUNDBOX? 84 \TEDIT.FORMATTEXTBOX 69 \TEDIT.FORMAT.FOUNDBOX?)
|
||
(666 SELECTION 632 |PAGEREGIONTYPE#| 584 PAGEREGION 571 PAGEREGION 559 PAGEREGION 549 :NEW-PAGE-LAYOUT 508 PAGEREGION 497 :NEW-PAGE-LAYOUT 465 ALTERNATE 430 |PAGEREGIONTYPE#| 382 PAGEREGION 369 PAGEREGION 357 PAGEREGION 347 :NEW-PAGE-LAYOUT 286 PAGEREGION 274 RECURSIVE 266 SEQUENCE 258 PAGEREGION 238 REPEAT 230 SELECTION 221 ALTERNATE 212 SEQUENCE 203 RECURSIVE 171 PAGE 137 HEADING 103 FOLIO 58 TEXT 50 PAGEREGION 30 PAGEREGION 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
|
||
()
|
||
\TEDIT.FORMATHEADING :D8
|
||
(P 14 FORCENEXTPAGE P 13 YBOT P 12 LINE P 8 CHNO P 7 TEXTLEN P 6 BOTTOM P 5 HEADING P 4 HEADINGSTREAM P 3 HEADINGTEXTOBJ P 2 PAGE# P 1 LOCALINFO P 0 REGION I 3 PAGEREGION I 2 FORMATTINGSTATE I 1 PRSTREAM I 0 TEXTOBJ) ï hA
|
||
C É
|
||
C ÉB3BIg '']´Rhdddg M É Éh
|
||
\d É[M É kK
|
||
K HKÉkcOOñ’O ’OLOhHAB
|
||
_Él ð_ ¿OµGNOÉÙ_¿Od ÉOO ¿OØ¿OÉkØ_¿O_¿Oµ
|
||
Oh__¿°žO&_¿°–OÉ °¼ (148 \TEDIT.FORMATLINE 113 \TEDIT.INSERTPIECES 107 \TEDIT.ALIGNEDPIECE 82 OPENTEXTSTREAM 19 SCALEREGION 6 DSPSCALE)
|
||
(179 LINEDESCRIPTOR 98 SELPIECES 89 STREAM 69 SELPIECES 63 PARALOOKS 49 HEADINGTYPE 25 PAGEREGION 12 PAGEREGION)
|
||
()
|
||
\TEDIT.FORMATPAGE :D8
|
||
(P 13 SUBREGION P 11 TEXTLEN P 10 END-OF-PAGE-MARKER P 9 STARTING-FILEPTR P 8 PC P 7 NEWPARALOOKS P 6 PRE-EXISTING-FONT P 5 END-OF-PAGE-FN P 4 REGION P 3 PAGE# P 2 PAGEPROPS P 0 TEXTOBJ I 4 FORMATTINGSTATE I 3 PAGEREGION I 2 CHNO I 1 PRSTREAM I 0 TSTREAM) <02> Ddg ð’±k¿@à ‘@‡@ É 1D»C ɺhA
|
||
C É
|
||
Hg
|
||
hA
|
||
Q HÉ_¿BdOñ’±H
|
||
_ÉOH _ É g ð²LDg ¿DHO
|
||
kØ¿DO Ég ' ±”K®Jg 'µk»DK¿Jg '²2Ag g ¿A ¿lZA
|
||
¿jdLÙA ¿LA
|
||
¿LA
|
||
¿@BDC b¿DB¿C É
|
||
Oµ‚± ‰NA
|
||
¿Jg '²+Ag h ¿jLA ¿jA
|
||
¿A ¿DdOñ³p¿M²HDlM_g ð³ZDdš¿KDýñ³JD˜KDð³;A °X_¿DOñ’±ÿi@ADOD
|
||
¿O_±ÿED˜KDýñ˜Og ð<>DOkØ¿DdkÔ¿Dh¿DDYId¿DdkÔ (535 \TEDIT.FORMATBOX 493 DSPNEWPAGE 419 DSPPOPSTATE 412 DSPROTATE 404 DSPTRANSLATE 391 STREAMPROP 369 DSPFONT 327 \TEDIT.HARDCOPY.PAGEHEADINGS 317 DSPRIGHTMARGIN 306 DSPCLIPPINGREGION 298 DSPTRANSLATE 283 DSPROTATE 274 DSPPUSHSTATE 267 STREAMPROP 222 \TEDIT.PARSE.PAGEFRAMES 179 \TEDIT.PARA.LAST 134 \TEDIT.APPLY.PARASTYLES 122 \TEDIT.ALIGNEDPIECE 98 DSPFONT 88 GETTEXTPROP 74 \TEDIT.SCALEREGION 61 DSPSCALE)
|
||
(566 DON'T 453 DON'T 385 PRINTERMODE 376 LANDSCAPE? 347 PAGEREGION 262 LANDSCAPE 257 PRINTERMODE 248 LANDSCAPE? 233 STARTINGPAGE# 216 NEWPAGELAYOUT 209 PARALOOKS 161 :NEW-PAGE-LAYOUT 148 NEWPAGELAYOUT 141 PARALOOKS 83 END-OF-PAGE-FN 67 PAGEREGION 51 PAGEREGION 39 TEXTOBJ 32 STREAM 23 TEXTOBJ 11 :SEARCHING-FOR-EQUIVALENT-PAGE)
|
||
()
|
||
\TEDIT.FORMATTEXTBOX :D8
|
||
(P 35 LINE P 34 LTAIL P 32 COLUMN-YBASE P 31 NEWPAGETYPE P 30 YBOT P 29 BREAKAFTERLASTPARA P 28 SPECIALYPOS P 27 PREVLINE P 26 LHEIGHT P 25 PARALOOKS P 24 LINE P 20 TEXTLEN P 19 KEPT-ONE-LINE P 18 LINE P 17 FOOTNOTE-REMNANTS P 16 FINAL-CHNO P 15 ORPHAN P 14 LINES P 13 PRIOR-COLUMN-YBOT P 12 PAGEFOOTNOTES P 11 FORCENEXTPAGE P 10 FOOTNOTELINES P 9 FIRSTLINE P 8 RTOP P 7 COLUMNBOTTOM P 6 REGION P 0 TEXTOBJ I 4 FORMATTINGSTATE I 3 PAGEREGION I 2 CHNO I 1 PRSTREAM I 0 TSTREAM) 1$ Dg ð’±!@Ã ‘@‡@ É QhA
|
||
CÉ
|
||
N_¿NNØmÿØ‘i_¿D_¿ OOñ³XOO_¿_$²KOO$É ÔOñ¢± ‚OO$hkhNHD
|
||
YI¹_¿II¹_"¿I_&™OO$É Ô_¿O"O
|
||
_¿DOHÉÁ BO(ñ£O²?O*_ hO
|
||
_ dO OBONHDO
|
||
OO$h
|
||
_¿OO$É Ô_±ÿJ ¿DZJd¿_0¿@BO0NAD
|
||
_0Él ð´g _¿O0É _4¿O0É(_2¿O0É <20>O0ÉkØb¿O0±†O2Ég '´‚± øO• ¿@AO0ND
|
||
_ ÉkØb¿D².DDO
|
||
¿ŒO!#OB_Dµh±_F¿OO4Ô_O<µOñ²]OOFhkhNHDlOhð
|
||
[K»_¿K_"¿DO"OD
|
||
¿BOD ÉkؼdLñ¡¿L_ ¿°ŽOOFh
|
||
_¿OD±ÿv_8¿O2ɲ(O2É]jð³ M—M ³O0Ê&jð¨O2É_8± ˆO@² O0Ê&jð³O2É&g ð˜O@O0ÉÕ°fO<²VO2É ²*O0ÉO2É ØO0Ê&jð³O2ÉO6 É(ÉØ€jØ_4¿O0Ê&jð³O2É&g ðœOdO<ñ’¿O<O4<4F>O<O4ŠOO0ÉO0ÉØÙ_<¿OO<ñ²O8³i_¿O0É_ ¿O0_ ¿h± «O³KO0Ê&jð³BO0É(É µO:_>²4g _¿O0É_ ¿h_ ¿O>ið³Dg ¿DO>¿h°]O2É"“i_:¿OµcO<_¿O0d ÉO0O< ¿O<Ø¿O0Ê&jð³O2É&g ð´O0 É_@¿h_¿O0ÉkØb¿O0_6_.¿O,µO.h_,_*¿±üÅdO<ñ²<C3B1>¿°˜O.&_,¿±ü³h (678 \FZEROP 641 \NCONC2 613 FLAST 603 COPY 598 \APPEND2 561 \TEDIT.HARDCOPY-COLUMN-END 499 COPY 494 \APPEND2 433 FLAST 426 \TEDIT.FORMAT.FOOTNOTE 413 \TEDIT.THELP 339 \TEDIT.FORMATLINE 296 BLOCK 276 \NCONC2 264 \TEDIT.HARDCOPY-COLUMN-END 243 DREMOVE 194 \APPEND2 154 \TEDIT.HARDCOPY-COLUMN-END 55 SCALEREGION 47 DSPSCALE)
|
||
(1010 LINEDESCRIPTOR 1000 FIRST 967 LINEDESCRIPTOR 926 SEARCHING 896 USERBREAK 798 FIRST 769 LINEDESCRIPTOR 719 NEXT 398 FOOTNOTE 353 USERBREAK 37 TEXTOBJ 30 STREAM 21 TEXTOBJ 10 SEARCHING)
|
||
()
|
||
\TEDIT.FORMATFOLIO :D8
|
||
(P 16 FORCENEXTPAGE P 15 YBOT P 14 LINE P 10 CHNO P 9 BOTTOM P 8 TEXTLEN P 7 INFOLIST P 6 POSTTEXT P 5 PRETEXT P 4 FOLIOFORMAT P 3 PAGE# P 2 FOLIOSTREAM P 1 FOLIOINFO P 0 REGION I 3 PAGEREGION I 2 FORMATTINGSTATE I 1 PRSTREAM I 0 TEXTOBJ) ] hA
|
||
C É
|
||
C ÉbBšIg '’±/Ig '_d\Oµo ]Oµo ^B<01>B°&Ldg ð™¿B °g ð˜Bi
|
||
†B [hdddg Ig 'g Ig 'h
|
||
ZdMKN khi
|
||
J ÉÉHkcOOñ³mO ³iJOhHAB
|
||
_ Él ð_ ¿O µHOO ÉÙ_ ¿O d ÉO O ¿O Ø¿O ÉkØ_¿O _¿Oµ
|
||
Oh__¿°žO&_¿°–O É °¼Oh (252 \TEDIT.FORMATLINE 211 TEDIT.INSERT 202 CONCAT 192 OPENTEXTSTREAM 152 MKSTRING 144 ROMANNUMERALS 127 ROMANNUMERALS 19 SCALEREGION 6 DSPSCALE)
|
||
(284 LINEDESCRIPTOR 217 STREAM 180 CHARLOOKS 174 LOOKS 168 PARALOOKS 162 PARALOOKS 134 UPPERROMAN 117 LOWERROMAN 51 FORMATINFO 40 NOFIRSTPAGE 25 PAGEREGION 12 PAGEREGION)
|
||
( 81 "" 68 "")
|
||
\TEDIT.FORMAT.FOUNDBOX? :D8
|
||
(I 1 FORMATTINGSTATE I 0 PAGEREGION) j Adg ð³(dg ð²!A@ É
|
||
ð´@Ag ig ð²øAAÙjð´Ag NIL
|
||
(101 FORMATTING 59 :SEARCHING-FOR-EQUIVALENT-PAGE 51 FORMATTING 36 PAGEREGION 20 SEARCHING 11 FORMATTING)
|
||
()
|
||
\TEDIT.SKIP.SPECIALCOND :D8
|
||
(P 2 PC P 0 HEADINGTYPE I 3 CHNO I 2 PARALOOKS I 1 LINE I 0 TSTREAM) <00> A g AkÏ&¿kjðhðAkÏ& ¿kjðhðAj AjAjAjAjACB É j@ É °/ ZÉ É g ð²HJÉ É ðšIJÉÔ¹JɵÓIØkÙKLL NIL
|
||
(110 PARALOOKS 98 PAGEHEADING 91 PARALOOKS 83 PIECE 74 STREAM 62 PARALOOKS 10 SPECIAL 5 LINEDESCRIPTOR)
|
||
()
|
||
\TEDIT.HARDCOPY.PAGEHEADINGS :D8
|
||
(P 8 P P 7 START P 6 FOLIOTEXTOBJ P 5 FOLIOSTREAM P 4 INFOLIST P 3 FOLIOINFO P 2 PC P 1 HEADINGSUBTYPE P 0 TEXTOBJ I 3 PAGEREGION I 2 FORMATTINGSTATE I 1 CHNO I 0 TSTREAM) ƒ Bªo ¿@Ã ‘@‡@ É !AH
|
||
ºJµLC É1KµAg '¼hdg Kg 'g Kg 'h ]à ¢± ˆM± ŒÉ É g ð²§JÉ É ¹AJ°5 _É É g ð² IOÉ É ðžAOÉÔb¿OɵÍBIOAH h@ ¿OZ±ÿ5M É ¾Ld²¿ML
|
||
¿L M
|
||
¿LŸML
|
||
¿Bg kNÉ@Ã ‘@‡@ É h@ ¿±þÁ (381 LISTPUT 376 \TEDIT.SELPIECES.COPY 369 \TEDIT.SELPIECES 321 TEDIT.INSERT 316 MKSTRING 300 TEDIT.INSERT.OBJECT 294 TEDIT.PAGENO.CREATE 286 TEDIT.INSERT 281 MKSTRING 243 LISTPUT 238 \TEDIT.SELPIECES.COPY 231 \TEDIT.SELPIECES 108 OPENTEXTSTREAM 44 \TEDIT.CHTOPC 11 \TEDIT.THELP)
|
||
(364 TEXTOBJ 357 STREAM 348 TEXTOBJ 338 \TEDIT.PAGENO 264 TEXTOBJ 257 STREAM 191 PARALOOKS 178 PAGEHEADING 171 PARALOOKS 162 PIECE 147 PARALOOKS 136 PAGEHEADING 129 PARALOOKS 114 TEXTOBJ 97 CHARLOOKS 91 LOOKS 85 PARALOOKS 79 PARALOOKS 70 FORMATINFO 55 PAGEREGION 34 TEXTOBJ 27 STREAM 18 TEXTOBJ)
|
||
( 6 "NIL FORMATTINGSTATE")
|
||
\TEDIT.HARDCOPY-COLUMN-END :D8
|
||
(P 10 LASTLINE P 8 LINE P 6 LINE P 5 YBOT P 2 LASTLINE P 1 REMOVED-LINES P 0 LINES I 9 DONT-KEEP-SINGLE-LINE I 8 FINAL-CHNO I 7 FORMATTINGSTATE I 6 TEXTOBJ I 5 REGION I 4 FOOTNOTELINES I 3 CHNO I 2 FORCENEXTPAGE I 1 ORPHAN I 0 ORIGINAL-LINES) Î
|
||
h@
|
||
b d Ah"Hµ@DµHµD¢±cHD
|
||
Ihd ED ÉÙLµ‚±°ÇOµ‚± »H ºAµqJ²JJ Ê&jð³=J Ê& jð²0J ÉFÉýñ²!JH
|
||
¸JI¹J Éb¿H ºH’± @¸Aµ‚± <00>@ ÉkØb¿±ÿ> Ê& jð³‡A Ê&jð¢±ÿyJH
|
||
¸JI¹J Éb¿H Z±ÿX_ É ²%OH
|
||
¿Gd²O ÉkØ»dKñ¡¿Kb¿O_±ÿ
|
||
ɱÿBg ð’±þµCFÉñ’±þ¬J É( Ê jð²$J É( É$¢±þ…J Ê& jð¢±þvH
|
||
OµpOµ Fo Go i ±þG É( Ê jð²ÒO Ê& jð³ÄOH
|
||
_¿HO
|
||
¸OI
|
||
¹O Éb°±_ É( Ê jð²&O É( É$¢±ÿkO Ê& jð¢±ÿ[O_±ÿP^d ÉNM ¿MØ¿MNÉ Ô½L\±ýÌA² @³G³ADhA ÉkØhG¢IµA´%hAhGhZdhIJd´ ÉkØh (529 \APPEND2 520 LDIFF 508 MEMB 463 TEDIT.PROMPTPRINT 457 CONCAT 426 REVERSE 301 DREMOVE 276 FLAST 254 DREMOVE 204 FLAST 182 FLAST 160 DREMOVE 104 FLAST 62 FLAST 53 REVERSE 41 \APPEND2 14 COPY 6 DREMOVE)
|
||
(707 LINEDESCRIPTOR 662 LINEDESCRIPTOR 618 LINEDESCRIPTOR 593 LINEDESCRIPTOR 580 PARALOOKS 573 LINEDESCRIPTOR 559 PARALOOKS 552 LINEDESCRIPTOR 538 LINEDESCRIPTOR 493 LINEDESCRIPTOR 479 PARALOOKS 472 LINEDESCRIPTOR 411 LINEDESCRIPTOR 399 PARALOOKS 392 LINEDESCRIPTOR 379 PARALOOKS 372 LINEDESCRIPTOR 352 USERBREAK 341 LINEDESCRIPTOR 314 LINEDESCRIPTOR 289 LINEDESCRIPTOR 265 LINEDESCRIPTOR 238 LINEDESCRIPTOR 225 LINEDESCRIPTOR 210 LINEDESCRIPTOR 171 LINEDESCRIPTOR 144 LINEDESCRIPTOR 131 LINEDESCRIPTOR 118 LINEDESCRIPTOR 68 LINEDESCRIPTOR)
|
||
( 452 " is completely full of headings " 444 "WARNING: Page ")
|
||
SCALEPAGEUNITS :D8
|
||
(P 1 OTHEREDGE P 0 TVAL I 2 PAPERSIZE I 1 FACTOR I 0 VALUE) > @d²:Aê B™Bdg ð•¿nd°g ð“ndˆB` jHñ“IHØH (10 FIXR)
|
||
(44 TEDIT.PAPER.SIZES 32 LEGAL 19 LETTER)
|
||
()
|
||
SCALEPAGEXUNITS :D8
|
||
(P 1 OTHEREDGE P 0 TVAL I 3 LANDSCAPE? I 2 PAPERSIZE I 1 FACTOR I 0 VALUE) @d² Aê jHñšBC
|
||
YHØH (24 \TEDIT.PAPERWIDTH 10 FIXR)
|
||
NIL
|
||
()
|
||
SCALEPAGEYUNITS :D8
|
||
(P 1 OTHEREDGE P 0 TVAL I 3 LANDSCAPE? I 2 PAPERSIZE I 1 FACTOR I 0 VALUE) @d² Aê jHñšBC
|
||
YHØH (24 \TEDIT.PAPERHEIGHT 10 FIXR)
|
||
NIL
|
||
()
|
||
\TEDIT.PAPERHEIGHT :D8
|
||
(I 1 LANDSCAPE? I 0 PAPERSIZE) ^ A—@h
|
||
@²@g ð¨@dg ð“ng ð³@g ð¨@dg ð“nðg ð¨@dg ð“nJ` (8 \TEDIT.PAPERWIDTH)
|
||
(87 TEDIT.PAPER.SIZES 76 a4 67 A4 56 LEGAL 47 8.5x14 38 Legal 27 Letter 18 LETTER)
|
||
()
|
||
\TEDIT.PAPERWIDTH :D8
|
||
(P 0 CANONICAL-PAPERSIZE I 1 LANDSCAPE? I 0 PAPERSIZE) q A—@h
|
||
@² @g ð³@g ð¨@dg ð“ndg ð³ö@g ð³í@dg ð³ãg ð¨@dg ð“nS` Xµ @ (107 \ILLEGAL.ARG 11 \TEDIT.PAPERHEIGHT)
|
||
(97 TEDIT.PAPER.SIZES 86 a4 77 A4 69 8.5x14 59 LEGAL 50 Legal 39 8.5x11 30 LETTER 21 Letter)
|
||
()
|
||
ROMANNUMERALS :D8
|
||
(P 0 CHARS I 1 UCFLG I 0 NUMBER) ™ @jð³(@µ nè@ñ³2g H¸@o Ôb °ß ²áA¢±\H n„@ñ³ g H¸g H¸@o Ôb ° nô@ñ³g H¸@o Ôb °†n<01>@ñ³ g H¸g H¸@o Ôb ±ÿdld@ñ³g H¸@mœÔb ±ÿMlZ@ñ³g H¸g H¸@m¦Ôb ±ÿ.l2@ñ³g H¸@mÎÔb ±ÿl(@ñ³g H¸g H¸@mØÔb ±þøl
|
||
@ñ³g H¸@möÔb ±þál @ñ³g H¸g H¸@m÷Ôb ±þÂl@ñ³g H¸@mûÔb ±þ«l@ñ³g H¸g H¸@müÔb ±þŒg H¸@mÿÔb ±þ{H (406 CONCATLIST 401 REVERSE 66 U-CASE 61 CONCATLIST 56 REVERSE 43 \FZEROP)
|
||
(383 i 366 v 358 i 335 v 312 x 304 i 281 x 258 l 250 x 227 l 204 c 196 x 173 c 147 d 139 c 113 d 87 m 79 c 24 m)
|
||
( 156 -400 122 -500 96 -900 33 -1000)
|
||
TEDIT.PAGENO.CREATE :D8
|
||
(P 0 OBJ I 0 FORMAT F 1 TEDIT.PAGENOOBJ.IMAGEFNS) hQ
|
||
Hg @µg H (28 IMAGEOBJPROP 6 IMAGEOBJCREATE)
|
||
(23 ARABIC 15 FORMAT)
|
||
()
|
||
\TEDIT.PAGENO.OBJINITA0001 :D8
|
||
(I 0 OBJ) @ (5 COPYALL)
|
||
NIL
|
||
()
|
||
\TEDIT.PAGENO.OBJINIT :D8
|
||
NIL ? g g g g g g g ddddhg g
|
||
(55 IMAGEFNSCREATE)
|
||
(60 TEDIT.PAGENOOBJ.IMAGEFNS 49 PageNumber 44 NILL 34 NILL 29 \TEDIT.PAGENO.BUTTONEVENTINFN 24 \TEDIT.PAGENO.OBJINITA0001 19 \TEDIT.PAGENO.GETFN 14 \TEDIT.PAGENO.PUTBOXFN 9 \TEDIT.PAGENO.IMAGEBOXFN 4 \TEDIT.PAGENO.DISPLAYFN)
|
||
()
|
||
\TEDIT.PAGENO.BUTTONEVENTINFN :D8
|
||
(P 0 FORMAT I 8 OPERATION I 7 BUTTON I 6 TEXTSTREAM I 5 SELWINDOW I 4 Y I 3 X I 2 SELECTION I 1 WINDOW I 0 IMAGEOBJ) v Gg ð´lGg ð´b ` do ¿dg ¿dg ¿jdnÿdh¹dI
|
||
¿ Xd´$d@g
|
||
ð³@g H g h (108 IMAGEOBJPROP 93 IMAGEOBJPROP 77 MENU)
|
||
(113 CHANGED 102 FORMAT 88 FORMAT 52 DEFAULTMENUHELDFN 43 CLRPROMPT 27 |MENUTYPE#| 16 NORMAL 6 LEFT)
|
||
( 34 ((Arabic (QUOTE ARABIC)) ("Lower Roman" (QUOTE LOWERROMAN)) (" Upper Roman" (QUOTE UPPERROMAN))))
|
||
\TEDIT.PAGENO.IMAGEBOXFN :D8
|
||
(P 3 XSIZE P 2 YSIZE P 1 FORMAT P 0 FONT I 1 IMAGESTREAM I 0 OBJ F 4 PAGE#) — hA
|
||
@g
|
||
"H È
|
||
ZA ²;o Idg ð—¿o °g ð•o ‰o o °)Idg ð˜¿T °g ð—Ti
|
||
…T H
|
||
dJjdh (139 STRINGWIDTH 133 MKSTRING 126 ROMANNUMERALS 110 ROMANNUMERALS 92 CONCAT 82 MKSTRING 35 DISPLAYSTREAMP 17 IMAGEOBJPROP 6 DSPFONT)
|
||
(117 UPPERROMAN 101 LOWERROMAN 64 UPPERROMAN 49 LOWERROMAN 26 FONTDESCRIPTOR 12 FORMAT)
|
||
( 87 "]" 77 "1" 71 "X" 57 "x" 42 "[P#")
|
||
\TEDIT.PAGENO.DISPLAYFN :D8
|
||
(P 0 FORMAT I 3 HOSTSTREAM I 2 IMAGESTREAMTYPE I 1 IMAGESTREAM I 0 OBJ F 1 PAGE#) ~ @g
|
||
A ²;o Hdg ð—¿o °g ð•o ‰o o °)Hdg ð˜¿Q °g ð—Qi
|
||
…Q A
|
||
(123 PRIN3 117 MKSTRING 110 ROMANNUMERALS 94 ROMANNUMERALS 76 CONCAT 66 MKSTRING 19 DISPLAYSTREAMP 10 IMAGEOBJPROP)
|
||
(101 UPPERROMAN 85 LOWERROMAN 48 UPPERROMAN 33 LOWERROMAN 5 FORMAT)
|
||
( 71 "]" 61 "1" 55 "X" 41 "x" 26 "[P#")
|
||
\TEDIT.PAGENO.GETFN :D8
|
||
(P 1 OBJ P 0 X I 0 FILESTREAM F 2 PAGENOOBJ.IMAGEFNS) * @o i
|
||
|
||
HR
|
||
Yd HI (27 IMAGEOBJCREATE 16 READ 11 FIND-READTABLE)
|
||
(34 IMAGEOBJ)
|
||
( 5 "INTERLISP")
|
||
\TEDIT.PAGENO.PUTFN :D8
|
||
(I 1 FILESTREAM I 0 OBJ) # @ É @ ÉAo (32 PRINT 27 FIND-READTABLE)
|
||
(13 IMAGEOBJ 5 IMAGEOBJ)
|
||
( 22 "INTERLISP")
|
||
\TEDIT.FORMAT.FOOTNOTE :D8
|
||
(P 6 PREVLINE P 2 CHNO P 1 TEXTLEN P 0 LEFT I 4 FORMATTINGSTATE I 3 REGION I 2 LINE I 1 PRSTREAM I 0 TSTREAM) £ C@Ã ‘@‡@ É ÉB ÉCJIñ³mNœN Ê& jð´_@JDCAD
|
||
b B ÉHÔ¿B B ÉHÔ¿BÉkغB^½Lµ Mh\»°—M&¼°’hK
|
||
(160 DREMOVE 90 \TEDIT.FORMATLINE 4 BLOCK)
|
||
(122 LINEDESCRIPTOR 116 LINEDESCRIPTOR 103 LINEDESCRIPTOR 97 LINEDESCRIPTOR 54 LINEDESCRIPTOR 36 LINEDESCRIPTOR 28 TEXTOBJ 21 STREAM 12 TEXTOBJ)
|
||
()
|
||
(PRETTYCOMPRINT TEDIT-PAGECOMS)
|
||
(RPAQQ TEDIT-PAGECOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS TEDITPAPERSIZE) (EXPORT (RECORDS
|
||
PAGEFORMATTINGSTATE PAGEREGION) (MACROS GETPFS SETPFS)) (MACROS \FIRST-COLUMN-START) (* ;;
|
||
"Replaces CL:MULTIPLE-VALUE-SETQ, to avoid CL:VALUES") (EXPORT (MACROS TEDIT.SETQS TEDIT.VALUES))) (
|
||
INITRECORDS PAGEREGION) (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.CHARLOOKS.FROM.FONT (FONTCOPY NIL (QUOTE (FAMILY MODERN
|
||
SIZE 10 WEIGHT MEDIUM SLOPE REGULAR))))))) (VARS (MAXPAGE# 65535) (MINPAGE# 1)) (COMS (* ;;
|
||
"Creation, GET, and PUT of page frames.") (FNS \TEDIT.PARSE.PAGEFRAMES \TEDIT.PUT.PAGEFRAMES
|
||
\TEDIT.UNPARSE.PAGEFRAMES)) (COMS (* ;; "Public functions for setting up page layouts") (FNS
|
||
TEDIT.SINGLE.PAGEFORMAT TEDIT.COMPOUND.PAGEFORMAT TEDIT.PAGEFORMAT TEDIT.GET.PAGEFORMAT) (INITVARS (
|
||
TEDIT.PAGE.FRAMES (TEDIT.COMPOUND.PAGEFORMAT (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))))) (FNS TEDIT.TO.IMAGEFILE) (P (
|
||
DEFAULT.IMAGETYPE.CONVERSIONS (QUOTE (TEDIT TEDIT.TO.IMAGEFILE)))) (COMS (* ;;
|
||
"Perform page layout, based on a regular expression of typed regions.") (FNS \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.PAGEHEADINGS) (* ;;
|
||
" 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 (* ;
|
||
"Page number image obj") (FNS TEDIT.PAGENO.CREATE \TEDIT.PAGENO.OBJINIT \TEDIT.PAGENO.BUTTONEVENTINFN
|
||
\TEDIT.PAGENO.IMAGEBOXFN \TEDIT.PAGENO.DISPLAYFN \TEDIT.PAGENO.GETFN \TEDIT.PAGENO.PUTFN) (P (
|
||
\TEDIT.PAGENO.OBJINIT))) (COMS (* ;; "Foot note support") (FNS \TEDIT.FORMAT.FOOTNOTE))))
|
||
(/DECLAREDATATYPE (QUOTE PAGEREGION) (QUOTE (POINTER POINTER POINTER FULLXPOINTER POINTER POINTER)) (
|
||
QUOTE ((PAGEREGION 0 POINTER) (PAGEREGION 2 POINTER) (PAGEREGION 4 POINTER) (PAGEREGION 6 FULLXPOINTER
|
||
) (PAGEREGION 8 POINTER) (PAGEREGION 10 POINTER))) (QUOTE 12))
|
||
(RPAQ? TEDIT.DEFAULT.FOLIO.LOOKS (\TEDIT.CHARLOOKS.FROM.FONT (FONTCOPY NIL (QUOTE (FAMILY MODERN SIZE
|
||
10 WEIGHT MEDIUM SLOPE REGULAR)))))
|
||
(RPAQQ MAXPAGE# 65535)
|
||
(RPAQQ MINPAGE# 1)
|
||
(RPAQ? TEDIT.PAGE.FRAMES (TEDIT.COMPOUND.PAGEFORMAT (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)))
|
||
(DEFAULT.IMAGETYPE.CONVERSIONS (QUOTE (TEDIT TEDIT.TO.IMAGEFILE)))
|
||
(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)))
|
||
(\TEDIT.PAGENO.OBJINIT)
|
||
NIL
|