From 075ca1a9f18378aec73a75b1d5467a5eee9b457e Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Sat, 14 Feb 2026 14:06:06 -0800 Subject: [PATCH] Reading indirect charsets in MEDLEYFONT doesn't smash the default font (#2496) --- sources/FONT | 91 +++++++++++++++++----------------- sources/FONT.LCOM | Bin 67997 -> 67946 bytes sources/MEDLEYFONTFORMAT | 34 +++++++------ sources/MEDLEYFONTFORMAT.LCOM | Bin 21299 -> 21290 bytes 4 files changed, 65 insertions(+), 60 deletions(-) diff --git a/sources/FONT b/sources/FONT index f80a67e4..1bafa48e 100644 --- a/sources/FONT +++ b/sources/FONT @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "26-Jan-2026 16:37:58" {WMEDLEY}FONT.;664 276319 +(FILECREATED " 6-Feb-2026 23:44:25" {WMEDLEY}FONT.;671 276511 :EDIT-BY rmk - :CHANGES-TO (VARS FONTCOMS) - (FNS \CREATEFONT FONTPROP) + :CHANGES-TO (FNS \FINDFONTFILE) - :PREVIOUS-DATE "22-Jan-2026 14:25:36" {WMEDLEY}FONT.;659) + :PREVIOUS-DATE " 6-Feb-2026 00:24:55" {WMEDLEY}FONT.;670) (PRETTYCOMPRINT FONTCOMS) @@ -704,7 +703,8 @@ (CLOSEF? STRM))))]) (\READCHARSET - [LAMBDA (FONTSPEC CHARSET FONT) (* ; "Edited 11-Nov-2025 14:30 by rmk") + [LAMBDA (FONTSPEC CHARSET FONT) (* ; "Edited 6-Feb-2026 00:03 by rmk") + (* ; "Edited 11-Nov-2025 14:30 by rmk") (* ; "Edited 2-Sep-2025 23:57 by rmk") (* ; "Edited 28-Aug-2025 23:17 by rmk") (* ; "Edited 25-Aug-2025 12:03 by rmk") @@ -717,7 +717,7 @@ (* ;; "This finds the first file in the directories/extensions order that contains information about charset, determines its format, and reads it in. The assumption is that the first such existing file is the one we want. ") - (CL:WHEN (EQ 0 (fetch (FONTSPEC FSROTATION) of FONTSPEC)) + (CL:WHEN (AND FONTSPEC (EQ 0 (fetch (FONTSPEC FSROTATION) of FONTSPEC))) (RESETLST (for FILE STRM CSINFO in (FONTFILES FONTSPEC CHARSET) do @@ -1840,6 +1840,7 @@ (\FINDFONTFILE [LAMBDA (FAMILY SIZE FACE ROTATION DEVICE CHARSET DIRLST EXTLST) + (* ; "Edited 6-Feb-2026 23:44 by rmk") (* ; "Edited 22-Jan-2026 08:54 by rmk") (* ; "Edited 3-Dec-2025 23:38 by rmk") (* ; "Edited 9-Jun-2025 09:40 by rmk") @@ -4484,43 +4485,43 @@ (ADDTOVAR LAMA FONTCOPY) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (11455 21168 (CHARWIDTH 11465 . 12250) (CHARWIDTHY 12252 . 13769) (STRINGWIDTH 13771 . -14864) (\CHARWIDTH.DISPLAY 14866 . 15279) (\STRINGWIDTH.DISPLAY 15281 . 15705) (\STRINGWIDTH.GENERIC -15707 . 21166)) (21169 27689 (DEFAULTFONT 21179 . 22464) (FONTCLASS 22466 . 24628) (FONTCLASSUNPARSE -24630 . 25529) (FONTCLASSCOMPONENT 25531 . 26119) (SETFONTCLASSCOMPONENT 26121 . 26563) ( -GETFONTCLASSCOMPONENT 26565 . 27687)) (29402 46906 (FONTCREATE 29412 . 32657) (FONTCREATE1 32659 . -35274) (FONTCREATE.SLUGFD 35276 . 36758) (\FONT.CHECKARGS1 36760 . 41283) (\FONTCREATE1.NOFN 41285 . -41499) (FONTFILEP 41501 . 42389) (\READCHARSET 42391 . 46904)) (46907 53983 (\FONT.CHECKARGS 46917 . -53666) (\CHARSET.CHECK 53668 . 53981)) (53984 60595 (COERCEFONTSPEC 53994 . 59906) ( -COERCEFONTSPEC.TARGETFACE 59908 . 60593)) (62790 64129 (MAKEFONTSPEC 62800 . 64127)) (64130 72307 ( -COMPLETE.FONT 64140 . 66663) (COMPLETEFONTP 66665 . 67288) (COMPLETE.CHARSET 67290 . 69975) ( -PRUNESLUGCSINFOS 69977 . 70902) (MONOSPACEFONTP 70904 . 72305)) (72346 80792 (FONTASCENT 72356 . 72740 -) (FONTDESCENT 72742 . 73227) (FONTHEIGHT 73229 . 73631) (FONTPROP 73633 . 80069) (\AVGCHARWIDTH 80071 - . 80790)) (81449 82357 (FONTDEVICEPROP 81459 . 82355)) (82403 83257 (EDITCHAR 82413 . 83255)) (83303 -95493 (GETCHARBITMAP 83313 . 84437) (PUTCHARBITMAP 84439 . 86597) (\GETCHARBITMAP.CSINFO 86599 . 88615 -) (\PUTCHARBITMAP.CSINFO 88617 . 95491)) (95494 115974 (MOVECHARBITMAP 95504 . 97398) (MOVEFONTCHARS -97400 . 101360) (\MOVEFONTCHAR 101362 . 106205) (\MOVEFONTCHARS.SOURCEDATA 106207 . 112312) ( -\MAKESLUGCHAR 112314 . 114849) (SLUGCHARP.DISPLAY 114851 . 115972)) (116632 128360 (FONTFILES 116642 - . 118475) (\FINDFONTFILE 118477 . 120345) (\FONTFILENAMES 120347 . 120907) (\FONTFILENAME 120909 . -123820) (FONTSPECFROMFILENAME 123822 . 128358)) (128361 164936 (FONTCOPY 128371 . 133434) (FONTP -133436 . 133735) (FONTUNPARSE 133737 . 135456) (SETFONTDESCRIPTOR 135458 . 136922) (\STREAMCHARWIDTH -136924 . 141088) (\COERCECHARSET 141090 . 144457) (\BUILDSLUGCSINFO 144459 . 148082) (\FONTSYMBOL -148084 . 148734) (\DEVICESYMBOL 148736 . 149605) (\FONTFACE 149607 . 156797) (\FONTFACE.COLOR 156799 - . 163719) (SETFONTCHARENCODING 163721 . 164934)) (164937 184598 (FONTSAVAILABLE 164947 . 170301) ( -FONTEXISTS? 170303 . 173842) (\SEARCHFONTFILES 173844 . 176929) (FLUSHFONTCACHE 176931 . 179154) ( -FINDFONTFILES 179156 . 182370) (SORTFONTSPECS 182372 . 184596)) (184599 188706 (MATCHFONTFACE 184609 - . 185424) (MAKEFONTFACE 185426 . 186452) (FONTFACETOATOM 186454 . 188704)) (189337 189829 ( -\UNITWIDTHSVECTOR 189347 . 189827)) (204458 206525 (FONTDESCRIPTOR.DEFPRINT 204468 . 206047) ( -FONTCLASS.DEFPRINT 206049 . 206523)) (210354 213144 (\CREATEKERNELEMENT 210364 . 210722) ( -\FSETLEFTKERN 210724 . 211215) (\FGETLEFTKERN 211217 . 213142)) (213145 224220 (\CREATEFONT 213155 . -216033) (\CREATECHARSET 216035 . 219971) (\INSTALLCHARSETINFO 219973 . 223307) ( -\INSTALLCHARSETINFO.CHARENCODING 223309 . 224218)) (224542 225906 (\FONTRESETCHARWIDTHS 224552 . -225904)) (226536 236577 (\CREATEDISPLAYFONT 226546 . 228395) (\CREATECHARSET.DISPLAY 228397 . 234106) -(\FONTEXISTS?.DISPLAY 234108 . 236575)) (236578 251443 (STRIKEFONT.FILEP 236588 . 237476) ( -STRIKEFONT.GETCHARSET 237478 . 243070) (WRITESTRIKEFONTFILE 243072 . 247983) (STRIKECSINFO 247985 . -251441)) (251474 267791 (MAKEBOLD.CHARSET 251484 . 255133) (MAKEBOLD.CHAR 255135 . 256887) ( -MAKEITALIC.CHARSET 256889 . 260562) (MAKEITALIC.CHAR 260564 . 262910) (\SFMAKEBOLD 262912 . 265136) ( -\SFMAKEITALIC 265138 . 267789)) (267792 271941 (\SFMAKEROTATEDFONT 267802 . 269203) (\SFROTATECSINFO -269205 . 269842) (\SFROTATEFONTCHARACTERS 269844 . 270224) (\SFROTATECSINFOOFFSETS 270226 . 271939)) ( -271942 273323 (\SFMAKECOLOR 271952 . 273321))))) + (FILEMAP (NIL (11414 21127 (CHARWIDTH 11424 . 12209) (CHARWIDTHY 12211 . 13728) (STRINGWIDTH 13730 . +14823) (\CHARWIDTH.DISPLAY 14825 . 15238) (\STRINGWIDTH.DISPLAY 15240 . 15664) (\STRINGWIDTH.GENERIC +15666 . 21125)) (21128 27648 (DEFAULTFONT 21138 . 22423) (FONTCLASS 22425 . 24587) (FONTCLASSUNPARSE +24589 . 25488) (FONTCLASSCOMPONENT 25490 . 26078) (SETFONTCLASSCOMPONENT 26080 . 26522) ( +GETFONTCLASSCOMPONENT 26524 . 27646)) (29361 46989 (FONTCREATE 29371 . 32616) (FONTCREATE1 32618 . +35233) (FONTCREATE.SLUGFD 35235 . 36717) (\FONT.CHECKARGS1 36719 . 41242) (\FONTCREATE1.NOFN 41244 . +41458) (FONTFILEP 41460 . 42348) (\READCHARSET 42350 . 46987)) (46990 54066 (\FONT.CHECKARGS 47000 . +53749) (\CHARSET.CHECK 53751 . 54064)) (54067 60678 (COERCEFONTSPEC 54077 . 59989) ( +COERCEFONTSPEC.TARGETFACE 59991 . 60676)) (62873 64212 (MAKEFONTSPEC 62883 . 64210)) (64213 72390 ( +COMPLETE.FONT 64223 . 66746) (COMPLETEFONTP 66748 . 67371) (COMPLETE.CHARSET 67373 . 70058) ( +PRUNESLUGCSINFOS 70060 . 70985) (MONOSPACEFONTP 70987 . 72388)) (72429 80875 (FONTASCENT 72439 . 72823 +) (FONTDESCENT 72825 . 73310) (FONTHEIGHT 73312 . 73714) (FONTPROP 73716 . 80152) (\AVGCHARWIDTH 80154 + . 80873)) (81532 82440 (FONTDEVICEPROP 81542 . 82438)) (82486 83340 (EDITCHAR 82496 . 83338)) (83386 +95576 (GETCHARBITMAP 83396 . 84520) (PUTCHARBITMAP 84522 . 86680) (\GETCHARBITMAP.CSINFO 86682 . 88698 +) (\PUTCHARBITMAP.CSINFO 88700 . 95574)) (95577 116057 (MOVECHARBITMAP 95587 . 97481) (MOVEFONTCHARS +97483 . 101443) (\MOVEFONTCHAR 101445 . 106288) (\MOVEFONTCHARS.SOURCEDATA 106290 . 112395) ( +\MAKESLUGCHAR 112397 . 114932) (SLUGCHARP.DISPLAY 114934 . 116055)) (116715 128552 (FONTFILES 116725 + . 118558) (\FINDFONTFILE 118560 . 120537) (\FONTFILENAMES 120539 . 121099) (\FONTFILENAME 121101 . +124012) (FONTSPECFROMFILENAME 124014 . 128550)) (128553 165128 (FONTCOPY 128563 . 133626) (FONTP +133628 . 133927) (FONTUNPARSE 133929 . 135648) (SETFONTDESCRIPTOR 135650 . 137114) (\STREAMCHARWIDTH +137116 . 141280) (\COERCECHARSET 141282 . 144649) (\BUILDSLUGCSINFO 144651 . 148274) (\FONTSYMBOL +148276 . 148926) (\DEVICESYMBOL 148928 . 149797) (\FONTFACE 149799 . 156989) (\FONTFACE.COLOR 156991 + . 163911) (SETFONTCHARENCODING 163913 . 165126)) (165129 184790 (FONTSAVAILABLE 165139 . 170493) ( +FONTEXISTS? 170495 . 174034) (\SEARCHFONTFILES 174036 . 177121) (FLUSHFONTCACHE 177123 . 179346) ( +FINDFONTFILES 179348 . 182562) (SORTFONTSPECS 182564 . 184788)) (184791 188898 (MATCHFONTFACE 184801 + . 185616) (MAKEFONTFACE 185618 . 186644) (FONTFACETOATOM 186646 . 188896)) (189529 190021 ( +\UNITWIDTHSVECTOR 189539 . 190019)) (204650 206717 (FONTDESCRIPTOR.DEFPRINT 204660 . 206239) ( +FONTCLASS.DEFPRINT 206241 . 206715)) (210546 213336 (\CREATEKERNELEMENT 210556 . 210914) ( +\FSETLEFTKERN 210916 . 211407) (\FGETLEFTKERN 211409 . 213334)) (213337 224412 (\CREATEFONT 213347 . +216225) (\CREATECHARSET 216227 . 220163) (\INSTALLCHARSETINFO 220165 . 223499) ( +\INSTALLCHARSETINFO.CHARENCODING 223501 . 224410)) (224734 226098 (\FONTRESETCHARWIDTHS 224744 . +226096)) (226728 236769 (\CREATEDISPLAYFONT 226738 . 228587) (\CREATECHARSET.DISPLAY 228589 . 234298) +(\FONTEXISTS?.DISPLAY 234300 . 236767)) (236770 251635 (STRIKEFONT.FILEP 236780 . 237668) ( +STRIKEFONT.GETCHARSET 237670 . 243262) (WRITESTRIKEFONTFILE 243264 . 248175) (STRIKECSINFO 248177 . +251633)) (251666 267983 (MAKEBOLD.CHARSET 251676 . 255325) (MAKEBOLD.CHAR 255327 . 257079) ( +MAKEITALIC.CHARSET 257081 . 260754) (MAKEITALIC.CHAR 260756 . 263102) (\SFMAKEBOLD 263104 . 265328) ( +\SFMAKEITALIC 265330 . 267981)) (267984 272133 (\SFMAKEROTATEDFONT 267994 . 269395) (\SFROTATECSINFO +269397 . 270034) (\SFROTATEFONTCHARACTERS 270036 . 270416) (\SFROTATECSINFOOFFSETS 270418 . 272131)) ( +272134 273515 (\SFMAKECOLOR 272144 . 273513))))) STOP diff --git a/sources/FONT.LCOM b/sources/FONT.LCOM index ff23fcfb27dbf5985bc70bfe63e22ee1823169cd..547c50c3aac6f2fd105e3171956de44bbf7f456e 100644 GIT binary patch delta 994 zcmZuvO;6N77^W;lAu$n`7-g%z*$`zVY-Xm@Znx2dvYoPx-L`bPyJGetfk@)Tg9mPM z@`IBy@uq(OA|Wm*-FUIK>RxtK5Z{LsSdESrLV&wbw$n)+b7<2C0 z${az&0HRrxTEuv9e|D;dD==O@9!1C^dKTR;Egkn)tJN~B-hH^X3jfL1Xt^>z<9a@8 z#LP~Zb290WQWvUH8mnO-HABZ(%qu0+4LFSVTrY6kFi0|l3RqFhI$qf3bB@G136<%i zmfnXNuA%gka&hWBxS)f>T)XWj8B7I+4n~H>w^C=+vELQi!d2IYX;=tjEU1@ZXlc3FaE+W2y7A@qS#l&SWD#VT8B z+dgP@lv>Ybl*@X*1$H}O0rx^Ve@%8f_)TAK6`{{-{*U*^IYsR4Tsd{)U;<5ar^V-; zEyWZoyVbE@_lD%>bf?o-yJwU~8t^dgZ-Ymy!GW44v;)Z}Ee(2h6tTb|K#2+5<~(eG zX4VEKtq)8r=a(lCS$Jep69PM4@N)bWvPllHbAJ;e=aZmu=n-OAGf6g A^8f$< delta 1066 zcmZuwzi-n}5RTIdXatB-Kq4vSl%;S2t%@oI78VBn0Qe7>SeTe#Vc?v!QPkFhb-wrRzVE*8{A+7)I~m+qxJ0$7 zTgy+Us7y5=n#n4rs&B4N<~5}Rxgu5jPKimVN$KW(VZJ|KE|-h2vi$793Y>7Ckzy$~ zQFT3TN8F0JgO^T#Oh%=`kfs2wXp9)ij8q7kRwN)-4gA;+>Y@Y_RbN1>+a=9H`U;~U zEP)wDyy*rFG36ixBG5kCib++IX(_^hYUJAc($)N_5@fy(O39BxbEsy0I=z&^CoxAK zXH}MLj9tD0gc*lmb`6>E7>r8tZM4?V0S9qnYu4i-N~VEZx8`^d3LvThBF57?mdhP} z4i|RhhH(%9A(j40gM!1WR>Of zkc;-(`Us@Re=cT{ot^8s=`X|ba2NXf&bo9Xxw~6F`|nXIxYJ3uw|37-&r!J`>PR6% zZVONh1sXnrf}*1nRv2>Mp`b7Yge62^r!0G+s`f%k4nvBC2Y0EefNw=}0w~dXNh0^c zn%wJ44E-=o(4>P7MAN|zJY3_rj-I(_XV>9$13_otS!jr=B@g$;M|AK5pM#4_d29T$Yvv|KOUIv{!_ZMQ@;cI2qD o0l0_yfx)hC2N4#i1One%1R|qQs4wpF(e*^Lk9qm(!_Pba0Xsw$r~m)} diff --git a/sources/MEDLEYFONTFORMAT b/sources/MEDLEYFONTFORMAT index e40d6b49..96f410e0 100644 --- a/sources/MEDLEYFONTFORMAT +++ b/sources/MEDLEYFONTFORMAT @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "23-Jan-2026 15:10:16" {WMEDLEY}MEDLEYFONTFORMAT.;249 60332 +(FILECREATED "14-Feb-2026 00:39:34" {WMEDLEY}MEDLEYFONTFORMAT.;250 60733 :EDIT-BY rmk - :CHANGES-TO (FNS MEDLEYFONT.FILENAME MEDLEYFONT.WRITE.FONT MEDLEYFONT.READ.FONT - MEDLEYFONT.READ.VERIFIEDFONT) + :CHANGES-TO (FNS MEDLEYFONT.GETCHARSET MEDLEYFONT.READ.CHARSET) - :PREVIOUS-DATE " 9-Oct-2025 15:20:59" {WMEDLEY}MEDLEYFONTFORMAT.;242) + :PREVIOUS-DATE "23-Jan-2026 15:10:16" {WMEDLEY}MEDLEYFONTFORMAT.;249) (PRETTYCOMPRINT MEDLEYFONTFORMATCOMS) @@ -130,7 +129,8 @@ (FULLNAME STREAM]) (MEDLEYFONT.GETCHARSET - [LAMBDA (STREAM CHARSET FONT) (* ; "Edited 9-Oct-2025 15:18 by rmk") + [LAMBDA (STREAM CHARSET FONT) (* ; "Edited 14-Feb-2026 00:36 by rmk") + (* ; "Edited 9-Oct-2025 15:18 by rmk") (* ; "Edited 3-Sep-2025 11:32 by rmk") (* ; "Edited 15-Jul-2025 17:09 by rmk") (* ; "Edited 9-Jul-2025 15:45 by rmk") @@ -185,7 +185,7 @@ (SETFILEPTR STREAM (IPLUS CSVECTORLOC (UNFOLD CHARSET BYTESPERCELL))) (CL:UNLESS (EQ 0 (SETQ CSLOC (\FIXPIN STREAM))) (SETFILEPTR STREAM CSLOC))) - (MEDLEYFONT.READ.CHARSET STREAM CHARSET))))]) + (MEDLEYFONT.READ.CHARSET STREAM CHARSET FONT))))]) (MEDLEYFONT.CHARSET? [LAMBDA (FILE CHARSET) (* ; "Edited 15-Jul-2025 15:21 by rmk") @@ -343,7 +343,8 @@ FONT]) (MEDLEYFONT.READ.CHARSET - [LAMBDA (STREAM CHARSET) (* ; "Edited 4-Sep-2025 10:39 by rmk") + [LAMBDA (STREAM CHARSET FONT) (* ; "Edited 14-Feb-2026 00:36 by rmk") + (* ; "Edited 4-Sep-2025 10:39 by rmk") (* ; "Edited 28-Aug-2025 15:27 by rmk") (* ; "Edited 26-Aug-2025 23:36 by rmk") (* ; "Edited 17-Aug-2025 13:01 by rmk") @@ -356,6 +357,9 @@ (* ; "Edited 16-May-2025 20:19 by rmk") (* ; "Edited 14-May-2025 10:43 by rmk") (* ; "Edited 12-May-2025 07:55 by rmk") + + (* ;; "FONT is only needed for the \READCHARSET call below that interprets an INDIRECT and leads to a recursiving invocation of MEDLEYFONT.GETCHARSET and this function. It is the font descriptor provided at the top-level call. ") + (MEDLEYFONT.READ.ITEM STREAM 'CHARSETSTRING) (* ;  "Throwaway for looking with text editor") (LET (CSNO INDIRECT) @@ -366,7 +370,7 @@ (* ;; "Read what we peeked and use it to create a complete charset from another file (e.g. shared Kanji). ") (SETQ INDIRECT (MEDLEYFONT.READ.ITEM STREAM 'INDIRECTCHARSET)) - (\READCHARSET INDIRECT CHARSET) + (\READCHARSET INDIRECT CHARSET FONT) else (bind PAIR LABEL ITEM (CSINFO _ (create CHARSETINFO WIDTHS _ NIL OFFSETS _ NIL)) eachtime (SETQ PAIR @@ -920,11 +924,11 @@ ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2222 16857 (MEDLEYFONT.WRITE.FONT 2232 . 7287) (MEDLEYFONT.GETCHARSET 7289 . 11316) ( -MEDLEYFONT.CHARSET? 11318 . 12787) (MEDLEYFONT.GETFILEPROP 12789 . 14889) (MEDLEYFONT.FILEP 14891 . -16855)) (16883 39217 (MEDLEYFONT.READ.FONT 16893 . 21429) (MEDLEYFONT.READ.CHARSET 21431 . 26789) ( -MEDLEYFONT.READ.ITEM 26791 . 32940) (MEDLEYFONT.PEEK.ITEM 32942 . 33804) (MEDLEYFONT.READ.FONTPROPS -33806 . 34271) (MEDLEYFONT.READ.VERIFIEDFONT 34273 . 39215)) (39243 57080 (MEDLEYFONT.WRITE.CHARSET -39253 . 43815) (MEDLEYFONT.WRITE.ITEM 43817 . 52870) (MEDLEYFONT.WRITE.FONTPROPS 52872 . 56425) ( -MEDLEYFONT.WRITE.HEADER 56427 . 57078)) (57081 59447 (MEDLEYFONT.FILENAME 57091 . 59445))))) + (FILEMAP (NIL (2152 16901 (MEDLEYFONT.WRITE.FONT 2162 . 7217) (MEDLEYFONT.GETCHARSET 7219 . 11360) ( +MEDLEYFONT.CHARSET? 11362 . 12831) (MEDLEYFONT.GETFILEPROP 12833 . 14933) (MEDLEYFONT.FILEP 14935 . +16899)) (16927 39618 (MEDLEYFONT.READ.FONT 16937 . 21473) (MEDLEYFONT.READ.CHARSET 21475 . 27190) ( +MEDLEYFONT.READ.ITEM 27192 . 33341) (MEDLEYFONT.PEEK.ITEM 33343 . 34205) (MEDLEYFONT.READ.FONTPROPS +34207 . 34672) (MEDLEYFONT.READ.VERIFIEDFONT 34674 . 39616)) (39644 57481 (MEDLEYFONT.WRITE.CHARSET +39654 . 44216) (MEDLEYFONT.WRITE.ITEM 44218 . 53271) (MEDLEYFONT.WRITE.FONTPROPS 53273 . 56826) ( +MEDLEYFONT.WRITE.HEADER 56828 . 57479)) (57482 59848 (MEDLEYFONT.FILENAME 57492 . 59846))))) STOP diff --git a/sources/MEDLEYFONTFORMAT.LCOM b/sources/MEDLEYFONTFORMAT.LCOM index 68400424471743cb2d0df541668923f05d32f042..23ade3fcaf0de0b66ba1ff47c56279abe0f00223 100644 GIT binary patch delta 731 zcmZvaPm9w)7{;4jS(ns;F5L=(@HVp8C@J$N|2=3no!G2t6Eayt@wC!Kmc_+`9z>Vk zJz3^E?7?fUA|CxfegLN!*`_#$ftla)yzl!AQ(Y-7@_ghjzxM@Cd*Wle^XlwEilXBr0Zgxz!{Jba`N{j!IcV$mvcBp1 z2x+=Hh~k8WISUFllA`|%Ap+&$u7$ux4yEFq^0;n#OV`2Aa`rM#kGV0D1wbRzI6Arb z8vW>xGf-y@nz?cZ!>uounAP+t*2!!Jx=d6gQ zQ3}+i5b`jcWC<%+22=)Va8v5}N}A8hiait3MHI>G z9I%U<(4kQK@aj$0eO9v%Hti;-8)x}Ld68z|TJZVC_FAc8mWf9PM~YW{IQU`w0SHvG A+W-In delta 726 zcmZvZOK;Oa6ooTcv?M7Is=5Jh zwRxS}Dl`>h&r#FChNJV-uN`?eY&?Ip4~jnyLzox!dOZcEyN7$zbKJ!Mrl`#=KL~}F z2saabP|jOGfsgguOJHEesQiHLlzH+vUYGZy75N1k@>{ejf3{X`so=zkcp60GRO=V> zKml8eUL2Nv^s*1dj&94}NJUiQ+$0rQF!Cc{1_dwmqG240OvJ#rUFE#cr=>JbqBsRc7dXZ6Fvx~(VZ}zpN^J{5 z;b%`oG6HJN;L$9YnkMu`>WNVX)L>Pou7f*6d;u{IJCmTF4N{=A+JzDZ!O(pq{&QS( zo9jw!2GLvJFS@5dEL?>qg_)0(Z!+)Gt2u=0Rn8Xf#rLLJ6obX(<;`cv%HM2$*Zu;) CthAv3