252 lines
22 KiB
Plaintext
252 lines
22 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED " 6-Apr-2026 09:45:18" ("compiled on " {WMEDLEY}<sources>MEDLEYFONTFORMAT.;304)
|
||
" 5-Apr-2026 14:39:36" brecompiled exprs%: MEDLEYFONT.GETCHARSET in "FULL 5-Apr-2026 ..." dated
|
||
" 5-Apr-2026 14:39:44")
|
||
(FILECREATED " 6-Apr-2026 09:45:18" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;304 63514 :EDIT-BY rmk
|
||
:CHANGES-TO (FNS MEDLEYFONT.GETCHARSET MEDLEYFONT.FILENAME MEDLEYFONT.READ.FONT) :PREVIOUS-DATE
|
||
" 4-Apr-2026 15:29:42" {WMEDLEY}<sources>MEDLEYFONTFORMAT.;301)
|
||
MEDLEYFONT.WRITE.FONTA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 14 A0153 P 13 A0152 P 12 A0151 P 11 A0149 P 10 A0150 P 9 A0148 P 8 CSINFO P 7 CSNO P 5 SINGLECS P 4 CSLOC P 3 CSVECTORPTRLOC P 2 *READTABLE* P 1 FONTCHARENCODING P 0 CHARSETLOCS I 0 SI::*CLEANUP-FORMS* F 15 STREAM F 16 FONT F 17 NOINDIRECTS F 18 OTHERFONTPROPS F 19 A0147) € W W$W ¿W g W È
|
||
djð’¿lÿ ¿W È
|
||
djð’¿lÿkØg j W g
|
||
o 3W g
|
||
kñhð´ W g
|
||
jðµW g
|
||
jð½W »W j
|
||
¿W W
|
||
¿o W
|
||
¿W ¿W ¼W K
|
||
¿W M“jLÙ€L
|
||
¿W L
|
||
¿M¢± <00>W È
|
||
djð’¿lÿjONó³*W É OàÐÉ _µ
|
||
OkÔ_°è Ê jð²îOµi€h]²6W M
|
||
¿W W g
|
||
jð‘k<E28098>l
|
||
¿W MW W" ¿±W W g
|
||
jð’mÿ<6D>mþ
|
||
¿± åW È
|
||
djð’¿lÿjONó³W j
|
||
¿OkÔ_°íW È
|
||
djð’¿lÿjONó³eW É OàÐÉ _µ°M Ê jð³H! O_¿mÿ_OO·°,H
|
||
O_¿W O OO·W OW W" ¿OkÔ_°›W L
|
||
¿W È
|
||
djð’¿lÿjONó³W HO¶
|
||
¿OkÔ_°êW hc&¿$ (630 \MVLIST 624 FULLNAME 607 \FIXPOUT 569 SETFILEPTR 551 MEDLEYFONT.WRITE.CHARSET 526 GETFILEPTR 425 \FIXPOUT 387 \FIXPOUT 374 FONTPROP 356 MEDLEYFONT.WRITE.CHARSET 343 \BOUT 331 FONTPROP 316 \FIXPOUT 231 SETFILEPTR 222 \FIXPOUT 207 SETFILEPTR 198 GETFILEPTR 190 TERPRI 182 PRIN1 169 MEDLEYFONT.WRITE.FONTPROPS 159 \FIXPOUT 150 GETFILEPTR 140 FONTPROP 124 FONTPROP 106 FONTPROP 91 FIND-READTABLE 81 FONTPROP 69 CL:MAKE-ARRAY 39 MEDLEYFONT.WRITE.ITEM 10 MEDLEYFONT.WRITE.HEADER)
|
||
(577 FONTDESCRIPTOR 482 CHARSETINFO 442 FONTDESCRIPTOR 398 FONTDESCRIPTOR 369 NUNINSTANTIATEDCHARSETS 326 NUNINSTANTIATEDCHARSETS 290 CHARSETINFO 244 FONTDESCRIPTOR 135 NUNINSTANTIATEDCHARSETS 119 NEMPTYCHARSETS 101 NINSTANTIATEDCHARSETS 76 CHARENCODING 63 :INITIAL-ELEMENT 47 FONTDESCRIPTOR 25 FONTDESCRIPTOR 18 MAXCHARSET)
|
||
( 175 "CHARSET LOCATIONS" 86 "INTERLISP")
|
||
MEDLEYFONT.WRITE.FONTA0002 :D8
|
||
(F 0 STREAM F 1 A0147) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
MEDLEYFONT.WRITE.FONT :D8
|
||
(P 1 A0147 P 0 STREAM I 3 NOINDIRECTS I 2 OTHERFONTPROPS I 1 FILE I 0 FONT) M @ b A g g g g
|
||
ig Hg I ¿$ (70 CL:CLOSE 58 \MVLIST 53 MEDLEYFONT.WRITE.FONTA0001 39 OPEN 13 MEDLEYFONT.FILENAME 5 FONTCREATE)
|
||
(64 :ABORT 48 MEDLEYFONT.WRITE.FONTA0002 33 :NEW-VERSION 28 :IF-EXISTS 23 :OUTPUT 18 :DIRECTION)
|
||
()
|
||
MEDLEYFONT.GETCHARSETA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 3 STREAM F 4 FONT F 5 SI::*RESETFORMS* F 6 CHARSET F 7 DIRECTORY) Ý Sg i ³$Sµ‚± ‚o Sg
|
||
chUc
|
||
¿Sk
|
||
VSg
|
||
ñ¢± ˆTd È
|
||
djð“¿nÿÿkØHÉ IàÐÉ µ-T É T È
|
||
djð“¿nÿÿkØàT HIÐJ J¢±ÿSd3@ð¢±ÿuSd—¿kSñœSg ð¢±ÿZSW
|
||
c¿±ÿLSVTS (218 MEDLEYFONT.GETCHARSET.INTERNAL 213 \FIXPIN 198 MEDLEYFONT.FILENAME 137 \BUILDSLUGCSINFO 66 MEDLEYFONT.READ.ITEM 54 MEDLEYFONT.FILEVERSION 37 OPENSTREAM 11 \GETSTREAM)
|
||
(185 * 118 FONTDESCRIPTOR 110 FONTDESCRIPTOR 78 FONTDESCRIPTOR 61 MAXCHARSET 32 INPUT 5 INPUT)
|
||
( 26 (PROGN (CLOSEF? OLDVALUE)))
|
||
MEDLEYFONT.GETCHARSET :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 DIRECTORY I 2 FONT I 1 CHARSET I 0 STREAM F 3 LISPXHIST) & A bS!g ¿$ (31 SI::RESETUNWIND 26 \MVLIST 21 MEDLEYFONT.GETCHARSETA0001 5 CHARSET.DECODE)
|
||
(16 SI::RESETUNWIND)
|
||
()
|
||
MEDLEYFONT.GETCHARSET.INTERNAL :D8
|
||
(P 2 ALLOTHERS P 1 FILECHARSET P 0 CSINFO I 3 CSLOC I 2 FONT I 1 CHARSET I 0 STREAM) V `jCñ¢± ×@jCÙ
|
||
@ Y@ ZIdmÿð²Q¿Bd È
|
||
djð’¿lÿkØ»É KàÐÉ µ‚±B É B È
|
||
djð’¿lÿkØàB NOÐO Omþð‘hAIÙjð—@A
|
||
Jkð´‚± ·Bd È
|
||
djð’¿lÿkØ¼É LàÐÉ µ‚± —B É B È
|
||
djð’¿lÿkØàB NOÐO O@CAààØ
|
||
@ bdjð³ƒmÿð²LBd È
|
||
djð’¿lÿkØ½É MàÐÉ µ/B É B È
|
||
djð’¿lÿkØàB NOÐO O@C
|
||
@AB (339 MEDLEYFONT.READ.CHARSET 331 SETFILEPTR 310 \BUILDSLUGCSINFO 238 \FIXPIN 232 SETFILEPTR 207 \BUILDSLUGCSINFO 133 MEDLEYFONT.READ.CHARSET 100 \BUILDSLUGCSINFO 24 \FIXPIN 18 SETFILEPTR)
|
||
(292 FONTDESCRIPTOR 284 FONTDESCRIPTOR 257 FONTDESCRIPTOR 189 FONTDESCRIPTOR 181 FONTDESCRIPTOR 150 FONTDESCRIPTOR 82 FONTDESCRIPTOR 74 FONTDESCRIPTOR 43 FONTDESCRIPTOR)
|
||
()
|
||
MEDLEYFONT.CHARSET? :D8
|
||
(I 1 CHARSET I 0 FILE) $ A b@g
|
||
AµHH
|
||
(32 MEMB 18 MEDLEYFONT.GETFILEPROP 5 CHARSET.DECODE)
|
||
(13 CHARSETS)
|
||
()
|
||
MEDLEYFONT.GETFILEPROPA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 4 CS P 2 SINGLECS P 1 CSLOC P 0 HEADERPROPS I 0 SI::*CLEANUP-FORMS* F 8 STREAM F 9 PROP F 10 A0154) 0W X³o W
|
||
¿Wg
|
||
¿W ¹Wdg ð–¿H± ¯dg ð–¿H± dg ðš¿W ± <00>dg ð²b¿jIñ²!WjIÙ
|
||
¿W ºjJñ¤Jh°ah°^WI
|
||
¿lÿj2LKó³%W jñœL_¿NµOh^½LkÔ\°áO&¾°öM°#g ðŸg W ‰o hc¿$ (246 \MVLIST 240 ERROR 226 MEDLEYFONT.READ.FONTPROPS 175 \FIXPIN 156 SETFILEPTR 135 \FIXPIN 127 SETFILEPTR 99 MEDLEYFONT.READ.FONTPROPS 50 \FIXPIN 42 MEDLEYFONT.READ.ITEM 29 ERROR 24 FULLNAME 9 MEDLEYFONT.FILEP)
|
||
(219 INDIRECTS 212 INDIRECTS 108 CHARSETS 89 FONTPROPS 74 DATE 59 OTHERPROPS 37 MAXCHARSET)
|
||
( 235 "Unknown MEDLEYFONT property" 17 "Not a MEDLEYFONT file")
|
||
MEDLEYFONT.GETFILEPROPA0002 :D8
|
||
(F 0 STREAM F 1 A0154) Pg Q (11 CL:CLOSE)
|
||
(5 :ABORT)
|
||
()
|
||
MEDLEYFONT.GETFILEPROP :D8
|
||
(P 1 A0154 P 0 STREAM I 1 PROP I 0 FILE) t @g i ™@ b °+@d3@ð³#@ ³@ g
|
||
b ¿@g g ig Hg I ¿$ (109 CL:CLOSE 97 \MVLIST 92 MEDLEYFONT.GETFILEPROPA0001 78 OPEN 58 FONTFILES 53 FONTPROP 43 FONTCREATE 35 STRINGP 18 FULLNAME 11 \GETSTREAM)
|
||
(103 :ABORT 87 MEDLEYFONT.GETFILEPROPA0002 73 :INPUT 68 :DIRECTION 48 SPEC 5 INPUT)
|
||
()
|
||
MEDLEYFONT.FILEPA0001A0003 :D8
|
||
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 SI::NLSETQ-VALUE) W i@g Rg
|
||
hg R hg Rg
|
||
hRg
|
||
hcg (72 MEDLEYFONT.READ.ITEM 58 MEDLEYFONT.READ.ITEM 39 FULLNAME 25 MKATOM 20 MEDLEYFONT.READ.ITEM)
|
||
(84 :NORMAL 67 OTHERFONTPROPS 53 DATE 47 DATE 33 FILE 15 VERSION 9 VERSION)
|
||
()
|
||
MEDLEYFONT.FILEPA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 7 *CONDITION-HANDLER-BINDINGS* P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE P 3 C P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 8 FILE F 9 SI::*RESETFORMS* F 10 *PROCEED-CASES* F 11 *CONDITION-HANDLER-BINDINGS*) œ Wg i ”WX° o Wg
|
||
XhWc¿H Yjð³I–I §Hj
|
||
¿o Jµ0i´+` Wio WM g ð´L[H ð¢h°ÈJZ°¿ (144 READCCODE 123 MEDLEYFONT.FILEPA0001A0003 77 SETFILEPTR 69 \FZEROP 54 GETFILEPTR 38 OPENSTREAM 15 \GETSTREAM)
|
||
(129 :NORMAL 102 SI::NLSETQ-PROCEED-CASE 33 INPUT 9 INPUT)
|
||
( 111 (CL:ERROR . SI::NLSETQHANDLER) 83 (77 101 100 108 101 121 32 102 111 110 116) 26 (PROGN (CLOSEF? OLDVALUE)))
|
||
MEDLEYFONT.FILEP :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FILE F 3 LISPXHIST) S!g ¿$ (23 SI::RESETUNWIND 18 \MVLIST 13 MEDLEYFONT.FILEPA0001)
|
||
(8 SI::RESETUNWIND)
|
||
()
|
||
MEDLEYFONT.FILEVERSION :D8
|
||
(P 0 FILEVERSION I 1 REQUIRED I 0 FILE) ; g @ AµHHð³üo Ho Ao
|
||
@
|
||
¿°Ü (54 ERROR 48 CONCAT 10 MEDLEYFONT.FILEP)
|
||
(4 VERSION)
|
||
( 42 " is required" 36 ", " 30 "Medley font version is ")
|
||
MEDLEYFONT.READ.FONTA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 5 CSNO P 3 MAXCHARSET P 2 CSLOC P 1 FONT P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 6 CHARSETS F 7 SI::*RESETFORMS* F 8 FILE) ƒ @o Wg
|
||
XhWcHk
|
||
Hg
|
||
[H ZH YKjMLó¢VµIg ð³MdVð²$¿VVc ¿²I É MàÐHMIJ ¿MkÔ]°Ä (120 MEDLEYFONT.GETCHARSET.INTERNAL 60 MEDLEYFONT.READ.VERIFIEDFONT 53 \FIXPIN 46 MEDLEYFONT.READ.ITEM 35 MEDLEYFONT.FILEVERSION 19 OPENSTREAM)
|
||
(106 FONTDESCRIPTOR 80 ALL 41 MAXCHARSET 14 INPUT)
|
||
( 7 (PROGN (CLOSEF? OLDVALUE)))
|
||
MEDLEYFONT.READ.FONT :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 NOERROR I 1 CHARSETS I 0 FILE F 3 LISPXHIST) a @ b d ¯B«o @
|
||
hAo
|
||
³Ad£d‘hB
|
||
b´ S!g ¿$ (90 SI::RESETUNWIND 85 \MVLIST 80 MEDLEYFONT.READ.FONTA0001 62 SORT 57 CHARSET.DECODE 41 MEMB 27 ERROR 13 INFILEP 5 MEDLEYFONT.FILENAME)
|
||
(75 SI::RESETUNWIND)
|
||
( 36 (NIL ALL) 21 "FILE NOT FOUND")
|
||
MEDLEYFONT.READ.CHARSET :D8
|
||
(P 4 ITEM P 3 LABEL P 2 PAIR P 1 CSINFO P 0 CSNO I 2 FONT I 1 CHARSET I 0 STREAM) • @g
|
||
A@g
|
||
Xð¯o AHh
|
||
¿@ g ð²@g
|
||
@
|
||
AB ` dh ¿dh¿dnÿÿÍ¿1@ Z»J¼Kdg ð²)¿I ɳI I É ¿I AÍIg ð›I L ¿°±Kdg ðœ¿I L¿°›g ð›I L¿°ˆKdg ð<>¿I L¿±ÿrg ðœI LÍ
|
||
¿±ÿ^Kdg ð<>¿I LÍ ¿±ÿGg ðœI L ¿±ÿ3Kdg ð<>¿I L¿±ÿ g ðœI L¿±ÿKg ð²I L‘k€jÏ ¿±þío K
|
||
¿±þÞ (399 HELP 116 MEDLEYFONT.READ.ITEM 83 MEDLEYFONT.GETCHARSET 76 MEDLEYFONT.FILENAME 70 MEDLEYFONT.READ.ITEM 50 MEDLEYFONT.PEEK.ITEM 43 ERROR 25 MEDLEYFONT.READ.ITEM 10 MEDLEYFONT.READ.ITEM)
|
||
(376 CHARSETINFO 367 CSCOMPLETEP 354 CHARSETINFO 346 CSINFOPROPS 334 CHARSETINFO 325 BITMAP 311 CHARSETINFO 303 LEFTKERN 291 CHARSETINFO 282 DESCENT 268 CHARSETINFO 260 ASCENT 248 CHARSETINFO 239 YWIDTHS 226 CHARSETINFO 218 IMAGEWIDTHS 207 CHARSETINFO 198 OFFSETS 185 CHARSETINFO 177 WIDTHS 167 CHARSETINFO 156 CHARSETINFO 150 CHARSETINFO 140 CHARSETINFO 130 STOP 89 |CHARSETINFOTYPE#| 65 INDIRECTCHARSET 56 INDIRECTCHARSET 20 CHARSET 5 CHARSETSTRING)
|
||
( 393 "Unrecognized charsetinfo label" 33 "Charset mismatch")
|
||
MEDLEYFONT.READ.ITEM :D8
|
||
(P 29 BLOCK P 28 NWORDS P 27 ORIG P 26 NELTS P 25 ARRAY P 24 I P 22 ALLFIXED P 21 ORIG P 20 NELTS P 19 I P 17 ALLFIXED P 16 ARRAY P 15 ELT P 11 X P 9 X P 5 NELTS P 4 LABEL P 3 *PACKAGE* P 2 *READTABLE* P 0 ITEM I 1 LABEL? I 0 STREAM) Ä! @g
|
||
HŸ@g h ¿±ƒg g "@ ¼@ ¿L@ dkð™¿@ á@ رBdlð™¿@ ±3djð™¿@ ±%dlð²;¿@ @ _dg ð•¿N±O_¿Oµ Oh_¾°ÕO&_¿°Ídl ð²*¿ @ _g ðOO
|
||
_¿°äO±¸dl
|
||
ð²G¿@@ _ dg ð²™OO
|
||
¿O±‰_ ¿Oµ
|
||
O h__¿°ÉO &_¿°Ádlð™¿@ ±^dlð²a¿@ g @g
|
||
@ kð@ jO&O$ó³&O O&O"–@ ‡@ ¿O&kÔ_&°ÙO ± ùdlð²`¿@ @ @ kðO*kð’O(ƒO(kÙO*O(hdO* O0O.ó³&O2O0O,–@ ‡@O0
|
||
¿O0kÔ_0°ÙO2± •dl ð²0¿@ @ O4@g
|
||
hO6 O6O4@ °`dlð²E¿@ O8kØâ @O:O8à O< É
|
||
É>¹O<O>jO@lIO:°lð–@ ‰o h¸@ AµHdHð³o
|
||
H
|
||
¿A²æH (698 ERROR 692 CONCAT 670 READCCODE 660 SHOULDNT 649 HREAD 592 \ALLOCBLOCK 579 \FIXPIN 563 AIN 553 ARRAY 545 MEDLEYFONT.READ.ITEM 527 \FIXPIN 498 SETA 493 MEDLEYFONT.READ.ITEM 484 \FIXPIN 461 ARRAY 427 \FIXPIN 398 CL::ROW-MAJOR-ASET 391 MEDLEYFONT.READ.ITEM 384 \FIXPIN 360 \FIXPIN 347 CL:MAKE-ARRAY 342 MEDLEYFONT.READ.ITEM 326 READ 310 \READBINARYBITMAP 263 \NCONC2 239 MEDLEYFONT.READ.ITEM 212 \NCONC2 193 MEDLEYFONT.READ.ITEM 130 MEDLEYFONT.READ.ITEM 111 READ 97 \FIXPIN 67 READCCODE 60 RATOM 51 CL:FIND-PACKAGE 41 FIND-READTABLE 27 PUTSTREAMPROP 10 GETSTREAMPROP)
|
||
(618 FDEV 611 STREAM 540 ARRAYTYP 337 ELEMENT-TYPE 331 :ELEMENT-TYPE 248 STOP 201 STOP 139 STOP 46 INTERLISP 36 INTERLISP 21 MEDLEYFONT.PEEKEDITEM 5 MEDLEYFONT.PEEKEDITEM)
|
||
( 687 " item not found" 655 "UNKNOWN MEDLEYFONT DATA TYPE")
|
||
MEDLEYFONT.PEEK.ITEM :D8
|
||
(P 0 PEEKEDITEM I 1 LABEL? I 0 STREAM) Q @g
|
||
H³@g @ X ¿AµHdHð³ ¿o Ho A H
|
||
¿A²ÝH (71 ERROR 65 CONCAT 34 PUTSTREAMPROP 28 MEDLEYFONT.READ.ITEM 10 GETSTREAMPROP)
|
||
(22 MEDLEYFONT.PEEKEDITEM 5 MEDLEYFONT.PEEKEDITEM)
|
||
( 59 " instead of " 52 "Peeked ")
|
||
MEDLEYFONT.READ.FONTPROPS :D8
|
||
(P 3 PAIR I 0 STREAM) & @@ [dg ð‘HºIµ JhY¸°åJ&¹°à (8 MEDLEYFONT.READ.ITEM)
|
||
(16 STOP)
|
||
()
|
||
MEDLEYFONT.READ.VERIFIEDFONT :D8
|
||
(P 4 VAL P 3 P P 1 FONT P 0 FONTPROPS I 1 FONT I 0 STREAM) & @ ` dh ¿dlÿÍ
|
||
¿H!Jµ,I lI²I È
|
||
djð’¿lÿµlÿØi
|
||
I[¼Kdg ðœ¿I L ±¹dg ð²¿I L‘k€jÏ ±ždg ð²¿I L‘k€jÏ ±ƒdg ðœ¿I L±ndg ðœ¿I L±Ydg ðœ¿I L±Ddg ðœ¿I Lͱ/dg ðœ¿I LÍ ±dg ðœ¿I LÍ
|
||
±dg ðœ¿I LÍ ± ðdg ðœ¿I LÍ
|
||
± Ûdg ðœ¿I LÍ ± Ædg ðœ¿I L± ±dg ðœ¿I L± œdg ðœ¿I L± ‡dg ð›¿I L°rdg ð›¿I LÍ°^dg ð›¿I L °Jdg ð²¿I L‘k€jÏ °0dg ð›¿I L ° dg ð³g ðªo ¿JZ±ýý (541 HELP 71 \ALLOCBLOCK 5 MEDLEYFONT.READ.FONTPROPS)
|
||
(529 \SFFACECODE 521 INDIRECTS 510 FONTDESCRIPTOR 501 FONTEXTRAFIELD2 485 FONTDESCRIPTOR 475 FONTHASLEFTKERNS 464 FONTDESCRIPTOR 455 FONTCHARENCODING 444 FONTDESCRIPTOR 435 FONTAVGCHARWIDTH 424 FONTDESCRIPTOR 415 FONTSCALE 403 FONTDESCRIPTOR 394 OTHERDEVICEFONTPROPS 382 FONTDESCRIPTOR 373 FONTDEVICESPEC 361 FONTDESCRIPTOR 352 FONTTOMCCSFN 340 FONTDESCRIPTOR 331 FONTSLUGWIDTH 319 FONTDESCRIPTOR 310 MAXCHARSET 298 FONTDESCRIPTOR 289 ROTATION 277 FONTDESCRIPTOR 268 \SFHeight 256 FONTDESCRIPTOR 247 \SFDescent 235 FONTDESCRIPTOR 226 \SFAscent 214 FONTDESCRIPTOR 205 FONTFACE 193 FONTDESCRIPTOR 184 FONTSIZE 172 FONTDESCRIPTOR 163 FONTFAMILY 146 FONTDESCRIPTOR 136 FONTCOERCEDP 119 FONTDESCRIPTOR 109 FONTCOMPLETEP 97 FONTDESCRIPTOR 88 FONTDEVICE 51 FONTDESCRIPTOR 40 FONTDESCRIPTOR 10 |FONTDESCRIPTORTYPE#|)
|
||
( 536 "UNKNOWN FONTDESCRIPTOR PROPERTY: P")
|
||
MEDLEYFONT.WRITE.CHARSET :D8
|
||
(P 10 IM P 9 W P 8 I P 6 SOURCE P 5 INDIRECT P 4 CSCHARENCODING P 3 CSINFO I 3 NOINDIRECTS I 2 STREAM I 1 CHARSET I 0 FONT) ^ A@ È
|
||
djð’¿lÿñ²P@d È
|
||
djð’¿lÿkØHÉ IàÐÉ µW@ É @ È
|
||
djð’¿lÿkØà@ HIÐJ ¿J°)@É AàÐÉ µ @ É AàA@
|
||
HIÐJ ¿J!Bg A Bg A Kd¢±± Ê jð´‚±¡C³\K Ê jð´g K ÉNd²6@g
|
||
ô³'NNN NNN€h]€h²Bg Mhg
|
||
Bg K Éhg
|
||
Bg K É K ÉK É ð³VlÿlØkÙjK É K É
|
||
OOó³ OOÐÈ OOÐÈ ð¡hˆOkÔ_°ãi³Bg K É ¿Bg K É Bg K É Bg K È
|
||
Bg K È Bg K É Bg K É Bg K Ê jðhð Bg i (603 MEDLEYFONT.WRITE.ITEM 591 MEDLEYFONT.WRITE.ITEM 567 MEDLEYFONT.WRITE.ITEM 548 MEDLEYFONT.WRITE.ITEM 529 MEDLEYFONT.WRITE.ITEM 510 MEDLEYFONT.WRITE.ITEM 491 MEDLEYFONT.WRITE.ITEM 472 MEDLEYFONT.WRITE.ITEM 452 MEDLEYFONT.WRITE.ITEM 350 MEDLEYFONT.WRITE.ITEM 331 MEDLEYFONT.WRITE.ITEM 304 MEDLEYFONT.WRITE.ITEM 255 FONTFACETOATOM 238 FONTPROP 167 MEDLEYFONT.WRITE.ITEM 155 MEDLEYFONT.WRITE.ITEM 150 MKSTRING 123 \CREATECHARSET 82 \BUILDSLUGCSINFO)
|
||
(597 STOP 579 CHARSETINFO 573 CSCOMPLETEP 560 CHARSETINFO 554 BITMAP 541 CHARSETINFO 535 LEFTKERN 522 CHARSETINFO 516 DESCENT 503 CHARSETINFO 497 ASCENT 484 CHARSETINFO 478 YWIDTHS 465 CHARSETINFO 459 OFFSETS 445 CHARSETINFO 439 IMAGEWIDTHS 391 CHARSETINFO 383 CHARSETINFO 364 CHARSETINFO 356 CHARSETINFO 343 CHARSETINFO 337 WIDTHS 325 ALIST 317 CHARSETINFO 311 CSINFOPROPS 298 PRINT 291 INDIRECTCHARSET 233 DEVICESPEC 216 CHARSETINFO 210 SOURCE 198 CHARSETINFO 178 CHARSETINFO 161 CHARSET 144 CHARSETSTRING 112 FONTDESCRIPTOR 64 FONTDESCRIPTOR 56 FONTDESCRIPTOR 25 FONTDESCRIPTOR 6 FONTDESCRIPTOR)
|
||
()
|
||
MEDLEYFONT.WRITE.ITEM :D8
|
||
(P 19 ELT P 18 ALLFIXED P 17 I P 15 KEY P 14 DTAIL P 12 KEY P 11 X P 9 TAIL P 8 I P 6 TAIL P 1 *PACKAGE* P 0 *READTABLE* I 5 BLOCKNELTS I 4 TYPE I 3 EVENIFNIL I 2 ITEM I 1 LABEL I 0 STREAM) c g g "B¦C´‚±DA@
|
||
o @
|
||
DµB dg ð²!¿@k
|
||
¿@Bã
|
||
¿@Blÿå
|
||
±údg ð²¿@l
|
||
¿@B
|
||
±Ýdg ð³dg ð¨dg ð²¿@j
|
||
¿B@
|
||
±°dg 𢱠‡¿BiL^µŒZ”J3´N°ñ½N”N3´M²@j
|
||
¿B@
|
||
±o@l
|
||
|
||
¿Bk O_¿O²'@OOi ¿Od³¿@g Oi ¿±/_¿OkÔ_¿°Çdg ð²V¿@l
|
||
¿B! Oµ@g i ±õ__d3@ð³O«o B
|
||
¿@OOC ¿O_°¾dg ð²U¿@l
|
||
¿B!O_ µ@g i ±–_ d3@ð³O «o B
|
||
¿@O O C ¿O °¿dg ð²¿@l
|
||
¿B@
|
||
±Kdg ð³dg ðªdg 𢱠·¿@l
|
||
¿B @
|
||
¿@g B ¿B kÙj"B kÙjOOó³BO
|
||
3 ¡hˆOkÔ_°èi_$¿@O$‘k€j
|
||
¿@B kÙ
|
||
¿O"O ó³-BO"
|
||
_&¿O$˜@O&
|
||
Š@O"O&i ¿O"kÔ_"°Ò±|g ð¢±B g 𢱠¼@l
|
||
¿@B
|
||
¿@B
|
||
¿B B kÙØB B B kÙØB OOó³BO
|
||
3 ¡hˆOkÔ_°èi_$¿@O$‘k€j
|
||
¿O"O ó³/O$Ÿ@BO"
|
||
|
||
°@O"BO"
|
||
i ¿O"kÔ_"°Ð± ©@l
|
||
¿@B
|
||
¿@B
|
||
¿@g B ¿Bd B @ °]B ²C@l
|
||
¿E§lÿlØb
|
||
¿@E
|
||
¿@BEàO( É
|
||
É@»O(O*jO,lK°@l
|
||
¿B@id ¿@ (1120 TERPRI 1113 HPRINT 1103 BOUT 1056 \FIXPOUT 1038 BOUT 1028 \BLOCKDATAP 1020 AOUT 1014 ARRAYSIZE 1008 ARRAYORIG 1000 MEDLEYFONT.WRITE.ITEM 995 ARRAYTYP 982 BOUT 977 ARRAYORIG 969 \FIXPOUT 964 ARRAYSIZE 956 BOUT 935 MEDLEYFONT.WRITE.ITEM 929 ELT 916 \FIXPOUT 911 ELT 891 BOUT 861 ELT 843 ARRAYORIG 834 ARRAYSIZE 828 ARRAYORIG 819 ARRAYORIG 810 ARRAYSIZE 804 ARRAYORIG 797 BOUT 792 ARRAYORIG 784 \FIXPOUT 779 ARRAYSIZE 771 BOUT 753 ARRAYTYP 724 MEDLEYFONT.WRITE.ITEM 712 \FIXPOUT 698 XCL:ROW-MAJOR-AREF 682 \FIXPOUT 675 CL:ARRAY-TOTAL-SIZE 667 BOUT 637 XCL:ROW-MAJOR-AREF 616 CL:ARRAY-TOTAL-SIZE 604 CL:ARRAY-TOTAL-SIZE 597 MEDLEYFONT.WRITE.ITEM 592 CL:ARRAY-ELEMENT-TYPE 579 PRIN2 573 CL:ARRAY-DIMENSIONS 566 BOUT 526 \PRINTBINARYBITMAP 518 BOUT 493 MEDLEYFONT.WRITE.ITEM 479 ERROR 451 MEDLEYFONT.WRITE.ITEM 426 BOUT 400 MEDLEYFONT.WRITE.ITEM 387 ERROR 356 MEDLEYFONT.WRITE.ITEM 333 BOUT 297 MEDLEYFONT.WRITE.ITEM 273 MEDLEYFONT.WRITE.ITEM 245 BOUT 234 PRIN2 226 BOUT 169 PRIN2 161 BOUT 124 \FIXPOUT 116 BOUT 95 \BOUT 84 \BOUT 75 BOUT 58 TYPENAME 49 PRIN1 38 PRIN2 19 CL:FIND-PACKAGE 9 FIND-READTABLE)
|
||
(1078 FDEV 1071 STREAM 989 ARRAYTYP 758 POINTER 742 ARRAYP 586 ELEMENT-TYPE 552 GENERAL-ARRAY 544 TWOD-ARRAY 535 ONED-ARRAY 506 BITMAP 445 STOP 414 PLIST 350 STOP 321 ALIST 288 STOP 178 LISTP 150 PRINT 142 STRINGP 133 LITATOM 104 FIXP 64 SMALLP 14 INTERLISP 4 INTERLISP)
|
||
( 473 "NOT A PLIST" 381 "NOT AN ALIST" 43 " ")
|
||
MEDLEYFONT.WRITE.FONTPROPS :D8
|
||
(P 5 INDIRECT P 4 CSINFO P 2 FSPEC P 1 CS I 1 FONT I 0 STREAM) ü @g A É i @g A Ê jðhði @g A Ê jðhði @g A Éi @g A Éi @g A Éi @g A Èi @g A È i @g A È
|
||
i @g A È i @g A È
|
||
i @g A È i @g A Éi @g A Éi @g A Éi @g A Éi @g A Èi @g A É i @g A Ê jðhði @g A È
|
||
djð’¿lÿjAg
|
||
3IHó³4AÉ IàÐÉ \²#g L É]ŸJMô«MK
|
||
£MK»IkÔY°ÌKi @g i (505 MEDLEYFONT.WRITE.ITEM 493 MEDLEYFONT.WRITE.ITEM 474 MEMBER 427 FONTPROP 394 MEDLEYFONT.WRITE.ITEM 369 MEDLEYFONT.WRITE.ITEM 349 MEDLEYFONT.WRITE.ITEM 329 MEDLEYFONT.WRITE.ITEM 309 MEDLEYFONT.WRITE.ITEM 289 MEDLEYFONT.WRITE.ITEM 269 MEDLEYFONT.WRITE.ITEM 249 MEDLEYFONT.WRITE.ITEM 229 MEDLEYFONT.WRITE.ITEM 209 MEDLEYFONT.WRITE.ITEM 189 MEDLEYFONT.WRITE.ITEM 169 MEDLEYFONT.WRITE.ITEM 149 MEDLEYFONT.WRITE.ITEM 129 MEDLEYFONT.WRITE.ITEM 109 MEDLEYFONT.WRITE.ITEM 89 MEDLEYFONT.WRITE.ITEM 69 MEDLEYFONT.WRITE.ITEM 44 MEDLEYFONT.WRITE.ITEM 19 MEDLEYFONT.WRITE.ITEM)
|
||
(499 STOP 457 CHARSETINFO 451 SOURCE 422 SPEC 406 FONTDESCRIPTOR 400 INDIRECTS 381 FONTDESCRIPTOR 375 FONTHASLEFTKERNS 361 FONTDESCRIPTOR 355 FONTCHARENCODING 341 FONTDESCRIPTOR 335 FONTAVGCHARWIDTH 321 FONTDESCRIPTOR 315 FONTSCALE 301 FONTDESCRIPTOR 295 OTHERDEVICEFONTPROPS 281 FONTDESCRIPTOR 275 FONTDEVICESPEC 261 FONTDESCRIPTOR 255 FONTTOMCCSFN 241 FONTDESCRIPTOR 235 FONTSLUGWIDTH 221 FONTDESCRIPTOR 215 MAXCHARSET 201 FONTDESCRIPTOR 195 ROTATION 181 FONTDESCRIPTOR 175 \SFHeight 161 FONTDESCRIPTOR 155 \SFDescent 141 FONTDESCRIPTOR 135 \SFAscent 121 FONTDESCRIPTOR 115 FONTFACE 101 FONTDESCRIPTOR 95 FONTSIZE 81 FONTDESCRIPTOR 75 FONTFAMILY 56 FONTDESCRIPTOR 50 FONTCOERCEDP 31 FONTDESCRIPTOR 25 FONTCOMPLETEP 11 FONTDESCRIPTOR 5 FONTDEVICE)
|
||
()
|
||
MEDLEYFONT.WRITE.HEADER :D8
|
||
(I 2 FONT I 1 OTHERFONTPROPS I 0 STREAM) A o @
|
||
¿@ @g o @g @g Ai (62 MEDLEYFONT.WRITE.ITEM 49 MEDLEYFONT.WRITE.ITEM 44 DATE 33 MEDLEYFONT.WRITE.ITEM 17 TERPRI 10 PRIN1)
|
||
(55 OTHERFONTPROPS 39 DATE 23 VERSION)
|
||
( 28 "1" 4 "Medley font")
|
||
MEDLEYFONT.FILENAME :D8
|
||
(P 3 EXT P 2 DIR P 1 HOST P 0 FONTSPEC I 2 EXTENSION I 1 DIRECTORY I 0 FILE) ¹ @@d²=d²9d3@ð²1@d—¿k@ñš@g ð²@Xhdddi
|
||
b ¿†@ ¸AµUHg
|
||
d£d‘hZg
|
||
¹g @g Ig Jg BµHg
|
||
d£d‘h
|
||
g
|
||
¹Ag
|
||
º°µ (180 FILENAMEFIELD 168 FILENAMEFIELD 157 PACKFILENAME 143 FONTDEVICEPROP 105 FILENAMEFIELD 86 FONTDEVICEPROP 71 FONTSPECFROMFILENAME 61 \FONTFILENAME 56 \FONT.CHECKARGS)
|
||
(175 DIRECTORY 163 HOST 138 FONTEXTENSIONS 129 EXTENSION 123 DIRECTORY 117 HOST 111 BODY 100 HOST 81 FONTDIRECTORIES 40 *)
|
||
()
|
||
(PRETTYCOMPRINT MEDLEYFONTFORMATCOMS)
|
||
(RPAQQ MEDLEYFONTFORMATCOMS ((* ;; "Eventually, MEDLEYFONT should be a package") (* ;;
|
||
"Main public entries") (FNS MEDLEYFONT.WRITE.FONT MEDLEYFONT.GETCHARSET MEDLEYFONT.GETCHARSET.INTERNAL
|
||
MEDLEYFONT.CHARSET? MEDLEYFONT.GETFILEPROP MEDLEYFONT.FILEP MEDLEYFONT.FILEVERSION) (* ;; "Reading")
|
||
(FNS MEDLEYFONT.READ.FONT MEDLEYFONT.READ.CHARSET MEDLEYFONT.READ.ITEM MEDLEYFONT.PEEK.ITEM
|
||
MEDLEYFONT.READ.FONTPROPS MEDLEYFONT.READ.VERIFIEDFONT) (* ;; "Writing") (FNS MEDLEYFONT.WRITE.CHARSET
|
||
MEDLEYFONT.WRITE.ITEM MEDLEYFONT.WRITE.FONTPROPS MEDLEYFONT.WRITE.HEADER) (FNS MEDLEYFONT.FILENAME) (
|
||
ADDVARS (DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT) (DISPLAYCHARSETFNS (MEDLEYFONT MEDLEYFONT.FILEP
|
||
MEDLEYFONT.GETCHARSET)) (INTERPRESSFONTEXTENSIONS MEDLEYINTERPRESSFONT)) (DECLARE%: EVAL@COMPILE
|
||
DONTCOPY (CONSTANTS (PRINTDATA 0) (SMALLPDATA 1) (BITMAPDATA 2) (WORDBLOCKDATA 3) (CLARRAYDATA 4) (
|
||
FIXPDATA 5) (ILPOINTERARRAY 6) (ILNUMBERARRAY 11) (HPRINTDATA 7) (ALISTDATA 8) (PLISTDATA 9) (LISTDATA
|
||
10)))))
|
||
(ADDTOVAR DISPLAYFONTEXTENSIONS MEDLEYDISPLAYFONT)
|
||
(ADDTOVAR DISPLAYCHARSETFNS (MEDLEYFONT MEDLEYFONT.FILEP MEDLEYFONT.GETCHARSET))
|
||
(ADDTOVAR INTERPRESSFONTEXTENSIONS MEDLEYINTERPRESSFONT)
|
||
NIL
|