From 63e80819fefc092a69a0e9e13586f2f97420ffca Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 5 Oct 2025 21:40:28 -0700 Subject: [PATCH] TEDIT files keep track of document's charencoding property --- library/tedit/TEDIT-FILE | 68 +++++++++++----------- library/tedit/TEDIT-FILE.LCOM | Bin 40738 -> 40658 bytes library/tedit/TEDIT-LOOKS | 97 ++++++++++++++++---------------- library/tedit/TEDIT-LOOKS.LCOM | Bin 38359 -> 38352 bytes library/tedit/TEDIT-WINDOW | 80 +++++++++++++------------- library/tedit/TEDIT-WINDOW.LCOM | Bin 62759 -> 62714 bytes 6 files changed, 126 insertions(+), 119 deletions(-) diff --git a/library/tedit/TEDIT-FILE b/library/tedit/TEDIT-FILE index 5da0b586..7ac1a3fe 100644 --- a/library/tedit/TEDIT-FILE +++ b/library/tedit/TEDIT-FILE @@ -1,13 +1,14 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 9-Sep-2025 21:49:43" {WMEDLEY}tedit>TEDIT-FILE.;653 172778 +(FILECREATED "25-Sep-2025 21:32:46"  +{DSK}kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-FILE.;655 173148 :EDIT-BY rmk - :CHANGES-TO (FNS \TEDIT.GET.PROPS3 \TEDIT.GET.FORMATTED.FILE \TEDIT.PUT.TRAILER \TEDIT.PUT.PCTB - ) + :CHANGES-TO (FNS \TEDIT.GET.FORMATTED.FILE \TEDIT.PUT.SINGLE.CHARLOOKS + \TEDIT.GET.SINGLE.CHARLOOKS) - :PREVIOUS-DATE " 9-Sep-2025 00:03:26" {WMEDLEY}tedit>TEDIT-FILE.;651) + :PREVIOUS-DATE " 9-Sep-2025 21:49:43" {WMEDLEY}tedit>TEDIT-FILE.;653) (PRETTYCOMPRINT TEDIT-FILECOMS) @@ -707,7 +708,8 @@ (\TEDIT.INSERTPIECES PIECES NIL TEXTOBJ)))]) (\TEDIT.GET.FORMATTED.FILE - [LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 9-Sep-2025 21:45 by rmk") + [LAMBDA (TEXT TSTREAM START END PROPS) (* ; "Edited 25-Sep-2025 21:27 by rmk") + (* ; "Edited 9-Sep-2025 21:45 by rmk") (* ; "Edited 7-Sep-2025 12:14 by rmk") (* ; "Edited 28-Mar-2025 14:15 by rmk") (* ; "Edited 7-Feb-2025 08:19 by rmk") @@ -748,7 +750,7 @@ (\TEDIT.THELP "File format version incompatible with this version of TEdit.")) (CL:WHEN (SETQ PC (\TEDIT.LASTPIECE TEXTOBJ)) (FSETPC PC PPARALAST T)) - (CL:UNLESS (EQ 'MCCS (FGETMULTI (FGETTOBJ TEXTOBJ DOCPROPS) + (CL:UNLESS (EQ 'MCCS (GETMULTI (FGETTOBJ TEXTOBJ DOCPROPS) 'CHARENCODING)) (\TEDIT.MCCS.TRANSLATE TSTREAM)) TEXTOBJ)]) @@ -1503,7 +1505,8 @@ (for I from 1 to (\WIN FILE) collect (\TEDIT.GET.SINGLE.CHARLOOKS FILE TEXTOBJ]) (\TEDIT.GET.SINGLE.CHARLOOKS - [LAMBDA (FILE TEXTOBJ) (* ; "Edited 7-Sep-2025 11:04 by rmk") + [LAMBDA (FILE TEXTOBJ) (* ; "Edited 25-Sep-2025 18:30 by rmk") + (* ; "Edited 7-Sep-2025 11:04 by rmk") (* ; "Edited 1-Aug-2025 13:43 by rmk") (* ; "Edited 26-Jul-2025 11:14 by rmk") (* ; "Edited 21-Jul-2025 23:41 by rmk") @@ -2328,7 +2331,8 @@ (PUTHASH LOOKS I LOOKSHASH]) (\TEDIT.PUT.SINGLE.CHARLOOKS - [LAMBDA (FORMATSTREAM LOOKS) (* ; "Edited 1-Aug-2025 13:42 by rmk") + [LAMBDA (FORMATSTREAM LOOKS) (* ; "Edited 25-Sep-2025 18:31 by rmk") + (* ; "Edited 1-Aug-2025 13:42 by rmk") (* ; "Edited 21-Jul-2025 23:32 by rmk") (* ; "Edited 20-Jul-2025 13:17 by rmk") (* ; "Edited 22-Apr-2025 14:50 by rmk") @@ -2690,28 +2694,28 @@ (RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (5387 35646 (TEDIT.GET 5397 . 11807) (TEDIT.FORMATTEDFILEP 11809 . 13125) ( -TEDIT.FILEDATE 13127 . 14436) (TEDIT.INCLUDE 14438 . 22467) (TEDIT.RAW.INCLUDE 22469 . 23277) ( -TEDIT.PUT 23279 . 31635) (TEDIT.PUT.STREAM 31637 . 35644)) (35647 56813 (\TEDIT.GET.FOREIGN.FILE 35657 - . 39082) (\TEDIT.GET.UNFORMATTED.FILE 39084 . 43390) (\TEDIT.GET.FORMATTED.FILE 43392 . 46927) ( -\TEDIT.FORMATTEDSTREAMP 46929 . 50060) (\ARBIN 50062 . 50782) (\ATMIN 50784 . 51321) (\DWIN 51323 . -51702) (\STRINGIN 51704 . 52412) (\TEDIT.GET.TRAILER 52414 . 55282) (\TEDIT.CACHEFILE 55284 . 56811)) -(56979 73017 (\TEDIT.GET.PIECES3 56989 . 67952) (\TEDIT.GET.PROPS3 67954 . 71176) ( -\TEDIT.MAKE.STRINGPIECE 71178 . 73015)) (73018 86444 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73028 . 79261) -(\TEDIT.INTERPRET.MCCS.SHIFTS 79263 . 85508) (\TEDIT.CONVERT.XCCSTOMCCS 85510 . 86442)) (86466 92605 ( -\TEDIT.GET.UNFORMATTED.FILE.UTF8 86476 . 92603)) (92628 103861 (\TEDIT.GET.CHARLOOKS.LIST 92638 . -93369) (\TEDIT.GET.SINGLE.CHARLOOKS 93371 . 100334) (\TEDIT.GET.CHARLOOKS 100336 . 101892) ( -\TEDIT.GET.PARALOOKS.INDEX 101894 . 102438) (\TEDIT.GET.CHARLOOKS.INDEX 102440 . 103859)) (103862 -111519 (\TEDIT.GET.PARALOOKS.LIST 103872 . 104494) (\TEDIT.GET.SINGLE.PARALOOKS 104496 . 111517)) ( -111520 115353 (\TEDIT.GET.OBJECT 111530 . 115351)) (115418 148681 (\TEDIT.PUT.PCTB 115428 . 125335) ( -\TEDIT.PUT.PCTB.PIECEDATA 125337 . 128535) (\TEDIT.PUT.TRAILER 128537 . 129865) ( -\TEDIT.PUT.PCTB.MERGEABLE 129867 . 133640) (\TEDIT.PUT.UTF8.SPLITPIECES 133642 . 138344) ( -\TEDIT.PUT.PCTB.NEXTNEW 138346 . 142842) (\TEDIT.INSERT.NEWPIECES 142844 . 146279) (\TEDIT.PUTRESET -146281 . 146523) (\ARBOUT 146525 . 147249) (\ATMOUT 147251 . 147856) (\DWOUT 147858 . 148137) ( -\STRINGOUT 148139 . 148679)) (148682 161307 (\TEDIT.PUT.CHARLOOKS.LIST 148692 . 150364) ( -\TEDIT.PUT.SINGLE.CHARLOOKS 150366 . 156537) (\TEDIT.PUT.CHARLOOKS 156539 . 157878) ( -\TEDIT.PUT.CHARLOOKS1 157880 . 158931) (\TEDIT.PUT.OBJECT 158933 . 161305)) (161308 168947 ( -\TEDIT.PUT.PARALOOKS.LIST 161318 . 162220) (\TEDIT.PUT.SINGLE.PARALOOKS 162222 . 167806) ( -\TEDIT.PUT.PARALOOKS 167808 . 168945)) (169042 172471 (TEDITFROMLISPSOURCE 169052 . 171720) ( -SHELLSCRIPTP 171722 . 171951) (TEDITFROMSHELLSCRIPT 171953 . 172469))))) + (FILEMAP (NIL (5431 35690 (TEDIT.GET 5441 . 11851) (TEDIT.FORMATTEDFILEP 11853 . 13169) ( +TEDIT.FILEDATE 13171 . 14480) (TEDIT.INCLUDE 14482 . 22511) (TEDIT.RAW.INCLUDE 22513 . 23321) ( +TEDIT.PUT 23323 . 31679) (TEDIT.PUT.STREAM 31681 . 35688)) (35691 56965 (\TEDIT.GET.FOREIGN.FILE 35701 + . 39126) (\TEDIT.GET.UNFORMATTED.FILE 39128 . 43434) (\TEDIT.GET.FORMATTED.FILE 43436 . 47079) ( +\TEDIT.FORMATTEDSTREAMP 47081 . 50212) (\ARBIN 50214 . 50934) (\ATMIN 50936 . 51473) (\DWIN 51475 . +51854) (\STRINGIN 51856 . 52564) (\TEDIT.GET.TRAILER 52566 . 55434) (\TEDIT.CACHEFILE 55436 . 56963)) +(57131 73169 (\TEDIT.GET.PIECES3 57141 . 68104) (\TEDIT.GET.PROPS3 68106 . 71328) ( +\TEDIT.MAKE.STRINGPIECE 71330 . 73167)) (73170 86596 (\TEDIT.GET.UNFORMATTED.FILE.MCCS 73180 . 79413) +(\TEDIT.INTERPRET.MCCS.SHIFTS 79415 . 85660) (\TEDIT.CONVERT.XCCSTOMCCS 85662 . 86594)) (86618 92757 ( +\TEDIT.GET.UNFORMATTED.FILE.UTF8 86628 . 92755)) (92780 104122 (\TEDIT.GET.CHARLOOKS.LIST 92790 . +93521) (\TEDIT.GET.SINGLE.CHARLOOKS 93523 . 100595) (\TEDIT.GET.CHARLOOKS 100597 . 102153) ( +\TEDIT.GET.PARALOOKS.INDEX 102155 . 102699) (\TEDIT.GET.CHARLOOKS.INDEX 102701 . 104120)) (104123 +111780 (\TEDIT.GET.PARALOOKS.LIST 104133 . 104755) (\TEDIT.GET.SINGLE.PARALOOKS 104757 . 111778)) ( +111781 115614 (\TEDIT.GET.OBJECT 111791 . 115612)) (115679 148942 (\TEDIT.PUT.PCTB 115689 . 125596) ( +\TEDIT.PUT.PCTB.PIECEDATA 125598 . 128796) (\TEDIT.PUT.TRAILER 128798 . 130126) ( +\TEDIT.PUT.PCTB.MERGEABLE 130128 . 133901) (\TEDIT.PUT.UTF8.SPLITPIECES 133903 . 138605) ( +\TEDIT.PUT.PCTB.NEXTNEW 138607 . 143103) (\TEDIT.INSERT.NEWPIECES 143105 . 146540) (\TEDIT.PUTRESET +146542 . 146784) (\ARBOUT 146786 . 147510) (\ATMOUT 147512 . 148117) (\DWOUT 148119 . 148398) ( +\STRINGOUT 148400 . 148940)) (148943 161677 (\TEDIT.PUT.CHARLOOKS.LIST 148953 . 150625) ( +\TEDIT.PUT.SINGLE.CHARLOOKS 150627 . 156907) (\TEDIT.PUT.CHARLOOKS 156909 . 158248) ( +\TEDIT.PUT.CHARLOOKS1 158250 . 159301) (\TEDIT.PUT.OBJECT 159303 . 161675)) (161678 169317 ( +\TEDIT.PUT.PARALOOKS.LIST 161688 . 162590) (\TEDIT.PUT.SINGLE.PARALOOKS 162592 . 168176) ( +\TEDIT.PUT.PARALOOKS 168178 . 169315)) (169412 172841 (TEDITFROMLISPSOURCE 169422 . 172090) ( +SHELLSCRIPTP 172092 . 172321) (TEDITFROMSHELLSCRIPT 172323 . 172839))))) STOP diff --git a/library/tedit/TEDIT-FILE.LCOM b/library/tedit/TEDIT-FILE.LCOM index 205a22b675132284e1304b458190e785c1057226..b68ce1d0ba09abf5a45df276148fa8a599643c56 100644 GIT binary patch delta 2670 zcmbVOPi)&{6nES;d z_vd@xd(Yoz_t;;)W8Ysq%}W#3%B2ZD%}c;@S%J@r>IkGp&TU@2bYWv<88+)M0+F|7 ztc7<@RIjXDzB09b_R_}L`joMG?(D|Y#g*lal{bY+Y3hy5%j*~F=O;YLloMqS4@sjC z83~5qls!!N0lPC1?2fVEA_?#i_jW%JCl}A{6s^3;l}Qy=es+yb9%tS+<}IyyBBG z6 zlyu#Jj&3X7QYJS^KC8)OE$hy=WC=DN^^7}$`Q6BV0{ky=E9*?1WtvNCdpie=p02yS z20iTRUX5?KW~Lruny(REk?4wTo#@VoiE9J^(|mnx?{=xD>w^+if4Y8k?S6mMM?{%s zt$%IrE3?0+>qE2O2eD}%)Qg}f20Ca)F;bry?PFvNu(}t2&IffPXn=ScAf5(%PhmgY z##LvlGFa_~j@ia^vz8!M31XG-t-AgA8_=u`5zG+54EY$A@%==dBi7)7a6r=QXx5+| z4#eti)`p3nVd7`l_Y)4pVw*J}7$6w%F|2=zb>~ZKu*h~CPsYQpIkwz&XEbDvv9+-X zseUa*FM(coJmQ)jyLO-1x5b&`CVz`+Zg>qLI&a&D8!30*OvM>@+I-18_JDesk1{D0 zN6gY~vN6gyIVuhynGA1xAS*yw%P)+9B1oRX&@2mNRfVP5Gdhkb$QjY6(OX-dQF))1 z8X2GA(;Zq;d}B%UjU~=E7G+;93VvWQ?PCO)>-ZEz->1MyP_EjV)v(Mw@R$S|wK~0mq>mk0cH~N|fPbr$V@06;*)>D5^ky6&VVk$SM@^SAZNSk{l?M zg2uRo3wC3ImX%gd5&0m56CgjQRp=T584nxa5EhRoz2ROXsU zI#bu>hNN)8xs|XKOF6S@1G(%LCE+Kr)3_kvSonPmk|4Kn`04a41RQJ9rsVSrf}9C3 zSV}SuBm$@4N7^&s@Pb>EjA7dVl0s`caJV;G2r_1#gLK;pd(RWe-q6s%WS?kukscehEb4`mb2bRLUr4KZ z4-FpA{fyRqvX?VYx3`4j5ol;3C;JV{-ab L{Pw#yK1%)z#3rZd delta 2762 zcmZWrTW=dh6t*{QE(WD`aGhY%_S8hdsS>mIi&cR)j?*~VcpR^z(h_N@+KM&_Y5&2d zrM!byrBa^?60fB+tppP7ikn0pP!Uh<8wmVb1^z%eGrRU~z_RRf&V2KoGqdxZo!=gD zpFie4K0N`(jD7LyjL3@$h(cL5%Cb~|V&VLi53XL`ym$ewY=L)oP9DV)&Xi+LmrHb=)t5$8*%ywRch-nORPC+X<)a{ST(!dqMi!&YO}^n z1?>9S8V$&%!zb~d!LaU=TU?^!4CmMP9v&jY2m2ljkzuyvOM8y)lapIXFJq6oPT61Vr=%DG zoG`M!cbAMD?7Kxq82Yn~?e!ipfWq1JGmItaO}liW#Sv@faqmXcN5Q_NdDxqFL#V z19TS9SrEPE*Y zQl27(6l0KHE;-xp6aGTq{i!73IfrKt-YK!i$IeMM<&(f&f07uuClHb7H`&My_REp7 z_f31;E#ZkPWfOjdoFLOr8O>rkQ8W}C>{^?)ktV9mkaVV|prxQILDQ@*od8``f&t64 zZO~D-Yx8Go*sDM@3!BS+yQTZkqrS~OXaqsa<3k}i>~Mu}x?F5S3f zL>Nhp*^&y))wXH7HmQO{8w=J?OUo&^Cr(3;trtv5iR z^#-Qavv579dRvG+*}zVQTPaHPSJ0pi2JafMjDHf$g05@vt<*HY=3Q^k&@NUDwpSD5 z2w8&ag4trd4RqX%$kPxR^Ki8>kLM%L1yz+J7gVeG)f@8!UjSI46}kAVtHdHLZ1!plCE~Jz zFdqvGh6HPDBTGF7LBsMGRConf9}b5RMe)8nEgzPl7z9c%YvEC!0zp!DQtv!}BkPS~ zUk=_4=58YMPdf8n&KuhP+8tYB`gxclW0&$v`FE2}&Np|{4+ogy9DFV0oUBjAoDrX7 z$w>HeFn3cq?!FOVphp2A#nGU}Gn4~9IqHo21f0B2#z}r3g&J}cdmP1(V=~TB^vR?% z;gh0M@W})zc%^H0p>J9J%hRea*HE}+V&pjooo2369!7D_%2!BY_( zdQb(_BAcNYs8D9fs1SOl=>-5}1z*QqN1`nQRYWsLk^yc{d}3F8A|L6{5JE-)4`0A7 zpiH|A0=A}Z9}uvAg$OEImO(((1r{E*z|i@q7*&I}*39-YTW+AcpkibSYeWI|#JSpN znk~CVZ!Q6sD0t^S9CfwcO@{U;+ak>xE?Nz)G*l<2YxPqLxL#C0l|XPUk`(mzOG3hn z(mstyRDk<2qJbKSD@8VA0#Q)Ru|ayTq9+>!1Cud1&?ZOkQJ8(+T&`PZKvH(}8@KcS E0tsxld;kCd diff --git a/library/tedit/TEDIT-LOOKS b/library/tedit/TEDIT-LOOKS index 02921737..222dc512 100644 --- a/library/tedit/TEDIT-LOOKS +++ b/library/tedit/TEDIT-LOOKS @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED " 9-Sep-2025 21:55:31" {WMEDLEY}tedit>TEDIT-LOOKS.;455 154986 +(FILECREATED " 5-Oct-2025 10:57:43" {WMEDLEY}TEDIT>TEDIT-LOOKS.;457 155388 :EDIT-BY rmk - :CHANGES-TO (VARS TEDIT-LOOKSCOMS) - (FNS \TEDIT.MCCS.TRANSLATE) + :CHANGES-TO (FNS \TEDIT.MCCS.TRANSLATE) - :PREVIOUS-DATE " 9-Sep-2025 09:42:42" {WMEDLEY}tedit>TEDIT-LOOKS.;452) + :PREVIOUS-DATE "25-Sep-2025 21:32:46" {WMEDLEY}TEDIT>TEDIT-LOOKS.;456) (PRETTYCOMPRINT TEDIT-LOOKSCOMS) @@ -926,7 +925,9 @@ (DEFINEQ (\TEDIT.MCCS.TRANSLATE - [LAMBDA (TSTREAM) (* ; "Edited 9-Sep-2025 21:48 by rmk") + [LAMBDA (TSTREAM) (* ; "Edited 5-Oct-2025 10:57 by rmk") + (* ; "Edited 25-Sep-2025 21:30 by rmk") + (* ; "Edited 9-Sep-2025 21:48 by rmk") (* ; "Edited 7-Sep-2025 22:42 by rmk") (* ; "Edited 31-Jul-2025 09:56 by rmk") (* ; "Edited 28-Jul-2025 23:35 by rmk") @@ -943,9 +944,9 @@ (* ;; " ") (LET ((TEXTOBJ (FTEXTOBJ TSTREAM))) - (CL:WHEN (for PC inpieces (\TEDIT.FIRSTPIECE TEXTOBJ) unless (EQ OBJECT.PTYPE (PTYPE PC)) - always (fetch (FONTDESCRIPTOR FONTTOMCCSFN) of (FGETCLOOKS (PCHARLOOKS PC) - CLFONT))) + (CL:WHEN (find PC inpieces (\TEDIT.FIRSTPIECE TEXTOBJ) unless (EQ OBJECT.PTYPE (PTYPE PC)) + suchthat (fetch (FONTDESCRIPTOR FONTTOMCCSFN) of (FGETCLOOKS (PCHARLOOKS PC) + CLFONT))) (for PC CLOOKS CLFONT TOMCCSFN CLOOKSLIST inpieces (\TEDIT.FIRSTPIECE TEXTOBJ) unless (EQ OBJECT.PTYPE (PTYPE PC)) when [SETQ TOMCCSFN (fetch (FONTDESCRIPTOR FONTTOMCCSFN) @@ -986,20 +987,20 @@  "Can't stay with this font (SYMBOL), find the coercion that was used for its characters.") (FSETPC PC PCHARLOOKS (\TEDIT.MCCS.TRANSLATE.CHARLOOKS TEXTOBJ CLOOKS - CLFONT)))] - finally + CLFONT)))] finally - (* ;; "CLOOKSLIST maps any old charlooks to the new ones that we might have created for them, because of font coercion for non-MCCS fonts. The stream must know about the changes. ") + (* ;; "CLOOKSLIST maps any old charlooks to the new ones that we might have created for them, because of font coercion for non-MCCS fonts. The stream must know about the changes. ") - (CL:WHEN CLOOKSLIST + (CL:WHEN CLOOKSLIST - (* ;; "Discard orphan old looks and uniquify what's left.") + (* ;; + "Discard orphan old looks and uniquify what's left.") - (\TEDIT.UNIQUIFY.ALL TEXTOBJ)) - (FPUTMULTI (FGETTOBJ TEXTOBJ DOCPROPS) - 'CHARENCODING - 'MCCS)) - T)]) + (\TEDIT.UNIQUIFY.ALL + TEXTOBJ)))) + (PUTMULTI (FGETTOBJ TEXTOBJ DOCPROPS) + 'CHARENCODING + 'MCCS]) (\TEDIT.CONVERT.TO.FORMATTED [LAMBDA (TSTREAM START END) (* ; "Edited 20-Apr-2025 13:25 by rmk") @@ -1089,14 +1090,14 @@ (* ;; "Macro because CLOOKSLIST is set. The alist avoids creating and then uniquifying each time we want to make the same translation.") - (OR (FGETMULTI CLOOKSLIST CLOOKS) - (FPUTMULTI CLOOKSLIST CLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS - [create CHARLOOKS - using CLOOKS CLFONT _ - (CAR (\COERCECHARSET (FONTPROP CLFONT - 'SPEC) - 0 NIL 'CHARCOERCIONS] - TEXTOBJ]) + (OR (GETMULTI CLOOKSLIST CLOOKS) + (PUTMULTI CLOOKSLIST CLOOKS (\TEDIT.UNIQUIFY.CHARLOOKS + [create CHARLOOKS + using CLOOKS CLFONT _ + (CAR (\COERCECHARSET (FONTPROP CLFONT + 'SPEC) + 0 NIL 'CHARCOERCIONS] + TEXTOBJ]) ) (DEFINEQ @@ -2459,26 +2460,26 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (22140 24082 (\TEDIT.CHARLOOKS.DEFPRINT 22150 . 23286) (\TEDIT.PARALOOKS.DEFPRINT 23288 - . 24080)) (24186 24572 (\TEDIT.CREATE.FACE.MENU 24196 . 24368) (\TEDIT.CREATE.SIZE.MENU 24370 . 24570 -)) (25576 27465 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25586 . 27463)) (27737 52994 ( -\TEDIT.CHARLOOKS.FROM.FONT 27747 . 30031) (\TEDIT.EQCLOOKS 30033 . 33064) (\TEDIT.SAMECLOOKS 33066 . -36237) (TEDIT.CARETLOOKS 36239 . 37785) (TEDIT.COPY.LOOKS 37787 . 41070) ( -\TEDIT.UNPARSE.CHARLOOKS.LIST 41072 . 44566) (\TEDIT.MODIFYLOOKS 44568 . 46728) (TEDIT.NEW.FONT 46730 - . 47177) (\TEDIT.CARETLOOKS.VERIFY 47179 . 48016) (\TEDIT.CARETPIECE 48018 . 48323) ( -\TEDIT.GET.INSERT.CHARLOOKS 48325 . 51372) (\TEDIT.GET.TERMSA.WIDTHS 51374 . 51790) ( -\TEDIT.PARSE.CHARLOOKS.LIST 51792 . 52992)) (52995 64710 (\TEDIT.MCCS.TRANSLATE 53005 . 58446) ( -\TEDIT.CONVERT.TO.FORMATTED 58448 . 64708)) (65590 72927 (\TEDIT.UNIQUIFY.CHARLOOKS 65600 . 67260) ( -\TEDIT.UNIQUIFY.PARALOOKS 67262 . 68529) (\TEDIT.UNIQUIFY.ALL 68531 . 70619) ( -\TEDIT.FLUSH.UNUSED.LOOKS 70621 . 72925)) (72960 84918 (TEDIT.LOOKS 72970 . 75359) (TEDIT.GET.LOOKS -75361 . 77696) (TEDIT.SUBLOOKS 77698 . 82078) (TEDIT.FINDLOOKS 82080 . 84916)) (84987 114637 ( -\TEDIT.CHANGE.CHARLOOKS 84997 . 93775) (\TEDIT.CHANGE.CHARLOOKS.NEW 93777 . 97592) ( -\TEDIT.CHARLOOKS.CHANGE.FONT 97594 . 105901) (\TEDIT.FONT.NEXTSIZE 105903 . 107524) (\TEDIT.LOOKS -107526 . 110855) (\TEDIT.FONTCOPY 110857 . 112358) (\TEDIT.COERCE.FONTCLASS 112360 . 113511) ( -\TEDIT.FONTCLASS.TO.FONT 113513 . 114635)) (114680 146328 (\TEDIT.EQFMTSPEC 114690 . 117905) ( -TEDIT.GET.PARALOOKS 117907 . 121954) (\TEDIT.PARSE.PARALOOKS.LIST 121956 . 129989) (TEDIT.PARALOOKS -129991 . 131031) (\TEDIT.CHANGE.PARALOOKS 131033 . 138001) (\TEDIT.CHANGE.PARALOOKS.NEW 138003 . -141986) (TEDIT.COPY.PARALOOKS 141988 . 144662) (\TEDIT.PARABOUNDS 144664 . 146326)) (146388 154104 ( -TEDIT.SUBPARALOOKS 146398 . 150500) (SAMEPARALOOKS 150502 . 154102)) (154105 154792 ( -\TEDIT.MARK.REVISION 154115 . 154790))))) + (FILEMAP (NIL (22099 24041 (\TEDIT.CHARLOOKS.DEFPRINT 22109 . 23245) (\TEDIT.PARALOOKS.DEFPRINT 23247 + . 24039)) (24145 24531 (\TEDIT.CREATE.FACE.MENU 24155 . 24327) (\TEDIT.CREATE.SIZE.MENU 24329 . 24529 +)) (25535 27424 (\TEDIT.CHARLOOKS.FEATURE.CHECK 25545 . 27422)) (27696 52953 ( +\TEDIT.CHARLOOKS.FROM.FONT 27706 . 29990) (\TEDIT.EQCLOOKS 29992 . 33023) (\TEDIT.SAMECLOOKS 33025 . +36196) (TEDIT.CARETLOOKS 36198 . 37744) (TEDIT.COPY.LOOKS 37746 . 41029) ( +\TEDIT.UNPARSE.CHARLOOKS.LIST 41031 . 44525) (\TEDIT.MODIFYLOOKS 44527 . 46687) (TEDIT.NEW.FONT 46689 + . 47136) (\TEDIT.CARETLOOKS.VERIFY 47138 . 47975) (\TEDIT.CARETPIECE 47977 . 48282) ( +\TEDIT.GET.INSERT.CHARLOOKS 48284 . 51331) (\TEDIT.GET.TERMSA.WIDTHS 51333 . 51749) ( +\TEDIT.PARSE.CHARLOOKS.LIST 51751 . 52951)) (52954 65120 (\TEDIT.MCCS.TRANSLATE 52964 . 58856) ( +\TEDIT.CONVERT.TO.FORMATTED 58858 . 65118)) (65992 73329 (\TEDIT.UNIQUIFY.CHARLOOKS 66002 . 67662) ( +\TEDIT.UNIQUIFY.PARALOOKS 67664 . 68931) (\TEDIT.UNIQUIFY.ALL 68933 . 71021) ( +\TEDIT.FLUSH.UNUSED.LOOKS 71023 . 73327)) (73362 85320 (TEDIT.LOOKS 73372 . 75761) (TEDIT.GET.LOOKS +75763 . 78098) (TEDIT.SUBLOOKS 78100 . 82480) (TEDIT.FINDLOOKS 82482 . 85318)) (85389 115039 ( +\TEDIT.CHANGE.CHARLOOKS 85399 . 94177) (\TEDIT.CHANGE.CHARLOOKS.NEW 94179 . 97994) ( +\TEDIT.CHARLOOKS.CHANGE.FONT 97996 . 106303) (\TEDIT.FONT.NEXTSIZE 106305 . 107926) (\TEDIT.LOOKS +107928 . 111257) (\TEDIT.FONTCOPY 111259 . 112760) (\TEDIT.COERCE.FONTCLASS 112762 . 113913) ( +\TEDIT.FONTCLASS.TO.FONT 113915 . 115037)) (115082 146730 (\TEDIT.EQFMTSPEC 115092 . 118307) ( +TEDIT.GET.PARALOOKS 118309 . 122356) (\TEDIT.PARSE.PARALOOKS.LIST 122358 . 130391) (TEDIT.PARALOOKS +130393 . 131433) (\TEDIT.CHANGE.PARALOOKS 131435 . 138403) (\TEDIT.CHANGE.PARALOOKS.NEW 138405 . +142388) (TEDIT.COPY.PARALOOKS 142390 . 145064) (\TEDIT.PARABOUNDS 145066 . 146728)) (146790 154506 ( +TEDIT.SUBPARALOOKS 146800 . 150902) (SAMEPARALOOKS 150904 . 154504)) (154507 155194 ( +\TEDIT.MARK.REVISION 154517 . 155192))))) STOP diff --git a/library/tedit/TEDIT-LOOKS.LCOM b/library/tedit/TEDIT-LOOKS.LCOM index ec3337d875683352ada70dba82fd629e18647876..586f558e54140adda766741b085bfc36e7e88df0 100644 GIT binary patch delta 1262 zcmah|L2T1z6i!@J(ZGV6cxf?R^cK>RGGfJ!-KH6uNF9fSI(|{&YIKU`0j}DTuvLM> zrU?Suq+NE{>S~8+mvPwvX*5JROcU}sfYeQzv;!BU9d?bx9r*pHQW@K{9Q^<9z3;vE zy)WxvVI_%|t|g_Eq=1;pD)U)c{-zPnn_9kPzC*uB9dW59ye%v9vk-_u zdOt&wvZ9=o(=oW%TD|nqmCcRjstv0jZ?>*ZXTf11(%$$GVufX0hnMpNL5P8U;Ti$| zTR}yN%?1*MlCG&$Ek{T|4F1WJbp7<*vX!gbzJh|08aH~18>l^W`1m`2iI(J}=#(rqryu8c89*()$;DYqN zZTCl?c(g`2#>L36<71)W|{`dUn7~Yz4G1?o$sde6h&v0tSin`25?@xr#FZL1_aEr9i zQJ3KkyBKf$ZpGc5t6@*E-WlY-9ctxJ5Phgxb!-iI8K>ZGlT}lo^ExXU&k4{fs;pq zM3d)h9+Lh6R)T2gWib;d;Hjru?ang;6XYI3f!3f&hdhB?6v#-z&SPIfQ52|Fbn*tO zbO9AvfjWKhLZzgsnqZj4{UBMuoUWs~x4QCt=D)#?aoj#ic653=SFPq&lIBW9OB&1N zMXd^o;ygTl>VyK``sTHoS}j#ftb&|Q0c{I1c`4qeLpmcm(Rf8rhNifXc{M2`zv`Jw YcfXH^Hl4fMZ!nc*r?Wlj{IxxJ0m`&iy#N3J delta 1231 zcmZuw!Ef7S6t|rzqG=V9)R-oO=qV{BjhbLPak~VV$Q)`!D2RS`Z8xSqNq3dw8G?hw4!MsTN z9EUl`$?52#CtfV+np)HHga|y=`9H2v_~@;&R?xKzAHULVU+Q1%e|YM6?jR|d?8#-w z(V0$Pfc}*Zcyj7$zH&yZCmRUyH}kbR(3z(vL#tS>FIr!+N&YBxF`LWCuCDuF_&Z6Q88b9E_6_%1 zJHO0gVvqB!AAE-iiuIY}f8H$|7)v(txU|(haii;c$haIY!87D&@h5B?kh|NR>+27F zaG1wk@9?%%It0%egPh!lYqO*^vKD3WQ! zoj;hkqKHtd>f{Hh(e+d^qV-ZN6i~z!$m=?)hdZ2EvDnyiRw-t3V%GX0Ca^2kgV@rG zWZTJp7PPurD^(jSk RY|;9D`+2rFe6a0d{{=OQML+-m diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW index f6225e19..f1dfb7d3 100644 --- a/library/tedit/TEDIT-WINDOW +++ b/library/tedit/TEDIT-WINDOW @@ -1,14 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "18-Sep-2025 23:09:24"  -{DSK}kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-WINDOW.;864 229645 +(FILECREATED " 5-Oct-2025 10:56:19" {WMEDLEY}TEDIT>TEDIT-WINDOW.;867 229880 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT.PROMPTCLEAR) + :CHANGES-TO (FNS \TEDIT.SPLITW) - :PREVIOUS-DATE "11-Aug-2025 21:22:37" -{DSK}kaplan>Local>medley3.5>working-medley>library>TEDIT>TEDIT-WINDOW.;863) + :PREVIOUS-DATE "18-Sep-2025 23:09:24" {WMEDLEY}TEDIT>TEDIT-WINDOW.;864) (PRETTYCOMPRINT TEDIT-WINDOWCOMS) @@ -1672,7 +1670,8 @@ T)]) (\TEDIT.SPLITW - [LAMBDA (OLDPANE Y) (* ; "Edited 9-May-2025 23:55 by rmk") + [LAMBDA (OLDPANE Y) (* ; "Edited 5-Oct-2025 10:56 by rmk") + (* ; "Edited 9-May-2025 23:55 by rmk") (* ; "Edited 5-May-2025 23:22 by rmk") (* ; "Edited 21-Apr-2025 20:20 by rmk") (* ; "Edited 20-Apr-2025 15:20 by rmk") @@ -1749,7 +1748,10 @@ (* ;; "Not sure if same PROPS as for OLDPANE (which this would inherit from primary window)") [SETQ PROPS (APPEND '(NOTITLE T PROMPTWINDOW DON'T TITLEMENUFN NILL) - (COPY (FGETTOBJ TEXTOBJ EDITPROPS] + (COPY (FGETTOBJ TEXTOBJ EDITPROPS)) + (for DP in (FGETTOBJ TEXTOBJ DOCPROPS) + collect (LIST (CAR DP) + (COPY (CDR DP] (\TEDIT.LINKPANES OLDPANE (\TEDIT.MINIMAL.WINDOW.SETUP NEWPANE TSTREAM PROPS OLDPANE)) (* ;; "Insert L1 and LN cells for NEWPANEafter OLDPANE's cells in each selection. The selections were created when the original textsteam was opened.") @@ -3622,36 +3624,36 @@ (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ TEDIT.ICON.TITLE.REGION)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (17179 18075 (TEDIT.DEFER.UPDATES 17189 . 18073)) (18076 44021 (\TEDIT.WINDOW.CREATE -18086 . 25416) (\TEDIT.WINDOW.GETREGION 25418 . 28908) (\TEDIT.WINDOW.SETUP 28910 . 33240) ( -\TEDIT.MINIMAL.WINDOW.SETUP 33242 . 40653) (\TEDIT.CLEARPANE 40655 . 41372) (\TEDIT.FILL.PANES 41374 - . 44019)) (44022 67723 (\TEDIT.CURSORMOVEDFN 44032 . 49642) (\TEDIT.CURSOROUTFN 49644 . 50332) ( -\TEDIT.ACTIVE.WINDOWP 50334 . 51404) (\TEDIT.EXPANDFN 51406 . 51969) (\TEDIT.MAINW 51971 . 53251) ( -\TEDIT.MAINSTREAM 53253 . 53587) (\TEDIT.PRIMARYPANE 53589 . 54359) (\TEDIT.PANELIST 54361 . 54857) ( -\TEDIT.NEWREGIONFN 54859 . 57375) (\TEDIT.SET.WINDOW.EXTENT 57377 . 62359) (\TEDIT.SHRINK.ICONCREATE -62361 . 65094) (\TEDIT.SHRINKFN 65096 . 65505) (\TEDIT.PANEREGION 65507 . 67721)) (67755 100801 ( -\TEDIT.BUTTONEVENTFN 67765 . 80738) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80740 . 88003) ( -\TEDIT.BUTTONEVENTFN.GETOPERATION 88005 . 89847) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89849 . 93519) ( -\TEDIT.BUTTONEVENTFN.INACTIVE 93521 . 95951) (\TEDIT.BUTTONEVENTFN.INTITLE 95953 . 97788) ( -\TEDIT.COPYINSERTFN 97790 . 98922) (\TEDIT.FOREIGN.COPY 98924 . 100799)) (100802 118044 ( -\TEDIT.PANE.SPLIT 100812 . 104760) (\TEDIT.SPLITW 104762 . 112500) (\TEDIT.UNSPLITW 112502 . 116701) ( -\TEDIT.LINKPANES 116703 . 117466) (\TEDIT.UNLINKPANE 117468 . 118042)) (119478 120369 (TEDITWINDOWP -119488 . 120367)) (120406 123509 (TEDIT.GETINPUT 120416 . 122859) (\TEDIT.MAKEFILENAME 122861 . 123507 -)) (123558 131208 (TEDIT.PROMPTWINDOW 123568 . 123882) (TEDIT.PROMPTPRINT 123884 . 126511) ( -TEDIT.PROMPTCLEAR 126513 . 128255) (TEDIT.PROMPTFLASH 128257 . 129515) (\TEDIT.PROMPT.PAGEFULLFN -129517 . 131206)) (131446 142024 (\TEDIT.FILENAME 131456 . 132228) (\TEDIT.DEFAULT.TITLE 132230 . -134609) (\TEDIT.WINDOW.TITLE 134611 . 136780) (\TEDIT.LIKELY.FILENAME 136782 . 139506) ( -\TEDIT.UPDATE.TITLE 139508 . 142022)) (142067 154551 (TEDIT.DEACTIVATE.WINDOW 142077 . 147650) ( -\TEDIT.RESHAPEFN 147652 . 149737) (\TEDIT.REPAINTFN 149739 . 149963) (\TEDIT.CLOSESPLITS 149965 . -152410) (\TEDIT.CLOSEPANE 152412 . 154549)) (154552 197351 (\TEDIT.SCROLLFN 154562 . 156793) ( -\TEDIT.SCROLLCH.TOP 156795 . 158906) (\TEDIT.SCROLLCH.BOTTOM 158908 . 163238) (\TEDIT.SCROLLUP 163240 - . 168966) (\TEDIT.TOPLINE.YTOP 168968 . 170637) (\TEDIT.SCROLLDOWN 170639 . 177678) ( -\TEDIT.SCROLL.CARET 177680 . 180518) (\TEDIT.VISIBLECARETP 180520 . 182814) (\TEDIT.VISIBLECHARP -182816 . 183907) (\TEDIT.BITMAPLINES 183909 . 187829) (\TEDIT.SETPANE.TOPLINE 187831 . 188443) ( -\TEDIT.SHIFTLINES 188445 . 197349)) (197352 208221 (\TEDIT.ONSCREEN? 197362 . 201913) ( -\TEDIT.ONSCREEN.REGION 201915 . 205566) (\TEDIT.AFTERMOVEFN 205568 . 206465) (OFFSCREENP 206467 . -208219)) (208263 211077 (\TEDIT.PROCIDLEFN 208273 . 209933) (\TEDIT.PROCENTRYFN 209935 . 210380) ( -\TEDIT.PROCEXITFN 210382 . 211075)) (211156 224381 (\TEDIT.DOWNCARET 211166 . 211959) ( -\TEDIT.FLASHCARET 211961 . 214072) (\TEDIT.UPCARET 214074 . 215178) (TEDIT.NORMALIZECARET 215180 . -218398) (\TEDIT.SETCARET 218400 . 223751) (\TEDIT.CARET 223753 . 224379))))) + (FILEMAP (NIL (17093 17989 (TEDIT.DEFER.UPDATES 17103 . 17987)) (17990 43935 (\TEDIT.WINDOW.CREATE +18000 . 25330) (\TEDIT.WINDOW.GETREGION 25332 . 28822) (\TEDIT.WINDOW.SETUP 28824 . 33154) ( +\TEDIT.MINIMAL.WINDOW.SETUP 33156 . 40567) (\TEDIT.CLEARPANE 40569 . 41286) (\TEDIT.FILL.PANES 41288 + . 43933)) (43936 67637 (\TEDIT.CURSORMOVEDFN 43946 . 49556) (\TEDIT.CURSOROUTFN 49558 . 50246) ( +\TEDIT.ACTIVE.WINDOWP 50248 . 51318) (\TEDIT.EXPANDFN 51320 . 51883) (\TEDIT.MAINW 51885 . 53165) ( +\TEDIT.MAINSTREAM 53167 . 53501) (\TEDIT.PRIMARYPANE 53503 . 54273) (\TEDIT.PANELIST 54275 . 54771) ( +\TEDIT.NEWREGIONFN 54773 . 57289) (\TEDIT.SET.WINDOW.EXTENT 57291 . 62273) (\TEDIT.SHRINK.ICONCREATE +62275 . 65008) (\TEDIT.SHRINKFN 65010 . 65419) (\TEDIT.PANEREGION 65421 . 67635)) (67669 100715 ( +\TEDIT.BUTTONEVENTFN 67679 . 80652) (\TEDIT.BUTTONEVENTFN.DOOPERATION 80654 . 87917) ( +\TEDIT.BUTTONEVENTFN.GETOPERATION 87919 . 89761) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 89763 . 93433) ( +\TEDIT.BUTTONEVENTFN.INACTIVE 93435 . 95865) (\TEDIT.BUTTONEVENTFN.INTITLE 95867 . 97702) ( +\TEDIT.COPYINSERTFN 97704 . 98836) (\TEDIT.FOREIGN.COPY 98838 . 100713)) (100716 118279 ( +\TEDIT.PANE.SPLIT 100726 . 104674) (\TEDIT.SPLITW 104676 . 112735) (\TEDIT.UNSPLITW 112737 . 116936) ( +\TEDIT.LINKPANES 116938 . 117701) (\TEDIT.UNLINKPANE 117703 . 118277)) (119713 120604 (TEDITWINDOWP +119723 . 120602)) (120641 123744 (TEDIT.GETINPUT 120651 . 123094) (\TEDIT.MAKEFILENAME 123096 . 123742 +)) (123793 131443 (TEDIT.PROMPTWINDOW 123803 . 124117) (TEDIT.PROMPTPRINT 124119 . 126746) ( +TEDIT.PROMPTCLEAR 126748 . 128490) (TEDIT.PROMPTFLASH 128492 . 129750) (\TEDIT.PROMPT.PAGEFULLFN +129752 . 131441)) (131681 142259 (\TEDIT.FILENAME 131691 . 132463) (\TEDIT.DEFAULT.TITLE 132465 . +134844) (\TEDIT.WINDOW.TITLE 134846 . 137015) (\TEDIT.LIKELY.FILENAME 137017 . 139741) ( +\TEDIT.UPDATE.TITLE 139743 . 142257)) (142302 154786 (TEDIT.DEACTIVATE.WINDOW 142312 . 147885) ( +\TEDIT.RESHAPEFN 147887 . 149972) (\TEDIT.REPAINTFN 149974 . 150198) (\TEDIT.CLOSESPLITS 150200 . +152645) (\TEDIT.CLOSEPANE 152647 . 154784)) (154787 197586 (\TEDIT.SCROLLFN 154797 . 157028) ( +\TEDIT.SCROLLCH.TOP 157030 . 159141) (\TEDIT.SCROLLCH.BOTTOM 159143 . 163473) (\TEDIT.SCROLLUP 163475 + . 169201) (\TEDIT.TOPLINE.YTOP 169203 . 170872) (\TEDIT.SCROLLDOWN 170874 . 177913) ( +\TEDIT.SCROLL.CARET 177915 . 180753) (\TEDIT.VISIBLECARETP 180755 . 183049) (\TEDIT.VISIBLECHARP +183051 . 184142) (\TEDIT.BITMAPLINES 184144 . 188064) (\TEDIT.SETPANE.TOPLINE 188066 . 188678) ( +\TEDIT.SHIFTLINES 188680 . 197584)) (197587 208456 (\TEDIT.ONSCREEN? 197597 . 202148) ( +\TEDIT.ONSCREEN.REGION 202150 . 205801) (\TEDIT.AFTERMOVEFN 205803 . 206700) (OFFSCREENP 206702 . +208454)) (208498 211312 (\TEDIT.PROCIDLEFN 208508 . 210168) (\TEDIT.PROCENTRYFN 210170 . 210615) ( +\TEDIT.PROCEXITFN 210617 . 211310)) (211391 224616 (\TEDIT.DOWNCARET 211401 . 212194) ( +\TEDIT.FLASHCARET 212196 . 214307) (\TEDIT.UPCARET 214309 . 215413) (TEDIT.NORMALIZECARET 215415 . +218633) (\TEDIT.SETCARET 218635 . 223986) (\TEDIT.CARET 223988 . 224614))))) STOP diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM index 014c34901785284e9769ce46a8887a5e125b326e..e1030af505dabadd960c015bff184515ada29087 100644 GIT binary patch delta 934 zcmZuuO-vI(6mGXMks4#creK53%SH$sN_J;ww%b)BOLr=Z%g)-}T7e1*Gy(rWp#&-5T;BWM%=_N=y?OIH^5<9NX-NW- zW>br4Bq0K_q!U#~k_bKG)ZCr<+1r(An7a!iJS+`U)21Vj&IOl+)KaDwq9Q1Joe1eN z*0CbO8C%04wMzt3}R%P+w!C(IXZ8=49F`uaqezOl#${*Rd;u{YY2 zw``g#P@{|UaZ!hq%h`iUk7fX&tfoo9=P>l|)6omMTcB4gR`k-Q;ZqQ0E$vn2cUFNE zUCQbRixA!KJ&f1p1@US-0UKP9F$^%@XT#gM0;U_h8htFhiv`_d_?VD3Zf<^vELVjy zL1k>RE%asRNMxPk(8u9M_!N8}dpp?Lf845--=A#>@$&&5*tEf{Riu4iv~;O-tdXlSbKDZrD`3wzCB^7;Ai>S zQmWSZl2aUV>!4te)X-;HlJ|h3sgPst2q6k zwPu7h;LdW?^MEKMU@NC`M3Eq8GmqvSz}d{faaco#N*My%UblC|{iqKOHqR|;yvj=MRJ`+es-k6)j{&p(Hkv-Bm$ zYkkql^4!8qsW=7Yd5A*fw(gDHITtJy7nf4A6APt@`IK3noG7K{ic_WHEolI!Zj={i zXXdA4%}k1Z;Ghd4QBjF`#f2CW5C$YBC7cw6l{fqepXi1^;J9|i@imjEF3d2cbYPm$ zq^#5ro!m)ALbN~9mo`kIxkP0}=qh(i+)a1AdjX+DT*kD_L1{-j{g8BAa^A25FQzjg zh>BuNy*~YS5`>bHvfI`4a8mUf7roFSf(Z_Y0u0-}Z)fP)-2IlD?Q}IKw{btzYxURR zdll|0{gS(KkZT=n4X?8}^gXj_e$w$vFKCcI-O@Hhmnq-7c4l9Qy{DB% zo1nO|U8xBg@Q5EUGLk_j|4GUslT7Cbt4tefopk6_XO|*ub4|k u!)74X!oNsPNWezWi06SkDA4!gM>}K%gJ#+uNn0Sxh(3EYRE=ML_vkkrehXLt