From b760d005fbea1d576bd8821a20c9d0e4f2bceecc Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Tue, 7 Sep 2021 11:52:14 -0700 Subject: [PATCH] Second recompile fdev #457 (#463) * FONTPROFILE: Fix NS COMMENTFONT, delete FONTPROFILEPATCH This reverts commit 2615140ede9117b722f555e6603029f20274dd0e. * Recompile FDEV creators with FILEIO defaulting to :XCCS * FONTPROFILE: Fixed COMMENTFONT in BIGGERNS * FONTPROFILE: fixed typo --- library/TEXTOFD.LCOM | Bin 38684 -> 38717 bytes library/UNIXCOMM.LCOM | Bin 9145 -> 8962 bytes sources/AOFD.LCOM | Bin 14404 -> 14332 bytes sources/ATERM.LCOM | Bin 16374 -> 16240 bytes sources/BSP.LCOM | Bin 43180 -> 43131 bytes sources/CLSTREAMS.LCOM | Bin 31045 -> 31198 bytes sources/COREIO.LCOM | Bin 16237 -> 16262 bytes sources/FILEIO | 535 +++++++++++++++--------------- sources/FILEIO.LCOM | Bin 49380 -> 49422 bytes sources/FONTPROFILE | 160 ++++----- sources/FONTPROFILE.LCOM | Bin 10880 -> 11068 bytes sources/FONTPROFILEPATCH | 608 ---------------------------------- sources/FONTPROFILEPATCH.LCOM | Bin 10893 -> 0 bytes sources/IMAGEIO.LCOM | Bin 35444 -> 35591 bytes sources/LEAF.LCOM | Bin 58715 -> 58521 bytes sources/LLDISPLAY.LCOM | 159 ++++----- sources/LLETHER.LCOM | Bin 43071 -> 43141 bytes sources/LLKEY.LCOM | Bin 66253 -> 66305 bytes sources/LOCALFILE.LCOM | Bin 85246 -> 85789 bytes sources/NSFILING.LCOM | Bin 82295 -> 82109 bytes sources/PROC.LCOM | Bin 59667 -> 59511 bytes sources/SPP.LCOM | Bin 34566 -> 34490 bytes sources/TTYIN.LCOM | Bin 73410 -> 73461 bytes sources/UFS.LCOM | Bin 37312 -> 37196 bytes sources/VANILLADISK.LCOM | Bin 2947 -> 2833 bytes 25 files changed, 432 insertions(+), 1030 deletions(-) delete mode 100644 sources/FONTPROFILEPATCH delete mode 100644 sources/FONTPROFILEPATCH.LCOM diff --git a/library/TEXTOFD.LCOM b/library/TEXTOFD.LCOM index a59793f0cc36749f0bbfd190f61eac2173adf0a6..cb4668885b5cbf187e286decdbee0618605505ff 100644 GIT binary patch delta 1454 zcmZuxU2GIp6n3^nWI!6}KgDoZ)3V!k*O~pB*(JdaJ9l@7&dw~ev#=EkrR|cgZnq6Z z1ryQ$Ho;h+%cV6&2tEUr=q3h?Xe1alYLqt~km#e)#Q20SCZ0PhrGWeJoqK-n`M$IF z-Z{VMy0Pe*OGbE4LeojyB8p8^a6`nGElm0XLO=vD5)%V4G2{l1dt_pKvREpN!bBO1 z_{!0jrbX{#<>6R38WY2A7(Q57s^<%bCribV;-S)!&KT^mN#52B&4wcON#t}LmNWYO zem9KnKZHDwDsfr|M7Q^$T)KrD8Y71x zVkGSpM1vAiI%n%QOxtf}h(X^EbO154#Ij5anmKOJ0#8A?NsR2on0skYNrh?G7tUysS zAO(@(!JciJkp(FbS{6Y~7!t!y1CWFW{V3Sj5tX1@B?%>`+dgC`mZ9hg(@HCLclBoQ zPTjhtLrN=Ff9;&FNE9z-pL~K{(_7Kj1~hk5Ynk`E2JCd#^#6!>x4#cV&+EtQ(D}gp z2C+EX3o1I{LR_2^HGO$ZxUL~)y4)+GILv``x1{V8#_b`iX8nn@QeXzuw zN`51C?Yn}3tNWf|font4=*av3tViQHkVgi3Z0t3}`(xu6DikBE?EEVqB5r^6OT;y$ z3z)c6s$+>`V;$6AZlk}B2hnRTk02f?<0Gx!DI2TMY(DHf$b)a*VB&?Noy_c<=GfEC z&wR%Cnos_NPUG9BT`t~3@6EPWKYgbKn^$kou4VaOPJfI@&x|7eeWrl8cWwyri#ZK( zRR!mx&*huxRAmRQzN#<{-m?b~=g#g%{KHubQyb_6RnfnCyp?`O4P321_X6V9bKfJb zo*zcMIKQ5roKNEFr}=10?dz4*O+^LgimGwl%hQbu`Dc00(q{xCZ!Iu!zb*JzI8Xgw D!3mI( delta 1445 zcmZuxOKcle6xBFxA*ho`O~{9KaWP72*Rh$8GapAPop{FfB$FA(9@8XENb_-pTgRzr zQ9q)xXcfdKP^Yg+1)^frMTMwDjS!WHL;(pzsZw?z79b&5A)&HCEJC@@rcP+PIrsbS zJ@38y-s)A)yH`Esgv9#ere(y^hUOYN`1nX@;KgD{-~=87F)DIVQT2h}H#0wXBwxtQ z!h8{Yz%HGBrX&O&NaxikC;MRfg$j{`D6;5_VVca!FT+=pP$YY&&*0Nx8 z$8b38gW0KL*ynyGSX$tGfepH(kC|Xt@-{QbAe|67%e1r!0XF8OMro6bi(49ksIIV; zKF_d+VJmNXn_F>@#&YiF^WVeN!68iE6baxwAX)G;5pI{qcxUjr&u;gU0a!2PxpF z#;e2(W|7Q$!5$KvXl$aVgasp!dj%gSe+652JglhPTg&P0$pP!{g?{HjW_(1dCRN_= zc@j59ZiRMs{Eu8Uij2YgNQDVs_f)>%8X51QwQU^vhELjp0;#Nuo=(s3UqbF99uVC)3HNI&DJd=O#>o%d8M^P3n{f_PFx37m8;A_ z6(yiUX_>ZR8Fs==f{N|OYgZb!9XITx3>#EleVCJjal^?N>9msuMZpvtY}0kJZY-&# z<2ER=055qPT(Y&b#ZaWkf5eBhgyEzzpwOyxg5tXIEXazq*^-e)!my3B84ITkTN^Sc zQIZv543EwNS;TYLNYL~Y$O3k_=ju1@49I-%CJz!r7biirfP{xo&!&X&m@B`C-#2Wp zU)GS89<1H>Et%kKPAO;Ur2eY5H=|fjHc@Na0MJ_w4Xz=s5AH?R9_vg48aJG;5noRo zMb|&6>vXz5$;{I={%rM`oZ2T->)MD#E8HE$3YE37X6pNC|1|aWPq=7YoG4JkJ9!h0 z+mnw{4B|UQe4mxSi*_T5>EY8|R2(lc^wpkR_>}gNUR_5c^4eP- z59=p)7uzd8zR`w7D}OFF(KvJN8sbOiW)VBfImA-=0OHSO6LI$v?u(R`X#d}qX#aup zRR8e&engf~efa23QYJcTx6ibb--(S{--V|TCog=9*t0y1_}TIkz1)^+@M2a!mG;Mu7~_%1rwTD>-vNC@$O zU<-&p5Deh9pmZX2v@{}`7a0_jb1B5nwtR$Fg6jfMaV3CDu7?8JY;WCdfn~3~;4J!) z=fYuRXgU^L{1;jgCV8!+z(03n+E9?j6a3j=51)5?c*%W|z~6yP9aD)mgJ`S~Na^8v zz`wdzLy?kVW+P78EPY*N%Sjp5OOOg4j5su?8H z4duJ19t965r&IqorUNfL`^KgP16Y8GZQR)RfpuvAmUjzy&bJ2K@Qndm{a1lgehawe zp9DJd6B~4H_U7O<;2!bu-TFR>i?CnE&T#y|Az)u%!Fdw60{jwivM&**-YYT=gp)w; RPy~3J^aJgo(Kcrw&~J$Q zSX9gyCKU}Ulf$7r)%1dP-lUi}tOCuO#?&Og-R}2=5u4*qwF~^U%B_{9o24SIEMp#{ z?ah-c=?iYDVVJ3+wz4XcXf%o?B^8xYF~Z}8)zaS@R9atIy?r``mn&=6mzK+T2^KLk zqnN~rA>q+zklp>K<=E0#OOmn*Cc!97DN@iJWkPWD?JgQj6w|bRmCm>R7t){2Pv^*vf@!X4fqd<@BXbjH^?oN}GPE>74jeFVC zmfd9AXFJWCtP!>PNzG!_pXr=V*%j|6D^RphU?0q%~pT;_n<^VTn*b8Q=-2W>Av z*W14WxlBjI26(4agMqy}@e}k_V9$Zs#mZd^RhT+!>F)S1&@BKe%XqNbKvAbNMw$*{ zl5_zjT|kL{0C{lZ#6=l%QM!$h+{Q%zX^aC`Qf0t3^cK>{;*z7{7xTK(l?b zHrBoZ!;Jyv4~@fxKMb;aA^TQ;3@t*<_F*p@?jM2qgZ@d-Z~Y}u8HYjVam9A<70|N- hi=b@4Uhv1j%u%KN(o1~A-WqWMd-jIUHQ4U~{Q*%f6r%tD diff --git a/sources/AOFD.LCOM b/sources/AOFD.LCOM index a471bc3b583953a48dc27c2d9dfff7f3a98d010e..c03312e4e59f6cd064b0f96fb14e0df489911bb3 100644 GIT binary patch delta 693 zcmZ{g!EVz)6h$!tA>1aRNvdvI^avEHXd_gl zB2*z(Y$@f6&_kxwkhQ^f&vvgV&1< z=s0%7ob{MRDsQPg;4!`{Q8KzO-I>Cp#p`&q zAmit(jBls!;^9J0=qda@{ali6-cNIToXYoyn2r^9P6EcUtQk4lZi%aS11j*x< z^jcajn!tnAb}X7vWIPbd<}z!UF>bZvQ@)>>m$pZrG6hNM;@2C1(hTX=bm%mh#{<@6 zkGadl3f(ZzRdIqrH|PbhT7`g%Vsza|1g#~4)Q<)Jp1D0=5)O9TkIU>y%)-F-y;itl z$0eX9!AH5=$jYWKUm1rVE$5f=l8*0-->!8piIabZO=a(<1)T>hU?F$akOlUNNbED9 zmUd$DQvv7ng2RIdXw^7-;)ogq(vxhI*3V|{LpzLE43wDTD9cn6UOZBRR;-40(6n8b XMbRoyO-uL$CKiGJeQ&g1`jPqzL~6GP delta 731 zcmZva!E4h{9LLS@Aak!--KGr6_z~Sm3k%6hn-r3|O7(}}Xf zuHs33e}mw`gAnh#c<|&uAcFoM9(-+@r32sT%ZK0lzTfxD`#bzLde4wZM1zG4?z0Ie){K zxDUxkUf{R^{k{k#{j4{*#LlvoiE1V={k>?M8V2k(Nz3s_liYV~!u(aE3cC#}B8`VJ ziBb%zuKy3pz|y*))|IKy@Kn^)si-oy9paJDv89k$P5X`&f~wXgbbErkp%asoV=bQ! z2)UP1rJmD{m$}f_#hceIdfR@JBwvf`bC<_GCBK%ombnUD70>7&@#Tt~yM)BE+AOzA z=y4fNCn<0>U23vZ!|@`(>dZO~)-*%7o(97TYa|OcUNa&wV43yF8X-HDE2Y)>0i*0? iCz3ormO{>DDE1C;-J!QeN~gavig8cq0iapV2?*&b|%+ diff --git a/sources/ATERM.LCOM b/sources/ATERM.LCOM index 35118f623dffeef6e1de9f19266b3d5e1dab8f34..a6dae002f34b625881e6f378197cba0abb3077fb 100644 GIT binary patch delta 542 zcmZXRKTiTN7{-wiR~H7u>j?%iTxjnPat@~6^~fbh@6wh;6B1D&<{~OF3_2)ZL36W< ziywf|!LQ`xpo;}eRP53xZ`yfZ+G{8aWhx;gOIwM5=lMKz^;n^u!?IK0kR!r zIyL-o9gpqJg)_^s8V<5FIKJwiT%He;LB9vN{`GK>oFt>cP04{yzyi7F#-SI8I3x#< zT!7}c!w`PE=(?^!?`Wi+|8<`^V5ChWPIi}`*7B#>Y$h{UE_5?$6?&)BZAE|Wb<+>+ zFuh%WUOG#+ifnAwK}gk6D+a^BKN{DdBd8>S>w)j4IPMW;UpNYUmO4D>B9{uaoXiS)DdSk^gV-n{h~umKg1 Z`lKDoD&3cqGZOj{ZxLCUylm{`zW~1RjsgGx delta 636 zcmZvZPjAyO7{x1Le_2JoX>5Po3T6$HJDh)_(OuogirNOidVed+YaJ@2YKt^RDQanuHzBe|CWZ3S~366jl*b0MU) zcmvuFp}#M(w42y0KtW;1;3IG*CX55Aq)CKpq~bj}Nf3Ob z%^JeijbPD@2->wk^!zOEil^LwPyM<3%&;VvGoN5ib$2G^;mq~%xwTs;jCV?@&YRz= U>*nfxa;rQo3f+~LZ0E`PUzYEt#{d8T diff --git a/sources/BSP.LCOM b/sources/BSP.LCOM index a0dc176aa3ca727c249b92912cea26ad8198cbdb..c433bfb3323a94a65a73113604bd9a1e392917ca 100644 GIT binary patch delta 1801 zcmZuydrVVT7+)bGyYqn?pn%|^11!vT_x94F6$_X47A{<~C=t?-T-X zbIv^+-ntd@;ATvY&MrD6MbtYaS=394!$~q+f~`U*6^T|-yrNr{JT7hbqLjTQf=47A zo6G2sYjcZ&SF{r?G3z~nu-?cTIl`GOoC$ulM5pyP?FO+Ax-e9se1Y7mfk+r4i#b$q?#aiNV8CLVTsIqsKjLBkJ z6_wf29C)n51onhOL4U9{)Rt`_wa_Xll9vQQ-cc>fWcET027{K=`&wan|K31!vXRsN zcbD9%?kSgsp?`E`(gsa7c%7QuC5+Q0DsHdKpFbvn_(}Pdlhx-0`Rgh5c%uhlyxj;n2CcGX4=G~_w7;Q|4^fDGXa*ja(u zNWaTT_L_JClV!r^=g&C2X~r>{XB@78)Ru~h=$32-TbbbYh+e|8D@h)x3DvS!FRp_N zrwFpc>8=#KdFsgWuQZ8_E|IrJx}r3N z))p_KSJq@g@`p9$z<%Dk5YN4+*bCTG{5xQ$Z~?HqpsQt?D{)13GIeTSiBmp%R=?ujSlEmzxI8A7qxHO zL#Rh;=$>7Z5cr!v##~-&2KGq1J0Q5WdlZL<+VC#Y zmX|)qN;_OYwX6N-`CvK@L}eof)3NvJp@(R$bhe|h9+t7|P?s6-N>>0-*S#6=KzBXh zz3#1m)kkUo&mHjrE~GC21}Wxm(mFsx4|etRVAoU+=AA`JbXTto-bcL~0K<)G)O1t= zZ|_k*;P*$7Ywttu***pE&puQLMV8R*$B-uvETuP(6@YhmAeCzS1@MZtEvD`Lj`-+} zG$>A*FqlZc=`Vy*hb5631}c!=kOVC_66sR|mEhS1w_s%`n_e5lK{p0dXwDE^D!OY3 zm+-|9ZgtHtZf|55Gv|ks>C)r)=*&D}kf^h_E{fI|KF}+|kneG`y+9#t}Voz+1 zWpaUX0(bfF1adZwAzmKCx^5g#EMN9DEF!zX7vs9HRgL delta 1818 zcmZuxYfMvT7~TOyh#cIwDYyE022y6)^z@tp?W$1PQ#sI{mbP3}K!Jj=VVzEl$`*Ad zn$4(`&kL0MMO@sL1-oQ%QTNA~Y?&KdwjbM%E&H(_yToWTVVh&@eG3JC?EHA%=Y78S zcFuRc@7Zk3`(MYX)i%j4E0V@8J0y*)*j+^Bkt{Z!rQ9JAPF8%9$02*&T=0c-Qz5Iy zFe?Q3Bpc!M22EviKw~T+I-`j%Ht{-+sJYey`(NwqYV(r=0m6|Uo44vsGu_K%)boXe z6LcD9^C6AVK=eA3AeeL_N7xoj=_>G(PRMY!`McVV5nj|-y7ytAR;%TRzxgm!Fcme&JeHksXAY3M=^{Bkp?+p0tin z{fnd`N=l-nC`!aA(bK*ymJ=dhOd1xq&?eQ&Rtfe<e-miT1Bi@JB3lr1ka00m4r}b@g%Kmg1)vP}*pw)c6e8MbkdW zn=>V$9A|C@Y&Y)#yl)=GtqK}5>B((+5W?FkA@bjC>v7AI%Y1;XWq$%TSZ)JmmVXb3 zKU=c(PAt%codR93PXL?P@fKiy#Vdfl6*Ew!TrPut;nS4^*f!VE8Nm&7!~xULc;|UQ zEcKx?3j?s!yaJ`dV=f!khP9hs?@E_W`l!|b`j)zfOPRX*FBdbvT@)g3|72Gc3?D9S z%){>fCOcFJzt{W;o{jd7d0g|qx)s-YyB?rv3Jjz9=RhSGy5rz);OGzCNA0iIRS-`% z9ytY0=*So*zkCdj04+cM9j^4iSq$&#dBlQoza44W{Z20C(sT1@g6DhCuooSewX3%X zFxcA$IM<7(xju*|=T5L4Ft4u;@QuD^z#sc|0+vwJM`#-@BRV4Z)hOohW2p2;aAB-HmW7+H zV;pDrVjS1C6NtSN7&SMs8_+w6U+2~&Dr5@r>=e%M#}s}E=QUJ5x@Iq9)p*EcMfSlB z;&EH5OC#5Y*JZ7eeBKq!W4CI3vQu)^_}~iH>7pw%n3a}fSS|bw#)E9lQYN9^W;<>Xku&ik0fxUC?x#xWM zeCK>KAOEU+_nY!~A&iXVMEP`*VoDG(Qk0}Pe`0E~%$9be#JWwM;&zJg1kw`e{CFXg zb(16TZz_S7rstMWVq`L#MYSge2M1wq>exbg3bt!^h!=~JN}uxbwF<3#(%u_VwpT87 z99ERK#J=mE63*`arlYCll^sG0k0_6bo5LjfYQFCc_2K2Kl~WDycm8;uzOa1tNwFoo z_so?m$EEG^GkM%B7t2?E@}0AubG}cjn!jl1Cya8G&ZgXAF<(T4VTyL<+*`fNAVMvM z3QlP(=Zw4XWLna-=sLs6Y$oSfu(XWii{nlS9JmROH>J{kG-8`5UvP61B{(yV2+_@& za73qd;Rw@f!x5;-xrnKpVJMY`2ql@3W0b0aq;qsYB9H{+@}=ZRelj-C}Eh6R9MO#@KZ()7Y6wl~a!ZC+W39aTfb5?^-lkikW3 zcN}4qI6Z&rL3R(k_ z>6ItDe`r#^758sD1MKVK`#s4{V%ex#$wDz-K*VHXKCwf?Xk^&E1yRh!-CC>-5! zh^=DUP*{ocK2m@018R^j~vNlv+k&q z9dwGLh%#es7q5DH@NEjt6K=^#r`?H(-C92Y7r$H|YXrPz}=g9p^PjbgLdGHCJ&Gd)3p!3B{|&iN)QG-6}Dy3LW@LQT`Cx zo@afU20O@VD0!S>BKne}8nb+wm~d#k4N=Hg<&9Ett_5yQ2@w|>qblSV7s!j1nZeio zSLl|t&`g{o(Ux_QNi0UZ&UMpc`DC?ylF&T1QMo{xwkSV}FP+Cd?9UG+@@la-GJ0u9o0Ce)o+v(?2 zmBNr58huaxR=UPs>QTNHA5Q(X>2@hb;S)kR{-|i5ZW3Dg0rBkgUTy6CDSxY?94{+1 ze)}u0op5Rm!NG0f>AOUYW0y$J;7(?uTvb1)Y%^20#opoGButP_P!9T4&Jqn)a53Ko z8sM*Bwl2&>LcmPNTue1A^XzQQ0yP{Mc1N7aY$>^3Uk2di0kX0-3oxLWv@3_!Ft8xA z1BZE#*#H$ha%9xaxy4L+a0u!<0bWctT`);Cr)dDm@QS{H2R6iWv(Z*4e-%5oEHK1c zK;^ufaubV-i{ThI0tB1~cjr0-aJ{0vO=~6`#8@5?ttY#})w8;7`B8KjY;pDWt~de} zx6x9gDw|m<>h>jR@{|YERVPMp0tblLY7_>FR*lRoyy1nJNucC$#Skkqv2BdA|0p@r zW!AVzE@~=aOl&#SD;}HcP#Fc<4)w^jaOS!NZfR|V7o7#hZt=R-+z3K!!^s^}&+tFcbeeP_{1N#KorhYZWP>Tg8p@Z6WA0X#~b2HVi~H zEB4b{wkaNJ-7#QUGW&W`EmMx?s!eig!C*kJ%^szeLEvGlXlrQ^AIx_P;8I+KU!YO7 zn9SO%T9iv46G*gzHn*V5{kZVClFQ5Qk_lu69d8B=Z(3e5$!EW5`YfALM*aD<$?MwAY|M&pzzx`@bs^R z=fE9A?~z5`%;m?D)Px@vP-k8JIFNzv*{%W)o<9u3R>XmfH9z^~SU@^xlji}&Y}0`p z53&x7NUJToP>1VQt)No>tfw9*mJZEY^#if;VnRVT>+nhIp(OYAs#2(w=B^lG|IjH0 sYAP;g<9iVc_+x=e(SR}yDOESD5x3RQZu8)@?>@jh8Bb2o=mQeMlnOhl3S=u z!I?=!h{+n@2zS=O5sn+-0KWE8w{0W@%H#lHO5JE$DAPd6B=WaNv}hy!0wOSS@0xPU zg=}8)A`V7V(p zJ#^@iDw>~tw3?ZVOvzbeDSvWFwJ_;bPhnW_Gpj@R{Lb|Yh!3r6T)ZL5I(O6eQ0X@$h(#=5tdvG#e>A*wVoYc8OGo8^35-49uID&bQMei zP;8$}jkR-L_l*g8s$Dq=clzE^N6m!5WLus{MS{?Ot}4v$$_6H=ZpcN=02t2nmuiZcm63aQNl1fsLve=tdw&?fKlx!61V~#$#vH z-`b_I*L#iA^4sc1a(`9G^x>FXIEdxX)xR6!TjczKAJn+EaB$IRSeTV3AC@p4?WAejCz(kJZt+U&2Bo;irejm0P5Jy0<3L>VkVSjh0>1YZj zls?P^O&j|w7O4Z6CRH=SjW16cJ4 zbEq3q=>~kvob{4pXdumsonUak$wJB_iiss>7b5{|s-_bKWbk#ZnL>DLJCV=@B6NKS zT^_=!yDUtiY^yhazu!RD6P%tr672zs%{&$GIX%@Lli%#`3<{!di^=DXbOx~Hh2V6z zBkIaHx-cB5i)T8v?QrbI!t~3?ff~75tjb;FK(PSs2G3!K%e|?X+}YL$)U**ev2XwP2G+wil% z4aB$-49`(zwgt#M598Jgz;kFKL*VC0l zzdE#optP|j znw+VXsil>nsggp{#K)%ENV@d&^pq4*5=&B3u<0-|-0aNwQit*1W?j9zj2sCJKp>K_ ze=?_m60@m+$z(kPF-uER1wT(89|aQ&Gldv;S3lPvPiH-6567Tj*AN90b8`hP7gsmO cP@fQ8*N70;AU{VRH~%1C#}KW}2?o6U01Zbt6951J delta 209 zcmZpxe_J=f%}7Dc%|FQ3F+@Qw!r3`klS{+R)5q00$kj2#)kQ%`!ARG!G+o!oz{pU+ z(7?*b+{(~oVpgD(sV1tNfq|8Ysg<#%lETDmrrJoF^z`(U6jBmPQd6*LFfrL|#`sc) z@#|&bYDFjMgJ^zl(JF*ipjaQ1Kv N3U&?ITxr0|4**cIHe3Jz diff --git a/sources/FILEIO b/sources/FILEIO index d1e42be7..9169d9ab 100644 --- a/sources/FILEIO +++ b/sources/FILEIO @@ -1,11 +1,11 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) -(FILECREATED "13-Aug-2021 18:39:18"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;87 178368 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(FILECREATED " 6-Sep-2021 15:54:14"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;92 178421 - changes to%: (FNS COPYCHARS) + changes to%: (RECORDS FDEV) - previous date%: " 8-Aug-2021 14:53:49" -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;86) + previous date%: "13-Aug-2021 18:39:18" +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILEIO.;91) (* ; " @@ -18,14 +18,14 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. [(PROP (FILETYPE MAKEFILE-ENVIRONMENT) FILEIO) - (* ;; "Device independent IO. This file is used by VAX") + (* ;; "Device independent IO. This file is used by VAX") (COMS - (* ;; "STREAM, FDEV declarations") + (* ;; "STREAM, FDEV declarations") (DECLARE%: FIRST DOCOPY - (* ;; "The microcode relies on STREAM being of a particular type, viz. the first type declared in the initial loadup (after VMEMPAGEP)") + (* ;; "The microcode relies on STREAM being of a particular type, viz. the first type declared in the initial loadup (after VMEMPAGEP)") (INITRECORDS STREAM)) (SYSRECORDS STREAM) @@ -38,12 +38,12 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. OVERWRITEABLE READABLE READONLY WRITEABLE) (CONSTANTS * EOLCONVENTIONS))) (FNS STREAMPROP GETSTREAMPROP PUTSTREAMPROP STREAMP) - [COMS (* ; "make streams print pretty") + [COMS (* ; "make streams print pretty") (FNS \DEFPRINT.BY.NAME \STREAM.DEFPRINT \FDEV.DEFPRINT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT 'STREAM (FUNCTION \STREAM.DEFPRINT)) (DEFPRINT 'FDEV (FUNCTION \FDEV.DEFPRINT] - (COMS (* ; - "Needed because of STREAM initialization") + (COMS (* ; + "Needed because of STREAM initialization") (INITVARS (FILELINELENGTH 102) (\STREAM.DEFAULT.MAXBUFFERS 3))) (FNS \GETACCESS \SETACCESS) @@ -51,8 +51,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (RECORDS FDEV FILEGENOBJ))) (INITRECORDS FDEV) (SYSRECORDS FDEV)) - [COMS (* ; - "EXTERNALFORMAT declaration and related functions") + [COMS (* ; + "EXTERNALFORMAT declaration and related functions") (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (RECORDS EXTERNALFORMAT))) (FNS MAKE-EXTERNALFORMAT) (INITRECORDS EXTERNALFORMAT) @@ -65,7 +65,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (COMS (FNS \CREATE.THROUGH.EXTERNALFORMAT \THROUGHIN \THROUGHBACKCCODE \THROUGHOUTCHARFN) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\CREATE.THROUGH.EXTERNALFORMAT] - (COMS (* ; "Device operations") + (COMS (* ; "Device operations") (FNS \DEFINEDEVICE \GETDEVICEFROMNAME \GETDEVICEFROMHOSTNAME \REMOVEDEVICE \REMOVEDEVICE.NAMES) (INITVARS (STREAM-AFTER-OPEN-FNS NIL)) @@ -74,7 +74,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. \RENAMEFILE \REVALIDATEFILE \PAGED.REVALIDATEFILELST \PAGED.REVALIDATEFILES \PAGED.REVALIDATEFILE \BUFFERED.REVALIDATEFILE \BUFFERED.REVALIDATEFILELST \PRINT-REVALIDATION-RESULT \TRUNCATEFILE \FILE-CONFLICT) - (COMS (* ; "Generic enumerator") + (COMS (* ; "Generic enumerator") (FNS \GENERATENOFILES \NULLFILEGENERATOR \NOFILESNEXTFILEFN \NOFILESINFOFN) (DECLARE%: DONTCOPY (RECORDS NOFILEGENSTATE))) (FNS \FILE.NOT.OPEN \FILE.WONT.OPEN \ILLEGAL.DEVICEOP \IS.NOT.RANDACCESSP @@ -82,16 +82,16 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (ADDVARS (\FILEDEVICES) (\FILEDEVICENAMES) (\DEVICENAMETODEVICE)) - (COMS (* ; "Device instances") + (COMS (* ; "Device instances") (FNS \FDEVINSTANCE) (MACROS \INHERITFDEVOP.D \INHERITFDEVOP.S)) (INITVARS (LOGINHOST/DIR '{DSK}) (\CONNECTED.DIRECTORY '{DSK})) (GLOBALVARS LOGINHOST/DIR \CONNECTED.DIRECTORY \FILEDEVICES \FILEDEVICENAMES \DEVICENAMETODEVICE)) - (COMS (* ; "Directory defaulting") + (COMS (* ; "Directory defaulting") (FNS CNDIR DIRECTORYNAME DIRECTORYNAMEP HOSTNAMEP \ADD.CONNECTED.DIR)) - [COMS (* ; "Binary I/O Public functions") + [COMS (* ; "Binary I/O Public functions") (FNS \BACKFILEPTR \BACKPEEKBIN \BACKBIN BIN \BIN \BINS BOUT \BOUT \BOUTS COPYBYTES COPYCHARS COPYFILE \COPYOPENFILE \INFER.FILE.TYPE EOFP FORCEOUTPUT \FLUSH.OPEN.STREAMS CHARSET ACCESS-CHARSET GETEOFPTR GETFILEINFO @@ -99,7 +99,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. BIN16) (PROP (DOPCODE) BOUT) - (* ; "Generic functions") + (* ; "Generic functions") (FNS \GENERIC.BINS \GENERIC.BOUTS \GENERIC.RENAMEFILE \GENERIC.OPENP \GENERIC.READP \GENERIC.CHARSET) (FNS \MAP-OPEN-STREAMS) @@ -116,7 +116,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (PUTD (CADR PAIR) (GETD (CAR PAIR)) T] - (COMS (* ; "Internal functions") + (COMS (* ; "Internal functions") (FNS \EOF.ACTION \EOSERROR \GETEOFPTR \INCFILEPTR \PEEKBIN \SETCLOSEDFILELENGTH \SETEOFPTR \SETFILEPTR) (FNS \FIXPOUT \FIXPIN) @@ -130,10 +130,10 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. [CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30] (RECORDS BYTEPTR)) (CONSTANTS MaxChar))) - (COMS (* ; "Buffered IO") + (COMS (* ; "Buffered IO") (FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS \BUFFERED.COPYBYTES)) - [COMS (* ; "NULL device") + [COMS (* ; "NULL device") (FNS \NULLDEVICE \NULL.OPENFILE) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\NULLDEVICE] (LOCALVARS . T) @@ -282,58 +282,58 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (DATATYPE STREAM ( - (* ;; "First 8 words are fixed for BIN, BOUT opcodes. Used to require length of whole datatype be multiple of 4, but Dolphin dead now.") + (* ;; "First 8 words are fixed for BIN, BOUT opcodes. Used to require length of whole datatype be multiple of 4, but Dolphin dead now.") - (COFFSET WORD) (* ; - "Offset in CPPTR of next bin or bout") - (CBUFSIZE WORD) (* ; - "Offset past last byte in that buffer") - (PEEKEDCHARP FLAG) (* ; - "if true, PEEKEDCHAR contains value of recent call to unread-char") - (ACCESSBITS BITS 3) (* ; - "What kind of access file is open for (read, write, append)") - (CBUFPTR POINTER) (* ; "Pointer to current buffer") - (BYTESIZE BYTE) (* ; - "Byte size of stream, always 8 for now") - (CHARSET BYTE) (* ; "the current character set for this stream. If 255, stream is not runcoded, so read-char consumes two bytes every time") - (PEEKEDCHAR WORD) (* ; "value of unread-char call") - (CHARPOSITION WORD) (* ; "Used by POSITION etc.") - (CBUFMAXSIZE WORD) (* ; - "on output, the size of the physical buffer--can't extend beyond this") + (COFFSET WORD) (* ; + "Offset in CPPTR of next bin or bout") + (CBUFSIZE WORD) (* ; + "Offset past last byte in that buffer") + (PEEKEDCHARP FLAG) (* ; + "if true, PEEKEDCHAR contains value of recent call to unread-char") + (ACCESSBITS BITS 3) (* ; + "What kind of access file is open for (read, write, append)") + (CBUFPTR POINTER) (* ; "Pointer to current buffer") + (BYTESIZE BYTE) (* ; + "Byte size of stream, always 8 for now") + (CHARSET BYTE) (* ; "the current character set for this stream. If 255, stream is not runcoded, so read-char consumes two bytes every time") + (PEEKEDCHAR WORD) (* ; "value of unread-char call") + (CHARPOSITION WORD) (* ; "Used by POSITION etc.") + (CBUFMAXSIZE WORD) (* ; + "on output, the size of the physical buffer--can't extend beyond this") - (* ;; "-------- Above fields (8 words) potentially known to microcode. --------") + (* ;; "-------- Above fields (8 words) potentially known to microcode. --------") (NONDEFAULTDATEFLG FLAG) (REVALIDATEFLG FLAG) - (MULTIBUFFERHINT FLAG) (* ; - "True if stream likes to read and write more than one buffer at a time") - (USERCLOSEABLE FLAG) (* ; - "Can be closed by CLOSEF; NIL for terminal, dribble...") - (FULLFILENAME POINTER) (* ; - "Name by which file is known to user") - (BINABLE FLAG) (* ; "BIN punts unless this bit on") - (BOUTABLE FLAG) (* ; "BOUT punts unless this bit on") - (EXTENDABLE FLAG) (* ; - "BOUT punts when COFFSET ge CBUFFSIZE unless this bit set and COFFSET lt 512") - (CBUFDIRTY FLAG) (* ; - "true if BOUT has sullied the current buffer") - (DEVICE POINTER) (* ; "FDEV of this guy") - (USERVISIBLE FLAG) (* ; - "Listed by OPENP; NIL for terminal, dribble ...") - (EOLCONVENTION BITS 2) (* ; "End-of-line convention") - (NIL FLAG) (* ; "Was NOTXCCS.") - (VALIDATION POINTER) (* ; - "A number somehow identifying file, used to determine if file has changed in our absence") - (CPAGE POINTER) (* ; - "CPAGE,,COFFSET constitutes current file pointer for most randaccess streams") + (MULTIBUFFERHINT FLAG) (* ; + "True if stream likes to read and write more than one buffer at a time") + (USERCLOSEABLE FLAG) (* ; + "Can be closed by CLOSEF; NIL for terminal, dribble...") + (FULLFILENAME POINTER) (* ; + "Name by which file is known to user") + (BINABLE FLAG) (* ; "BIN punts unless this bit on") + (BOUTABLE FLAG) (* ; "BOUT punts unless this bit on") + (EXTENDABLE FLAG) (* ; + "BOUT punts when COFFSET ge CBUFFSIZE unless this bit set and COFFSET lt 512") + (CBUFDIRTY FLAG) (* ; + "true if BOUT has sullied the current buffer") + (DEVICE POINTER) (* ; "FDEV of this guy") + (USERVISIBLE FLAG) (* ; + "Listed by OPENP; NIL for terminal, dribble ...") + (EOLCONVENTION BITS 2) (* ; "End-of-line convention") + (NIL FLAG) (* ; "Was NOTXCCS.") + (VALIDATION POINTER) (* ; + "A number somehow identifying file, used to determine if file has changed in our absence") + (CPAGE POINTER) (* ; + "CPAGE,,COFFSET constitutes current file pointer for most randaccess streams") (EPAGE POINTER) - (EOFFSET WORD) (* ; "Page, byte offset of eof") - (LINELENGTH WORD) (* ; - "LINELENGTH of stream, or -1 for no line length") + (EOFFSET WORD) (* ; "Page, byte offset of eof") + (LINELENGTH WORD) (* ; + "LINELENGTH of stream, or -1 for no line length") - (* ;; "----Following are device-specific fields----") + (* ;; "----Following are device-specific fields----") - (* ;; "Available for device-specific uses, NOT for application use.") + (* ;; "Available for device-specific uses, NOT for application use.") (F1 POINTER) (F2 POINTER) @@ -346,54 +346,54 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (FW9 WORD) (F10 POINTER) - (* ;; "----Following only filled in for open streams----") + (* ;; "----Following only filled in for open streams----") - (STRMBINFN POINTER) (* ; - "Either the BIN fn from the FDEV, or a trap") - (STRMBOUTFN POINTER) (* ; - "Either the BIN fn from the FDEV, or a trap") - (OUTCHARFN POINTER) (* ; - "Called by \OUTCHAR, the normal character printer.") - (ENDOFSTREAMOP POINTER) (* ; - "Called if EOF and we try to read.") - (OTHERPROPS POINTER) (* ; - "PROP LIST for holding other info.") - (IMAGEOPS POINTER) (* ; "Image operations vector") - (IMAGEDATA POINTER) (* ; - "Image instance variables--format depends on IMAGEOPS value") - (BUFFS POINTER) (* ; - "Buffer chain for pmapped streams") - (MAXBUFFERS WORD) (* ; - "Max # of buffers the system will allocate.") - (LASTCCODE WORD) (* ; "After READ, RATOM, etc, the charcode that will be returned (as a character) by LASTC. If there is none, this field is 65535.") - (EXTRASTREAMOP POINTER) (* ; - "For use of applications programs, not devices") - (INCCODEFN POINTER) (* ; "Set by \EXTERNALFORMAT") + (STRMBINFN POINTER) (* ; + "Either the BIN fn from the FDEV, or a trap") + (STRMBOUTFN POINTER) (* ; + "Either the BIN fn from the FDEV, or a trap") + (OUTCHARFN POINTER) (* ; + "Called by \OUTCHAR, the normal character printer.") + (ENDOFSTREAMOP POINTER) (* ; + "Called if EOF and we try to read.") + (OTHERPROPS POINTER) (* ; + "PROP LIST for holding other info.") + (IMAGEOPS POINTER) (* ; "Image operations vector") + (IMAGEDATA POINTER) (* ; + "Image instance variables--format depends on IMAGEOPS value") + (BUFFS POINTER) (* ; + "Buffer chain for pmapped streams") + (MAXBUFFERS WORD) (* ; + "Max # of buffers the system will allocate.") + (LASTCCODE WORD) (* ; "After READ, RATOM, etc, the charcode that will be returned (as a character) by LASTC. If there is none, this field is 65535.") + (EXTRASTREAMOP POINTER) (* ; + "For use of applications programs, not devices") + (INCCODEFN POINTER) (* ; "Set by \EXTERNALFORMAT") (PEEKCCODEFN POINTER) (BACKCCODEFN POINTER) (EXTERNALFORMAT POINTER)) (BLOCKRECORD STREAM ((NIL 2 WORD) (UCODEFLAGS1 BITS 1) - (* ;; "respecification of access bits:") + (* ;; "respecification of access bits:") - (RANDOMWRITEABLE FLAG) (* ; - "File open for output (access = OUTPUT or BOTH)") - (APPENDABLE FLAG) (* ; - "File open for append (OUTPUT or APPEND or BOTH)") - (READABLE FLAG) (* ; - "File open for read (READ or BOTH)") + (RANDOMWRITEABLE FLAG) (* ; + "File open for output (access = OUTPUT or BOTH)") + (APPENDABLE FLAG) (* ; + "File open for append (OUTPUT or APPEND or BOTH)") + (READABLE FLAG) (* ; + "File open for read (READ or BOTH)") (NIL POINTER))) (BLOCKRECORD STREAM ((NIL 4 WORD) (NIL BITS 14) - (* ;; - "JIS character encoding format specific, overrides CHARSET field.") + (* ;; + "JIS character encoding format specific, overrides CHARSET field.") - (IN.KANJIIN FLAG) (* ; - "True if input stream is in Kanji-in mode.") - (OUT.KANJIIN FLAG) (* ; - "True if output stream is in Kanji-in mode.") + (IN.KANJIIN FLAG) (* ; + "True if input stream is in Kanji-in mode.") + (OUT.KANJIIN FLAG) (* ; + "True if output stream is in Kanji-in mode.") )) [ACCESSFNS STREAM ((ACCESS \GETACCESS \SETACCESS) (FULLNAME (OR (fetch (STREAM FULLFILENAME) of DATUM) @@ -809,138 +809,138 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. ) (DECLARE%: EVAL@COMPILE -(DATATYPE FDEV ((RESETABLE FLAG) (* ; "Obsolete") +(DATATYPE FDEV ((RESETABLE FLAG) (* ; "Obsolete") (RANDOMACCESSP FLAG) (NODIRECTORIES FLAG) - (PAGEMAPPED FLAG) (* ; - "True if i/o handled by pmap routines") - (FDBINABLE FLAG) (* ; - "Copied as a microcode flag for INPUT streams formed on this device") + (PAGEMAPPED FLAG) (* ; + "True if i/o handled by pmap routines") + (FDBINABLE FLAG) (* ; + "Copied as a microcode flag for INPUT streams formed on this device") (FDBOUTABLE FLAG) (FDEXTENDABLE FLAG) - (BUFFERED FLAG) (* ; "True implies that the device supports the BIN & BOUT uCode conventions, and implements the GETNEXTBUFFER method") - (DEVICENAME POINTER) (* ; "Identifying name somehow") - (REMOTEP FLAG) (* ; - "true if device not local to machine") - (SUBDIRECTORIES FLAG) (* ; - "true if device has real subdirectories") - (INPUT-INDIRECTED FLAG) (* ; - "True for devices that indirect their input stream. Method INPUTSTREAM fetches it") - (OUTPUT-INDIRECTED FLAG) (* ; - "True for devices that indirect their output stream. Method OUTPUTSTREAM fetches it") - (DEVICEINFO POINTER) (* ; - "arbitrary device-specific info stored here") - (OPENFILELST POINTER) (* ; - "Default place to keep list of streams open on this device") + (BUFFERED FLAG) (* ; "True implies that the device supports the BIN & BOUT uCode conventions, and implements the GETNEXTBUFFER method") + (DEVICENAME POINTER) (* ; "Identifying name somehow") + (REMOTEP FLAG) (* ; + "true if device not local to machine") + (SUBDIRECTORIES FLAG) (* ; + "true if device has real subdirectories") + (INPUT-INDIRECTED FLAG) (* ; + "True for devices that indirect their input stream. Method INPUTSTREAM fetches it") + (OUTPUT-INDIRECTED FLAG) (* ; + "True for devices that indirect their output stream. Method OUTPUTSTREAM fetches it") + (DEVICEINFO POINTER) (* ; + "arbitrary device-specific info stored here") + (OPENFILELST POINTER) (* ; + "Default place to keep list of streams open on this device") - (* ;; "-----Rest of record consists of device %"methods%"-----") + (* ;; "-----Rest of record consists of device %"methods%"-----") - (* ;; "-----Following fields required of all devices-----") + (* ;; "-----Following fields required of all devices-----") - (HOSTNAMEP POINTER) (* ; "(hostname {device}) => T if hostname is valid. If device is given, return a FDEV for this {new} host, or T to use existing device") - (EVENTFN POINTER) (* ; - "(device event), called before/after logout, sysout, makesys") + (HOSTNAMEP POINTER) (* ; "(hostname {device}) => T if hostname is valid. If device is given, return a FDEV for this {new} host, or T to use existing device") + (EVENTFN POINTER) (* ; + "(device event), called before/after logout, sysout, makesys") - (* ;; - "-----Following fields required of all named devices, e.g., ones that open files-----") + (* ;; + "-----Following fields required of all named devices, e.g., ones that open files-----") - (DIRECTORYNAMEP POINTER) (* ; - "(host/dir) => true if directory exists on host") - (OPENFILE POINTER) (* ; - "(name access recog otherinfo device) => new stream open on this device, or NIL if name not found") - (CLOSEFILE POINTER) (* ; - "(stream) => closes stream, returns it") - (REOPENFILE POINTER) (* ; "(name access recog otherinfo device stream) like openfile, but called after logout to revalidate file, so optionally uses info in old stream to keep this opening like the previous") - (GETFILENAME POINTER) (* ; - "(name recog device) => full file name") - (DELETEFILE POINTER) (* ; - "(name) => deletes file so named, returning name, or NIL on failure. RECOG=OLDEST") - (GENERATEFILES POINTER) (* ; "(device pattern) => generator object for files matching pattern. Car of object is generator function, cdr is arbitrary state. Generator fn returns next file, or NIL when finished") - (RENAMEFILE POINTER) (* ; "(olddevice oldfile newdevice newfile) to rename file on this (olddevice) to a potentially different device.") - (OPENP POINTER) (* ; - "(name access dev) => stream if name is open for access, or all open streams if name = NIL") - (REGISTERFILE POINTER) (* ; - "(stream dev) => registers stream on its device") - (UNREGISTERFILE POINTER) (* ; - "(stream dev) => unregisters a stream from its device") - (FREEPAGECOUNT POINTER) (* ; - "(host/dir dev) => # of free pages on host/dir") - (MAKEDIRECTORY POINTER) (* ; "(host/dir dev)") - (CHECKFILENAME POINTER) (* ; - "(name dev) => name if it is well-formed file name for dev") - (HOSTALIVEP POINTER) (* ; - "(host dev) => true if host is alive, i.e., responsive; only defined if REMOTEP is true") - (BREAKCONNECTION POINTER) (* ; - "(host fastp dev) => closes connections to host") + (DIRECTORYNAMEP POINTER) (* ; + "(host/dir) => true if directory exists on host") + (OPENFILE POINTER) (* ; + "(name access recog otherinfo device) => new stream open on this device, or NIL if name not found") + (CLOSEFILE POINTER) (* ; + "(stream) => closes stream, returns it") + (REOPENFILE POINTER) (* ; "(name access recog otherinfo device stream) like openfile, but called after logout to revalidate file, so optionally uses info in old stream to keep this opening like the previous") + (GETFILENAME POINTER) (* ; + "(name recog device) => full file name") + (DELETEFILE POINTER) (* ; + "(name) => deletes file so named, returning name, or NIL on failure. RECOG=OLDEST") + (GENERATEFILES POINTER) (* ; "(device pattern) => generator object for files matching pattern. Car of object is generator function, cdr is arbitrary state. Generator fn returns next file, or NIL when finished") + (RENAMEFILE POINTER) (* ; "(olddevice oldfile newdevice newfile) to rename file on this (olddevice) to a potentially different device.") + (OPENP POINTER) (* ; + "(name access dev) => stream if name is open for access, or all open streams if name = NIL") + (REGISTERFILE POINTER) (* ; + "(stream dev) => registers stream on its device") + (UNREGISTERFILE POINTER) (* ; + "(stream dev) => unregisters a stream from its device") + (FREEPAGECOUNT POINTER) (* ; + "(host/dir dev) => # of free pages on host/dir") + (MAKEDIRECTORY POINTER) (* ; "(host/dir dev)") + (CHECKFILENAME POINTER) (* ; + "(name dev) => name if it is well-formed file name for dev") + (HOSTALIVEP POINTER) (* ; + "(host dev) => true if host is alive, i.e., responsive; only defined if REMOTEP is true") + (BREAKCONNECTION POINTER) (* ; + "(host fastp dev) => closes connections to host") - (* ;; - "-----The following are required methods for operating on open streams-----") + (* ;; + "-----The following are required methods for operating on open streams-----") - (BIN POINTER) (* ; "(stream) => next byte of input") - (BOUT POINTER) (* ; - "(stream byte) output byte to stream") - (PEEKBIN POINTER) (* ; - "(stream) => next byte without advancing position in stream") - (NIL POINTER) (* ; - "Was READCHAR, replaced by READCHARCODE") - (NIL POINTER) (* ; - "Was WRITECHAR (stream char) => writes char to stream") - (NIL POINTER) (* ; "Was PEEKCHAR") - (NIL POINTER) (* ; "Was UNREADCHAR") - (READP POINTER) (* ; - "(stream flag) => T if there is input available from stream right now") - (EOFP POINTER) (* ; - "(stream) => T if BIN would signal eof.") - (BLOCKIN POINTER) (* ; - "(stream buffer byteoffset nbytes)") - (BLOCKOUT POINTER) (* ; - "(stream buffer byteoffset nbytes)") - (FORCEOUTPUT POINTER) (* ; - "(stream waitForFinish) flushes out to device anything that is buffered awaiting transmission") - (GETFILEINFO POINTER) (* ; - "(stream/name attribute device) => value of attribute for open stream or name of closed file") - (SETFILEINFO POINTER) (* ; -"(stream/name attribute newvalue device) sets attribute of open stream or closed file of given name") - (CHARSETFN POINTER) (* ; "(stream charset) => access function for the charset slot, for benefit of indirect streams. See IMCHARSET for changing it on a file.") - (INPUTSTREAM POINTER) (* ; - "(stream) => indirected input stream") - (OUTPUTSTREAM POINTER) (* ; - "(stream) => indirected output stream") + (BIN POINTER) (* ; "(stream) => next byte of input") + (BOUT POINTER) (* ; + "(stream byte) output byte to stream") + (PEEKBIN POINTER) (* ; + "(stream) => next byte without advancing position in stream") + (NIL POINTER) (* ; + "Was READCHAR, replaced by READCHARCODE") + (NIL POINTER) (* ; + "Was WRITECHAR (stream char) => writes char to stream") + (NIL POINTER) (* ; "Was PEEKCHAR") + (NIL POINTER) (* ; "Was UNREADCHAR") + (READP POINTER) (* ; + "(stream flag) => T if there is input available from stream right now") + (EOFP POINTER) (* ; + "(stream) => T if BIN would signal eof.") + (BLOCKIN POINTER) (* ; + "(stream buffer byteoffset nbytes)") + (BLOCKOUT POINTER) (* ; + "(stream buffer byteoffset nbytes)") + (FORCEOUTPUT POINTER) (* ; + "(stream waitForFinish) flushes out to device anything that is buffered awaiting transmission") + (GETFILEINFO POINTER) (* ; + "(stream/name attribute device) => value of attribute for open stream or name of closed file") + (SETFILEINFO POINTER) (* ; +"(stream/name attribute newvalue device) sets attribute of open stream or closed file of given name") + (CHARSETFN POINTER) (* ; "(stream charset) => access function for the charset slot, for benefit of indirect streams. See IMCHARSET for changing it on a file.") + (INPUTSTREAM POINTER) (* ; + "(stream) => indirected input stream") + (OUTPUTSTREAM POINTER) (* ; + "(stream) => indirected output stream") - (* ;; "-----Following are required of random-access streams-----") + (* ;; "-----Following are required of random-access streams-----") (GETFILEPTR POINTER) (GETEOFPTR POINTER) (SETFILEPTR POINTER) - (BACKFILEPTR POINTER) (* ; "(stream) backs up `fileptr' by one. Stream is only required to be able to do this once, i.e. one-character buffer suffices") - (SETEOFPTR POINTER) (* ; - "(stream length) => truncates or lengthens stream to indicated length") - (LASTC POINTER) (* ; - "Should be possible only if RANDOMACCESSP") + (BACKFILEPTR POINTER) (* ; "(stream) backs up `fileptr' by one. Stream is only required to be able to do this once, i.e. one-character buffer suffices") + (SETEOFPTR POINTER) (* ; + "(stream length) => truncates or lengthens stream to indicated length") + (LASTC POINTER) (* ; + "Should be possible only if RANDOMACCESSP") - (* ;; "-----Following used for buffered streams-----") + (* ;; "-----Following used for buffered streams-----") - (GETNEXTBUFFER POINTER) (* ; "(stream whatfor noerrorflg) => Disposes of current buffer and optionally reads next. whatfor is READ or WRITE. Can cause EOF error unless noerrorflg") - (RELEASEBUFFER POINTER) (* ; - "(stream) => Does whatever appropriate when CBUFPTR is released") + (GETNEXTBUFFER POINTER) (* ; "(stream whatfor noerrorflg) => Disposes of current buffer and optionally reads next. whatfor is READ or WRITE. Can cause EOF error unless noerrorflg") + (RELEASEBUFFER POINTER) (* ; + "(stream) => Does whatever appropriate when CBUFPTR is released") - (* ;; "-----Following used for pagemapped streams-----") + (* ;; "-----Following used for pagemapped streams-----") - (READPAGES POINTER) (* ; "(stream firstpage# buflist) => # of bytes read, starting at firstpage#, reading into buflist, a list of buffers or a single buffer (the usual case)") - (WRITEPAGES POINTER) (* ; - "(stream firstpage# buflist) writes from buflist to stream starting at firstpage# of stream") - (TRUNCATEFILE POINTER) (* ; - "(stream page offset) make stream's eof be at page,offset, discarding anything after it") + (READPAGES POINTER) (* ; "(stream firstpage# buflist) => # of bytes read, starting at firstpage#, reading into buflist, a list of buffers or a single buffer (the usual case)") + (WRITEPAGES POINTER) (* ; + "(stream firstpage# buflist) writes from buflist to stream starting at firstpage# of stream") + (TRUNCATEFILE POINTER) (* ; + "(stream page offset) make stream's eof be at page,offset, discarding anything after it") - (* ;; "-----For window system, argh-----") + (* ;; "-----For window system, argh-----") - (WINDOWOPS POINTER) (* ; "window system operations") - (WINDOWDATA POINTER) (* ; "data for window systems") + (WINDOWOPS POINTER) (* ; "window system operations") + (WINDOWDATA POINTER) (* ; "data for window systems") - (* ;; "-----For any stream (here to not recompile everything)-----") + (* ;; "-----For any stream (here to not recompile everything)-----") - (DEFAULTEXTERNALFORMAT POINTER) (* ; - "Was READCHARCODE. Read a character code from the stream (cf BIN for bytes).") + (DEFAULTEXTERNALFORMAT POINTER) (* ; + "Was READCHARCODE. Read a character code from the stream (cf BIN for bytes).") ) DIRECTORYNAMEP _ (FUNCTION NILL) HOSTNAMEP _ (FUNCTION NILL) @@ -957,7 +957,8 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. OPENP _ (FUNCTION NILL) UNREGISTERFILE _ (FUNCTION NILL) CHARSETFN _ (FUNCTION \GENERIC.CHARSET) - BREAKCONNECTION _ (FUNCTION NILL)) + BREAKCONNECTION _ (FUNCTION NILL) + DEFAULTEXTERNALFORMAT _ *DEFAULT-EXTERNALFORMAT*) (RECORD FILEGENOBJ (NEXTFILEFN FILEINFOFN . GENFILESTATE)) ) @@ -1186,22 +1187,22 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation. (DECLARE%: DOEVAL@COMPILE DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE -(DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (* ; "If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream. (Can't test EOL because it is always something)") +(DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (* ; "If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream. (Can't test EOL because it is always something)") (EOL BITS 2) (NIL BITS 1) - (INCCODEFN POINTER) (* ; - "Called with STREAM and 2 optional arguments, BYTECOUNTVAR and BYTECOUNTVAL") - (PEEKCCODEFN POINTER) (* ; - "Called with three arguments -- STREAM, NOERROR, and EOL") - (BACKCCODEFN POINTER) (* ; - "Called with STREAM and optional BYTECOUNTVAR and BYTECOUNTVAL") - (OUTCHARFN POINTER) (* ; - "Called with two arguments -- STREAM and CHARCODE") - (NAME POINTER) (* ; - "keyword name of this format, provided to \INSTALL.EXTERNALFORMAT") - (FORMATBYTESTREAMFN POINTER) (* ; "Function to copy the format state of a given stream to an IO stream that allows formatted byte sequences to be examined") - (EF1 POINTER) (* ; - "Extra fields for use of particular formats. Possibly to hold standardized translation tables") + (INCCODEFN POINTER) (* ; + "Called with STREAM and 2 optional arguments, BYTECOUNTVAR and BYTECOUNTVAL") + (PEEKCCODEFN POINTER) (* ; + "Called with three arguments -- STREAM, NOERROR, and EOL") + (BACKCCODEFN POINTER) (* ; + "Called with STREAM and optional BYTECOUNTVAR and BYTECOUNTVAL") + (OUTCHARFN POINTER) (* ; + "Called with two arguments -- STREAM and CHARCODE") + (NAME POINTER) (* ; + "keyword name of this format, provided to \INSTALL.EXTERNALFORMAT") + (FORMATBYTESTREAMFN POINTER) (* ; "Function to copy the format state of a given stream to an IO stream that allows formatted byte sequences to be examined") + (EF1 POINTER) (* ; + "Extra fields for use of particular formats. Possibly to hold standardized translation tables") (EF2 POINTER))) ) @@ -2947,8 +2948,8 @@ update the map") (PUTPROPS \CONVERT-PATHNAME DMACRO (OPENLAMBDA (PATHNAME?) - (* ;; - "Coerce pathnames to Interlisp strings, for the benefit of antediluvian Interlisp-D file fns") + (* ;; + "Coerce pathnames to Interlisp strings, for the benefit of antediluvian Interlisp-D file fns") (CL:TYPECASE PATHNAME? (PATHNAME (INTERLISP-NAMESTRING PATHNAME?)) @@ -3395,44 +3396,44 @@ update the map") (PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1999 2020 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (28411 31901 (STREAMPROP 28421 . 28855) (GETSTREAMPROP 28857 . 29330) (PUTSTREAMPROP -29332 . 31749) (STREAMP 31751 . 31899)) (31944 34463 (\DEFPRINT.BY.NAME 31954 . 33106) ( -\STREAM.DEFPRINT 33108 . 34156) (\FDEV.DEFPRINT 34158 . 34461)) (34721 39762 (\GETACCESS 34731 . 35185 -) (\SETACCESS 35187 . 39760)) (63079 64332 (MAKE-EXTERNALFORMAT 63089 . 64330)) (65565 73394 ( -\INSTALL.EXTERNALFORMAT 65575 . 67024) (\REMOVE.EXTERNALFORMAT 67026 . 67857) (FIND-FORMAT 67859 . -68676) (\EXTERNALFORMAT 68678 . 73392)) (73717 75580 (\CREATE.THROUGH.EXTERNALFORMAT 73727 . 74529) ( -\THROUGHIN 74531 . 74955) (\THROUGHBACKCCODE 74957 . 75228) (\THROUGHOUTCHARFN 75230 . 75578)) (75688 -81657 (\DEFINEDEVICE 75698 . 78014) (\GETDEVICEFROMNAME 78016 . 78489) (\GETDEVICEFROMHOSTNAME 78491 - . 79535) (\REMOVEDEVICE 79537 . 80660) (\REMOVEDEVICE.NAMES 80662 . 81655)) (81697 106357 (\CLOSEFILE - 81707 . 82532) (\DELETEFILE 82534 . 82828) (\DEVICEEVENT 82830 . 84600) (\GENERATEFILES 84602 . 85080 -) (\GENERATENEXTFILE 85082 . 85733) (\GENERATEFILEINFO 85735 . 86196) (\GETFILENAME 86198 . 86587) ( -\GENERIC.OUTFILEP 86589 . 87059) (\OPENFILE 87061 . 89639) (\DO.PARAMS.AT.OPEN 89641 . 92194) ( -\RENAMEFILE 92196 . 92620) (\REVALIDATEFILE 92622 . 95224) (\PAGED.REVALIDATEFILELST 95226 . 96784) ( -\PAGED.REVALIDATEFILES 96786 . 98505) (\PAGED.REVALIDATEFILE 98507 . 100790) (\BUFFERED.REVALIDATEFILE - 100792 . 103078) (\BUFFERED.REVALIDATEFILELST 103080 . 104264) (\PRINT-REVALIDATION-RESULT 104266 . -104681) (\TRUNCATEFILE 104683 . 105074) (\FILE-CONFLICT 105076 . 106355)) (106393 111056 ( -\GENERATENOFILES 106403 . 108499) (\NULLFILEGENERATOR 108501 . 108745) (\NOFILESNEXTFILEFN 108747 . -110738) (\NOFILESINFOFN 110740 . 111054)) (111175 113083 (\FILE.NOT.OPEN 111185 . 111698) ( -\FILE.WONT.OPEN 111700 . 112028) (\ILLEGAL.DEVICEOP 112030 . 112312) (\IS.NOT.RANDACCESSP 112314 . -112760) (\STREAM.NOT.OPEN 112762 . 113081)) (113218 115516 (\FDEVINSTANCE 113228 . 115514)) (117066 -124440 (CNDIR 117076 . 118381) (DIRECTORYNAME 118383 . 122566) (DIRECTORYNAMEP 122568 . 123184) ( -HOSTNAMEP 123186 . 123993) (\ADD.CONNECTED.DIR 123995 . 124438)) (124485 151872 (\BACKFILEPTR 124495 - . 124683) (\BACKPEEKBIN 124685 . 125046) (\BACKBIN 125048 . 125399) (BIN 125401 . 125618) (\BIN -125620 . 125897) (\BINS 125899 . 126185) (BOUT 126187 . 126549) (\BOUT 126551 . 126866) (\BOUTS 126868 - . 127179) (COPYBYTES 127181 . 130513) (COPYCHARS 130515 . 134181) (COPYFILE 134183 . 134980) ( -\COPYOPENFILE 134982 . 138055) (\INFER.FILE.TYPE 138057 . 139011) (EOFP 139013 . 139310) (FORCEOUTPUT -139312 . 139559) (\FLUSH.OPEN.STREAMS 139561 . 139917) (CHARSET 139919 . 141583) (ACCESS-CHARSET -141585 . 141802) (GETEOFPTR 141804 . 142054) (GETFILEINFO 142056 . 145249) (\TYPE.FROM.FILETYPE 145251 - . 145721) (\FILETYPE.FROM.TYPE 145723 . 145902) (GETFILEPTR 145904 . 146156) (SETFILEINFO 146158 . -149771) (SETFILEPTR 149773 . 151492) (BOUT16 151494 . 151679) (BIN16 151681 . 151870)) (151975 157180 -(\GENERIC.BINS 151985 . 152265) (\GENERIC.BOUTS 152267 . 152532) (\GENERIC.RENAMEFILE 152534 . 154365) - (\GENERIC.OPENP 154367 . 155682) (\GENERIC.READP 155684 . 156725) (\GENERIC.CHARSET 156727 . 157178)) - (157181 157520 (\MAP-OPEN-STREAMS 157191 . 157518)) (159390 161470 (\EOF.ACTION 159400 . 159651) ( -\EOSERROR 159653 . 159846) (\GETEOFPTR 159848 . 160030) (\INCFILEPTR 160032 . 160382) (\PEEKBIN 160384 - . 160575) (\SETCLOSEDFILELENGTH 160577 . 160911) (\SETEOFPTR 160913 . 161101) (\SETFILEPTR 161103 . -161468)) (161471 162013 (\FIXPOUT 161481 . 161781) (\FIXPIN 161783 . 162011)) (162014 162580 (\BOUTEOL - 162024 . 162578)) (165672 175536 (\BUFFERED.BIN 165682 . 166534) (\BUFFERED.PEEKBIN 166536 . 167318) -(\BUFFERED.BOUT 167320 . 168180) (\BUFFERED.BINS 168182 . 171867) (\BUFFERED.BOUTS 171869 . 173670) ( -\BUFFERED.COPYBYTES 173672 . 175534)) (175565 177917 (\NULLDEVICE 175575 . 177593) (\NULL.OPENFILE -177595 . 177915))))) + (FILEMAP (NIL (28396 31886 (STREAMPROP 28406 . 28840) (GETSTREAMPROP 28842 . 29315) (PUTSTREAMPROP +29317 . 31734) (STREAMP 31736 . 31884)) (31929 34448 (\DEFPRINT.BY.NAME 31939 . 33091) ( +\STREAM.DEFPRINT 33093 . 34141) (\FDEV.DEFPRINT 34143 . 34446)) (34706 39747 (\GETACCESS 34716 . 35170 +) (\SETACCESS 35172 . 39745)) (63132 64385 (MAKE-EXTERNALFORMAT 63142 . 64383)) (65618 73447 ( +\INSTALL.EXTERNALFORMAT 65628 . 67077) (\REMOVE.EXTERNALFORMAT 67079 . 67910) (FIND-FORMAT 67912 . +68729) (\EXTERNALFORMAT 68731 . 73445)) (73770 75633 (\CREATE.THROUGH.EXTERNALFORMAT 73780 . 74582) ( +\THROUGHIN 74584 . 75008) (\THROUGHBACKCCODE 75010 . 75281) (\THROUGHOUTCHARFN 75283 . 75631)) (75741 +81710 (\DEFINEDEVICE 75751 . 78067) (\GETDEVICEFROMNAME 78069 . 78542) (\GETDEVICEFROMHOSTNAME 78544 + . 79588) (\REMOVEDEVICE 79590 . 80713) (\REMOVEDEVICE.NAMES 80715 . 81708)) (81750 106410 (\CLOSEFILE + 81760 . 82585) (\DELETEFILE 82587 . 82881) (\DEVICEEVENT 82883 . 84653) (\GENERATEFILES 84655 . 85133 +) (\GENERATENEXTFILE 85135 . 85786) (\GENERATEFILEINFO 85788 . 86249) (\GETFILENAME 86251 . 86640) ( +\GENERIC.OUTFILEP 86642 . 87112) (\OPENFILE 87114 . 89692) (\DO.PARAMS.AT.OPEN 89694 . 92247) ( +\RENAMEFILE 92249 . 92673) (\REVALIDATEFILE 92675 . 95277) (\PAGED.REVALIDATEFILELST 95279 . 96837) ( +\PAGED.REVALIDATEFILES 96839 . 98558) (\PAGED.REVALIDATEFILE 98560 . 100843) (\BUFFERED.REVALIDATEFILE + 100845 . 103131) (\BUFFERED.REVALIDATEFILELST 103133 . 104317) (\PRINT-REVALIDATION-RESULT 104319 . +104734) (\TRUNCATEFILE 104736 . 105127) (\FILE-CONFLICT 105129 . 106408)) (106446 111109 ( +\GENERATENOFILES 106456 . 108552) (\NULLFILEGENERATOR 108554 . 108798) (\NOFILESNEXTFILEFN 108800 . +110791) (\NOFILESINFOFN 110793 . 111107)) (111228 113136 (\FILE.NOT.OPEN 111238 . 111751) ( +\FILE.WONT.OPEN 111753 . 112081) (\ILLEGAL.DEVICEOP 112083 . 112365) (\IS.NOT.RANDACCESSP 112367 . +112813) (\STREAM.NOT.OPEN 112815 . 113134)) (113271 115569 (\FDEVINSTANCE 113281 . 115567)) (117119 +124493 (CNDIR 117129 . 118434) (DIRECTORYNAME 118436 . 122619) (DIRECTORYNAMEP 122621 . 123237) ( +HOSTNAMEP 123239 . 124046) (\ADD.CONNECTED.DIR 124048 . 124491)) (124538 151925 (\BACKFILEPTR 124548 + . 124736) (\BACKPEEKBIN 124738 . 125099) (\BACKBIN 125101 . 125452) (BIN 125454 . 125671) (\BIN +125673 . 125950) (\BINS 125952 . 126238) (BOUT 126240 . 126602) (\BOUT 126604 . 126919) (\BOUTS 126921 + . 127232) (COPYBYTES 127234 . 130566) (COPYCHARS 130568 . 134234) (COPYFILE 134236 . 135033) ( +\COPYOPENFILE 135035 . 138108) (\INFER.FILE.TYPE 138110 . 139064) (EOFP 139066 . 139363) (FORCEOUTPUT +139365 . 139612) (\FLUSH.OPEN.STREAMS 139614 . 139970) (CHARSET 139972 . 141636) (ACCESS-CHARSET +141638 . 141855) (GETEOFPTR 141857 . 142107) (GETFILEINFO 142109 . 145302) (\TYPE.FROM.FILETYPE 145304 + . 145774) (\FILETYPE.FROM.TYPE 145776 . 145955) (GETFILEPTR 145957 . 146209) (SETFILEINFO 146211 . +149824) (SETFILEPTR 149826 . 151545) (BOUT16 151547 . 151732) (BIN16 151734 . 151923)) (152028 157233 +(\GENERIC.BINS 152038 . 152318) (\GENERIC.BOUTS 152320 . 152585) (\GENERIC.RENAMEFILE 152587 . 154418) + (\GENERIC.OPENP 154420 . 155735) (\GENERIC.READP 155737 . 156778) (\GENERIC.CHARSET 156780 . 157231)) + (157234 157573 (\MAP-OPEN-STREAMS 157244 . 157571)) (159443 161523 (\EOF.ACTION 159453 . 159704) ( +\EOSERROR 159706 . 159899) (\GETEOFPTR 159901 . 160083) (\INCFILEPTR 160085 . 160435) (\PEEKBIN 160437 + . 160628) (\SETCLOSEDFILELENGTH 160630 . 160964) (\SETEOFPTR 160966 . 161154) (\SETFILEPTR 161156 . +161521)) (161524 162066 (\FIXPOUT 161534 . 161834) (\FIXPIN 161836 . 162064)) (162067 162633 (\BOUTEOL + 162077 . 162631)) (165725 175589 (\BUFFERED.BIN 165735 . 166587) (\BUFFERED.PEEKBIN 166589 . 167371) +(\BUFFERED.BOUT 167373 . 168233) (\BUFFERED.BINS 168235 . 171920) (\BUFFERED.BOUTS 171922 . 173723) ( +\BUFFERED.COPYBYTES 173725 . 175587)) (175618 177970 (\NULLDEVICE 175628 . 177646) (\NULL.OPENFILE +177648 . 177968))))) STOP diff --git a/sources/FILEIO.LCOM b/sources/FILEIO.LCOM index c4b4e82cc6e77200a1cda15eb0bdeab965235714..b2af608bc4cd3f190cdefa153dc7c390cfc868d3 100644 GIT binary patch delta 395 zcmaFT$lTY&Ji$#xlS{+R)5q00$kj2#)kQ%`!Av(ewLsU%z{pU+(9Fuv)XKnQVntxR zrI99@q^XsuB~V^TA*m=eIX|}`Gbc4gfh)D5ASW|9vm~cd)k-18&BZm$(=Ry0(a+gc zA;vG%#|I<;WM}3nD7gW-3dr{9>FFscq$HLA%|UgCsg)McE+a!Fysia0$i&LfWO6*C zgTJMb0+*q=g$d9X$r*`x>8ZsECHX)XX#}}C`voYa=GTKev)c=}2fdL3aGA7TS5F}%0su1Ji z>gMU^3h^G$nZ^d@3VxnI4^EnBB@*NA>gO8d>8$7M;TRO`8lqriY&v=WEXmEm6DR5e E01u^VMgRZ+ delta 378 zcmeBcVt&%dJi*OKLC(!T$k#DMK`z4CIarfR!_Cvj)j7!3F~rqHLCMfq*ReER*T}%g zP{Gi`%GlD%&|+d%V7-O8CYq$Vm7#%^p_!6GQc-Gher`c#PHKt*S8_&TUV3V=s+EGX ze?X+OhhtE%LS~+Vl3S>cj{>scdU|?F3Mq*tKuxHYg3UEDR6=o?Bo3!3DNL-j^R+Nn z;4(C~FgCMLfZDH6k`Hu(hMQk7!X26l1x2Z4nfax~V0(e`N(vT8zBREjHMTObocw{& zk;%ervg}Uj&3;Vjy^N-lxAniCylO&#uz{IEjEk$Ar=P2fYnZ3AE6|CP#U@%w`gsC9 bXJl-u5aaIZ=NjbctOxeEYslu>i4*k!xNc_Y diff --git a/sources/FONTPROFILE b/sources/FONTPROFILE index 106d0d0d..46e5fb5c 100644 --- a/sources/FONTPROFILE +++ b/sources/FONTPROFILE @@ -1,103 +1,103 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "28-Jun-99 22:10:46" {DSK}medley3.5>sources>FONTPROFILE.;2 29960 +(FILECREATED " 6-Sep-2021 19:11:32"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;4 30288 - changes to%: (VARS FONTPROFILECOMS) - (ALISTS (FONTDEFS NS) - (FONTDEFS BIGGERNS)) + changes to%: (ALISTS (FONTDEFS BIGGERNS)) - previous date%: " 9-Jul-91 18:38:04" {DSK}medley3.5>sources>FONTPROFILE.;1) + previous date%: " 6-Sep-2021 15:52:13" +{DSK}kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;2) (* ; " -Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All rights reserved. +Copyright (c) 1986, 1988, 1990-1991, 1999, 2021 by Venue & Xerox Corporation. ") (PRETTYCOMPRINT FONTPROFILECOMS) (RPAQQ FONTPROFILECOMS ( - (* ;; "FONT") + (* ;; "FONT") (ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER NS BIGGERNS)) (ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu)) [VARS (FONTVARS '( - (* ;; "standard size fonts. Assumes only DEFAULTFONT set") + (* ;; "standard size fonts. Assumes only DEFAULTFONT set") (BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD)) - (* ; "default BOLD") + (* ; "default BOLD") (ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC)) (LITTLEFONT DEFAULTFONT) - (* ; " should usually be smaller") + (* ; " should usually be smaller") (TINYFONT LITTLEFONT) - (* ; "and this one smaller still") + (* ; "and this one smaller still") (BIGFONT BOLDFONT) - (* ; "should be bigger still") + (* ; "should be bigger still") (TEXTFONT DEFAULTFONT) - (* ; "default for text") + (* ; "default for text") (TEXTBOLDFONT BOLDFONT) - (* ; "default for bold text") + (* ; "default for bold text") - (* ;; "") + (* ;; "") - (* ;; "Fonts for window system, processes") + (* ;; "Fonts for window system, processes") - (* ;; "") + (* ;; "") (MENUFONT DEFAULTFONT T) (BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD)) - (* ; "if not supplied") + (* ; "if not supplied") (INTERRUPTMENUFONT DEFAULTFONT T) - (* ; "used by control-B") + (* ; "used by control-B") (DEFAULTICONFONT MENUFONT) - (* ; "for shrinking windows") + (* ; "for shrinking windows") (BACKTRACEFONT TINYFONT T) - (* ; " for backtrace in debugger") + (* ; " for backtrace in debugger") (WINDOWTITLEFONT MENUFONT) ((WINDOWTITLEFONT WINDOWTITLEFONT) NIL) - (* ; " used for titles of all windows") + (* ; " used for titles of all windows") - (* ;; "") + (* ;; "") - (* ;; "Fonts for Exec") + (* ;; "Fonts for Exec") - (* ;; "") + (* ;; "") (PROMPTFONT LITTLEFONT) - (* ; "for printing out prompts") + (* ; "for printing out prompts") (INPUTFONT BOLDFONT) - (* ; "for user typein in Exec") + (* ; "for user typein in Exec") (PRINTOUTFONT DEFAULTFONT) - (* ; " for intermediate typin in Exec") + (* ; " for intermediate typin in Exec") (TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT)) (VALUEFONT DEFAULTFONT) - (* ; - " for printing out values returned in Exec") + (* ; + " for printing out values returned in Exec") - (* ;; "") + (* ;; "") - (* ;; "Fonts for prettyprinting") + (* ;; "Fonts for prettyprinting") - (* ;; "") + (* ;; "") (COMMENTFONT LITTLEFONT) - (* ; "for comments ") + (* ; "for comments ") (PRETTYCOMFONT BOLDFONT) - (* ; " for words being defined") + (* ; " for words being defined") (CLISPFONT BOLDFONT) - (* ; " for keywords & CLISP") + (* ; " for keywords & CLISP") (SYSTEMFONT DEFAULTFONT) - (* ; " for %"system%" words(?)") + (* ; " for %"system%" words(?)") (LAMBDAFONT BIGFONT) - (* ; "for words being defined") + (* ; "for words being defined") (USERFONT BOLDFONT) - (* ; " for %"user%" defined words")] + (* ; " for %"user%" defined words")] (P (MOVD? 'NILL 'WINDOWTITLEFONT)) (FNS FONTSET FONTPROFILE FONTPROFILE.ADDDEVICE) (INITVARS (FONTESCAPECHAR (CHARACTER 6)) @@ -242,7 +242,11 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All ri (MODERN 8 MIR)) (BIGFONT 4 (MODERN 12 BRR) (MODERN 10 BRR) - (MODERN 10 BRR] + (MODERN 10 BRR)) + (MENUFONT 5 (MODERN 10)) + (COMMENTFONT 6 (MODERN 8) + (MODERN 6 MIR) + (MODERN 8 MIR] [BIGGERNS (FONTCHANGEFLG . ALL) (FILELINELENGTH . 102) (COMMENTLINELENGTH 116 . 126) @@ -263,89 +267,93 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All ri (MODERN 8 MIR)) (BIGFONT 4 (MODERN 14 BRR) (MODERN 10 BRR) - (MODERN 10 BRR]) + (MODERN 10 BRR)) + (MENUFONT 5 (MODERN 12)) + (COMMENTFONT 6 (MODERN 10) + (MODERN 8 MIR) + (MODERN 10 MIR]) (ADDTOVAR CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu) (RPAQQ FONTVARS ( - (* ;; "standard size fonts. Assumes only DEFAULTFONT set") + (* ;; "standard size fonts. Assumes only DEFAULTFONT set") (BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD)) - (* ; "default BOLD") + (* ; "default BOLD") (ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC)) (LITTLEFONT DEFAULTFONT) - (* ; " should usually be smaller") + (* ; " should usually be smaller") (TINYFONT LITTLEFONT) - (* ; "and this one smaller still") + (* ; "and this one smaller still") (BIGFONT BOLDFONT) - (* ; "should be bigger still") + (* ; "should be bigger still") (TEXTFONT DEFAULTFONT) - (* ; "default for text") + (* ; "default for text") (TEXTBOLDFONT BOLDFONT) - (* ; "default for bold text") + (* ; "default for bold text") - (* ;; "") + (* ;; "") - (* ;; "Fonts for window system, processes") + (* ;; "Fonts for window system, processes") - (* ;; "") + (* ;; "") (MENUFONT DEFAULTFONT T) (BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD)) - (* ; "if not supplied") + (* ; "if not supplied") (INTERRUPTMENUFONT DEFAULTFONT T) - (* ; "used by control-B") + (* ; "used by control-B") (DEFAULTICONFONT MENUFONT) - (* ; "for shrinking windows") + (* ; "for shrinking windows") (BACKTRACEFONT TINYFONT T) - (* ; " for backtrace in debugger") + (* ; " for backtrace in debugger") (WINDOWTITLEFONT MENUFONT) ((WINDOWTITLEFONT WINDOWTITLEFONT) NIL) - (* ; " used for titles of all windows") + (* ; " used for titles of all windows") - (* ;; "") + (* ;; "") - (* ;; "Fonts for Exec") + (* ;; "Fonts for Exec") - (* ;; "") + (* ;; "") (PROMPTFONT LITTLEFONT) - (* ; "for printing out prompts") + (* ; "for printing out prompts") (INPUTFONT BOLDFONT) - (* ; "for user typein in Exec") + (* ; "for user typein in Exec") (PRINTOUTFONT DEFAULTFONT) - (* ; " for intermediate typin in Exec") + (* ; " for intermediate typin in Exec") (TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT)) (VALUEFONT DEFAULTFONT) - (* ; - " for printing out values returned in Exec") + (* ; + " for printing out values returned in Exec") - (* ;; "") + (* ;; "") - (* ;; "Fonts for prettyprinting") + (* ;; "Fonts for prettyprinting") - (* ;; "") + (* ;; "") (COMMENTFONT LITTLEFONT) - (* ; "for comments ") + (* ; "for comments ") (PRETTYCOMFONT BOLDFONT) - (* ; " for words being defined") + (* ; " for words being defined") (CLISPFONT BOLDFONT) - (* ; " for keywords & CLISP") + (* ; " for keywords & CLISP") (SYSTEMFONT DEFAULTFONT) - (* ; " for %"system%" words(?)") + (* ; " for %"system%" words(?)") (LAMBDAFONT BIGFONT) - (* ; "for words being defined") + (* ; "for words being defined") (USERFONT BOLDFONT) - (* ; " for %"user%" defined words"))) + (* ; " for %"user%" defined words"))) (MOVD? 'NILL 'WINDOWTITLEFONT) (DEFINEQ @@ -591,8 +599,8 @@ Copyright (c) 1986, 1988, 1990, 1991, 1999 by Venue & Xerox Corporation. All ri (SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26) 1 FILERDTBL) -(PUTPROPS FONTPROFILE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1999)) +(PUTPROPS FONTPROFILE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1999 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (16000 27584 (FONTSET 16010 . 22351) (FONTPROFILE 22353 . 24702) (FONTPROFILE.ADDDEVICE -24704 . 27582)) (27820 29719 (FONTMAPARRAY 27830 . 29717))))) + (FILEMAP (NIL (16323 27907 (FONTSET 16333 . 22674) (FONTPROFILE 22676 . 25025) (FONTPROFILE.ADDDEVICE +25027 . 27905)) (28143 30042 (FONTMAPARRAY 28153 . 30040))))) STOP diff --git a/sources/FONTPROFILE.LCOM b/sources/FONTPROFILE.LCOM index a58f35d2f351529da40934630ec01a8d22d17887..5290bc02f2c2b4b122b2ea8e9865a21c41245a7e 100644 GIT binary patch delta 1238 zcmZuxOHUI~6b`6}S8WTlQ~IF2ofbM{1UscIbrK(?OlzebXgkIC18GGPX^FB>69Xph zNI*RsSMFRGj4{!TiG-DVe*i}L112WAGtqO#fGEu3yWf20oH>sSnFV8+CMIkM9TBJV`_Xrl(&`b*s1Ov>h#BWe=db`P?FD4(J!#N8II>0uS(d|L_}Os`nN5;m!k$1jBXvCqx4?=$(#%8% zNS*LWa>BfA56s*5faH+Sr|6)>y4(dH9U3x0xQ2LFpfR$OEWxd|6cT=xpl>Y*sZ za|Q9Ohio1%HS@qr%DR`PamnL@YF8H7%P#Wx=(59cH-n7V38#DtDofrFJoBAI_Sr{q zC;SupSYc#HE9pE5R|9rf^`Aza@#`|{rDq<}WVv?b8{kd@TI zTsDhOGM8tLpS7SgTG9;TTps-yaK8_B1qMLySTIE{a27^+>)s^C5y=c*2gceqa>PuH zcCg6(aKvXB-mpZsW#3xaCQtH0u7v3~dQ&2%AmhbA6?2&Xp-9Vwt4E86EFZj#xE!Q+ zY6;Q!8traa3XyHiyia%2z+ZGh+o^iv}4F{%Rmd$uGGWyLU7Ay$B?N~ z8F5jfD4!#Q=#~#7X5~^EtzLRSC) delta 1133 zcmaJ=No*Ts6qae!Rt-}p-qP{-w*T7cF{pPI3fFLgyXGPRZ zzzx&6bn}hgc6X!Q?4RHC+EQ1xSyKZopU)}KyuPyaPJ0LX-Ejj%ZmD29P^?wmx?S@w zrB-ny5DVp!<2oQRk7*Shs4^7~d=sbh^89W`&a3RWv^OP7SMxuO{i?*VDvsrXVd~sN z^OeP;KJMZD<6rw|X`Fb@maDIRN(&x2xkk9*;h~4RzfH=%e~Iu9Kl5H0Y7jmeS|Lmg zw+P=GX8O+_uLoHCL7+((4KlnHWXexL7I`}q#%rPZW1O?>xK;%pOeXMYNFmRQ&?;dg z%&I;PGd><+_>khK!l_GSe{zcX zAB@PT@_AzW(IkGr&#=f;2!G&hVwot5x$mJb#+o-{ZxenMWBOE_ZT)VXDZW?)k0z?b zITUrQ~sG>abdCMTHv^as#&m2HUy2SFctbZ;^331VPfA;EgmDiS}JpY143jno&W#< diff --git a/sources/FONTPROFILEPATCH b/sources/FONTPROFILEPATCH deleted file mode 100644 index 04db1fce..00000000 --- a/sources/FONTPROFILEPATCH +++ /dev/null @@ -1,608 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "12-Mar-93 11:02:28" {DSK}medley2.0>patches>FONTPROFILEPATCH.;4 30621 - - changes to%: (ALISTS (FONTDEFS HUGE) - (FONTDEFS BIG) - (FONTDEFS MEDIUM) - (FONTDEFS STANDARD) - (FONTDEFS BIGGER) - (FONTDEFS BIGGERNS) - (FONTDEFS NS)) - - previous date%: "11-Mar-93 11:51:49" {DSK}medley2.0>patches>FONTPROFILEPATCH.;3) - - -(* ; " -Copyright (c) 1993 by Xerox Corporation. All rights reserved. -") - -(PRETTYCOMPRINT FONTPROFILEPATCHCOMS) - -(RPAQQ FONTPROFILEPATCHCOMS - ( - (* ;; "FONT") - - (ALISTS (FONTDEFS HUGE BIG MEDIUM STANDARD BIGGER BIGGERNS NS)) - (ADDVARS (CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu)) - [VARS (FONTVARS '( - (* ;; "standard size fonts. Assumes only DEFAULTFONT set") - - (BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD)) - (* ; "default BOLD") - (ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC)) - (LITTLEFONT DEFAULTFONT) - (* ; " should usually be smaller") - (TINYFONT LITTLEFONT) - (* ; "and this one smaller still") - (BIGFONT BOLDFONT) - (* ; "should be bigger still") - (TEXTFONT DEFAULTFONT) - (* ; "default for text") - (TEXTBOLDFONT BOLDFONT) - (* ; "default for bold text") - - (* ;; "") - - - (* ;; "Fonts for window system, processes") - - - (* ;; "") - - (MENUFONT DEFAULTFONT T) - (BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD)) - (* ; "if not supplied") - (INTERRUPTMENUFONT DEFAULTFONT T) - (* ; "used by control-B") - (DEFAULTICONFONT MENUFONT) - (* ; "for shrinking windows") - (BACKTRACEFONT TINYFONT T) - (* ; " for backtrace in debugger") - (WINDOWTITLEFONT MENUFONT) - ((WINDOWTITLEFONT WINDOWTITLEFONT) - NIL) - (* ; " used for titles of all windows") - - (* ;; "") - - - (* ;; "Fonts for Exec") - - - (* ;; "") - - (PROMPTFONT LITTLEFONT) - (* ; "for printing out prompts") - (INPUTFONT BOLDFONT) - (* ; "for user typein in Exec") - (PRINTOUTFONT DEFAULTFONT) - (* ; " for intermediate typin in Exec") - (TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT)) - (VALUEFONT DEFAULTFONT) - (* ; - " for printing out values returned in Exec") - - (* ;; "") - - - (* ;; "Fonts for prettyprinting") - - - (* ;; "") - - (COMMENTFONT LITTLEFONT) - (* ; "for comments ") - (PRETTYCOMFONT BOLDFONT) - (* ; " for words being defined") - (CLISPFONT BOLDFONT) - (* ; " for keywords & CLISP") - (SYSTEMFONT DEFAULTFONT) - (* ; " for %"system%" words(?)") - (LAMBDAFONT BIGFONT) - (* ; "for words being defined") - (USERFONT BOLDFONT) - (* ; " for %"user%" defined words")] - (P (MOVD? 'NILL 'WINDOWTITLEFONT)) - (FNS FONTSET FONTPROFILE FONTPROFILE.ADDDEVICE) - (INITVARS (FONTESCAPECHAR (CHARACTER 6)) - (FONTFNS) - (FONTWORDS)) - [DECLARE%: DONTEVAL@LOAD DOCOPY (P (FONTSET 'STANDARD] - (GLOBALVARS FONTPROFILE FONTESCAPECHAR FONTDEFS) - (FNS FONTMAPARRAY) - (INITVARS (\FONTMAPCACHE)) - (P (SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26) - 1 FILERDTBL)))) - - - -(* ;; "FONT") - - -(ADDTOVAR FONTDEFS - [HUGE (FONTPROFILE (DEFAULTFONT 1 (MODERN 24) - NIL - (TERMINAL 8)) - (BOLDFONT 2 (MODERN 24 BRR) - NIL - (MODERN 8 BRR)) - (LITTLEFONT 3 (MODERN 18 MRR) - NIL - (MODERN 8 MIR)) - (BIGFONT 4 (MODERN 36 BRR) - NIL - (MODERN 10 BRR)) - (TEXTFONT 5 (CLASSIC 24) - NIL - (CLASSIC 10)) - (TEXTBOLDFONT 7 (CLASSIC 24 BRR) - NIL - (CLASSIC 10 BRR] - [BIG (FONTPROFILE (DEFAULTFONT 1 (MODERN 18) - NIL - (TERMINAL 8)) - (TEXTFONT 5 (CLASSIC 18) - NIL - (CLASSIC 10)) - (BOLDFONT 2 (MODERN 18 BRR) - NIL - (MODERN 8 BRR)) - (LITTLEFONT 3 (MODERN 12 MRR) - NIL - (MODERN 8 MIR)) - (BIGFONT 4 (MODERN 24 BRR) - NIL - (MODERN 10 BRR)) - (TEXTBOLDFONT 7 (CLASSIC 18 BRR) - NIL - (CLASSIC 10 BRR] - [MEDIUM (FONTPROFILE (DEFAULTFONT 1 (MODERN 14) - NIL - (TERMINAL 8)) - (BOLDFONT 2 (MODERN 14 BRR) - NIL - (MODERN 8 BRR)) - (LITTLEFONT 3 (MODERN 10) - NIL - (MODERN 8 MIR)) - (BIGFONT 4 (MODERN 18) - NIL - (MODERN 10 BRR)) - (TEXTFONT 5 (CLASSIC 14) - NIL - (CLASSIC 10)) - (TEXTBOLDFONT 7 (CLASSIC 14 BRR) - NIL - (CLASSIC 10 BRR] - [STANDARD (FONTCHANGEFLG . ALL) - (FILELINELENGTH . 102) - (FONTPROFILE (DEFAULTFONT 1 (GACHA 10) - (GACHA 8) - (TERMINAL 8)) - (ITALICFONT 1 (HELVETICA 10 MIR) - (GACHA 8 MIR) - (MODERN 8 MIR)) - (BOLDFONT 2 (HELVETICA 10 BRR) - (HELVETICA 8 BRR) - (MODERN 8 BRR)) - (LITTLEFONT 3 (HELVETICA 8) - (HELVETICA 6 MIR) - (MODERN 8 MIR)) - (TINYFONT 6 (GACHA 8) - (GACHA 6) - (TERMINAL 6)) - (BIGFONT 4 (HELVETICA 12 BRR) - NIL - (MODERN 10 BRR)) - (MENUFONT 5 (HELVETICA 10)) - (COMMENTFONT 6 (HELVETICA 10) - (HELVETICA 8) - (MODERN 8)) - (TEXTFONT 7 (TIMESROMAN 10) - NIL - (CLASSIC 10] - [BIGGER (FONTPROFILE (DEFAULTFONT 1 (GACHA 12) - NIL - (TERMINAL 8)) - (ITALICFONT 1 (HELVETICA 12 MIR) - (GACHA 8 MIR) - (MODERN 8 MIR)) - (BOLDFONT 2 (HELVETICA 12 BRR) - (HELVETICA 8 BRR) - (MODERN 8 BRR)) - (LITTLEFONT 3 (HELVETICA 10) - (HELVETICA 6 MIR) - (MODERN 8 MIR)) - (TINYFONT 6 (GACHA 10) - (GACHA 6) - (TERMINAL 6)) - (BIGFONT 4 (HELVETICA 14 BRR) - NIL - (MODERN 10 BRR)) - (MENUFONT 5 (HELVETICA 12)) - (COMMENTFONT 6 (HELVETICA 12) - (HELVETICA 8) - (MODERN 8)) - (TEXTFONT 7 (TIMESROMAN 12) - NIL - (CLASSIC 10] - [BIGGERNS (FONTCHANGEFLG . ALL) - (FILELINELENGTH . 102) - (COMMENTLINELENGTH 116 . 126) - (FIRSTCOL . 60) - (PRETTYLCOM . 25) - (FONTESCAPECHAR . %) - (FONTPROFILE (DEFAULTFONT 1 (TERMINAL 12) - (TERMINAL 8) - (TERMINAL 8)) - (ITALICFONT 1 (MODERN 12 BIR) - (MODERN 8 BIR) - (MODERN 8 BIR)) - (BOLDFONT 2 (MODERN 12 BRR) - (MODERN 8 BRR) - (MODERN 8 BRR)) - (LITTLEFONT 3 (MODERN 10) - (MODERN 6 MIR) - (MODERN 8 MIR)) - (BIGFONT 4 (MODERN 14 BRR) - (MODERN 10 BRR) - (MODERN 10 BRR] - [NS (FONTCHANGEFLG . ALL) - (FILELINELENGTH . 102) - (COMMENTLINELENGTH 116 . 126) - (FIRSTCOL . 60) - (PRETTYLCOM . 25) - (FONTESCAPECHAR . %) - (FONTPROFILE (DEFAULTFONT 1 (TERMINAL 10) - (TERMINAL 8) - (TERMINAL 8)) - (ITALICFONT 1 (MODERN 10 BIR) - (MODERN 8 BIR) - (MODERN 8 BIR)) - (BOLDFONT 2 (MODERN 10 BRR) - (MODERN 8 BRR) - (MODERN 8 BRR)) - (LITTLEFONT 3 (MODERN 8) - (MODERN 6 MIR) - (MODERN 8 MIR)) - (BIGFONT 4 (MODERN 12 BRR) - (MODERN 10 BRR) - (MODERN 10 BRR]) - -(ADDTOVAR CACHEDMENUS BreakMenu WindowMenu BackgroundMenu IconWindowMenu) - -(RPAQQ FONTVARS - ( - (* ;; "standard size fonts. Assumes only DEFAULTFONT set") - - (BOLDFONT (FONTCOPY DEFAULTFONT 'FACE 'BOLD)) - (* ; "default BOLD") - (ITALICFONT (FONTCOPY DEFAULTFONT 'FACE 'ITALIC)) - (LITTLEFONT DEFAULTFONT) - (* ; " should usually be smaller") - (TINYFONT LITTLEFONT) - (* ; "and this one smaller still") - (BIGFONT BOLDFONT) - (* ; "should be bigger still") - (TEXTFONT DEFAULTFONT) - (* ; "default for text") - (TEXTBOLDFONT BOLDFONT) - (* ; "default for bold text") - - (* ;; "") - - - (* ;; "Fonts for window system, processes") - - - (* ;; "") - - (MENUFONT DEFAULTFONT T) - (BOLDMENUFONT (FONTCOPY MENUFONT 'FACE 'BOLD)) - (* ; "if not supplied") - (INTERRUPTMENUFONT DEFAULTFONT T) - (* ; "used by control-B") - (DEFAULTICONFONT MENUFONT) - (* ; "for shrinking windows") - (BACKTRACEFONT TINYFONT T) - (* ; " for backtrace in debugger") - (WINDOWTITLEFONT MENUFONT) - ((WINDOWTITLEFONT WINDOWTITLEFONT) - NIL) - (* ; " used for titles of all windows") - - (* ;; "") - - - (* ;; "Fonts for Exec") - - - (* ;; "") - - (PROMPTFONT LITTLEFONT) - (* ; "for printing out prompts") - (INPUTFONT BOLDFONT) - (* ; "for user typein in Exec") - (PRINTOUTFONT DEFAULTFONT) - (* ; " for intermediate typin in Exec") - (TTYINBOLDFONT (CONS DEFAULTFONT BOLDFONT)) - (VALUEFONT DEFAULTFONT) - (* ; - " for printing out values returned in Exec") - - (* ;; "") - - - (* ;; "Fonts for prettyprinting") - - - (* ;; "") - - (COMMENTFONT LITTLEFONT) - (* ; "for comments ") - (PRETTYCOMFONT BOLDFONT) - (* ; " for words being defined") - (CLISPFONT BOLDFONT) - (* ; " for keywords & CLISP") - (SYSTEMFONT DEFAULTFONT) - (* ; " for %"system%" words(?)") - (LAMBDAFONT BIGFONT) - (* ; "for words being defined") - (USERFONT BOLDFONT) - (* ; " for %"user%" defined words"))) - -(MOVD? 'NILL 'WINDOWTITLEFONT) -(DEFINEQ - -(FONTSET - [LAMBDA (NAME CHANGE-WINDOWS?) (* ; "Edited 23-Jun-88 10:46 by jds") - (COND - [NAME - (LET - [(TEM (FASSOC NAME FONTDEFS)) - (OLDDEFAULT (FONTCREATE DEFAULTFONT NIL NIL NIL 'DISPLAY] - (OR TEM (ERROR NAME "not a defined font configuration")) - - (* ;; "Looks up NAME on FONTSLST and sets apropriate parameters. entries are added to fontslst by FONTNAME.") - - (for X in FONTVARS when (AND (CL:SYMBOLP (CAR X)) - (NEQ (CAR X) - '*) - (NEQ (CAR X) - (CADR X))) do (SETTOPVAL (CAR X))) - [MAPC (CDR TEM) - (FUNCTION (LAMBDA (X) - (/SETTOPVAL (CAR X) - (CDR X] - [PROG (BASICCLASSES) - (for X in FONTPROFILE - do (PROG (SEEN (NAME (CAR X)) - (FONTS X)) - LP [COND - ((MEMB (CAR FONTS) - SEEN) - (ERROR "Circular font profile specification" X)) - (T (push SEEN (CAR FONTS] - [SETQ FONTS (CDR (COND - ((OR (NULL (CADR FONTS)) - (LISTP (CADR FONTS))) - (*) - (* ; - "This skips over the now-defunct NIL or list-of-escape sequence") - (CDR FONTS)) - (T FONTS] - (COND - ((OR (NLISTP FONTS) - (LITATOM (CAR FONTS)))(* ; - "Indirect thru another's font spec") - (AND (SETQ FONTS (ASSOC (SELECTQ (CAR (LISTP FONTS)) - ((NIL DEFAULTFONT) - (* ; - "Don't let DEFAULTFONT loop thru itself") - (AND (NOT (MEMB 'DEFAULTFONT SEEN - )) - 'DEFAULTFONT)) - (CAR FONTS)) - FONTPROFILE)) - (GO LP))) - (T [push BASICCLASSES (SETQ FONTS (FONTCLASS NAME FONTS - 'DISPLAY] - (* ; - "Now we have a font class datastructure") - )) - (AND NAME (/SETTOPVAL NAME FONTS)) - - (* ;; "NIL for the class-name means just establish the font-correspondences but don't connect them up with a pretty class name.") - - )) - (AND BASICCLASSES (FONTMAPARRAY BASICCLASSES 'DISPLAY] - [for X in FONTVARS when (NEQ (CAR X) - '*) - do (COND - ((LISTP (CAR X)) - (EVAL (CAR X))) - [(CADDR X) - (SET (CAR X) - (FONTCREATE (OR (GETTOPVAL (CAR X)) - (EVAL (CADR X)) - DEFAULTFONT) - NIL NIL NIL 'DISPLAY] - (T (OR (GETTOPVAL (CAR X)) - (AND (CADR X) - (SET (CAR X) - (EVAL (CADR X] - (CL:WHEN CHANGE-WINDOWS? - (CL:WHEN (NEQ OLDDEFAULT (FONTCREATE DEFAULTFONT NIL NIL NIL 'DISPLAY)) - (for X in (OPENWINDOWS) when (EQ OLDDEFAULT (DSPFONT NIL X)) - do (DSPFONT DEFAULTFONT X))) - (DSPFONT WINDOWTITLEFONT WindowTitleDisplayStream) - (SETQ MaxValueLeftMargin (ITIMES 35 (STRINGWIDTH 'A DEFAULTFONT))) - (MAPC CACHEDMENUS 'SET) - [for W in (OPENWINDOWS) do [COND - [(OR (EQ (WINDOWPROP W 'RESHAPEFN) - 'DONT) - (WINDOWPROP W 'MAINWINDOW] - (T - (* ;; - "don't reshape if can't or if this window is attached to another.") - - (SHAPEW W (WINDOWREGION W] - (COND - ((AND (NEQ (WINDOWPROP W 'WINDOWENTRYFN) - (FUNCTION \TEDIT.PROCIDLEFN)) - (WINDOWPROP W 'REPAINTFN)) - (REDISPLAYW W]) - - (* ;; "Set the new font profile name, and return the old one, so he can restore later.") - - (PROG1 FONTNAME (SETQ FONTNAME NAME] - (T (* ; - "He passed in NIL, so return font profile name in effect.") - FONTNAME]) - -(FONTPROFILE - [LAMBDA (PROFILE) (* lmm "10-Sep-86 12:33") - [PROG (BASICCLASSES) - (for X in PROFILE - do (PROG (SEEN (NAME (CAR X)) - (FONTS X)) - LP [COND - ((MEMB (CAR FONTS) - SEEN) - (ERROR "Circular font profile specification" X)) - (T (push SEEN (CAR FONTS] - [SETQ FONTS (CDR (COND - ((OR (NULL (CADR FONTS)) - (LISTP (CADR FONTS))) - (* ; - "This skips over the now-defunct NIL or list-of-escape sequence") - (CDR FONTS)) - (T FONTS] - (COND - ((OR (NLISTP FONTS) - (LITATOM (CAR FONTS))) (* Indirect thru another's font spec) - (AND (SETQ FONTS (ASSOC (SELECTQ (CAR (LISTP FONTS)) - ((NIL DEFAULTFONT) - (* Don't let DEFAULTFONT loop thru - itself) - (AND (NOT (MEMB 'DEFAULTFONT SEEN)) - 'DEFAULTFONT)) - (CAR FONTS)) - PROFILE)) - (GO LP))) - (T [push BASICCLASSES (SETQ FONTS (FONTCLASS NAME FONTS 'DISPLAY] - (* Now we have a font class - datastructure) - )) - (AND NAME (/SETATOMVAL NAME FONTS)) - - (* NIL for the class-name means just establish the font-correspondences but - don't connect them up with a pretty class name.) - - )) - (AND BASICCLASSES (FONTMAPARRAY BASICCLASSES 'DISPLAY] - T]) - -(FONTPROFILE.ADDDEVICE - [LAMBDA (NEWDEVICE OLDDEVICE) (* ; "Edited 3-Mar-93 14:46 by rmk:") - - (* ;; "Fills in all fontprofile specifications so that an entry for NEWDEVICE is present for each fontclass. Nothing is changed if the entry is already there, otherwise the specification for the class currently provided for OLDDEVICE will be used for NEWDEVICE.") - - (DECLARE (USEDFREE FONTDEFS FONTNAME)) - (SETQ NEWDEVICE (U-CASE NEWDEVICE)) - (SETQ OLDDEVICE (U-CASE OLDDEVICE)) - [FOR FD IN FONTDEFS - DO (FOR FC OLDSPEC IN (CDR (ASSOC 'FONTPROFILE (CDR FD))) - UNLESS (LITATOM (CADR FC)) - DO (SETQ FC (CDR FC)) (* ; "Skip over name") - (CL:WHEN [SETQ OLDSPEC (SELECTQ OLDDEVICE - (DISPLAY (CADR FC)) - (INTERPRESS (CADDDR FC)) - (PRESS (CADDR FC)) - (CADR (ASSOC OLDDEVICE (CDDDDR FC] - [SETQ FC (OR (CDR FC) - (CDR (RPLACD FC (CONS] - (* ; - "Fill in NIL's for missing DISPLAY, PRESS, or INTERPRESS") - [SELECTQ NEWDEVICE - (DISPLAY (OR (CAR FC) - (RPLACA FC OLDSPEC))) - (INTERPRESS (OR (CADDR FC) - (RPLACA [PROGN [SETQ FC (OR (CDR FC) - (CDR (RPLACD FC (CONS] - (OR (CDR FC) - (CDR (RPLACD FC (CONS] - OLDSPEC))) - (PRESS (OR (CADDR FC) - (RPLACA [OR (CDR FC) - (CDR (RPLACD FC (CONS] - OLDSPEC))) - (OR (CADR (ASSOC NEWDEVICE (CDDDR FC))) - (PROGN (PROGN [SETQ FC (OR (CDR FC) - (CDR (RPLACD FC (CONS] - [SETQ FC (OR (CDR FC) - (CDR (RPLACD FC (CONS] - (PUSH (CDR FC) - (LIST NEWDEVICE OLDSPEC])] - (FONTSET FONTNAME]) -) - -(RPAQ? FONTESCAPECHAR (CHARACTER 6)) - -(RPAQ? FONTFNS ) - -(RPAQ? FONTWORDS ) -(DECLARE%: DONTEVAL@LOAD DOCOPY - -(FONTSET 'STANDARD) -) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS FONTPROFILE FONTESCAPECHAR FONTDEFS) -) -(DEFINEQ - -(FONTMAPARRAY - [LAMBDA (FONTCLASSES) (* lmm "28-Sep-86 14:23") - - (* ;; "Makes a font array from a font-mapping list of fontclasses. The array provides a fast map from font# to font classes/descriptors. This function caches the last array. If IMAGETYPES is given, then the FD's are pre-computed for the imagetypes it. Otherwise, the first use of the fontclass for that imagetype would cause the fontcreate to be done.") - - (PROG (FA (MAXFONT 0) - (MINFONT 100)) - [COND - ((NULL \FONTMAPCACHE)) - ((OR (NULL FONTCLASSES) - (EQUAL FONTCLASSES (CAR \FONTMAPCACHE))) - (RETURN (CDR \FONTMAPCACHE] - [for F PRETTYFONT# in FONTCLASSES do (SETQ PRETTYFONT# (fetch (FONTCLASS - PRETTYFONT#) - of F)) - (COND - ((IGREATERP PRETTYFONT# MAXFONT) - (SETQ MAXFONT PRETTYFONT#))) - (COND - ((ILESSP PRETTYFONT# 1) - (ERROR "Invalid font number" - PRETTYFONT# F)) - ((ILESSP PRETTYFONT# MINFONT) - (SETQ MINFONT PRETTYFONT#] - (SETQ FA (ARRAY MAXFONT)) - (for F in FONTCLASSES do (SETA FA (fetch (FONTCLASS PRETTYFONT#) - of F) - F)) - (for I from 1 to MAXFONT unless (ELT FA I) - do (SETA FA I (ELT FA MINFONT))) - (SETQ \FONTMAPCACHE (CONS (COPY FONTCLASSES) - FA)) - (RETURN FA]) -) - -(RPAQ? \FONTMAPCACHE ) - -(SETSEPR '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26) - 1 FILERDTBL) -(PUTPROPS FONTPROFILEPATCH COPYRIGHT ("Xerox Corporation" 1993)) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (16158 27897 (FONTSET 16168 . 22509) (FONTPROFILE 22511 . 25015) (FONTPROFILE.ADDDEVICE -25017 . 27895)) (28133 30403 (FONTMAPARRAY 28143 . 30401))))) -STOP diff --git a/sources/FONTPROFILEPATCH.LCOM b/sources/FONTPROFILEPATCH.LCOM deleted file mode 100644 index df5b65550e3248ca1333e5ef53d87b513f5c90c7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10893 zcmcIqTWllOdFD{-OA^dh+TAQ{p*4=_Y(g24!Wmw4ap2X69En5mW^%OLi|d#xQY%Ij zDew~Srf41#_$evSCJvm7fuIJ8AP5pjyICMe3+Swv}Pspys~C8Arl+;n#CHDg8xo+(Kiv86F2Wl10T_>BC(Wf~EOJD4bGA_L%`V27VJyYWC3E2< zS!1Wjnqcu*$~4&KcD-|_*=PEodu545E$Gm#vM3!63a_&4#+p5&tXG^hby=`8&PGAq zsk&A%V^uQh9+1}T3U+j#uGlJ8RWPh(*j}&sjaGNq=Nf@X5yMc3aZP^f;qaZWpM ze1}f{lj+Td}H6I-R$wRh!<#*>!vx ztd!3{JJv?t#WKcRyTBZ5r?XaZ&7Q3}#Z0MIy^6hL`mBCln ztV)&MnJjIkvv#In7dQAuoC%t)MlW&Lc-{snc?MCAcJ?hWU=TunB{&KlX zkDsNF!`kJksfpag!)GsM_vf`+S|h&v=>GJ&#&I6~dcC2ohqXulqwNJpcBj8~{;=2xYwzLz ziN6nr-)c;}FL)=56I$a(Lgq*JUp(Z3cx1L8{pNFg{q4h|#u;9I>;9$v9~X*z_j4q| zTlwjKDZF1OisM}*@g}}~@bOOmr+E(K?aOl)FIpcSXeno0QI8&6e4fY&?SMk)yBBNI zwZ9bT?N>Oh+6BJ+{pL%DwHFRTf2ZAQc#3-ruC;xq5e{qjquRPyKRgeW@;499 zjkDcSm(WRK@d zlbqkbUE*Rtdhl1J$v_#uDor-{Yr#aq#yr?da^u4L-qRr|^%u2E%bS-DCqvOxY=Kpf zDXQhXb)&|Tiwo>cr&!&n*ut$@a={qinUAw-)+*ZoPa#ryNLB1Lr&MIgozrH6AxdB#WB~m9)7ivO~ct zTa}7+gPExm`wB$&Br!pXr00nVC2XD*?7|9S9;_>sQiU0bl(!XIR1tC5fC`Qypv`%O zIm%6P0ro+iblf>;Htl4Pb4cq6R{S*|8O&mFW5M4y z7m~qqLfMZeIcu+uGSf_r?7N;8Mv>~^+VcZNLy zB`S)P-K#1ISxlOIiZEPHd5k{zMmR#;ck{&Dp1H6uxH??Xt%hZ0?2bb;iWK*kqn%| z7%?D%MpRlJuJBBCIX_ZX$;9y|wD5@S=By0r`86kP%iaKqBaaker@8r7=?fv5;Z>d& ze-6y+yIu28SJ5w!kW|xWnD*j1EfiknY4di-65rvssbcI;lVw9(m)Y>;@YKr_&cwsN z;EMhqmqSi!H^aQzeg7czAGz@FEU(=C;4ruUvPiq{<-+0p&nqv&?_wtmdfKfI4?;i5 zg&%%4*Vx{ke(^B;yJZjm$A>xX!MAejFYMnHRPKKPNZNxP75b)v3CN;EMy=(*udBcS zm?geo`{0WDLZxzZd3}3&Iv0j4PWZ;b$CpCUq=MgLS|E7<^yj+rX{1uC^bc9^)iC+0^fbT5T1vbsS5-@*S$g5uV4-1 z3TLqJWv~L>L6H8)F$&go{!IQr53*rgMUVL=ZGZ#s=n&w)cwP%>UvD?2E`)27KVAOe za&1!k;}2?+;mPHxm!Damc&J~@au>L{yuYfw`7AlizlWat>+DDWQ26am;iC_DpH#^6 zNPX8SeDwXojl=cut^I!`r#hF*OAG-)h4_E7J5%B3O6QAzc<@TD;dM&CDxJ@XEW#-r zmd@||=hx2f|Mx}VvbpKa$s7-Hw6&%34V085)eZ{}F=nIjHR9fP%zH6!cwvpC&dV08 zxTwZIijuD#iq%vC7q`wg>g|@7UOU6x+sz)`c!cWHr9v466#X)E=vk28weW%xdZlc= z@y4+)Sv2}8d+jwAAN>eq1hRFtvG*Nsc-Jw>2-&l246ZT8lq9BC2lxTL5Cz0Pj76LTwC`=?hopnM!nZy z{nj^|yzcbpnAPtOcX3bacG~wwQeeM1p!2ODD-lI;RpS;@6J?b1VEU?+rt6$o5zY(= z1XZyJ3SE8J9xz7RMAC7gwDjYNj?mNv7AKo`TzOqlWRd(>f4e(uH`uU0thaHf+bF`j zcp?X2QP(N*$YTK!4^fXmJ#4VuB4zkEtUqYA+guaQ8kbpWMDp|4fz9pKojc85fZ^KL zU5=tk344sFWvkm`gXUeXY(kLaxw;5j@{xKZgxg&lP+|#(BoX>YlQ zWBq&mL38)Z)Rb&C`~7C$2aeDaT?fbIWW<+b@n7=0J9hv**b@dHu@oT%)^BaG4*H$` zaBr{OYBq=+&!?4*vg?yk^uzg*g7nC+kM`*HJqAA?^t$cY6+-qvoped0Nl62*xLWDd z{q0_>v(xI_@y^eWyMpPBTY;PMllpF;`}*YyyNwtd^y-^U8mTmzw})g=;wyUn;GV4T zJ@Rf0b_SvDU6(`vu!bWrz+~0K^1%2cbl6eO#p%HRVWKD(~r1xgtV~- zWei9e-63yFclQQdAx^QpArPg@Nf8MPQbNLedrjy8|0H9b=gpFbsMt;7axH>kvxmu6 z3&STOGD-ur&nZftEDB3jM>3Bt--(=--w-A{iP^~cko1SpX|FjL_Ncp7L=SYvpVTnH zY-j*6Jw=Tw7$pI=7K%Dv!5G5rHYwr=(JwIE&4QzN?kS?O+iUcZm&hpIHGojlG-u>! zz5-ONo#wrFIN}!>ha?oedZUUV(RlEV7~@Jrg#VQYoucEFK0cGPt7%;HF+8h4x%jlw80NARrwnSKPCW2bD^)TyBSdyVi&e2P z9;7QMUALF>B`bp!PkeL)DUUpatncECYx&ZOl^652F@Y6nhz8u5v-gfDd&SXHj5c|A z2LYgrs$IsBgx;bC?tyW1kx5J%=g}B0(hLxTKTP}302>J!*%>K@%RDa5#v((fii;2~ zxR_#KJb-C~Zjw$gD#XaSl5tn^bQYaD6Sst;aMhEzEJ{;bp#o_NnULv7AOQ`D=Y zXBfC%A4Us)aon%<4V2I1XJ@f^>1%x2ta7IZS=O`S-C^!|)!Yk7W zA3UC7`VkJ$5$%D6U!{{2f|$rU=|FtBVZRL$A-%Ek$`Azj)>C;u^+>b4V8^G);2(8rGF!OHsXspAB$BgA%+)xZYT3D_uPh zvUdKO?K){f!j+bOqY*R^x_qVkkuDX9wvp=wZaad_Ev0OEzATf$34W{xG)UH9h0zcf zV4T0-5vF`meW6q8X?gv?WsVC=W)Em1o-wWU-S?O<@=uhuqeWlG98r%@ia9)zs)OxUr8W0{w(c;0dVY z2m}2C@&wuh&~hqOH(knOBSpR`8s0pRuwy0(0+}Rec64lCdDh$Z6UtA{cQF-oB4RQIfRP|C4ha0QmkKG9T9jCD>J>pg|3p8mM8o-Dpp)G$~% zajK_B_>fFanl_e4_Ux13gi~uJUnG&>uoU>S#^{q5++{7GpY*v1ladmfUD0CT)_gigBB+1q%uBL2!`@Y9}U$YV7{maCUo)-p_XF~jkC zMZ`<=&R91rtl?Ed#S|{$g~8Qz8V0af7>^)GHjJ4G2oazSOtQBMPWzX!g&jlX=*wso z0CPF=q&__l#e6RZK!M6cIqDU~aj^#=FVU>zY!L$Aa5>BNI7hKGMOCruR)B;MIdwI8 zR)R&aL_30x=d(05|VlRYD85I1oQ$4B-B7C(x5pgBI zZ=Fj(A)*TTh${KG=8|vPBssob9#BOjq>6@}@c&dJnE}<&$U&k?%Jnxvv#}N5Co7WA z_Jtl`Zak@dxW%fehAt{B0M(KG7V@JCHMQbPHr#DB7F>94l!>kJ5wg$^9z P@15OvJT&k7?t_^>_)kx9 delta 1226 zcmc)I&rj1}7zgmQg3+;Ya3c|6^H~$jc39JPUE9r|*7mJ5sa@BOA+b@BEyx@=6ulYo zuy9phW8%ew{{Yb*xfuTf^?&f>K@XnA&bhWCo;+}UetesL-e>y-`TaThL>q^UR<$q7 zb;w*%6bD}?&OGf{kN7-Lz!l{CD+P|>SYVk-k*zRA3U1zQE#Fz|u69~Yh%Mh*T3>11 zo2h`S>W*c|i@K@TVRaoSZQd{-8bQ-E1RfA64ZiOR=vnrDz3|PQ` z%&=@3Z(Q5(Bz`^D#aA2SXT`GU3m{E5 zk%}6+g7S%+SmwYTMreK+L`m3R5heUspTO@Mr>FdI1H@tx+)Kzrwyw}Vgld7v@%YU~ zGAptr7|bw!%y34TlWhmpK`4v;DO!*uaCL_^t99CzO;uJDI zO;^HSt1}^mHH^IEH3}_rf2WN&Lf3hrZJP`wk;Q z-#;sd?2CH~ue?vqwULp&G2YrtJ+o3F5a*?>Qv+lUTeb6{)wedpSs@@U4T(wr7<}V! yaPRhovEX3+rhmX;bE|WbJm6es|9P(5-}kz&bjYCI=Wb?nfcfs>gg5=*OX?>cluca# diff --git a/sources/LEAF.LCOM b/sources/LEAF.LCOM index 55420435f193ffaeb86994f07db4014d025b3101..aaad09875acc7794b7a149b07d08725f1ca518e8 100644 GIT binary patch delta 2211 zcmZ`)Yfw{H5bgyLxzgf@JgxK)L~l@HZXRH$(zzrz5{yYqf}kQ2Ahgs7j7Y0hN;|0S z*x}_-r)p6vqjd%!Gv0C9j;+dcw2C51M8pU3s$;Fw4u9HC?Pzx|Nb8UO$ai+X-Lt!A z&)$=}?SXqP2R1IMVL7wKDjJ=l;1*3pK~j=k-il<6TEi1QC5_jn=~ESiQxui2ttj<* zi%EGIII){duEo_0vMasoD%00^Dtw-@bZdE$$Ctj=TkP|0)T;F9ZH*LlYivEB_8zS5%7^}daXX(UhHYZ8}PjG|*y zv)C+dQVQjmv#nP0-@;WYm4Xy|)sQXYpRIfjZARD45&d$OjIzjEN3MgPq2;9 zMWQB|c9&bJBmu8b&#VTfijK?*XEJHf>_D2~#lblXBe^e2c2^Oo6VHN2U zNl^0;oD6MjEdA99^s555zzpZ#V&pdSgCzs9}=}xuMPVfH;d= zt2=^$cWu?;mQS|T!ddC$?H_=$ZF?FXysa(`GydJs0?NV0U~J&gotrSs%-scm2OA@# zy}N7RqmW{ogE5R^zko~effeX=?jYVnSi~%;=*xXbJU`R~)~1%N=oEFBBG-BZK3r+i zS8C)8N9SVZl2#j5bNWObD8`eQu#C`CIiM7uVsI0lf1k7kDt1_iS=iSTeQI(InvrJ3e+y8oSN z!fW-k?R+@hasJ^{mQ%70r^V*R?^B*$X?t4;beQhER08-^#=^@eUzSnb4hN#2wj=Xf zJHA_)S5^Zay|M~$;#Fi;UtI}!=4w7*Y=;@p(@_L?p~D3jbIl4^at*B)u4MyG?<@pl znjrVw7@#EMP+~jEaO(^=N4z###j;gw&$9|J!2EA&#G2r8F51{o{Ng&H>X+v)$y>bi7 zZR(vy=k_>3s_DUEpY=r2KYJV?S#D!dCvW3!rZ=1_d(mriFS3KZ=quhy2i$T8na6j~ zZ|Plp{9Es0n}Y9QcHcd;cHP4^rQAoK=KCl!eR!JuK5XuHeaI&~@Jwep!DMpVmkCZ{ z6Wuv>=VEwNmpeq4lBEY8#JTVwBVM)o4JbrG0?`}vp` zro1IWE{=iQX%SsS2iB$iQIN2-e}`Ejta23}7Z_lL)Q{AqsSOYoru!)S$#1JnM^o9B;(2qXR&+CPA| z64yPOx(5v)eKZtJj||%2*3`6ZFosSUG6L%!!oF>}6Hom^86ZUt<9L=2lvrV8;}ChwCQe{q`Pbk-QMG{ zhEez!t_O(nwB_JLw5!pn?8nnhz0QN>h~Eu#LwqXI|MkfPjA+x8^1c~8Rb7=zSZL+^ zKD4U;*DAM#z8jDMqr}9O8XyeCAJWEwC%`HnbO10p2^Of7C%ujZXVtJt;G7?p0ZQd{ ziiC}W7;#)gYg3L7r^whx41@WVoKZSWGQ)ZZ%M(0Cmo$TLB+DBJ>h+|@NJ>XU}+-V53m>rvC=18tzf>{ER zF*E3MdSzL12HjqnSWG683zX68lVoG}4&Fv`T~el7mSAOWr$j8gK%cM&A+s!Ii#kYM zvqflk#2KR7BW8F&$eBs*WJ#9%Zl@6v(B;e${lp9x9%Xa@QWz1zMCJ_&a!kTTGep(9}&Z;idN! z*8x_De*#sO(TIX+u3G3(M!0j(E1UAG7Mg{=3+SczCtx!t5DyJaUBW6`gO(UzuI9Yc z^ilIcATGEoT9Y$~w#~W=s*AJV07kSK%Ii6MaP*G36*zj}{8E+2jC~GPWxon)2uUC) z4aK5vP2LOCg~Omz?uFIma0_>0*VRRXu&a6T$AJFACZJN6oWP#irE{=848>tUtdHx( zM|#FGtdGz?E+i`JSDi(bWpxaWx34(^&a*Z1Fr_D#1(4fU{slOx>ssQV>9fIv@<|)l z!zSs~&p!dju{j-gymo6kPW0Wjqu|Wk9*1YPU{@K2c({83I1|6z1%;{9?T^C{4-Saf z3_Ua(6{`>9v5SeLl_6j4L*l}b9nkAOx&cMi$FS6B{t0+Elq)AV^+RdaM{ zNizN9@~9XSXQ4+fkAwmd>{bG!JVdbBIt;75)8IOcG`=gvqX{lpgf6zLN(3{MX=h1A zt3)t$E3{~pX#DiW<>OEyA0(Q)^+zj&eqZ@-KZeyaKEGQIVo9hqpj^Ka4;M!3eqIP@ zzm9lV#keZ8i>u&_=rz?g+`y-Jr_ftzyx|Gqg7aCyN1T69YQ>(H%y zz?jmJw8$*Db8_|B%h>>R8Mf=j-JV4R}(-V_GLrwkZ zfhI3dzcpcZ@E)%8qKf1`O4r|a0KRM;PTTI|;@AhM+xB1<;PVG~Zc;Ob|E3v7COpJ5 zTlo+*&8j`=5uU^TM|j%*JVHM7I5dP|MVBk+odFN5ECqAC{%rVw%<@SA_;@~goXjw+ z`slf3cMzD^$XFQ1MFs#$5q>bk`hDWGNhEiwI1>{g=yyv2Vg}{5$RN<1jEp2vO~C8S zmV!n#VN4c%Cr_(u2ZL1GG8}MB3xOqd1XW*Ki0l-dSrXwn2%Fb33RIg~hDuQte0-vx zj%ZMPxS=D{GdW7hUKs=82NE{dJ_r5GmlR8IXXEP!)08KeTkTgHM{64T(t}S7z)WjR zqEDa5F$~X9Uu!b;wq^jkvlUPBWheKwb3~#ra^m?p+=6_pw B^8Ww; diff --git a/sources/LLDISPLAY.LCOM b/sources/LLDISPLAY.LCOM index b7217ed9..e2aa806d 100644 --- a/sources/LLDISPLAY.LCOM +++ b/sources/LLDISPLAY.LCOM @@ -1,7 +1,7 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) -(FILECREATED " 8-Aug-2021 00:19:22" ("compiled on " -{DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7) " 6-Aug-2021 20:53:08" -"COMPILE-FILEd" in "FULL 6-Aug-2021 ..." dated " 6-Aug-2021 20:53:13") +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(FILECREATED " 6-Sep-2021 16:23:29" ("compiled on " +{DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;10) " 6-Sep-2021 15:59:15" +"COMPILE-FILEd" in "FULL 6-Sep-2021 ..." dated " 6-Sep-2021 15:59:21") (FILECREATED " 8-Aug-2021 00:19:22" {DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;7 268927 changes to%: (FNS READBITMAP) previous date%: " 1-Aug-2021 23:41:37" {DSK}kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;6) @@ -120,18 +120,18 @@ NIL $l dk () (RPAQ CursorBitMap (\CreateCursorBitMap)) BITBLT :D8 -(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 19 \SOFTCURSORP F 20 \SOFTCURSORUPP F 21 \CURSORDESTINATION F 22 \SCREENBITMAPS)  DjbEjb +(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCE) F 19 \SCREENBITMAPS)  DjbEjb GgNCdGCDEFGGG gh H.GHDEFGGGlI@@d]AjbBjb@ABF3@b G@b@BٽdMM@AټdLɿLgh 0XAH bBH -bHAHbH"dNNBHbH$_dOOFNH#Jb G%H%KbGH6bFj Gj4hH%K_dOֿOH#J_dO񲭿OCdƿ@ h__W&8W(h@gh -W*_`_`j@gh _`hO -W,O IABCDEFGGGGGJK OU`OAIABCDEFGGGGGJK gh _@C@ C @dC -h__ _"W&8W(h@gh -W*_"`_ `j@gh _`hO -W,O IABFG +bHAHbH"dNNBHbH$_dOOFNH#Jb G%H%KbGH6bFj Gj4hH%K_dOֿOH#J_dO񲭿OCdϿ@ h__`>`h@gh +`_`_`j@gh _`hO +W&O IABCDEFGGGGGJK O^`OJIABCDEFGGGGGJK gh _@C@ C @dC +ʿh__ _"`>`h@gh +`_"`_ `j@gh _`hO +W&O IABFG _jdFGgg -O"`O OjdODEFGGGGG @ O._$IABODEFGGGGGJKlO$h(875 TOTOPW 868 BKBITBLT 832 \SOFTCURSORUPCURRENT 823 BKBITBLT 800 BITMAPCREATE 788 \TOTOPWDS 777 DSPDESTINATION 759 \GETSTREAM 746 \SOFTCURSORDOWN 715 DSPDESTINATION 710 \GETSTREAM 676 WOVERLAPP 664 WINDOWP 654 WINDOWP 639 \GETSTREAM 627 \BITBLT.BITMAP 588 \SOFTCURSORUPCURRENT 575 \BITBLT.BITMAP 549 \TOTOPWDS 538 DSPDESTINATION 520 \GETSTREAM 507 \SOFTCURSORDOWN 476 DSPDESTINATION 471 \GETSTREAM 440 WINDOWP 214 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP) -(890 IMAGEOPS 883 STREAM 838 \EM.DISPINTERRUPT 817 REPLACE 812 INPUT 766 \TOPWDS 753 OUTPUT 737 \EM.DISPINTERRUPT 727 \EM.DISPINTERRUPT 704 OUTPUT 633 OUTPUT 594 \EM.DISPINTERRUPT 527 \TOPWDS 514 OUTPUT 498 \EM.DISPINTERRUPT 488 \EM.DISPINTERRUPT 465 OUTPUT 429 BITMAP 404 \DISPLAYDATA 380 \DISPLAYDATA 345 \DISPLAYDATA 328 \DISPLAYDATA 305 \DISPLAYDATA 294 \DISPLAYDATA 277 \DISPLAYDATA 266 \DISPLAYDATA 256 \DISPLAYDATA 226 \DISPLAYDATA 219 STREAM 208 OUTPUT 189 BITMAP 169 BITMAP 155 BITMAP 140 BITMAP 110 BITMAP 77 IMAGEOPS 70 STREAM 55 OUTPUT 28 BITMAP 18 TEXTURE) +O"`O OjdODEFGGGGG @ O._$IABODEFGGGGGJKlO$h(893 TOTOPW 886 BKBITBLT 850 \SOFTCURSORUPCURRENT 841 BKBITBLT 818 BITMAPCREATE 806 \TOTOPWDS 795 DSPDESTINATION 777 \GETSTREAM 764 \SOFTCURSORDOWN 730 DSPDESTINATION 725 \GETSTREAM 685 WOVERLAPP 673 WINDOWP 663 WINDOWP 648 \GETSTREAM 636 \BITBLT.BITMAP 597 \SOFTCURSORUPCURRENT 584 \BITBLT.BITMAP 558 \TOTOPWDS 547 DSPDESTINATION 529 \GETSTREAM 516 \SOFTCURSORDOWN 482 DSPDESTINATION 477 \GETSTREAM 440 WINDOWP 214 \GETSTREAM 61 \GETSTREAM 49 \BLTSHADE.BITMAP) +(908 IMAGEOPS 901 STREAM 856 \EM.DISPINTERRUPT 835 REPLACE 830 INPUT 784 \TOPWDS 771 OUTPUT 755 \EM.DISPINTERRUPT 745 \EM.DISPINTERRUPT 735 \CURSORDESTINATION 719 OUTPUT 710 \SOFTCURSORUPP 703 \SOFTCURSORP 642 OUTPUT 603 \EM.DISPINTERRUPT 536 \TOPWDS 523 OUTPUT 507 \EM.DISPINTERRUPT 497 \EM.DISPINTERRUPT 487 \CURSORDESTINATION 471 OUTPUT 462 \SOFTCURSORUPP 455 \SOFTCURSORP 429 BITMAP 404 \DISPLAYDATA 380 \DISPLAYDATA 345 \DISPLAYDATA 328 \DISPLAYDATA 305 \DISPLAYDATA 294 \DISPLAYDATA 277 \DISPLAYDATA 266 \DISPLAYDATA 256 \DISPLAYDATA 226 \DISPLAYDATA 219 STREAM 208 OUTPUT 189 BITMAP 169 BITMAP 155 BITMAP 140 BITMAP 110 BITMAP 77 IMAGEOPS 70 STREAM 55 OUTPUT 28 BITMAP 18 TEXTURE) () BLTSHADE :D8 (L (7 CLIPPINGREGION 6 OPERATION 5 HEIGHT 4 WIDTH 3 DESTINATIONBOTTOM 2 DESTINATIONLEFT 1 DESTINATION 0 TEXTURE)) [Ad@ABjCjDEFG gh H.@HBjCjDEFdH @@ -168,7 +168,7 @@ BITMAPCREATE :D8 NIL ( 102 "bits in BITMAP -- too big" 88 131066) BITMAPBIT :D8 -(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SOFTCURSORP F 17 \SOFTCURSORUPP F 18 \CURSORDESTINATION F 19 \SCREENBITMAPS)  +(P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 DD P 12 TY P 11 TX P 6 bitmapbase P 5 oldword P 4 HEIGHT P 3 OLDVALUE P 2 WORDX P 1 BITX P 0 NBITS I 3 NEWVALUE I 2 Y I 1 X I 0 BITMAP F 16 \SCREENBITMAPS)  @+@XjA A@jBB@\Hk[Cdj@ABkLk@h8@ABlLk@h8@ABlLk@h8@@Bk@^CjCC@ C HdkcAZNJ]`Al__Ol OYC MIj jjNJMImNJMIklmAlYdZNJ]d`Al__Ol O[CNJMKCllAl @@ -177,27 +177,27 @@ BITMAPBIT :D8 [CNAC KoH 0 @gh b0_AO _BO -_Od W -W" h@ -W$_`_`j@`h@ -W&@ OOOC_O`OO(730 \SOFTCURSORUPCURRENT 702 \TOTOPWDS 692 DSPDESTINATION 675 \SOFTCURSORDOWN 644 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR) -(736 \EM.DISPINTERRUPT 710 \DISPLAYDATA 682 \TOPWDS 666 \EM.DISPINTERRUPT 656 \EM.DISPINTERRUPT 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP) +_Od `3`h@ +`_`_`j@`h@ +W @ OOOC_O`OO(739 \SOFTCURSORUPCURRENT 711 \TOTOPWDS 701 DSPDESTINATION 684 \SOFTCURSORDOWN 650 DSPDESTINATION 613 \DSPCLIPTRANSFORMY 603 \DSPCLIPTRANSFORMX 579 \GETSTREAM 563 ERROR 550 \PUTBASE24 539 \GETBASE24 435 LRSH 415 LLSH 382 \GETBASEFIXP 275 \GETBASEFIXP 220 \ILLEGAL.ARG 212 MAXIMUMCOLOR) +(745 \EM.DISPINTERRUPT 719 \DISPLAYDATA 691 \TOPWDS 675 \EM.DISPINTERRUPT 665 \EM.DISPINTERRUPT 655 \CURSORDESTINATION 641 \SOFTCURSORUPP 634 \SOFTCURSORP 593 \DISPLAYDATA 586 STREAM 573 OUTPUT 375 ARRAYP 366 ARRAYP 352 4BITMASKARRAY 268 ARRAYP 259 ARRAYP 245 BITMASKARRAY 205 BITMAP 186 BITMAP 174 BITMAP 166 BITMAP 154 BITMAP 139 BITMAP 127 BITMAP 112 BITMAP 98 BITMAP 84 BITMAP 57 BITMAP 35 BITMAP 18 BITMAP 8 BITMAP) ( 557 "unknown bits per pixel size.") BLTCHAR :D8 (I 1 DISPLAYSTREAM I 0 CHARCODE) 2@dj@@@ Adgh 0 (47 \BLTCHAR 30 \GETSTREAM 17 \ILLEGAL.ARG) (42 \DISPLAYDATA 35 STREAM 24 OUTPUT) () \BLTCHAR :D8 -(P 0 A0140 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (Agh b.Z@ABlH(11 \GETSTREAM) +(P 0 A0241 I 2 DISPLAYDATA I 1 DISPLAYSTREAM I 0 CHARCODE) (Agh b.Z@ABlH(11 \GETSTREAM) (25 IMAGEOPS 18 STREAM 5 OUTPUT) () \MEDW.BLTCHAR :D8 -(L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SOFTCURSORP F 8 \SOFTCURSORUPP F 9 \CURSORDESTINATION F 10 \SCREENBITMAPS)  p@l\Bd>@@ +(L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 7 \SCREENBITMAPS) p@l\Bd>@@ B@A B[B0LYBKBl A -BKBLBKHػIHYB#XHKB"XKHIJB*X j}h]W*W hA -W^``jA`hA -WA HJHIJHBLJKHjvN`Mih(250 \SOFTCURSORUPCURRENT 211 \TOTOPWDS 201 DSPDESTINATION 184 \SOFTCURSORDOWN 156 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY) -(256 \EM.DISPINTERRUPT 191 \TOPWDS 175 \EM.DISPINTERRUPT 167 \EM.DISPINTERRUPT 132 PILOTBBT) +BKBLBKHػIHYB#XHKB"XKHIJB*X jh]`0`hA +`^``jA`hA +WA HJHIJHBLJKHjvN`Mih(261 \SOFTCURSORUPCURRENT 222 \TOTOPWDS 212 DSPDESTINATION 195 \SOFTCURSORDOWN 164 DSPDESTINATION 68 \DSPPRINTCR/LF 35 \SLOWBLTCHAR 23 \CHANGECHARSET.DISPLAY) +(267 \EM.DISPINTERRUPT 202 \TOPWDS 186 \EM.DISPINTERRUPT 178 \EM.DISPINTERRUPT 169 \CURSORDESTINATION 155 \SOFTCURSORUPP 148 \SOFTCURSORP 132 PILOTBBT) () \CHANGECHARSET.DISPLAY :D8 (P 4 \INTERRUPTABLE P 2 BM P 1 CSINFO P 0 PBT I 1 CHARSET I 0 DISPLAYDATA) @*@ A A@ h "@I@I@I0@A>IHJn@'I @@ -215,17 +215,18 @@ BLTCHAR :D8 (75 ^ 52 %# 16 SI::RESETUNWIND) ( 81 "" 58 "") \SLOWBLTCHAR :D8 -(P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 PILOTBBT P 7 CURX P 6 RIGHT P 5 LEFT P 4 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 17 \SOFTCURSORP F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \SCREENBITMAPS) K@@lYA0Zd Xdj~ J_JI\Jl A -J_JIؼJLOJ_J"dOOJ#LJػdKKJ*_NM O jM_NM_JIMO_JdkadlO_O_O_DdlO_O_O_$llO_lO_lO_ W"-W$ hA -W&_`_`jA`hA -W(A OOOOOOOjvO`O0J_JI_J @ @J h _ HdlZ;AOO +(P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 PILOTBBT P 7 CURX P 6 RIGHT P 5 LEFT P 4 NEWX P 2 DD P 1 CHAR8CODE P 0 ROTATION I 1 DISPLAYSTREAM I 0 CHARCODE F 17 \SCREENBITMAPS) T@@lYA0Zd Xdj J_JI\Jl A +J_JIؼJLOJ_J"dOOJ#LJػdKKJ*_NMO j +M_NM_JIMO_JdkadlO_O_O_DdlO_O_O_$llO_lO_lO_ `3`hA +`_`_`jA`hA +W"A OOOOOOOjvO`O0J_JI_J @ @J h _ HdlZ;AOO O jJIAJO kOO O O Hn8AOO O jJIAJO JO -O O o h(583 ERROR 572 BKBITBLT 530 \DSPYPOSITION.DISPLAY 511 BKBITBLT 468 \DSPYPOSITION.DISPLAY 446 \CREATECHARSET 387 \SOFTCURSORUPCURRENT 352 \TOTOPWDS 342 DSPDESTINATION 325 \SOFTCURSORDOWN 294 DSPDESTINATION 275 SHOULDNT 55 \DSPPRINTCR/LF) -(393 \EM.DISPINTERRUPT 332 \TOPWDS 316 \EM.DISPINTERRUPT 306 \EM.DISPINTERRUPT 111 \DISPLAYDATA 83 \DISPLAYDATA) -( 578 "Not implemented to rotate by other than 0, 90 or 270") +O O o h(592 ERROR 581 BKBITBLT 539 \DSPYPOSITION.DISPLAY 520 BKBITBLT 477 \DSPYPOSITION.DISPLAY 455 \CREATECHARSET 396 \SOFTCURSORUPCURRENT 361 \TOTOPWDS 351 DSPDESTINATION 334 \SOFTCURSORDOWN 300 DSPDESTINATION 275 SHOULDNT 55 \DSPPRINTCR/LF) +(402 \EM.DISPINTERRUPT 341 \TOPWDS 325 \EM.DISPINTERRUPT 315 \EM.DISPINTERRUPT 305 \CURSORDESTINATION 291 \SOFTCURSORUPP 284 \SOFTCURSORP 111 \DISPLAYDATA 83 \DISPLAYDATA) +( 587 "Not implemented to rotate by other than 0, 90 or 270") TEXTUREP :D8 (I 0 OBJECT) @d3 @k@NIL (18 BITMAP 10 BITMAP) @@ -273,7 +274,7 @@ OPPOSITESHADE :D8 NIL () \MEDW.BITBLT :D8 -(P 9 A0143 P 8 A0142 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0141 P 1 DD P 0 DSTWIN I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS)  +(P 9 A0244 P 8 A0243 P 7 SOURCEBOTTOMTRANSFORMED P 6 SOURCELEFTTRANSFORMED P 3 SRCWIN P 2 A0242 P 1 DD P 0 DSTWIN I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTINATION I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCE F 10 \SCREENBITMAPS)   @ C o @Z@WCi Cgh 0H2HH2@ABCDEFGGGGGABlJCC@i !@gh 0AIصABIصBK2J_K2INOCDEFGGGGGNI"dLLOI$dMMlO@ @@ -312,28 +313,28 @@ BITMAPBIT.EXPANDER :D8 NIL ( 32 (OPCODES MISC4 6)) \BITBLT.DISPLAY :D8 -(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS F 49 \SOFTCURSORP F 50 \SOFTCURSORUPP F 51 \CURSORDESTINATION) x0 @d[AjbBjbABF3@b G@b@BٽdMM@AټdLɿLgh 0X@AH +(L (11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTINATION 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) F 48 \SCREENBITMAPS) 0 @d[AjbBjbABF3@b G@b@BٽdMM@AټdLɿLgh 0X@AH bBH -bHbAHbH"dNNBHbH$_dOOFNH#Jb G%H%KbGH6bFj Gj4hH%K_dOֿOH#J_dO񲭿OCdƿI h__Wb8Wdh@gh -Wf_`_`j@gh _`hO -W`O @ABCDEFGGGGGJK O`Oz@ABCDEFGGGGGJK gh _IdC I#Id C IdC -I .C .h__ _"Wb8WdhIgh -Wf_"`_ `jIgh _`hO +bHbAHbH"dNNBHbH$_dOOFNH#Jb G%H%KbGH6bFj Gj4hH%K_dOֿOH#J_dO񲭿OCdϿI h__`>`h@gh +`_`_`j@gh _`hO +W`O @ABCDEFGGGGGJK O`O@ABCDEFGGGGGJK gh _IdC" I,Id  C IdC +I .C .h__ _"`>`hIgh +`_"`_ `jIgh _`hO W`O @ABFG _jdFGgg O"`O OjdODEFGGGGG I IhI hO -)O0_J_LO`hO +)O0_J_LO`hO W`O DOJbEOJb -OJ"_BOJ$_FOJ#_HOJ%_DGnOBGOJ_(dO(O(_BOFGOJ_*dO*O*_FOHO(G_$dO$O$_HODO*G_&dO&O&_DOL_N@_PON2OPk@jON ON ONk@ON -bDdOBOB_BEdOFOF_FFDFdOHOH_HGEGdODOD_DDA_>EB_@JOBO>_,dO,O,djj_BKOFO@_.dO.O.djj_F@OHO>_0dO0O0JF_2dO2O2_H@ODO@_4dO4O4KG_6dO6O6_DOHOBODOFGOJbON _RGdg~GdONkG bGORJGd3 OROR<G`ld +OJ"_BOJ$_FOJ#_HOJ%_DGnOBGOJ_(dO(O(_BOFGOJ_*dO*O*_FOHO(G_$dO$O$_HODO*G_&dO&O&_DOL_N@_PON2OPk@jON ON ONk@ON +bDdOBOB_BEdOFOF_FFDFdOHOH_HGEGdODOD_DDA_>EB_@JOBO>_,dO,O,djj_BKOFO@_.dO.O.djj_F@OHO>_0dO0O0JF_2dO2O2_H@ODO@_4dO4O4KG_6dO6O6_DOHOBODOFGOJbON _RGdg~GdONkG bGORJGd3 OROR<G`ld  ONkGON G bONdk)GON -gONdkG bONkONOB_BONOH_HONO>_>h_8_:Wb.Wd hO -Wf_:`_8`jO`hO -W`O `/ODOF_TOHOB_VOLODO@_XOBO>_Z@OD_\OB_^`OV`OT Gg"`@O^O\OLOZOXOVOTGG `@O^O\OLOZOXOTGGG O:`O8.O._<@ABODEFGGGGGJKlO<h(1850 \SOFTCURSORUPCURRENT 1841 \BITBLTSUB 1809 \BITBLT.MERGE 1674 \TOTOPWDS 1663 DSPDESTINATION 1644 \SOFTCURSORDOWN 1613 DSPDESTINATION 1558 INSURE.B&W.TEXTURE 1534 COLORTEXTUREFROMCOLOR# 1514 \ILLEGAL.ARG 1506 COLORNUMBERP 1490 INVERT.TEXTURE.BITMAP 1480 BITMAPCREATE 1432 INSURE.B&W.TEXTURE 1398 MAXIMUMSHADE 1165 UNCOLORIZEBITMAP 1160 COLORMAP 1142 COLORIZEBITMAP 1135 MAXIMUMCOLOR 909 \TOTOPWDS 898 DSPDESTINATION 851 DSPDESTINATION 843 DSPDESTINATION 832 TOTOPW 825 BKBITBLT 789 \SOFTCURSORUPCURRENT 780 BKBITBLT 757 BITMAPCREATE 745 \TOTOPWDS 734 DSPDESTINATION 716 \GETSTREAM 703 \SOFTCURSORDOWN 672 DSPDESTINATION 667 \GETSTREAM 624 \INSUREWINDOW 609 \INSUREWINDOW 598 WOVERLAPP 586 WINDOWP 575 WFROMDS 561 WINDOWP 546 \GETSTREAM 534 \BITBLT.BITMAP 495 \SOFTCURSORUPCURRENT 482 \BITBLT.BITMAP 456 \TOTOPWDS 445 DSPDESTINATION 427 \GETSTREAM 414 \SOFTCURSORDOWN 383 DSPDESTINATION 378 \GETSTREAM 347 WINDOWP 117 \GETSTREAM) -(1878 IMAGEOPS 1871 STREAM 1856 \EM.DISPINTERRUPT 1816 \SYSPILOTBBT 1784 \SYSPILOTBBT 1776 MERGE 1764 PILOTBBT 1759 \SYSPILOTBBT 1749 PILOTBBT 1744 \SYSPILOTBBT 1726 BITMAP 1701 BITMAP 1652 \TOPWDS 1635 \EM.DISPINTERRUPT 1625 \EM.DISPINTERRUPT 1541 TEXTURE 1485 \BBSCRATCHTEXTURE 1470 \BBSCRATCHTEXTURE 1461 BITMAP 1409 MERGE 1105 BITMAP 1032 \DISPLAYDATA 1002 \DISPLAYDATA 981 \DISPLAYDATA 969 \DISPLAYDATA 957 \DISPLAYDATA 945 \DISPLAYDATA 932 \DISPLAYDATA 918 \DISPLAYDATA 887 \TOPWDS 875 \DISPLAYDATA 866 STREAM 795 \EM.DISPINTERRUPT 774 REPLACE 769 INPUT 723 \TOPWDS 710 OUTPUT 694 \EM.DISPINTERRUPT 684 \EM.DISPINTERRUPT 661 OUTPUT 631 STREAM 616 STREAM 540 OUTPUT 501 \EM.DISPINTERRUPT 434 \TOPWDS 421 OUTPUT 405 \EM.DISPINTERRUPT 395 \EM.DISPINTERRUPT 372 OUTPUT 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP) +gONdkG bONkONOB_BONOH_HONO>_>h_8_:`4`hO +`_:`_8`jO`hO +W`O `/ODOF_TOHOB_VOLODO@_XOBO>_Z@OD_\OB_^`OV`OT Gg"`@O^O\OLOZOXOVOTGG `@O^O\OLOZOXOTGGG O:`O8.O._<@ABODEFGGGGGJKlO<h(1877 \SOFTCURSORUPCURRENT 1868 \BITBLTSUB 1836 \BITBLT.MERGE 1701 \TOTOPWDS 1690 DSPDESTINATION 1671 \SOFTCURSORDOWN 1637 DSPDESTINATION 1576 INSURE.B&W.TEXTURE 1552 COLORTEXTUREFROMCOLOR# 1532 \ILLEGAL.ARG 1524 COLORNUMBERP 1508 INVERT.TEXTURE.BITMAP 1498 BITMAPCREATE 1450 INSURE.B&W.TEXTURE 1416 MAXIMUMSHADE 1183 UNCOLORIZEBITMAP 1178 COLORMAP 1160 COLORIZEBITMAP 1153 MAXIMUMCOLOR 927 \TOTOPWDS 916 DSPDESTINATION 869 DSPDESTINATION 861 DSPDESTINATION 850 TOTOPW 843 BKBITBLT 807 \SOFTCURSORUPCURRENT 798 BKBITBLT 775 BITMAPCREATE 763 \TOTOPWDS 752 DSPDESTINATION 734 \GETSTREAM 721 \SOFTCURSORDOWN 687 DSPDESTINATION 682 \GETSTREAM 633 \INSUREWINDOW 618 \INSUREWINDOW 607 WOVERLAPP 595 WINDOWP 584 WFROMDS 570 WINDOWP 555 \GETSTREAM 543 \BITBLT.BITMAP 504 \SOFTCURSORUPCURRENT 491 \BITBLT.BITMAP 465 \TOTOPWDS 454 DSPDESTINATION 436 \GETSTREAM 423 \SOFTCURSORDOWN 389 DSPDESTINATION 384 \GETSTREAM 347 WINDOWP 117 \GETSTREAM) +(1905 IMAGEOPS 1898 STREAM 1883 \EM.DISPINTERRUPT 1843 \SYSPILOTBBT 1811 \SYSPILOTBBT 1803 MERGE 1791 PILOTBBT 1786 \SYSPILOTBBT 1776 PILOTBBT 1771 \SYSPILOTBBT 1753 BITMAP 1728 BITMAP 1679 \TOPWDS 1662 \EM.DISPINTERRUPT 1652 \EM.DISPINTERRUPT 1642 \CURSORDESTINATION 1627 \SOFTCURSORUPP 1620 \SOFTCURSORP 1559 TEXTURE 1503 \BBSCRATCHTEXTURE 1488 \BBSCRATCHTEXTURE 1479 BITMAP 1427 MERGE 1123 BITMAP 1050 \DISPLAYDATA 1020 \DISPLAYDATA 999 \DISPLAYDATA 987 \DISPLAYDATA 975 \DISPLAYDATA 963 \DISPLAYDATA 950 \DISPLAYDATA 936 \DISPLAYDATA 905 \TOPWDS 893 \DISPLAYDATA 884 STREAM 813 \EM.DISPINTERRUPT 792 REPLACE 787 INPUT 741 \TOPWDS 728 OUTPUT 712 \EM.DISPINTERRUPT 702 \EM.DISPINTERRUPT 692 \CURSORDESTINATION 676 OUTPUT 667 \SOFTCURSORUPP 660 \SOFTCURSORP 640 STREAM 625 STREAM 549 OUTPUT 510 \EM.DISPINTERRUPT 443 \TOPWDS 430 OUTPUT 414 \EM.DISPINTERRUPT 404 \EM.DISPINTERRUPT 394 \CURSORDESTINATION 378 OUTPUT 369 \SOFTCURSORUPP 362 \SOFTCURSORP 336 BITMAP 311 \DISPLAYDATA 287 \DISPLAYDATA 252 \DISPLAYDATA 235 \DISPLAYDATA 212 \DISPLAYDATA 201 \DISPLAYDATA 184 \DISPLAYDATA 173 \DISPLAYDATA 161 \DISPLAYDATA 129 \DISPLAYDATA 122 STREAM 111 OUTPUT 92 BITMAP 72 BITMAP 58 BITMAP 43 BITMAP 15 BITMAP) () \BITBLT.BITMAP :D8 (L (13 CLIPPEDSOURCEBOTTOM 12 CLIPPEDSOURCELEFT 11 CLIPPINGREGION 10 TEXTURE 9 OPERATION 8 SOURCETYPE 7 HEIGHT 6 WIDTH 5 DESTINATIONBOTTOM 4 DESTINATIONLEFT 3 DESTBITMAP 2 SOURCEBOTTOM 1 SOURCELEFT 0 SOURCEBITMAP) P 18 \INTERRUPTABLE) 0C[C\j]d^@_CZGQMG_dOONG_dOOJGG_dOOKGG_dOODdMMEdNNFDFdJJGEGdKKDAXEBYGdjjMH_dOOGdjjNI_dOO@JH_dOOGF_dOO@KI_ dO O GG_"dO"O"[JMdNhGgWGnK3 GnnH @l AH2[AkKLdlZNnNNm؉o A -HLdlZjHٰnHo _HLdlZ,OHH#H  Zj5n*H"H  OHZj=` H"_H_H$H%I_H#O_H6_ W -W$ hA -W&_`_`jA`hA -W"A JOhjdOOIOeLlZ3OOJIOOIOJ_Ogg +HLdlZjHٰnHo _HLdlZ,OHH#H  Zj5n*H"H  OHZjF` H"_H_H$H%I_H#O_H6_ `3`hA +`_`_`jA`hA +W A JOhjdOOIOeLlZ3OOJIOOIOJ_Ogg hjdOOOذ,OOIOOJIOJOgg hjdOOIJOggO O`OLlZOJكOJ_OA -Y@l H2[AkKHA -HHػHH$YH  KHZjP H"_H_H%I_H#O_H6_ W -W$ hA -W&_`_`jA`hA -W"A JOhjdOOIOO0OOIOOIJOOJgg +b@l H2[AkKHA +HHػH'H$YH  KHZjP H"_H_H%I_H#O_H6_ `3`hA +`_`_`jA`hA +W A JOhjdOOIOO0OOIOOIJOOJgg hjdOOIOJggO O`OKJ[KA -h(975 DSPYPOSITION 950 \SOFTCURSORUPCURRENT 941 BKBITBLT 911 BKBITBLT 857 \TOTOPWDS 847 DSPDESTINATION 830 \SOFTCURSORDOWN 799 DSPDESTINATION 664 DSPXPOSITION 629 DSPXPOSITION 591 \SOFTCURSORUPCURRENT 582 BKBITBLT 552 BKBITBLT 505 BKBITBLT 445 \TOTOPWDS 435 DSPDESTINATION 418 \SOFTCURSORDOWN 387 DSPDESTINATION 303 SHOULDNT 187 ERROR 145 DSPYPOSITION 139 ERROR 25 \CARET.DOWN 12 \STOPSCROLL?) -(956 \EM.DISPINTERRUPT 933 REPLACE 928 TEXTURE 905 REPLACE 900 INPUT 837 \TOPWDS 821 \EM.DISPINTERRUPT 811 \EM.DISPINTERRUPT 767 \DISPLAYDATA 748 \DISPLAYDATA 737 \DISPLAYDATA 717 \DISPLAYDATA 707 FONTDESCRIPTOR 700 \DISPLAYDATA 691 \DISPLAYDATA 679 \DISPLAYDATA 645 \DISPLAYDATA 597 \EM.DISPINTERRUPT 574 REPLACE 569 TEXTURE 546 REPLACE 541 INPUT 499 REPLACE 494 INPUT 425 \TOPWDS 409 \EM.DISPINTERRUPT 399 \EM.DISPINTERRUPT 355 \DISPLAYDATA 338 \DISPLAYDATA 327 \DISPLAYDATA 316 \DISPLAYDATA 290 \DISPLAYDATA 279 FONTDESCRIPTOR 272 \DISPLAYDATA 264 \DISPLAYDATA 243 FONTDESCRIPTOR 236 \DISPLAYDATA 228 \DISPLAYDATA 219 \DISPLAYDATA 197 \DISPLAYDATA 152 \DISPLAYDATA 89 \DISPLAYDATA 62 FONTDESCRIPTOR 55 \DISPLAYDATA 43 \DISPLAYDATA 32 STREAM 18 \CARET.UP) +h(993 DSPYPOSITION 968 \SOFTCURSORUPCURRENT 959 BKBITBLT 929 BKBITBLT 875 \TOTOPWDS 865 DSPDESTINATION 848 \SOFTCURSORDOWN 814 DSPDESTINATION 673 DSPXPOSITION 638 DSPXPOSITION 600 \SOFTCURSORUPCURRENT 591 BKBITBLT 561 BKBITBLT 514 BKBITBLT 454 \TOTOPWDS 444 DSPDESTINATION 427 \SOFTCURSORDOWN 393 DSPDESTINATION 303 SHOULDNT 187 ERROR 145 DSPYPOSITION 139 ERROR 25 \CARET.DOWN 12 \STOPSCROLL?) +(974 \EM.DISPINTERRUPT 951 REPLACE 946 TEXTURE 923 REPLACE 918 INPUT 855 \TOPWDS 839 \EM.DISPINTERRUPT 829 \EM.DISPINTERRUPT 819 \CURSORDESTINATION 805 \SOFTCURSORUPP 798 \SOFTCURSORP 776 \DISPLAYDATA 757 \DISPLAYDATA 746 \DISPLAYDATA 726 \DISPLAYDATA 716 FONTDESCRIPTOR 709 \DISPLAYDATA 700 \DISPLAYDATA 688 \DISPLAYDATA 654 \DISPLAYDATA 606 \EM.DISPINTERRUPT 583 REPLACE 578 TEXTURE 555 REPLACE 550 INPUT 508 REPLACE 503 INPUT 434 \TOPWDS 418 \EM.DISPINTERRUPT 408 \EM.DISPINTERRUPT 398 \CURSORDESTINATION 384 \SOFTCURSORUPP 377 \SOFTCURSORP 355 \DISPLAYDATA 338 \DISPLAYDATA 327 \DISPLAYDATA 316 \DISPLAYDATA 290 \DISPLAYDATA 279 FONTDESCRIPTOR 272 \DISPLAYDATA 264 \DISPLAYDATA 243 FONTDESCRIPTOR 236 \DISPLAYDATA 228 \DISPLAYDATA 219 \DISPLAYDATA 197 \DISPLAYDATA 152 \DISPLAYDATA 89 \DISPLAYDATA 62 FONTDESCRIPTOR 55 \DISPLAYDATA 43 \DISPLAYDATA 32 STREAM 18 \CARET.UP) ( 182 "Only rotations supported are 0, 90 and 270" 134 "Only rotations supported are 0, 90 and 270") \TTYBACKGROUND :D8 (P 0 X F 1 \LINEBUF.OFD) DQ`/````djH(65 \BACKGROUND 39 WAIT.FOR.TTY) @@ -730,10 +732,10 @@ NIL NIL () \CREATEDISPLAY :D8 -(P 0 FDEV I 0 DISPLAYNAME) X `d@djdjdj0dgdgdgDdgdg^dgFdgdgbdg`dgdgdg -dg dgdg,dg.dg0dgTdg>dg@ghdIdgRdgPdgNdgHdgBdgdg@ghdId`hdgRdgPdgNdgHdgBdg ````H HdI `` +(P 2 \INTERRUPTABLE P 1 W P 0 OLDWINDOWS F 3 \MAINSCREEN F 4 \WINDOWWORLD F 5 WINDOWBACKGROUNDSHADE) H````AT> ````H HdI `` ` -ijd``hS7`c -`c`c`cHLV H :`S`S`dI ``h(287 \OPENW1 231 REVERSE 224 CHANGEBACKGROUND 142 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS) -(312 \OLDSCREENWIDTH 307 SCREENWIDTH 302 \OLDSCREENHEIGHT 297 SCREENHEIGHT 271 SCREENHEIGHT 266 SCREEN 257 SCREENWIDTH 252 SCREEN 243 ScreenBitMap 238 SCREEN 211 BITMAP 206 ScreenBitMap 199 SCREENHEIGHT 192 SCREENWIDTH 185 ScreenBitMap 177 WHOLESCREEN 172 WHOLEDISPLAY 162 SCREENHEIGHT 157 SCREENWIDTH 149 \DisplayStarted 135 BITMAP 130 ScreenBitMap 123 BITMAP 118 ScreenBitMap 108 SCREENHEIGHT 103 SCREENWIDTH 68 SCREENHEIGHT 63 \OLDSCREENHEIGHT 56 SCREENWIDTH 51 \OLDSCREENWIDTH 29 \OLDSCREENHEIGHT 24 SCREENHEIGHT 17 \OLDSCREENWIDTH 12 SCREENWIDTH) +ijd``hSC````HLU H :`S`S`dI ``h(299 \OPENW1 243 REVERSE 236 CHANGEBACKGROUND 142 SHOWDISPLAY 113 \CreateScreenBitMap 90 \CLOSEW1 76 \MOVE.WINDOWS.ONTO.SCREEN 45 REVERSE 40 OPENWINDOWS 7 UPDATESCREENDIMENSIONS) +(324 \OLDSCREENWIDTH 319 SCREENWIDTH 314 \OLDSCREENHEIGHT 309 SCREENHEIGHT 283 SCREENHEIGHT 278 SCREEN 269 SCREENWIDTH 264 SCREEN 255 ScreenBitMap 250 SCREEN 227 \CURSORDESTRASTERWIDTH 220 BITMAP 215 ScreenBitMap 210 \CURSORDESTHEIGHT 205 SCREENHEIGHT 200 \CURSORDESTWIDTH 195 SCREENWIDTH 190 \CURSORDESTINATION 185 ScreenBitMap 177 WHOLESCREEN 172 WHOLEDISPLAY 162 SCREENHEIGHT 157 SCREENWIDTH 149 \DisplayStarted 135 BITMAP 130 ScreenBitMap 123 BITMAP 118 ScreenBitMap 108 SCREENHEIGHT 103 SCREENWIDTH 68 SCREENHEIGHT 63 \OLDSCREENHEIGHT 56 SCREENWIDTH 51 \OLDSCREENWIDTH 29 \OLDSCREENHEIGHT 24 SCREENHEIGHT 17 \OLDSCREENWIDTH 12 SCREENWIDTH) () \MOVE.WINDOWS.ONTO.SCREEN :D8 (P 4 REG P 3 YFACTOR P 2 XFACTOR P 1 W I 0 WINDOWS) @H+h&```Z``[@HAhYLLm`LLm`IiHXYd \Ii diff --git a/sources/LLETHER.LCOM b/sources/LLETHER.LCOM index c08375cd36e2c3053d179999112c9aad05617eb7..cef9d707c82eeb60957d8ee881a0be1d9fdbf129 100644 GIT binary patch delta 2647 zcmd5;TT@e46fW2)_DsE%fR_Z_#A!=ZGMt2?-r+3}%y z?PkM2R4oOT`~n_Tt2c-5%W~n?=4eArLrXOFQ~?V}N{QrixEu;=!1ZipvdkXL%xE;~ zS#78V^LaR9Roletr?z!jo79t<^f|n&@udVG!9Pts{GsU<`8*b|N;Zc}vPx?lqQuN* z=5(*I;;z;Is9?%j!2)*4g_(#(pX3sp=r2o*&(CKrhb+U}X{`ML2f^xLyd{?fkdy3! zY@ASbqczturBv*2`5AA<^%L5~?lJ{Ursb+E%xdb>y{&ax{mCHfe_+wfW|46wTRJ58sDm<*yU9f zi1Df_#9yn(9tlQ%`B`tEVJ>swa!Tp$zd-LmlFr4Ybke7Z<~^4FZmCZy=AN zjgP}XDa~73sgMQR2uHTz5gcw+ zhaKs#vz5w_30k<*>X^Z)y}=`hrTA6ANdH0z#8x4H{e%{-#Gb>^UoncLc}E+~KWL-5 z5L*Dw?R4rVwkPHbcF;VsBQgJON9oLm^z&dWrh~xFXD0=&?8Jb>yU2fJmlisAk^YD3 z+}o}NcRS5bwiBPUn{H6u?u7Q8-LzJ22hBr!bnr$8`6hSLZ3%Yb4di(cdNSbKPCHue zb!wn^kBp4IF{OPpEdtX;(MT^bnfqPU;Ch|5*EE&CF2H}_GT zZa;Arl{>qixQ=cOjPIwo(r)7NRBo(05x49mifem`vj1Ae>jyLtI6x7X4v=;BLBe~T zsc_&R`QBFNMLh}YTRmh==|y!@4yx;*r?&(xa}H_X`(Dz?J475+K?m;~BJN&mD$MPp zxNskFR0SRU&_|rNUjz1jiaXLz992OF^W%xQ7vmInBTgJuK?fy=iHjc&&U)yKksXU? zKnAQtPpXLyw!wso20jK_A@c~SP)&4j;YebI&~}R2CTmKEZ%)xYG@hpZ6hCcAne0h0 zl9D>jg1v*<&!4C1Zraa8W^o2=tKKrVBC$N`EbpGtA@kW8tv1oi0?rDf%P&~1KI~`o z1BPC+h8EHqLzd|iUS5XXKMi&d>CqfpzXI`#A?^J866z-{JM1Nj%i*%4!0h3eLo_hS<^O=aVM>7zOqv=x#+VOQ%E>zfL`{WKQM@ezVXm$JjO_-g< z#A73$?D7FVM>S0u&_#BOg6y&uPZ`PU-`0f1KjrB1qyE&?;i2iG`>Xkca>XZzY5}wG zJQVjD!N*``L*As1mjy)0r8q>?F0~1w;`UAMX6(W;+|BrfY{X?3=OfxKM&@#Qdb(ws j7`~DOS*~DugP!idjf;_V4j(}#dI^~sy%o`nC(r#2O^Ya= delta 2593 zcmb_eT}%{L6b{sAHJ$#%g%x4(vRdm}+3xHv@@LgycNRu=XP4bU1Xg5$T|oIYwu*>| z3itym90gJNQB;h!59&jGXk%^K*fh4aHKs|^*7{&gw2e0DOWVZsoWTLq*UrP2d%o|S zbMKsc=iF)kF8b=t=tHhGEYaoldjy3gu5ma5rdf+zl3R56ML`jr%xFzbUiDs0vejbc znbne!lAd8rHL^v<^7`6_>Y8u`tFL25*6a-Awk)fvuMID+32ofiw7f378ET{A3V9Qo z^+FDNMoOBIl~IbCw<=gQW^m=Z-E8VyX0zGIDngrZhUeq$whUYPWlL25?5OYIOPwF) z$8l+(v}dkPDpCT0t6vr}9x zIYckAwxyGfS&|%Jyft+Spjiq%N%`Ij)3Kw3HMgUL1~r-%BJMEnP?2 zpo-H<$)l>Y0`cq8b%@C!ngl}RGd!{c7M9s@R9r?AeNsm3g7PxN&T@);SYD9GDfp@Z zkEEDIB}er81V^r@nAoDlEHjgFmrEf4u-l(EAS*wW|sLn@xR9%T!u%1>WkIjdl)(bdF+&~`f8|ZBw zY#_~Dvlj7u4Xv1~r4={U5`U|<;$?0Tt~GB3)jVd7X88PGk54I(WT&@)DJBj=4RO$3 z=b@N7FQR8O37qvJ$N9XHtcZRSJ{2^c+use^p!DO7^v;c(}fG)vMf;4Q6%-^&~)M^SkJf)Ep0oo9W=) zX&w)l3#Hp=Q$N_I*~u+rH??T?KdSB8uG!bO=RP|@DqL(%fMu;TLEDaaIMPZJ{Mt$Z zWS8wA`@uK})fkQCKf`r0$);q4%F7@)f| zlN?9D0QWn|@r^w?aPFb}J$oqsQZ;|H|y_Emcy`-h8nz)a&ynQ-2wU6Q+?ISHs z)i&+d;%@GzxWq2f(p7D=i?p6DU2ivqdAd=uT2L~;t?q1O?jD>C<^vSA?Eq<1A_GJp z9M^PEa**OK93+iOWB~q<7T0x%;(k0t#TI%9lX`XVaSuhz>?ONFMVjM5FZrecvBN47 z8+Vx4%EOeMieP|04pa8VBRY_dP@cXcq)`zJkkF^iyt$9!zUU*3ieP};e$p=X>tL*( z;{NI*sginY#;s^Ec*$HYDmcco&c#uA;O@n1Ko^}{`9Mr+jYvYmS zh6t&_WDU{L?H-CO;Y`>$^YXol$d+R7c-o?Zou5U6*E<$TQxY&3Nr&>k2$gvwTFqQ1kGM0Y&gD>W7Y33a%ii zjwM;5Za6d&5067LFzwJtG9oSh-UtdVingerUoi{WqS|j)3vOn!;4@hqRDJpWY|-V; zrk1VMEF1r73WP#p)pCvVuwp^%OkVQ>U%4LcoDo|mqHLb5=ko9tmC{035MA6}hv1f- zS(7Ary~t_|6>|Kx3CaP?KWR!nGGiuWzfgepsY8;{2d=Px|Jc=@E6a@ JBaOA;{sU;$B_#j= diff --git a/sources/LLKEY.LCOM b/sources/LLKEY.LCOM index 550e93c5c65b58c6b7e03338eb472ba0ab3dd87d..46ebc1301212a6d01a1c0839b0257e4581dbd378 100644 GIT binary patch delta 575 zcmZuuO>0v@6g9RWbXVGRr(RMNTgdok=Doa+-Q?va9ekO2%uGs!w@_@sNDvp@^dpu+ zbthQf#+Ckv`~ZJ}_)q)|P7@;voz>;sbMHOp%#RPNmmgO@?{7kdJPDXha zM%Qo3Ey{MF^2~-xH$aAz77>l9mVP7ij;l9jqXYC13 zL#UqN^R5=AN31g_hQJdJQk5eIoF&kg1r~m$Ks9iC9t!-@Igu#sh%Qk9r}P#uc*vka zZP6HQfTbKNrR7izP?ug#%<5m~_wPn=O{W{{VFG7MAycoF-Jq0)prlWP1<|6QX$PtS zDl{@D29+3kLj?j&;yIz7OyS}$p(~XI8hRPak**#&4{`oy9rON|y?jp?9~V#>LFKRF zKon#Vl`eq>{<5@l(?+P?BGnR7pXwYYOLW`X5|RXVeb{1DxHcX*G)feGZHB__LY&@w Lcyspj{nxAC^?;b< delta 539 zcmZutyGq1B6eY5ih=rhyB9{e03x~`kW|Qq^vo~unI};{}D5Mb;AH@nj3U${-PzwuD z(pdQm7W*AOz#nojyJBHCbI!TOgD(_uXAEkTtz%lvF_nVF0N zb?P>K`kZbYpDfg&b9B0Y(Ak574pf6Iir}x55K@Jmt<&9|e^%5P8`O>GbK}1Fy4V=l zmxfU}{FpEct81$j$P-Mt?_-hxqb}r43_^iTTn~L*8eg+}IRbk+x?VB*lDUz{Tmcd4vZ&__A8xHU>dh1n zz4?C0*bMR(3RIy_8lgylT6)zlBC}LO%pQ(YUD$~8SGm&V0W}@SwF|a*L`r8FgICjF f@>7B0qFGiPgR5`(fyv}wxaJj)uQP+~tCyQ^e0P%} diff --git a/sources/LOCALFILE.LCOM b/sources/LOCALFILE.LCOM index 2476bf498c2bcc41703d1183523a216511f8208e..b500192a28f4b555605a12a255bd827aefdbc588 100644 GIT binary patch delta 4077 zcmZ`+3sjR=66PXk`8^^pd1%Go2$E0;c>_U$fg}(TlE|y|$unXg0*6E_-73Wv``WGI zul;eYO4mo-)>iSiQd^bQZC$LkY9FgzyH!uE_2^lxTHCd5*PXe4u(W44IcMh1H*@dI zojdpO|7U&Z#!aEqr6#k*>M*BUtafv{)nRe6i7sP-%~)t=C00kdxzuhgb4hw46FT#a zWoA~XkTFuUEhse`%grWM!s^n?+^y*nuT@D{sidxDajVDcu4h}C!HD^t zsm!))MupGa<})WP|LN329G~olnlO>C2e(XpTX`dFxt_b zJf~AF`;9ZLUYo5~Y9(xKn|s(B!@3`B^?K?&es4#zo}Fj66tuZ({BD!G-BaggJrIkf z!ft0rMlF}iC2Tzy)&DOCDy4)@x#wCPVYpJ_2KpA64KylvAz}E86cWp=3bq6AWpFLf zyipnP%siLH;`Y}qD)YB_nj2WXDT|TXSt(}>na=GT^%P+QWyr$>th>~ch3%njqoCOz zt>)}u{Q+QY-!=#N%%ceLy1=#zz= zx^p6^<_5ES0sJZ_O?XOAhyN-k3&Rnkj^nJkH>rM#FxQ|%_iOS(vG1^cmn~E{VLUu) z91T>(ipk`vrm47-=Iy^W9IovW2#@(95PRNF*X2NaE@*ygUjsCdMPYEM2e*yv@rz&=zU(p%`{VLQ zfwp$e1$w*_3PYIl#B-?lrmGyNenk_|?JE`ojd}73P_KJZf$AeqeGBxB?l}O3t?Wk6 ztDZJtDsk7|cy9gh20gTD3xKt&XMx4u)vsgU+BMHoyCOlu84$qTy?yQL&?;ZI6zGlK z3Ebl^rgCFn#IQtZIc;4RuJEJL*^S;?*mL8CCeF11515S`-UYhgB^+hJrcUnpjcK%1 z$%Sun($*%RiGAJNip>+C)w{Wy$`GA!xNjHcF|qGK;e{=mad`Q*4`2eq_kUiGUS4?Z z3-(;NVefzz4L^Qse?Zx{ACfQJ-mk`3WbZVhR`yN`w`zW@aOyxS zqWOo$BI+140$n}$2|#u4c43u$bNDcrbdJ3E~-09QUPdsL9+>tY42YLz% zrY{O{Xgm!L{=E-c3(l?rdhP6EK;J$(MR?}RduZ^?R~!WL;JI`VgyQq{$aY;=i7MUK zP>S69UqfMYuU(XPmMv;oYHjwr+uCcqzWY~(f^Bc{%494V#{>ltZ%E@zdNdC{fM;{0 zFU(qWt7lP!)dSj~purZTfwo6990?U$soC5^-q5Bm8V?>QvELFh93>}*g2IA2@Ant` zmDD$#@rHld_#H3$8Z2r0Z2s<3)bFqS*oH>ihC*-uf3G(0n3GjegVbkL#9&qUpfkc5 zeoN3eqnr`cH@fbmfr`GJ5yQ@V1J0chO`lao>^>&Cw>Et?yZ;^&Bvom%S-3@9rB+s@ z(cW*WGFgBeN>-)R1zO6?tl^eUH*Bbc?xLYm)2SV9s@3=P@Tdt4uT*FP`fPQeq045? z_HtII49J@Mv1n8QNUaDolp1zkrKP0M?H^uZHj5$!EwJQ|`pewaei>fojFeTWRPYj! zu*yu}&7icoJM<{4vsnpL!;-~rS51Q(p=?0l5BIaANiV-pHk2vr@1~7`$f3)8N8wHJ5ioprBQladWGr9Nf45MT!O{D;a_RUhVHzKtnsc9x9iTIy};f~ASD0}G!QZwM810zIS#Be zgnS6-(ssp18c?;JR13xk>oF+D~=+I zu#{D;$VQhZnn_3KHYV|C%NCmK(3<4JpzbAu6KVCuS;#bgqXB9NpnMx{c5?QE< zTGon;s0lj>;~gOyegNNf{GJJ9qx~6Zl*;83zt+YFa8+)O74w8XE6f z4Y7dktcK3{u7>Qx(6qP!-0pSpyj(~1OLVj_KGhMp<#=f(9b#1`hR!wbiRGCrG839r zJ7W2oECSCSzBh{oeLIVq&dVm%03OUH?lFwSUre75K<P(gGTDcLCig3KMLzy9Go8cF=YJ>ok#^RG3Aj zk)D@eKCOt7ta;bAcu-++)^9K1rW}X1isS-$0);p jWTQ*Y+DSq^^mwiJKap1?PN|Uy;J@R`>VCA delta 3371 zcmZ8kdsLLy5qCf|qN^ec0=_;0Wfuh&mWAEr<;w2D!tU}?tP0T;Rs?y;%NlDCAF-wn zgd6jTB1qH|ZK`6v8Y)RdwAE_tiH|fIF{mYtCZ>tT^c-s|cIGY|J>`#i{AT9P+_`h_ ze(Y`Y7;N$IRv1lYi`^7vwpdMJ7P~n^m@YQi!MACWT(6WV2u{v685Wp~LSU38EX`3K zrqc?MvHD1zUZV~a6oCa5WtGLH&O)K0TnH4_8*|b(#Itty>A8X|P^}8HIjX{R8X-!h zSF81^=s;lw1(b#q3dQJea~765*9no)VTRfw@(T|S4-^U=HMm~j3p7%rkBZetYXg-s zriYavV;$f`I@)b9QimHNqFo8Ttl!Owz#R7#NPp`dA(!Q4n$6Cdf>k*+RmJ5+g5Ic= zu`BLJK_+b+xd_m!w|ScMFOMpBT1Tg5d&V3e0!uu{j^to8``!2>C^cDPS>uEO!fwW} z!xMk?ip*}Y3L|nyvZE9H*aELpX!4#!sp}@S4+Yq~-=_dvSuKADvwklBfwG?SEq6sj z;|MW-DhMoZ@*OB*34Y6Bv^|AIBk)fiGb}_83sJ*DXwMjOnM`Ej2!&b~$&UI>t(Tz` zBjj1lh0eO-0;izXss*gkDyUr<>X`vQJR;ccuaDJ(Ij>HUxz6& zg;IvKW>h-Mjl5oiN~MZ)ol%n|O8RWdR_c{Q7tS(oq_b<&jHsc3rA`0uOZe#-^Es}O zw8A4d>~Uz&PK=XI2d^VdAJT)2JyqtQVh??YCoLs~>k!+&PDPg2qWX~bHm6E$>Or3H zrkY*WFb+G^+KbPn(AG%5Q^V^FzXx|tl7mY*Ru zz0yLZWK{dI*Q+igkWoF6@Z~kU-A#1~X#KRV87b{gT)T24ii7KM+tR=qzpKA)Pt`zUsUO*uyW*>>z_Nbek@CsN4R_4sjN#wPHiXr*oS}Y7?NsFVh5y)C)H?@2D?khW3W3!+VK%@ z-C*}*7Jlj{1cQ1ENS!@b(NBB2fp*Y+<_w;OwBg*}C@SYKCy~l7G$3uf@Fmi+iyP4V z;Nm_q|N2rbQo5LFe+_ha4sIX>BJ2YphWoH2)@^E zBX}#aRImua!zymOrh;7b-k2#D6C=UEgnU0yjHDIBE0MhB@F>0m7R95VM)B_Es=4;D ziv>q>&juG0G$42=mH3s&vNp@za3lU290qK*1{BCjG<*ie#PB65V|Z~=44BdOG=^_7 zAQnEL3Sz0f?9-!uqD{-~Z)y37|EL9eZF}40;!+)Cqw7%}6tW|SCyPow%tMp?kgvE= z5BMu2cIkO_@;IJveH<)D@Kzi+N6P{;i%TnN#0(qwiOb_59u0frVIjsp@{x<96KHAH zv%*KLNB|>>Yb0;+d;;K&6TK4oQLato{kWFM>xxW*mHzm3Y|jz!1JhVtS-LK_qO`Wm zSxx;AJCk50hF(qL&Z>F5lBRjQyzl41r+{LaS5 hDaj80(aR@(W+Ic0|>9`uDT`yUO}28jRw diff --git a/sources/NSFILING.LCOM b/sources/NSFILING.LCOM index 15d9ca118c44b39752e1f3b576bfe6918b7e9662..8a413159e4a9670baf443a3f7afc6729be52132f 100644 GIT binary patch delta 4318 zcmZ`-dsNg_9`EuH`0sVWv zioc`RP8REKnQg8?W3{!Vwe4=WTOPD_d+465ZL8B}YSxB5V87oxpvXDRANStx=li_h z`@P@$gYWJRe`Rax)L88CbrowhT9JyzQc+(jniN!}XzAS0 z)!yN2rJa5d61G%%mfcz2(Ch2zU36P>S4Xpdk+ZXNV(2Oi_DLx_`G_Iud zhXT4eV^O5waySJQM0Y$R{hFW@D=Q;wB!_G-375{v%9JObY+s$c{^Cf;tFBhkb_4t_ z?j8x5e>C*&5pupZ^*NkBl`1n2#~7Q6Lf}VskB|k@c;J|xs^=tV=|bgbWM73 zTGyn}OSffz-7ly_jT!m1HFe%5hpVc#2?IlK*C7VOY(%f2u1?R!mh~QA&!+YkAE?1T zuT!&F%(DP9?s$gbev1h=J_E66jI->TEk@elzs=uyyMNl1*=(Rw>*|di9n=g-u{Hbs zoqg7ged~SxzV;R4mJ)QoxM!3rDo&MT&(;=G7B6ZuB+HGDqi&=Rw8L$SXH=PbC zH|b_2#-!Cy>A+aB+$0)kb(Ou58o?D*w38a)yn+jpSrQc~2}U^UAOKZ_3+Y+K6Gdvb z)m3G++3X%q9W_9j3#;ta)&{4y*nSffkjv_+S0F_xg~du|Q*5>uYJ=*y}5$3V~W+-wHU3 z{65;!>G%6u`e*nGVBmo6uT;l*YjRg#qOAooQ63E)Vo127s2x}XyrEZBoxrF_9F*g~e;L`m_F zNTRXklHbjQQ1*|J}OHN17h0Rg38C^ z03CBxppE#tzvFba{$reudwS5KwsA318=E>{lFruW2cnioqS?e1u_A@A5D&j8`yZ$)DG(Tyc;On6_6u9}o z-#C~RSp1vQa0dKDmyYlUh(9c{!0KmjK}kI7uLIyWFmx0n<9Yq+xffss;YzPQe+#hW zFSNkxA$@xyKk(Gc?_=Qi96y88>OYmi_5zRmWfM?R;^-@-_` zK2Mh-PQC~5IT&GjaSXi&(oQc73FmK@RMD6c@V}$O5XLu{r4Rn`CGg+)XFV2F#+ltP z9zOFnKm%v*LC;|yzJmtdKc_@$@?$wF%0ICK(fY|GVy&M=qeR!|yD`MjFI5=MbaI<7 zyoMz1{-(<(XE0WNgLT6hk9;?iF*II|F3w)r3D!Eke-N4hG!uHmyVArD`BQJ*Q$IFp zL@k9*f^V3YiWbuh!mOn$f#q=7p%jY%r`DI-~9ZzTZ*@h>5 zHc`$Sh?GB>1v|D+u7UC3`>AO(};znvhAU$hIZHwp`;vOa~N3-)4nhQ zzS)&9QV-LzaMBDW2S3eZqv50skgz#ClEJt%)<1_-0rKZLC@STsWlR%6j1j_O`1V|; z-ZMy&*gynX1|n}pkefgxp)6Gz{vwK1MG`BZ_ePQxfbMuYm5oP|C4f{$apwo3$XZ~$ zb|{Ty3fyaxK$Zi4L_ofDY9N)VqDeJ;_?=2;_eFDSC!z^lcvcd_RnvSE=VvkUQLF>tgAGdZV{fO8~)IDj*rz}>G*D%-6>r4?ciic<@O#<}&$6JDpp3FCFvG^cmdB-VAQ@VvusnxUuJDTs=9HtOCj2Os@Aq zaI((h9v+{^!RRak)yhs~!KrV_;%Sc0h3fhwi$H^5g>r7;k{a0i<-`q8b1undaoIds z_1XOJcI6Qp`#ziG0$WZwl#>O?9>^szY%+(Wu#-v>%g``Ld_lSA`W&(@9NucGVsLp1 z*qS1exmQ7wL1Nn7Vs@*7BmfX!L@3*@-~|uPQrQJX@UU{R1{gq<=mPE_E2pHGrOzjY zur@CsdR8VU3X~}#Y91qdMoys5vm#0sGLw=Nz`9u(OmJZ^RIHHfJf6t`B{8$%`6Qhk zE8=R?vE`rvbYjitf*TePCCbcWnrzr>bTOF=OrFhYh#xLw29pSEY&sR-o;_5If0YHTj23e%1I3U_ z2o@E=YYN+;<~Qj>HLu&s60ZGZ2`{{G4W~LZJT+q)Ua&le}(GT7keq+$5mN&X> zi2%I|mk6L}9j~Sm9k=k65kj9ZlK86w9%;G>Hf+{IITY)8ybXF@+Jgo-t}#8YkR-!2 zl)-iyICR>8`OvYgdLm<9BhiB?@RQ9B8F|fvGweuS6L??CD#0ByV7UG5JcNQM_NelNYmU3IHl;71WrQFDxG7kPVI2Dz1$(`lg-Q{wA ze#Hy9!p?~D&{3;!(AjLqPt>E`^BFM|BBuW5bn#Udu=T+8SNzCv;kB%y&*N&xzz^+Ft bNlBuhy7rxi{}2E?%1YKn3J@2(yu$whx}LYv delta 4543 zcma)Adw7%88TU=^rC(`Fo3v@0o~E=-N}J}(J!$F1G=)H#v`L`~LailSo zWuwb#aao*NJr7{6LL&6i8WlYS&<3f4LtmsnpCsvg zL?;vaw4|at#;!(mV#aGYM$M=ra%NHjYB-exaft58t4o&rUZ14H=&tAG-VmfM>Kgbd zeN4Rx^pxb+lz#c#g3j#u7Y7xe_~*d9Tk!AV`a#9yopBEjDl!AgU3^ZZEAn4Ro6%9J zz&}_&2m$IScpT=@bC){{9Q)@8wQSokVHqY&G{4ZNxcV*KdS`ju;MK#F7Oscov`kY9 z9n`1UHn95^oh)08q{$m<@rFXUb0!CA4SM}DlCo)-G&*e~q}4h?nw=x0$v#5LGHLe& z(Fk!mjl}J9xjn&PAV{1xI|;S68r;4>$U_`Pv{NWN*`4N?vfXYU*0o!VbXCz;0}=*k z;`~5MYkP;+-xTP;(2U&OXvFB0Z$|7k;_nSD?VcYB_b*$}9VW67GrdX8Y`GaR@vKKo z`_P-w$g>}TI*8L^y2-TDY$DToe$vx>PtUM7r%5I;x_Rlsg~Tb#w7xhe+lf{11gCr5 z9z(P)4!d(x87S)=Sf3vU?65lj2QiXnug~kBWUvqih7ny5huK8;6{~J_$aWI+O!2te zvA{PaYj^Oi9hHXN{-aboh}~)!#-NFvB^ETF-UB7#|^Y2=xz5zVVm;?Oj+dD~;l+KuJ&VJfW3dwKT;cAnrHjKZqLmQBvTEI3J>^SCcW+Nm zxO)j%(u+b)hlw68t<&JK)wcKFN4n;9VPiv9ObT`F=toyJGe^3^ABydqFEGjLC$1)k zMA!PQ^hnuix@$0>O5Z23^NBDfAwlAu=vse0w=onr#HTH7AM+z_mR~q9@tY)?BuJ~ zpJ(%E!fSX8!v&kPHk^XI7dH=a-a}9Q5f_FnjeOC!bt#VLw!Vqu@1GvRF{)G$*|BXN z7f^5ivj7VtieJ5lWfz;6Iw)Q-@j9s^MLTA3Nxr)~BIq~LxsyjGO8L^R-AG}$bj2&P zkahZ%ZhV61u7l-~1$*D;fxGvAz^9@&YB0UX%(s@|ioW;u?{M+pI}WrH*>%vsGymi; zkHq*{E`9sRNray{dXjVR8{*z0e>*l&ksuyGdVN|>#BkiqLwI$OgZ}cw7s!9~uWkGc zz5n<1I4=C)F9}&qI9k zypD%6T-@Rduk$6(KKJXRqZkF>@S`FaGrt?n=={ExyV&xdHE6B!hsPm_Kf~mf%k;I& z<^RuvIq}MDqs2j*Jk9(WY$qnOdDKG2=7lV;--F!|Tex1*nJi{{=t^F;*%52Tld&sd zLp0$_iXSGq8WXn8=*@5b??glxRWnvKm+4ARE=Fb73niid)Y|AZ;X zzVN7;`GJ#cGXSb>QV5Z-0;VIjR{>~*kvPDU%^r$_PMl810e4s*4{bQDi-#^W)OIeP zr6)iQB2yBen+~PtvbPeT38ZzG)S{uX>O`nS$+J~zwk#2BDEVTdaF&$>x6vV&iuQe; z!d53iBeD)B!AunP|3S&>l7WBsuHBf=wkHD~TDl^rV%L&kDv~RoSFx@XsG;(MDi%or zH$AXY#iUe`-MSS@){_d&bnWImb|h689yj%t*J%U}l%Iz=(9^IN^(q6TyBPUCqjd+mUx#30n4kHq;}X zmm|zPkRx(ClOsZFPztSID@BB$5>uxNI#6M^N*LDU@?Bx~=L+>xxx%n5Ppp2CCyZUm z6M8e$qI!GOLXYH&>Ct@Q;q&OKtpM&oW0@Mv`;7v?lgri=Lour;vck3 zyA%@RB-zBaX>c_~4;EBfSqLrcdbtQ16R?N~xV##fZIw{L2Ft*S^qC^ubuP#>Q5RV5 zaV)(Gl2~^+_)ubS0*vPstVKFgCu-iO69?j$PVAaP4=uAWEhW&&F2OEs8VD&oJ45kl63J?#JOy35frBBiTJ7y5uGj;`SB`oOG^zR zwH5;&wC4=qQAk#nX~2>kHlW|J)uMwtRJ-+&bYsDs9NBS*VLm}GNp!uKf~px7adT7AMC-_#p}X0-UH7s!3E~te$3;<|<>! zM*H)y#d^BGqA-zXi3ac`!~b8fC+ndg)#q*TwpS1b76#Y)5liy90{+Y?QSM?r;OooM d8=yK%(%tx7;q`mlQ7zB_bCV@>gdY&ne*q!A>pB1c diff --git a/sources/PROC.LCOM b/sources/PROC.LCOM index aa9c5028911b8b06d02d58bcce6a09e79bd7bda3..b2b5ab2a93f2ed9c8f52fadfa842c03f11c967dc 100644 GIT binary patch delta 2718 zcmZuz4OCO-8783CUY)k`k0M{gs5evsHzAOqg*jh+JzAhUJ5yUn-03<2v6X^W&?tx~DW;$}&wkn+ceeIy?cO&MXSZ@V&wbzL z{r%qiecuhe8u5=S5pNiq8P;Gji+V}q9il+wBrDDCu1iy8s5ru9<#3tsFDIXpmXipR<{V;xP7Mwi2Bwc^eRrS_@A|M*=dDzoy;L)Xs2xD0%p2IsZ}xy zBuCIPUPbsRM#gw=&W)c5j|Wd@%fNSOqy*R;IR@y8ItKXfsB*y4=n8Q9Fxm`G-dVA8 z(Kj;gPco(>J{_rygahF~^(<-zd?9f;P)&)8Au)Yhz8x?w*$349WHuO>@){^dQvQs} z{v~@siDYj=y!S7u9CBo74JiATGP6MWxvB%OKs^OiM&_@u+K6T>0v@Mz!>H|Bb`*nB zpWiKG4#mgN-sjtZt;yA(@o3(AXtePE1jU%&gG#`dOASH+NCyPygw8X?&~))0IK&zH zA3D4fH13?k+id1??%}}ZnHHh(xxzvj)Ar*+*-VBt6PEI|vGh>UFCbcB{sB5<7jFeT zh3HjSs&Fo^+g<`?#)@Zgk}W zAYtEzg@wu10faq?a5`ewZ^OQzbxliUYv_@t)s*aTYc(oTz)M0fhNv<#NwKv=AS#uP zq}!Yhl+?s1qL85_F0)l%WUvrUr=?vx;*uCvrPdKwKCdq_N>--@ywsT_AH9f*(^B8g zs8|rx#HF_iqQNRT3=&@~LM}DhmP4Wp;xdXBQ8MY3l4t=V-UWoya>QbS)5T@0riCo^ zw4lih3iM)gE31@vi@@vgSlUQdCP{@VywmJR6U!W;WZ}(FvzT|J(gQn7;~7@LJUYZ; ziD+@aQi6x<+nrW?I{~A{yZaRh#gSL90UqDe1oKtw#e?L{YIzsm*Vt<}K>6Li1*r7z z9|S!7(*RJ7KbwKuea9Pz@lD0h`REWZs%Y7pu!+6zycv!sxc#kdXij>22+ZCGN9xea zeRKd&eXJFz>&JeH8>zN^A1Gh9zy1U$wv!8K`-$T~*iOy|!n@}5C9IY9`yH6&#E12m zg`8Oh*nH+kfc`VpfI=tAt(~g@!@H2F=~^|DaXB32^k82k9q%#$r|8DGmTni|o$d-i zMtw%pZF&hwU8tyyutGp>qOA@gJe><&V%d5yZle*MNNdW32w< zdF1QPqtCVTm{He@{NY~Yzv(RnEcs+5V8v=9CB`jI&nMA-$r=T=@o zrt<>kOuC3sdoI2R7zoM*pCa@Ar)XVp2|epCVV==T7C?3Y`TYav^S1%yPfVrKU4w8L z(zAouS>k21DF%~h+vR+adb;CgD&UWyK7Tx2bj1wZrYrGu*Og+BIA1n>!N-OZ6fv;b z7fnz4u++bNRe%*&t7kDp3Ewh$>S`>Vyea~jdJSCWZwir=_e9h5TSXBJOswfvCKTwnl?V9uZj_gdWdW`l!}7gjl?xcRr`}E2;H81J zAt=ZHLolxPrvo1F#{vG@&jR}V7^M9SH!ZHY?K3ffQ4luR6W$%)T|@Xd4xnlrf)44U z>FseFsN8J=h;!U{Q zXm?*+LP+7A4(s&T4Q3;8fbaX0(ThT6m%~&nN-GLPUU*a!PC#rp_n4(bJzgFXRgKO2K~cPQo)GD%dJq&Ad>K9k9G0IIJbSMCj%IM3}<; zI~qW8cL`v@-DE(|UAaCKjqMkU7U!b|k+9mnhfkz}C z!Ef#+L7~M{_~U>bz@oN+7{Jyk++lkM@w?kIs0Ms6$kGk>VxMN%(9DBB-yjFQ=U&Kg VI-LqWLOL~q7C{HEAHF=ye*o+DS-k)N delta 2860 zcmZuz3s6&68aAMUmJ6r>L_rQgG+2zu4Iv3G+K^mAAh`+QhR2Ez9!X0FgOKa*-Qe4*~9MLL1`XV>K21-lnLsV+E z9tCA#>nOy#z1tMXef?w&D9@y?UI|JA`zOFH$~mASGk$~B{;V1gg~uuF2x`yld<%oZ zvtI$6SRYF}vO9n_?oy$(b@zK{P1pSkl+>InsCbOK=w?G6NELZ6(T9drAU!gC4Gv#& z-HQ(I_>Ap9&F3W`wJJYf#B>PxBL6^=>f&g9!B4><%*>!ejOBU2lZfsxz8c3-Yij~! z+O`GPwyH=Cj}Dy!opXxO?P76hxIZ2LTq0HNUjTCJ0VTTcsSJlT(rTwW6gDqS-Y=#y zml_zCs}#&0*SlDuvSt`i{cIyp=b!x#rv7bhGbqUiak}oPx|!v`ebMj&DD{m4m^tUU z5`3I)jtHy;i+3OXH;`Q|RiZTC85htXj5mCyrWy?fQ11wvG@P6o#KZ?YZ zZ%r3HO+VU-{oxLgy@8MtDTo+DbK*INyo4Vq-tDpH=K(-#=+RtFD(YB|Zl zK*$AQxb-AFap#YQ0Ha=Qg|~d-RXoA&(?@@e8|JCk?t&8Ez801AW4(Z19h(B`-tpyl%%)#| z6ZgyEQ&H&PF|za$g|p*c@skj|Lc)K37|k#LVi?Ts(lhnwb>nOg;G1u~3slzIKf|3o z)PbjI->*)Ff%5R&bsuhY_nrSIoO1Uyw-;-@@s}4dOY~nGFv}|!_5sdZ*bAt;h?m;$ zE~32h(tbeKC1iRop-+0}0l*WTD9?A61DY;Z0G_*C2^i^d0ycW!G}6yJ$XKpm?E6>H zC-y^>TR%j8(kC0cka@2Qb4FdoiU+SEGkg_&)YmZEnQO>@bq)E-k4gY9e6$BJ_PQ_I zb&Q?3j{RhRjQ$-TBeT34(bM6H5b_usPLoC==-vJl2>5S*72tt^YQU+1SUNUf11WtF$9Qtk z70R$IO&$`{Cx!}uDH+1@mxr*;DUPN zx#>2RIdU6qf4_~%3+^EE`#Z?Q-o^4QcX1x$cahP5g1I_AaYZu3W;O8wXHSDahQ^J` z)r{0`(-rO}<$_QqTlzr5VSzj3|4jjs_IJYl*13!Jk4Anqn!- zgNw+_r39uzQd5fbd7Qyv=IlX|PPL2I`X}ihFjoZiJTutU=uDC!kWuFltbUJNvym*l zfu(Camxs{cdofu!dtn~ju#hhMeiEeH>%-RjalyqW?28W%gi!fSG3~z}7tjgRD+wx# z-vqmZm+@SwAcGblZS-smq}?*R6_B4*`O^}5qB|Lw^Rp>{{j-wnKvUSih2tH;tVmdG z-$KbsbOqcZPj@^>d@7J(@wXpmz`$>0!6^uKou13%OvXHcC|Nn!bq0fAErt&awRm?y zGsnHy(&rCi0awo9M*K$){xI0ws{}0VmD0YsxHXJ4_+>EhCYUsRH0RvNz{iXw07?W6 Mf)=(0eBPM<0RilOBLDyZ diff --git a/sources/SPP.LCOM b/sources/SPP.LCOM index 0de3e49880eb6ee9f6b90ab66352490815e27405..8fc390ba5be2201d9451ab4bee77f3986bc6f15a 100644 GIT binary patch delta 1450 zcmZ9MYfM{J9KdbqcpQj`!sv*VvnIqAN4fWQZvLrG-9lqg|nt;&7!Pr9cOz z-3HAxZW%eB_e#v1G3xXte!yhtVxoyJk_}`0usAEx&n@C4t5r^ODq}x|E z7z|oE9G-$jpFB!_hQMp}|2r>JD|`yV#uS!H5`^wHx638ke3IKm&Gr@|uPQi&g2?xj zGK#lVK@^HYABw)B6(!VGkavNfk{^MqY7LW}RqUFhME<@spi~ka>+RUZ8Y_0O(9`E3 zqkN!Ne!l#X;&J2}c<)w>ZB)ytXY03BRkQU^QJ1w_)YGRPvcFp|C;g=&<^oz6SB2 zPxQE~PKVpmZS~c&vi3iB5}lsl19A62V~*qa{3nFFqjLK`)ehL-+VKz$(_%~FVLq@g z178-?czvHqRqUo12Zzlu1UZ)-b$CbL9JmF>dr|}o%De6Y|LOV&Tvwen;F7=YR$*k# z)t9G++1*W`&AF4n`|cya{+{n3QQzB$iHAJj0$=oI!F9#Ej;;m&A{YgI7?+K&+=jbn zRe>8|{2q8669R`n1eS*2YqRSiCj`m|2qxDI#tDcwUJIf1+ffaQ!m*1e-iZ&ZAipdD zhhgK15#SGrVPM--7nyzF6>CU|E_WKwI_UGwN$SPUDuJHv8@T~=$|6l=+xjU<7Ynf+Q zI%D3l4s2<~tTiiwmC53~i`gpnSGE_l?&H|)~=sZ2v-u-ONpf2VGc$J(U l?lD&bVRNpwjOc=rOY%W$a7S}GaG%Ll125+SI|%%E$bSwIt*Zb4 delta 1485 zcmYL}ZA@EL7{|Q~#(>>T-rX4EtczMEl>1WJa+$^2UP?!~Ep5>ZI*`7AY+bui%F7sQ z886NyBhHg71~rZkV*FqhXrhM1YB)-J?L7%6Ta+Cg^|M{Qi zIp_2~r(L;}H9ME}hBeNrn{9U4?2=6$*+Nu;uJ%Z8xVFJScu^AdlEA5mTIG+NJT(vs z21q1KRD>P3xLYR<2L_@ij0nMaJP;jmPHs}vVjc%t? z)5up7mB`h$^$ylH)DwY|L{YMES{3o(`k`k7WFSmfRa-C+3XTz8TWgB-W2Q!cR9o-vlNUf9a)P!!qhu{jhXSqyCQ5yLSIo2=ZH#ITm_ z#h}^l!7!D(k_ENK{11UY=YI#*YQYt>)=GH#`mU>>RtqYV*4>XGJ!M7D%e-9I!!H9>A zG%NrMrSdFhFFho^$Mn-LC9=fZX{+#Glnf13V+ zxAW-57``2!&NhB4R_mta5?Gy?sZ7H z)f3K#@ci*^tbXT2C5DyIRSaF>0N%hGgFfKFXdm!mGywcH+6!zSLWk3q(wjpqpvq$C z@&_v@jkSWh7t;gFhhNFdykXkjR7~k`6Zp4>@v4d=-M}|T6ySrAAkaFB&f+NQont)E zIMxN6AH$vh8}kCaXVCfdj32mf{3vjEyc4)Kjwdpl#dFM`#dZEk>8=TMKAQ+s;YloR z&rv5{B*iK>E5zxrDIVEX4G&9SIEVW#p2Kfk7$@{@dKl@$M-#-sJl)BxvZ_5(kfd3pz{b~#P$O$5484Aw6*RXbU=*QVG!urz$3 XJ+tcEbPioQT}-=XJ9Ak0m9qZ>s6o85 diff --git a/sources/TTYIN.LCOM b/sources/TTYIN.LCOM index cd044f80c2db7a49a76564632753558db05f5ae4..63e62f6cce05b4dd79134625a8339906bd13ef2a 100644 GIT binary patch delta 248 zcmX@Km*wkTmI+}Z3TC>&sRg=521bSohGtfV##ROv6SD&9jf^xElu#s1txPSg3{903 zl8RE3^K%O_b5c_jxKb+$ax#-MOL8hztrS8+B0c?_Lfzb4gIrw0Je^$?GV>Ia+(LbP z6p)S5)6-K@NJ%UK>c?V*k)e_%*Jd3?*HerplZ#G2V^3fJ0+Ec#VP^t3jSY+x{5*l? zOHAKP4*g!$c#nsI*)F(vOH6p|{$j{No%|FQ3F+^+g I&od_j0U2dSQ2+n{ delta 193 zcmeymm*vo2mI+~#-5JFu=J?ecT52jN8JX)kmZs|(85kKV7@Ap`npqheDk&rtr6%X+ z7G&n6rYLYFXC&sOrxvSPDdgpsWMt;0D`e&=D7l6D_$VOj*3;8dQb$tKRt9Dhvm7RKGV#?LYbq!yAj_LtnOa&I znkp$I6{RNU=N4qbbavc{;l)WacR- zxrO@pC?K1qr>Cc+kdjyeGysboMutk7T$>FUpD{8@PL^Qa!k94mEOWe;)_zU~AP`{C zFfzALi1BswcGU~;bqs*oq{#&oH&F2N^zoT|m1U`>UXY`oi=(r%YjALYf}w?hf|iS` on`5X?h^}iyh-;9aqmP?^kgsEi*5-Mvp^PkC8bCY0vz_b$0D-wo0{{R3 delta 412 zcmX@Ji0Qy$rU~J~=DNO#mAXa-MurMT##TlKR)*#ivmEM;?27YCi;`1|?Lysx^{kCG z6_gZ^l^R)@8e18fDk&7DCg*26ULW}jJA{In71&dPrl3?UvIHLC7l5X zM9g3e6Bxq?#?ac&2~r}!pkZuiq7dWj=Flb>t6^+lrr_rZbd8av zxk8M)tDkF-r?Xy=tD}pvhhva}k%a|9G(5;N#1$fJZmES34{&w$h6)=XL__^xrc91u yS*jAE7v$*Y;^^$`8XO#;U}%A)60FYI-^F#a7HcTufgc5Vb>FwcAS&Rk*G!ft-q%tR08MLV;DhX-pg^*iKczY7-KJ(zuD$=0H`W z3W0>giON?#B+h^oapL<=KF7u zyX6(O+>Yn&N`hRt-yNp@W(Thm`%;jc>MkpCUO{ry?e4bwPauGS`@r|Q?e5UqRRZWZ ztJu(V9jlsE(G1OoLAM`3uGG+Vcyd}n5I7igT0^%JK=A)ZWM!UeiHJ*raEZOgf^d&5 z(U@hWJ19tk(;|wR15_5WZxEjLU_nQ%Gde^;t@9@iKy%MFC z*Ys}p4!?ahs!?i(_1F?y3*FdLwi*74ZG`?Ab^lda-&~AZeb;+qXLR(kY)o>aH(nnd zy(rh>6QUOHjW^=7gyAzN3oT+7u|=?H;#*M4=ckCAG(}{uOc8PpI-xW(S^>Nyr(v{K zC}j}c@d`1BsTBp27`RHJi-3|OPAWuc0#IfG(()e=KAU})6ijTWxL72XRfi&y;j&6f zxS`uAvSt(0zR&WJ+u9+)T9c4?pMp7&T^f;eB`ktW)#^ ltkL)bTucJqtmB*4=(Kf=H&=VGRK*n+)D{5;*v4b6kbQF5t=7F1EkbI+ zt*_K-xSqmuFomo2rMcR21;*n37BgJp8>4`O@o28R98F3P(`{|>R zrOQWn7T@)DzkD`xbh(EA;0wGtDaS6-ape@ zIxDx_dAc{0*caly5d7s{V{;>8EVNG>-cGUkdp%=z)~2^J)BL@bvBDi-g}t3pm{XC8-a2H(DwpxYz!2OH;{>JJsq== zspb%k2Y?B=