From c3b5e23cd94e53f1bf07b873e314df251ffd8e92 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Thu, 21 Oct 2021 16:25:16 -0700 Subject: [PATCH] Eliminate implicit calls to \FILEOUTCHARFN (#529) * Eliminate implicit calls to \FILEOUTCHARFN Also, update DATE to modern readtable (don't know what it does), add LLETHER to EXPORTFILES in FILESETS (may also need the file that exports pup records). * Further fixups for EXPORTFILES also fixing/compiling PLAINTEXTSTREAM * Remove garbage files DATE and PLAINTEXTSTREAM from checkin Co-authored-by: Larry Masinter --- library/CHARDEVICE.LCOM | Bin 12639 -> 12548 bytes library/UNIXCOMM.LCOM | Bin 8962 -> 8683 bytes lispusers/DATE | 531 ------------------ lispusers/PLAINTEXTSTREAM | 282 ---------- .../sources}/FILESETS.NOETHER | 0 {sources => obsolete/sources}/FILESETS.ORIG | 0 {sources => obsolete/sources}/FILESETS.PUP | 0 sources/BSP.LCOM | Bin 43131 -> 43003 bytes sources/COREIO.LCOM | Bin 16262 -> 16161 bytes sources/COURIER.LCOM | Bin 40624 -> 40663 bytes sources/FILESETS | 11 +- sources/JAPANESE | 102 ++-- sources/JAPANESE.LCOM | Bin 23585 -> 23479 bytes sources/LEAF.LCOM | Bin 58521 -> 58478 bytes sources/LOCALFILE.LCOM | Bin 85789 -> 85064 bytes sources/MOD44IO.LCOM | Bin 33062 -> 32756 bytes sources/NSFILING.LCOM | Bin 82109 -> 82048 bytes sources/SPP.LCOM | Bin 34490 -> 34377 bytes 18 files changed, 53 insertions(+), 873 deletions(-) delete mode 100644 lispusers/DATE delete mode 100644 lispusers/PLAINTEXTSTREAM rename {sources => obsolete/sources}/FILESETS.NOETHER (100%) rename {sources => obsolete/sources}/FILESETS.ORIG (100%) rename {sources => obsolete/sources}/FILESETS.PUP (100%) diff --git a/library/CHARDEVICE.LCOM b/library/CHARDEVICE.LCOM index 5c3655883841c55b4d3e41135b3dc839c0b31926..f82d363adf2496320ec1d52a06345120c0cadacb 100644 GIT binary patch delta 2134 zcmZuyU5pb|6t)Y?&%pk`_Gi04-MiDD?JVtVXZqi0VYZ#ZNST(IVF|jil%?oq3%f3B zgdkae;{zdtT%%7W5+eA3Cd3CZnyAkPffpsd=z}H_F>0cT8c@%fZrjPi%h&Urd(L;y zx%c$WcZXg*6bRM;jidrZUPg%IBcebAArnnzgcM7H?9BYph1q)TFquC_Si+pj>$^`sy6<>x z@pyKwx=^nk%NFNns`c#A+TnWbWR#C*pPpR`HyFKPb1j2(!Xll{i1ADmq!(*VX@=BJ zEYxRbW|!(G{TVWy+a+n?yga4kuouN3v#@nxU$IE6N<7cA>?nMZO_bDia}^Tv--VWO}Ep%9@hn zQCyb|xPa)bzYbzUtQye6r6iK=TiI3mJ|v*F9-WL+=QSJvJdV1kx@!}64@8U>Y@ z{T}N~*_ex$J8d@R!}r$R?|=ikwDB4q7IO~pSLS6{SlqM@*H3Qlf*<;Nmj?K4*D1iM z?hAl_b?*l(_n`k`59URC7XdHzz6F@was=>Q6E|O}s*n2%m@ZU^hG6L%@O z5N`(q^tNjUSlc;2&Guvd>3-bJ<8#w{{d>S#828h8w*=NzcLi|E0P39>!2GkkoBlDN zfb|K7~>~A9N+;D zx1I@VWoa*=KlgdT^S&nt__c}unHU`5dRAf#rIdrA$kSVP=ek5XiJ~uzj6=fZ5lp*j z;@=~|mguwtMT?}p&Gi6!-m!RocX(UzkB#A~XEf0AJmn2%UNV>lMQt}J~nh+VxMtO7pE+UZ?a2nPumj1rybhb!ZTfqlu% z0ABFf>5w~&1GQ{kx_P;K$z+7UW7{P02!RKv$&zs*wwVBb?Wl!DV?ZIL+g$Uwm$vkL^aS)}#K!J|) z4mijiJP!3`{>T~z{Jj&%o}UN-T3?~L$P?fhA4<@Bk;n#yh>^i^J8)%4}fM!K7aA=9} zikd7h%q6unk@E#rDWo-?2>h9q<<+xG3-e^<9O21@^L1LGh3a&Hn$tD=;vw`_tXcGM z#h9>k>%`&WQQa!hX`@I}2bBvV;dohV`^^=kbV17VWbVw$q2<-3#5_3*ZmSFPOAD_N z&oGrr@nrt=s}Q#HdcL4YkQpy>>`C9Ek7Hl@rU7StskAI|GZ;GQ#)jGrhZIVAsF6tI zp`$XGh{V^+X1ZSXy~wV19ggI$&cE;&{Pks9g4z-kcDHNlcn*BHt#$oF@06@cFd|Vh zDlv^pg(zy~fsoFUnIqJsmQhSu)YPjm6&Qe`hhI_rzAZ)Q#qDozbIRSEmCbH!n11#FJ3iL-kZ-PzmiEU^)w3CB>Y>cx28{B!of4R$m z>${Ev-ra@#(cK>aHn>4{XZHz^Cii>{cykZ#$1}Z%U-!-d_U%0cIJFn$Z}!#!yZsA* zYq4?msXq(Sbw64^KRU+d`ygMo-ggGj7eMy?_$YfXfNaelV7~^YKpGkevE@V$J2EoJ zUh0nnv(}H^LqdXug9ky9f&sP^MB5*O=qb22wRFpfw{j=Y%?GFqiuO3#>46PA)(FO_apQ3kY|5xG_qaMvRV!U zj12FGaqO5F0%lc2 zk1NrBc1x@`n!|1mc#2F&M1pq;rwvL*BJf7Gv|NTLo+ir@Nq4Aem8cymT+Mi@B1t6c zscBGiEww==vY_W%I+>8sTQxuJuW0wxl~c_Kocu3xg|dEb@qn z?ZBG~(b@7?FueJ`S!*84&?0teY_PHU9KtvilJ)wFfvdCdb?|!NQY8nzE$z;^oCTF` zzG^!i4R_6Ki(mpUZ3~C*l0~?i-t4dlAFxM~u?+ksYzkchr%DFPdMEiDbmq?_E^#Hb rxP=4m+Z1Y%aa{HGTLbbQ=~=*Q;Viya+c~00&DY=;Dc;S&N0a*xhGa0@ diff --git a/library/UNIXCOMM.LCOM b/library/UNIXCOMM.LCOM index 04eef1e1d7b836cb5891ff28979ce872584600bc..9f185a96b351a5aadc5a4af19a301fd149773c60 100644 GIT binary patch delta 1697 zcmZvcO>7%Q6vwl%Q#+fwvE#2KP11=`VVlUSo&E6c8U$?YalB%)HoKe9lp;ZDQ~@cC zL=Suj3_XB^I5f-&i4%uP6$lB13*y89E*vOD0ttcC69;-g9FPzv-g@j{d%28u-psyv z@Be=9U2oj0-Duv&3k};LHIG;UsiP9s%dJb-%CaP5gypKNR%Lwn{1e-_GGsTavQ|}$ z656|T^~%Bi10D3-i-<2ZwjBozUlc{LggVb$d$t3PBMwyM=t=Gaj^pWHlj~_-K&pmH zC2#=iIi5D?Trzr|O%7wD;}H;}3#KY-k~+Fq-TWZ4+rVqKx1Of7VI zK~_w(?b_!>p9FQ=Z#&j*u-hg`R^b0JldKG`x^*9PC2rgDtSukO7`&5lqokuoo$Me` z9Ig3H;y7j4+BLFWRhpfW=yFo)R!r1rd5@LDtP$2s_@4w; ztwwwww3Wk$SkzJ^FjHk`*f1k!20jj2Q(4d^2rwEm{73I3=Q2_x=)`nC=&RGe12-4= zPkT8W{<%b-nxE$Wq4LbD^v?W4w7AgXbZVW<3s52`KM0>rPSg#CUuim~)|K@Au--`J>4kJq1pPGx z(AE)f-=mk|{&o5a+)^^@%)wsf71;igX|k;__sG=k_{0Q9zss%Acjp9XgEakiE)O*q zX)bGaH4tXF%Gd-5!YX4Z={TE)F{rWBqU{#8;oku75W1B_y&D_A(@()0gw5G`u^K0DUjH^5`H=Ga4sE z!QMkym-;P)l`$OYa$%AFkj&6V;XG6Fqr&STEGmYTv5Ow89~R$+K?)%B-2r0#fi!r5 zRVc;H_dvZzFVF7*sPsW4()F^e_CbZQ#?X~UfIKGl)&lA>Vk;v^_lVU1vH_JFwhO?j z%8-RI4C9MA0HBU4^QWqYPU|m3EQhvdfkKj?1kA7V`d*WZuJ+9XP delta 1906 zcmZ`)O>7%Q6wcZvPMx@kV>?b_8cmIY92c9NwRgR1B&4-Hj#sSL?(U{d)F3sfBM3=p z1Qnu4$Ww};f;KKB&&@%T6-3rNEmfjAnL|*uIivO|;Ym9Cs z6#7r7+7scT4FI(|X1jxgQqjM~vWzw@Vym?pu`DE^M%#QQZ#9XoLmWXYp*2HWFMvl~ zvpTxEVQ+K@JOXcyn2NIJYSb-g2r)XUskW>h5{eL#3|o;P2&hpf7m$FdLk`OK#tHW`<-!*n0O#p*;aG@)2=EE?qp(p+SoG0RdKtK}@YyFo~hI z2nz?z!j1#|a}sU%9MpOTAOWPkJ5>PK0-BfI_pk_sd1nlGAPvGmo=pf#R#m;=wj6kg zOFX?cH5VvidVV4CCZGBr>2{v1+r%_f9s1Bx?cDJPQ-3jOy>*(n)&6k$W!SDx zXJI{}s+;O@)~*cM_P$Xj}?Bv zl(OiX41gwfiKCogxh&CYa+XHpBkV55&qo-$nW{TBy%|f>kK+ROE4?2-6aMaQ@Yd1T z*N2I!J2Sj`F7+UV;aUW*7JRZ6+^xH^GZ>_ostK;nc> zfVvOS36>n4@MWfxG$Ydg$)vlGDATE.;4 19668 - - previous date: "17-Feb-87 14:29:37" {SUMEX-AIM}DATE.;7) - - -(* Copyright (c) 1987 by Leland Stanford Junior University. All rights reserved.) - -(PRETTYCOMPRINT DATECOMS) - -(RPAQQ DATECOMS ((* Developed under support from NIH grant RR-00785.) - (* Written by Frank Gilmurray and Sami Shaio.) - (FNS DATEOBJ DATEOBJP DATE.DISPLAYFN DATE.IMAGEBOXFN CURRENT.DISPLAY.FONT DATE.PUTFN - DATE.GETFN DATE.BUTTONEVENTINFN DATES.TEMPLATE AMPM DATES.MENU.APPLY - DATES.MENU.WHENSELECTEDFN DATES.SET FINDDAY FINDHOUR FINDMONTH FINDTIME FINDYEAR NUMP - WHICHDATE) - (RECORDS DATEOBJ STREAM FONTCLASS))) - - - -(* Developed under support from NIH grant RR-00785.) - - - - -(* Written by Frank Gilmurray and Sami Shaio.) - -(DEFINEQ - -(DATEOBJ - (LAMBDA (TEMPLATE) (* fsg "23-Jul-86 09:53") - (* Create an instance of a date imageobj. - A dateobj is also defined as a record with a  - datestring field. *) - (LET* ((TEMPLATE.TYPE (OR TEMPLATE '(M D Y F))) - (DATEANDTIME (MKSTRING (DATE))) - (DISPLAYDATE (MKSTRING (DATES.TEMPLATE DATEANDTIME TEMPLATE.TYPE))) - (NEWOBJ (IMAGEOBJCREATE (create DATEOBJ - DATESTRING _ DATEANDTIME - DISPLAY.DATE _ DISPLAYDATE - TEMPLATE.DATE _ TEMPLATE.TYPE) - (IMAGEFNSCREATE (FUNCTION DATE.DISPLAYFN) - (FUNCTION DATE.IMAGEBOXFN) - (FUNCTION DATE.PUTFN) - (FUNCTION DATE.GETFN) - (FUNCTION NILL) - (FUNCTION DATE.BUTTONEVENTINFN) - (FUNCTION NILL) - (FUNCTION NILL) - (FUNCTION NILL) - (FUNCTION NILL) - (FUNCTION NILL) - (FUNCTION NILL) - (FUNCTION NILL))))) - (* By convention, every image object will have a type  - property associated with it that will facilitate  - imageobj mapping in a TEdit file.) - (IMAGEOBJPROP NEWOBJ 'TYPE - 'DATEOBJ) - NEWOBJ))) - -(DATEOBJP - (LAMBDA (IMOBJ) (* ss: "24-Jun-85 16:33") - - (* Tests an imageobj to see if it is a date imageobject. By convention, testing functions for an imageobject will  - be named (CONCAT "P")) - - - (AND IMOBJ (EQ (IMAGEOBJPROP IMOBJ 'TYPE) - 'DATEOBJ)))) - -(DATE.DISPLAYFN - (LAMBDA (OBJ STREAM STREAMTYPE HOSTSTREAM) (* fsg "17-Feb-87 09:28") - - (* * Display function for date imageobjs.) - - - (PRIN1 (fetch DISPLAY.DATE of (fetch OBJECTDATUM of OBJ)) - STREAM))) - -(DATE.IMAGEBOXFN - (LAMBDA (OBJ STREAM CURRENTX RIGHTMARGIN) (* fsg "15-Feb-87 14:05") - - (* * Return the ImageBox for the date string. The size is determined by the stream's current font.) - - - (DSPFONT (CURRENT.DISPLAY.FONT STREAM) - STREAM) - (create IMAGEBOX - XSIZE _(STRINGWIDTH (fetch DISPLAY.DATE of (fetch OBJECTDATUM of OBJ)) - STREAM) - YSIZE _(FONTPROP STREAM 'HEIGHT) - YDESC _(FONTPROP STREAM 'DESCENT) - XKERN _ 0))) - -(CURRENT.DISPLAY.FONT - (LAMBDA (STREAM) (* fsg "17-Feb-87 10:19") - - (* * Return the current font. This function is here instead of TMAX because the DATE code is also used in the  - LetterHead code.) - - - (LET ((CURRENT.FONT (fetch CLFONT of (with TEXTSTREAM - (TEXTSTREAM (CAR (fetch \WINDOW - of TEXTOBJ))) - CURRENTLOOKS)))) - (COND - ((TYPENAMEP CURRENT.FONT 'FONTDESCRIPTOR) - CURRENT.FONT) - ((TYPENAMEP CURRENT.FONT 'FONTCLASS) - (fetch DISPLAYFD of CURRENT.FONT)) - (T (SHOULDNT "Can't get current font")))))) - -(DATE.PUTFN - (LAMBDA (DATEOBJ STREAM) (* fsg " 4-Feb-87 09:40") - (PRIN2 (LIST 'Date - (fetch (DATEOBJ TEMPLATE.DATE) of (fetch OBJECTDATUM of DATEOBJ))) - STREAM))) - -(DATE.GETFN - (LAMBDA (STREAM) (* fsg " 4-Feb-87 09:42") - (OR (WINDOWPROP (PROCESSPROP (THIS.PROCESS) - 'WINDOW) - 'IMAGEOBJ.MENUW) - (AND (FGETD 'TSP.FMMENU) - (TSP.FMMENU (TEXTSTREAM (PROCESSPROP (THIS.PROCESS) - 'WINDOW))))) - (APPLY 'DATEOBJ - (CDR (READ STREAM))))) - -(DATE.BUTTONEVENTINFN - (LAMBDA (DATEOBJ WINDOWSTREAM SELECTION RELX RELY WINDOW HOSTSTREAM BUTTON) - (* fsg "26-Jan-87 10:06") - (AND (MOUSESTATE MIDDLE) - (LET ((DATE.MENU (create MENU - TITLE _ "Date Menu" - ITEMS _ '((Month% Day,% Year (DATES.TEMPLATE DATE - '(M D Y F)) - - "Insert current date as %"March 8, 1952%"") - (Month/Day/Year (DATES.TEMPLATE DATE '(M D Y A)) - "Insert current date as %"3/8/52%"") - (Day% Month,% Year (DATES.TEMPLATE DATE - '(D M Y F)) - - "Insert current date as %"8 March, 1952%"") - (Day/Month/Year (DATES.TEMPLATE DATE '(D M Y A)) - "Insert current date as %"8/3/52%"") - (Time (DATES.TEMPLATE DATE '(T F)) - "Insert current time as %"four thirty p.m.%"") - (Numbered% Time (DATES.TEMPLATE DATE '(T A)) - - "Insert current time as %"4:30 p.m.%"") - (Military% Time (DATES.TEMPLATE DATE '(T E)) - "Insert current time as %"16:30%"")) - WHENSELECTEDFN _(FUNCTION DATES.MENU.WHENSELECTEDFN)))) - (PUTMENUPROP DATE.MENU 'IMAGEOBJ - DATEOBJ) - (MENU DATE.MENU) - 'CHANGED)))) - -(DATES.TEMPLATE - (LAMBDA (DATE TEMPLATE) (* fsg "24-Jul-86 14:43") - - (* * comment) - - - (COND - (TEMPLATE (LET ((VERSION (if (EQUAL (LAST TEMPLATE) - '(A)) - then 'ABBREV - else (if (EQUAL (LAST TEMPLATE) - '(F)) - then 'FULL - else 'EURO))) - (FUNCLST '((D FINDDAY) - (M FINDMONTH) - (Y FINDYEAR)))) - (COND - ((EQ (CAR TEMPLATE) - T) - (FINDTIME DATE VERSION)) - (T (LET ((CH (if (EQ VERSION 'ABBREV) - then "/" - else " "))) - (CONCAT (APPLY (CADR (ASSOC (CAR TEMPLATE) - FUNCLST)) - (LIST DATE VERSION)) - CH - (APPLY (CADR (ASSOC (CADR TEMPLATE) - FUNCLST)) - (LIST DATE VERSION)) - (if (EQUAL CH " ") - then ", " - else CH) - (APPLY (CADR (ASSOC (CADDR TEMPLATE) - FUNCLST)) - (LIST DATE VERSION)))))))) - (DATE)))) - -(AMPM - (LAMBDA (HOUR) - (if (OR (LESSP (MKATOM HOUR) - 12) - (EQUAL (MKATOM HOUR) - 24)) - then "a.m." - else "p.m."))) - -(DATES.MENU.APPLY - (LAMBDA (ITEM MENU) (* fsg "31-Jul-86 10:18") - - (* This function serves the purpose of calculating the stream and the editing window from information stored on the - window containing the menu. It then applies the appropiate function for each ITEM in the menu*) - - - (SETQ ITEM (COND - ((ATOM ITEM) - ITEM) - (T (CAR ITEM)))) - (LET* ((DATE.RECORD (fetch OBJECTDATUM of (GETMENUPROP MENU 'IMAGEOBJ))) - (DATE (fetch DATESTRING of DATE.RECORD))) - (COND - ((fetch ITEMS of MENU) - (LET ((FUNCALL (CADR (ASSOC ITEM (fetch ITEMS of MENU))))) - (replace DISPLAY.DATE of DATE.RECORD with (EVAL FUNCALL)) - (replace TEMPLATE.DATE of DATE.RECORD with (CADAR (LAST FUNCALL))))))))) - -(DATES.MENU.WHENSELECTEDFN - (LAMBDA (ITEM MENU MB) (* fsg "28-Jul-86 14:57") - (COND - ((OR (EQ MB 'LEFT) - (EQ MB 'MIDDLE)) - (DATES.MENU.APPLY ITEM MENU))))) - -(DATES.SET - (LAMBDA (PROPERTY VALUE) - (WINDOWPROP (CREATEW) - PROPERTY VALUE) - VALUE)) - -(FINDDAY - (LAMBDA (OLDDATE VERSION) (* shw: " 1-Jul-85 11:28") - (MKATOM (if (NUMP (SUBSTRING OLDDATE 1 2)) - then (SUBSTRING OLDDATE 1 2) - else (SUBSTRING OLDDATE 2 2))))) - -(FINDHOUR - (LAMBDA (HOUR) (* ss: " 8-Feb-86 17:49") - (COND - ((LESSP (MKATOM HOUR) - 13) - (COND - ((LESSP (MKATOM HOUR) - 10) - (MKSTRING (CADR (UNPACK HOUR)))) - (T HOUR))) - (T (MKSTRING (SELECTQ (MKATOM HOUR) - (13 1) - (14 2) - (15 3) - (16 4) - (17 5) - (18 6) - (19 7) - (20 8) - (21 9) - (22 10) - (23 11) - (24 12) - NIL)))))) - -(FINDMONTH - (LAMBDA (OLDDATE VERSION) (* shw: " 1-Jul-85 11:38") - (PROG ((DATES '((Jan 1 January) - (Feb 2 February) - (Mar 3 March) - (Apr 4 April) - (May 5 May) - (Jun 6 June) - (Jul 7 July) - (Aug 8 August) - (Sep 9 September) - (Oct 10 October) - (Nov 11 November) - (Dec 12 December))) - (OUTPUT NIL)) - (if (EQ VERSION 'ABBREV) - then (SETQ OUTPUT (CAR (CDR (ASSOC (MKATOM (SUBSTRING OLDDATE 4 6)) - DATES)))) - else (SETQ OUTPUT (CAR (CDDR (ASSOC (MKATOM (SUBSTRING OLDDATE 4 6)) - DATES))))) - (RETURN OUTPUT)))) - -(FINDTIME - (LAMBDA (OLDDATE VERSION) (* shw: "24-Jul-85 15:39") - (LET ((HOUR (SUBSTRING OLDDATE 11 12)) - (MINUTES (SUBSTRING OLDDATE 14 15))) - (if (EQUAL VERSION 'ABBREV) - then (CONCAT (FINDHOUR HOUR) - ":" MINUTES " " (AMPM HOUR)) - else (if (EQUAL VERSION 'EURO) - then (SUBSTRING OLDDATE 11 15) - else (CONCAT (SELECTQ (if (LESSP (MKATOM MINUTES) - 46) - then (MKATOM (FINDHOUR HOUR)) - else (PLUS 1 (MKATOM (FINDHOUR HOUR)))) - (1 "one") - (2 "two") - (3 "three") - (4 "four") - (5 "five") - (6 "six") - (7 "seven") - (8 "eight") - (9 "nine") - (10 "ten") - (11 "eleven") - (12 "twelve") - NIL) - " " - (if (AND (GREATERP (MKATOM MINUTES) - 15) - (LESSP (MKATOM MINUTES) - 45)) - then "thirty" - else "o'clock") - " " - (if (AND (GREATERP (MKATOM MINUTES) - 44) - (EQUAL (FINDHOUR HOUR) - "11")) - then (if (EQUAL (AMPM HOUR) - "a.m.") - then "p.m." - else "a.m.") - else (AMPM HOUR)))))))) - -(FINDYEAR - (LAMBDA (OLDDATE VERSION) (* shw: " 1-Jul-85 11:31") - (if (EQ VERSION 'ABBREV) - then (MKATOM (SUBSTRING OLDDATE 8 9)) - else (MKATOM (CONCAT "19" (SUBSTRING OLDDATE 8 9)))))) - -(NUMP - (LAMBDA (N) (* edited: " 4-Apr-86 17:55") - (* changed) - (NOT (NULL (NUMBERP (MKATOM N)))))) - -(WHICHDATE - (LAMBDA (VAR1 VAR2 YEAR OLDDATE VERSION) (* edited " 1-Jan-00 00:00") - - (* * comment) - - - (PROG (DIVIDER) - (SETQ DIVIDER (if (EQ VERSION 'ABBREV) - then "/" - else " ")) - (RETURN (MKATOM (CONCAT (APPLY VAR1 (LIST OLDDATE VERSION)) - DIVIDER - (APPLY VAR2 (LIST OLDDATE VERSION)) - DIVIDER - (APPLY YEAR (LIST OLDDATE VERSION)))))))) -) -[DECLARE: EVAL@COMPILE - -(RECORD DATEOBJ (DATESTRING DISPLAY.DATE TEMPLATE.DATE)) - -(DATATYPE STREAM ( (* First 4 words are fixed for BIN, BOUT opcodes. - Length of whole datatype is multiple of 4, so  - quad-aligned) - (COFFSET WORD) (* Offset in CPPTR of next bin or bout) - (CBUFSIZE WORD) (* Offset past last byte in that buffer) - (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) - (NIL BITS 5) - (CBUFPTR POINTER) (* Pointer to current buffer) - (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...) - (USERVISIBLE FLAG) (* Listed by OPENP; NIL for terminal, dribble ...) - (ACCESSBITS BITS 3) (* What kind of access file is open for  - (read, write, append)) - (FULLFILENAME POINTER) (* Name by which file is known to user) - (DEVICE POINTER) (* FDEV of this guy) - (VALIDATION POINTER) (* A number somehow identifying file, used to  - determine if file has changed in our absence) - (EPAGE WORD) - (EOFFSET WORD) (* Page, byte offset of eof) - (* Following are device-specific fields) - (F1 POINTER) - (F2 POINTER) - (F3 POINTER) - (F4 POINTER) - (F5 POINTER) - (FW6 WORD) - (FW7 WORD) (* Following only filled in for open streams) - (BYTESIZE BYTE) - (BUFFS POINTER) - (CPAGE WORD) - (FW8 WORD) - (MAXBUFFERS WORD) - (CHARPOSITION WORD) (* Used by POSITION etc.) - (DIRTYBITS WORD) - (LINELENGTH WORD) - (EOLCONVENTION BITS 2) (* End-of-line convention) - (CBUFDIRTY FLAG) - (NIL BITS 5) - (OUTCHARFN POINTER) - (ENDOFSTREAMOP POINTER) (* For use of applications programs, not devices) - (OTHERPROPS POINTER) - (IMAGEOPS POINTER) (* Image operations vector) - (IMAGEDATA POINTER) (* Image instance variables--format depends on  - IMAGEOPS value) - (EXTRASTREAMOP POINTER) - (STRMBINFN POINTER) (* Either the BIN fn from the FDEV, or a trap) - (STRMBOUTFN POINTER) (* Either the BIN fn from the FDEV, or a trap) - (CBUFMAXSIZE WORD) - (FW9 WORD) - (F10 POINTER) (* the current character set for this stream. - gbn 4-2-85) - (CHARSET BYTE)) - (BLOCKRECORD STREAM ((NIL 2 WORD) - (UCODEFLAGS BYTE) - (NIL POINTER))) - (ACCESSFNS STREAM ((ACCESS \GETACCESS \SETACCESS) - (FULLNAME (OR (fetch (STREAM FULLFILENAME) of DATUM) - DATUM)) - (NAMEDP (AND (fetch (STREAM FULLFILENAME) of DATUM) - T)))) - (SYNONYM CBUFPTR (CPPTR)) - USERCLOSEABLE _ T USERVISIBLE _ T ACCESSBITS _ NoBits BUFFS _ NIL BYTESIZE _ 8 - CBUFPTR _ NIL MAXBUFFERS _(PROGN (DECLARE (GLOBALVARS - \STREAM.DEFAULT.MAXBUFFERS)) - \STREAM.DEFAULT.MAXBUFFERS) - CHARPOSITION _ 0 LINELENGTH _(PROGN (DECLARE (GLOBALVARS FILELINELENGTH)) - FILELINELENGTH) - OUTCHARFN _(FUNCTION \FILEOUTCHARFN) - ENDOFSTREAMOP _(FUNCTION \EOSERROR) - IMAGEOPS _ \NOIMAGEOPS EOLCONVENTION _(SELECTQ (SYSTEMTYPE) - (D CR.EOLC) - (VAX LF.EOLC) - (JERICHO CRLF.EOLC) - CR.EOLC) - STRMBINFN _(FUNCTION \STREAM.NOT.OPEN) - STRMBOUTFN _(FUNCTION \STREAM.NOT.OPEN)) - -(DATATYPE FONTCLASS ((PRETTYFONT# BYTE) - DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME)) -] -(/DECLAREDATATYPE 'STREAM - '(WORD WORD FLAG FLAG FLAG (BITS 5) - POINTER FLAG FLAG FLAG FLAG FLAG (BITS 3) - POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER POINTER POINTER - WORD WORD BYTE POINTER WORD WORD WORD WORD WORD WORD (BITS 2) - FLAG - (BITS 5) - POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD - POINTER BYTE) - '((STREAM 0 (BITS . 15)) - (STREAM 1 (BITS . 15)) - (STREAM 2 (FLAGBITS . 0)) - (STREAM 2 (FLAGBITS . 16)) - (STREAM 2 (FLAGBITS . 32)) - (STREAM 2 (BITS . 52)) - (STREAM 2 POINTER) - (STREAM 4 (FLAGBITS . 0)) - (STREAM 4 (FLAGBITS . 16)) - (STREAM 4 (FLAGBITS . 32)) - (STREAM 4 (FLAGBITS . 48)) - (STREAM 4 (FLAGBITS . 64)) - (STREAM 4 (BITS . 82)) - (STREAM 4 POINTER) - (STREAM 6 POINTER) - (STREAM 8 POINTER) - (STREAM 10 (BITS . 15)) - (STREAM 11 (BITS . 15)) - (STREAM 12 POINTER) - (STREAM 14 POINTER) - (STREAM 16 POINTER) - (STREAM 18 POINTER) - (STREAM 20 POINTER) - (STREAM 22 (BITS . 15)) - (STREAM 23 (BITS . 15)) - (STREAM 20 (BITS . 7)) - (STREAM 24 POINTER) - (STREAM 26 (BITS . 15)) - (STREAM 27 (BITS . 15)) - (STREAM 28 (BITS . 15)) - (STREAM 29 (BITS . 15)) - (STREAM 30 (BITS . 15)) - (STREAM 31 (BITS . 15)) - (STREAM 24 (BITS . 1)) - (STREAM 24 (FLAGBITS . 32)) - (STREAM 24 (BITS . 52)) - (STREAM 32 POINTER) - (STREAM 34 POINTER) - (STREAM 36 POINTER) - (STREAM 38 POINTER) - (STREAM 40 POINTER) - (STREAM 42 POINTER) - (STREAM 44 POINTER) - (STREAM 46 POINTER) - (STREAM 48 (BITS . 15)) - (STREAM 49 (BITS . 15)) - (STREAM 50 POINTER) - (STREAM 50 (BITS . 7))) - '52) -(/DECLAREDATATYPE 'FONTCLASS - '(BYTE POINTER POINTER POINTER POINTER POINTER) - '((FONTCLASS 0 (BITS . 7)) - (FONTCLASS 0 POINTER) - (FONTCLASS 2 POINTER) - (FONTCLASS 4 POINTER) - (FONTCLASS 6 POINTER) - (FONTCLASS 8 POINTER)) - '10) -(PUTPROPS DATE COPYRIGHT ("Leland Stanford Junior University" 1987)) -(DECLARE: DONTCOPY - (FILEMAP (NIL (850 12872 (DATEOBJ 862 . 2359) (DATEOBJP 2363 . 2736) (DATE.DISPLAYFN 2740 . 3015) ( -DATE.IMAGEBOXFN 3019 . 3575) (CURRENT.DISPLAY.FONT 3579 . 4284) (DATE.PUTFN 4288 . 4541) (DATE.GETFN -4545 . 4956) (DATE.BUTTONEVENTINFN 4960 . 6275) (DATES.TEMPLATE 6279 . 7439) (AMPM 7443 . 7615) ( -DATES.MENU.APPLY 7619 . 8538) (DATES.MENU.WHENSELECTEDFN 8542 . 8780) (DATES.SET 8784 . 8895) (FINDDAY - 8899 . 9154) (FINDHOUR 9158 . 9662) (FINDMONTH 9666 . 10427) (FINDTIME 10431 . 11846) (FINDYEAR 11850 - . 12124) (NUMP 12128 . 12368) (WHICHDATE 12372 . 12869))))) -STOP diff --git a/lispusers/PLAINTEXTSTREAM b/lispusers/PLAINTEXTSTREAM deleted file mode 100644 index 641ad364..00000000 --- a/lispusers/PLAINTEXTSTREAM +++ /dev/null @@ -1,282 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "15-Jan-98 09:49:00" {DSK}medley2.0>lispusers>PLAINTEXTSTREAM.;48 16624 - - changes to%: (FNS WRITEPLAINTEXTPAGE PLAINTEXTOUTCHARFN OPENPLAINTEXTSTREAM CLEARPLAINTEXTPAGE - MAKEPLAINTEXTPAGE) - (MACROS PLAINTEXTPARAM) - (VARS PLAINTEXTSTREAMCOMS) - (RECORDS PLAINTEXTIMAGEDATA) - - previous date%: "11-Jan-98 23:04:10" {DSK}medley2.0>lispusers>PLAINTEXTSTREAM.;29) - - -(* ; " -Copyright (c) 1998 by Xerox Corporation. All rights reserved. -") - -(PRETTYCOMPRINT PLAINTEXTSTREAMCOMS) - -(RPAQQ PLAINTEXTSTREAMCOMS - [(ADDVARS (DEFAULTFILETYPELIST (PLAINTEXT . TEXT) - (PT . TEXT))) - (FNS OPENPLAINTEXTSTREAM PLAINTEXTOUTCHARFN PLAINTEXT.TEDIT PLAINTEXT.TEXT) - (FNS WRITEPLAINTEXTPAGE) - (MACROS PLAINTEXTPARAM) - (RECORDS PLAINTEXTIMAGEDATA) - [ADDVARS [PRINTFILETYPES (PLAINTEXT (EXTENSION (PT PLAINTEXT] - (IMAGESTREAMTYPES (PLAINTEXT (OPENSTREAM OPENPLAINTEXTSTREAM) - (FONTCREATE \CREATEDISPLAYFONT) - (FONTSAVAILABLE \SEARCHDISPLAYFONTFILES) - (CREATECHARSET \CREATECHARSET.DISPLAY] - (DECLARE%: EVAL@COMPILE DONTCOPY (P [OR (RECLOOK 'STREAM) - (EVAL (SYSRECLOOK1 'STREAM] - (OR (RECLOOK 'IMAGEOPS) - (EVAL (SYSRECLOOK1 'IMAGEOPS]) - -(ADDTOVAR DEFAULTFILETYPELIST (PLAINTEXT . TEXT) - (PT . TEXT)) -(DEFINEQ - -(OPENPLAINTEXTSTREAM - [LAMBDA (FILE OPTIONS) (* ; "Edited 15-Jan-98 00:04 by rmk:") - - (* ;; "Assert that scale is one, so that display fonts etc. can be used.") - - (LET [(STREAM (OPENSTREAM FILE 'OUTPUT NIL '((SEQUENTIAL T] - (REPLACE (STREAM OUTCHARFN) OF STREAM WITH (FUNCTION PLAINTEXTOUTCHARFN)) - [REPLACE (STREAM IMAGEDATA) OF STREAM - WITH (CREATE PLAINTEXTIMAGEDATA - PTPAGE _ (CL:MAKE-ARRAY (ADD1 (TIMES 72 11)) - :INITIAL-ELEMENT NIL) - PTXPOSITION _ 0 - PTYPOSITION _ (TIMES 72 11) - PTRIGHTMARGIN _ (FIX (TIMES 8.5 72)) - PTLEFTMARGIN _ 0 - PTCLIPPINGREGION _ (CREATE REGION - LEFT _ 0 - BOTTOM _ 0 - WIDTH _ (FIX (TIMES 8.5 72)) - HEIGHT _ (TIMES 72 11] - [REPLACE (STREAM IMAGEOPS) OF STREAM - WITH (CREATE IMAGEOPS USING (FETCH (STREAM IMAGEOPS) OF STREAM) - IMAGETYPE _ 'PLAINTEXT IMFONT _ - [FUNCTION (LAMBDA (STREAM FONT) - (CL:WHEN FONT - [PLAINTEXTPARAM - PTLINEFEED - (IMINUS (FONTPROP FONT 'HEIGHT]) - (PLAINTEXTPARAM PTFONT FONT] - IMCLIPPINGREGION _ - [FUNCTION (LAMBDA (STREAM REGION) - (CL:WHEN (AND REGION - (NOT (TYPE? REGION - REGION))) - (\ILLEGAL.ARG REGION)) - (PLAINTEXTPARAM PTCLIPPINGREGION REGION] - IMXPOSITION _ [FUNCTION (LAMBDA (STREAM POS) - (PLAINTEXTPARAM PTXPOSITION - POS T] - IMYPOSITION _ [FUNCTION (LAMBDA (STREAM POS) - (PLAINTEXTPARAM PTYPOSITION - POS T] - IMMOVETO _ [FUNCTION (LAMBDA (STREAM X Y) - (PLAINTEXTPARAM PTXPOSITION X - T) - (PLAINTEXTPARAM PTYPOSITION Y - T] - IMLEFTMARGIN _ [FUNCTION (LAMBDA (STREAM M) - (PLAINTEXTPARAM - PTLEFTMARGIN M T] - IMRIGHTMARGIN _ [FUNCTION (LAMBDA (STREAM M) - (PLAINTEXTPARAM - PTRIGHTMARGIN M T] - IMLINEFEED _ [FUNCTION (LAMBDA (STREAM DY) - (PLAINTEXTPARAM PTLINEFEED - DY T] - IMSPACEFACTOR _ [FUNCTION (LAMBDA NIL 1] - IMFONTCREATE _ 'DISPLAY IMSTRINGWIDTH _ - [FUNCTION (LAMBDA (STREAM STR RDTBL) - (STRINGWIDTH STR - (FETCH PTFONT - OF (FETCH (STREAM - IMAGEDATA) - OF STREAM)) - RDTBL RDTBL] - IMCHARWIDTH _ [FUNCTION (LAMBDA (STREAM CHARCODE) - (CHARWIDTH - CHARCODE - (FETCH PTFONT - OF - (FETCH (STREAM - IMAGEDATA) - OF STREAM] - IMCLOSEFN _ (FUNCTION WRITEPLAINTEXTPAGE) - IMCHARSET _ [FUNCTION (LAMBDA (STREAM CHARSET) - - (* ;; "If we had another illegal character set value, then we could simply fix it so that the character set didn't match anything, which would cause the character set shift to be put out on the next character") - - (COND - ((\IOMODEP STREAM - 'OUTPUT T) - (\BOUT STREAM - NSCHARSETSHIFT) - (COND - ((EQ CHARSET T) - (\BOUT STREAM - NSCHARSETSHIFT - ) - (\BOUT STREAM 0)) - (T (\BOUT STREAM - CHARSET] - IMDRAWPOLYGON _ (FUNCTION NILL) - IMDRAWPOINT _ (FUNCTION NILL) - IMSCALE _ (FUNCTION (LAMBDA NIL 1] - (DSPFONT '(GACHA 10) - STREAM) - STREAM]) - -(PLAINTEXTOUTCHARFN - [LAMBDA (STREAM CHARCODE) (* ; "Edited 15-Jan-98 00:06 by rmk:") - - (* ;; "Put character data in PAGE entry indexed by current yposition") - - (LET ((IMDATA (FETCH IMAGEDATA OF STREAM))) - (SELCHARQ CHARCODE - (CR - (* ;; "Set parameters but don't output--that means we can do lots of moving around, up and down, and still come out OK.") - - (REPLACE PTXPOSITION OF IMDATA WITH 0) - (ADD (FETCH PTYPOSITION OF IMDATA) - (FETCH PTLINEFEED OF IMDATA))) - (FORM (WRITEPLAINTEXTPAGE STREAM) - (BOUT STREAM (CHARCODE FORM)) - (REPLACE PTXPOSITION OF IMDATA WITH 0) - (REPLACE PTYPOSITION OF IMDATA WITH (TIMES 72 11))) - (LF (ADD (FETCH PTYPOSITION OF IMDATA) - (FETCH PTLINEFEED OF IMDATA))) - (CL:PUSH [LIST (FETCH PTXPOSITION OF IMDATA) - CHARCODE - (ADD (FETCH PTXPOSITION OF IMDATA) - (CHARWIDTH CHARCODE (FETCH PTFONT OF IMDATA] - (CL:SVREF (FETCH PTPAGE OF IMDATA) - (FETCH PTYPOSITION OF IMDATA]) - -(PLAINTEXT.TEDIT - [LAMBDA (FILE PTFILE) (* ; "Edited 8-Jan-98 06:17 by rmk:") - (* ; "Edited 18-Sep-91 18:16 by jds") - - (* ;; "Make a plaintext file from a TEdit document. If FILE is a string, make it into a symbol for the file-name. If it's a STREAM, use that stream.") - - [COND - ((STRINGP FILE) - (SETQ FILE (MKATOM FILE] - (SETQ FILE (OPENTEXTSTREAM FILE)) - (TEDIT.FORMAT.HARDCOPY FILE PTFILE T NIL NIL NIL 'PLAINTEXT) - PTFILE]) - -(PLAINTEXT.TEXT - [LAMBDA (FILE PTFILE FONTS HEADING TABS) (* ; "Edited 8-Jan-98 06:20 by rmk:") - - (* ;; -"The effect of this should be to throw away font change characters and coerce characters to ISO8859") - - (TEXTTOIMAGEFILE FILE PTFILE 'PLAINTEXT FONTS HEADING TABS]) -) -(DEFINEQ - -(WRITEPLAINTEXTPAGE - [LAMBDA (STREAM) (* ; "Edited 15-Jan-98 09:48 by rmk:") - (LET [(PAGE (FETCH PTPAGE OF (FETCH IMAGEDATA OF STREAM] - - (* ;; - "Have to run through y-positions indexed backwards, since have to print higher positions first.") - - (FOR YPOS LINE LASTYPOS DIFF (DLF _ (FONTPROP DEFAULTFONT 'HEIGHT)) - (DSP _ (CHARWIDTH (CHARCODE SPACE) - DEFAULTFONT)) FROM (SUB1 (CL:ARRAY-DIMENSION PAGE 0)) TO 0 - BY -1 FIRST (SETQ LASTYPOS YPOS) WHEN (SETQ LINE (CL:SVREF PAGE YPOS)) - DO (SETQ DIFF (- LASTYPOS YPOS)) - (CL:WHEN (IGREATERP DIFF DLF) (* ; "Distance is more than a line") - - (* ;; - "Start at 2 because one was already put out at the end of the previous line") - - (FOR I FROM 2 TO (IQUOTIENT DIFF DLF) - DO (BOUT STREAM (CHARCODE CR)))) - (SORT LINE T) (* ; "To print from left to right") - (FOR C (LASTX _ 0) IN LINE - DO (SETQ DIFF (- (POP C) - LASTX)) - (CL:WHEN (IGREATERP DIFF DSP) (* ; "Distance is more than a space") - (FOR I FROM 1 TO (IQUOTIENT DIFF DLF) - DO (BOUT STREAM (CHARCODE SPACE)))) - [IF (ILEQ (CAR C) - 127) - THEN (BOUT STREAM (CAR C)) - ELSE - - (* ;; "Should coerce to ISO8859. If get something below 256, use it. Otherwise, try to print charactername") - - (LET (STRING) - (SETQ STRING (SELCHARQ (CAR C) - (phi "phi") - (MEMBEROF "memb") - (UC-SIGMA "Sigma") - (46,123 "Pi") - (357,147 "o") - NIL)) - (IF STRING - THEN (BOUT STREAM (CHARCODE \)) - (FOR I C FROM 1 - WHILE (SETQ C (NTHCHARCODE STRING I)) - DO (BOUT STREAM C)) - (BOUT STREAM (CHARCODE \)) - ELSE (BOUT STREAM (CHARCODE ~] - (SETQ LASTX (CADR C))) - (\FILEOUTCHARFN STREAM (CHARCODE CR)) - (SETQ LASTYPOS YPOS) - - (* ;; "Now clear the entry") - - (CL:SETF (CL:SVREF PAGE YPOS) - NIL]) -) -(DECLARE%: EVAL@COMPILE - -(PUTPROPS PLAINTEXTPARAM MACRO - [(PNAME PVAL NUMBERPFLAG) - (PROG1 (FETCH PNAME OF (FETCH (STREAM IMAGEDATA) OF STREAM)) - [LET ((PV PVAL)) - (CL:WHEN PV - (REPLACE PNAME OF (FETCH (STREAM IMAGEDATA) OF STREAM) - WITH (COND - ('NUMBERPFLAG (OR (NUMBERP PV) - (\ILLEGAL.ARG PV))) - (T PV))))])]) -) -(DECLARE%: EVAL@COMPILE - -(RECORD PLAINTEXTIMAGEDATA (PTPAGE PTXPOSITION PTYPOSITION PTFONT PTLINEFEED PTRIGHTMARGIN - PTLEFTMARGIN PTCLIPPINGREGION)) -) - -(ADDTOVAR PRINTFILETYPES (PLAINTEXT (EXTENSION (PT PLAINTEXT)))) - -(ADDTOVAR IMAGESTREAMTYPES (PLAINTEXT (OPENSTREAM OPENPLAINTEXTSTREAM) - (FONTCREATE \CREATEDISPLAYFONT) - (FONTSAVAILABLE \SEARCHDISPLAYFONTFILES) - (CREATECHARSET \CREATECHARSET.DISPLAY))) -(DECLARE%: EVAL@COMPILE DONTCOPY - -[OR (RECLOOK 'STREAM) - (EVAL (SYSRECLOOK1 'STREAM] - -[OR (RECLOOK 'IMAGEOPS) - (EVAL (SYSRECLOOK1 'IMAGEOPS] -) -(PUTPROPS PLAINTEXTSTREAM COPYRIGHT ("Xerox Corporation" 1998)) -(DECLARE%: DONTCOPY - (FILEMAP (NIL (1746 11976 (OPENPLAINTEXTSTREAM 1756 . 9644) (PLAINTEXTOUTCHARFN 9646 . 11087) ( -PLAINTEXT.TEDIT 11089 . 11661) (PLAINTEXT.TEXT 11663 . 11974)) (11977 15294 (WRITEPLAINTEXTPAGE 11987 - . 15292))))) -STOP diff --git a/sources/FILESETS.NOETHER b/obsolete/sources/FILESETS.NOETHER similarity index 100% rename from sources/FILESETS.NOETHER rename to obsolete/sources/FILESETS.NOETHER diff --git a/sources/FILESETS.ORIG b/obsolete/sources/FILESETS.ORIG similarity index 100% rename from sources/FILESETS.ORIG rename to obsolete/sources/FILESETS.ORIG diff --git a/sources/FILESETS.PUP b/obsolete/sources/FILESETS.PUP similarity index 100% rename from sources/FILESETS.PUP rename to obsolete/sources/FILESETS.PUP diff --git a/sources/BSP.LCOM b/sources/BSP.LCOM index c433bfb3323a94a65a73113604bd9a1e392917ca..5d48458eed888c38827647148406f9b5e7736d4a 100644 GIT binary patch delta 3305 zcmaJ@eQXrR74O-`*cS%~_zOGO<1^s1jhFr2y~D=dyW6wZ-rGIz-T8x_NsVn1gRwC- zgajIrstp7eN;-|ws8!pbRt2e51D7amq_j=iL{$|5QdIF*BAQ4|1S&OZL#0Gj`sU_t zZ7YcT<7wXKym|YZ-`p413ck2naIUA(>yH|y9(HsssYj5HQ`+pY`8J;AImGcnUJCN+ z^ZTq}z8QS-GGBoB1l5Q3jLjT4IMpfM^jXihg0WpI+}S~zLg77{sS zg)WHF;7Ws_Al-3n2l1+a>`+oOEGD-t*#q&CjMDK`GNdK+s4)~rJO>9bpf3jYi92>! zPb3g0uvjS`a=d<-XHh6Y4uNEjLyn$IITn(j(VSI+g88M$xl2KCmrE5Sj>Ug3u7Z)} zGDJmjmy%mughS*u5_!p8vQj=)2#5$~JD@vAPy+5!c4Gxe$fpTh0Hq)p39LvLe5E4h zEAfz%_41;Euk9;;1olhQ=HR0xU^;;nI;ZgHcu`?uIMJWdQ+jeZt~VYBD6#jlawdsAGp)dl4~!ROeG3nK4(ZR9wNmx9 zvQI(%$%A{g5HE#l7LiQ;V+SLu*B?hL(%?SfEo*)Z@o%pgSe=W<{ktnO(%J$KnALUu zY}L&8x@`rZKfj&_`RDapJ>JZ%^}9$&v^)Uv>GE=rFO$lisYjPz3tkn!6xJ zYHL6qt^Ew-^uv>-Fcd(nZ^VmlJRE~^%%(9??)!DW1=&~M1ahwaU64UkPfs?2eq99s zb&)9WxvvTXYG?>TXu9E_AbWiZP56#)V6E4mM-iRmP2bnQVoNq&+3fWP@_`7xc@D1t zOuC}U(akTf^ZJ+VOTNv2H@DY%EyK)?52DH4LS)8ZL!QSo))vu&7q%J^D4UMJCA9R2 zK464(s42*Bzab|I79^0%?<#=kbhmEljuB=Y-O^%^Y3jJ432lVJCcqoemJbN`XbwOo zGu`w8`AkJEF*<>3&DHoo%PU~2Yi*<^z4aAOFTUHlwQ;2DPlVOZUn)p+6_eFpi&u|N z6)s*JpDJ2>weVY)3X5^)w)6Prw#}aX_=7e9_q2`T%Wa@#K4?1$OsJwktxtD>rIN{H zSx1FyMcF&YdMc1Y*tWu25~&=Ea!_Q*v5>;T5ORzti$GVowZy`};8a>T%TWU1!X=fH z@yFY@?SLx-Ve}&*CE#+C0*suuDyqALdFQPX?q%zmfQ9k~k#LBq15q+?fsrCC0|fpa zThYodZ3HBmOOpXNSz?t{cXL_6SJ|4dyaXg!UP_Q$Hj-grG?!m;b1tjNK%Zk=%L&PC zL=pq}eI;l&*Mj826iI@69tr3uk%T8Sh9r*9FU5d@>{Jq71SCQ%!ITMzG-bISm5_G35a8v= z^#(kcMLlCDdvqrRy&-{DTrYHPSfpDXkg>8`{42f|U*^|muJgs7hX|j*=zNXYa9^`G zb6XGyqxhsZDDrPe?HhqV*?es&x1e`hlF6On1-yNCEsg($JO=5dN*z@jf*UeBm5Ze0 zr|J;3MFMwVAxQYGfpQ!RwovP_;G-pZM!+|N7a`*ZJBF$6&W=t{x%OPqM0@l;JzZ}9 z(NdvQN8g%!Rrv5B!@>=N8}M5lb#6@Nla4*4zuwN%Aph3c4D!oPd+o9`z(WMz36|s8 zuBX7e*p;Sz#kF}*-_hEsx+-)O)Tcs(?k|P506$+3y#&;fnbo^IG~~7D@4@-AU6oWl z+uaZ9jc)p2;If`UaxnSc!#>{gb70{-KIsS8Zu|oZRQ5XAdYP%-QgW0deJ|4b51GC9 znbf?w_dec#n+NaXJs!JR;PvB|hx_PGuUl^{J6Ptsb`3fBFZ(yqgJ=HY3=l(oYGZB^ z?E`;YmVm1UUjp^gph*wn8JZ*q*+2XYEx$PYo8{48j#Ol>?)rp;yq=z+AuS`fV8Ihu zRbh5_4J~Bteut2I`REC%zc@Mq&uiwhiJ<~&=zlCu0?zNdkkzrZ|299s~e|Bi@XfdBvi delta 3520 zcmaJDYiv{3c{a~L3=9$o&m2quCnV;+@3nc}IMsAHbgaPWiQI^s3x>Q_teBzXvI+XYts6ooz`sysbkvcrhUi9_c|FBmi6g; z@5lMh_ucz9z4zbtp6>JqqH$e|n3`&79mtQQwp6y*#xWd=SSiek@PF~3QR18bk0*x3 z5b*qH?`U?QaHyCY&JLnE*~7)*+(2%8_{iEY%Cx7FaU*V_TpszOXyI0z9*jDk$fN}C1}A*>2j6nXc^E7c?8 z9;+5aM#eWo^(7(Xas^p%1O>shFF@24R|3bmM}~7``4Eesc0HPjcv*6fk}J!LjHAZ0 z5=w(G;u*GlC?QT}9ZMYOl)0SXM#Ax~BM#h?&Y^ddf^tbya8?STW7DUlcBXcuwX|mK zOloV6Ay$+>jmq#4ldj=E&f22*0!R#r$Zr&onH?(@@?%*);<-?nvac|j&F#;lVqtU~ zjTN&4xqZ3ppdao~#Hraqj}JdR`(A@DprBMd95%HST#L~gH#(Yqfo7k5x@N#L!xvy# z5z4(7&zn0iozU^b+<${=v33JR&(;1J&=bDB6#cue(JSzH{=BaP^?UPrW)U6eHT+Kh zV!Ls^*8^n#fu(H01fBt*jM1vvz+5esu@%(7LW}g+-YTc)5nw zq4mTg8jL0K07#2Qfda1qp0kTUZ)akfp_%bW(9{gI8#Hwd@$hEBfsX&R4z;-gkxtcw zMuKOepce3$5b|Q1xiS>{hK7n_K@?FJ$$b=5CtR#pWfLX}JWX_gdCaQq6|f zJqPfW4eOeo*!~L=`m2|`Bim<^)AgCN28XBJxiC09{mzf3J$-3f(>1)HwE^F0tHpuV zCp`iDjn>v#LpN)gYlB1hdh3}oWhpMSEt*8-?Kj#iPf1cxuiB*rouQ>bw(VqWB1IGt z-627(M>8xSFes8RA}SmO230hIq##I!esIREL`qp1y&_yy2I`?k$|I4Vin0GtkcSJehQ_3Rmc3+bwQh3X`63;t(qb zI+iYreh&ilXO3i|nh?1!D4m(no2(RPMro7qQw?hu;ddQ0o2A z{@Ko?!b9N;pi#GJC*_T7+6L&QO%SRsRNIM>+s!eUjS}#dxpmK_V#f=HFYyZpHUA3 z`d^g;$hNPAz0uqL3QRNmZpU^H6%nIXfr)l4rs%xb4nTLu=+eWdV!b3WwV2Ro__ci zuqU#8UP^dpf079Jhh8h=_{Pxh06lxKm!j7W)!TE2+leRR&>^aF?T}Qia()X?g+d5m zzVI=?fg%kb+r^&(Ix){PLOsvGI6+pHXM?XA37Cf zM@I{zVMN|!&0{x+{2w0wIgRO?hpz$p=n?vPgMWC0I4d4)pxjeOxg`}-@S)?H3KC1V zk8Y`f>=%9M7BTq2Gy4D<&k}g~*&M*e;|BnqIGzXi&*Oyt=!wq*yn5nYfG?eF1o+0u zjR4<2`QD7O7yQ<9Jec%+x%|k#dy0ts_LN9SU)k#M!IzJMo` zbI-@`&ebb7FTX!IC`uEKOR@n;mq-p$syX7HogYC8Qb9$dDjrqL56&Myg@)Olv1`vB zMR-)RQZRq^wF|Gma<~GsuY#DGIN`dm+fbI}6jV;npQ}77fUbpx@QWab6yopIi_)+d z-i~*1y;?t8)3j=L(5Z&gkBJh7oD-02$q!Bqb5r_N!;j2zsS!n<_ZmOuo)?-5`$P#; zRfCkAVrHvNZ*_^1YC+Zy2(Q-hCj5*$6$L3b&ozmj*(tV;T^w2SJjpmL0 ztuG{2Dt=v+T^UcNL*H(GiU(XQhr_&6D$_#A}^QdpVbYZn1T)<&(Zw ztJ4GBR9Osv+Ru>!APdUOC7sQZVv)5QV;i!8I{{d?fxk4&G+<KiF&!5Y`^CsM$~^evt%$9{@ra%AW5`r}M-w6ags;yR1@9?mF1Bm&w&n?B8rOrbIfa{|8V5>YyX!_ z-hzB2|AKFrygP6y8mXRY z6Y|6(fs>U3;-#l+_k#`A0CpwV7)*1=AUl~3ilh`?R2Je1mY!MbK~(?0+LUs=DHdxO z-v;jH7H@aD8F}g1mWaK&g_ZFdhSj<`dQqPd#=;F9gyip;m$<V&LPj@ihD@)cYbN+^?kSI)1f7vmdozx=KMDkW delta 1656 zcmZvcU1%It6vs39B40y^$u{4~$+k^5X?C+SJ9qXYDw*uw-7KA*+0IUyO7}tA#CDsg zX=!b=Xf$9EE0X3u2^DRjSVRizSS3geMIQu}KJ-lyMCg-(71W13sORn^P0V&5X7+#Y zIrrRi&hO0CS1&FuPk4RFv`*s|)ohvoFR1?9%)DO?$`VLwObW$F@bc`T#n9l6JrX0) zm_)pA?99yZ7oM9h%*{+g!_30`T;X`(?A%NHVvu)Fjhhxt(8K9Cg~IdTO-|}MY!4F% z1iUc)%vtpRfA~@eS@I4x_?!;mz95L~-^xqXqHj=i-l^)~`bKr3q?xDY#m7V+fkfJ( zaoe<>8sui|y_$Pyb-Gq|t>&Yx&KI@I+*7a1Hi6hezs0D(t7FCoAr+iQ|#AzNf=^14c`ks_A_Z`>kYfAPu*<_vSxLNNsXh5 z=nI8Z$k|xi49H;u{8T+{P@Nhndje!N40(4uV3>Bm%u<70YV2y_cIKoVpU|wN^J!y5 zaBu&h>2sd4=-)_2?0441KQS5S_g(M0HqP74D?GctmT}ieh_yHiEfbZvcE{t^j%9bR zZspS47TyxsHftc!P*G9a{6RgvRkc(Uz8;(Yssex4io$nmW7GBg|4LD~$-Zg3$j&J} z&V2ila3HK=v$1S}9JRH0oaS9hfo=w;rIVcy`*%mLNp3S4lR^YqQ4 z=j(m@UC)pEZlgQ}DOcWtJ1EchUnoiE?|zXtzIxA_u3p~b<9c=P6Ruw0+bz@}-!frl zmxl!h-f-7f2V`#d+x{h2pYi>{_4Lr)l4inat8?(clYH&1VHuydhkNk($67AR3RrTqRMYy2GausSIB=gg%JfxR%4*k7Pl`2HaO8LWK2(yHA8RNhFBRj?V*; z;+*>3ne7d%gsHh5(*t;l$sV7DZIt7ZXKp4EkRo`SZSf_wln1*WZg&nxzODTaQ7f)$ diff --git a/sources/COURIER.LCOM b/sources/COURIER.LCOM index 1bf7fd81480a8b4acd55e1f82507085015a07725..af9bad83af5348c1dade55e1eea8b5ce29e4c6e5 100644 GIT binary patch delta 1552 zcmY*ZYfPJE6sF};_lXJ_Y_Mr~DbBS(zqS3^LJKJ??blMNZD~Ks#wAOEq78)tg(z%D zhFrJB055|@Tg31iB)|R)0sx-)?k-oBSbTTc9}<=;c_g@yTGfV(ny%gnPQ00uiIx zRqe6!9=1d!he|rAG_X-hZ%}IuT(Oiib_F(TF@a|~LcykBcc^!tfz+2*J1SX=NieZq z0s4J{1fdsewZlQ;xz7_Z=EZQYHC}L=a zs32Q&OwMdH>*GCMyUUqJ43=Vs-WC;rPoCH(Vq$&b<026E5?4XcuaoZp-b^_PSS1+( z!{-to+7&y3V&G=)?}bBp>hs9G_&^xASX$ax5}4|$wDhBlpMbcUxrDjW(jJNR?*0Wm z8?z53f_UrU74VFW=Y9y{yzeoQn32&pb;WdI|Euc(^)flej>r!IuF5|K_sjX`krE2W z)2EXY67D;=BLRMIBo1B?h3T!rEKv=WC~{LZ*Hxpff5mAz)hH@NleAw^O5aoDidyM! zibYnbBD}}r@(`{_L%eP`Yw-$)-8|uRI#R#!p#+b~43t_&ud;;$jEvK3h}FXT2v=N0 z)+fek^`xA)*`4g>FbSvS$a;==3ai6LIL(&CCPCnx0?feb1cM42FuOqI)SIf3+o+({ z$JJf9A8JlXaJwCLC-2~$Hlc!^Jh1n{wO&}KOJH4Yp1ywIS_&hBE>-kdrFIXqd7-U! zarm(n>vSSr~E;{&gp*zd+u$iuK> zmrRGzQ(`VdVY8H?&yZ~i4h0pXz|olfBpk{fPr`$xG6IN|ZdMK_17BCA+gyMTJU4(j z>y6?kG) zy^FUxH(3w(-((A5V5&vT5c+N69{Tf?6^PtuCN)zdXoD0Tex(6G*R%lm(lqvdH;yCo zIkfXMKJ<6YS@im8j7^`Z1?;HXMF(e`pnWof8H#7|Ax+MrekYDc&S1{>&olt$&G`X` z=Z*mWIEOxt`9{Fk=JNn=%p+rnBA$!x1ze6|=F|l@V8g>UTGf;>5AO7{u&;S4c delta 1480 zcmYk5ZA@Eb6vt^{uqoHDLj*Eq1&VD3A;W zMuG#P65PW(6mWz^f{P?bJY{3+hu=Bpf6hJU zxqZ(4Wm9;4Q#fvUixQh{4%W!A2A(w`kwPUct8bHPHApVksS0(BOoYUu#!zc}u*L5~ zp*AE!eI}2+zo;b`Zf^{A`isM%?#@PkxY+2blq26M2t*YUf(Izs*pmaV;G%G zDMAgTPfM;31))v3-`C>5P=Mr0siC`x6w)*;LcaPgm?L_o%2hf=p-!n0Nhqur_yiPQ z7SsUi1o;`tixTSTSTDeNoh_1cgdi_X{moe?!VNlq#w!M zNc)RauV+-ngGtEThRW#86W@VZS$d6BE$9CEq;^#-A;ONN3MkI|0V*Hmtq>_vFq*e= zC@$`B>5(}2eHuTwAs8r4B>p!q>>FVdi5^_p5CpJWdLr5Qt$euoL99}P`=wUFGTxFF z3B>rZRFZUlCt3D|?>x??BeYzNSdMdXh|y?~$L*#~9=_VmLMTVIPya%mGZ;Zq%JF@= z05(G@(;~Bp^&+KAfjm6yNI7B(mFP5Uu{r6}l@2>?GVlh(s5R(Gk5~({!vflKjSW1{ zI(fJqvlB5YH93IM1+KF2z?EwbCdguLKAEOq-~_Or4x5v8uucna1qmAOABJ|ic-rM= zo%s5xW67k>RmmHz2F{FcpV~^K#E8+V@v2PqDs}LV&mV>Cq7RHj>`|lDyE@AJhVKE(d_`#n=~r48MfU z5LaRka1E1O%7h=-GeKVBTy`qHGhqNvH0i|~`gA-#X~kof47@jK#-H2Muye`;*~RKt z@Y<9Uyv?Qzd~~`TytC6)xICPOzn^wPlr<9&QV72>n1PpP>>&IzQwJ=Ytp|QQdlr~H zN5+Te8h}5~odiCPDfRP#ObWRxc@t}X_TlWu68KU0-aHx2ERaD%3)#T6g&g3{0_muZ zSbzhOEZ|~<1MWrAV|+QmVS&d*i;`4I%()E}CCKS{-FC*nnc#bZ%(=zDQA)1WDiDBy JQBIqK`X6FHz@z{G diff --git a/sources/FILESETS b/sources/FILESETS index 4ff9a8e4..1810132b 100644 --- a/sources/FILESETS +++ b/sources/FILESETS @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "17-Oct-2021 16:06:59"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILESETS.;17 6482 +(FILECREATED "17-Oct-2021 13:52:47"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILESETS.;15 6457 changes to%: (VARS EXPORTFILES) - previous date%: "17-Oct-2021 13:52:47" -{DSK}kaplan>Local>medley3.5>git-medley>sources>FILESETS.;16) + previous date%: "17-Oct-2021 12:43:39" +{DSK}kaplan>Local>medley3.5>git-medley>sources>FILESETS.;14) (* ; " @@ -72,8 +72,7 @@ Copyright (c) 1981-1990, 1998, 2021 by Xerox Corporation. (MODARITH LLPARAMS LLCODE AERROR AOFD APRINT ATERM LLARRAYELT LLDATATYPE LLNEW LLBASIC LLCHAR LLSTK PMAP LLGC ATBL FILEIO EXTERNALFORMAT LLARITH LLFLOAT FONT LLKEY LLDISPLAY ADISPLAY AINTERRUPT RENAMEMACROS HLDISPLAY WINDOW MACROAUX ADDARITH LLFAULT LLTIMER - IMAGEIO PROC XCCS PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS LLETHER PUP UFS - DTDECLARE)) + IMAGEIO PROC XCCS PASSWORDS INTERPRESS HARDCOPY CMLARRAY LLSUBRS LLETHER PUP UFS)) (RPAQQ MAKEINITFILES (MAKEINIT MEM I-NEW)) diff --git a/sources/JAPANESE b/sources/JAPANESE index 1e2680e3..ab8f16e0 100644 --- a/sources/JAPANESE +++ b/sources/JAPANESE @@ -1,18 +1,19 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS) -(FILECREATED " 8-Aug-2021 13:28:16"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;17 62025 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (FNS \JISOUTCHARFN \SHIFTJISOUTCHARFN \EUCOUTCHARFN) +(FILECREATED "17-Oct-2021 13:54:52"  +{DSK}kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;18 61702 - previous date%: " 6-Aug-2021 17:07:29" -{DSK}kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;16) + changes to%: (VARS JAPANESECOMS) + + previous date%: " 8-Aug-2021 13:28:16" +{DSK}kaplan>Local>medley3.5>git-medley>sources>JAPANESE.;17) (PRETTYCOMPRINT JAPANESECOMS) (RPAQQ JAPANESECOMS - [ (* ; "XCCS to JIS converter") - [COMS (* ; "JIS to XCCS conversion table.") + [ (* ; "XCCS to JIS converter") + [COMS (* ; "JIS to XCCS conversion table.") (VARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CODE-MAP* *HANKAKU-TO-ZENKAKU-CODE-MAP*) (GLOBALVARS *JIS-TO-XCCS-CONV-NO-FONT-TABLE* *JIS-TO-XCCS-CONV-TABLE-LIST* @@ -22,29 +23,28 @@ *HANKAKU-TO-ZENKAKU-CONV-TABLE* *ZENKAKU-TO-HANKAKU-CONV-TABLE*) (FNS \MAKE.JIS.TO.XCCS.CONV.TABLE) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\MAKE.JIS.TO.XCCS.CONV.TABLE] - (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CONV.JIS.TO.XCCS \DO.CONV.JIS.TO.XCCS))) + (DECLARE%: DOEVAL@COMPILE DONTCOPY (MACROS \CONV.JIS.TO.XCCS \DO.CONV.JIS.TO.XCCS)) (FNS \JISIN \JISPEEK \BACKJISCCODE \SHIFTJISIN \SHIFTJISPEEK \BACKSHIFTJISCCODE \EUCIN \EUCPEEK \BACKEUCCODE) (FNS \JISOUTCHARFN \SHIFTJISOUTCHARFN \EUCOUTCHARFN) - [COMS (FNS CONVHANKAKU) - (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CONV.XCCS.TO.JIS - \DO.CONV.XCCS.TO.JIS \ASCIIP - \NOT.EQUIVALENT.TO.JIS - \CONV.HANKAKU.TO.ZENKAKUP - \CONV.ZENKAKU.KANA] + (COMS (FNS CONVHANKAKU) + (DECLARE%: DOEVAL@COMPILE DONTCOPY (MACROS \CONV.XCCS.TO.JIS \DO.CONV.XCCS.TO.JIS + \ASCIIP \NOT.EQUIVALENT.TO.JIS + \CONV.HANKAKU.TO.ZENKAKUP \CONV.ZENKAKU.KANA) + )) (DECLARE%: DOEVAL@COMPILE DONTCOPY - (* ;; "JIS specific macro") + (* ;; "JIS specific macro") (MACROS \EXTRACT.NO.FONT.CODE \EXTARACT.CONV.TABLE \NOT.EQUIVALENT.TO.XCCS \EXTRACT.SET \EXTRACT.CODE \CHNAGE.KI.MODE \KIMODEP \HANKAKUP \KANJIP \NOTGAIJIP \INVALID.TENP \CONV.HANKAKU.KANA \OUTKI \OUTKO) - (* ;; "Shift-JIS specific macro") + (* ;; "Shift-JIS specific macro") (MACROS \CONV.SJIS.TO.JIS \CONV.JIS.TO.SJIS \SJIS.KANJI.FIRST.BYTEP) - (* ;; "EUC specific macro") + (* ;; "EUC specific macro") (MACROS \EUC.KANJI.FIRST.BYTEP \GAIJIP \EUC.HANKAKUP)) (FNS \CREATE.JIS.EXTERNALFORMAT \CREATE.SHIFTJIS.EXTERNALFORMAT \CREATE.EUC.EXTERNALFORMAT) @@ -449,11 +449,11 @@ (\MAKE.JIS.TO.XCCS.CONV.TABLE) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY -(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE +(DECLARE%: EVAL@COMPILE (PUTPROPS \CONV.JIS.TO.XCCS MACRO [OPENLAMBDA (KU TEN) -(* ;;; "Some character code is not equivalent between JIS and XCCS. In such case, we have to convert the character to corresponding XCCS.") +(* ;;; "Some character code is not equivalent between JIS and XCCS. In such case, we have to convert the character to corresponding XCCS.") (COND ((\NOT.EQUIVALENT.TO.XCCS KU) @@ -464,13 +464,13 @@ (PUTPROPS \DO.CONV.JIS.TO.XCCS MACRO [(KU TEN) -(* ;;; " Convert a JIS code divided into KU (high 8 bit) and TEN (low 8 bit) to an corresponding XCCS code.") +(* ;;; " Convert a JIS code divided into KU (high 8 bit) and TEN (low 8 bit) to an corresponding XCCS code.") (COND ((\INVALID.TENP TEN) *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (SELECTQ KU - ((33 34 38) (* ; "1, 2 and 6 KU") + ((33 34 38) (* ; "1, 2 and 6 KU") [LET* ((CONVTABLE (\EXTARACT.CONV.TABLE KU)) (SET (\EXTRACT.SET TEN CONVTABLE)) (CODE (\EXTRACT.CODE TEN CONVTABLE))) @@ -479,41 +479,38 @@ (LOGOR (UNFOLD SET 256) CODE)) (T (COND - ((EQ CODE 255) (* ; "Not defined in JIS.") + ((EQ CODE 255) (* ; "Not defined in JIS.") *DEFAULT-NOT-CONVERTED-FAT-CODE*) - (T (* ; - "Defined in JIS but the displayable font is not assigned in the corresponding code in XCCS.") + (T (* ; + "Defined in JIS but the displayable font is not assigned in the corresponding code in XCCS.") (COND (*REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (\EXTRACT.NO.FONT.CODE (LOGOR (UNFOLD KU 256) TEN]) - (35 (* ; "3 KU") - (* ; - "Alpha numeric codes are all defined as single byte codes in XCCS.") + (35 (* ; "3 KU") + (* ; + "Alpha numeric codes are all defined as single byte codes in XCCS.") TEN) - (40 (* ; "8 KU") + (40 (* ; "8 KU") (COND [(< 0 TEN 33) (COND (*REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (\EXTRACT.NO.FONT.CODE (LOGOR KU TEN] (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) - (116 (* ; "84 KU") + (116 (* ; "84 KU") (COND ((< 0 TEN 5) (LOGOR 29952 TEN)) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) - (117 (* ; "85 KU") + (117 (* ; "85 KU") (COND ((< 0 TEN 28) (LOGOR 29696 TEN)) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) *DEFAULT-NOT-CONVERTED-FAT-CODE*]) ) - -(* "END EXPORTED DEFINITIONS") - ) (DEFINEQ @@ -1055,11 +1052,11 @@ (ARG ARGS 2))))]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY -(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE +(DECLARE%: EVAL@COMPILE (PUTPROPS \CONV.XCCS.TO.JIS MACRO (OPENLAMBDA (OUTSTREAM CC) -(* ;;; "Returns JIS code corresponding to XCCS charcode. Handle HANKAKU as well as ZENKAKU. If OUTSTREAM wants to convert ZENKAKUKANA to HANKAKUKANA, do so. Never returns two byte charcode for alpha-numeric character, they are all treated as single byte characode.") +(* ;;; "Returns JIS code corresponding to XCCS charcode. Handle HANKAKU as well as ZENKAKU. If OUTSTREAM wants to convert ZENKAKUKANA to HANKAKUKANA, do so. Never returns two byte charcode for alpha-numeric character, they are all treated as single byte characode.") (OR (COND ((\ASCIIP CC) @@ -1067,8 +1064,8 @@ ((\NOT.EQUIVALENT.TO.JIS CC) (\DO.CONV.XCCS.TO.JIS CC)) ((\CONV.HANKAKU.TO.ZENKAKUP OUTSTREAM) - (* ; - "ZENKAKUKANA comes here, because their charcodes are equiavalent to JIS.") + (* ; + "ZENKAKUKANA comes here, because their charcodes are equiavalent to JIS.") (\CONV.ZENKAKU.KANA CC)) (T CC)) CC))) @@ -1104,9 +1101,6 @@ (PUTPROPS \CONV.ZENKAKU.KANA MACRO ((CHAR) (GETHASH CHAR *ZENKAKU-TO-HANKAKU-CONV-TABLE*))) ) - -(* "END EXPORTED DEFINITIONS") - ) (DECLARE%: DOEVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE @@ -1120,7 +1114,7 @@ (PUTPROPS \NOT.EQUIVALENT.TO.XCCS MACRO ((KU) -(* ;;; " The JIS codes which are not equiavelent to XCCS reside in 1, 2, 3, 6, 8 and 84 KU. Although from 84-5 to 94-94 inclusive are not defined in JIS, that is they are GAIJI, they are also handled here.") +(* ;;; " The JIS codes which are not equiavelent to XCCS reside in 1, 2, 3, 6, 8 and 84 KU. Although from 84-5 to 94-94 inclusive are not defined in JIS, that is they are GAIJI, they are also handled here.") (OR (EQ KU 33) (EQ KU 34) @@ -1141,8 +1135,8 @@ (PUTPROPS \CHNAGE.KI.MODE MACRO [OPENLAMBDA (ST INPUTFLG ENTERP) -(* ;;; -"INPUTFLG is true if \CHNAGE.KI.MODE is called in the context in which ST is an input stream.") +(* ;;; +"INPUTFLG is true if \CHNAGE.KI.MODE is called in the context in which ST is an input stream.") (COND [INPUTFLG (COND @@ -1161,7 +1155,7 @@ (PUTPROPS \KIMODEP MACRO [OPENLAMBDA (ST INPUTFLG) -(* ;;; "INPUTFLG is true if \KIMODEP is called in the context in which ST is an input stream.") +(* ;;; "INPUTFLG is true if \KIMODEP is called in the context in which ST is an input stream.") (COND [INPUTFLG (ffetch (STREAM IN.KANJIIN) @@ -1201,7 +1195,7 @@ (PUTPROPS \CONV.SJIS.TO.JIS MACRO [OPENLAMBDA (HI LO) -(* ;;; "Convert Shift-JIS to JIS. The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of JIS code respectively.") +(* ;;; "Convert Shift-JIS to JIS. The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of JIS code respectively.") [SETQ CH1 (IDIFFERENCE HI (COND ((> HI 159) @@ -1220,7 +1214,7 @@ (PUTPROPS \CONV.JIS.TO.SJIS MACRO [OPENLAMBDA (HI LO) -(* ;;; "Convert JIS to Shift-JIS. The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of Shift-JIS code respectively.") +(* ;;; "Convert JIS to Shift-JIS. The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of Shift-JIS code respectively.") [SETQ CH2 (COND ((ODDP HI) @@ -1313,11 +1307,11 @@ (ADDTOVAR LAMA CONVHANKAKU) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (10976 16192 (\MAKE.JIS.TO.XCCS.CONV.TABLE 10986 . 16190)) (19836 45193 (\JISIN 19846 . -26482) (\JISPEEK 26484 . 33110) (\BACKJISCCODE 33112 . 33652) (\SHIFTJISIN 33654 . 35046) ( -\SHIFTJISPEEK 35048 . 37154) (\BACKSHIFTJISCCODE 37156 . 37742) (\EUCIN 37744 . 39447) (\EUCPEEK 39449 - . 43028) (\BACKEUCCODE 43030 . 45191)) (45194 49042 (\JISOUTCHARFN 45204 . 46614) (\SHIFTJISOUTCHARFN - 46616 . 47716) (\EUCOUTCHARFN 47718 . 49040)) (49043 49362 (CONVHANKAKU 49053 . 49360)) (60086 61580 -(\CREATE.JIS.EXTERNALFORMAT 60096 . 60484) (\CREATE.SHIFTJIS.EXTERNALFORMAT 60486 . 61189) ( -\CREATE.EUC.EXTERNALFORMAT 61191 . 61578))))) + (FILEMAP (NIL (10791 16007 (\MAKE.JIS.TO.XCCS.CONV.TABLE 10801 . 16005)) (19582 44939 (\JISIN 19592 . +26228) (\JISPEEK 26230 . 32856) (\BACKJISCCODE 32858 . 33398) (\SHIFTJISIN 33400 . 34792) ( +\SHIFTJISPEEK 34794 . 36900) (\BACKSHIFTJISCCODE 36902 . 37488) (\EUCIN 37490 . 39193) (\EUCPEEK 39195 + . 42774) (\BACKEUCCODE 42776 . 44937)) (44940 48788 (\JISOUTCHARFN 44950 . 46360) (\SHIFTJISOUTCHARFN + 46362 . 47462) (\EUCOUTCHARFN 47464 . 48786)) (48789 49108 (CONVHANKAKU 48799 . 49106)) (59763 61257 +(\CREATE.JIS.EXTERNALFORMAT 59773 . 60161) (\CREATE.SHIFTJIS.EXTERNALFORMAT 60163 . 60866) ( +\CREATE.EUC.EXTERNALFORMAT 60868 . 61255))))) STOP diff --git a/sources/JAPANESE.LCOM b/sources/JAPANESE.LCOM index b45e3af2eaf49a2875030719562ad170ecb9f360..cd5578b8886ae043136ab462134d79e8b38c7ce5 100644 GIT binary patch delta 581 zcmZva&uY|A6vj!QU;{0K6{)S*V{jl@G&Je7GmRC!b0>dpk|rU^3;+ z?&cMgvvF1M1>AHo;)A#q-1-vU=tf(2=bn%6_k9QMr!T@{A-uQisw62k3oM#gB(pjo z>&@+`Kif8T3?1}cbFX3U86PgPc}u;f8D^tpHg;urF)8|^SL5=$7)VfDj3?8&3B%Fs ztQ?*~IRx461_Aud)ih0p!O5%`{Fiwkt2avBzS#;Ni}au+!M@(yF`$2TGCVD&FdOl7 zrALw!JQ9=8N-Y{4r7Dak#oKc9X8Jq0ZsKcUU6AmJNQCCqT>L?`BSMoXg`7rVPxDx+ zWs!DFX$n%_iL~om{AfSD19_WJKXsX%aRa4M$CB`;ovwgVg@R&-+>XAZ-}{GNVJkd0 z0bV-yd6BP=8E~vNq1y7N0Iz10!!k zD--CAOh^nYW$92RCKi57{25G)Y;bM>HH>%fz0ddip1x;i+Uxh)3sHb|;RS6P!Frdm z&>&eMTbu=)M!W_(lsD+{?nWV3$U}b9E|l$j`Q?)+XBqRgT*WS`az%$nlcYa77!UW8 z0fGKr?{GJnW^6nW_XP|OK^L7?3oc?!)6`+mJ4yyX=JaOF&7wYU3cqU07-)3KB2ZGs zihot$XrzSRiqhTjBzZa<9Z%1(89U{cF6?31IZJs(Ut^a`2Ek{1^^{-w$SmIVy&!^Y zo3g+QfyB&ncg%(i&B!y;^FUnl%>O?Pw8Vo&0&$hHX6Q%}sR_os8pr1%yiOp?ymkm# z;f8?UMgHnc23P90*2q6#ice+KEW|WqQu_F?UcX{Mmf%lu8$Z-5OC;vqhz68JGZzu9 zwzz6rL~trMNbFFzNt+!X;wE()(g)mks7CO_xr5)FDiF|lhrx85^oNg!eK_d#CnH@+ z{Mi_{C+FS8v(v*bQI?YUp~Foe7Eo$cHyx; diff --git a/sources/LEAF.LCOM b/sources/LEAF.LCOM index aaad09875acc7794b7a149b07d08725f1ca518e8..c12bcbd52983cdf165f6b85644fa9316c8fb78c0 100644 GIT binary patch delta 635 zcmZuu&ui2`6n0$kkX{NFst4h*%CbcplF4M=Ox7QS-ANlrlaOTb2L;)>9<1W27x5r^ z?!h`I!FxRkC5Q(PB6v_QW&Z{5ih?ImFx%D`#nXJ>`@Z+yy!W2GZ+(8(dbE7X=mue= z`kC?zHGsB_i^=tkMQTwSZ0b?;EN5#yIZhWUjW;yuQP*?C)}(!YNfpx?aPtndgJBdw z(`cGz8^)uJ8{_{KU{2|g*ETWqcY5!L(Ood~UFR)1T3%q!3Av^}xgCRi4aP584|fi2 z>XW>uNBlIor8oIEg8Bh=$gF;bU9znwc!s>vKk@9$)ns;jd-u!Zogb-YqO(R3R--Ua zRhA_g*p@AtTq1`|Mas{WnGREs9RJ}~WmkS+?&nK~!fFs+PW?Q;lw<>t6!n|k6LW%9 zeVT$`bYHOe-vV-}Cm-hKkvRvY`%#jsy(MzymcCpg_l>T!Y#4-@>K93N1q6x)LvBHw z#0t=*FsN>q13C=yqB`UXAY~ByE0t==-!U$+hJx0xn*Jb(SA!?RA{`dMUA$O_9Z^I2 r$86WoWfG=ekHWZGW4u%>gUf6^>K!}m(CJe??ah(T-o<3^W2@(jtDz@S7)8Pj!Z<8o zZ4+9-Fp6Nhov!OGC~s}Amj7#I;tHb!jGFSBdGBOX>onz-^%`BMi2VYgP5FtmPoJ0x z%9o7?`!i4E99==0?9ruD>*KS=LAfrs>37Afu{J_-mucvce8n!I=khaKI&&pCS8j~I zKHUG|%0;Jr(>9gZFi%C6B^hADvZiCsF=RrS$%UQ{Q{awyJZ5C#RiC`)HiJ)8%{qk156;4@+Uzl&Ikt2MbMuTizuS6Il8eK$0HsFN;kVIFQ{$L| zA7;WUlI#XJ+?tA*QWPh#07e=3>XJDyn?qixvkrh+9AbB%vZh^g*!%-2XGaj%P?=7K zMLH~iGIOV>KLPs`zytsQ diff --git a/sources/LOCALFILE.LCOM b/sources/LOCALFILE.LCOM index b500192a28f4b555605a12a255bd827aefdbc588..e371060268247aca2fb92a9aa5b9fc6f001a426b 100644 GIT binary patch delta 5172 zcmZ`7d0dl6c1J`pf~eerG91dGV(tWW!AKH_Bq0!ptD-f+2Sy-BI25&_uE%=TGOOuY z&lY>x;_hP)mH0oTesS!weG6j_E%Q7Rg2p0n{N_=UHi|3ch0-!z4x(gyZ^bD z{5R$#h?4aNqb{pJrzzBFalAw|I$@{opcpGt z$KzQg)m3vVlS;9}DZ=skBBK%aWK2s-i^rw*IbHHiF*qbtv3BmvBB}yj2Llq33Ik2@SIc3m^Xi>66jkS3;9hQi(R%6!cjD|dO ziXh&5aG}qNV?k?&&cIlj4Z4h%U0cmt09&BV(Hs5?pN5mvRk`5)R8` zY7B8SVwp4@7ia6tx&lL18e~>$0hAaQ15KB$F{WvCHba&!53mxD_cBg2n5|eQmiEBp z6%|^sG+oBjO4V{7Eh|S;V3q3%u~emahGwZ!30P~IIj=CS079tA%F~Dd_NeN9>=4lFJK&0%;lmn^jp|%aOdHD+ddI zX@wAI#A2}oA_iq4sO7(p?F;q5-;cwHA%-N#5L{$VvIw?-3b0Z}-bqojWPOv8>#O_msTru4EKFTR`j2FhN+MH7HaE$^FQeXMui&%} zm(E$|YJ>t65(@DF6juV~15OG>#rTYzy_9nap_9Q21T6K{Y_Eb)rUREnZ|3GvaxIps zSs1O8H5Q9b%hI8uk%WpBaGQQceNv?m1|Q19Mjr=N?JNZ=a;hsqyHrkI9#sl)m%)qo z#9b!##2vz}7JPBlJ862LhTV2Q6dH`Ba+Q}`DpQf?M?~wT;&d-cB3J%8@)CHV{}*Nn zHR$QsllIYNtX@;nF4NNN8dJhxyLdH)zm?RnRFp{H05DJ{X5kqGMMDLT$bFA0^a|cW0Y8(#( zQv$svJ|iBdE9no+#klE%==HMaikLa;o;yp$3hm1o{DnOM;O3IFr~6~ovS?CN;^?-8 zKT~pu$}QnoPWiVv9fj|eNmvw;%D4KMFO(}$Jj^VpV;C7&<|}P)-7_B&9I1%rB~BL2 zv^eJ!__UmxvxHt@sLWu*wUu%o@oc5gj~`VTnIE}MGiBaV?J1nVxxK01gIt+RxX^VH z!0_7P49u+krCS%#aN&G$T@jT(P`?(=j0QcND;g9&o>L8ry8%9D-Yq(W#w=`ws6o4y z;P`QL;C{340-(KB$6s2si|VXdtYMcPTwDf|T&lvl{2~o(J8EpCvrUKvkvEN}yiH+@ zcUNNw+16AM0sIP_%{e(2U4>|0W1)*(l0kLPSUQpMw=B)?wvRknI?D%?FPj_#xuCtP z)YCm3T&q7|p7sy~UDrC4Y96f~Muk>WOepSThMu&8jH6tC2HnB7!LowqOM= z14j*7l0Q9?_g{ODiacDu8qQ@KYT>-U!6FETl4&nIwS^^aG;}-8*Kb@;t55;~EG*Di zb7;GVNv1LBzxVtR*(j9VkjxV4JSM>fP7)mSz*(B-AkSYyFdjM# zo>E7KZeJh!n^d?A#yQD&bvOy$Sqec?W1Gzrq!~Nrc@UGCXE$~b z;RU?%2@90$)#(&|u_d3uw_5H%-SC%QzwQ|wt#953`tG;33v`mbhnCWjJr#^S^=%`F z^Yh;6=V4#oI+yOm3?k)OlV&h)5A4rn8))0TjesOOmU=;55 zaVUb_p0cmGyHd$t_vwAWp#3r*a5pTBx9_Jdnyfg$S~dydU+^)s@DF{!iCJOf(7UI7 zh#EeWEIt@OqK^lX*7sTjPEtFOx|E3iAg4pkhy1aAd)s%KFlSp{5GbpuCg z4u%QJo^R^_lZxN>O!yi;guMLz2C85BObuk>q1i#+k2N9pOQx{-YH389dFIJu8i!W*YPr448C>636y zI0JU@jx*z_QLmj{0B78}p>SrNTLtIYbFs7?!2bSJJ9v0*QMZ1w=)-q_Gxhu^=H%4# z^SWvL=jVkn7Id+k5$9jDCJIHTwdQIKR*O+HC9TM!g>P)3kcw>@lkgyk=1MW2`%x*a z@O_tFK~P;O?#o#yljHVXTe-j z{OaRHxRg)+;x9BQr~W~wNKi*QoY@`q{z8?JlO2#G{>zR)%JSWpo?7Yu)lUHW-{9Eo z&Kq<~9QXAh20r|nj$p-269ZS?q<#9koAVhs`=4py)D)V7S@mUQoC`h!>Kefoa{tyz zPh?0{XMe_i{Wbw(=%E-MD0M(@ zY7qKaj@?=6T`0nT8c2;w>Y4%P%C1DPb5Bn(04B zu0DDKQlCEFDO}7qK1l>!{Pv$?STE&||3W=>1NLWu!#$!G`WXHX=eJ5Rl|72qw-|&M^<#KI)G;;r_N`LFiqkr>#C18K_C^1JPM# z^_oHGHt@IxBR@)L2tn}4?{VG?j7tMWYHpR7ayU zhS(L2DgiMd2C;_Y&WJ(qwdTGXgPvm?g+tLKxIh9Q)o_EuS;x5=?3HXKY|0_HRHr*1BPBzu#b`tK6K#u&Lkp)(jF0^+A*X{~jmA$NYQTYgqqKkXxH%XfE(f%?0oyUC7 z%$YOioJr@_*d04#pD9vgS*$j5zT0dnHWy$8*5!DFh8$kSbC}cRahg0W|7=Zht6F)V zOq-`Q=5bmDUJwu#*4H)oY6WjR7M3^E`WE_{YFj4e;c}ZLKOj^#2?fGZ-$DWV{8(Wr zvDt96k=)!|1@?lH_vZ}ooI)87D-_3~NijoY4y#R;rId-bK~@x@$kn)1GIE1LycAnA z5Xs2QAxB}nJ46p7ANK)_d&Z;;qVvet2`Q51?D%)7W`gW4jByE6)0FUjwC1>B*9OY6 z$cLk~Y^EvkV6-@X_^DB{EY5%noTX;Wsc?bGQDC-NoergB=-Tk&zV(?#kUrvXBhFIb zLki4*yOKJhfW<$^n^Br9O9O}$S`;dMG(ZuR6koVjjrp(#J#?D4oTuhrx10<*9(7Sv&EWp zYYh18@aS2?sk31R&IZBHf{gThq9&>gJ9%bIVzgi18G{heC&uQ6B4O;VXz{*`!4MGQ zp>Y^Va`B=T-d<{+Y0n8aAnq1!` zPT$8>=`qa+Hmk#IGdl{4i?Gp%%NaTxQ*o}-Wpp*;?3%&0?>t5ej?(v%e|Og4J4xCL8q#u!M!MVBo2ZWcPz| zg&I6z1Mk!dj>3&Q;i`VfH4K0u7=G*ct zo*cK?<1BGQ^g_7io6QA~OnF`tR^+sB68*i(Y4l`xP7)cGbDt-5IaMs?cIQYjx8&i4 z%(Ly&<>Ur8M7;HI9gW2WTodE>a<2lpmRAi8U5EVI`bL4YXDEs5i)?X(dNEahLbK*q zQF3zLFqxROUXVa~l!YV(LaopwO%?y8y-BBC*Y`3j9~j7pcZWk#VGYsshctcAxJc3japAS3Dio1*vn<=S5BDJD(`ZP&b1@Hbif zq{lH`yf^t z#jiZ)sqjR}A{Zx?PJ*r3OJ@&^g$klJkU8>X^2XeUACP51#nq7PQUz$m&#UOWMHNfr z;#2d+qa=t_H7>QA?JiTH*(H@4@%SUlD7dEF3ggQ1bO7I4KAdi4|6?W0oiX#zP?fHV zb>XvfH3zCm`-0IgFRi4KWeY-Sao>WC5wqgdg>O^g9WOgbalBxrw6BU|F4$SMy-#^& zwT=o~7L8#xw=K#>)cFTyjAGi?eC|H&>5ErU?Nc?=m~ddNrcXGnR?5ABIvay}x6VP8 zhu4RqV{N^3Qomg?olWjqavH>Kfr*1d$4YK)P9o<5|A;`6af_41|7k3xFv{lN!FagY z0^^U(+CClQ(v=ZH>{$ADT4VmW;vifqNTeKAOokduDt^-i>~MsMmdE!{%*iv#< zRzdaV_1HY8#AL&eOKh~Bv8Ld)l~YE_va~b}dFlgAG?g`)R4Nt6#He*;D$Ld5LcuQt zXh%df*df2rI*r=7xN0V|Givpm$XZF$>IHqo<<(_?BIP=7D2MulMrOgbM)*Zp=bB?+ zVC~wa%)r0bZUb`bx*|q?v2Mm#S(Xu-+-}o67jzu3hkPh(63v!4^T{fd80ttkwLau8 zv>~1JJhdp6(`k9NIQ3~Q4a~;%GhsZkein>qgF7TF+mK9MUe~rB#yf3|FxG5xNh)&E zy{TXS_2Oo0WXs~0o7<2A?h?4J*lqF@(Yz0(%Vamh$}p$aVnr@JyBD8rNTmKRHM>2L zPR;&Y8o8uZkjpn7BrCVjOjS)D8Ugd5TJw;jH3qd#qlejlAT-LtCr?&CR|k=y!=-Mw zwEtj*7NwB`&*zi7zgNV-2?Q(kC?%FTKKH{^@~7vk?qiFp7ku*u z^tRo}(pf@R5D)~ZlrzAdZGZd)$;RJ5L(Pz$?Wq!I@SYZ>l9zWp4u;NeAIXmMpWEAj z#5?72(v5LhT+QU>_G)r($2i815AmTAlli;W!%hvjw3O|X{CVfH5TlH(rgYa9#wcS9 z@z$=(2(lZ`bHUY9!TeWyj<6lR`qHoIjvv@Nhb``u9;Jzmd%I~a)Tp$i@?@G=@k$5F z`oU@7L1Nr@6=sawzmv_FZUDSL?=J_Q>a`k%y6ZI?po;(eQ(UNAe1D*UHqp=uENW>i zt*>pa6KI#fR=fIO$uA4PI%uF->*|4I37VK*pAME*zn;#>ov&|+#2qoTTl$En+SL(4 zJl$@f+q`>d9hKJ4cd+ z-dM5hFB-b_jh|#PHOk-ev6>9(4MeLy+xxr7>dAz^E`YRu|5HG^4C0QzzDV)(pVC~s z=2Ih#$3JZzAIjtKBY?uz#tFC+xCAM^Dzq)_k(~#BsarTk&Csy}NTjlrsCY zdu#quoA9^A-vpVh4tvc*v#GkY6Obi>}8Zz!otodkuVtW@eZ>{-g-l3o32S7Vv#PE7{xvlX2g!&lz zgboE*4i4^vF7(C0!%^b3LK~_JYjQB3X>u?<^aV|52#A9S34f|IAvrwznWD~!&9-8! z<3hA1vKGioOhv5+bKktSJ{E57wEq`SmXtu?LeNTrs{{4T4cK1~Ij6qa?}ht7mnuDQBOl!E2lw4= z736kkBteU9x2V$Z4fl$seAv$AjEC+_fc0OxBUOki-(@i41Hb<_l5M%WTcX6h zcWM3>&;Br)r6=(pKMEAVdG8)mpYzi_BzxY4=CHN^tQHEvQwb>j@Ox-3Xa>g&L{DOx ziov&0nRsR~bS)U3Sb-LBP!N7|djXW^#UPc08*Ga~uZ*X!Z)qoNzZ`~lePs8nH9lH4 z2+>E*(F?K2&ej;jgV6>#v?cJX0BF}$E{7P9vc%DogV7`eB8XQivI|g)LO9+$GKhI4fHP-LZB_)><>uvHySK>r6iJBFbcD%g{VAh!hHO+>E)C_L#Ys0V)LYzl!s zIUG%R6->hZ@RT)Sgd?Fp~1n%gOXg-_UIugwS zOK>*SlrNk>nX|5rM6^{2rjJIiGWGXIqa(n0d<@bt#*r~-Q>2(2wT(q9=!7#F==?A^ Wat((KYJ)+i(kW#}_hPj7!T$hqs$yOM diff --git a/sources/MOD44IO.LCOM b/sources/MOD44IO.LCOM index 9b2759c6ab83cb1cdfb623ea2bd3fa69af42ad30..2653f0275d72b38d1a4674e5a7fa276c4124ca80 100644 GIT binary patch delta 5102 zcmZu#Yiu0V70x<=(8VFK6UT9!;On)q*9LEPUi+|P$FsY$k9c=yJu~YEECk11r^d!{ zZIcJaaiCP>M_ZJRTBK5n5|vUYeMB1wqKX0qwFMfgiat<~O3IJ^YDFtWtwbf-@6O$s zwGEMSbbaUCbMHOpJKs5XfB0C{jsLmYyfG!7$|_y)R9fjuW#cNjJts#86D)HoULh?jL5n|IDd!R?WM|5O_2>HMm$`wOC4YA;{7~FIKG?rcT19ocs=7sADo+- zDNc~1v&2K(OEG<5d4GPPIKR+0JvKKpHrtmzIzBej_h4~irg&2DNqtAA7Q4)kT)PTf z2h0XmnGJXIQnwKDki*pKO#1|xnk8;eJfBXJ)rvl!&qF507P0FW7!UUdBj)mOj)~Yw5@P1W%r`y|M=|pFaE)?Uq z6;s%^@fj#w-RP}%6zK7ai^X`-(kNALddCHoKi_n*qGCCYx{w(;fAfCVy!p}1y7})& zjhWuO-8F4CN4=$QZvMcv!utt5TSgvGVku3@8rmq4!W=0i6oUpNo*Ky!DG(xsVJ(Gl zr1XItVy6>H2wN+4#h_amqdA3$0iHyYQ8i0Me~=Vn@~Dx@D1IV@B?3K}2qCdNkR(#b z<&BWDhall3n5j&N!rD{tfiRIZO&%pYA2#>88&}-k0Ou#VfeU9yzz^GOC}A5*6GsmQ zoT0?oLxC5ZA?GaP!#s0FK5fL)3BrehwnaV|a)tpv8CJCz;a7ypB+nB)Bd60jRnHNg z!+qINcz?hia$(0DNBzJQxS-$+1Drh!i-dYLjm$|a*@TfKp#UkcCBCd`_|%+|-A;n= z^4dwWaBI{-Lab;(#fDSqm0PPRSl+CT?XdBr3?b(6ECW;HmVqjKKeF|=o9K6wJHB(1 z1=PW9uVcQpX2=05FglZ(&5X@4jGd~v4uwOt@^0I3qPR$LoE)1)_A#Z`YW@4TTQ+RC zDRT1${Cj)T+wPjLY))R>_}B&4?fr5jR!yfzC(d7RZLM>{5{IH`s)j%TDnN0xk{rAU4NOt4p`Ogj83nlUn-A=`1GwQOhTe=F zYRL%*FF0Z1`AUE}Cro?=XdDn@$1zkH2Aw!^{?PhBa(=U=uKu=lVT;#Acdc_>YIgD{ zi_5vX5RJ>V`VT5PiV*`n<}@|OocqqMWBc6MRNC!@J4hGLi9s%yG%In2lXlj99be9sEB3H)Ni%!xXEor^rf!GlGy5|9zAeJqS5xKRvep1<9~6UhKq&t+#OFttGBJ& z$!V&!sycn6ZR!?=C{V#?Z9Ab|*M1K2QhTJqwyYNymDve((utQ@>wUKi7;xNTJH^2O zmQd{qyxkoG^uR-%5ibJFq0D~{zN@Q@#YnGrzI7LN36V%DE2Cxwh@p%a&K}16L$l*3 z)6TI_w2`wmS>iKJqE^&6w#9Y6n{Lr4KF%C3$6}SLYNf=>;+Lq#6{+8`5gQZnOD*ylSM`=FYHRJG+af3?7tKqN0LY-#B7#@k7gcZDp|&d*KKrrx*Jx{# zzzT-0YF0y|lK@DuTzsW)$ZU;WrwvEBN1(gWZWg68fHbG2CJO*sB!nqc3p%x03+zCr zsC^~2N>>UC;0g&wme8#@MMOe{DszD(mUAeXLEB}M2)eECI*z~;h>fjsx&$IhXlvF^ zntxH=+Cs_HA10ojPIRs2&*C(}e-)2+f&~Sl4CZCDz9KxJ>p2G-74KMC7)Vf1T~E|I zd|*d|UXY=1Tk?}C5Q6A5LNG=I)LTyvhmF^H&N6$~z=;a;yfm;2d)zh9T>9HU(ADDh zqS&+BIHy|WW@~+a<_}m>m+f^xl9M&s%a;29D}!dTf2Y|on$ua~!7Bxcs3p~M-&}el zw~H!V8{FgEZcR5~ZM9YVP(b+%BZPp<61`hMA|79l2W>R2SiT`T)Yy=s=_&Na*1EmA zR=J}52xFPjlls@_mUa2_kgw)tnn|Ka7vp5{RE(|NGW1n^K0DOu&_h|nYH}>|?++c` zZF9GUIz`r^Nf==k)ZtHI;owM)vE27Z5c|^0BQ+?r=CAKDJoFYE@hsERvv-&eyZhp* z=8KgN(OXDC`H4bPtyKzWHKjSt?7v$01=yK(rx_V;#XO6Zt%ahPiYl_-k1}DM_t|^* zwK?bgoR%O#6~MPtZ`|9{=JrYz60#~e-NUhpN^Pm;?|ZKo!3kMBC$f^iPSG;_MTcV+ z?mu)AY;o;SldH-6^w4YO<@*OseoWafNJzs}cekdXGUc^LX6c*G){Z7=&KQITu9;zX#j@Ev-c*y) zK{7r~&c@_ul+r|LaD35KvkDIkZlym>+)9hp$CHm+`N0#9KB@zZK8FFKNhOM+qwCho ziUzOrRvMEK91oK|x<``J@M~Va2xTI)=%pnj6IuR(H+d zw6B503A+2jP)5nHBgeBHr0Tn^Rp#_`qH6eH>C*I2RSoFUdhD{=BnBk&_SvQtF#4)l zfs$$zB~GI!rfvmYD~6%whQOQnt%BeIUH*#;p~hDJLTk6`n*=tid;=yb-_VO%?;AKx z5?2`FQ2^|QiikEoM9_G-RtUk$5cQ!v%aa(y%TMZrb&N`mbPv&k=B0fL=F68XO!5Vi$Hj;3KAtPZde7?Q#C{-DF=tqz@ z9?C-=Jhlh&$gy6?=Z=j*Za#iLjZD+y=yxrp52|b7w_z@XJ+lV*^oH)CUG!! zaBT8$l5HTBsuqFhR1H$fj{u<{A=+r^j}$>rp;cSTqf(J7s093It4gil2dz-0(tdZI zex&|!e0}HKbMHClJ1>9n-@x;aRE5JyC6&%9-Klg&=}u=;IkH_-v~LQBCg&bJF+Ee7B6G7OM9kL%yUTnR35Hm%Tb-Ei<`|A8EZ55k zy$ly3hv!S)fyrYNvqwuOcl46kxrJlXvq#A^M5v{ynbH|TQj0S)L_c$KZgBzUeOZx6 zBt)hr7I5P&FA+la+ol3R^Fm-R=<5L%^z%R+==!QRL4Q+~+7b+R1&gX6BxdGLmQv7w z^d@6LbI0vZgW=8F!wnt-6r3q7lu|<$N2O}rZv$X?XZ zHt2z{NjBcI@%Vey%+0Ce&#D`%%DhPEwW>UO zksg@MJ`>62j7To8WJwJETfGO@6zS1i!AK0rS}IE<*w>Wq?Due!ELp&E!B_e2oz)at zm#dR?F8Y*FKm=zgt}35Z4_D!P-#31@j(#_Q4iKY^h|nIoj745 zQmgp{41BHJGH1I-ua8mpJl60>pGPs0NDX-{m$z+vZtKIlg4uK?7$$goH^&N5 zA;wEW%+5xRSF#fiIzG9(aj`WR29Q%pWfYO-vE?U@mNIjbw$w`FYq56; ze<_=Xf}2eY*gkKnYjoLGq#+AqcW*mPG5D?K_Ij5occL`wWys2n=IYx6!OE{%dIP(t z7GiX*8Z;=V-BMakO*xwHYV8Jg##{Rw1U=VUzXCy@wq7nH@QUtP#HmPVp4kbtxtQ;M z(aE4LNJKx%1t-c8Ykb*?6S~DnsV`iE1hMuXEk!7 zfVBP5&j%8c@#;NfsTKLa9BJEQhw+nbb?bxS3<;b4-P?~T?6FhRmw_HBRk)^2e-sXJe`$k z%_D}g&+zUr<`-utQPsU?Rpec#=p{GqIpF22vH9tRQgZs_15{}{=9ummDc6UQmu+i( z%GTM|dT#ec>~}DXmu;=nE6mkd`2k~HQq8Ge$og!oeZ@muFTLU={*rBYIhpjUvK2Ea z;p>zmFAjK8k|-C5d#iF=JTHjVG&%e%YT7)quBQjHt|0rSLot)e`J#sd?d*LK^!L3D zpnvQAF=7qzkkp5Xi$%|Ns;pT(LP}Gd2ISSgcM!d-V8dMUlZW~Ao^6nKW6xF4{rw@( z3;mHgbVBGyGHCV`Eh+0ZoZjd^i_d-cGM3u(rSt+{CG+CFm%-4ux5aai%aF(wvW6{1 z+xr2S!UF>y)1Z=7G^by3u6ksE4g9I{%D{I5)y+3^?X?H*ia&Gxwl~e8xMXFEM)QgI z=4II;Y`z_T{Eln6aL2)po7cbkkvW-YZxQX% zO;5DPMQx2DAJD3l1t6`gg;I^=Ot+SCNk}7fi^^A$%Xyg?l8OW&OK9A@FcMMBoQM)7 zCj+&qXye>$gYGT1I++Mj#+2JOS4k}WwFyOUWzJBQw}Le3B9Ddoc7_n=+fy{o#Z+o1 zvLsKGk%F8d@O(zm^}GiW-zZivUQ1DIScqmJos4^@`8Zg)K&w+2#+Q- z)W_oDRR*)fUb*jdtDAssX)1@SwNe<42HJvQw7H&aTjVl>Tg*Sn`~fe$r1pF8$;%q; zlI`Bpe(Fc+-)Y?ZI;Yz;3sVe2R2#}U4S9vhZ>0?Bk!DZfs(ht=o4(+Z z@eF8ZL8c)m2vimxno1{aQRfPe27=!o-RY$fhk>@)Hb;E)aFcf#MWZ5Xi6O|aKfgZu zZ^*wfmfz+U??QHsrj_=6H7MbxwBHC(C0Pq_P$_(K#MJ;2H zlXUdJE`~q%m^D_~+vwNJ-hN(DhV5;d4qfg-mO{|lr?Z#0Pj@k4VL~k8US&|uL~K{1 z(d96id5kFcI^obu`8$}1u!X)6PflboTv~G{iUO3PH^GwV-=N4^$q3A1TDKZ4P0l9e zL;`8f{CuLN#(l8$+(a&^RLJ3lK+Q79I+1v7@=jWaua_=a5zdj2KCUBxB3@cc3@Hf| zR9&~mODlZuKf=*NPaey3B4U8$(0QDS#B({rJ2sTl4eAl6-(5HTAx?ZeU2lg?B9|Y> z5eM2Ejz>0hk*cTL1EzX>aQz{QvC0pRk5<*dbe4zgIx9#q^FK2!WteZ-F0ez236yJ% zzL1(1&8}h?x%?=SKgWm!|4eZHvgTUC zIVTqHVM|TkF)B!&tv~ zhVEZIyT$A{o5bpYvy-6jS(INI!}@zmbmy}rD!XuQALz^HXr=h_96fpPd>-_t=dXc| zUYM#6W^%|QIW^x!GMRWv@4^q{U8u+RKVOJ~-d*n87z}H9d1S8{nBUxl>;Ul5zenga d1@%#JtxfZE`N)AGkOT*36$JIH=)iK1?MM25XT-QIjMAyi`$WX!1$jZpV%EWA9RFMbyDWoKpq^4lgY+}4Qit))- zMzPKI+r1bWk52B|5j6Sf4td7x$=o}?WpZhl8ks8uhX7sXt6*wi0b`n2n!%YCW(tl0 z0j_>73MNJ-3Lua8c>1~exca$=cqo_{nkmFU^y~Tghv@kO6)Kn*n4=4BuHChgk%db` QlWY1%Zbp&Kc6;hu03gaxbN~PV delta 322 zcmZo@WZm1yI>AFp!_Cvj)j7!3F~rqHK}o?(H#oIG*T}%gP{Gj5%Fx8h(0pQcu!OND znw+VXsil>n>BMXD(=V_xicg=($tYs&>E{`ukeR2T@7$rzo^_tbV1G*1-qVI v==lQ`Dwr6WVG%SiSBL@W_74ql_HYbx^HVV1?7V9k?xpsww%6O+ySEaOQ3h=G~cO)6>a@oNo z%rp4|E>D2>v1t21c5FP|Fo=>F#IWIns-pRh4u^w9gZ;Uo!G{HK^Le-ByrqG$`FLdL zx*^9q0c=Z8zmc9b!iq86M?IUZFs7znOi(U?D7c9?_^Dqf@+u2d|@ z@Ji)zVzyU(PR;kLJ_dN9+DZ%fq55pGg~{(<*J+`OTeX$M|F60<#oN~hOTgij^%zkH z>xV(UUoV2{ZvAi(0MmA{j`T_JAa++~=$Y}M0WwawNL<#{F4A+Wy<0$GBp_9c1|`wZ zRl~HSMN_4gMMWD+7r}SUAzt?`7O!(Jttu~$OxH#Ri$8d5(9(g=*mv#YkRDew4*5N^ zKd=o{BY2T11`+Q@Q8^lf0dTOFbT<&^6u>JM)y+;tlVY97?_7wzzJ*wDEyNxkX-22A zRS@G+SZza|d0WRhImFs~S>)vr+b!mDLm9GQXuN+QHIzd(xOM)Q#lB$v-u(wPzw7x5U`EJ-{7DFdtoObR@)K_#b+G!*0sO{y zfWkiiKH}-GrtpEk#c~ff22S8_16wM14#5(tg~I6%$K$73SL5E+y4r$*6MU$rP1fYN z5^{thV%(5T#CiPqaBEfmYU|5nm(-1;q%oI7C&)YE_wdYo$WQ`-xD4J2jm(Qarv1Ci z@tt6q5wv<`}n*${jNQKO~aFCWTDEF^rY`_9@YXyJv%sa65 zP;ajTnQd!YdvgPNEDj@eip z&37b5HsaaANkcT|pr z@pxYazR}wcmXB!2F5s=T0BtiZ*G66D?B$~^~6gV}G))1#~ssUssRSWW9Y6hg4 zegfp)v=!uu^j)GKLmGwk+G0XX|thHc8=7X(R zvu2HbQhXegWAhtyW0UjmQe)ehQ@XGEg{J|HmX%QY!z=ilmOOtqBx>z)Q71_4&DaY5nM ztszj$%+C$2w4`if6+p33dfZaNPn41~jeCKN?H0XlRr0W z9;3aObpE3Ace<_u8g`EYJnIe_m;;`-;d$7zLFfPN`2f)Oy|3x0&$nwi6w--80&a&a z12_~_uo!KQw&ezU+*?BK`IZ?TkV5~FqHLc`gXE~c%jC2p7)23r4mS7TII_5@tO)jl zGRUeXWa??g5>~=NTd;*!RII_h@RHu9@+u#y7jTGg6SW4sUc-vSi{LuKYxS9lrZ?#1 z8P*QbG9`ICz$yMFtfd#JVZUF&V5m)^oz|D{^+28BI5`y%3>I=f&`>mVZGrt_{}8DP zI$UlJ!MbUDFo;zZ#JyfbZlZ=QT_`Nc zxjJXQ!<%WgPd8uCO+0Eo0qBVqPYqpm7;_sv8aNt3e!*L8kr9V@*6VTmh#^!%mWA(t z^uw^AE8}OU5Myz`)MmXR&N=;>Cc%svTi1Y2W9w0fWrj>IwwQ1G>^ltvbsfS2b8l zVrnX`>Yu^NGm$|V%pHc?H5ZVs&m_;6@B!0O>k0Dl~Q z0$_2n7N9M8pVCJVz^6vu0kzvB8}iFx0)1XMvtdbt@C07t;j%&jm2v9p{P^Hf2Dvzh SvD=K`Pr}?tgL7{!G5rJ3={vXp