246 lines
21 KiB
Plaintext
246 lines
21 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "17-Apr-2026 09:32:49" ("compiled on " {MEDLEY}<sources>MEDLEYFONTFORMAT.;310)
|
||
"16-Apr-2026 11:19:55" brecompiled exprs%: MEDLEYFONT.FILEVERSION in "FULL 16-Apr-2026 ..." dated
|
||
"16-Apr-2026 11:20:03")
|
||
(FILECREATED "17-Apr-2026 09:32:49" {MEDLEY}<sources>MEDLEYFONTFORMAT.;310 64484 :EDIT-BY rmk
|
||
:CHANGES-TO (FNS MEDLEYFONT.FILEVERSION MEDLEYFONT.GETFILEPROP) :PREVIOUS-DATE "15-Apr-2026 23:17:13"
|
||
{WMEDLEY}<sources>MEDLEYFONTFORMAT.;308)
|
||
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 0 STREAM F 1 SI::*RESETFORMS* F 2 CHARSET F 3 FONT) J Pg i ³ o Pg
|
||
c hQc¿Pk
|
||
Pg
|
||
PRSP (71 MEDLEYFONT.GETCHARSET.INTERNAL 66 \FIXPIN 57 MEDLEYFONT.READ.ITEM 46 MEDLEYFONT.FILEVERSION 29 OPENSTREAM 11 \GETSTREAM)
|
||
(52 MAXCHARSET 24 INPUT 5 INPUT)
|
||
( 18 (PROGN (CLOSEF? OLDVALUE)))
|
||
MEDLEYFONT.GETCHARSET :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST 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 5 ALLOTHERS P 4 FILECHARSET P 3 CSINFO I 3 CSLOC I 2 FONT I 1 CHARSET I 0 STREAM) ¶ AB È
|
||
ñ²SBd È
|
||
djð“¿nÿÿkØHÉ IàÐÉ µ‚±vB É B È
|
||
djð“¿nÿÿkØàB HIÐJ J`jCñ¢± Ø@jCÙ
|
||
@ \@ ]Ldmÿð²P¿Bd È
|
||
djð“¿nÿÿkØ¾É NàÐÉ µ‚±B É B È
|
||
djð“¿nÿÿkØàB HIÐJ Jmþð‘hALÙjð—@A
|
||
Mkð´‚± »Bd È
|
||
djð“¿nÿÿkØ_¿É OàÐÉ µ‚± —B É B È
|
||
djð“¿nÿÿkØàB HIÐJ J@CAààØ
|
||
@ bdjð³<C3B0>mÿð²NBd È
|
||
djð“¿nÿÿkØ_¿É OàÐÉ µ-B É B È
|
||
djð“¿nÿÿkØàB HIÐJ J@C
|
||
@AB (435 MEDLEYFONT.READ.CHARSET 427 SETFILEPTR 409 \BUILDSLUGCSINFO 332 \FIXPIN 326 SETFILEPTR 304 \BUILDSLUGCSINFO 225 MEDLEYFONT.READ.CHARSET 195 \BUILDSLUGCSINFO 117 \FIXPIN 111 SETFILEPTR 81 \BUILDSLUGCSINFO)
|
||
(390 FONTDESCRIPTOR 382 FONTDESCRIPTOR 351 FONTDESCRIPTOR 285 FONTDESCRIPTOR 277 FONTDESCRIPTOR 242 FONTDESCRIPTOR 176 FONTDESCRIPTOR 168 FONTDESCRIPTOR 136 FONTDESCRIPTOR 62 FONTDESCRIPTOR 54 FONTDESCRIPTOR 18 FONTDESCRIPTOR 6 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 5 CS P 3 MAXCHARSET P 2 SINGLECS P 1 CSLOC P 0 HEADERPROPS I 0 SI::*CLEANUP-FORMS* F 9 STREAM F 10 PROP F 11 A0154) @W X³o W
|
||
¿Wg
|
||
»W ¹Wdg ð–¿H± ¿dg ð–¿H± °dg ð”¿K± £dg ðš¿W ± <00>dg ð²e¿jIñ²!WjIÙ
|
||
¿W ºjJñ¤Jh°dh°aWI
|
||
¿Kj2MLó³)W jñžM_¿OµOh_¾MkÔ]°ßO&_¿°ôN°#g ðŸg W ‰o hc¿$ (262 \MVLIST 256 ERROR 242 MEDLEYFONT.READ.FONTPROPS 187 \FIXPIN 169 SETFILEPTR 148 \FIXPIN 140 SETFILEPTR 112 MEDLEYFONT.READ.FONTPROPS 50 \FIXPIN 42 MEDLEYFONT.READ.ITEM 29 ERROR 24 FULLNAME 9 MEDLEYFONT.FILEP)
|
||
(235 INDIRECTS 228 INDIRECTS 121 CHARSETS 102 FONTPROPS 89 MAXCHARSET 74 DATE 59 OTHERPROPS 37 MAXCHARSET)
|
||
( 251 "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) ` @g i —@ °@ µ
|
||
o @
|
||
b dg g ig Hg I ¿$ (89 CL:CLOSE 77 \MVLIST 72 MEDLEYFONT.GETFILEPROPA0001 58 OPEN 40 ERROR 26 FONTFILES 18 FULLNAME 11 \GETSTREAM)
|
||
(83 :ABORT 67 MEDLEYFONT.GETFILEPROPA0002 53 :INPUT 48 :DIRECTION 5 INPUT)
|
||
( 34 "FILE NOT FOUND")
|
||
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 1 FILEVERSION P 0 PROPS I 1 REQUIRED I 0 FILE) L @ µ
|
||
o @
|
||
g HAµIIð³üo Io Ao
|
||
@
|
||
¿°Ü (71 ERROR 65 CONCAT 18 ERROR 5 MEDLEYFONT.FILEP)
|
||
(26 VERSION)
|
||
( 59 " is required" 53 ", " 47 "Medley font version is " 12 "Not a Medley font")
|
||
MEDLEYFONT.READ.FONTA0001 :D8
|
||
(NAME SI::*UNWIND-PROTECT* P 6 CSNO P 4 MAXCHARSET P 3 CSLOC P 2 FONT P 1 STREAM P 0 FILENAME I 0 SI::*CLEANUP-FORMS* F 7 CHARSETS F 8 SI::*RESETFORMS* F 9 FILE F 10 DIRECTORY) <00> WW
|
||
Ao Hg
|
||
YhWcIk
|
||
Ig
|
||
\I [I ZLjNMó£WµJg ð³NdWð²&¿WWc¿²J É NàÐINJK ¿NkÔ^°À (132 MEDLEYFONT.GETCHARSET.INTERNAL 68 MEDLEYFONT.READ.VERIFIEDFONT 61 \FIXPIN 54 MEDLEYFONT.READ.ITEM 43 MEDLEYFONT.FILEVERSION 27 OPENSTREAM 8 MEDLEYFONT.FILENAME)
|
||
(118 FONTDESCRIPTOR 89 ALL 49 MAXCHARSET 22 INPUT)
|
||
( 16 (PROGN (CLOSEF? OLDVALUE)))
|
||
MEDLEYFONT.READ.FONT :D8
|
||
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 DIRECTORY I 2 NOERROR I 1 CHARSETS I 0 FILE F 3 LISPXHIST) B Ao
|
||
³Ad£d‘hB
|
||
b´ S!g ¿$ (59 SI::RESETUNWIND 54 \MVLIST 49 MEDLEYFONT.READ.FONTA0001 31 SORT 26 CHARSET.DECODE 10 MEMB)
|
||
(44 SI::RESETUNWIND)
|
||
( 5 (NIL ALL))
|
||
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
|
||
¿±þÞ (404 HELP 121 MEDLEYFONT.READ.ITEM 88 MEDLEYFONT.GETCHARSET 81 MEDLEYFONT.FILENAME 76 FULLNAME 70 MEDLEYFONT.READ.ITEM 50 MEDLEYFONT.PEEK.ITEM 43 ERROR 25 MEDLEYFONT.READ.ITEM 10 MEDLEYFONT.READ.ITEM)
|
||
(381 CHARSETINFO 372 CSCOMPLETEP 359 CHARSETINFO 351 CSINFOPROPS 339 CHARSETINFO 330 BITMAP 316 CHARSETINFO 308 LEFTKERN 296 CHARSETINFO 287 DESCENT 273 CHARSETINFO 265 ASCENT 253 CHARSETINFO 244 YWIDTHS 231 CHARSETINFO 223 IMAGEWIDTHS 212 CHARSETINFO 203 OFFSETS 190 CHARSETINFO 182 WIDTHS 172 CHARSETINFO 161 CHARSETINFO 155 CHARSETINFO 145 CHARSETINFO 135 STOP 94 |CHARSETINFOTYPE#| 65 INDIRECTCHARSET 56 INDIRECTCHARSET 20 CHARSET 5 CHARSETSTRING)
|
||
( 398 "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 ¿dnÿÿÍ
|
||
¿H!JµAI @ I lI²I È
|
||
djð“¿nÿÿµnÿÿØ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±ýè (563 HELP 93 \ALLOCBLOCK 52 PSEUDOFILENAME 47 FULLNAME 5 MEDLEYFONT.READ.FONTPROPS)
|
||
(551 \SFFACECODE 543 INDIRECTS 532 FONTDESCRIPTOR 523 FONTEXTRAFIELD2 507 FONTDESCRIPTOR 497 FONTHASLEFTKERNS 486 FONTDESCRIPTOR 477 FONTCHARENCODING 466 FONTDESCRIPTOR 457 FONTAVGCHARWIDTH 446 FONTDESCRIPTOR 437 FONTSCALE 425 FONTDESCRIPTOR 416 OTHERDEVICEFONTPROPS 404 FONTDESCRIPTOR 395 FONTDEVICESPEC 383 FONTDESCRIPTOR 374 FONTTOMCCSFN 362 FONTDESCRIPTOR 353 FONTSLUGWIDTH 341 FONTDESCRIPTOR 332 MAXCHARSET 320 FONTDESCRIPTOR 311 ROTATION 299 FONTDESCRIPTOR 290 \SFHeight 278 FONTDESCRIPTOR 269 \SFDescent 257 FONTDESCRIPTOR 248 \SFAscent 236 FONTDESCRIPTOR 227 FONTFACE 215 FONTDESCRIPTOR 206 FONTSIZE 194 FONTDESCRIPTOR 185 FONTFAMILY 168 FONTDESCRIPTOR 158 FONTCOERCEDP 141 FONTDESCRIPTOR 131 FONTCOMPLETEP 119 FONTDESCRIPTOR 110 FONTDEVICE 71 FONTDESCRIPTOR 60 FONTDESCRIPTOR 41 FONTDESCRIPTOR 10 |FONTDESCRIPTORTYPE#|)
|
||
( 558 "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
|
||
(I 1 DIRECTORY I 0 FILE) N g @d²9d²5d3@ð²-@d—¿k@ñš@g ð²@hdddi
|
||
€@g A (75 PACKFILENAME 62 \FONTFILENAME 57 \FONT.CHECKARGS)
|
||
(69 BODY 42 * 4 BODY)
|
||
()
|
||
(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
|