From d7ca40ebeb1d1afdcc58d58c11c8c1e5be98c236 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Sun, 3 Jul 2022 18:49:04 -0700 Subject: [PATCH] Rmk51 end game of external format integration (#814) * Compile device-creation functions for new default interface * UNICODE: minor bug * LLINTERP: MOVD? APPLY* to SPREADAPPLY* * External format interface: a few more adjustments * CLSTREAMS: Recompile, no source change * PRETTYFILEINDEX: suppress when printing gitmaps to a non-display stream * UNIXCOMM: Default format comes from device Also, I seemed to have reverted back to LCOM with FAKE-COMPILE-FILE --- library/TEXTOFD | 69 +++---- library/TEXTOFD.LCOM | Bin 39368 -> 39391 bytes library/UNICODE | 70 +++---- library/UNICODE.LCOM | Bin 22117 -> 22170 bytes library/UNIXCOMM | 141 +++++++------ library/UNIXCOMM.DFASL | Bin 8456 -> 0 bytes library/UNIXCOMM.LCOM | Bin 0 -> 9174 bytes lispusers/PRETTYFILEINDEX | 179 ++++++++++++++--- lispusers/PRETTYFILEINDEX.LCOM | Bin 41934 -> 41842 bytes sources/BSP.LCOM | Bin 43003 -> 43064 bytes sources/CLSTREAMS | 288 ++++++++++++++++++++++----- sources/CLSTREAMS.LCOM | Bin 30989 -> 31606 bytes sources/COREIO.LCOM | Bin 17003 -> 17045 bytes sources/EXTERNALFORMAT | 350 ++++++++++++++++++++------------- sources/EXTERNALFORMAT.LCOM | Bin 9362 -> 10750 bytes sources/FILEIO | 147 +++++--------- sources/FILEIO.LCOM | Bin 45612 -> 44297 bytes sources/LEAF.LCOM | Bin 58478 -> 58494 bytes sources/LLINTERP | 295 ++++++++++----------------- sources/LLINTERP.LCOM | Bin 31375 -> 28090 bytes sources/LLKEY.LCOM | Bin 66305 -> 66381 bytes sources/NSFILING.LCOM | Bin 82048 -> 82043 bytes sources/SPP.LCOM | Bin 34377 -> 34454 bytes sources/TTYIN | 267 ++++++++++++------------- sources/TTYIN.LCOM | Bin 73461 -> 73519 bytes sources/UFS.LCOM | Bin 36883 -> 36959 bytes sources/XCCS | 33 ++-- sources/XCCS.LCOM | Bin 3426 -> 3100 bytes 28 files changed, 1037 insertions(+), 802 deletions(-) delete mode 100644 library/UNIXCOMM.DFASL create mode 100644 library/UNIXCOMM.LCOM diff --git a/library/TEXTOFD b/library/TEXTOFD index ddd818d2..a55e7a95 100644 --- a/library/TEXTOFD +++ b/library/TEXTOFD @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "22-Jun-2022 21:25:47"  -{DSK}kaplan>Local>medley3.5>working-medley>library>TEXTOFD.;20 183270 +(FILECREATED " 3-Jul-2022 00:35:48"  +{DSK}kaplan>Local>medley3.5>working-medley>library>TEXTOFD.;22 183404 - :CHANGES-TO (FNS OPENTEXTSTREAM) + :CHANGES-TO (FNS \TEXTINIT) - :PREVIOUS-DATE " 4-Jun-2022 15:43:05" -{DSK}kaplan>Local>medley3.5>working-medley>library>TEXTOFD.;19) + :PREVIOUS-DATE " 2-Jul-2022 23:48:56" +{DSK}kaplan>Local>medley3.5>working-medley>library>TEXTOFD.;21) (* ; " @@ -686,7 +686,8 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor (RETURN PC]) (\TEXTINIT - [LAMBDA NIL (* ; "Edited 5-May-2022 15:12 by rmk") + [LAMBDA NIL (* ; "Edited 3-Jul-2022 00:34 by rmk") + (* ; "Edited 5-May-2022 15:12 by rmk") (* ; "Edited 7-Oct-2021 08:40 by rmk:") (* ;  "Create the FDEV and STREAM prototypes for TEXT streams.") @@ -724,6 +725,12 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor IMCHARWIDTH _ (FUNCTION \TEXTDSPCHARWIDTH) IMSTRINGWIDTH _ (FUNCTION \TEXTDSPSTRINGWIDTH) IMSCALE _ (FUNCTION (LAMBDA NIL 1] + + (* ;; "Maybe more functions later?") + + (MAKE-EXTERNALFORMAT :TEDIT NIL NIL NIL (FUNCTION \TEDITOUTCCODEFN) + NIL + 'CR NIL NIL T) (SETQ \TEXTFDEV (create FDEV DEVICENAME _ 'TEXT RESETABLE _ T @@ -756,7 +763,8 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor FDBOUTABLE _ NIL FDEXTENDABLE _ NIL TRUNCATEFILE _ (FUNCTION NILL) - WRITEPAGES _ (FUNCTION NILL))) + WRITEPAGES _ (FUNCTION NILL) + DEFAULTEXTERNALFORMAT _ :TEDIT)) (* ;; "The prototypical Text stream") @@ -778,13 +786,6 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor IMAGEOPS _ \TEXTIMAGEOPS IMAGEDATA _ (create TEXTIMAGEDATA))) - (* ;; "Maybe more functions later?") - - (MAKE-EXTERNALFORMAT :TEDIT NIL NIL NIL (FUNCTION \TEDITOUTCCODEFN) - NIL - 'CR) - (\EXTERNALFORMAT \TEXTOFD :TEDIT) - (* ;; "Set up so that FILE NOT OPENs on TEdit streams are caught and fixed.") (CL:SETF (CONDITION-HANDLER 'XCL:STREAM-NOT-OPEN) @@ -2732,25 +2733,25 @@ Copyright (c) 1983-1991, 1993-1995, 1999-2001, 2021 by John Sybalsky & Xerox Cor (PUTPROPS TEXTOFD COPYRIGHT ("John Sybalsky & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 1993 1994 1995 1999 2000 2001 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2996 53635 (COPYTEXTSTREAM 3006 . 6128) (OPENTEXTSTREAM 6130 . 21397) (REOPENTEXTSTREAM - 21399 . 21821) (TEDIT.STREAMCHANGEDP 21823 . 22121) (TEXTSTREAMP 22123 . 22437) (TXTFILE 22439 . -22884) (\DELETECH 22886 . 34142) (\SETUPGETCH 34144 . 41423) (\TEDIT.REOPEN.STREAM 41425 . 43275) ( -\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 43277 . 45715) (\TEXTINIT 45717 . 51528) (\TEXTMARK 51530 . 52278) ( -\TEXTTTYBOUT 52280 . 53633)) (53636 79068 (\INSERTCH 53646 . 77372) (\INSERTCR 77374 . 79066)) (79134 -99450 (\CHTOPC 79144 . 80333) (\CHTOPCNO 80335 . 81597) (\CLEARPCTB 81599 . 82395) ( -\CREATEPIECEORSTREAM 82397 . 85371) (\DELETEPIECE 85373 . 86286) (\FINDPIECE 86288 . 86654) ( -\INSERTPIECE 86656 . 89666) (\MAKEPCTB 89668 . 91583) (\SPLITPIECE 91585 . 98544) (\INSERT.FIRST.PIECE - 98546 . 99448)) (99502 123740 (\TEXTCLOSEF 99512 . 100739) (\TEXTCLOSEF-SUBTREE 100741 . 101447) ( -\TEXTDSPFONT 101449 . 102441) (\TEXTEOFP 102443 . 103802) (\TEXTGETEOFPTR 103804 . 104014) ( -\TEXTGETFILEPTR 104016 . 106079) (\TEXTOPENF 106081 . 106911) (\TEXTOPENF-SUBTREE 106913 . 107714) ( -\TEXTOUTCHARFN 107716 . 108064) (\TEXTBACKFILEPTR 108066 . 113967) (\TEXTBOUT 113969 . 117317) ( -\TEDITOUTCCODEFN 117319 . 118585) (\TEXTSETEOF 118587 . 119096) (\TEXTSETFILEPTR 119098 . 120323) ( -\TEXTDSPXPOSITION 120325 . 121182) (\TEXTDSPYPOSITION 121184 . 121729) (\TEXTLEFTMARGIN 121731 . -122214) (\TEXTRIGHTMARGIN 122216 . 123152) (\TEXTDSPCHARWIDTH 123154 . 123392) (\TEXTDSPSTRINGWIDTH -123394 . 123634) (\TEXTDSPLINEFEED 123636 . 123738)) (123741 161578 (\TEXTBIN 123751 . 144630) ( -\TEDIT.TEXTBIN.STRINGSETUP 144632 . 150345) (\TEDIT.TEXTBIN.FILESETUP 150347 . 156733) ( -\TEDIT.TEXTBIN.NEW.PAGE 156735 . 161576)) (161579 177341 (\TEXTPEEKBIN 161589 . 173082) ( -\TEDIT.PEEKBIN.NEW.PAGE 173084 . 177339)) (177379 182597 (CGETTEXTPROP 177389 . 177865) (CTEXTPROP -177867 . 180211) (GETTEXTPROP 180213 . 180808) (PUTTEXTPROP 180810 . 182135) (TEXTPROP 182137 . 182595 + (FILEMAP (NIL (2991 53769 (COPYTEXTSTREAM 3001 . 6123) (OPENTEXTSTREAM 6125 . 21392) (REOPENTEXTSTREAM + 21394 . 21816) (TEDIT.STREAMCHANGEDP 21818 . 22116) (TEXTSTREAMP 22118 . 22432) (TXTFILE 22434 . +22879) (\DELETECH 22881 . 34137) (\SETUPGETCH 34139 . 41418) (\TEDIT.REOPEN.STREAM 41420 . 43270) ( +\TEDIT.COPYTEXTSTREAM.PIECEMAPFN 43272 . 45710) (\TEXTINIT 45712 . 51662) (\TEXTMARK 51664 . 52412) ( +\TEXTTTYBOUT 52414 . 53767)) (53770 79202 (\INSERTCH 53780 . 77506) (\INSERTCR 77508 . 79200)) (79268 +99584 (\CHTOPC 79278 . 80467) (\CHTOPCNO 80469 . 81731) (\CLEARPCTB 81733 . 82529) ( +\CREATEPIECEORSTREAM 82531 . 85505) (\DELETEPIECE 85507 . 86420) (\FINDPIECE 86422 . 86788) ( +\INSERTPIECE 86790 . 89800) (\MAKEPCTB 89802 . 91717) (\SPLITPIECE 91719 . 98678) (\INSERT.FIRST.PIECE + 98680 . 99582)) (99636 123874 (\TEXTCLOSEF 99646 . 100873) (\TEXTCLOSEF-SUBTREE 100875 . 101581) ( +\TEXTDSPFONT 101583 . 102575) (\TEXTEOFP 102577 . 103936) (\TEXTGETEOFPTR 103938 . 104148) ( +\TEXTGETFILEPTR 104150 . 106213) (\TEXTOPENF 106215 . 107045) (\TEXTOPENF-SUBTREE 107047 . 107848) ( +\TEXTOUTCHARFN 107850 . 108198) (\TEXTBACKFILEPTR 108200 . 114101) (\TEXTBOUT 114103 . 117451) ( +\TEDITOUTCCODEFN 117453 . 118719) (\TEXTSETEOF 118721 . 119230) (\TEXTSETFILEPTR 119232 . 120457) ( +\TEXTDSPXPOSITION 120459 . 121316) (\TEXTDSPYPOSITION 121318 . 121863) (\TEXTLEFTMARGIN 121865 . +122348) (\TEXTRIGHTMARGIN 122350 . 123286) (\TEXTDSPCHARWIDTH 123288 . 123526) (\TEXTDSPSTRINGWIDTH +123528 . 123768) (\TEXTDSPLINEFEED 123770 . 123872)) (123875 161712 (\TEXTBIN 123885 . 144764) ( +\TEDIT.TEXTBIN.STRINGSETUP 144766 . 150479) (\TEDIT.TEXTBIN.FILESETUP 150481 . 156867) ( +\TEDIT.TEXTBIN.NEW.PAGE 156869 . 161710)) (161713 177475 (\TEXTPEEKBIN 161723 . 173216) ( +\TEDIT.PEEKBIN.NEW.PAGE 173218 . 177473)) (177513 182731 (CGETTEXTPROP 177523 . 177999) (CTEXTPROP +178001 . 180345) (GETTEXTPROP 180347 . 180942) (PUTTEXTPROP 180944 . 182269) (TEXTPROP 182271 . 182729 ))))) STOP diff --git a/library/TEXTOFD.LCOM b/library/TEXTOFD.LCOM index f0fca7b67bdd39bd9921577f3e806f967c3646d6..f34f768b1c7214ed6d0458ba99524720c19811bd 100644 GIT binary patch delta 1222 zcmZuwO>fgc5UooEQbZ3RpuK=bK}ZcE(R#hR{@{RIXPu^XY|GxX1?57UidGb;3P>C( zg`WV*mEXVti*v8^SMW0sH)fOV7pgDz%+9{|=FRw5HT%1o{jzZfoaXAs{U#-p0wICJ z1Ll2wy)mKZV-3N&f!5#xHG@NBu!R+70P0Aq$0wJ*}tDZd>SQe|kHD6d( zQ2l8gTZ^w|@Yx*>r*9MO&DW|QWX`g7tMB#$>+vmXW@UI%yRK_bc7NWOl+|=}ymEVb zbs8;qFjGd6DH{6YjvElq!rOS(X?(J`B)OS)^eSXGJemz+3{oa7{KZ=g~Tw zxa@oc*aTw;A^h=YXJI55Y(_~?D)hG3Of%KYa+zvMq|jr_;xD31hnO>8dtBtX@QIG1h}xc_pW`af*2LT zLr$$;W^oR}HNAGE(z0_^j6et^)FqhIRjL4?H$kUzDc4XH2pr}lfrREF2nVguMayBd zc9x_@fv|A|`c(grAt9~+L5w5ZH;!84(44o7p>^tjdYTs}MkCTxfbV0^-Y W)*?(4Ww?Wab6ea-)5rNnMMM6kVK}d~6teLUL9(#ivXPlZkwq-kQL0Ql?Ra*fC@v~~B ztl6MeJpxDY0lGu%I06UY1nhX@OxhI4Vlwl+zwdqT`DfMqUNw)`?=aSV_UWL@2xGvg z$GB%XC$HA0qyz0m8+AQXc$~MPwe@~y`|X=|`>%HS=n4o7hei%AT_Xv1XlBL@DH-1P`+cUsF~6w4rgApKJIFMFNSI~=40s4$sBzzbIV zWFU)fnZk0I6wta%qyt`-%e5#S72Q7Ogf>_g9aC)A^awvW44c%gjOOpoO~-`{2>66L zqB5V18x6BM?!IU=p!#K;HNJi$jp_%z*Wi=gEBI@v<7`Qt^?PqJ!}sdft?SD0QXMnz z)7$35Ep9?KDziMzfD+S$G3qAs#E-)?ANnPNRKU<*mEFG#u5e&n$kGo2Srn)iC6<7( z(mhI|5;ZyuT?Rpp|HM`( zdZeQ=2-3a`6L8)0FxOp(as`84TCRZ098lwnqeR9sc{)%Sb&+ws69zIcY6dPP{{aa_ zA<{zTd76W8*lFYL{i(1m-QUn3$TTZJsEmqn*q3YIh??pA<)9h^naDf}j9e!EP%1*; z*e)ayZlhxpec@DJET%7N5Erq2KLdwNvHBeAMYvuLV$Iw*n>8TQFasMWR<|>drQ({EIoPIddN7rx@=_SX!m8~|%2lKSHr1VDmGeM? z43tyP4_4kHHE zbE=E08Hd1$-pnAzp@v|&x_S>)!xyeV%@kX)gf4Dz3ls>J<-pOktKkitarr!xkB+L( H_S*Iz3!pE* diff --git a/library/UNICODE b/library/UNICODE index e7b12cc8..b49f8414 100644 --- a/library/UNICODE +++ b/library/UNICODE @@ -1,9 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "30-Sep-2021 16:03:18"  -{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;194 64783 - previous date%: "21-Aug-2021 13:13:04" -{DSK}kaplan>Local>medley3.5>git-medley>library>UNICODE.;193) +(FILECREATED "28-Jun-2022 00:02:58"  +{DSK}kaplan>Local>medley3.5>working-medley>library>UNICODE.;195 64708 + + :CHANGES-TO (FNS NUTF8CODEBYTES) + + :PREVIOUS-DATE "30-Sep-2021 16:03:18" +{DSK}kaplan>Local>medley3.5>working-medley>library>UNICODE.;194) (PRETTYCOMPRINT UNICODECOMS) @@ -469,17 +472,15 @@ (DECLARE%: EVAL@COMPILE (PUTPROPS UNICODE.TRANSLATE MACRO [OPENLAMBDA (CODE TRANSLATION-TABLE) - (LET [(X (CL:SVREF TRANSLATION-TABLE (LRSH CODE - TRANSLATION-SHIFT - ] - (COND - ((LISTP X) - (OR (CDR (FASSOC (LOGAND CODE TRANSLATION-SHIFT) - X)) - CODE)) - [(AND X (CL:SVREF X (LOGAND CODE TRANSLATION-MASK + (LET [(X (CL:SVREF TRANSLATION-TABLE (LRSH CODE TRANSLATION-SHIFT ] - (T (UNICODE.UNMAPPED CODE TRANSLATION-TABLE]) + (COND + ((LISTP X) + (OR (CDR (FASSOC (LOGAND CODE TRANSLATION-SHIFT) + X)) + CODE)) + [(AND X (CL:SVREF X (LOGAND CODE TRANSLATION-MASK] + (T (UNICODE.UNMAPPED CODE TRANSLATION-TABLE]) ) ) (DEFINEQ @@ -832,7 +833,7 @@ (RPAQ? UNICODEDIRECTORIES NIL) (PUSHNEW UNICODEDIRECTORIES (PACK* (UNIX-GETENV "MEDLEYDIR") - '/unicode/xerox/)) + '/unicode/xerox/)) @@ -983,7 +984,7 @@ ) (RPAQ? DEFAULT-XCCS-CHARSETS '(LATIN SYMBOLS1 SYMBOLS2 EXTENDED-LATIN FORMS SYMBOLS3 SYMBOLS4 - ACCENTED-LATIN GREEK)) + ACCENTED-LATIN GREEK)) (DECLARE%: DONTEVAL@LOAD DOCOPY (MAKE-UNICODE-TRANSLATION-TABLES (READ-UNICODE-MAPPING DEFAULT-XCCS-CHARSETS T) @@ -1059,21 +1060,22 @@ ELSE (ERROR "CHARCODE too big for UTF8" CHARCODE]) (NUTF8CODEBYTES - [LAMBDA (N) (* ; "Edited 10-Aug-2020 12:35 by rmk:") + [LAMBDA (N) (* ; "Edited 28-Jun-2022 00:02 by rmk") + (* ; "Edited 10-Aug-2020 12:35 by rmk:") (* ;; "Returns the number of bytes needed to encode N in UTF8, ") (IF (ILESSP N 128) THEN 1 ELSEIF (ILESSP N 2048) - THEN (* ; "x800") - 4 + THEN (* ; "x800") + 2 ELSEIF (ILESSP N 65536) - THEN (* ; "x10000") - 3 + THEN (* ; "x10000") + 3 ELSEIF (ILESSP N 2097152) - THEN (* ; "x200000") - 2 + THEN (* ; "x200000") + 4 ELSE (SHOULDNT]) (NUTF8STRINGBYTES @@ -1205,15 +1207,15 @@ ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4046 17726 (UTF8.OUTCHARFN 4056 . 6887) (UTF8.INCCODEFN 6889 . 12379) (UTF8.PEEKCCODEFN - 12381 . 17155) (\UTF8.BACKCCODEFN 17157 . 17724)) (17727 21053 (UTF16BE.OUTCHARFN 17737 . 18561) ( -UTF16BE.INCCODEFN 18563 . 19462) (UTF16BE.PEEKCCODEFN 19464 . 20535) (\UTF16.BACKCCODEFN 20537 . 21051 -)) (21083 22891 (MAKE-UNICODE-FORMATS 21093 . 22889)) (22988 24294 (UNICODE.UNMAPPED 22998 . 24292)) ( -24295 24831 (XCCS-UTF8-AFTER-OPEN 24305 . 24829)) (25901 26250 (XTOUCODE 25911 . 26079) (UTOXCODE -26081 . 26248)) (26290 42412 (READ-UNICODE-MAPPING-FILENAMES 26300 . 27401) (READ-UNICODE-MAPPING -27403 . 30701) (WRITE-UNICODE-MAPPING 30703 . 34920) (WRITE-UNICODE-INCLUDED 34922 . 39644) ( -WRITE-UNICODE-MAPPING-HEADER 39646 . 40878) (WRITE-UNICODE-MAPPING-FILENAME 40880 . 42410)) (45749 -54228 (MAKE-UNICODE-TRANSLATION-TABLES 45759 . 54226)) (54649 62553 (HEXSTRING 54659 . 55820) ( -UTF8HEXSTRING 55822 . 58027) (NUTF8CODEBYTES 58029 . 58692) (NUTF8STRINGBYTES 58694 . 59175) ( -XTOUSTRING 59177 . 62188) (XCCSSTRING 62190 . 62551)) (62554 64023 (SHOWCHARS 62564 . 64021))))) + (FILEMAP (NIL (4094 17774 (UTF8.OUTCHARFN 4104 . 6935) (UTF8.INCCODEFN 6937 . 12427) (UTF8.PEEKCCODEFN + 12429 . 17203) (\UTF8.BACKCCODEFN 17205 . 17772)) (17775 21101 (UTF16BE.OUTCHARFN 17785 . 18609) ( +UTF16BE.INCCODEFN 18611 . 19510) (UTF16BE.PEEKCCODEFN 19512 . 20583) (\UTF16.BACKCCODEFN 20585 . 21099 +)) (21131 22939 (MAKE-UNICODE-FORMATS 21141 . 22937)) (23036 24342 (UNICODE.UNMAPPED 23046 . 24340)) ( +24343 24879 (XCCS-UTF8-AFTER-OPEN 24353 . 24877)) (25712 26061 (XTOUCODE 25722 . 25890) (UTOXCODE +25892 . 26059)) (26101 42223 (READ-UNICODE-MAPPING-FILENAMES 26111 . 27212) (READ-UNICODE-MAPPING +27214 . 30512) (WRITE-UNICODE-MAPPING 30514 . 34731) (WRITE-UNICODE-INCLUDED 34733 . 39455) ( +WRITE-UNICODE-MAPPING-HEADER 39457 . 40689) (WRITE-UNICODE-MAPPING-FILENAME 40691 . 42221)) (45556 +54035 (MAKE-UNICODE-TRANSLATION-TABLES 45566 . 54033)) (54452 62478 (HEXSTRING 54462 . 55623) ( +UTF8HEXSTRING 55625 . 57830) (NUTF8CODEBYTES 57832 . 58617) (NUTF8STRINGBYTES 58619 . 59100) ( +XTOUSTRING 59102 . 62113) (XCCSSTRING 62115 . 62476)) (62479 63948 (SHOWCHARS 62489 . 63946))))) STOP diff --git a/library/UNICODE.LCOM b/library/UNICODE.LCOM index 1204a0dd15a7f20592320a82492d9ce4ef4b25b7..984aecf4752e70efd37e95943813aa46479a92b3 100644 GIT binary patch delta 409 zcmaF5hH=(f#t9zETpDhkKCaF|u8twDE(%IU7P?-gdAddhMn(z-237_}R;Cscv&`7b z^NX@G^U^23WR$Kq)dZ?DN2oJ0ure{VGBj3F;7Te=P0r6P$jnJiQAn*QC@NO9Qt%56 zakFstcX4%!3~>!s$jnnvatrnGQ9w3APft%tAtkW{s12LZ7D}23cS_=P=;Q;8YRE42 zGgUA%F*mSKuyXcr^mBI&)(!Dj&~Wn$R^UQ)l%|4JK#*&gr+;X$t_v_A6qJk&bc0h1 zK;dAhU}$D#U~FY*fo?pb$!1n29xD$ffqVuaaQHYWhZ(_S5#Ruc3NUDx7%2pM_=ozq n_=RY4`FZ+qX($*QDi|49nj4xL0ciy@Q&VFzO|H$6Hat=QGUsTO delta 355 zcmbQWmhtHt#t9xu8g8CGuFgTOjv=lt3QEQXy1}Uhx<&>@h6;veRtCma#>Nw~&6v|O zOD4-P$<`|<8CfD!7#Ud^Sy&kwDJdisr6%X+7G&n6rf?~wRumK!t6C}K<(Fh+=A|oS z<|!z-h5Gm?AnVoB(^FDNNi0cC!D^<3k|r0X(}YmnW@w?LFtJV<>N*)+E(J3aa|>gI zf}+&2%>2?~u=zlTC>a^*I+mtGy=81=Xl!L*GWjE;8dRq=qw!`dCLSvf7J+;QAaM9N zDTf)sWD?*2i3%`im>4Mpd-#X?xcG%=^7?uD@Mlarry>medley>library>UNIXCOMM.;42 20362 - changes to%: (FNS CREATE-PROCESS-STREAM) - (VARS UNIXCOMMCOMS) +(FILECREATED " 3-Jul-2022 16:16:31"  +{DSK}kaplan>Local>medley3.5>working-medley>library>UNIXCOMM.;5 20396 - previous date%: "26-Jun-2022 14:27:33" {DSK}larry>medley>library>UNIXCOMM.;41) + :CHANGES-TO (FNS INITIALIZE-SHELL-DEVICE) + + :PREVIOUS-DATE " 3-Jul-2022 16:05:06" +{DSK}kaplan>Local>medley3.5>working-medley>library>UNIXCOMM.;3) (* ; " @@ -13,39 +15,37 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. (PRETTYCOMPRINT UNIXCOMMCOMS) -(RPAQQ UNIXCOMMCOMS ( - (* ;; "streams to UNIX processes & pseudo terminals") +(RPAQQ UNIXCOMMCOMS + ( + (* ;; "streams to UNIX processes & pseudo terminals") - - (* ;; - "this stuff should really be implemented in terms of {SHELL} and {PTY} devices") + + (* ;; "this stuff should really be implemented in terms of {SHELL} and {PTY} devices") - (COMS (* ; "Forking stuff") - (FNS FORK-SHELL FORK-UNIX UNIX-KILL UNIX-WRITE CREATE-SHELL-STREAM - CREATE-PROCESS-STREAM UNIXCOMM-AROUNDEXITFN)) - [COMS (* ; "Operations on the shell device") - (FNS INITIALIZE-NEW-SHELL-DEVICE UNIX-GET-NEXT-BUFFER - UNIX-BACKFILEPTR-NEW UNIX-STREAM-EOFP-NEW UNIX-STREAM-OUT - UNIX-STREAM-CLOSE) - (GLOBALVARS *NEW-SHELL-DEVICE*) - (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITIALIZE-NEW-SHELL-DEVICE)) - (ADDVARS (AROUNDEXITFNS UNIXCOMM-AROUNDEXITFN] - (COMS (* ; - "Stuff for direct manipulation of Unix sockets") - (FNS CREATE-UNIX-SOCKET-STREAM ACCEPT-UNIX-SOCKET-STREAM)) - (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNIX-CHANNEL) - (P (CHECKIMPORTS '(FILEIO LLSUBRS) - T))) - [COMS - (* ;; "Obsolete stuff. This is for pre-Medley1.2, where there wasn't support for buffered input on the shell device") + (COMS (* ; "Forking stuff") + (FNS FORK-SHELL FORK-UNIX UNIX-KILL UNIX-WRITE CREATE-SHELL-STREAM + CREATE-PROCESS-STREAM UNIXCOMM-AROUNDEXITFN)) + [COMS (* ; "Operations on the shell device") + (FNS INITIALIZE-NEW-SHELL-DEVICE UNIX-GET-NEXT-BUFFER UNIX-BACKFILEPTR-NEW + UNIX-STREAM-EOFP-NEW UNIX-STREAM-OUT UNIX-STREAM-CLOSE) + (GLOBALVARS *NEW-SHELL-DEVICE*) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITIALIZE-NEW-SHELL-DEVICE)) + (ADDVARS (AROUNDEXITFNS UNIXCOMM-AROUNDEXITFN] + (COMS (* ; + "Stuff for direct manipulation of Unix sockets") + (FNS CREATE-UNIX-SOCKET-STREAM ACCEPT-UNIX-SOCKET-STREAM)) + (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNIX-CHANNEL) + (P (CHECKIMPORTS '(FILEIO LLSUBRS) + T))) + [COMS + (* ;; "Obsolete stuff. This is for pre-Medley1.2, where there wasn't support for buffered input on the shell device") - (FNS UNIX-BACKFILEPTR UNIX-READ INITIALIZE-SHELL-DEVICE UNIX-STREAM-IN - UNIX-STREAM-EOFP UNIX-STREAM-PEEK) - (GLOBALVARS *SHELL-DEVICE*) - (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNIX-PEEKEDCHAR UNIX-LASTCHAR - )) - (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITIALIZE-SHELL-DEVICE] - (PROP FILETYPE UNIXCOMM))) + (FNS UNIX-BACKFILEPTR UNIX-READ INITIALIZE-SHELL-DEVICE UNIX-STREAM-IN UNIX-STREAM-EOFP + UNIX-STREAM-PEEK) + (GLOBALVARS *SHELL-DEVICE*) + (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS UNIX-PEEKEDCHAR UNIX-LASTCHAR)) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P (INITIALIZE-SHELL-DEVICE] + (PROP FILETYPE UNIXCOMM))) @@ -131,15 +131,21 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. STR]) (CREATE-PROCESS-STREAM - [LAMBDA (COMM) (* ; "Edited 26-Jun-2022 13:52 by larry") - (* ; - "Edited 26-Jun-2022 13:31 by lmm - set external format of shell stream to utf-8 ??") - (* ; "Edited 21-May-90 15:39 by jrb:") + [LAMBDA (COMM) + + (* ;; "Edited 3-Jul-2022 16:04 by rmk: Removed external format here, the device has the environmental defaultg") + + (* ;; "Edited 26-Jun-2022 13:52 by larry") + + (* ;; "Edited 26-Jun-2022 13:31 by lmm - set external format of shell stream to utf-8 ??") + + (* ;; "Edited 21-May-90 15:39 by jrb:") + (LET* ((SHELL-DEV (if (AND (BOUNDP '*NEW-SHELL-DEVICE) - (SUBRCALL UNIX-HANDLECOMM 8)) - then (* ; - "SUBRCALL tests that this is supported") - *NEW-SHELL-DEVICE* + (SUBRCALL UNIX-HANDLECOMM 8)) + then (* ; + "SUBRCALL tests that this is supported") + *NEW-SHELL-DEVICE* else *SHELL-DEVICE*)) (STR (create STREAM ACCESS _ 'BOTH @@ -148,15 +154,13 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. (CHAN (FORK-UNIX COMM))) (if CHAN then (CL:SETF (UNIX-CHANNEL STR) - CHAN) - (AND (STRPOS ".UTF-8" (UNIX-GETENV "LANG")) - (\EXTERNALFORMAT STR ':UTF-8)) + CHAN) - (* ;; "JRB - In a future release, make *SHELL-DEVICE* below SHELL-DEV, or just remove *SHELL-DEVICE* altogether. Must also hack UNIX-STREAM-CLOSE and the aroundexitfn for Unix streams.") + (* ;; "JRB - In a future release, make *SHELL-DEVICE* below SHELL-DEV, or just remove *SHELL-DEVICE* altogether. Must also hack UNIX-STREAM-CLOSE and the aroundexitfn for Unix streams.") - (push (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*) - STR) - STR + (push (fetch (FDEV OPENFILELST) of *SHELL-DEVICE*) + STR) + STR else NIL]) (UNIXCOMM-AROUNDEXITFN @@ -183,7 +187,8 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. (DEFINEQ (INITIALIZE-NEW-SHELL-DEVICE - [LAMBDA NIL (* ; "Edited 12-Feb-90 17:00 by bvm") + [LAMBDA NIL (* ; "Edited 3-Jul-2022 16:04 by rmk") + (* ; "Edited 12-Feb-90 17:00 by bvm") (SETQ *NEW-SHELL-DEVICE* (create FDEV FDBINABLE _ T NODIRECTORIES _ T @@ -197,7 +202,10 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. EOFP _ (FUNCTION UNIX-STREAM-EOFP-NEW) BACKFILEPTR _ (FUNCTION UNIX-BACKFILEPTR-NEW) GETNEXTBUFFER _ (FUNCTION UNIX-GET-NEXT-BUFFER) - BLOCKIN _ (FUNCTION \BUFFERED.BINS]) + BLOCKIN _ (FUNCTION \BUFFERED.BINS) + DEFAULTEXTERNALFORMAT _ (AND (STRPOS ".UTF-8" (UNIX-GETENV "LANG" + )) + :UTF-8]) (UNIX-GET-NEXT-BUFFER [LAMBDA (STREAM WHATFOR NOERRORFLG) (* ; @@ -329,7 +337,7 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -(PUTPROPS UNIX-CHANNEL MACRO ((STR) +(PUTPROPS UNIX-CHANNEL MACRO ((STR) (fetch (STREAM F1) of STR))) ) @@ -375,7 +383,8 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. CH]) (INITIALIZE-SHELL-DEVICE - [LAMBDA NIL (* ; "Edited 14-Dec-88 10:45 by bane") + [LAMBDA NIL (* ; "Edited 3-Jul-2022 16:15 by rmk") + (* ; "Edited 14-Dec-88 10:45 by bane") (SETQ *SHELL-DEVICE* (create FDEV NODIRECTORIES _ T DEVICENAME _ 'UNIX-PTY @@ -386,7 +395,9 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. GETFILEINFO _ 'NILL SETFILEINFO _ 'NILL EOFP _ 'UNIX-STREAM-EOFP - BACKFILEPTR _ 'UNIX-BACKFILEPTR]) + BACKFILEPTR _ 'UNIX-BACKFILEPTR + DEFAULTEXTERNALFORMAT _ (AND (STRPOS ".UTF-8" (UNIX-GETENV "LANG")) + :UTF-8]) (UNIX-STREAM-IN [LAMBDA (STREAM) (* ; "Edited 9-May-88 15:05 by ") @@ -430,10 +441,10 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. (DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: EVAL@COMPILE -(PUTPROPS UNIX-PEEKEDCHAR MACRO ((STR) +(PUTPROPS UNIX-PEEKEDCHAR MACRO ((STR) (FETCH (STREAM F2) OF STR))) -(PUTPROPS UNIX-LASTCHAR MACRO ((STR) +(PUTPROPS UNIX-LASTCHAR MACRO ((STR) (FETCH (STREAM F3) OF STR))) ) ) @@ -442,15 +453,15 @@ Copyright (c) 1988-1990, 2018, 2022 by Venue & Xerox Corporation. (INITIALIZE-SHELL-DEVICE) ) -(PUTPROPS UNIXCOMM FILETYPE FAKE-COMPILE-FILE) +(PUTPROPS UNIXCOMM FILETYPE FAKE-COMPILE-FILE) (PUTPROPS UNIXCOMM COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 2018 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (2975 9114 (FORK-SHELL 2985 . 4182) (FORK-UNIX 4184 . 4360) (UNIX-KILL 4362 . 4551) ( -UNIX-WRITE 4553 . 5264) (CREATE-SHELL-STREAM 5266 . 6582) (CREATE-PROCESS-STREAM 6584 . 8211) ( -UNIXCOMM-AROUNDEXITFN 8213 . 9112)) (9162 14150 (INITIALIZE-NEW-SHELL-DEVICE 9172 . 10265) ( -UNIX-GET-NEXT-BUFFER 10267 . 12467) (UNIX-BACKFILEPTR-NEW 12469 . 12948) (UNIX-STREAM-EOFP-NEW 12950 - . 13496) (UNIX-STREAM-OUT 13498 . 13754) (UNIX-STREAM-CLOSE 13756 . 14148)) (14406 16271 ( -CREATE-UNIX-SOCKET-STREAM 14416 . 15277) (ACCEPT-UNIX-SOCKET-STREAM 15279 . 16269)) (16612 19791 ( -UNIX-BACKFILEPTR 16622 . 17120) (UNIX-READ 17122 . 17644) (INITIALIZE-SHELL-DEVICE 17646 . 18385) ( -UNIX-STREAM-IN 18387 . 18763) (UNIX-STREAM-EOFP 18765 . 19539) (UNIX-STREAM-PEEK 19541 . 19789))))) + (FILEMAP (NIL (2488 8459 (FORK-SHELL 2498 . 3695) (FORK-UNIX 3697 . 3873) (UNIX-KILL 3875 . 4064) ( +UNIX-WRITE 4066 . 4777) (CREATE-SHELL-STREAM 4779 . 6095) (CREATE-PROCESS-STREAM 6097 . 7556) ( +UNIXCOMM-AROUNDEXITFN 7558 . 8457)) (8507 13875 (INITIALIZE-NEW-SHELL-DEVICE 8517 . 9990) ( +UNIX-GET-NEXT-BUFFER 9992 . 12192) (UNIX-BACKFILEPTR-NEW 12194 . 12673) (UNIX-STREAM-EOFP-NEW 12675 . +13221) (UNIX-STREAM-OUT 13223 . 13479) (UNIX-STREAM-CLOSE 13481 . 13873)) (14131 15996 ( +CREATE-UNIX-SOCKET-STREAM 14141 . 15002) (ACCEPT-UNIX-SOCKET-STREAM 15004 . 15994)) (16345 19805 ( +UNIX-BACKFILEPTR 16355 . 16853) (UNIX-READ 16855 . 17377) (INITIALIZE-SHELL-DEVICE 17379 . 18399) ( +UNIX-STREAM-IN 18401 . 18777) (UNIX-STREAM-EOFP 18779 . 19553) (UNIX-STREAM-PEEK 19555 . 19803))))) STOP diff --git a/library/UNIXCOMM.DFASL b/library/UNIXCOMM.DFASL deleted file mode 100644 index 33a260c9cf9f99119d222ddb0ba1974967f3ea37..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 8456 zcmcgyeQaCTb${=XqP}I)Vr=;{Of1W;V=A&{*QuSldLkdiCqD9VB;`o5l1a8{Q#SPh zQc7y1!t5f;){IFiySCr69rR=W4x8$~?6|2Gtm|xSMmlWSu(rUu0V@VH7`%4Fu%(^% zJLf)<&mRdeV4Gp{o_p@S=bn4dx##@ueO{KDMk7WjGB-0nUCft4bBhb}iwmI>bEQyu zZn1PMA36bk=+$U8vGjalZYF=II8`d0IW&_$Ud*34RGdCqnnHCXrH@9;WU}|*-u{-X zYv8d`erh3qJk-BGJiIs??(ggG5AFHvfxY_<^zChlsaZqFuXan$%^sgRvm4z*=$;Qz z|K0Tg_usKDDcj~G{5e_sX(cKUkeS^~6~Cm&*2PLkOgFShMpJWI)G#B8WW8PS@5<)X zR8-AG!+I(`lG|lf{Ch$RbMxV1{^fj;7Cxgug!R=*Q*0y^$?0awx*(rbwm_gis>Sq_ z7ACnE9y9%r=rz+?N@>LapE;6)NFT`NsGiYyu+n8+AWmaijU?0|&8jr(shpNE^lX|s zLcM5C9W)+p@D8e3twpvfzE@L=#p05LrAtrMSIw*CrLQu%UM$?I1o|IZPMKP453NG> zV-=0iF`Y5fo=vE zl@~I4PD8CzIFc9_&gNjZB-l?lY;0&m%Vu2-G@6b?Sk0Itsi-!p=VEZB278OxiLF*; zt2v)9O)X5%&0>vMY$1;g$rp>x+N=wW_EVT+lb+IZx@zd-S~#V>;HVJQ4(k!pEXaBe zX*o2G=E8#`v6z;r@dx2{WYTmlLxXF4v4XH>#?lUd4a;%(aAkB2xLFay%xcyJ1^kvF z!yHtN!)k^$bnUK(wc3SsqM<3OMGQ5g9RS@PHR1M$Rb#*~)hHOgs2MTSV?v;uhI`s! zQE618Q5MZ}wY&E(Ywx7pt8ZaA%YH=h>iBdie{3N%Gc`LszgXmLCC?d|o&F+X*|F34 z1@=MO(G8B(#PZBY0-IMe=>|0t!FGio(+KPB$M7~@2aKD>#-iRtYpXBDmsBGelXiwr zS2z+^Qz^~B;_L&$UE3mYEt1faX)}|9+bRen4Zl8O!qIriJ~EhYLO`QoWJd-w*>eaY z)m7sN&6r2abH)4u{Dqd^8w%ytbd1|0Ekq*X*Z}wDe-r(xQBQZ?SdYde^`o zQ%F8Pu+lle`N~Jt*Eo!;msD46Y0={cM&Y8mBtD-#5psB@7X;H+lj5@Z( zKGR{JQTA9BX&e4wRokpfa@(l^)^=%8fnubK2L`pbftDRL6nnv5vR^(Y$sYR*jqAp^ z_JPYq&%h~KUcniN2%bvW-4BiYGV14OH2z$(w_BGyI|F{{w3t=w6oiakJasDmxA)E# zE;muf)s>&b0Rc#z4ns=~<>FzA;yEqFd*?wALP8Xxx67^_gQ|i{zprCjc`IZz3<5kP zls1sQY*IChw2!;JK`QlFmwf0gKRckd(A;e1i<3mY#=ikYj(_Xh@|wcC#nvZ}d?%p? zTUHH}v-j`c-NzJnySta^La?99!@*uIIo}6&x#%7j-OaQZ-^ui;px-GwxIFzqTcAov z4$;&ny4>|~S#0{i+sITQsEC#il(nnI_^n}{otL$m2*?ddwskxhT;(abmaLO^d>ezl z)npx_2z2r&gKVxe*h>u3nrjD}4d$g_3Fj%nLS+vDlGcfosV9M)%yic7@yT@uhq>U@ zFq4-oupNC{L^z=%O{^f>X_>6~Lu#GKYB>t-*{sKYIzT-_V0TiW=tWZ$2fR9elb$t(?OL90KjJ<=fk7aF`V#6!~NKkP{=e!==(Ci0&J z=O2*?d}0yA{g4I?nz{I^AQ;XXz@NgW=V+!0(YH5c=6VT-9%G4DDa|)eXvo)@jF~xz z+Qw>6Kv;Fe$n_@GQGpb)L3^^p-bc>7!@AUfY2|}#LykHZ*`d!C9&l+{D%^xO!$acm z<^)RiGa`gr6Ez9_CAc-wpI=z;&(GG#&Nk2L70Dd`Rx2x4cAasi@O_jQnweVzb=w z1!Pa+n+1PDhLsIA<7#I@xwZ0y;@M&V|_-w^j;mUAml%kRzns@Nd{ z;GH1S-Mw$To)n_v%8ivD>Mqk;Fg@vSDIV*5CAhu2JE^8|XUt>)GDilHZgbW$7MvZ+ z=CmaHMuT=(OXcjHSir+h@dt1U+ArywWPHZpu^7w$b{nxTh`C z!wkUjzX3+OU?kN9F&UZ)j$sa=OTQQ$wkIiywyH6Bo*2BbURMumhm##7o!cE*bR7@_ zgeZz5VO&+Ao1EYceRA|>{PYLXz^X2Y5ECK(K#1A z?xGL5=!}a_yXcgQj=ShV7cCYg)^fnb-{qp+>)q<&Z+6ieU38m^Zd%oyi@hCIU~L9f zXW;}JcVn|DA89maQ(Nby>4;Th#x2}4(wmK;S z77dpEwZ@hH3357Ia?~iLSLw$Oun}f*6qckP)CYbKJ^ZzSgu{_fsm~2G1SX)dHl!N8 z;+DWUTl#&pbWZ45PH7o>s^Nsq6MlmwzfS_b#&e4drbT-P^%T$jJ9h7v>}TigzT-lP zQBfFn{{YWe8$eeD4BBh&*@=esiCP1go52w`H#{`Z<(Q&atJg!>o4^6!?KQjCy3|OD zd|4Gy>iU8JrFRsk3m}dy36E2d6kTtHuY-#%mh|WR`)BY$&zCSq zQ#Njn7|~SjW!fZQj##hC4_{lj-&Y#*Tv|s&u~!tI;o^->QEL?iDdwfCB<=6BxF#HO zwo1iR$Z(z{44;t^RYHSVMmIiLi zzkyN?&Mkir9%BsbCn z!XbMnY@sD7&IedA_O8PikpFmi6%r$

Zll_G`ga?w35x|?Y+ zzLRM}#59f&F_nyn1p!3NEkMLn3Pem4A!2SJL_CaS%#-rQuj<7%VK88ufZ{c-e!Xanp%8H=VUr zFU9wRVmsonGB!SQ|K5@1#B0OLg|pMk0Cu-v+==%D+J|wIpxL-Y2;&kp2{q`tLo^we z$`?9dT_UR1tRNnQ3#A)D}50AxLJ`1z9Fh$>yooeRyI3|d>Vcoq?zJdM1&Z`rZNNA3Lc zs-6FyJF%T*;TUxFl_g=-|KwJ_4F8+pe8e2K^N*S2pWo%*E5FIb)v_o~a&c{#i+7%} z_tnn*HG2%vDB{?8-BovnaF|`!Hwem!Qg^zLPJ-(`F`bMlpAeQl&(nV>LeGa@;c}L^ zVp;3C(Q*`1_FI*n2UE)YR2lgte{yFSGQC#K}K%_&9c~Fjbm5 zh7T-=MdOG?U#K~=EXA)Cl{g!gUfIqT0->SoS$%-3?(A^HxgC6#ozJ-)xIyy&=cV9( z3;eq;6#vH;fg^A~*F|6>ouNKHF}T#DA~E*gR43Ok`5o%#sd1%$uaiHklYdty|B}h~ zNaCNu5!!1wz6!Q)afk0xhd-56tQ(HHWnri2OwebafLepercHp2i} zVq1S%+nAR={aCNVzH~e^8)2#~4`V9vgvO|k;nlBw^5w z`mjUKV9oSdEu#;`bMzU#vf*%kb}^5y%cJ?y+!yiR7E1Vz#h?1%WR2gWpFg3W@6*pe i(9cf+*dWS24Pk*8-aiPs(sw)liZ5M3A9?-#`~M9I=5Ol& diff --git a/library/UNIXCOMM.LCOM b/library/UNIXCOMM.LCOM new file mode 100644 index 0000000000000000000000000000000000000000..42200f18ec459d123161b16f604d01e2ef6277ae GIT binary patch literal 9174 zcmcIq&2JmW6(=dzahMNK4&wwtkWARrk&KYwE=7@4QbQ|pDXz8LWyqB*r9MP9>5w)h z3Zm2`NPH=BDtbxK4o@{c{95jF6Ddx zE+DLCXJ=;Ly!pNNe(x=3DrVJk%yiYV&9voIUG_}FD6bgHCQDh4XEtrC)kv{tnx;|l zj3qnNy=1gZre$a2@fp5C8N)oY!cr`kzO>&@>seiA+Wdl6SjZMrY$kPWu(i|cciL>Q zjY09ZE3K7VFYgaKyTgk&H+TA*+ZX$TYn%OxTb*{l^HwgCzxc*r_hxVV^|a`@*zaB4 z-Q0ca;;Lh=%VR#$DCsp4fanG|bp?m?)q z*nFKrYW5rUHouV5g1xM&d$GUsUYMTEmFC$(xn?-aW-INvY^Lh8Sln_f&oXT5RWseH znYNv-m}^$qoMj7*CR*-lD_w!=C%2Ga$j;v<>2lCSvthjQ3iGuO{kGW5%mwz+ODr|q z+wE*_4cXp+p0l0Z!L`nC*cr0(Y-iZnZx7gBXLqZ&z1bh8W|^23PwjPkLpI#ozkZz! zyMz6Hn_-!L|1Ea4!+Kjg{mxcrn;#Aik53=6!FBdF>EIUI+-|eC8{Wn(*6#echqv){ zg;059Q-zYxoJV00?$(8Ef46fv$*VRG~Ke< zYNchjuadOUbXT2>C-WN|jYsb7icHTm` zWz$PL=DL?&TCG;irs!OP*>apWye1xA7M()4wCPqG)ETGE$zFHW8yi)&-4+lvvuwLd zhP`GqTkJwufD3qDG0V2mG=H$bDlS~anqe>6u2I2V*==mFnFfo`D0mGo!IffEDzyHL zs;w4D!>u}`#BnvoQ!PTv^}#M{_jWti_Sn|uc5i3DPrBv!Sl#Zu$%cb#H#>U-34ZGG z*n|Sy@(Oh5pQuqTLv88FNBqUdyQQ5iu|PIGTUygE;U>TuBS>;WHqry0gPZY22Qd*0dYr0e7# zwT%8Ed!yUg?Qk&R`o`vP`-MF=+~3(5?C#O%t5^V!xc%(x@12OdIK<@|qWvo{5*^(0 zGvzo{_cI0`%Ne`nm}6sjYnbK=UZuiIU2Gg$-$L1ZJ+lIpH{;^Xw$bwV?f9|X3#2MW zRXK1R{QR13gK>NEHX5eb2S+BJ#TEatP$>fIOk@0+;XqL=%Mdl|eAX7T;X1Pw|=X68$Z z!^-K5$7X~G0o>rN@tM5FT*s`yikij-%N5i+J*V8kp|iO>OQjH`ag|%+IAC&TSq3A) zMjnQQ(Ho0Wwpb$KSay77etfN2aoprZgZX9Gar^}q4<77KE#BapqXlRYIZJq4n%004 zZPQuyYUGDK(}7+!21i5sl`Fmwg>I)4k()v)!`IvT!Ss#VUv3=z>I_%w=)=F)pgL%4 z$%fTq$6B7X>V|DMSV=a}IqSQ1fduIpq%@e|HCY291USK6mT_w*$xc4~=rlx%EgEqy z2Z7)hukq%)be+~u)efe9@=@fd|Io8-D;XcPx4-)8Zhk~hKWSgOJ2z@~llrJl9m&k7 z{W>N`k{A5OdB5?znDeLh%H79C?HkDizdSl>-~8<1X}U)E^-LDscTbPn{WG7PdVsGT zL&s;av!g5RJ8{z9o$lcS^b!(zWQ#Y7o9XEH>NKd9Op-)&Q$KFrIsH`fbe*QtUq2;)HPT1hdPxOLW1cujHUq=qt8JKGu#Q-RKc{Et{2#a;P64bE}%=3 z&tN;@XW63M64OdKw&Z#>Y$OY#GONa_?J=z&Cu`X}c^MldTtJ?c3fMn!jf~@Z8MguW z7r9PCeT5PfgNWU1x=mKdvMY{j)j{0dMvFnE{&@MyOx;))bOC$Kg$35Iy>OhqpqfR9 z?F5EFCeUDW(n8=ae0C~L6)uxS{sXK;2^8eYem!Xn+7!2f8n*(0TE!Or*tWj2EpYn@ z+rl?k!H@1?1uNrLa7y@WZVm_MZD9neMc5&WusP!SDRb6Iu2m}m(kjCB351t`8L-F( zNB5kMv)m-ka#1d=z7=A1^b@;DtLN4)`ocUY%|KOa8 zg6Zj)HFbEZn}~kWfAo@AEO~1`w)N%FFE7z*BP+J?;ol-NTCT{5hF94<;tMC_RqR%S z#rkKNl`aWxBII?7K#d8QnXQc$=k`TS-q(#4-p2|Ef;7N(m-&D>I8yH2fUwX~@OwrT zK3A@U*Na*mF+Sd|V(;frCnLPvza&!W%95FkiT&%)>`n^rl~G##UkvJZ+m`dmp4n9Irr zULxkAbR!xX%=&n)QGt17=Z?GJsgU1rr$)oIBFx?&&e=FT9pW8=8YD884Lc)B7ogV~ zJkS-ZMPaT9_AEj^`VqKK>_?1VSoNyuBGb4~BA%I*%#wxlMT1b3!i3XfNJjliYD38| z1f_mqS;t8-WTl-zI{FW3)Ny2$EDr}6yq{+xkbxVLI+EKMEa`Y09|K#WF(_M*6m#sI zQ&ZdwIcNF)J2+LQ>0skFDnQ`nU>T_l?HTl(CWf~sV=?qW1-s^ILlo+`7X+ms-pVO6 zQC5hIz>Jf1i8oa3Wg@VbYla8UK`~pX15WadQ<2D&L3lp8-4iVPPE7t!PM?hlf^FS? zuK%D#UafYR5Rd!uXV*b5Yhe1X9zMF%Jvx{XVKdP?`uWoBPrHff#FQ9%<8EXmT9@ud zdkI>T;~uQ4RdZMEisP{YaDsd?W0XD1b+}FgGM^>$;Ds5~&7_YE2ql{XF%euJXqHdm zz5H>EC%5FVNV8#pkY;(<2vqVzxU8tuK-R21_K>BJw&*l{a~Ae|7WPO}4*-gdgRAeO~8iQQgf) zhgjwq%#(X~9*!m0!v~9>MixJfe)+|F-Gqo;J>u=%BZ#W_8$dOvH$fmhPpVU8l<1W2 z=g^n0Msf@qBqboJlcz`gV6)Ik-CaXLTo)$J6JZDn zuSH=Nv3)Ykiu7V4mSeLL5M#SgYZl?aiZ`LG=D8@Wv2RmW^D|!IvBoN5q?!iHi40fL zDLTQ1;njHbfP44{+(VSJcGAa*%v}UikoU9SEt8e=9>ct`Y&P=sc`PSq_aN~#8P4gv zM*WAy!GeQL$EH>e&I?kuqVo7l>MJ|1TS_Rb@k!rpZ} zljBcd?|^a`er~hsc@SpqyTO@WnoGw1jjlFx7?hB6izG* zDIie7ZNm5HnjhDQyU7}buHdU6Cv&b90vIn__~;0V6bQf*eMK&EkRJkq3c>(pfBXpu z10kJ+*a-ng3EFNer z-(YSM+lt?2IHFMa-q{=?mUmw7ZExf2CjVw3KA(Z{u^)jY_Gnj~j>yjtqGX(90#fhj^CLExR9j@Awy?Z;{q%y?OLquo0K6ZoC+ z@qZ;>6S}aHPm&fW+xK}G4{d%WkAbJ26n2$FFsKZnd`2e)a?PR%2&5!|L6&s?(my(1 zy8OSAy^DU@cK@;+xe-G&Ah~3Ub4)0GW(o5hr^WQe?jHU`ajB;2Qjyt}q-e=|x|84Z zWLjt?&jtRZn~2~v@C_+Q%#QsjPmDy`c3i|%{OP#ZbX1be-^=Yir?|ayhffG0kaplan>Local>medley3.5>my-medley>lispusers>PRETTYFILEINDEX.;10 96446 +(FILECREATED " 3-Jul-2022 15:28:08"  +{DSK}kaplan>Local>medley3.5>working-medley>lispusers>PRETTYFILEINDEX.;11 100587 - :CHANGES-TO (FNS PFI.PRINT.COMMENTS PFI.MAYBE.NEW.PAGE PFI.MAYBE.PP.DEFINITION - PFI.PRINT.FILECREATED PFI.MAYBE.SEE.PRETTY PRETTYFILEINDEX PFI.PRINT.TO.TAB) + :CHANGES-TO (FNS PFI.PRINT.BITMAP) - :PREVIOUS-DATE "30-Nov-2021 22:12:37" -{DSK}kaplan>Local>medley3.5>my-medley>lispusers>PRETTYFILEINDEX.;6) + :PREVIOUS-DATE " 5-May-2022 23:33:03" +{DSK}kaplan>Local>medley3.5>working-medley>lispusers>PRETTYFILEINDEX.;10) (* ; " @@ -887,8 +886,124 @@ Copyright (c) 1988, 1992-1993, 1999, 2021 by Xerox Corporation. (DEFINEQ (PFI.PRINT.BITMAP -(LAMBDA (BM STREAM) (* ; "Edited 14-Apr-88 12:44 by bvm") (* ;; "DEFPRINT function for bitmaps that displays the actual bitmap when going to an image stream.") (if (OR (NULL *PRINT-ARRAY*) (NULL *PRINT-PRETTY-BITMAPS*)) then (* ; "do the clunky way") (NON.PFI.PRINT.BITMAP BM STREAM) elseif (IMAGESTREAMP STREAM) then (PROG ((CURX (DSPXPOSITION NIL STREAM)) (CURY (DSPYPOSITION NIL STREAM)) (UNITS (DSPSCALE NIL STREAM)) (LINEHEIGHT (DSPLINEFEED NIL STREAM)) HEIGHT WIDTH MINX NLINESDOWN BOTTOM BMARG BELOWBASELINE SCALE RATIO) (if (NOT (AND CURX CURY UNITS LINEHEIGHT)) then (* ; "Stream doesn't really support it") (RETURN (NON.PFI.PRINT.BITMAP BM STREAM))) (SETQ HEIGHT (TIMES UNITS (BITMAPHEIGHT BM))) (SETQ WIDTH (TIMES UNITS (BITMAPWIDTH BM))) (SETQ BMARG (DSPBOTTOMMARGIN NIL STREAM)) (if (AND (NOT (DISPLAYSTREAMP STREAM)) (< (SETQ RATIO (MIN (FQUOTIENT (- (DSPRIGHTMARGIN NIL STREAM) (DSPLEFTMARGIN NIL STREAM)) (TIMES WIDTH 1.5)) (FQUOTIENT (- (DSPTOPMARGIN NIL STREAM) BMARG) (TIMES HEIGHT 1.5)))) 1.0)) then (* ; "It takes up more than 2/3 the page in some dimension. This code is tuned for Interpress.") (SETQ SCALE (if (> RATIO 0.75) then 0.75 elseif (> RATIO 0.5) then 0.5 elseif (> RATIO 0.25) then 0.25 else RATIO)) (SETQ HEIGHT (FIXR (TIMES SCALE HEIGHT))) (SETQ WIDTH (FIXR (TIMES SCALE WIDTH)))) (if (> CURX (SETQ MINX (- (DSPRIGHTMARGIN NIL STREAM) WIDTH))) then (* ; "Won't fit between here and margin, so start nwe line") (TERPRI STREAM) (SETQ CURX (MAX MINX 0)) (SETQ CURY (DSPYPOSITION NIL STREAM))) (SETQ BELOWBASELINE (MAX 0 (- HEIGHT (FONTPROP STREAM (QUOTE ASCENT))))) (if BMARG then (* ; "We know stream's bottom margin, so can be reasonable") (if (< (- CURY BELOWBASELINE) BMARG) then (* ; "Won't fit on page") (DSPNEWPAGE STREAM) (SETQ CURY (DSPYPOSITION NIL STREAM)) (SETQ *PFI-BITMAP-BASELINE* NIL)) else (* ; "Have to use silly terpri method") (SETQ NLINESDOWN (IQUOTIENT HEIGHT (SETQ LINEHEIGHT (- LINEHEIGHT)))) (to NLINESDOWN do (* ; "Do enough cr's so that we have space for bitmap. This might cause scrolling, for example") (TERPRI STREAM) finally (* ; "If this was display, terpri may have scrolled, and Y changed out from under us") (SETQ CURY (+ (DSPYPOSITION NIL STREAM) (TIMES NLINESDOWN LINEHEIGHT))))) (SETQ BOTTOM (- CURY BELOWBASELINE)) (* ; "BOTTOM computed so that bitmap top lines up with font top") (SCALEDBITBLT BM 0 0 STREAM CURX BOTTOM WIDTH HEIGHT (QUOTE INPUT) (QUOTE REPLACE) NIL NIL SCALE) (MOVETO (+ CURX WIDTH) (if (AND (< BOTTOM CURY) (EQ *PRINT-PRETTY-BITMAPS* (QUOTE PRETTYFILEINDEX)) *PFI-FUNNY-CHARS*) then (* ; "Don't move the baseline down, just remember it for when we hit end of line") (if (OR (NULL *PFI-BITMAP-BASELINE*) (< BOTTOM *PFI-BITMAP-BASELINE*)) then (* ; "Lower than before, or first time") (SETQ *PFI-BITMAP-BASELINE* BOTTOM) (if (NEQ (fetch (STREAM OUTCHARFN) of STREAM) (FUNCTION PFI.OUTCHARFN)) then (* ; "Also have to %"advise%" the outcharfn to notice terpri") (replace (STREAM OUTCHARFN) of STREAM with (FUNCTION PFI.OUTCHARFN)))) CURY else (* ; "Move baseline down to bitmap baseline") BOTTOM) STREAM) (RETURN T)) else (LET ((POS (AND (EQ *PRINT-PRETTY-BITMAPS* (QUOTE PRETTYFILEINDEX)) (PNAMESTREAMP STREAM) (STKPOS (QUOTE STRINGWIDTH)))) IMSTREAM) (if (AND POS (IMAGESTREAMP (SETQ IMSTREAM (STKEVAL POS (QUOTE *STANDARD-OUTPUT*) T)))) then (* ;; "Big kludge: This is somebody in the prettyprinter trying to figure out the width of the bitmap--fake them out by printing something about the width of the bitmap. IMSTREAM is the stream to which the real output will go. To be conservative, only do this under PRETTYFILEINDEX.") (RPTQ (CL:CEILING (TIMES (DSPSCALE NIL IMSTREAM) (BITMAPWIDTH BM)) (CHARWIDTH (CHARCODE X) IMSTREAM)) (\OUTCHAR STREAM (CHARCODE X))) T else (NON.PFI.PRINT.BITMAP BM STREAM))))) -) + [LAMBDA (BM STREAM) + + (* ;; + "Edited 3-Jul-2022 15:28 by rmk: Use vertical size in RATIO only if bottom and top margins exists") + + (* ;; "Edited 3-Jul-2022 15:24 by rmk") + + (* ;; "Edited 14-Apr-88 12:44 by bvm") + + (* ;; + "DEFPRINT function for bitmaps that displays the actual bitmap when going to an image stream.") + + (if (OR (NULL *PRINT-ARRAY*) + (NULL *PRINT-PRETTY-BITMAPS*)) + then (* ; "do the clunky way") + (NON.PFI.PRINT.BITMAP BM STREAM) + elseif (IMAGESTREAMP STREAM) + then (PROG ((CURX (DSPXPOSITION NIL STREAM)) + (CURY (DSPYPOSITION NIL STREAM)) + (UNITS (DSPSCALE NIL STREAM)) + (LINEHEIGHT (DSPLINEFEED NIL STREAM)) + HEIGHT WIDTH MINX NLINESDOWN BOTTOM BMARG BELOWBASELINE SCALE RATIO) + (if (NOT (AND CURX CURY UNITS LINEHEIGHT)) + then (* ; "Stream doesn't really support it") + (RETURN (NON.PFI.PRINT.BITMAP BM STREAM))) + (SETQ HEIGHT (TIMES UNITS (BITMAPHEIGHT BM))) + (SETQ WIDTH (TIMES UNITS (BITMAPWIDTH BM))) + (SETQ BMARG (DSPBOTTOMMARGIN NIL STREAM)) + [if (AND (NOT (DISPLAYSTREAMP STREAM)) + (< (SETQ RATIO (MIN (FQUOTIENT (- (DSPRIGHTMARGIN NIL STREAM) + (DSPLEFTMARGIN NIL STREAM)) + (TIMES WIDTH 1.5)) + (CL:IF (AND BMARG (DSPTOPMARGIN NIL STREAM)) + (FQUOTIENT (- (DSPTOPMARGIN NIL STREAM) + BMARG) + (TIMES HEIGHT 1.5)) + MAX.SMALLP))) + 1.0)) + then (* ; + "It takes up more than 2/3 the page in some dimension. This code is tuned for Interpress.") + (SETQ SCALE (if (> RATIO 0.75) + then 0.75 + elseif (> RATIO 0.5) + then 0.5 + elseif (> RATIO 0.25) + then 0.25 + else RATIO)) + (SETQ HEIGHT (FIXR (TIMES SCALE HEIGHT))) + (SETQ WIDTH (FIXR (TIMES SCALE WIDTH] + (if (> CURX (SETQ MINX (- (DSPRIGHTMARGIN NIL STREAM) + WIDTH))) + then (* ; + "Won't fit between here and margin, so start nwe line") + (TERPRI STREAM) + (SETQ CURX (MAX MINX 0)) + (SETQ CURY (DSPYPOSITION NIL STREAM))) + [SETQ BELOWBASELINE (MAX 0 (- HEIGHT (FONTPROP STREAM 'ASCENT] + [if BMARG + then (* ; + "We know stream's bottom margin, so can be reasonable") + (if (< (- CURY BELOWBASELINE) + BMARG) + then (* ; "Won't fit on page") + (DSPNEWPAGE STREAM) + (SETQ CURY (DSPYPOSITION NIL STREAM)) + (SETQ *PFI-BITMAP-BASELINE* NIL)) + else (* ; "Have to use silly terpri method") + [SETQ NLINESDOWN (IQUOTIENT HEIGHT (SETQ LINEHEIGHT (- LINEHEIGHT] + (to NLINESDOWN do (* ; + "Do enough cr's so that we have space for bitmap. This might cause scrolling, for example") + (TERPRI STREAM) finally + (* ; + "If this was display, terpri may have scrolled, and Y changed out from under us") + (SETQ CURY (+ (DSPYPOSITION NIL + STREAM) + (TIMES NLINESDOWN + LINEHEIGHT] + (SETQ BOTTOM (- CURY BELOWBASELINE)) (* ; + "BOTTOM computed so that bitmap top lines up with font top") + (SCALEDBITBLT BM 0 0 STREAM CURX BOTTOM WIDTH HEIGHT 'INPUT 'REPLACE NIL NIL SCALE + ) + (MOVETO (+ CURX WIDTH) + (if (AND (< BOTTOM CURY) + (EQ *PRINT-PRETTY-BITMAPS* 'PRETTYFILEINDEX) + *PFI-FUNNY-CHARS*) + then (* ; + "Don't move the baseline down, just remember it for when we hit end of line") + [if (OR (NULL *PFI-BITMAP-BASELINE*) + (< BOTTOM *PFI-BITMAP-BASELINE*)) + then (* ; "Lower than before, or first time") + (SETQ *PFI-BITMAP-BASELINE* BOTTOM) + (if (NEQ (fetch (STREAM OUTCHARFN) of STREAM) + (FUNCTION PFI.OUTCHARFN)) + then (* ; + "Also have to %"advise%" the outcharfn to notice terpri") + (replace (STREAM OUTCHARFN) of STREAM + with (FUNCTION PFI.OUTCHARFN] + CURY + else (* ; + "Move baseline down to bitmap baseline") + BOTTOM) + STREAM) + (RETURN T)) + else (LET ([POS (AND (EQ *PRINT-PRETTY-BITMAPS* 'PRETTYFILEINDEX) + (PNAMESTREAMP STREAM) + (STKPOS 'STRINGWIDTH] + IMSTREAM) + (if [AND POS (IMAGESTREAMP (SETQ IMSTREAM (STKEVAL POS '*STANDARD-OUTPUT* T] + then + (* ;; "Big kludge: This is somebody in the prettyprinter trying to figure out the width of the bitmap--fake them out by printing something about the width of the bitmap. IMSTREAM is the stream to which the real output will go. To be conservative, only do this under PRETTYFILEINDEX.") + + (RPTQ (CL:CEILING (TIMES (DSPSCALE NIL IMSTREAM) + (BITMAPWIDTH BM)) + (CHARWIDTH (CHARCODE X) + IMSTREAM)) + (\OUTCHAR STREAM (CHARCODE X))) + T + else (NON.PFI.PRINT.BITMAP BM STREAM]) ) (RPAQ? *PRINT-PRETTY-BITMAPS* T) @@ -1071,28 +1186,28 @@ Copyright (c) 1988, 1992-1993, 1999, 2021 by Xerox Corporation. ) (PUTPROPS PRETTYFILEINDEX COPYRIGHT ("Xerox Corporation" 1988 1992 1993 1999 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (10203 12438 (PFI.NEW.LISTFILES1 10213 . 10707) (PFI.ENQUEUE 10709 . 11333) ( -\PFI.DO.HARDCOPY 11335 . 11921) (MAYBE.PRETTYFILEINDEX 11923 . 12436)) (12439 34954 (PRETTYFILEINDEX -12449 . 26482) (PFI.MAKE.LPT.STREAM 26484 . 29535) (PFI.SETUP.TRANSLATIONS 29537 . 31051) ( -PFI.OUTCHARFN 31053 . 33027) (PFI.COLLECT.DEFINERS 33029 . 33841) (PFI.AFTER.NEW.PAGE 33843 . 34952)) -(34955 40868 (PFI.PRINT.FILECREATED 34965 . 39055) (PFI.PRINT.TO.TAB 39057 . 39502) ( -PFI.PRINT.ENVIRONMENT 39504 . 40866)) (40869 48384 (PFI.PROCESS.FILE 40879 . 42109) (PFI.PASS.COMMENT -42111 . 43081) (PFI.HANDLE.EXPR 43083 . 43750) (PFI.DEFAULT.HANDLER 43752 . 45805) (PFI.PRETTYPRINT -45807 . 46142) (PFI.LINES.REMAINING 46144 . 46471) (PFI.MAYBE.NEW.PAGE 46473 . 47307) ( -PFI.ESTIMATE.SIZE 47309 . 47840) (PFI.ESTIMATE.SIZE1 47842 . 48382)) (48421 58630 (PFI.HANDLE.RPAQQ -48431 . 49839) (PFI.HANDLE.DECLARE 49841 . 50780) (PFI.HANDLE.EVAL-WHEN 50782 . 51265) ( -PFI.HANDLE.DEFDEFINER 51267 . 52557) (PFI.HANDLE.DEFINEQ 52559 . 52803) (PFI.PRINT.LAMBDA 52805 . -53143) (PFI.PRINT.LAMBDA.BODY 53145 . 53480) (PFI.HANDLE.PUTDEF 53482 . 53979) (PFI.HANDLE.PUTPROPS -53981 . 54596) (PFI.HANDLE./DECLAREDATATYPE 54598 . 55145) (PFI.HANDLE.* 55147 . 56409) ( -PFI.PRINT.COMMENTS 56411 . 58033) (PFI.HANDLE.FILEMAP 58035 . 58323) (PFI.HANDLE.PACKAGE 58325 . 58628 -)) (58658 59650 (PFI.PREVIEW.DECLARE 58668 . 59330) (PFI.PREVIEW.DEFINEQ 59332 . 59648)) (59686 70674 -(PFI.PRINT.INDEX 59696 . 60547) (PFI.CONDENSE.INDEX 60549 . 62356) (PFI.SORT.INDICES 62358 . 63497) ( -PFI.COMPUTE.INDEX.SHAPE 63499 . 64963) (PFI.PRINT.INDICES 64965 . 69507) (PFI.CENTER.PRINT 69509 . -70079) (PFI.INDEX.BREAK 70081 . 70539) (PFI.LOOKUP.NAME 70541 . 70672)) (70675 71906 (PFI.ADD.TO.INDEX - 70685 . 71195) (PFI.VARNAME 71197 . 71607) (PFI.CONSTANTNAMES 71609 . 71904)) (71941 80254 ( -MULTIFILEINDEX 71951 . 72747) (MULTIFILEINDEX1 72749 . 74205) (PFI.PRINT.MULTI.INDEX 74207 . 79310) ( -PFI.CHOOSE.BEST 79312 . 79539) (PFI.MERGE.INDICES 79541 . 80252)) (80311 83380 (PFI.MAYBE.SEE.PRETTY -80321 . 82104) (PFI.MAYBE.PP.DEFINITION 82106 . 83378)) (83450 87285 (PFI.PRINT.BITMAP 83460 . 87283)) - (90054 93168 (PUTPROPS.PRETTYPRINT 90064 . 91475) (RPAQX.PRETTYPRINT 91477 . 92202) ( -COURIERPROGRAM.PRETTYPRINT 92204 . 92904) (MAYBE.PRETTYPRINT.BOLD 92906 . 93166))))) + (FILEMAP (NIL (10069 12304 (PFI.NEW.LISTFILES1 10079 . 10573) (PFI.ENQUEUE 10575 . 11199) ( +\PFI.DO.HARDCOPY 11201 . 11787) (MAYBE.PRETTYFILEINDEX 11789 . 12302)) (12305 34820 (PRETTYFILEINDEX +12315 . 26348) (PFI.MAKE.LPT.STREAM 26350 . 29401) (PFI.SETUP.TRANSLATIONS 29403 . 30917) ( +PFI.OUTCHARFN 30919 . 32893) (PFI.COLLECT.DEFINERS 32895 . 33707) (PFI.AFTER.NEW.PAGE 33709 . 34818)) +(34821 40734 (PFI.PRINT.FILECREATED 34831 . 38921) (PFI.PRINT.TO.TAB 38923 . 39368) ( +PFI.PRINT.ENVIRONMENT 39370 . 40732)) (40735 48250 (PFI.PROCESS.FILE 40745 . 41975) (PFI.PASS.COMMENT +41977 . 42947) (PFI.HANDLE.EXPR 42949 . 43616) (PFI.DEFAULT.HANDLER 43618 . 45671) (PFI.PRETTYPRINT +45673 . 46008) (PFI.LINES.REMAINING 46010 . 46337) (PFI.MAYBE.NEW.PAGE 46339 . 47173) ( +PFI.ESTIMATE.SIZE 47175 . 47706) (PFI.ESTIMATE.SIZE1 47708 . 48248)) (48287 58496 (PFI.HANDLE.RPAQQ +48297 . 49705) (PFI.HANDLE.DECLARE 49707 . 50646) (PFI.HANDLE.EVAL-WHEN 50648 . 51131) ( +PFI.HANDLE.DEFDEFINER 51133 . 52423) (PFI.HANDLE.DEFINEQ 52425 . 52669) (PFI.PRINT.LAMBDA 52671 . +53009) (PFI.PRINT.LAMBDA.BODY 53011 . 53346) (PFI.HANDLE.PUTDEF 53348 . 53845) (PFI.HANDLE.PUTPROPS +53847 . 54462) (PFI.HANDLE./DECLAREDATATYPE 54464 . 55011) (PFI.HANDLE.* 55013 . 56275) ( +PFI.PRINT.COMMENTS 56277 . 57899) (PFI.HANDLE.FILEMAP 57901 . 58189) (PFI.HANDLE.PACKAGE 58191 . 58494 +)) (58524 59516 (PFI.PREVIEW.DECLARE 58534 . 59196) (PFI.PREVIEW.DEFINEQ 59198 . 59514)) (59552 70540 +(PFI.PRINT.INDEX 59562 . 60413) (PFI.CONDENSE.INDEX 60415 . 62222) (PFI.SORT.INDICES 62224 . 63363) ( +PFI.COMPUTE.INDEX.SHAPE 63365 . 64829) (PFI.PRINT.INDICES 64831 . 69373) (PFI.CENTER.PRINT 69375 . +69945) (PFI.INDEX.BREAK 69947 . 70405) (PFI.LOOKUP.NAME 70407 . 70538)) (70541 71772 (PFI.ADD.TO.INDEX + 70551 . 71061) (PFI.VARNAME 71063 . 71473) (PFI.CONSTANTNAMES 71475 . 71770)) (71807 80120 ( +MULTIFILEINDEX 71817 . 72613) (MULTIFILEINDEX1 72615 . 74071) (PFI.PRINT.MULTI.INDEX 74073 . 79176) ( +PFI.CHOOSE.BEST 79178 . 79405) (PFI.MERGE.INDICES 79407 . 80118)) (80177 83246 (PFI.MAYBE.SEE.PRETTY +80187 . 81970) (PFI.MAYBE.PP.DEFINITION 81972 . 83244)) (83316 91426 (PFI.PRINT.BITMAP 83326 . 91424)) + (94195 97309 (PUTPROPS.PRETTYPRINT 94205 . 95616) (RPAQX.PRETTYPRINT 95618 . 96343) ( +COURIERPROGRAM.PRETTYPRINT 96345 . 97045) (MAYBE.PRETTYPRINT.BOLD 97047 . 97307))))) STOP diff --git a/lispusers/PRETTYFILEINDEX.LCOM b/lispusers/PRETTYFILEINDEX.LCOM index d45fa9cd0b918b7bdfad35e33418c2e5fe9692e2..a2edf3795ac950ae859f5d92fbaad744a34ae9b2 100644 GIT binary patch delta 900 zcmZuvO>fgc5GA=F<=Cp?K!rwuqE;x8cfIQ`5XiOH>4IZh_9ks5E`tprh%Cz3N`DCj> zHA;bShgyzizuGj;?hbY~H~RPUx0Or#WC3b*m`r32r4A)^xUg7qXR|ybJ<=O<-+~N1? z;&$axK07>L`I+As&gAXk^~#(4`Ed4PJaus4fm=I+>tLn~;;FCUpg_L;c-B8UI{YyF zT)9U~xE*&Cib=uH7Clwz?Y@3mhhy(*s$_!G4Qh_^W0DXH#x|*i{DY` zMmqs+*pR7PqU(mhxtVLb=k^&Zpd`+K>lBj6ZU0Rt4BBy5pcl-xK#3GP1dQr1;`j04 z#ZZB6(c;ZjT92s85cPk&bpJ%8ssFfAb^&ScFn{c`$w?dHV%6ek%obZCnxg5eQ9)D+n|pM7>>Atcwnq$ljNWncP%7$~$76{L+)R9Z1a zVq>H7j?|46RbpoWCYWI54`8W4V&*wX)2QN>d-pzm_j|whet#-|{ak*tI>WSR{XnCH zQlO@5nl3R9pW5Zl!Qs0bI;laG)-|u&8)g_7Zn(s#Lgi6!^YKonyY*~y12*@&z1^E` z{@$5cgQO|+Bo$KWejG(ystmTaq1tSRAxvWFx?Y8i_2*b$`QIl_wN{yLijey$_Y@EE zKczcET5|*%wq@Di`b(Z{@k~=O%r|A0C$BE&ADpQYz(6HG>ddwvNx4#M zML@`auTIcbv97$u8n~FUEaG;i1^7QyO`^%2y+Q~BD0L0$n$F?NTLVtl%XTe4>dzi` z%UZYeFn`;-Qu>*H>|M;i_3oBl=To~^r=NJ03wYw`@8M2i{P=Yo?S3is34sT3TVXFL zu(|_&==xlQLbmWpq42MWKrI1tOjr~u@{-Zpb|A=-%=bbLjMYIz9;%^GuP8wWg-qS! z%U%e~A|PX_pD8lL0Y;sEk(I<5FoQuNy=aVJH5`cIWsd4vbpsSnajswy8wOtnh_M(d zFl|=QSVIh zoby3O#z90sMZ0#oJZ8g&lqaF*b1)kQ2#HK^+gX0{V%EleAv$G14Rd4=3k?Pa3Ou|C R-VQo&-a~^K$L@ap_CK4J`9c5y diff --git a/sources/BSP.LCOM b/sources/BSP.LCOM index 5d48458eed888c38827647148406f9b5e7736d4a..32ec30d2b97f1ace8c8c1678447b9ee100a77428 100644 GIT binary patch delta 372 zcmex;o@vJgrU~I93P!qKr8&Ar21Z5-hQ?N=hE|3q6SF1jON&#BitVx!3vv?k>~ivx z6LaixQ&VzMD~CTl zl2`)Nhs|j7%|eU{D#{ve3I+;VF0O8lp*|tHt`Q-wL4J-tZvH{Ojv-o_3XC-jjGL`g zjTo5&L^394srh7^E5ra*d-}P$xQ2N;yJ~W27@He`-QormQ7|?$L*kfPD8#tC`nd*q tI_m|w`Z@Xnb^5p}7@Jrs_;~^yY;0lxWf&Vm8Nd*QNEsS$R#d;$002m4XF>n~ delta 312 zcmdmSf$8^orU~I9hUU8d$tAi*21bSohDKIKrdCE46SF1jLyJ?3itVx!3vv?k?0oW* z6LaixQ&VzMD~ksB||eL11&)Y8e1qSBqitP z7UZa>C}id-a4ETk`uHdyE7a4|Q&LDtEJ;m)8o&>864(S2kaplan>Local>medley3.5>my-medley>sources>CLSTREAMS.;4| 53233 +(FILECREATED " 3-Jul-2022 14:17:13"  +|{DSK}kaplan>local>medley3.5>working-medley>sources>CLSTREAMS.;5| 55647 - :PREVIOUS-DATE "27-Nov-2021 13:30:46" -|{DSK}kaplan>Local>medley3.5>my-medley>sources>CLSTREAMS.;3|) + :CHANGES-TO (FNS %INITIALIZE-CLSTREAM-TYPES) + + :PREVIOUS-DATE "20-Jan-2022 09:16:52" +|{DSK}kaplan>local>medley3.5>working-medley>sources>CLSTREAMS.;4|) ; Copyright (c) 1985-1988, 1990-1991 by Venue & Xerox Corporation. @@ -941,9 +943,187 @@ (CL:SETQ *ERROR-OUTPUT* (CL:MAKE-SYNONYM-STREAM '\\TERM.OFD))) (DEFINEQ -(%initialize-clstream-types -(lambda nil (* \; "Edited 14-Apr-87 17:08 by bvm:") (* |;;| "Initialize the CLSTREAMS package. This sets up some file devices for the functions make-two-way-stream-device, etc. See CLtL chapter 21") (setq %broadcast-stream-device (|create| fdev devicename _ (quote broadcast-stream-device) resetable _ nil randomaccessp _ nil nodirectories _ t buffered _ nil pagemapped _ nil fdbinable _ nil fdboutable _ nil fdextendable _ nil deviceinfo _ nil hostnamep _ (function nill) eventfn _ (function nill) directorynamep _ (function nill) reopenfile _ (function nill) closefile _ (function %broadcast-stream-device-closefile) getfilename _ (function nill) deletefile _ (function nill) generatefiles _ (function \\generatenofiles) renamefile _ (function nill) bin _ (function nill) bout _ (function %broadcast-stream-device-bout) peekbin _ (function nill) readp _ (function nill) eofp _ (function true) blockin _ (function \\generic.bins) blockout _ (function nill) forceoutput _ (function %broadcast-stream-device-forceoutput) getfileinfo _ (function nill) setfileinfo _ (function nill) charsetfn _ (function %broadcast-stream-device-charsetfn))) (setq %concatenated-stream-device (|create| fdev devicename _ (quote concatenated-stream-device) resetable _ nil randomaccessp _ nil nodirectories _ t buffered _ nil pagemapped _ nil fdbinable _ nil fdboutable _ nil fdextendable _ nil deviceinfo _ nil hostnamep _ (function nill) eventfn _ (function nill) directorynamep _ (function nill) reopenfile _ (function nill) closefile _ (function %concatenated-stream-device-closefile) getfilename _ (function nill) deletefile _ (function nill) generatefiles _ (function \\generatenofiles) renamefile _ (function nill) bin _ (function %concatenated-stream-device-bin) bout _ (function nill) peekbin _ (function %concatenated-stream-device-peekbin) readp _ (function \\generic.readp) backfileptr _ (function %concatenated-stream-device-backfileptr) eofp _ (function %concatenated-stream-device-eofp) blockin _ (function \\generic.bins) blockout _ (function nill) forceoutput _ (function nill) getfileinfo _ (function nill) setfileinfo _ (function nill) charsetfn _ (function %concatenated-stream-device-charsetfn))) (setq %two-way-stream-device (|create| fdev devicename _ (quote two-way-stream-device) resetable _ nil randomaccessp _ nil nodirectories _ t buffered _ nil pagemapped _ nil fdbinable _ nil fdboutable _ nil fdextendable _ nil input-indirected _ t output-indirected _ t deviceinfo _ nil hostnamep _ (function nill) eventfn _ (function nill) directorynamep _ (function nill) reopenfile _ (function nill) closefile _ (function %two-way-stream-device-closefile) getfilename _ (function nill) deletefile _ (function nill) generatefiles _ (function \\generatenofiles) renamefile _ (function nill) bin _ (function %two-way-stream-device-bin) bout _ (function %two-way-stream-device-bout) peekbin _ (function %two-way-stream-device-peekbin) readp _ (function %two-way-stream-device-readp) backfileptr _ (function %two-way-stream-device-backfileptr) eofp _ (function %two-way-stream-device-eofp) blockin _ (function \\generic.bins) blockout _ (function \\generic.bouts) forceoutput _ (function %two-way-stream-device-forceoutput) getfileinfo _ (function nill) setfileinfo _ (function nill) charsetfn _ (function %two-way-stream-device-charsetfn) inputstream _ (function %two-way-stream-device-inputstream) outputstream _ (function %two-way-stream-device-outputstream))) (setq %echo-stream-device (|create| fdev |using| %two-way-stream-device devicename _ (quote echo-stream-device) bin _ (function %echo-stream-device-bin))) (setq %synonym-stream-device (|create| fdev devicename _ (quote synonym-stream-device) resetable _ nil randomaccessp _ nil nodirectories _ t buffered _ nil pagemapped _ nil fdbinable _ nil fdboutable _ nil fdextendable _ nil deviceinfo _ nil input-indirected _ t output-indirected _ t hostnamep _ (function nill) eventfn _ (function nill) directorynamep _ (function nill) reopenfile _ (function nill) closefile _ (function %synonym-stream-device-closefile) getfilename _ (function nill) deletefile _ (function nill) generatefiles _ (function \\generatenofiles) renamefile _ (function nill) bin _ (function %synonym-stream-device-bin) bout _ (function %synonym-stream-device-bout) peekbin _ (function %synonym-stream-device-peekbin) readp _ (function %synonym-stream-device-readp) backfileptr _ (function %synonym-stream-device-backfileptr) eofp _ (function %synonym-stream-device-eofp) blockin _ (function \\generic.bins) blockout _ (function \\generic.bouts) forceoutput _ (function %synonym-stream-device-forceoutput) getfileinfo _ (function %synonym-stream-device-getfileinfo) setfileinfo _ (function %synonym-stream-device-setfileinfo) inputstream _ (function %synonym-stream-device-get-indirect-stream) outputstream _ (function %synonym-stream-device-get-indirect-stream) charsetfn _ (function %synonym-stream-device-charsetfn))) (setq \\fill-pointer-stream-device (|create| fdev devicename _ (quote fill-pointer-stream-device) resetable _ nil randomaccessp _ nil nodirectories _ t buffered _ nil pagemapped _ nil fdbinable _ nil fdboutable _ nil fdextendable _ nil deviceinfo _ nil hostnamep _ (function nill) eventfn _ (function nill) directorynamep _ (function nill) openfile _ (function nill) reopenfile _ (function nill) closefile _ (function %fill-pointer-stream-device-closefile) getfilename _ (function nill) deletefile _ (function nill) generatefiles _ (function \\generatenofiles) renamefile _ (function nill) bin _ (function \\illegal.deviceop) bout _ (function nill) peekbin _ (function \\illegal.deviceop) readp _ (function \\illegal.deviceop) eofp _ (function nill) blockin _ (function \\illegal.deviceop) blockout _ (function \\generic.bouts) forceoutput _ (function nill) getfileptr _ (function %fill-pointer-stream-device-getfileptr) setfileinfo _ (function \\illegal.deviceop)))) -) +(%INITIALIZE-CLSTREAM-TYPES + (LAMBDA NIL (* \; "Edited 3-Jul-2022 14:16 by rmk") + (* \; "Edited 14-Apr-87 17:08 by bvm:") + + (* |;;| "Initialize the CLSTREAMS package. This sets up some file devices for the functions make-two-way-stream-device, etc. See CLtL chapter 21") + + (SETQ %BROADCAST-STREAM-DEVICE + (|create| FDEV + DEVICENAME _ 'BROADCAST-STREAM-DEVICE + RESETABLE _ NIL + RANDOMACCESSP _ NIL + NODIRECTORIES _ T + BUFFERED _ NIL + PAGEMAPPED _ NIL + FDBINABLE _ NIL + FDBOUTABLE _ NIL + FDEXTENDABLE _ NIL + DEVICEINFO _ NIL + HOSTNAMEP _ (FUNCTION NILL) + EVENTFN _ (FUNCTION NILL) + DIRECTORYNAMEP _ (FUNCTION NILL) + REOPENFILE _ (FUNCTION NILL) + CLOSEFILE _ (FUNCTION %BROADCAST-STREAM-DEVICE-CLOSEFILE) + GETFILENAME _ (FUNCTION NILL) + DELETEFILE _ (FUNCTION NILL) + GENERATEFILES _ (FUNCTION \\GENERATENOFILES) + RENAMEFILE _ (FUNCTION NILL) + BIN _ (FUNCTION NILL) + BOUT _ (FUNCTION %BROADCAST-STREAM-DEVICE-BOUT) + PEEKBIN _ (FUNCTION NILL) + READP _ (FUNCTION NILL) + EOFP _ (FUNCTION TRUE) + BLOCKIN _ (FUNCTION \\GENERIC.BINS) + BLOCKOUT _ (FUNCTION NILL) + FORCEOUTPUT _ (FUNCTION %BROADCAST-STREAM-DEVICE-FORCEOUTPUT) + GETFILEINFO _ (FUNCTION NILL) + SETFILEINFO _ (FUNCTION NILL) + CHARSETFN _ (FUNCTION %BROADCAST-STREAM-DEVICE-CHARSETFN))) + (SETQ %CONCATENATED-STREAM-DEVICE + (|create| FDEV + DEVICENAME _ 'CONCATENATED-STREAM-DEVICE + RESETABLE _ NIL + RANDOMACCESSP _ NIL + NODIRECTORIES _ T + BUFFERED _ NIL + PAGEMAPPED _ NIL + FDBINABLE _ NIL + FDBOUTABLE _ NIL + FDEXTENDABLE _ NIL + DEVICEINFO _ NIL + HOSTNAMEP _ (FUNCTION NILL) + EVENTFN _ (FUNCTION NILL) + DIRECTORYNAMEP _ (FUNCTION NILL) + REOPENFILE _ (FUNCTION NILL) + CLOSEFILE _ (FUNCTION %CONCATENATED-STREAM-DEVICE-CLOSEFILE) + GETFILENAME _ (FUNCTION NILL) + DELETEFILE _ (FUNCTION NILL) + GENERATEFILES _ (FUNCTION \\GENERATENOFILES) + RENAMEFILE _ (FUNCTION NILL) + BIN _ (FUNCTION %CONCATENATED-STREAM-DEVICE-BIN) + BOUT _ (FUNCTION NILL) + PEEKBIN _ (FUNCTION %CONCATENATED-STREAM-DEVICE-PEEKBIN) + READP _ (FUNCTION \\GENERIC.READP) + BACKFILEPTR _ (FUNCTION %CONCATENATED-STREAM-DEVICE-BACKFILEPTR) + EOFP _ (FUNCTION %CONCATENATED-STREAM-DEVICE-EOFP) + BLOCKIN _ (FUNCTION \\GENERIC.BINS) + BLOCKOUT _ (FUNCTION NILL) + FORCEOUTPUT _ (FUNCTION NILL) + GETFILEINFO _ (FUNCTION NILL) + SETFILEINFO _ (FUNCTION NILL) + CHARSETFN _ (FUNCTION %CONCATENATED-STREAM-DEVICE-CHARSETFN))) + (SETQ %TWO-WAY-STREAM-DEVICE + (|create| FDEV + DEVICENAME _ 'TWO-WAY-STREAM-DEVICE + RESETABLE _ NIL + RANDOMACCESSP _ NIL + NODIRECTORIES _ T + BUFFERED _ NIL + PAGEMAPPED _ NIL + FDBINABLE _ NIL + FDBOUTABLE _ NIL + FDEXTENDABLE _ NIL + INPUT-INDIRECTED _ T + OUTPUT-INDIRECTED _ T + DEVICEINFO _ NIL + HOSTNAMEP _ (FUNCTION NILL) + EVENTFN _ (FUNCTION NILL) + DIRECTORYNAMEP _ (FUNCTION NILL) + REOPENFILE _ (FUNCTION NILL) + CLOSEFILE _ (FUNCTION %TWO-WAY-STREAM-DEVICE-CLOSEFILE) + GETFILENAME _ (FUNCTION NILL) + DELETEFILE _ (FUNCTION NILL) + GENERATEFILES _ (FUNCTION \\GENERATENOFILES) + RENAMEFILE _ (FUNCTION NILL) + BIN _ (FUNCTION %TWO-WAY-STREAM-DEVICE-BIN) + BOUT _ (FUNCTION %TWO-WAY-STREAM-DEVICE-BOUT) + PEEKBIN _ (FUNCTION %TWO-WAY-STREAM-DEVICE-PEEKBIN) + READP _ (FUNCTION %TWO-WAY-STREAM-DEVICE-READP) + BACKFILEPTR _ (FUNCTION %TWO-WAY-STREAM-DEVICE-BACKFILEPTR) + EOFP _ (FUNCTION %TWO-WAY-STREAM-DEVICE-EOFP) + BLOCKIN _ (FUNCTION \\GENERIC.BINS) + BLOCKOUT _ (FUNCTION \\GENERIC.BOUTS) + FORCEOUTPUT _ (FUNCTION %TWO-WAY-STREAM-DEVICE-FORCEOUTPUT) + GETFILEINFO _ (FUNCTION NILL) + SETFILEINFO _ (FUNCTION NILL) + CHARSETFN _ (FUNCTION %TWO-WAY-STREAM-DEVICE-CHARSETFN) + INPUTSTREAM _ (FUNCTION %TWO-WAY-STREAM-DEVICE-INPUTSTREAM) + OUTPUTSTREAM _ (FUNCTION %TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM))) + (SETQ %ECHO-STREAM-DEVICE (|create| FDEV |using| %TWO-WAY-STREAM-DEVICE DEVICENAME _ + 'ECHO-STREAM-DEVICE BIN _ (FUNCTION + %ECHO-STREAM-DEVICE-BIN + ))) + (SETQ %SYNONYM-STREAM-DEVICE + (|create| FDEV + DEVICENAME _ 'SYNONYM-STREAM-DEVICE + RESETABLE _ NIL + RANDOMACCESSP _ NIL + NODIRECTORIES _ T + BUFFERED _ NIL + PAGEMAPPED _ NIL + FDBINABLE _ NIL + FDBOUTABLE _ NIL + FDEXTENDABLE _ NIL + DEVICEINFO _ NIL + INPUT-INDIRECTED _ T + OUTPUT-INDIRECTED _ T + HOSTNAMEP _ (FUNCTION NILL) + EVENTFN _ (FUNCTION NILL) + DIRECTORYNAMEP _ (FUNCTION NILL) + REOPENFILE _ (FUNCTION NILL) + CLOSEFILE _ (FUNCTION %SYNONYM-STREAM-DEVICE-CLOSEFILE) + GETFILENAME _ (FUNCTION NILL) + DELETEFILE _ (FUNCTION NILL) + GENERATEFILES _ (FUNCTION \\GENERATENOFILES) + RENAMEFILE _ (FUNCTION NILL) + BIN _ (FUNCTION %SYNONYM-STREAM-DEVICE-BIN) + BOUT _ (FUNCTION %SYNONYM-STREAM-DEVICE-BOUT) + PEEKBIN _ (FUNCTION %SYNONYM-STREAM-DEVICE-PEEKBIN) + READP _ (FUNCTION %SYNONYM-STREAM-DEVICE-READP) + BACKFILEPTR _ (FUNCTION %SYNONYM-STREAM-DEVICE-BACKFILEPTR) + EOFP _ (FUNCTION %SYNONYM-STREAM-DEVICE-EOFP) + BLOCKIN _ (FUNCTION \\GENERIC.BINS) + BLOCKOUT _ (FUNCTION \\GENERIC.BOUTS) + FORCEOUTPUT _ (FUNCTION %SYNONYM-STREAM-DEVICE-FORCEOUTPUT) + GETFILEINFO _ (FUNCTION %SYNONYM-STREAM-DEVICE-GETFILEINFO) + SETFILEINFO _ (FUNCTION %SYNONYM-STREAM-DEVICE-SETFILEINFO) + INPUTSTREAM _ (FUNCTION %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM) + OUTPUTSTREAM _ (FUNCTION %SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM) + CHARSETFN _ (FUNCTION %SYNONYM-STREAM-DEVICE-CHARSETFN))) + (SETQ \\FILL-POINTER-STREAM-DEVICE + (|create| FDEV + DEVICENAME _ 'FILL-POINTER-STREAM-DEVICE + RESETABLE _ NIL + RANDOMACCESSP _ NIL + NODIRECTORIES _ T + BUFFERED _ NIL + PAGEMAPPED _ NIL + FDBINABLE _ NIL + FDBOUTABLE _ NIL + FDEXTENDABLE _ NIL + DEVICEINFO _ NIL + HOSTNAMEP _ (FUNCTION NILL) + EVENTFN _ (FUNCTION NILL) + DIRECTORYNAMEP _ (FUNCTION NILL) + OPENFILE _ (FUNCTION NILL) + REOPENFILE _ (FUNCTION NILL) + CLOSEFILE _ (FUNCTION %FILL-POINTER-STREAM-DEVICE-CLOSEFILE) + GETFILENAME _ (FUNCTION NILL) + DELETEFILE _ (FUNCTION NILL) + GENERATEFILES _ (FUNCTION \\GENERATENOFILES) + RENAMEFILE _ (FUNCTION NILL) + BIN _ (FUNCTION \\ILLEGAL.DEVICEOP) + BOUT _ (FUNCTION NILL) + PEEKBIN _ (FUNCTION \\ILLEGAL.DEVICEOP) + READP _ (FUNCTION \\ILLEGAL.DEVICEOP) + EOFP _ (FUNCTION NILL) + BLOCKIN _ (FUNCTION \\ILLEGAL.DEVICEOP) + BLOCKOUT _ (FUNCTION \\GENERIC.BOUTS) + FORCEOUTPUT _ (FUNCTION NILL) + GETFILEPTR _ (FUNCTION %FILL-POINTER-STREAM-DEVICE-GETFILEPTR) + SETFILEINFO _ (FUNCTION \\ILLEGAL.DEVICEOP))))) ) (DECLARE\: DONTEVAL@LOAD DOCOPY @@ -955,51 +1135,51 @@ (PUTPROPS CLSTREAMS FILETYPE CL:COMPILE-FILE) (PUTPROPS CLSTREAMS COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1991)) (DECLARE\: DONTCOPY - (FILEMAP (NIL (5165 14140 (OPEN 5165 . 14140)) (14142 15068 (CL:CLOSE 14142 . 15068)) (15070 15148 ( -CL:STREAM-EXTERNAL-FORMAT 15070 . 15148)) (15150 15217 (CL:STREAM-ELEMENT-TYPE 15150 . 15217)) (15219 -15453 (CL:INPUT-STREAM-P 15219 . 15453)) (15455 15691 (CL:OUTPUT-STREAM-P 15455 . 15691)) (15693 15830 - (XCL:OPEN-STREAM-P 15693 . 15830)) (15832 15899 (FILE-STREAM-POSITION 15832 . 15899)) (15951 17294 ( -CL:MAKE-SYNONYM-STREAM 15951 . 17294)) (17296 17385 (XCL:SYNONYM-STREAM-P 17296 . 17385)) (17387 17525 - (XCL:SYNONYM-STREAM-SYMBOL 17387 . 17525)) (17527 17805 (XCL:FOLLOW-SYNONYM-STREAMS 17527 . 17805)) ( -17807 18566 (CL:MAKE-BROADCAST-STREAM 17807 . 18566)) (18568 18711 (XCL:BROADCAST-STREAM-P 18568 . -18711)) (18713 18928 (XCL:BROADCAST-STREAM-STREAMS 18713 . 18928)) (18930 19615 ( -CL:MAKE-CONCATENATED-STREAM 18930 . 19615)) (19617 19716 (XCL:CONCATENATED-STREAM-P 19617 . 19716)) ( -19718 19931 (XCL:CONCATENATED-STREAM-STREAMS 19718 . 19931)) (19933 21517 (CL:MAKE-TWO-WAY-STREAM -19933 . 21517)) (21519 21656 (XCL:TWO-WAY-STREAM-P 21519 . 21656)) (21658 21803 ( -XCL:TWO-WAY-STREAM-OUTPUT-STREAM 21658 . 21803)) (21805 21949 (XCL:TWO-WAY-STREAM-INPUT-STREAM 21805 - . 21949)) (21951 23501 (CL:MAKE-ECHO-STREAM 21951 . 23501)) (23503 23632 (XCL:ECHO-STREAM-P 23503 . -23632)) (23634 23772 (XCL:ECHO-STREAM-INPUT-STREAM 23634 . 23772)) (23774 23913 ( -XCL:ECHO-STREAM-OUTPUT-STREAM 23774 . 23913)) (23915 24642 (CL:MAKE-STRING-INPUT-STREAM 23915 . 24642) -) (24644 25137 (MAKE-CONCATENATED-STRING-INPUT-STREAM 24644 . 25137)) (25139 25299 ( -%MAKE-INITIAL-STRING-STREAM-CONTENTS 25139 . 25299)) (25301 25731 (CL:WITH-OPEN-STREAM 25301 . 25731)) - (25733 26962 (CL:WITH-INPUT-FROM-STRING 25733 . 26962)) (26964 27466 (CL:WITH-OUTPUT-TO-STRING 26964 - . 27466)) (27468 28122 (CL:WITH-OPEN-FILE 27468 . 28122)) (28346 29872 ( -MAKE-FILL-POINTER-OUTPUT-STREAM 28346 . 29872)) (29874 30595 (CL:GET-OUTPUT-STREAM-STRING 29874 . -30595)) (30597 31076 (\\STRING-STREAM-OUTCHARFN 30597 . 31076)) (31078 32933 ( -\\ADJUSTABLE-STRING-STREAM-OUTCHARFN 31078 . 32933)) (32962 33044 (%NEW-FILE 32962 . 33044)) (33046 -33191 (PREDICT-NAME 33046 . 33191)) (33227 33378 (INTERLISP-ACCESS 33227 . 33378)) (33432 34620 ( -%BROADCAST-STREAM-DEVICE-BOUT 33442 . 33665) (%BROADCAST-STREAM-DEVICE-OUTCHARFN 33667 . 34118) ( -%BROADCAST-STREAM-DEVICE-CLOSEFILE 34120 . 34359) (%BROADCAST-STREAM-DEVICE-FORCEOUTPUT 34361 . 34618) -) (34622 34949 (%BROADCAST-STREAM-DEVICE-CHARSETFN 34622 . 34949)) (34950 37009 ( -%CONCATENATED-STREAM-DEVICE-BIN 34960 . 35365) (%CONCATENATED-STREAM-DEVICE-CLOSEFILE 35367 . 35680) ( -%CONCATENATED-STREAM-DEVICE-EOFP 35682 . 36046) (%CONCATENATED-STREAM-DEVICE-PEEKBIN 36048 . 36523) ( -%CONCATENATED-STREAM-DEVICE-BACKFILEPTR 36525 . 37007)) (37011 37342 ( -%CONCATENATED-STREAM-DEVICE-CHARSETFN 37011 . 37342)) (37343 37562 (%ECHO-STREAM-DEVICE-BIN 37353 . -37560)) (37564 37789 (%SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM 37564 . 37789)) (37790 41135 ( -%SYNONYM-STREAM-DEVICE-BIN 37800 . 37988) (%SYNONYM-STREAM-DEVICE-BOUT 37990 . 38191) ( -%SYNONYM-STREAM-DEVICE-OUTCHARFN 38193 . 38900) (%SYNONYM-STREAM-DEVICE-CLOSEFILE 38902 . 39486) ( -%SYNONYM-STREAM-DEVICE-EOFP 39488 . 39679) (%SYNONYM-STREAM-DEVICE-FORCEOUTPUT 39681 . 39919) ( -%SYNONYM-STREAM-DEVICE-GETFILEINFO 39921 . 40158) (%SYNONYM-STREAM-DEVICE-PEEKBIN 40160 . 40383) ( -%SYNONYM-STREAM-DEVICE-READP 40385 . 40496) (%SYNONYM-STREAM-DEVICE-BACKFILEPTR 40498 . 40644) ( -%SYNONYM-STREAM-DEVICE-SETFILEINFO 40646 . 40895) (%SYNONYM-STREAM-DEVICE-CHARSETFN 40897 . 41133)) ( -41136 45461 (%TWO-WAY-STREAM-DEVICE-BIN 41146 . 41319) (%TWO-WAY-STREAM-DEVICE-INPUTSTREAM 41321 . -41512) (%TWO-WAY-STREAM-DEVICE-BOUT 41514 . 41686) (%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM 41688 . 41878) - (%TWO-WAY-STREAM-DEVICE-OUTCHARFN 41880 . 42742) (%TWO-WAY-STREAM-DEVICE-CLOSEFILE 42744 . 44167) ( -%TWO-WAY-STREAM-DEVICE-EOFP 44169 . 44345) (%TWO-WAY-STREAM-DEVICE-READP 44347 . 44540) ( -%TWO-WAY-STREAM-DEVICE-BACKFILEPTR 44542 . 44678) (%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 44680 . 44909) ( -%TWO-WAY-STREAM-DEVICE-PEEKBIN 44911 . 45124) (%TWO-WAY-STREAM-DEVICE-CHARSETFN 45126 . 45459)) (45463 - 45688 (%FILL-POINTER-STREAM-DEVICE-CLOSEFILE 45463 . 45688)) (45690 45809 ( -%FILL-POINTER-STREAM-DEVICE-GETFILEPTR 45690 . 45809)) (46049 46288 (%SYNONYM-STREAM-DEVICE-GET-STREAM - 46059 . 46286)) (46519 46995 (%INITIALIZE-STANDARD-STREAMS 46519 . 46995)) (46996 52959 ( -%INITIALIZE-CLSTREAM-TYPES 47006 . 52957))))) + (FILEMAP (NIL (5227 14202 (OPEN 5227 . 14202)) (14204 15130 (CL:CLOSE 14204 . 15130)) (15132 15210 ( +CL:STREAM-EXTERNAL-FORMAT 15132 . 15210)) (15212 15279 (CL:STREAM-ELEMENT-TYPE 15212 . 15279)) (15281 +15515 (CL:INPUT-STREAM-P 15281 . 15515)) (15517 15753 (CL:OUTPUT-STREAM-P 15517 . 15753)) (15755 15892 + (XCL:OPEN-STREAM-P 15755 . 15892)) (15894 15961 (FILE-STREAM-POSITION 15894 . 15961)) (16013 17356 ( +CL:MAKE-SYNONYM-STREAM 16013 . 17356)) (17358 17447 (XCL:SYNONYM-STREAM-P 17358 . 17447)) (17449 17587 + (XCL:SYNONYM-STREAM-SYMBOL 17449 . 17587)) (17589 17867 (XCL:FOLLOW-SYNONYM-STREAMS 17589 . 17867)) ( +17869 18628 (CL:MAKE-BROADCAST-STREAM 17869 . 18628)) (18630 18773 (XCL:BROADCAST-STREAM-P 18630 . +18773)) (18775 18990 (XCL:BROADCAST-STREAM-STREAMS 18775 . 18990)) (18992 19677 ( +CL:MAKE-CONCATENATED-STREAM 18992 . 19677)) (19679 19778 (XCL:CONCATENATED-STREAM-P 19679 . 19778)) ( +19780 19993 (XCL:CONCATENATED-STREAM-STREAMS 19780 . 19993)) (19995 21579 (CL:MAKE-TWO-WAY-STREAM +19995 . 21579)) (21581 21718 (XCL:TWO-WAY-STREAM-P 21581 . 21718)) (21720 21865 ( +XCL:TWO-WAY-STREAM-OUTPUT-STREAM 21720 . 21865)) (21867 22011 (XCL:TWO-WAY-STREAM-INPUT-STREAM 21867 + . 22011)) (22013 23563 (CL:MAKE-ECHO-STREAM 22013 . 23563)) (23565 23694 (XCL:ECHO-STREAM-P 23565 . +23694)) (23696 23834 (XCL:ECHO-STREAM-INPUT-STREAM 23696 . 23834)) (23836 23975 ( +XCL:ECHO-STREAM-OUTPUT-STREAM 23836 . 23975)) (23977 24704 (CL:MAKE-STRING-INPUT-STREAM 23977 . 24704) +) (24706 25199 (MAKE-CONCATENATED-STRING-INPUT-STREAM 24706 . 25199)) (25201 25361 ( +%MAKE-INITIAL-STRING-STREAM-CONTENTS 25201 . 25361)) (25363 25793 (CL:WITH-OPEN-STREAM 25363 . 25793)) + (25795 27024 (CL:WITH-INPUT-FROM-STRING 25795 . 27024)) (27026 27528 (CL:WITH-OUTPUT-TO-STRING 27026 + . 27528)) (27530 28184 (CL:WITH-OPEN-FILE 27530 . 28184)) (28408 29934 ( +MAKE-FILL-POINTER-OUTPUT-STREAM 28408 . 29934)) (29936 30657 (CL:GET-OUTPUT-STREAM-STRING 29936 . +30657)) (30659 31138 (\\STRING-STREAM-OUTCHARFN 30659 . 31138)) (31140 32995 ( +\\ADJUSTABLE-STRING-STREAM-OUTCHARFN 31140 . 32995)) (33024 33106 (%NEW-FILE 33024 . 33106)) (33108 +33253 (PREDICT-NAME 33108 . 33253)) (33289 33440 (INTERLISP-ACCESS 33289 . 33440)) (33494 34682 ( +%BROADCAST-STREAM-DEVICE-BOUT 33504 . 33727) (%BROADCAST-STREAM-DEVICE-OUTCHARFN 33729 . 34180) ( +%BROADCAST-STREAM-DEVICE-CLOSEFILE 34182 . 34421) (%BROADCAST-STREAM-DEVICE-FORCEOUTPUT 34423 . 34680) +) (34684 35011 (%BROADCAST-STREAM-DEVICE-CHARSETFN 34684 . 35011)) (35012 37071 ( +%CONCATENATED-STREAM-DEVICE-BIN 35022 . 35427) (%CONCATENATED-STREAM-DEVICE-CLOSEFILE 35429 . 35742) ( +%CONCATENATED-STREAM-DEVICE-EOFP 35744 . 36108) (%CONCATENATED-STREAM-DEVICE-PEEKBIN 36110 . 36585) ( +%CONCATENATED-STREAM-DEVICE-BACKFILEPTR 36587 . 37069)) (37073 37404 ( +%CONCATENATED-STREAM-DEVICE-CHARSETFN 37073 . 37404)) (37405 37624 (%ECHO-STREAM-DEVICE-BIN 37415 . +37622)) (37626 37851 (%SYNONYM-STREAM-DEVICE-GET-INDIRECT-STREAM 37626 . 37851)) (37852 41197 ( +%SYNONYM-STREAM-DEVICE-BIN 37862 . 38050) (%SYNONYM-STREAM-DEVICE-BOUT 38052 . 38253) ( +%SYNONYM-STREAM-DEVICE-OUTCHARFN 38255 . 38962) (%SYNONYM-STREAM-DEVICE-CLOSEFILE 38964 . 39548) ( +%SYNONYM-STREAM-DEVICE-EOFP 39550 . 39741) (%SYNONYM-STREAM-DEVICE-FORCEOUTPUT 39743 . 39981) ( +%SYNONYM-STREAM-DEVICE-GETFILEINFO 39983 . 40220) (%SYNONYM-STREAM-DEVICE-PEEKBIN 40222 . 40445) ( +%SYNONYM-STREAM-DEVICE-READP 40447 . 40558) (%SYNONYM-STREAM-DEVICE-BACKFILEPTR 40560 . 40706) ( +%SYNONYM-STREAM-DEVICE-SETFILEINFO 40708 . 40957) (%SYNONYM-STREAM-DEVICE-CHARSETFN 40959 . 41195)) ( +41198 45523 (%TWO-WAY-STREAM-DEVICE-BIN 41208 . 41381) (%TWO-WAY-STREAM-DEVICE-INPUTSTREAM 41383 . +41574) (%TWO-WAY-STREAM-DEVICE-BOUT 41576 . 41748) (%TWO-WAY-STREAM-DEVICE-OUTPUTSTREAM 41750 . 41940) + (%TWO-WAY-STREAM-DEVICE-OUTCHARFN 41942 . 42804) (%TWO-WAY-STREAM-DEVICE-CLOSEFILE 42806 . 44229) ( +%TWO-WAY-STREAM-DEVICE-EOFP 44231 . 44407) (%TWO-WAY-STREAM-DEVICE-READP 44409 . 44602) ( +%TWO-WAY-STREAM-DEVICE-BACKFILEPTR 44604 . 44740) (%TWO-WAY-STREAM-DEVICE-FORCEOUTPUT 44742 . 44971) ( +%TWO-WAY-STREAM-DEVICE-PEEKBIN 44973 . 45186) (%TWO-WAY-STREAM-DEVICE-CHARSETFN 45188 . 45521)) (45525 + 45750 (%FILL-POINTER-STREAM-DEVICE-CLOSEFILE 45525 . 45750)) (45752 45871 ( +%FILL-POINTER-STREAM-DEVICE-GETFILEPTR 45752 . 45871)) (46111 46350 (%SYNONYM-STREAM-DEVICE-GET-STREAM + 46121 . 46348)) (46581 47057 (%INITIALIZE-STANDARD-STREAMS 46581 . 47057)) (47058 55373 ( +%INITIALIZE-CLSTREAM-TYPES 47068 . 55371))))) STOP diff --git a/sources/CLSTREAMS.LCOM b/sources/CLSTREAMS.LCOM index 777ed881b9bb2b369d68a1cb79796a95446e04a6..afcd0969f6c58b928a78df5cc0df304e1f52c867 100644 GIT binary patch delta 4613 zcmcIoYit}>72esk^RPF5#oqNR&doMSH?em!_s-mTY$A)bJ+{}`-P!D}6T3JGR_)qm zowc2iMir(mh#v?El=P~i2&hQ-!9$|TW{E@!$W-uyB2`U+AN;69^8@uCI8=%%5faXw zhqHDbO(lq;ojdn&&bi+?-#KUet$zu3?g$r;WswvaIX@pEA|VLNF|5Y06hh(9^9yGd z=jNxU&_WS~P|fm}2XaTha^(EE>9gm03zLiUlf~Zoh36;dd(TWy%}>81MQQJag|mgZ z;>@KtI#%fN0XS75TGV1xiBSzih5F4@CXqBEgYYvILd$c-WfU45O(s$0iD)zmYg3b7 znx2B?$`vk4jfryTKuws-=+7GQyfIL*N#Agp&uDxHT}G5DvWjB;!}0Wxk&EO_6dp|H zPz}TNoprHH);OLpM{|(@(0j>jIYd4yLS5y53qRk1Fgkc_)X0uU66V1Js5-S<@Oq{j z1y5nJ@pePwE3M@})c-`-+GRGByG+6^G$u}x?H>4dTC^Y0Ra3lD^7fj_m69-S2Bv2C z>e{u#s|$Q!{g}~OK3+AWrZ#J>o3YvUc6+oJM)2Rycbq=Lb~Sa65mU3)p1if>`Kh&G z?OHb%{1hkH51U$7q7ODcS^ibYeCoYt?$_8iJYvb5v+ipiX}CPwU?UJH3GbUSSQ>dc zQ?I@?U%T6kvZJB~_sZ#pWljZ~Lqdg<;BPZ&#-p#Egc$Y#wf!V=NZzO-?|VlBL45oO}} z;dDG@z?(?X3hV_U4n&fPG)xg)<);VDY$~3IS54-x{f;z3WMpQHbS@7^QV3&Jt`LV6 zoo}v?h80{X4a-`kG%Si}qJF{{%NyBrJZbAJf2XBe*ewweXlx}2FhT`RKd_ppgxv}R zj!_M{w8XPc=muG@wKCevK+wHVNCn)st{`B+(^a7+^RGd6B9fOR9iK4Q`j$K}vz&5!P zQ{~b7z$37)qx`*&KUNE$uow3Hco!s+;m1Vpa1$$uhjSXT9gxYI83ZK&O-$sBe7wKk z$mI~$G7R@*o-_?kss0xBa^>LUaw2dwom+Or0|#LO81*m`+t4) zj$je?N3*5-!4WSoJaM|tcYXV;HQOLeSs7M8_P%35a4q5Uw;akw_+u zp?ESH&ki91aqB<~;E3+nf*Y$F;3lH{5ZoMFBD43O4emhzAu>nvnNf%!U9W&n7wu?T z-Tx;cy!R2H{doguA8^n~PC*UZm^B@|DR_lu_K!oq`&7Ebh^)AF zS+;;bD{UcIdB_%aujg>BqB>kq2oslD{RB8{1v{abPxy!|vbU=OU4&4Z8$1oI8_RiV zrHjjvqu&3wu{95jWknpUtu%E32P9cUV~_xh{$Vp>`zQi&|3tgl<;WZ5&ymUcHo>>W zp>$#R_G{aCRsAZoI`L}uR{ZkH#A7I&tfcTss}?6L7QSZD`Rmqib2w$K*f0B24M0uE zK|Fh<2jYFuZN{_N_&7HfVq=5bth8s0`74VD`(@umC*^Dg%0U;HMFdKYePI}ih#fQ9 zt03JWc5!H5H-WV1E<#~krzw=12O(!?#PT=#U-t==?HO7XX!+LAmCk3vgGfXNosE%= z2^ZSJEx-2&%s5$ zfM3*{T~ya$qQysbkw14(Ag_I%@&aCH@l(aMkwP(@546gz1}Z_twscXV+J?NkqgKTf zuS*wocL#J4_Ffs1x-)`I<&2<_fO~W{%UD9oRX)y0-W5EvjIhkaVp|V9*Cj~n5~Otr zlImIs9l~$V1ifJFn}wiHk~wTauOzWs#Wt4tLX8i)Ehw9=Gz$ zI8|MRc}n6E{&~vp!%%v-Ma8i#Fb3j=-u88jl1hEJd-Q){V z*4P4Wslp;8)pr*=06WB%@J^T@BG0yP3NpavQ`lMyLnrBI)^$g*4!xeGS67{=(iQ0N z3e7&9@<0#xbWjOTL1#D50yCHD*ll>$f8JlELrGvuwL$LGfG(=GAWe5r&@|m%27h&H z8ZRds-KD9xa*lgTQ;2;A+~w1##4`T9UJZJLvq+Gbuw=Q&r-4s1{x){#T(uVfhM|^7 zBhBTM3Jt`=?opwWux_fl3{zD{S;njht1in_>L8-JJX2koDcrhJZA$6tR;h%CfqbM*t%~0^LT%K1q?O7?Kl)Okk?0S_-RItW@IVoD zEX&^K+v?@w3xs&hDL?JUu_TxHr4>%H;gsh3TpJ>GP~#+q-aHwD{X2sFPUh zF)2$@Gl}`-kJ>*|x!>R4--#|vO`e;cy71IDtj?Zb_r6RvJy=Mmis>Qodmrlf|L3u`mQ0*m`tS@&OSKp4GrU_4zo zlE~OE^`IKs?(sz(^ zua^AVZGN@nJ7PzsPRgfuukT)6l7{og?h8qK)$X(P8Rxle&a||+Ru@?CTQ5CMB*oD! zy@#=_JI|i&TB`b~<8b$SuME6_H^d*e#4h!%J3c%93bQxtyRa5?5hk6OvkqQ6*?489 z(ak`l$17XH=|3~Nz>|~Jx)~j%tLz|CR{pj z=|5j_u5kBypS{66K77Y+zY+LS>0#N4x^mK{S4$7SX}2pbO_$4)RpOt`bsM?Eg9q*% zzH7T;DLwd`cSP1rN4sg(O6Q7b zgz?H~1d3}tn#D2NH(sufbon}{1vTl`vOE++fv(?@Yr>934lsfgDq?b!K3q%}a;dDk zDls@J9?1g+qFV?cg8{dH6csL88I@oQqK1Rm(!8+ce?$)l{KORdO=WnliPnr{KDk<|y7lswrUSK^qk)^CysBT%!q!J3u~S@fMdwQU zSVc9BHjYfbpS}6q=uFGR&qwAyJX%`o9o_khmHR$N`9GW~t>F=WX{|GJJaDsa#@TH2 zO*#Lsf3lkMul%K|o9dc^jigj2CNkMhytp9wM>FXqRK<=?&dTVHqGQvkpB7~oqH@CV{IJzxDafcX=EEeW{ynSeE2p+JQjJ;^~lu$43$?Q2?sD1Kd6q^5vamUPJ*59y$$2y-{Ng@3skkc)lg^202GtT z0OAjHcaWK$f|zLfLaZKiW_TM^+&dSmMwAe-g2QznE!|O&c#C~sh)`JU;dSM;UElar z=Y`hKV}hJ*e*C}}ShS50bQqML9vrqk<`Y1tcXs(Lw)XtCs=wBF@|_#L_pQyc&%X)N zkyMKx4PI%elIx!hk5ygv}i~)ZEC5e7)1BW%#N_^Y^tl7no{4p>F)%5hOjfMKBN5n$ko=` zTqcWZ-x0@Vhs3VA8Zj~Rx$q`|NP}gHtJKeA#*W zz4;qp$Hc+{-U1CE=Qcem^#|&3&p%#QW2^bRjd? zFEK*LftNHQ8W&@6=*CcwWBob1zmS4tIjsoT&>0hV7Q+FZ!Vp|)6XzEjLXZzHCKi_$ zw+1xJ0H0_`9jX}?tRs+%KP^Vewz8kO7ioT&}Q#qycvhz3K*4X6fzi{ zK{+%{*NK~u2?rB5RBWzOwTH#emf9l>X2gZ+fNYtv&u_l~)6FzxpG-(gMPQF2utyP? zrY^`hhZ~0jjA@XhXe*=o)3d~g0ik2!jn4QJF63+`f8Z3 z#94eClnaA8i{s1B_3EfzF=cn#v+C#Mv z7DkkGSqpB41&lGd_}sx7x$v%Xrlx^dDv`vbz)3g)Gs(>{(YdlT_q4TKFah&XF-4e? z9RO0UM3IF#6wiV2a10R)4dDq&FsKV!1EdL44Xn7I=puJE;)fx3ITVe;KE_YHWLeI$ zZe%IFTT1ShQo99Wcdl=NyzeYF2P{s3!ARVK&-th6+yZ%*cE!cRW5Iw$y8P$hD|7XC#Gq7Fip_8|Zp=|BSkB_T4>?dAF?2SV1@foYWMB)QWw_}dHT3c^poEl&A3fpS;0-gNI}cR)y*-~Cq&mZBE&Vw z&(X)tKgicHL`zeF@fQ>0W^u#Yj4VMS8T%)HG*VJAH843v%^y^mPT9 Ws9<7gsNm-bbdQOJ(PndF6Mg`W|3-uW delta 189 zcmbQ*%J{m4aYDpoKSt4sxe@h7#=5?VmAXa-Mn(#TMpgzERtDxu3S3D=smb}d1(`Xi zDGI3-1x3ZGRthoB{z0yK{sFFjZk|4_3YmEdN^YS(J_^W2=;`SxDWoKp0JSM0i$jby zG*;5&(g5jp4svx2adlDH?8A6gpG{MN@hcOkaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;32 32949 +(FILECREATED " 3-Jul-2022 08:55:41"  +{DSK}kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;56 36413 :CHANGES-TO (VARS EXTERNALFORMATCOMS) - (MACROS \CHECKEOLC) - :PREVIOUS-DATE "22-Jun-2022 11:09:34" -{DSK}kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;30) + :PREVIOUS-DATE " 3-Jul-2022 00:35:47" +{DSK}kaplan>local>medley3.5>working-medley>sources>EXTERNALFORMAT.;55) (PRETTYCOMPRINT EXTERNALFORMATCOMS) (RPAQQ EXTERNALFORMATCOMS - [(COMS (* ; + [[COMS (* ;  "EXTERNALFORMAT declaration and related functions (originally on FILEIO)") (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (RECORDS EXTERNALFORMAT))) (INITRECORDS EXTERNALFORMAT) (SYSRECORDS EXTERNALFORMAT) - (FNS \EXTERNALFORMAT MAKE-EXTERNALFORMAT) + (FNS \EXTERNALFORMAT MAKE-EXTERNALFORMAT \EXTERNALFORMAT.DEFPRINT) (FNS \INSTALL.EXTERNALFORMAT \REMOVE.EXTERNALFORMAT FIND-FORMAT) - (GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*) - (GLOBALVARS \DEFAULTINCCODE \DEFAULTOUTCHAR \DEFAULTBACKCCODE \DEFAULTPEEKCCODE) + (GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*) (INITVARS (*EXTERNALFORMATS* NIL) - [*DEFAULT-EXTERNALFORMATS* '((DSK :XCCS] - (*DEFAULT-EXTERNALFORMAT* :XCCS))) + (*DEFAULT-EXTERNALFORMAT* :XCCS)) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P (DEFPRINT 'EXTERNALFORMAT (FUNCTION + \EXTERNALFORMAT.DEFPRINT + ] (COMS (* ;; "Generic functions not compiled open (originally on LLREAD)") @@ -33,6 +33,9 @@ (DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (MACROS \CHECKEOLC)) (RESOURCES \FORMATBYTESTRING.STREAM)) (INITRESOURCES \FORMATBYTESTRING.STREAM)) + [COMS (* ; "NULL device, from FILEIO") + (FNS \NULLDEVICE \NULL.OPENFILE) + (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\NULLDEVICE] (COMS (* ;; "Also from FILEIO, but not clear that this is or ever has been used.") @@ -124,6 +127,8 @@ (\EXTERNALFORMAT [LAMBDA (STREAM NEWFORMAT/NAME) + (* ;; "Edited 2-Jul-2022 19:17 by rmk: Fast case: NEWFORMAT/NAME is an external format") + (* ;; "Edited 22-Jun-2022 09:40 by rmk: NEWFORMAT/NAME can be a stream, picks its externalformat") (* ;; "Edited 10-Sep-2021 20:44 by rmk:") @@ -138,31 +143,29 @@ (* ;;; "") -(* ;;; ":DEFAULT means the default external format for STREAM's filedevice") - -(* ;;; "The all-device default is in *DEFAULT-EXTERNALFORMAT* or the DEFAULTEXTERNALFORMAT field of the file device. The list currently has priority since that makes it easier for a user without EXPORTS.ALL to systematically override. That may or may not be a useful capability. ") +(* ;;; ":DEFAULT means the default external format for STREAM's filedevice. If a different format is not specified when the device is created, it will default to the value of *DEFAULT-EXTERNALFORMAT*, initialized in FILEIO.") (\DTEST STREAM 'STREAM) (CL:WHEN NEWFORMAT/NAME - (CL:WHEN (type? READER-ENVIRONMENT NEWFORMAT/NAME) - (SETQ NEWFORMAT/NAME (fetch (READER-ENVIRONMENT REFORMAT) of NEWFORMAT/NAME))) - [LET (EXTFORMAT) - (if (type? EXTERNALFORMAT NEWFORMAT/NAME) - then (SETQ EXTFORMAT NEWFORMAT/NAME) - elseif (\GETSTREAM NEWFORMAT/NAME NIL T) - then (SETQ EXTFORMAT (ffetch (STREAM EXTERNALFORMAT) of NEWFORMAT/NAME)) - else (CL:WHEN (EQ NEWFORMAT/NAME :DEFAULT) - (SETQ NEWFORMAT/NAME (OR (CADR (ASSOC (fetch DEVICENAME - of (fetch DEVICE of STREAM)) - *DEFAULT-EXTERNALFORMATS*)) - (fetch (FDEV DEFAULTEXTERNALFORMAT) - of (fetch DEVICE of STREAM)) - *DEFAULT-EXTERNALFORMAT*))) - (SETQ EXTFORMAT (FIND-FORMAT NEWFORMAT/NAME)) - (CL:UNLESS EXTFORMAT (ERROR NEWFORMAT/NAME - "is not a registered external format name"))) + [LET ((EXTFORMAT NEWFORMAT/NAME)) (CL:UNLESS (type? EXTERNALFORMAT EXTFORMAT) - (ERROR "INVALID EXTERNALFORMAT " EXTFORMAT)) + + (* ;; "Try for coercions") + + (CL:WHEN (type? READER-ENVIRONMENT NEWFORMAT/NAME) + (SETQ NEWFORMAT/NAME (fetch (READER-ENVIRONMENT REFORMAT) of NEWFORMAT/NAME))) + (if (type? EXTERNALFORMAT NEWFORMAT/NAME) + then (SETQ EXTFORMAT NEWFORMAT/NAME) + elseif (\GETSTREAM NEWFORMAT/NAME NIL T) + then (SETQ EXTFORMAT (ffetch (STREAM EXTERNALFORMAT) of NEWFORMAT/NAME)) + else (CL:WHEN (EQ NEWFORMAT/NAME :DEFAULT) + (SETQ NEWFORMAT/NAME (fetch (FDEV DEFAULTEXTERNALFORMAT) + of (fetch (STREAM DEVICE) of STREAM)))) + (SETQ EXTFORMAT (FIND-FORMAT NEWFORMAT/NAME NIL STREAM)) + (CL:UNLESS EXTFORMAT (ERROR NEWFORMAT/NAME + "is not a registered external format name"))) + (CL:UNLESS (type? EXTERNALFORMAT EXTFORMAT) + (ERROR "INVALID EXTERNALFORMAT " EXTFORMAT))) (UNINTERRUPTABLY (freplace (STREAM EXTERNALFORMAT) of STREAM with EXTFORMAT) (CL:WHEN (ffetch (EXTERNALFORMAT EOLVALID) of EXTFORMAT) @@ -179,11 +182,28 @@ (ffetch (EXTERNALFORMAT NAME) of (fetch (STREAM EXTERNALFORMAT) of STREAM]) (MAKE-EXTERNALFORMAT - [LAMBDA (NAME INCCODEFN PEEKCCODEFN BACKCCODEFN OUTCHARFN FORMATBYTESTREAMFN EOL UNSTABLE) + [LAMBDA (NAME INCCODEFN PEEKCCODEFN BACKCCODEFN OUTCHARFN FORMATBYTESTREAMFN EOL UNSTABLE + FORMATBYTESTRINGFN DEFAULT) (* ; "Edited 3-Jul-2022 00:35 by rmk") (* ; "Edited 10-Sep-2021 19:47 by rmk:") - (* ;; "Compiled creator for EXTERNALFORMAT so that declaration (EXPORTS.ALL) is not needed. If EOL is not specified, then EOLVALID is also NIL") + (* ;; "Compiled creator for EXTERNALFORMAT so that declaration (EXPORTS.ALL) is not needed. If EOL is not specified, then EOLVALID is also NIL. Fills in missing functions from DEFAULT if given. If DEFAULT is T, use *DEFAULT-EXTERNALFORMAT*.") + (CL:WHEN DEFAULT + [LET [(DEF (FIND-FORMAT (CL:IF (EQ DEFAULT T) + *DEFAULT-EXTERNALFORMAT* + DEFAULT)] + (CL:UNLESS INCCODEFN + (SETQ INCCODEFN (FETCH (EXTERNALFORMAT INCCODEFN) + DEF))) + (CL:UNLESS PEEKCCODEFN + (SETQ PEEKCCODEFN (FETCH (EXTERNALFORMAT PEEKCCODEFN) + DEF))) + (CL:UNLESS BACKCCODEFN + (SETQ BACKCCODEFN (FETCH (EXTERNALFORMAT BACKCCODEFN) + DEF))) + (CL:UNLESS OUTCHARFN + (SETQ OUTCHARFN (FETCH (EXTERNALFORMAT OUTCHARFN) + DEF)))]) (SETQ EOL (SELECTC EOL ((LIST 'LF LF.EOLC) LF.EOLC) @@ -194,15 +214,25 @@ (NIL) (SHOULDNT))) (\INSTALL.EXTERNALFORMAT (CREATE EXTERNALFORMAT - NAME _ NAME - INCCODEFN _ INCCODEFN - PEEKCCODEFN _ PEEKCCODEFN - BACKCCODEFN _ BACKCCODEFN - OUTCHARFN _ OUTCHARFN - FORMATBYTESTREAMFN _ FORMATBYTESTREAMFN - EOLVALID _ EOL - EOL _ (OR EOL LF.EOLC) - UNSTABLE _ UNSTABLE]) + NAME _ NAME + INCCODEFN _ INCCODEFN + PEEKCCODEFN _ PEEKCCODEFN + BACKCCODEFN _ BACKCCODEFN + OUTCHARFN _ OUTCHARFN + FORMATBYTESTREAMFN _ FORMATBYTESTREAMFN + EOLVALID _ EOL + EOL _ (OR EOL LF.EOLC) + UNSTABLE _ UNSTABLE + FORMATBYTESTRINGFN _ FORMATBYTESTRINGFN]) + +(\EXTERNALFORMAT.DEFPRINT + [LAMBDA (EXTERNALFORMAT STREAM) (* ; "Edited 2-Jul-2022 11:40 by rmk") + (* ; "Edited 8-May-87 15:55 by bvm") + + (* ;; "Print device using its name, for example, #") + + (\DEFPRINT.BY.NAME EXTERNALFORMAT STREAM (fetch (EXTERNALFORMAT NAME) of EXTERNALFORMAT) + "EXTERNALFORMAT"]) ) (DEFINEQ @@ -248,31 +278,28 @@ *EXTERNALFORMATS*]) (FIND-FORMAT - [LAMBDA (NAME NOERROR) (* ; "Edited 7-Aug-2021 09:29 by rmk:") + [LAMBDA (NAME NOERROR) (* ; "Edited 2-Jul-2022 18:55 by rmk") + (* ; "Edited 7-Aug-2021 09:29 by rmk:") (IF (TYPE? EXTERNALFORMAT NAME) THEN NAME - ELSE (SETQ NAME (MKATOM NAME)) (* ; - "The EQMEMB allows for synonyms, the first of which should be canonical. E.g. (:UTF-8 :UTF8)") - (OR (FIND EF IN *EXTERNALFORMATS* SUCHTHAT (EQ NAME (FETCH ( - EXTERNALFORMAT - NAME) - OF EF))) - (CL:UNLESS NOERROR (ERROR NAME "is not an external format"]) + ELSE (SETQ NAME (MKATOM NAME)) (* ; + "The EQMEMB allows for synonyms, the first of which should be canonical. E.g. (:UTF-8 :UTF8)") + (OR (FIND EF IN *EXTERNALFORMATS* SUCHTHAT (EQ NAME (FETCH (EXTERNALFORMAT NAME) + OF EF))) + (CL:UNLESS NOERROR (ERROR NAME "is not an external format"]) ) (DECLARE%: DOEVAL@COMPILE DONTCOPY -(GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*) -) -(DECLARE%: DOEVAL@COMPILE DONTCOPY - -(GLOBALVARS \DEFAULTINCCODE \DEFAULTOUTCHAR \DEFAULTBACKCCODE \DEFAULTPEEKCCODE) +(GLOBALVARS *EXTERNALFORMATS* *DEFAULT-EXTERNALFORMAT*) ) (RPAQ? *EXTERNALFORMATS* NIL) -(RPAQ? *DEFAULT-EXTERNALFORMATS* '((DSK :XCCS))) - (RPAQ? *DEFAULT-EXTERNALFORMAT* :XCCS) +(DECLARE%: DONTEVAL@LOAD DOCOPY + +(DEFPRINT 'EXTERNALFORMAT (FUNCTION \EXTERNALFORMAT.DEFPRINT)) +) @@ -281,7 +308,8 @@ (DEFINEQ (\OUTCHAR - [LAMBDA (STREAM CODE) (* ; "Edited 10-Aug-2021 10:29 by rmk:") + [LAMBDA (STREAM CODE) (* ; "Edited 30-Jun-2022 10:02 by rmk") + (* ; "Edited 10-Aug-2021 10:29 by rmk:") (* ;; "We can't do the EOL stuff here because we don't know whether BOUTs are legit.") @@ -290,18 +318,18 @@ (* ;; "") (* ;; "This would make CHARPOSITION generic:") - (* (FREPLACE (STREAM CHARPOSITION) - OF STREAM WITH (CL:IF - (EQ CODE (CHARCODE EOL)) 0 - (IPLUS16 1 (FFETCH - (STREAM CHARPOSITION) OF STREAM))))) - (CL:FUNCALL (OR (ffetch (STREAM OUTCHARFN) of STREAM) - \DEFAULTOUTCHAR) + (* (FREPLACE (STREAM CHARPOSITION) OF + STREAM WITH (CL:IF (EQ CODE + (CHARCODE EOL)) 0 (IPLUS16 1 + (FFETCH (STREAM CHARPOSITION) OF + STREAM))))) + (CL:FUNCALL (ffetch (STREAM OUTCHARFN) of STREAM) STREAM CODE) CODE]) (\INCCODE - [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 7-Aug-2021 00:11 by rmk:") + [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 30-Jun-2022 10:04 by rmk") + (* ; "Edited 7-Aug-2021 00:11 by rmk:") (* ;; "Calling functions pass the name of the BYTECOUNTVAR, or NIL. If non-NIL, implementing functions are required to SETQ *BYTECOUNTER* to the number of bytes read (positive) or backed up (negative).") @@ -309,37 +337,35 @@ (IF BYTECOUNTVAR THEN [LET ((*BYTECOUNTER* 0)) - (DECLARE (SPECVARS *BYTECOUNTER*)) - (PROG1 (CL:FUNCALL (OR (ffetch (STREAM INCCODEFN) of STREAM) - \DEFAULTINCCODE) - STREAM - '*BYTECOUNTER*) - (SET BYTECOUNTVAR (IDIFFERENCE (OR BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR)) - *BYTECOUNTER*)))] - ELSE (CL:FUNCALL (OR (ffetch (STREAM INCCODEFN) of STREAM) - \DEFAULTINCCODE) - STREAM]) + (DECLARE (SPECVARS *BYTECOUNTER*)) + (PROG1 (CL:FUNCALL (ffetch (STREAM INCCODEFN) of STREAM) + STREAM + '*BYTECOUNTER*) + (SET BYTECOUNTVAR (IDIFFERENCE (OR BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR)) + *BYTECOUNTER*)))] + ELSE (CL:FUNCALL (ffetch (STREAM INCCODEFN) of STREAM) + STREAM]) (\BACKCCODE - [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 14-Aug-2021 00:26 by rmk:") + [LAMBDA (STREAM BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 30-Jun-2022 10:00 by rmk") + (* ; "Edited 14-Aug-2021 00:26 by rmk:") (* ;; -"Format function returns T if the backup succeed, NIL otherwise (e.g at the beginning of the file)") + "Format function returns T if the backup succeed, NIL otherwise (e.g at the beginning of the file)") (IF BYTECOUNTVAR THEN [LET ((*BYTECOUNTER* 0)) - (DECLARE (SPECVARS *BYTECOUNTER*)) - (PROG1 (CL:FUNCALL (OR (ffetch (STREAM BACKCCODEFN) of STREAM) - \DEFAULTBACKCCODE) - STREAM T) - (SET BYTECOUNTVAR (IPLUS (OR BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR)) - *BYTECOUNTER*)))] - ELSE (CL:FUNCALL (OR (ffetch (STREAM BACKCCODEFN) of STREAM) - \DEFAULTBACKCCODE) - STREAM]) + (DECLARE (SPECVARS *BYTECOUNTER*)) + (PROG1 (CL:FUNCALL (ffetch (STREAM BACKCCODEFN) of STREAM) + STREAM T) + (SET BYTECOUNTVAR (IPLUS (OR BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR)) + *BYTECOUNTER*)))] + ELSE (CL:FUNCALL (ffetch (STREAM BACKCCODEFN) of STREAM) + STREAM]) (\BACKCCODE.EOLC - [LAMBDA (STREAM EOLC BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 18-Jun-2022 18:45 by rmk") + [LAMBDA (STREAM EOLC BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 30-Jun-2022 10:02 by rmk") + (* ; "Edited 18-Jun-2022 18:45 by rmk") (* ; "Edited 14-Aug-2021 00:27 by rmk:") (* ;; "If the EOLCONVENTION is CRLF, and the first backup is over an LF encoding, this looks to see whether the preceding bytes encode a CR and if so, backs up over those.") @@ -352,32 +378,27 @@ (* ;; "In almost all cases, we just execute the first backup") - (PROG1 (CL:WHEN (CL:FUNCALL (OR (ffetch (STREAM BACKCCODEFN) of STREAM) - \DEFAULTBACKCCODE) + (PROG1 (CL:WHEN (CL:FUNCALL (ffetch (STREAM BACKCCODEFN) of STREAM) STREAM) (SELECTC (OR EOLC (ffetch (STREAM EOLCONVENTION) OF STREAM)) ((LIST CRLF.EOLC ANY.EOLC 'CRLF 'ANY) (CL:WHEN (EQ (CHARCODE LF) - (CL:FUNCALL (OR (ffetch (STREAM PEEKCCODEFN) of STREAM) - \DEFAULTPEEKCCODE) + (CL:FUNCALL (ffetch (STREAM PEEKCCODEFN) of STREAM) STREAM)) (* ;;  "We just backed over an LF with EOLC= CRLF or ANY. If we go one more, do we get a CR?") - (CL:WHEN (CL:FUNCALL (OR (ffetch (STREAM BACKCCODEFN) of STREAM) - \DEFAULTBACKCCODE) + (CL:WHEN (CL:FUNCALL (ffetch (STREAM BACKCCODEFN) of STREAM) STREAM) (CL:UNLESS (EQ (CHARCODE CR) - (CL:FUNCALL (OR (ffetch (STREAM PEEKCCODEFN) - of STREAM) - \DEFAULTPEEKCCODE) + (CL:FUNCALL (ffetch (STREAM PEEKCCODEFN) + of STREAM) STREAM)) (* ;; "Not a preceding CR, reread it.") - (CL:FUNCALL (OR (ffetch (STREAM INCCODEFN) of STREAM) - \DEFAULTINCCODE) + (CL:FUNCALL (ffetch (STREAM INCCODEFN) of STREAM) STREAM))))) NIL) T) @@ -386,58 +407,54 @@ (IDIFFERENCE STARTPOS (\GETFILEPTR STREAM]))]) (\PEEKCCODE - [LAMBDA (STREAM NOERROR EOL) (* ; "Edited 14-Jun-2021 12:40 by rmk:") - (\CHECKEOLC (CL:FUNCALL (OR (ffetch (STREAM PEEKCCODEFN) of STREAM) - \DEFAULTPEEKCCODE) + [LAMBDA (STREAM NOERROR EOL) (* ; "Edited 30-Jun-2022 10:03 by rmk") + (* ; "Edited 14-Jun-2021 12:40 by rmk:") + (\CHECKEOLC (CL:FUNCALL (ffetch (STREAM PEEKCCODEFN) of STREAM) STREAM NOERROR) EOL STREAM T]) (\PEEKCCODE.NOEOLC - [LAMBDA (STREAM NOERROR) (* ; "Edited 27-Jun-2021 23:26 by rmk:") - (CL:FUNCALL (OR (ffetch (STREAM PEEKCCODEFN) of STREAM) - \DEFAULTPEEKCCODE) + [LAMBDA (STREAM NOERROR) (* ; "Edited 30-Jun-2022 10:03 by rmk") + (* ; "Edited 27-Jun-2021 23:26 by rmk:") + (CL:FUNCALL (ffetch (STREAM PEEKCCODEFN) of STREAM) STREAM NOERROR]) (\INCCODE.EOLC - [LAMBDA (STREAM EOLC BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 8-Aug-2021 14:52 by rmk:") + [LAMBDA (STREAM EOLC BYTECOUNTVAR BYTECOUNTVAL) (* ; "Edited 30-Jun-2022 10:12 by rmk") + (* ; "Edited 8-Aug-2021 14:52 by rmk:") - (* ;; - "EOL conversion around essentially a copy of \INCCODE but avoids the extra function call.") + (* ;; "EOL conversion around essentially a copy of \INCCODE but avoids the extra function call.") - (* ;; " EOLC of NIL means all patterns go to EOL") + (* ;; " EOLC of ANY means all patterns go to EOL") (IF BYTECOUNTVAR THEN [LET (*BYTECOUNTER* CODE) - (DECLARE (SPECVARS *BYTECOUNTER*)) + (DECLARE (SPECVARS *BYTECOUNTER*)) - (* ;; "The INCCODEFN first sets *BYTECOUNTER*") + (* ;; "The INCCODEFN first sets *BYTECOUNTER*") - (CL:UNLESS BYTECOUNTVAL - (SETQ BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR))) - (SETQ CODE (CL:FUNCALL (OR (ffetch (STREAM INCCODEFN) of STREAM) - \DEFAULTINCCODE) - STREAM T)) + (CL:UNLESS BYTECOUNTVAL + (SETQ BYTECOUNTVAL (\EVALV1 BYTECOUNTVAR))) + (SETQ CODE (CL:FUNCALL (ffetch (STREAM INCCODEFN) of STREAM) + STREAM T)) - (* ;; "Update according to the number of first-char (CR or LF) bytes") + (* ;; "Update according to the number of first-char (CR or LF) bytes") - (SETQ BYTECOUNTVAL (IDIFFERENCE BYTECOUNTVAL *BYTECOUNTER*)) - (SETQ *BYTECOUNTER* 0) + (SETQ BYTECOUNTVAL (IDIFFERENCE BYTECOUNTVAL *BYTECOUNTER*)) + (SETQ *BYTECOUNTER* 0) - (* ;; - "*BYTECOUNTER* will now be reset to the number of LF-after-CR bytes, if any") + (* ;; "*BYTECOUNTER* will now be reset to the number of LF-after-CR bytes, if any") - (PROG1 (\CHECKEOLC CODE (OR EOLC (FFETCH (STREAM EOLCONVENTION) - OF STREAM)) - STREAM NIL T) + (PROG1 (\CHECKEOLC CODE (OR EOLC (FFETCH (STREAM EOLCONVENTION) OF STREAM)) + STREAM NIL T) - (* ;; "Post the results") + (* ;; "Post the results") - (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL *BYTECOUNTER*)))] - ELSE (\CHECKEOLC (CL:FUNCALL (OR (ffetch (STREAM INCCODEFN) of STREAM) - \DEFAULTINCCODE) - STREAM) - (OR EOLC (FFETCH (STREAM EOLCONVENTION) OF STREAM)) - STREAM]) + (SET BYTECOUNTVAR (IDIFFERENCE BYTECOUNTVAL *BYTECOUNTER*)))] + ELSE (\CHECKEOLC (CL:FUNCALL (ffetch (STREAM INCCODEFN) of STREAM) + STREAM) + (OR EOLC (FFETCH (STREAM EOLCONVENTION) OF STREAM)) + STREAM]) (\FORMATBYTESTREAM [LAMBDA (STREAM BYTESTREAM) (* ; "Edited 22-Jun-2022 11:09 by rmk") @@ -574,6 +591,59 @@ +(* ; "NULL device, from FILEIO") + +(DEFINEQ + +(\NULLDEVICE + [LAMBDA NIL (* bvm%: "30-Jan-85 22:06") + + (* ;; "Defines the NULL device, an infinite source or sink") + + (\DEFINEDEVICE 'NULL (create FDEV + DEVICENAME _ 'NULL + RANDOMACCESSP _ T + NODIRECTORIES _ T + CLOSEFILE _ (FUNCTION NILL) + DELETEFILE _ (FUNCTION NILL) + OPENFILE _ (FUNCTION \NULL.OPENFILE) + REOPENFILE _ (FUNCTION \NULL.OPENFILE) + BIN _ (FUNCTION \EOF.ACTION) + BOUT _ (FUNCTION NILL) + PEEKBIN _ [FUNCTION (LAMBDA (STREAM NOERRORFLG) + (AND (NULL NOERRORFLG) + (BIN STREAM] + READP _ (FUNCTION NILL) + BACKFILEPTR _ (FUNCTION NILL) + EOFP _ (FUNCTION TRUE) + RENAMEFILE _ (FUNCTION NILL) + GETFILENAME _ (FUNCTION NILL) + EVENTFN _ (FUNCTION NILL) + BLOCKIN _ (FUNCTION \EOF.ACTION) + BLOCKOUT _ (FUNCTION NILL) + GENERATEFILES _ (FUNCTION \NULLFILEGENERATOR) + GETFILEPTR _ (FUNCTION ZERO) + GETEOFPTR _ (FUNCTION ZERO) + SETFILEPTR _ (FUNCTION NILL) + GETFILEINFO _ (FUNCTION NILL) + SETFILEINFO _ (FUNCTION NILL) + SETEOFPTR _ (FUNCTION NILL]) + +(\NULL.OPENFILE + [LAMBDA (NAME ACCESS RECOG PARAMETERS DEVICE OLDSTREAM) (* bvm%: "30-Jan-85 22:05") + (OR OLDSTREAM (create STREAM + USERCLOSEABLE _ T + ACCESS _ ACCESS + FULLFILENAME _ NIL + DEVICE _ DEVICE]) +) +(DECLARE%: DONTEVAL@LOAD DOCOPY + +(\NULLDEVICE) +) + + + (* ;; "Also from FILEIO, but not clear that this is or ever has been used.") (DEFINEQ @@ -625,11 +695,13 @@ (\CREATE.THROUGH.EXTERNALFORMAT) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (6252 11542 (\EXTERNALFORMAT 6262 . 10227) (MAKE-EXTERNALFORMAT 10229 . 11540)) (11543 -14656 (\INSTALL.EXTERNALFORMAT 11553 . 13002) (\REMOVE.EXTERNALFORMAT 13004 . 13835) (FIND-FORMAT -13837 . 14654)) (15105 29364 (\OUTCHAR 15115 . 16251) (\INCCODE 16253 . 17439) (\BACKCCODE 17441 . -18335) (\BACKCCODE.EOLC 18337 . 21214) (\PEEKCCODE 21216 . 21532) (\PEEKCCODE.NOEOLC 21534 . 21796) ( -\INCCODE.EOLC 21798 . 23657) (\FORMATBYTESTREAM 23659 . 25292) (\FORMATBYTESTRING 25294 . 26796) ( -\CHECKEOLC.CRLF 26798 . 29362)) (31010 32853 (\CREATE.THROUGH.EXTERNALFORMAT 31020 . 31822) ( -\THROUGHIN 31824 . 32244) (\THROUGHBACKCCODE 32246 . 32513) (\THROUGHOUTCHARFN 32515 . 32851))))) + (FILEMAP (NIL (6535 13170 (\EXTERNALFORMAT 6545 . 10323) (MAKE-EXTERNALFORMAT 10325 . 12697) ( +\EXTERNALFORMAT.DEFPRINT 12699 . 13168)) (13171 16212 (\INSTALL.EXTERNALFORMAT 13181 . 14630) ( +\REMOVE.EXTERNALFORMAT 14632 . 15463) (FIND-FORMAT 15465 . 16210)) (16561 30496 (\OUTCHAR 16571 . +17788) (\INCCODE 17790 . 18943) (\BACKCCODE 18945 . 19808) (\BACKCCODE.EOLC 19810 . 22397) (\PEEKCCODE + 22399 . 22773) (\PEEKCCODE.NOEOLC 22775 . 23107) (\INCCODE.EOLC 23109 . 24789) (\FORMATBYTESTREAM +24791 . 26424) (\FORMATBYTESTRING 26426 . 27928) (\CHECKEOLC.CRLF 27930 . 30494)) (32098 34334 ( +\NULLDEVICE 32108 . 34010) (\NULL.OPENFILE 34012 . 34332)) (34474 36317 ( +\CREATE.THROUGH.EXTERNALFORMAT 34484 . 35286) (\THROUGHIN 35288 . 35708) (\THROUGHBACKCCODE 35710 . +35977) (\THROUGHOUTCHARFN 35979 . 36315))))) STOP diff --git a/sources/EXTERNALFORMAT.LCOM b/sources/EXTERNALFORMAT.LCOM index 0f67a0d8189404aa38d62ff7959a0eb042af02b0..3dfcd7fa53fa1a6ef18fcd67205822f010e15a01 100644 GIT binary patch delta 3678 zcmai1Pi))P8K)`PRT*2B6s2(7#C~iB+hM023=BIA8`gdAkuSED z0TW>B$B*Cp{(s;5^ga7O-S57VN9xk*+dE5&tSCsXENj|w3E$uT(m>M}(ApQNbN8*!Eu)^h<~R*=-L9JvE_xl)wQR>kH{V2a7Q98r z#TARiIn=-YRS@w%)ZhzvZb2&0<8|LO0<$s16_Y>3iHbyAB^zU zx=Rf>HgpPH0RPJL)TpK{NImlBWS+d5N|M*bmj?%;Ac(aw0Y1k5L6qhEZVD&1tDC`h1PyzJ1dHI9|+kn z*KelpZ{NE`DL{}ZN57fLXF{emBNP->C7+%<`vO)K)NOfdPJ;$dJ)Sj|rz%;Ro*E#G z6;$^f3srUaMiof($@G<~HQd|+D-GRskPyrRGFtE{+s<0s^ zCz&DI&p{}~nh}?6ik0X%jW2kLtEk7t6<4kmU88M+&SC3V`b%i;q-^Nwp6!y%*coz| z9Nl|w>@NvT$1+p|Ms=@Y0+4zAAYpQZnsHEotk#Sjv6VJ5f@?bx{E=O0YC?x7cHpET z>ll+iN-LA)gdil02aC7pk%J0ZIyGO+j)=AG)iju10@)@@OV3<4oOMi7QbCKf^6K82 z3k|eLK0ft42rfMltTMrBB=|xk_%gXTj?j@{=n^VefzWWl)W#o<&pNt-L6lByRAfLJ zv$hJT#83s0%1{}Q!jKM#CdlxEj@N|;nUOW}t4u`{enDyz^HQul_wYJ-d*VfWDXbkV zXGapX?W^hBj&%6orP{&e>`1bk z9qN|O4h*9;9v)?|*1d*wTCR>oew)6S&=rOJJw2EDHq6ZgC?NBb-x8tWcPH~pO2m$F z#E+`rHa#AZK`fL$1jhAD BK%p6El$-mOm)9EPZ;7gqIqm;jsIX|H*8pMNzPAQQO zGQsm5==S8w2cHPP&ejt34_8=6LW5Hur?NjKzt4VW1{$$fZ<+P0R9%rZ9TK&L8hrZ=BPxb(HM>Mt$A0}()Nhny0ABkd8py1HR722e1LcU7T zY;*)NWCBOh=I0kYI%8*F*N>^e4WfM_gTKAec(=~k?O0Z@4Y+|Sy z`7|*-P!v68!(59TYr)l63$DuOi>B`(+O-iVE77t=7o{c@Z3J|0fWl-tF2nr03;ZMfxl)V47*0eB*$LC3UO?`i|V!#`&Wj}I;H^{oUtBl ze^CEJlv1o)jXi}K!P)|rf_IY%I(UL>9rML^q04EBL+Ihspy)_w+%+2VoJKsLY+#Ra z1^uI^JgIxNm;;*&{7v#g-LET7COb2{wYQyuvH+NpC!Kczms~Le1@uqhQ0Mz%!M!oTm1vRH|{^fnvzv%*vj>d2+>Qq0)dBu zioL@yu7_3tde!OGqYV)2a=akIupdDEI8f}4={AEFszA=7uohh}U|~mP{b?FqLrt$6 zZL3-Z67AV-qiK4bE`scG8S$!DY#SRZYnBB$iEiK5dTQ`d*7Yang^DC2!3#eebcCZdzg`@%r&wu{RB3j<4*Sibws$te0!#Ck)3hAJ; z&+_d>B0olFOV*kjb;nS^xb|Ryeo&$AwY#XWh%Q}15~<8MXJC=3vz?{4V$`ojP$J)- zX`k*5FSKytpELd`-|Tv8KGYvP-ZPZAJ0EpQJhX=GCLhkWMkOkeeBtcuULO4^k>g>KAWG4WNTUKj*#2Ks W$iloeadZbkN;y=g*i4$V>!@KDRzIb-#z4^`j=Hva_ zxTk-7@r00Fym0IKqQDCR5UD5%MX7MNx49z<8AuCqXcWYvlr8ePG_W_{diUCm?U%Z6 z!*W&K&{SJfnpy=9JsE;PP!f5l>SkrJ zYT0$A3347ft6Hn(A??N0Cl`uc83FxPzA=4WKQROg{A-W)k7}zcg zK(ax&{u%ns#MwzAi9u)rotP+3DPAy(UNGl}!ElpcJsFJX1|y>HFc>)iDl6)mN5&!a zK$)SJCua>JJB(yqZVD*Lu9Qbfa-|$fqAO)l^4OG7B3LNJZm#1-a0qp%mFSO&e3bcv zPR8exkH(t%_5->cpEKM2(x4caVx`_%Jhjap>?)tfCWruHzzd{XO7>)0gQzy($4YQZES{cy)HQ;gWW|$ z4*?gA2SIo&g9GX5ag8~nl?T&uwlajx7(_`kiFC{vQ3T#R>CIJG27j)e7^~p=BZIZ% zg80+rc8e@w3%K1Pi}dS6GyOVl{{q6++H42-%!V1io5669ONWF(`Nrn-y=7 ztl+bW6>}9lrho=SMLN+sbmIG9aZmeB_Wn+h(Y=+K_ha8T^L-66Zzpw&(&?$i?iKDZoLX{kaplan>Local>medley3.5>my-medley>sources>FILEIO.;107 160995 +(FILECREATED " 3-Jul-2022 08:55:45"  +{DSK}kaplan>local>medley3.5>working-medley>sources>FILEIO.;111 159022 - :CHANGES-TO (FNS \GENERATEFILES) + :CHANGES-TO (VARS FILEIOCOMS) - :PREVIOUS-DATE " 7-Mar-2022 21:22:44" -{DSK}kaplan>Local>medley3.5>my-medley>sources>FILEIO.;106) + :PREVIOUS-DATE " 2-Jul-2022 18:55:29" +{DSK}kaplan>local>medley3.5>working-medley>sources>FILEIO.;110) (* ; " @@ -119,9 +120,6 @@ Copyright (c) 1981-1993, 1999, 2020-2022 by Venue & Xerox Corporation. (COMS (* ; "Buffered IO") (FNS \BUFFERED.BIN \BUFFERED.PEEKBIN \BUFFERED.BOUT \BUFFERED.BINS \BUFFERED.BOUTS \BUFFERED.COPYBYTES)) - [COMS (* ; "NULL device") - (FNS \NULLDEVICE \NULL.OPENFILE) - (DECLARE%: DONTEVAL@LOAD DOCOPY (P (\NULLDEVICE] (LOCALVARS . T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) @@ -393,7 +391,13 @@ Copyright (c) 1981-1993, 1999, 2020-2022 by Venue & Xerox Corporation. ENDOFSTREAMOP _ (FUNCTION \EOSERROR) IMAGEOPS _ \NOIMAGEOPS EOLCONVENTION _ LF.EOLC STRMBINFN _ (FUNCTION \STREAM.NOT.OPEN) STRMBOUTFN _ (FUNCTION \STREAM.NOT.OPEN) - LASTCCODE _ 65535) + LASTCCODE _ 65535 (CREATE (PROGN (\EXTERNALFORMAT DATUM (OR (FETCH (FDEV + DEFAULTEXTERNALFORMAT + ) + OF (FFETCH (STREAM DEVICE) + OF DATUM)) + :DEFAULT)) + DATUM))) ) (/DECLAREDATATYPE 'STREAM @@ -933,7 +937,8 @@ Copyright (c) 1981-1993, 1999, 2020-2022 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)) ) @@ -3029,59 +3034,6 @@ update the map") (T (SETQ NBYTES (IDIFFERENCE NBYTES NB] repeatwhile (FDEVOP 'GETNEXTBUFFER DEV SRC 'READ NOERRORFLG]) ) - - - -(* ; "NULL device") - -(DEFINEQ - -(\NULLDEVICE - [LAMBDA NIL (* bvm%: "30-Jan-85 22:06") - - (* ;; "Defines the NULL device, an infinite source or sink") - - (\DEFINEDEVICE 'NULL (create FDEV - DEVICENAME _ 'NULL - RANDOMACCESSP _ T - NODIRECTORIES _ T - CLOSEFILE _ (FUNCTION NILL) - DELETEFILE _ (FUNCTION NILL) - OPENFILE _ (FUNCTION \NULL.OPENFILE) - REOPENFILE _ (FUNCTION \NULL.OPENFILE) - BIN _ (FUNCTION \EOF.ACTION) - BOUT _ (FUNCTION NILL) - PEEKBIN _ [FUNCTION (LAMBDA (STREAM NOERRORFLG) - (AND (NULL NOERRORFLG) - (BIN STREAM] - READP _ (FUNCTION NILL) - BACKFILEPTR _ (FUNCTION NILL) - EOFP _ (FUNCTION TRUE) - RENAMEFILE _ (FUNCTION NILL) - GETFILENAME _ (FUNCTION NILL) - EVENTFN _ (FUNCTION NILL) - BLOCKIN _ (FUNCTION \EOF.ACTION) - BLOCKOUT _ (FUNCTION NILL) - GENERATEFILES _ (FUNCTION \NULLFILEGENERATOR) - GETFILEPTR _ (FUNCTION ZERO) - GETEOFPTR _ (FUNCTION ZERO) - SETFILEPTR _ (FUNCTION NILL) - GETFILEINFO _ (FUNCTION NILL) - SETFILEINFO _ (FUNCTION NILL) - SETEOFPTR _ (FUNCTION NILL]) - -(\NULL.OPENFILE - [LAMBDA (NAME ACCESS RECOG PARAMETERS DEVICE OLDSTREAM)(* bvm%: "30-Jan-85 22:05") - (OR OLDSTREAM (create STREAM - USERCLOSEABLE _ T - ACCESS _ ACCESS - FULLFILENAME _ NIL - DEVICE _ DEVICE]) -) -(DECLARE%: DONTEVAL@LOAD DOCOPY - -(\NULLDEVICE) -) (DECLARE%: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) @@ -3097,40 +3049,39 @@ 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 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (26860 30338 (STREAMPROP 26870 . 27304) (GETSTREAMPROP 27306 . 27775) (PUTSTREAMPROP -27777 . 30186) (STREAMP 30188 . 30336)) (30381 32900 (\DEFPRINT.BY.NAME 30391 . 31543) ( -\STREAM.DEFPRINT 31545 . 32593) (\FDEV.DEFPRINT 32595 . 32898)) (33158 38199 (\GETACCESS 33168 . 33622 -) (\SETACCESS 33624 . 38197)) (58361 64330 (\DEFINEDEVICE 58371 . 60687) (\GETDEVICEFROMNAME 60689 . -61162) (\GETDEVICEFROMHOSTNAME 61164 . 62208) (\REMOVEDEVICE 62210 . 63333) (\REMOVEDEVICE.NAMES 63335 - . 64328)) (64370 89116 (\CLOSEFILE 64380 . 65205) (\DELETEFILE 65207 . 65501) (\DEVICEEVENT 65503 . -67273) (\GENERATEFILES 67275 . 68222) (\GENERATENEXTFILE 68224 . 68875) (\GENERATEFILEINFO 68877 . -69338) (\GETFILENAME 69340 . 69729) (\GENERIC.OUTFILEP 69731 . 70201) (\OPENFILE 70203 . 72781) ( -\DO.PARAMS.AT.OPEN 72783 . 74953) (\RENAMEFILE 74955 . 75379) (\REVALIDATEFILE 75381 . 77983) ( -\PAGED.REVALIDATEFILELST 77985 . 79543) (\PAGED.REVALIDATEFILES 79545 . 81264) (\PAGED.REVALIDATEFILE -81266 . 83549) (\BUFFERED.REVALIDATEFILE 83551 . 85837) (\BUFFERED.REVALIDATEFILELST 85839 . 87023) ( -\PRINT-REVALIDATION-RESULT 87025 . 87440) (\TRUNCATEFILE 87442 . 87833) (\FILE-CONFLICT 87835 . 89114) -) (89152 93815 (\GENERATENOFILES 89162 . 91258) (\NULLFILEGENERATOR 91260 . 91504) (\NOFILESNEXTFILEFN - 91506 . 93497) (\NOFILESINFOFN 93499 . 93813)) (93934 95842 (\FILE.NOT.OPEN 93944 . 94457) ( -\FILE.WONT.OPEN 94459 . 94787) (\ILLEGAL.DEVICEOP 94789 . 95071) (\IS.NOT.RANDACCESSP 95073 . 95519) ( -\STREAM.NOT.OPEN 95521 . 95840)) (95977 98275 (\FDEVINSTANCE 95987 . 98273)) (99477 106851 (CNDIR -99487 . 100792) (DIRECTORYNAME 100794 . 104977) (DIRECTORYNAMEP 104979 . 105595) (HOSTNAMEP 105597 . -106404) (\ADD.CONNECTED.DIR 106406 . 106849)) (106896 134776 (\BACKFILEPTR 106906 . 107094) ( -\BACKPEEKBIN 107096 . 107457) (\BACKBIN 107459 . 107810) (BIN 107812 . 108029) (\BIN 108031 . 108308) -(\BINS 108310 . 108596) (BOUT 108598 . 108960) (\BOUT 108962 . 109277) (\BOUTS 109279 . 109590) ( -COPYBYTES 109592 . 112924) (COPYCHARS 112926 . 116592) (COPYFILE 116594 . 117391) (\COPYOPENFILE -117393 . 120466) (\INFER.FILE.TYPE 120468 . 121422) (EOFP 121424 . 121721) (FORCEOUTPUT 121723 . -121970) (\FLUSH.OPEN.STREAMS 121972 . 122328) (CHARSET 122330 . 123994) (ACCESS-CHARSET 123996 . -124213) (GETEOFPTR 124215 . 124465) (GETFILEINFO 124467 . 127660) (\TYPE.FROM.FILETYPE 127662 . 128132 -) (\FILETYPE.FROM.TYPE 128134 . 128313) (GETFILEPTR 128315 . 128567) (SETFILEINFO 128569 . 132675) ( -SETFILEPTR 132677 . 134396) (BOUT16 134398 . 134583) (BIN16 134585 . 134774)) (134879 140084 ( -\GENERIC.BINS 134889 . 135169) (\GENERIC.BOUTS 135171 . 135436) (\GENERIC.RENAMEFILE 135438 . 137269) -(\GENERIC.OPENP 137271 . 138586) (\GENERIC.READP 138588 . 139629) (\GENERIC.CHARSET 139631 . 140082)) -(140085 140424 (\MAP-OPEN-STREAMS 140095 . 140422)) (142208 144288 (\EOF.ACTION 142218 . 142469) ( -\EOSERROR 142471 . 142664) (\GETEOFPTR 142666 . 142848) (\INCFILEPTR 142850 . 143200) (\PEEKBIN 143202 - . 143393) (\SETCLOSEDFILELENGTH 143395 . 143729) (\SETEOFPTR 143731 . 143919) (\SETFILEPTR 143921 . -144286)) (144289 144831 (\FIXPOUT 144299 . 144599) (\FIXPIN 144601 . 144829)) (144832 145398 (\BOUTEOL - 144842 . 145396)) (148294 158158 (\BUFFERED.BIN 148304 . 149156) (\BUFFERED.PEEKBIN 149158 . 149940) -(\BUFFERED.BOUT 149942 . 150802) (\BUFFERED.BINS 150804 . 154489) (\BUFFERED.BOUTS 154491 . 156292) ( -\BUFFERED.COPYBYTES 156294 . 158156)) (158187 160539 (\NULLDEVICE 158197 . 160215) (\NULL.OPENFILE -160217 . 160537))))) + (FILEMAP (NIL (27258 30736 (STREAMPROP 27268 . 27702) (GETSTREAMPROP 27704 . 28173) (PUTSTREAMPROP +28175 . 30584) (STREAMP 30586 . 30734)) (30779 33298 (\DEFPRINT.BY.NAME 30789 . 31941) ( +\STREAM.DEFPRINT 31943 . 32991) (\FDEV.DEFPRINT 32993 . 33296)) (33556 38597 (\GETACCESS 33566 . 34020 +) (\SETACCESS 34022 . 38595)) (58823 64792 (\DEFINEDEVICE 58833 . 61149) (\GETDEVICEFROMNAME 61151 . +61624) (\GETDEVICEFROMHOSTNAME 61626 . 62670) (\REMOVEDEVICE 62672 . 63795) (\REMOVEDEVICE.NAMES 63797 + . 64790)) (64832 89578 (\CLOSEFILE 64842 . 65667) (\DELETEFILE 65669 . 65963) (\DEVICEEVENT 65965 . +67735) (\GENERATEFILES 67737 . 68684) (\GENERATENEXTFILE 68686 . 69337) (\GENERATEFILEINFO 69339 . +69800) (\GETFILENAME 69802 . 70191) (\GENERIC.OUTFILEP 70193 . 70663) (\OPENFILE 70665 . 73243) ( +\DO.PARAMS.AT.OPEN 73245 . 75415) (\RENAMEFILE 75417 . 75841) (\REVALIDATEFILE 75843 . 78445) ( +\PAGED.REVALIDATEFILELST 78447 . 80005) (\PAGED.REVALIDATEFILES 80007 . 81726) (\PAGED.REVALIDATEFILE +81728 . 84011) (\BUFFERED.REVALIDATEFILE 84013 . 86299) (\BUFFERED.REVALIDATEFILELST 86301 . 87485) ( +\PRINT-REVALIDATION-RESULT 87487 . 87902) (\TRUNCATEFILE 87904 . 88295) (\FILE-CONFLICT 88297 . 89576) +) (89614 94277 (\GENERATENOFILES 89624 . 91720) (\NULLFILEGENERATOR 91722 . 91966) (\NOFILESNEXTFILEFN + 91968 . 93959) (\NOFILESINFOFN 93961 . 94275)) (94396 96304 (\FILE.NOT.OPEN 94406 . 94919) ( +\FILE.WONT.OPEN 94921 . 95249) (\ILLEGAL.DEVICEOP 95251 . 95533) (\IS.NOT.RANDACCESSP 95535 . 95981) ( +\STREAM.NOT.OPEN 95983 . 96302)) (96439 98737 (\FDEVINSTANCE 96449 . 98735)) (99939 107313 (CNDIR +99949 . 101254) (DIRECTORYNAME 101256 . 105439) (DIRECTORYNAMEP 105441 . 106057) (HOSTNAMEP 106059 . +106866) (\ADD.CONNECTED.DIR 106868 . 107311)) (107358 135238 (\BACKFILEPTR 107368 . 107556) ( +\BACKPEEKBIN 107558 . 107919) (\BACKBIN 107921 . 108272) (BIN 108274 . 108491) (\BIN 108493 . 108770) +(\BINS 108772 . 109058) (BOUT 109060 . 109422) (\BOUT 109424 . 109739) (\BOUTS 109741 . 110052) ( +COPYBYTES 110054 . 113386) (COPYCHARS 113388 . 117054) (COPYFILE 117056 . 117853) (\COPYOPENFILE +117855 . 120928) (\INFER.FILE.TYPE 120930 . 121884) (EOFP 121886 . 122183) (FORCEOUTPUT 122185 . +122432) (\FLUSH.OPEN.STREAMS 122434 . 122790) (CHARSET 122792 . 124456) (ACCESS-CHARSET 124458 . +124675) (GETEOFPTR 124677 . 124927) (GETFILEINFO 124929 . 128122) (\TYPE.FROM.FILETYPE 128124 . 128594 +) (\FILETYPE.FROM.TYPE 128596 . 128775) (GETFILEPTR 128777 . 129029) (SETFILEINFO 129031 . 133137) ( +SETFILEPTR 133139 . 134858) (BOUT16 134860 . 135045) (BIN16 135047 . 135236)) (135341 140546 ( +\GENERIC.BINS 135351 . 135631) (\GENERIC.BOUTS 135633 . 135898) (\GENERIC.RENAMEFILE 135900 . 137731) +(\GENERIC.OPENP 137733 . 139048) (\GENERIC.READP 139050 . 140091) (\GENERIC.CHARSET 140093 . 140544)) +(140547 140886 (\MAP-OPEN-STREAMS 140557 . 140884)) (142670 144750 (\EOF.ACTION 142680 . 142931) ( +\EOSERROR 142933 . 143126) (\GETEOFPTR 143128 . 143310) (\INCFILEPTR 143312 . 143662) (\PEEKBIN 143664 + . 143855) (\SETCLOSEDFILELENGTH 143857 . 144191) (\SETEOFPTR 144193 . 144381) (\SETFILEPTR 144383 . +144748)) (144751 145293 (\FIXPOUT 144761 . 145061) (\FIXPIN 145063 . 145291)) (145294 145860 (\BOUTEOL + 145304 . 145858)) (148756 158620 (\BUFFERED.BIN 148766 . 149618) (\BUFFERED.PEEKBIN 149620 . 150402) +(\BUFFERED.BOUT 150404 . 151264) (\BUFFERED.BINS 151266 . 154951) (\BUFFERED.BOUTS 154953 . 156754) ( +\BUFFERED.COPYBYTES 156756 . 158618))))) STOP diff --git a/sources/FILEIO.LCOM b/sources/FILEIO.LCOM index 1e8a6641d2ae69e8903d159c50311849b8e62ad5..a5c05ff7bc653d80d6352332870894eca7e89848 100644 GIT binary patch delta 445 zcmZ4UgsJlu(}Zvl1!G;W(i~kQ10y2^0}CrtQ!5kGiP@4WrNya5#dg_=1v!a%b~*XU zi8*$;sVO>kSPx6_ij+F|abWure@HQs7D|N=?qsEy&DC zO;Jd#C@3mcwNl8-FUbJvRmjX!P;v|P@lin5tEZ=@q>z$W0#uL1OhZE@O)d>LPajw3 zAXmo_R~Min2Q2Of+Fb1t>|JX^tS8hA4HXPcEkR*mMiB=iM0gp3!^_B$Wc!#54JOAel-}&hl;5&Bw)+vkfRDekqYv0RJ%tcW j1+K~aXNR+E_&EAH0@;C+MK>GGi4>h2GDl$Y%8ktc(D8&Q delta 1553 zcma)+-*4Mg6vv&cT7y?XR8ONcj@SK}8s$*BS(`i#BmetYvBTc6k zAx#VgAq1jNAWP!~i6`FnG8LZv#AB6ro{@OvKN!c!y0}vV=$ARf2q9_Uwbw9(M|C3zRg%V#(x7)T)FjE~@{kI2IfG_I7+Lz0(*9Y)& zMKVntYWAw-Hc3zpJt#KZ;FUKnL2cb98!fLBlGq@SAH5bGhdkh&YGgx3yV8F-6 z&4tXn@j-K8=(Av*L4&~tgH;B%8QfrS_Nt34@;-w(2DyY!JI!-NRjR;d9qr|kiHM~k zUsTL0pfah=Oa>AKL#9wsDCjB$O{1Xd)CMhEM1S}J2|-aRbXGPfNVJM<(kikk!M!~3 zJ&>z1+#7?T#EEfbSfNE^U4u>HHAKq}Tb>KDrcbiTD$Oq|G`}oYA@n;0WQpaMXcwjo zQ%)HB2CB3lLp@iZg7w_ar;a0f>%>j(5$M=n>bjQ^jn-CKX?#wvsR>VJE;LZs@a{VK z;0d5W7{>cZop_cZzGb~LJ2?P|*M#Em*DS|fB)?zy`Z@PY|I!jVF()O_b|IHU^#Y$n zgBLGO_2hnfikGvQ)u?rpp|z=b696@ zIGVeh8h?(%(CNh_>gPr?v*`=qt=Ju9(d*XOLJ4|EuArQF#+Gf9Ai(ZS6;h!bG?hc# zX1EGflq?AG`_mR(FC4cG20HK6Sj9-i56D&D_k7T+D74pVTTSAv2cR19&7a>pIr;YQ zw@lk>2T;5L9|JFprH*=^?`-vi68#FLF{npoDH-ph!8Ix dFUEg7U7qEOj@7o{B=^(c%B872@zJxV{{lF_lAQnm diff --git a/sources/LEAF.LCOM b/sources/LEAF.LCOM index c12bcbd52983cdf165f6b85644fa9316c8fb78c0..5d3b040aec6150495eb3cb184419298eec7b7696 100644 GIT binary patch delta 209 zcmaENg8APG<_X~<3P!qKr8&Ar21Z5-h9*`~ivx z6LaixQ&VzMD~>8jD15)bg=NY1qnWv!S7V6`pfUHGNPftl9C9xzm1*=i!n++KmH5o%T O8)+F&1yZT|IaL88H$9#J delta 191 zcmex&g8AJE<_X~OP1tmi>Boi&Ij7+VJEhb)5 zvUPV2ar5+XRmjX!P;v|P@lillsHdl=q>z$WlA40e02AZQ_Kb|0n;o@`r*1CYLk DhWa?1 diff --git a/sources/LLINTERP b/sources/LLINTERP index 3097fffa..079e91de 100644 --- a/sources/LLINTERP +++ b/sources/LLINTERP @@ -1,10 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "27-Oct-2021 21:03:21" {DSK}larry>medley>sources>LLINTERP.;2 127414 +(FILECREATED "30-Jun-2022 22:42:02"  +{DSK}kaplan>local>medley3.5>working-medley>sources>LLINTERP.;4 120990 - changes to%: (FNS \STKSCAN) - - previous date%: " 2-Feb-95 17:31:23" {DSK}larry>medley>sources>LLINTERP.;1) + :PREVIOUS-DATE "30-Jun-2022 18:04:04" +{DSK}kaplan>local>medley3.5>working-medley>sources>LLINTERP.;3) (* ; " @@ -22,19 +22,19 @@ with the terms of said license. (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) LLBASIC LLSTK LLCODE LLPARAMS ACODE))) [E (* ; - "Don't fontify these common functions") + "Don't fontify these common functions") (SETQ FNSLST (LDIFFERENCE FNSLST '(EVALV PROG SET SETQ RETURN GO QUOTE AND OR PROGN COND PROG1 FUNCTION EVAL APPLY] - (COMS (* ; - "For calling interpreted functions") + (COMS (* ; "For calling interpreted functions") (FNS \INTERPRETER \INTERPRETER1 \SETUP-COMPILED-CLOSURE-CALL \STKNAME)) (COMS (* ; "EVCALL ufn.") (FNS \ENVCALL.UFN \SETUP-ENVIRONMENT-CALL)) (COMS (* ; "recursive interpreter") (FNS EVAL \EVAL \EVALFORM \EVALFORMASLAMBDA \EVALOTHER APPLY APPLY* \CHECKAPPLY* \CKAPPLYARGS DEFEVAL) + (P (MOVD? 'APPLY* 'SPREADAPPLY*)) (DECLARE%: DONTCOPY (MACROS .APPLY.)) (COMS (* ; "Free variable manipulation") (FNS EVALV \EVALV1 \EVALVAR BOUNDP SET \SETVAR SETQ \STKSCAN \SETFVARSLOT)) @@ -42,7 +42,7 @@ with the terms of said license. (FNS PROG \PROG0 \EVPROG1 RETURN GO EVALA \EVALA ERRORSET SI::ERRORSET-PRINT-FUNCTION)) (COMS (* ; - "LET and friends -- need these in the init") + "LET and friends -- need these in the init") (FNS LET LET* \LET0 \LET*)) (FNS QUOTE AND OR PROGN COND \EVPROGN PROG1) (COMS (VARS (\DEFEVALFNS NIL) @@ -54,11 +54,11 @@ with the terms of said license. (P (MOVD? 'SETQ 'SETN NIL T))) (GLOBALVARS CLISPARRAY)) [COMS (* ; - "Evaluating in different stack environment") + "Evaluating in different stack environment") (FNS ENVEVAL ENVAPPLY FUNCTION \FUNCT1 \MAKEFUNARGFRAME STKEVAL STKAPPLY RETEVAL RETAPPLY) (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; - "For bootstrapping, IL:FUNCTION is as good as CL:FUNCTION") + "For bootstrapping, IL:FUNCTION is as good as CL:FUNCTION") (P (MOVD? 'FUNCTION 'CL:FUNCTION NIL T] (COMS (* ; "Blip and other stack funniness") (FNS BLIPVAL SETBLIPVAL BLIPSCAN) @@ -75,7 +75,7 @@ with the terms of said license. (DECLARE%: EVAL@COMPILE DONTCOPY (COMS * RAIDCOMS))) (COMS (FNS CCODEP EXPRP SUBRP FNTYP ARGTYPE NARGS ARGLIST \CCODEARGLIST \CCODEIVARSCAN) (COMS (* ; - "Translation machinery for new LAMBDA words") + "Translation machinery for new LAMBDA words") (PROP VARTYPE LAMBDATRANFNS) (ALISTS (LAMBDATRANFNS))) (DECLARE%: DONTCOPY (MACROS \CCODENARGS \CCODEFNTYP \CCODEARGTYPE))) @@ -366,39 +366,40 @@ with the terms of said license. (LAMBDA (TYPE FN) (* edited%: "13-DEC-78 23:18") (PROG ((F (FASSOC TYPE \DEFEVALFNS))) (COND (F (SETQ \DEFEVALFNS (DREMOVE F \DEFEVALFNS)))) (COND (FN (SETQ \DEFEVALFNS (CONS (CONS TYPE FN) \DEFEVALFNS)))) (RETURN (CDR F)))) ) ) + +(MOVD? 'APPLY* 'SPREADAPPLY*) (DECLARE%: DONTCOPY (DECLARE%: EVAL@COMPILE -(PUTPROPS .APPLY. MACRO [(U V) (* body for APPLY, used by RETAPPLY - too) - (PROG ((DEF U)) - LP [COND - ((LITATOM DEF) - (COND - ((NOT (fetch (LITATOM CCODEP) of DEF)) +(PUTPROPS .APPLY. MACRO [(U V) (* body for APPLY, used by RETAPPLY + too) + (PROG ((DEF U)) + LP [COND + ((LITATOM DEF) + (COND + ((NOT (fetch (LITATOM CCODEP) of DEF)) (* EXPR) - (SETQ DEF (fetch (LITATOM DEFPOINTER) of - DEF))) - ((EQ (fetch (LITATOM ARGTYPE) of DEF) - 3) - (GO NLSTAR)) - (T (GO NORMAL] - [COND - ((LISTP DEF) - (SELECTQ (CAR DEF) - (NLAMBDA (AND (NLISTP (CADR DEF)) - (CADR DEF) - (GO NLSTAR))) - (FUNARG (SETQ DEF (CADR DEF)) - (GO LP)) - NIL)) - ((NULL DEF) - (RETURN (FAULTAPPLY U V] - NORMAL - (RETURN (SPREADAPPLY U V)) - NLSTAR + (SETQ DEF (fetch (LITATOM DEFPOINTER) of DEF))) + ((EQ (fetch (LITATOM ARGTYPE) of DEF) + 3) + (GO NLSTAR)) + (T (GO NORMAL] + [COND + ((LISTP DEF) + (SELECTQ (CAR DEF) + (NLAMBDA (AND (NLISTP (CADR DEF)) + (CADR DEF) + (GO NLSTAR))) + (FUNARG (SETQ DEF (CADR DEF)) + (GO LP)) + NIL)) + ((NULL DEF) + (RETURN (FAULTAPPLY U V] + NORMAL + (RETURN (SPREADAPPLY U V)) + NLSTAR (* NLAMBDA*) - (RETURN (SPREADAPPLY* U V]) + (RETURN (SPREADAPPLY* U V]) ) ) @@ -1220,8 +1221,8 @@ with the terms of said license. ) ) -(RPAQ? OPENFNS '(APPLY* SETQ AND OR COND SELECTQ PROG PROGN PROG1 ARG SETARG ERSETQ NLSETQ - RESETFORM RESETLST RESETVARS RPTQ SAVESETQ SETN UNDONLSETQ XNLSETQ)) +(RPAQ? OPENFNS '(APPLY* SETQ AND OR COND SELECTQ PROG PROGN PROG1 ARG SETARG ERSETQ NLSETQ RESETFORM + RESETLST RESETVARS RPTQ SAVESETQ SETN UNDONLSETQ XNLSETQ)) (RPAQQ \BLIPNAMES (*TAIL* *FORM* *FN* *ARGVALS*)) (DECLARE%: DOEVAL@COMPILE DONTCOPY @@ -1449,41 +1450,39 @@ with the terms of said license. (DECLARE%: EVAL@COMPILE (PUTPROPS PSTKFLD MACRO [(FLD STR TEST FMT STR2) - (PROG ((FLD (fetch (FX FLD) of FRAME))) - (DECLARE (LOCALVARS FLD)) - (COND - (TEST (PRIN1 'STR) - (SELECTQ (CONSTANT (NTHCHAR 'STR -1)) - (= (printout NIL %, FLD STR2)) - NIL) - T]) + (PROG ((FLD (fetch (FX FLD) of FRAME))) + (DECLARE (LOCALVARS FLD)) + (COND + (TEST (PRIN1 'STR) + (SELECTQ (CONSTANT (NTHCHAR 'STR -1)) + (= (printout NIL %, FLD STR2)) + NIL) + T]) (PUTPROPS PRINTSTKFIELDS MACRO [FIELDS (CONS 'PROGN (MAPCAR FIELDS (FUNCTION (LAMBDA (X) - (CONS - 'PSTKFLD X]) + (CONS 'PSTKFLD X]) (PUTPROPS PSTK MACRO ((N . FIELDS) - (\PRINTSTK (IPLUS FRAME N)) - (PRINTSTKFIELDS . FIELDS) - (TERPRI))) + (\PRINTSTK (IPLUS FRAME N)) + (PRINTSTKFIELDS . FIELDS) + (TERPRI))) (PUTPROPS PRINTVA MACRO [LAMBDA (X) - (printout NIL "{" (HILOC X) - "," - (LOLOC X) - "}"]) + (printout NIL "{" (HILOC X) + "," + (LOLOC X) + "}"]) ) -(ADDTOVAR RDCOMS (FNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA - READVA READOCT READATOM SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY NOSUCHATOM - ) - (FNS \BACKTRACE \STKNAME \PRINTBF \PRINTFRAME \SCANFORNTENTRY \PRINTSTK)) +(ADDTOVAR RDCOMS (FNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA READVA + READOCT READATOM SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY NOSUCHATOM) + (FNS \BACKTRACE \STKNAME \PRINTBF \PRINTFRAME \SCANFORNTENTRY \PRINTSTK)) (ADDTOVAR EXPANDMACROFNS PSTKFLD PRINTSTKFIELDS PSTK PRINTVA) -(ADDTOVAR DONTCOMPILEFNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA - READVA READATOM READOCT SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY - NOSUCHATOM) +(ADDTOVAR DONTCOMPILEFNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA + READVA READATOM READOCT SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY + NOSUCHATOM) ) (DEFINEQ @@ -1639,22 +1638,22 @@ with the terms of said license. (DECLARE%: EVAL@COMPILE (PUTPROPS \CCODENARGS MACRO ((FNH) - ([LAMBDA (N) - (COND - ((ILESSP N 0) - 1) - (T N] - (fetch (FNHEADER NA) of FNH)))) + ([LAMBDA (N) + (COND + ((ILESSP N 0) + 1) + (T N] + (fetch (FNHEADER NA) of FNH)))) (PUTPROPS \CCODEFNTYP MACRO ((FNH) - (SELECTQ (\CCODEARGTYPE FNH) - (0 'CEXPR) - (1 'CFEXPR) - (2 'CEXPR*) - 'CFEXPR*))) + (SELECTQ (\CCODEARGTYPE FNH) + (0 'CEXPR) + (1 'CFEXPR) + (2 'CEXPR*) + 'CFEXPR*))) (PUTPROPS \CCODEARGTYPE MACRO ((FNH) - (fetch (FNHEADER ARGTYPE) of FNH))) + (fetch (FNHEADER ARGTYPE) of FNH))) ) ) @@ -1718,8 +1717,8 @@ with the terms of said license. ) -(ADDTOVAR CONSTANTFOLDFNS PLUS IPLUS TIMES ITIMES DIFFERENCE IDIFFERENCE QUOTIENT IQUOTIENT IMIN - IMAX IABS LLSH LRSH LOGOR LOGXOR LOGAND OR AND) +(ADDTOVAR CONSTANTFOLDFNS PLUS IPLUS TIMES ITIMES DIFFERENCE IDIFFERENCE QUOTIENT IQUOTIENT IMIN IMAX + IABS LLSH LRSH LOGOR LOGXOR LOGAND OR AND) (DECLARE%: DOEVAL@COMPILE DONTCOPY (GLOBALVARS COMPVARMACROHASH CONSTANTFOLDFNS) @@ -1746,119 +1745,33 @@ with the terms of said license. (ADDTOVAR LAMA APPLY* \INTERPRETER) ) -(PRETTYCOMPRINT LLINTERPCOMS) - -(RPAQQ LLINTERPCOMS - [(COMS (* ; "Compilation pre-requisites") - (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) - LLBASIC LLSTK LLCODE LLPARAMS ACODE))) - [E (* ; - "Don't fontify these common functions") - (SETQ FNSLST - (LDIFFERENCE FNSLST - '(EVALV PROG SET SETQ RETURN GO QUOTE AND OR PROGN COND PROG1 FUNCTION EVAL - APPLY] - (COMS (* ; - "For calling interpreted functions") - (FNS \INTERPRETER \INTERPRETER1 \SETUP-COMPILED-CLOSURE-CALL \STKNAME)) - (COMS (* ; "EVCALL ufn.") - (FNS \ENVCALL.UFN \SETUP-ENVIRONMENT-CALL)) - (COMS (* ; "recursive interpreter") - (FNS EVAL \EVAL \EVALFORM \EVALFORMASLAMBDA \EVALOTHER APPLY APPLY* \CHECKAPPLY* - \CKAPPLYARGS DEFEVAL) - (DECLARE%: DONTCOPY (MACROS .APPLY.)) - (COMS (* ; "Free variable manipulation") - (FNS EVALV \EVALV1 \EVALVAR BOUNDP SET \SETVAR SETQ \STKSCAN \SETFVARSLOT)) - (COMS (* ; "PROG and friends") - (FNS PROG \PROG0 \EVPROG1 RETURN GO EVALA \EVALA ERRORSET - SI::ERRORSET-PRINT-FUNCTION)) - (COMS (* ; - "LET and friends -- need these in the init") - (FNS LET LET* \LET0 \LET*)) - (FNS QUOTE AND OR PROGN COND \EVPROGN PROG1) - (COMS (VARS (\DEFEVALFNS NIL) - (\EVALHOOK)) - (SPECVARS *EVALHOOK*) - (ADDVARS (LAMBDASPLST LAMBDA NLAMBDA CL:LAMBDA OPENLAMBDA)) - (GLOBALVARS \DEFEVALFNS \EVALHOOK LAMBDASPLST CLISPARRAY) - (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (CLISPARRAY)) - (P (MOVD? 'SETQ 'SETN NIL T))) - (GLOBALVARS CLISPARRAY)) - [COMS (* ; - "Evaluating in different stack environment") - (FNS ENVEVAL ENVAPPLY FUNCTION \FUNCT1 \MAKEFUNARGFRAME STKEVAL STKAPPLY RETEVAL - RETAPPLY) - (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; - "For bootstrapping, IL:FUNCTION is as good as CL:FUNCTION") - (P (MOVD? 'FUNCTION 'CL:FUNCTION NIL T] - (COMS (* ; "Blip and other stack funniness") - (FNS BLIPVAL SETBLIPVAL BLIPSCAN) - (FNS \REALFRAMEP) - [INITVARS (OPENFNS '(APPLY* SETQ AND OR COND SELECTQ PROG PROGN PROG1 ARG SETARG - ERSETQ NLSETQ RESETFORM RESETLST RESETVARS RPTQ - SAVESETQ SETN UNDONLSETQ XNLSETQ] - (VARS \BLIPNAMES) - (GLOBALVARS BRKINFOLST) - (GLOBALVARS \BLIPNAMES OPENFNS))) - (COMS (FNS RAIDCOMMAND RAIDSHOWFRAME RAIDSTACKCMD RAIDROOTFRAME PRINTADDRS PRINTVA READVA - READATOM READOCT SHOWSTACKBLOCKS SHOWSTACKBLOCK1 PRINCOPY NOSUCHATOM) - (FNS BACKTRACE \BACKTRACE \SCANFORNTENTRY \PRINTSTK \PRINTFRAME \PRINTBF) - (DECLARE%: EVAL@COMPILE DONTCOPY (COMS * RAIDCOMS))) - (COMS (FNS CCODEP EXPRP SUBRP FNTYP ARGTYPE NARGS ARGLIST \CCODEARGLIST \CCODEIVARSCAN) - (COMS (* ; - "Translation machinery for new LAMBDA words") - (PROP VARTYPE LAMBDATRANFNS) - (ALISTS (LAMBDATRANFNS))) - (DECLARE%: DONTCOPY (MACROS \CCODENARGS \CCODEFNTYP \CCODEARGTYPE))) - (COMS (* ; "CONSTANTS mechanism") - (FNS CONSTANTS CONSTANTEXPRESSIONP) - (INITVARS (COMPVARMACROHASH (HASHARRAY 100))) - (* ; "We need this initialized for the INIT, so don't put it off. (It used to start out NIL and get set later)") - (ADDVARS (CONSTANTFOLDFNS PLUS IPLUS TIMES ITIMES DIFFERENCE IDIFFERENCE QUOTIENT - IQUOTIENT IMIN IMAX IABS LLSH LRSH LOGOR LOGXOR LOGAND OR AND)) - (GLOBALVARS COMPVARMACROHASH CONSTANTFOLDFNS)) - (DECLARE%: EVAL@COMPILE DONTCOPY DONTEVAL@LOAD (LOCALVARS . T)) - (SPECVARS *TAIL* *FN* *FORM* *ARGVAL*) - (DECLARE%: EVAL@COMPILE DONTCOPY (ADDVARS (LAMS FAULTEVAL FAULTAPPLY))) - (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS - (ADDVARS (NLAMA CONSTANTS PROG1 COND PROGN OR AND QUOTE LET* LET GO PROG SETQ) - (NLAML FUNCTION RETURN) - (LAMA BOUNDP APPLY* \INTERPRETER]) -(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS - -(ADDTOVAR NLAMA CONSTANTS PROG1 COND PROGN OR AND QUOTE LET* LET GO PROG SETQ) - -(ADDTOVAR NLAML FUNCTION RETURN) - -(ADDTOVAR LAMA BOUNDP APPLY* \INTERPRETER) -) (PUTPROPS LLINTERP COPYRIGHT ("Venue & Xerox Corporation" T 1981 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1994 1995)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (6396 23657 (\INTERPRETER 6406 . 11002) (\INTERPRETER1 11004 . 17572) ( -\SETUP-COMPILED-CLOSURE-CALL 17574 . 22721) (\STKNAME 22723 . 23655)) (23686 29098 (\ENVCALL.UFN 23696 - . 23828) (\SETUP-ENVIRONMENT-CALL 23830 . 29096)) (29137 34014 (EVAL 29147 . 29247) (\EVAL 29249 . -29459) (\EVALFORM 29461 . 30692) (\EVALFORMASLAMBDA 30694 . 30884) (\EVALOTHER 30886 . 31093) (APPLY -31095 . 31202) (APPLY* 31204 . 32319) (\CHECKAPPLY* 32321 . 33426) (\CKAPPLYARGS 33428 . 33771) ( -DEFEVAL 33773 . 34012)) (36106 43695 (EVALV 36116 . 36325) (\EVALV1 36327 . 36482) (\EVALVAR 36484 . -36847) (BOUNDP 36849 . 37065) (SET 37067 . 37433) (\SETVAR 37435 . 37805) (SETQ 37807 . 38479) ( -\STKSCAN 38481 . 42145) (\SETFVARSLOT 42147 . 43693)) (43729 56736 (PROG 43739 . 46255) (\PROG0 46257 - . 49887) (\EVPROG1 49889 . 50092) (RETURN 50094 . 50635) (GO 50637 . 51452) (EVALA 51454 . 53383) ( -\EVALA 53385 . 55978) (ERRORSET 55980 . 56585) (SI::ERRORSET-PRINT-FUNCTION 56587 . 56734)) (56795 -69447 (LET 56805 . 58948) (LET* 58950 . 61098) (\LET0 61100 . 64760) (\LET* 64762 . 69445)) (69448 -71024 (QUOTE 69458 . 69489) (AND 69491 . 69699) (OR 69701 . 69949) (PROGN 69951 . 70230) (COND 70232 - . 70566) (\EVPROGN 70568 . 70781) (PROG1 70783 . 71022)) (71512 78403 (ENVEVAL 71522 . 71772) ( -ENVAPPLY 71774 . 72031) (FUNCTION 72033 . 72263) (\FUNCT1 72265 . 74714) (\MAKEFUNARGFRAME 74716 . -76913) (STKEVAL 76915 . 77063) (STKAPPLY 77065 . 77234) (RETEVAL 77236 . 77840) (RETAPPLY 77842 . -78401)) (78524 86032 (BLIPVAL 78534 . 82435) (SETBLIPVAL 82437 . 85179) (BLIPSCAN 85181 . 86030)) ( -86033 86728 (\REALFRAMEP 86043 . 86726)) (87109 96504 (RAIDCOMMAND 87119 . 90725) (RAIDSHOWFRAME 90727 - . 91110) (RAIDSTACKCMD 91112 . 92293) (RAIDROOTFRAME 92295 . 92557) (PRINTADDRS 92559 . 93085) ( -PRINTVA 93087 . 93232) (READVA 93234 . 93312) (READATOM 93314 . 93896) (READOCT 93898 . 94529) ( -SHOWSTACKBLOCKS 94531 . 95777) (SHOWSTACKBLOCK1 95779 . 95930) (PRINCOPY 95932 . 96064) (NOSUCHATOM -96066 . 96502)) (96505 105133 (BACKTRACE 96515 . 96872) (\BACKTRACE 96874 . 97980) (\SCANFORNTENTRY -97982 . 99612) (\PRINTSTK 99614 . 99801) (\PRINTFRAME 99803 . 103786) (\PRINTBF 103788 . 105131)) ( -107892 117236 (CCODEP 107902 . 108177) (EXPRP 108179 . 108438) (SUBRP 108440 . 108495) (FNTYP 108497 - . 109257) (ARGTYPE 109259 . 109873) (NARGS 109875 . 110362) (ARGLIST 110364 . 111613) (\CCODEARGLIST -111615 . 116011) (\CCODEIVARSCAN 116013 . 117234)) (118282 120513 (CONSTANTS 118292 . 118583) ( -CONSTANTEXPRESSIONP 118585 . 120511))))) + (FILEMAP (NIL (6409 23670 (\INTERPRETER 6419 . 11015) (\INTERPRETER1 11017 . 17585) ( +\SETUP-COMPILED-CLOSURE-CALL 17587 . 22734) (\STKNAME 22736 . 23668)) (23699 29111 (\ENVCALL.UFN 23709 + . 23841) (\SETUP-ENVIRONMENT-CALL 23843 . 29109)) (29150 34027 (EVAL 29160 . 29260) (\EVAL 29262 . +29472) (\EVALFORM 29474 . 30705) (\EVALFORMASLAMBDA 30707 . 30897) (\EVALOTHER 30899 . 31106) (APPLY +31108 . 31215) (APPLY* 31217 . 32332) (\CHECKAPPLY* 32334 . 33439) (\CKAPPLYARGS 33441 . 33784) ( +DEFEVAL 33786 . 34025)) (35871 43460 (EVALV 35881 . 36090) (\EVALV1 36092 . 36247) (\EVALVAR 36249 . +36612) (BOUNDP 36614 . 36830) (SET 36832 . 37198) (\SETVAR 37200 . 37570) (SETQ 37572 . 38244) ( +\STKSCAN 38246 . 41910) (\SETFVARSLOT 41912 . 43458)) (43494 56501 (PROG 43504 . 46020) (\PROG0 46022 + . 49652) (\EVPROG1 49654 . 49857) (RETURN 49859 . 50400) (GO 50402 . 51217) (EVALA 51219 . 53148) ( +\EVALA 53150 . 55743) (ERRORSET 55745 . 56350) (SI::ERRORSET-PRINT-FUNCTION 56352 . 56499)) (56560 +69212 (LET 56570 . 58713) (LET* 58715 . 60863) (\LET0 60865 . 64525) (\LET* 64527 . 69210)) (69213 +70789 (QUOTE 69223 . 69254) (AND 69256 . 69464) (OR 69466 . 69714) (PROGN 69716 . 69995) (COND 69997 + . 70331) (\EVPROGN 70333 . 70546) (PROG1 70548 . 70787)) (71277 78168 (ENVEVAL 71287 . 71537) ( +ENVAPPLY 71539 . 71796) (FUNCTION 71798 . 72028) (\FUNCT1 72030 . 74479) (\MAKEFUNARGFRAME 74481 . +76678) (STKEVAL 76680 . 76828) (STKAPPLY 76830 . 76999) (RETEVAL 77001 . 77605) (RETAPPLY 77607 . +78166)) (78289 85797 (BLIPVAL 78299 . 82200) (SETBLIPVAL 82202 . 84944) (BLIPSCAN 84946 . 85795)) ( +85798 86493 (\REALFRAMEP 85808 . 86491)) (86869 96264 (RAIDCOMMAND 86879 . 90485) (RAIDSHOWFRAME 90487 + . 90870) (RAIDSTACKCMD 90872 . 92053) (RAIDROOTFRAME 92055 . 92317) (PRINTADDRS 92319 . 92845) ( +PRINTVA 92847 . 92992) (READVA 92994 . 93072) (READATOM 93074 . 93656) (READOCT 93658 . 94289) ( +SHOWSTACKBLOCKS 94291 . 95537) (SHOWSTACKBLOCK1 95539 . 95690) (PRINCOPY 95692 . 95824) (NOSUCHATOM +95826 . 96262)) (96265 104893 (BACKTRACE 96275 . 96632) (\BACKTRACE 96634 . 97740) (\SCANFORNTENTRY +97742 . 99372) (\PRINTSTK 99374 . 99561) (\PRINTFRAME 99563 . 103546) (\PRINTBF 103548 . 104891)) ( +107393 116737 (CCODEP 107403 . 107678) (EXPRP 107680 . 107939) (SUBRP 107941 . 107996) (FNTYP 107998 + . 108758) (ARGTYPE 108760 . 109374) (NARGS 109376 . 109863) (ARGLIST 109865 . 111114) (\CCODEARGLIST +111116 . 115512) (\CCODEIVARSCAN 115514 . 116735)) (117687 119918 (CONSTANTS 117697 . 117988) ( +CONSTANTEXPRESSIONP 117990 . 119916))))) STOP diff --git a/sources/LLINTERP.LCOM b/sources/LLINTERP.LCOM index 04181bdbd1d3ce0a1f72008a2bf53d44f98fd088..7abb7a4a03883bb9df4400881eac8a581787fe38 100644 GIT binary patch delta 636 zcmeDG%DC$`@6o}Q9IN@5An zIao|JG*Hsy(s1+iadi%IbqsNJQBZP1)(!QR5$WEDHc>D%GO)BXP_POJat-tJ4-M9J z0otIzh2jiD3o8Q?AW~8wF_;*QH{WB-i!}^T(D3ySbFo*@2n_WH8t)ho;1j8(slWy0 z2Lo+)bb*R$YAR?&7n9W3vAZ0L!#97<+{!eWx2g#MWm3B~ delta 669 zcmdmWo3Z~Z`YB`rZE_3s@lin5uBWG`q>z$W0(1$6 zxrUZjrlv}oTpDhkKCaF|u8twDE($1?BYcFz2ld#zpkQcZZenPn0Cl87NxrI;f(DnH zUohOUnhFI)sb!h@rNv;!0p*nxjC9>nlXNXj6%5U-j18@ffL_L7E5cGPc)%HM7G%nc zoxCAlgpq6Vk$9`g|KrtxEVTrK$>9m6KvqwJ#Q#GQp#sOT*36$JIH=)iK1?ML|iyNY|@0N7u-}$VkD^#LB?J%GgXvK|?7y zKer$=CpASOKM$ygtJ)>lyVj<(IJKzQE<3RxCo#`1CqFqc$1XQDB`3AgSkKh1JijPA zGcR2iB4SsZUs{x$T5RXzf@t;>{LBHJtc*d#1fzbQM~{$)qJxR*e?zu1sF7pEi4pbf?Y!#ot<5SgB6U7%oSo>T-`kV zTwPqlJe^%NxipL|O%!6hT_c_R9fMr-fXw#IbVM|kpW&7EF&l_ngdf*|m)*BPMqX%Xn78{E4W-i9W~DqL?^O=HIiH>?js z%XbZ@>G|76czqpS{^;CN(Y^Q$S1FcOH>-dCn0&ml|72YG-QDBvoWb+tXk5AS%S&I3 zxxc;hzn0Ixig@*>S4sQ53Lfrg%v~$iE`3#L%f-)^zUS5ocWs^fx45@<#Qjjba=FTV zR!En>8$CXAO~L~WJJ_~^03?y=(DH3pLX(o2snVG#X){w4r>4%>u|;J-F-QTrDuL$;{_H_?K#UT#-XY*^`(Rz`%+OVK6&%MQTfT+ZiQ{zZFp_WNh<@L zKva1VAr#y^7)JX+-1{_%Vst}^C){*hT>w}qc8*xrQ1amkL?jEmOee6D9c204>^Kx- zGED8}FinABJE-GaqTr8@3*xxZfZc`OFw1b~l;4R2 zyqiNW?sxO7AD57*;X1e-M;+W-HQ<*)#}4s081D=q%Cjtv1~AC+j;@emT&-6KEB>jj Qa>|!yul{!SD%ZdG4C8NV<^TWy delta 1167 zcmZ8gO>fjj7{(h?MG-=n$z&k>L|=N!$vc|T3fHz;(RFyYW4hDxKs}xsFI#vj?$gq zC%#3vOKap5J*QF;?l!_8SzC|l;Svmn_t)!D5T*48*&Mq!JE})9h%@u05_F3tNfKeH zmU4yI&7=LGn)+s1m>T`+8#sAq=p=hG_KVQZCda3*t7FyLeL=WA4P&zSe(x?AgU# z;T01nvcf|)JMnV!uM^i0LK+lpf6n%OK(e7g*|Qz)lT7dt#PShD#u1d&4m1pOh=>jq z%i|%y&^0hiIn(ky*8@XE;FrsiS#o^~2;Pq}&hrqRbhJc6hgu?QYiKDEGsx#c`4rHqwEs$Vv~vmGC>qIEIue1%g;?}Xu9A0;$r3!ZOPKsN{v zbhb~Yle%R;3ztu4GE`xI3=N->F$Qs3nqdyaK`^+bBEQ?KDFjIzhd~Ny!p|5QX0NmP VjE2}h*>Qn99=P&;;EK>3`yX=FN6Y{K diff --git a/sources/SPP.LCOM b/sources/SPP.LCOM index a0921dc61182cfabe785b3100df1c7af5f30862d..847e765c4b4aff908237ef42444d42b7e1f25e94 100644 GIT binary patch delta 316 zcmX@v!!)gzX+pS&f|0IQX^yUufsv7dp^24&p_PHz#B9l&(&E&jV!Q0bf}F%WyPW*w z#2mZa)RdgmN@G1!yYl>^?99A$U5JQXaeir0a%!<%a6o{bwUMTR5{jXQRwl+)Mn*~s zNkys2`MCv|IjJcMT&WcWIho0sB{`L5N zGt_*u5aTBc#&45Zt>&{QFaUu_#^gm-Q6eS=3VxnIvy6-lp$sFV$pY45?1si*{$v$v z1(6tcS3lPvPiH-6567Tj*AN9mGmFWI*5Xo@3R*6%ZjPZoA-b*+A+AAwjy`VwLB5V5 LTANF)uXq6f#n4*o delta 259 zcmbQ%%XG4bX+pS&p}DSqa*3{yfsvttp^=rbk(Hsr#B9m>(BjmhV!Q0bf}F%WJD>dI z#2mZa)RdgmN@G1!yY$QwT?o&vIKQ+gIkng>I3PgJ+DKDD$>Z^%RB7JOwT#w@@D+1!RSKdU{F@U}C)4lJS!TF*LJKh;euIa}Dxz)^ql73<`D)Q7|;M OoIKH5eDhK3i(UX46H8|R diff --git a/sources/TTYIN b/sources/TTYIN index ded331e8..db95b2cf 100644 --- a/sources/TTYIN +++ b/sources/TTYIN @@ -1,11 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "27-Aug-2021 17:02:43"  -{DSK}kaplan>Local>medley3.5>git-medley>sources>TTYIN.;19 329093 - changes to%: (VARS TTYINCOMS) +(FILECREATED " 2-Jul-2022 00:09:00"  +{DSK}kaplan>Local>medley3.5>working-medley>sources>TTYIN.;16 328841 - previous date%: "27-Aug-2021 16:49:59" -{DSK}kaplan>Local>medley3.5>git-medley>sources>TTYIN.;18) + :CHANGES-TO (FNS TTYINBUFFERSTREAM) + + :PREVIOUS-DATE "27-Aug-2021 17:02:43" +{DSK}kaplan>Local>medley3.5>working-medley>sources>TTYIN.;14) (* ; " @@ -15,7 +16,7 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. (PRETTYCOMPRINT TTYINCOMS) (RPAQQ TTYINCOMS - [(COMS (* ; "Main TTYIN editor") + [(COMS (* ; "Main TTYIN editor") (FNS TTYIN TTYIN.SETUP TTYIN.CLEANUP TTYIN1 TTYIN1RESTART TTYIN.FINISH TTYIN.BALANCE ADDCHAR TTMAKECOMPLEXCHAR ADDNAKEDCHAR TTADDTAB ADJUSTLINE ADJUSTLINE.AND.RESTORE AT.END.OF.SCREEN AT.END.OF.TEXT AUTOCR? BACKSKREAD BACKWARD.DELETE.TO BREAKLINE @@ -35,37 +36,37 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. TTLOADBUF TTNEXTLINE TTNEXTNODE TTNLEFT TTNTH TTNTHLINE TTPRIN1 TTPRINSPACE TTPRIN1COMMENT TTPRIN2 TTPROMPTCHAR TTRUBOUT TTUNREADBUF TTWAITFORINPUT TTYINSTRING TYPE.BUFFER U-CASECODE U/L-CASE)) - (COMS (* ; "Internal reading. These functions all expect caller to have bound *READTABLE* correctly (not bound in TTYIN for who-line transparency)") + (COMS (* ; "Internal reading. These functions all expect caller to have bound *READTABLE* correctly (not bound in TTYIN for who-line transparency)") (FNS TTRATOM TTREADLIST TTSKIPSEPR TTSKREAD TTYIN.READ)) - (COMS (* ; "Escape completion and friends") + (COMS (* ; "Escape completion and friends") (FNS FIND.MATCHING.WORD TTCOMPLETEWORD WORD.MATCHES.BUFFER TTYIN.SHOW.?ALTERNATIVES)) - (COMS (* ; "? and ?= handler") + (COMS (* ; "? and ?= handler") (FNS DO?CMD TTYIN.PRINTARGS TTYIN.READ?=ARGS DO?CMD.ERRORHANDLER)) - (COMS (* ; "Display handling") + (COMS (* ; "Display handling") (FNS BEEP BITBLT.DELETE BITBLT.ERASE BITBLT.INSERT DO.CRLF DO.DELETE.LINES DO.INSERT.LINE DO.LF ERASE.TO.END.OF.LINE ERASE.TO.END.OF.PAGE INSERT.TEXT TTDELSECTION TTADJUSTWIDTH TTINSERTSECTION TTSETCURSOR)) - [COMS (* ; "TTYINBUFFERSTREAM") + [COMS (* ; "TTYINBUFFERSTREAM") (FNS TTYINBUFFERDEVICE TTYINBUFFERSTREAM TTYINBUFFERBIN TTYINBUFFERPEEK TTYINBUFFERREADP TTYINBUFFEREOFP TTYINBUFFERBACKPTR TTYINWORDRDTBL) (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (TTYINBUFFERDEVICE (TTYINBUFFERDEVICE)) (TTYINWORDRDTBL (TTYINWORDRDTBL] - (COMS (* ; "Mouse handling") + (COMS (* ; "Mouse handling") (FNS DO.MOUSE DO.SHIFTED.SELECTION COPY.SEGMENT DELETE.LONG.SEGMENT DELETE.LONG.SEGMENT1 INVERT.LONG.SEGMENT INVERT.SEGMENT BRACKET.CURRENT.WORD TTBEFOREPOS TTNEXTPOS TTRACKMOUSE)) (COMS - (* ;; "Auxiliary fns. These are outside the TTYIN block, and are provided to aid the outside world in special interfaces to TTYIN") + (* ;; "Auxiliary fns. These are outside the TTYIN block, and are provided to aid the outside world in special interfaces to TTYIN") (FNS SETREADFN TTYINENTRYFN TTYINREADP TTYINREAD TTYINFIX CHARMACRO? TTYINMETA TTYIN.LASTINPUT) (FNS TTYINEDIT SIMPLETEXTEDIT SET.TTYINEDIT.WINDOW TTYIN.PPTOFILE) - (COMS (* ; - "New, correct way of getting scratch file") + (COMS (* ; + "New, correct way of getting scratch file") (FNS MAKE-TTSCRATCHFILE) (RESOURCES TTSCRATCHFILE)) - (COMS (* ; - "Obsolete, but maybe someone calls it") + (COMS (* ; + "Obsolete, but maybe someone calls it") (FNS TTYIN.SCRATCHFILE \TTYIN.RPEOF) (INITVARS (TTYINEDIT.SCRATCH))) (INITVARS (TTYINEDITWINDOW) @@ -73,15 +74,15 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. (TTYINAUTOCLOSEFLG) (TTYINPRINTFN) (TTYIN?=FN))) - [COMS (* ; "Kludge of the week") + [COMS (* ; "Kludge of the week") (FNS TTYINPROMPTFORWORD) (INITVARS (TTYIN.USE.EXACT.CHARS)) - (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; - "This is so that you can (MOVD 'TTYINPROMPTFORWORD 'PROMPTFORWORD) and not die") + (DECLARE%: DONTEVAL@LOAD DOCOPY (* ; + "This is so that you can (MOVD 'TTYINPROMPTFORWORD 'PROMPTFORWORD) and not die") (P (MOVD? 'PROMPTFORWORD 'NON-TTYIN-PROMPTFORWORD NIL T] (DECLARE%: DOEVAL@COMPILE DONTCOPY (COMS * TTCOMPILETIME)) - (* ;; " The DORADO branch is deprecated (DORADO.RESTORE.BUF.CODES (CHARCODE (%"#B%")))") + (* ;; " The DORADO branch is deprecated (DORADO.RESTORE.BUF.CODES (CHARCODE (%"#B%")))") (INITVARS (TTYIN.RESTORE.BUF.CODES (CHARCODE ("Function,^D" "Function,^R"))) (TTYINBUFFER) @@ -4799,7 +4800,8 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. SETEOFPTR _ (FUNCTION NILL]) (TTYINBUFFERSTREAM - [LAMBDA (BUF END EOFACTION) (* ; "Edited 24-May-91 11:19 by jds") + [LAMBDA (BUF END EOFACTION) (* ; "Edited 2-Jul-2022 00:08 by rmk") + (* ; "Edited 24-May-91 11:19 by jds") (LET [(STRM (OR \TTYINBUFFERSTREAM (SETQ \TTYINBUFFERSTREAM (create STREAM DEVICE _ TTYINBUFFERDEVICE ACCESS _ 'INPUT] @@ -4807,6 +4809,7 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. (replace (TTYINBUFFERSTREAM TTYEOF) of STRM with (OR END \ENDBUFFER)) (replace (TTYINBUFFERSTREAM TTYEOFACTION) of STRM with EOFACTION) (replace (TTYINBUFFERSTREAM TTYORIGINPUT) of STRM with BUF) + (\EXTERNALFORMAT STRM :DEFAULT) STRM]) (TTYINBUFFERBIN @@ -5785,10 +5788,9 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. ) (RPAQQ TTYINMACROS (TYPEAHEAD? AT.END.OF.BUF AT.END.OF.LINE AT.START.OF.BUF AT.START.OF.LINE - BEFOREBUF BREAK.OR.SEPRP DISPLAYTERMP EMPTY.BUFFER EMPTY.LINE EQPOS - NEQPOS INPART ON.FIRST.LINE ON.LAST.LINE METACHARP NONMETACHARBITS - METACHAR COMPLEXCHARP SPACEP TTBOUT TTNEXTCHAR WORDSEPRP FCHARWIDTH - FIRSTCHAR)) + BEFOREBUF BREAK.OR.SEPRP DISPLAYTERMP EMPTY.BUFFER EMPTY.LINE EQPOS NEQPOS + INPART ON.FIRST.LINE ON.LAST.LINE METACHARP NONMETACHARBITS METACHAR + COMPLEXCHARP SPACEP TTBOUT TTNEXTCHAR WORDSEPRP FCHARWIDTH FIRSTCHAR)) (DECLARE%: EVAL@COMPILE (PUTPROPS TYPEAHEAD? MACRO (NIL (\SYSBUFP))) @@ -5796,68 +5798,67 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. (PUTPROPS AT.END.OF.BUF MACRO (NIL (EQ \CURSOR \ENDBUFFER))) (PUTPROPS AT.END.OF.LINE MACRO (NIL (EQ (fetch END of \ARROW) - \CURSOR))) + \CURSOR))) (PUTPROPS AT.START.OF.BUF MACRO (NIL (EQ \CURSOR \BUFFER))) (PUTPROPS AT.START.OF.LINE MACRO (NIL (EQ (fetch (LINE START) of \ARROW) - \CURSOR))) + \CURSOR))) (PUTPROPS BEFOREBUF MACRO ((THIS THAT END) - (BUFTAILP THAT THIS END))) + (BUFTAILP THAT THIS END))) (PUTPROPS BREAK.OR.SEPRP MACRO ((C) - (fetch STOPATOM of (\SYNCODE \RDTBLSA C)))) + (fetch STOPATOM of (\SYNCODE \RDTBLSA C)))) (PUTPROPS DISPLAYTERMP ALTOMACRO (NIL T)) (PUTPROPS EMPTY.BUFFER MACRO (NIL (EQ \BUFFER \ENDBUFFER))) (PUTPROPS EMPTY.LINE MACRO [X (SUBST (OR (CAR X) - '\ARROW) - '\ARROW - '(EQ (fetch (LINE START) of \ARROW) - (fetch (LINE END) of \ARROW]) + '\ARROW) + '\ARROW + '(EQ (fetch (LINE START) of \ARROW) + (fetch (LINE END) of \ARROW]) (PUTPROPS EQPOS MACRO [(X Y) - (AND (EQ (fetch COLPOS of X) - (fetch COLPOS of Y)) - (EQ (fetch ROWPOS of X) - (fetch ROWPOS of Y]) + (AND (EQ (fetch COLPOS of X) + (fetch COLPOS of Y)) + (EQ (fetch ROWPOS of X) + (fetch ROWPOS of Y]) (PUTPROPS NEQPOS MACRO ((X Y) - (NOT (EQPOS X Y)))) + (NOT (EQPOS X Y)))) (PUTPROPS INPART MACRO (OPENLAMBDA (X) - (COND - ((LISTP X) - (CAR X)) - (T X)))) + (COND + ((LISTP X) + (CAR X)) + (T X)))) (PUTPROPS ON.FIRST.LINE MACRO (NIL (EQ \FIRSTLINE \ARROW))) (PUTPROPS ON.LAST.LINE MACRO (NIL (EQ (fetch END of \ARROW) - \ENDBUFFER))) + \ENDBUFFER))) (PUTPROPS METACHARP MACRO ((C) - (EQ (LRSH C 8) - (LRSH (CHARCODE Meta,0) - 8)))) + (EQ (LRSH C 8) + (LRSH (CHARCODE Meta,0) + 8)))) (PUTPROPS NONMETACHARBITS MACRO ((C) - (LOGAND C 255))) + (LOGAND C 255))) (PUTPROPS METACHAR MACRO ((C) - (LOGOR C (CHARCODE Meta,0)))) + (LOGOR C (CHARCODE Meta,0)))) (PUTPROPS COMPLEXCHARP MACRO (= . LISTP)) (PUTPROPS SPACEP MACRO [(CHAR) - (FMEMB CHAR (CHARCODE (SPACE TAB CR]) + (FMEMB CHAR (CHARCODE (SPACE TAB CR]) (PUTPROPS TTBOUT MACRO [X (CONS 'PROGN (for ARG in X - collect - (LIST 'BLTCHAR (OR (FIXP ARG) + collect (LIST 'BLTCHAR (OR (FIXP ARG) (CDR (ASSOC ARG DMCHARCODES)) (AND (EQ (NCHARS ARG) 1) @@ -5868,20 +5869,20 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. (PUTPROPS TTNEXTCHAR MACRO (= . CDR)) (PUTPROPS WORDSEPRP DMACRO [OPENLAMBDA (X) - (OR (EQ (\SYNCODE \PRIMTERMSA X) - WORDSEPR.TC) - (fetch STOPATOM of (\SYNCODE \RDTBLSA X]) + (OR (EQ (\SYNCODE \PRIMTERMSA X) + WORDSEPR.TC) + (fetch STOPATOM of (\SYNCODE \RDTBLSA X]) (PUTPROPS FCHARWIDTH MACRO (= . CHARWIDTH)) (PUTPROPS FIRSTCHAR MACRO ((BUF) - ([LAMBDA (CH) - (DECLARE (LOCALVARS CH)) - (COND - ((COMPLEXCHARP CH) - (fetch CPXREALCHAR of CH)) - (T CH] - (CAR BUF)))) + ([LAMBDA (CH) + (DECLARE (LOCALVARS CH)) + (COND + ((COMPLEXCHARP CH) + (fetch CPXREALCHAR of CH)) + (T CH] + (CAR BUF)))) ) (DECLARE%: EVAL@COMPILE @@ -5889,8 +5890,8 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. (RECORD TTYINBUFFER (FIRSTLINE OLDTAIL LASTSKIP LASTSKIPCHAR STORAGECOUNTER TTYINWINDOW . TTYINWINDOWSTATE) - (SUBRECORD TTYINWINDOWSTATE) - STORAGECOUNTER _ 0) + (SUBRECORD TTYINWINDOWSTATE) + STORAGECOUNTER _ 0) (RECORD TTYINWINDOWSTATE (TTOLDBUTTONFN TTOLDRIGHTFN TTOLDENTRYFN)) @@ -5899,13 +5900,13 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. (RECORD COMPLEXCHAR (CPXREALCHAR CPXWIDTH CPXNCHARS . CPXPRINTCHARS)) (ACCESSFNS TTYINBUFFERSTREAM ((TTYINPUT (fetch (STREAM F1) of DATUM) - (replace (STREAM F1) of DATUM with NEWVALUE)) - (TTYEOF (fetch (STREAM F2) of DATUM) - (replace (STREAM F2) of DATUM with NEWVALUE)) - (TTYEOFACTION (fetch (STREAM F3) of DATUM) - (replace (STREAM F3) of DATUM with NEWVALUE)) - (TTYORIGINPUT (fetch (STREAM F4) of DATUM) - (replace (STREAM F4) of DATUM with NEWVALUE)))) + (replace (STREAM F1) of DATUM with NEWVALUE)) + (TTYEOF (fetch (STREAM F2) of DATUM) + (replace (STREAM F2) of DATUM with NEWVALUE)) + (TTYEOFACTION (fetch (STREAM F3) of DATUM) + (replace (STREAM F3) of DATUM with NEWVALUE)) + (TTYORIGINPUT (fetch (STREAM F4) of DATUM) + (replace (STREAM F4) of DATUM with NEWVALUE)))) ) (RPAQQ DMCHARCODES @@ -5969,16 +5970,16 @@ Copyright (c) 1982-1988, 1990-1991, 2021 by Venue & Xerox Corporation. (DECLARE%: DONTEVAL@COMPILE [SETTEMPLATE 'TTBOUT '(CALL |..| (IF [OR (LISTP EXPR) - (AND (NTHCHAR EXPR 2) - (NOT (ASSOC EXPR DMCHARCODES] - EVAL NIL] + (AND (NTHCHAR EXPR 2) + (NOT (ASSOC EXPR DMCHARCODES] + EVAL NIL] [SETTEMPLATE 'TTBOUTN '(MACRO (X . Y) (FRPTQ X (TTBOUT . Y] DONTEVAL@LOAD EVAL@COMPILE (RPAQ DONTCOMPILEFNS (UNION (UNION TTYINMACROS TTSUPPORTFNS) - DONTCOMPILEFNS)) + DONTCOMPILEFNS)) ) ) @@ -6076,62 +6077,62 @@ DONTEVAL@LOAD EVAL@COMPILE (PUTPROPS TTYIN COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (7796 207831 (TTYIN 7806 . 21039) (TTYIN.SETUP 21041 . 24117) (TTYIN.CLEANUP 24119 . -24947) (TTYIN1 24949 . 51833) (TTYIN1RESTART 51835 . 53099) (TTYIN.FINISH 53101 . 62518) ( -TTYIN.BALANCE 62520 . 63646) (ADDCHAR 63648 . 65834) (TTMAKECOMPLEXCHAR 65836 . 66310) (ADDNAKEDCHAR -66312 . 67822) (TTADDTAB 67824 . 68759) (ADJUSTLINE 68761 . 82672) (ADJUSTLINE.AND.RESTORE 82674 . -83112) (AT.END.OF.SCREEN 83114 . 83402) (AT.END.OF.TEXT 83404 . 83859) (AUTOCR? 83861 . 84335) ( -BACKSKREAD 84337 . 88922) (BACKWARD.DELETE.TO 88924 . 89106) (BREAKLINE 89108 . 91375) (BUFTAILP 91377 - . 91695) (CHECK.MARGIN 91697 . 92320) (CLEAR.LINE? 92322 . 92615) (CURRENT.WORD 92617 . 95017) ( -DELETE.TO.END 95019 . 95738) (DELETELINE 95740 . 98697) (DELETETO 98699 . 100521) (DELETETO1 100523 . -101866) (DO.EDIT.COMMAND 101868 . 119187) (DO.EDIT.PP 119189 . 121851) (TTDOTABS 121853 . 123223) ( -EDITCOLUMN 123225 . 123681) (EDITNUMBERP 123683 . 123914) (END.DELETE.MODE 123916 . 124433) (ENDREAD? -124435 . 126870) (FIND.LINE 126872 . 128408) (FIND.LINE.BREAK 128410 . 129080) (FIND.MATCHING.QUOTE -129082 . 129927) (FIND.NEXT.WORD 129929 . 131308) (FIND.NON.SPACE 131310 . 131583) (FIND.START.OF.WORD - 131585 . 131948) (FORWARD.DELETE.TO 131950 . 134172) (GO.TO.ADDRESSING 134174 . 135130) ( -GO.TO.FREELINE 135132 . 135713) (GO.TO.RELATIVE 135715 . 136495) (INIT.CURSOR 136497 . 137394) ( -INSERT.NODE 137396 . 137918) (INSERTLINE 137920 . 139424) (KILL.LINES 139426 . 139964) (KILLSEGMENT -139966 . 141089) (L-CASECODE 141091 . 141252) (MOVE.BACK.TO 141254 . 141483) (MOVE.FORWARD.TO 141485 - . 141906) (MOVE.TO.LINE 141908 . 142823) (MOVE.TO.NEXT.LINE 142825 . 143095) (MOVE.TO.START.OF.WORD -143097 . 143861) (MOVE.TO.WHEREVER 143863 . 144086) (NTH.COLUMN.OF 144088 . 144419) ( -NTH.RELATIVE.COLUMN.OF 144421 . 145721) (OVERFLOW? 145723 . 146671) (OVERFLOWLINE? 146673 . 146999) ( -PREVLINE 147001 . 148181) (PREVWORD 148183 . 150324) (PROPERTAILP 150326 . 150533) (READFROMBUF 150535 - . 153124) (RENUMBER.LINES 153126 . 153519) (RESTORE.CURSOR 153521 . 153675) (RESTOREBUF 153677 . -155861) (RETYPE.BUFFER 155863 . 158126) (SAVE.CURSOR 158128 . 158300) (SCANBACK 158302 . 159660) ( -SCANFORWARD 159662 . 160530) (SCRATCHCONS 160532 . 161134) (SEGMENT.LENGTH 161136 . 161672) ( -SEGMENT.BIT.LENGTH 161674 . 162281) (SETLASTC 162283 . 162580) (SETTAIL? 162582 . 163398) ( -SHOW.MATCHING.PAREN 163400 . 165900) (SKIP/ZAP 165902 . 168381) (START.NEW.LINE 168383 . 168715) ( -START.OF.PARAGRAPH? 168717 . 169098) (TTADJUSTWORD 169100 . 170274) (TTBIN 170276 . 171482) ( -TTBITWIDTH 171484 . 171633) (TTCRLF 171635 . 171842) (TTCRLF.ACCOUNT 171844 . 172484) (TTDELETECHAR -172486 . 173630) (TTDELETELINE 173632 . 175580) (TTDELETEWORD 175582 . 176250) (TTECHO.TO.FILE 176252 - . 179811) (TTGIVEHELP 179813 . 181078) (TTGIVEHELP1 181080 . 181662) (TTGIVEHELP2 181664 . 182359) ( -TTLASTLINE 182361 . 182729) (TTLOADBUF 182731 . 186225) (TTNEXTLINE 186227 . 186547) (TTNEXTNODE -186549 . 186788) (TTNLEFT 186790 . 188017) (TTNTH 188019 . 188478) (TTNTHLINE 188480 . 189012) ( -TTPRIN1 189014 . 192827) (TTPRINSPACE 192829 . 193222) (TTPRIN1COMMENT 193224 . 193548) (TTPRIN2 -193550 . 195869) (TTPROMPTCHAR 195871 . 196767) (TTRUBOUT 196769 . 197732) (TTUNREADBUF 197734 . -198143) (TTWAITFORINPUT 198145 . 202353) (TTYINSTRING 202355 . 203314) (TYPE.BUFFER 203316 . 205068) ( -U-CASECODE 205070 . 205229) (U/L-CASE 205231 . 207829)) (207986 217345 (TTRATOM 207996 . 208440) ( -TTREADLIST 208442 . 208809) (TTSKIPSEPR 208811 . 209185) (TTSKREAD 209187 . 213827) (TTYIN.READ 213829 - . 217343)) (217392 237436 (FIND.MATCHING.WORD 217402 . 217930) (TTCOMPLETEWORD 217932 . 232360) ( -WORD.MATCHES.BUFFER 232362 . 233922) (TTYIN.SHOW.?ALTERNATIVES 233924 . 237434)) (237470 255780 ( -DO?CMD 237480 . 243382) (TTYIN.PRINTARGS 243384 . 254242) (TTYIN.READ?=ARGS 254244 . 255025) ( -DO?CMD.ERRORHANDLER 255027 . 255778)) (255814 263887 (BEEP 255824 . 255999) (BITBLT.DELETE 256001 . -256648) (BITBLT.ERASE 256650 . 256835) (BITBLT.INSERT 256837 . 257148) (DO.CRLF 257150 . 257469) ( -DO.DELETE.LINES 257471 . 258515) (DO.INSERT.LINE 258517 . 260451) (DO.LF 260453 . 260619) ( -ERASE.TO.END.OF.LINE 260621 . 260946) (ERASE.TO.END.OF.PAGE 260948 . 261553) (INSERT.TEXT 261555 . -262059) (TTDELSECTION 262061 . 262359) (TTADJUSTWIDTH 262361 . 263225) (TTINSERTSECTION 263227 . -263566) (TTSETCURSOR 263568 . 263885)) (263922 268899 (TTYINBUFFERDEVICE 263932 . 265248) ( -TTYINBUFFERSTREAM 265250 . 266012) (TTYINBUFFERBIN 266014 . 266550) (TTYINBUFFERPEEK 266552 . 267030) -(TTYINBUFFERREADP 267032 . 267287) (TTYINBUFFEREOFP 267289 . 267541) (TTYINBUFFERBACKPTR 267543 . -268095) (TTYINWORDRDTBL 268097 . 268897)) (269060 294617 (DO.MOUSE 269070 . 271827) ( -DO.SHIFTED.SELECTION 271829 . 282268) (COPY.SEGMENT 282270 . 282474) (DELETE.LONG.SEGMENT 282476 . -282835) (DELETE.LONG.SEGMENT1 282837 . 285313) (INVERT.LONG.SEGMENT 285315 . 286344) (INVERT.SEGMENT -286346 . 287861) (BRACKET.CURRENT.WORD 287863 . 289397) (TTBEFOREPOS 289399 . 290129) (TTNEXTPOS -290131 . 290839) (TTRACKMOUSE 290841 . 294615)) (294761 300016 (SETREADFN 294771 . 295249) ( -TTYINENTRYFN 295251 . 295676) (TTYINREADP 295678 . 296142) (TTYINREAD 296144 . 297538) (TTYINFIX -297540 . 298739) (CHARMACRO? 298741 . 299308) (TTYINMETA 299310 . 299438) (TTYIN.LASTINPUT 299440 . -300014)) (300017 308286 (TTYINEDIT 300027 . 302144) (SIMPLETEXTEDIT 302146 . 305190) ( -SET.TTYINEDIT.WINDOW 305192 . 306343) (TTYIN.PPTOFILE 306345 . 308284)) (308344 308521 ( -MAKE-TTSCRATCHFILE 308354 . 308519)) (308668 309801 (TTYIN.SCRATCHFILE 308678 . 309124) (\TTYIN.RPEOF -309126 . 309799)) (310013 313646 (TTYINPROMPTFORWORD 310023 . 313644))))) + (FILEMAP (NIL (7815 207850 (TTYIN 7825 . 21058) (TTYIN.SETUP 21060 . 24136) (TTYIN.CLEANUP 24138 . +24966) (TTYIN1 24968 . 51852) (TTYIN1RESTART 51854 . 53118) (TTYIN.FINISH 53120 . 62537) ( +TTYIN.BALANCE 62539 . 63665) (ADDCHAR 63667 . 65853) (TTMAKECOMPLEXCHAR 65855 . 66329) (ADDNAKEDCHAR +66331 . 67841) (TTADDTAB 67843 . 68778) (ADJUSTLINE 68780 . 82691) (ADJUSTLINE.AND.RESTORE 82693 . +83131) (AT.END.OF.SCREEN 83133 . 83421) (AT.END.OF.TEXT 83423 . 83878) (AUTOCR? 83880 . 84354) ( +BACKSKREAD 84356 . 88941) (BACKWARD.DELETE.TO 88943 . 89125) (BREAKLINE 89127 . 91394) (BUFTAILP 91396 + . 91714) (CHECK.MARGIN 91716 . 92339) (CLEAR.LINE? 92341 . 92634) (CURRENT.WORD 92636 . 95036) ( +DELETE.TO.END 95038 . 95757) (DELETELINE 95759 . 98716) (DELETETO 98718 . 100540) (DELETETO1 100542 . +101885) (DO.EDIT.COMMAND 101887 . 119206) (DO.EDIT.PP 119208 . 121870) (TTDOTABS 121872 . 123242) ( +EDITCOLUMN 123244 . 123700) (EDITNUMBERP 123702 . 123933) (END.DELETE.MODE 123935 . 124452) (ENDREAD? +124454 . 126889) (FIND.LINE 126891 . 128427) (FIND.LINE.BREAK 128429 . 129099) (FIND.MATCHING.QUOTE +129101 . 129946) (FIND.NEXT.WORD 129948 . 131327) (FIND.NON.SPACE 131329 . 131602) (FIND.START.OF.WORD + 131604 . 131967) (FORWARD.DELETE.TO 131969 . 134191) (GO.TO.ADDRESSING 134193 . 135149) ( +GO.TO.FREELINE 135151 . 135732) (GO.TO.RELATIVE 135734 . 136514) (INIT.CURSOR 136516 . 137413) ( +INSERT.NODE 137415 . 137937) (INSERTLINE 137939 . 139443) (KILL.LINES 139445 . 139983) (KILLSEGMENT +139985 . 141108) (L-CASECODE 141110 . 141271) (MOVE.BACK.TO 141273 . 141502) (MOVE.FORWARD.TO 141504 + . 141925) (MOVE.TO.LINE 141927 . 142842) (MOVE.TO.NEXT.LINE 142844 . 143114) (MOVE.TO.START.OF.WORD +143116 . 143880) (MOVE.TO.WHEREVER 143882 . 144105) (NTH.COLUMN.OF 144107 . 144438) ( +NTH.RELATIVE.COLUMN.OF 144440 . 145740) (OVERFLOW? 145742 . 146690) (OVERFLOWLINE? 146692 . 147018) ( +PREVLINE 147020 . 148200) (PREVWORD 148202 . 150343) (PROPERTAILP 150345 . 150552) (READFROMBUF 150554 + . 153143) (RENUMBER.LINES 153145 . 153538) (RESTORE.CURSOR 153540 . 153694) (RESTOREBUF 153696 . +155880) (RETYPE.BUFFER 155882 . 158145) (SAVE.CURSOR 158147 . 158319) (SCANBACK 158321 . 159679) ( +SCANFORWARD 159681 . 160549) (SCRATCHCONS 160551 . 161153) (SEGMENT.LENGTH 161155 . 161691) ( +SEGMENT.BIT.LENGTH 161693 . 162300) (SETLASTC 162302 . 162599) (SETTAIL? 162601 . 163417) ( +SHOW.MATCHING.PAREN 163419 . 165919) (SKIP/ZAP 165921 . 168400) (START.NEW.LINE 168402 . 168734) ( +START.OF.PARAGRAPH? 168736 . 169117) (TTADJUSTWORD 169119 . 170293) (TTBIN 170295 . 171501) ( +TTBITWIDTH 171503 . 171652) (TTCRLF 171654 . 171861) (TTCRLF.ACCOUNT 171863 . 172503) (TTDELETECHAR +172505 . 173649) (TTDELETELINE 173651 . 175599) (TTDELETEWORD 175601 . 176269) (TTECHO.TO.FILE 176271 + . 179830) (TTGIVEHELP 179832 . 181097) (TTGIVEHELP1 181099 . 181681) (TTGIVEHELP2 181683 . 182378) ( +TTLASTLINE 182380 . 182748) (TTLOADBUF 182750 . 186244) (TTNEXTLINE 186246 . 186566) (TTNEXTNODE +186568 . 186807) (TTNLEFT 186809 . 188036) (TTNTH 188038 . 188497) (TTNTHLINE 188499 . 189031) ( +TTPRIN1 189033 . 192846) (TTPRINSPACE 192848 . 193241) (TTPRIN1COMMENT 193243 . 193567) (TTPRIN2 +193569 . 195888) (TTPROMPTCHAR 195890 . 196786) (TTRUBOUT 196788 . 197751) (TTUNREADBUF 197753 . +198162) (TTWAITFORINPUT 198164 . 202372) (TTYINSTRING 202374 . 203333) (TYPE.BUFFER 203335 . 205087) ( +U-CASECODE 205089 . 205248) (U/L-CASE 205250 . 207848)) (208005 217364 (TTRATOM 208015 . 208459) ( +TTREADLIST 208461 . 208828) (TTSKIPSEPR 208830 . 209204) (TTSKREAD 209206 . 213846) (TTYIN.READ 213848 + . 217362)) (217411 237455 (FIND.MATCHING.WORD 217421 . 217949) (TTCOMPLETEWORD 217951 . 232379) ( +WORD.MATCHES.BUFFER 232381 . 233941) (TTYIN.SHOW.?ALTERNATIVES 233943 . 237453)) (237489 255799 ( +DO?CMD 237499 . 243401) (TTYIN.PRINTARGS 243403 . 254261) (TTYIN.READ?=ARGS 254263 . 255044) ( +DO?CMD.ERRORHANDLER 255046 . 255797)) (255833 263906 (BEEP 255843 . 256018) (BITBLT.DELETE 256020 . +256667) (BITBLT.ERASE 256669 . 256854) (BITBLT.INSERT 256856 . 257167) (DO.CRLF 257169 . 257488) ( +DO.DELETE.LINES 257490 . 258534) (DO.INSERT.LINE 258536 . 260470) (DO.LF 260472 . 260638) ( +ERASE.TO.END.OF.LINE 260640 . 260965) (ERASE.TO.END.OF.PAGE 260967 . 261572) (INSERT.TEXT 261574 . +262078) (TTDELSECTION 262080 . 262378) (TTADJUSTWIDTH 262380 . 263244) (TTINSERTSECTION 263246 . +263585) (TTSETCURSOR 263587 . 263904)) (263941 269072 (TTYINBUFFERDEVICE 263951 . 265267) ( +TTYINBUFFERSTREAM 265269 . 266185) (TTYINBUFFERBIN 266187 . 266723) (TTYINBUFFERPEEK 266725 . 267203) +(TTYINBUFFERREADP 267205 . 267460) (TTYINBUFFEREOFP 267462 . 267714) (TTYINBUFFERBACKPTR 267716 . +268268) (TTYINWORDRDTBL 268270 . 269070)) (269233 294790 (DO.MOUSE 269243 . 272000) ( +DO.SHIFTED.SELECTION 272002 . 282441) (COPY.SEGMENT 282443 . 282647) (DELETE.LONG.SEGMENT 282649 . +283008) (DELETE.LONG.SEGMENT1 283010 . 285486) (INVERT.LONG.SEGMENT 285488 . 286517) (INVERT.SEGMENT +286519 . 288034) (BRACKET.CURRENT.WORD 288036 . 289570) (TTBEFOREPOS 289572 . 290302) (TTNEXTPOS +290304 . 291012) (TTRACKMOUSE 291014 . 294788)) (294934 300189 (SETREADFN 294944 . 295422) ( +TTYINENTRYFN 295424 . 295849) (TTYINREADP 295851 . 296315) (TTYINREAD 296317 . 297711) (TTYINFIX +297713 . 298912) (CHARMACRO? 298914 . 299481) (TTYINMETA 299483 . 299611) (TTYIN.LASTINPUT 299613 . +300187)) (300190 308459 (TTYINEDIT 300200 . 302317) (SIMPLETEXTEDIT 302319 . 305363) ( +SET.TTYINEDIT.WINDOW 305365 . 306516) (TTYIN.PPTOFILE 306518 . 308457)) (308517 308694 ( +MAKE-TTSCRATCHFILE 308527 . 308692)) (308841 309974 (TTYIN.SCRATCHFILE 308851 . 309297) (\TTYIN.RPEOF +309299 . 309972)) (310186 313819 (TTYINPROMPTFORWORD 310196 . 313817))))) STOP diff --git a/sources/TTYIN.LCOM b/sources/TTYIN.LCOM index 63e62f6cce05b4dd79134625a8339906bd13ef2a..527cb2646e1fff40a271f5664e603f89035188cd 100644 GIT binary patch delta 412 zcmeymmu3AvmI)rpTpDhkKCaF|u8twDE(%HtM!H_5Il4v$Mn(z-237`^RtAO>v&`7b z^NX@G^U@~^GD*~%X(}ig8vxbiLDU%;SOJlNsgeR$Qc-Gher`c#PHKumYDGa&v8t6q zNJylopHrxtn`=;T2+$s1h0Ht!CAUx?9|dGn^z`(U6jBmPfI6|5ZfKyS33aLr9=94y ztWraEYmk|Ov5|#^iJ^j(vxlRfyKAs+h`)k{n_sX37lyku6|4e+T*Ey5LxXi)fWe`l zWMr=ESeg#2fqpVFFjcT}admSH^$AhfyzjiZKLGS@ BZM^^h delta 338 zcmZ3#kLBxLmI)q88g8CGuFgTOjv=lt3Q7uQy1}Uhx<&>@h6;veR))q_1{M>u&6v|O zOD4-RiPsw$X`(4IwKBD|GBj0ENGeKA&d)8#%t=jA;7YA1$jMC3EXk=5SO7elWYlJxl1w-86?C%?_sZdaqT9%n#S`4-e zs6ffcT-UKQ9qwrpOQ4q~R;$4bX0+IB!L;cNQJ1iOmW8e5eQqxvEb~)AB+VMLyp2bN7kAvxn#Ib=*kdU)3fK(96?j-S(8k4x-`6w1L Vd0ya_ixRM8%DIPw#nWFN{|2-H-`4;D delta 728 zcmZuvL2nX46z)>fHY~)I64RoIF9;i`?PghaS(Y2Zt|bC%fI2b35ZWcMgzh%T!CQ?d zPewY42T%1U2=UT`96XtrXm8#;=nv3eP-j`XdT_ctgN_0IgI?R}cAms@VA-RdX?4N0 zAgb+^%kZz7(b2LHzWgSH~?gQS}gt`5jJkqM!tRN+&nncrKiI+pRE);WIix#qbaM z_FdPPd0g#(JG{7fJ$E~MffBCmxc@1UE@)D;Qs22nbbY=C>q*{UAqn$3d1Ad1&rw^^QFNS(fIQb9!9O zS5%OtER>3*ZPVXDiaO4u!F_7TN+}Pf1!z2aph8xVyj+UEgt8)gFzXTI%wH&q9zjrG a{!L1H)u{?H>F=VVoDx?Tc>40{`LjRsthV+5 diff --git a/sources/XCCS b/sources/XCCS index 64294ddd..a6a180e6 100644 --- a/sources/XCCS +++ b/sources/XCCS @@ -1,11 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "26-Jun-2022 14:33:06" {DSK}kaplan>local>medley3.5>working-medley>sources>XCCS.;48 13142 +(FILECREATED "30-Jun-2022 18:08:18" {DSK}kaplan>Local>medley3.5>working-medley>sources>XCCS.;51 12897 - :CHANGES-TO (VARS XCCSCOMS) + :CHANGES-TO (FNS \CREATE.XCCS.EXTERNALFORMAT) - :PREVIOUS-DATE "10-Sep-2021 19:49:22" -{DSK}kaplan>local>medley3.5>working-medley>sources>XCCS.;47) + :PREVIOUS-DATE "30-Jun-2022 10:02:25" +{DSK}kaplan>Local>medley3.5>working-medley>sources>XCCS.;50) (PRETTYCOMPRINT XCCSCOMS) @@ -16,10 +16,6 @@ (FNS \CREATE.XCCS.EXTERNALFORMAT) (FNS \NSIN.24BITENCODING.ERROR) (INITVARS (*SIGNAL-24BIT-NSENCODING-ERROR*)) - (INITVARS (\DEFAULTINCCODE '\XCCSINCCODE) - (\DEFAULTOUTCHAR '\XCCSOUTCHAR) - (\DEFAULTPEEKCCODE '\XCCSPEEKCCODE) - (\DEFAULTBACKCCODE '\XCCSBACKCCODE)) (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (CONSTANTS (\NORUNCODE 255) (NSCHARSETSHIFT 255)) (MACROS \RUNCODED) @@ -210,7 +206,8 @@ (DEFINEQ (\CREATE.XCCS.EXTERNALFORMAT - [LAMBDA (NAME EOL) (* ; "Edited 10-Sep-2021 19:49 by rmk:") + [LAMBDA (NAME EOL) (* ; "Edited 30-Jun-2022 18:08 by rmk") + (* ; "Edited 10-Sep-2021 19:49 by rmk:") (* ;;; "Create the :XCCS external format. Stream's EOL overrides the (vacuous) default here") @@ -222,7 +219,7 @@ (FUNCTION \XCCSBACKCCODE) (FUNCTION \XCCSOUTCHAR) (FUNCTION \XCCSFORMATBYTESTREAM) - EOL T]) + EOL T NIL]) ) (DEFINEQ @@ -241,14 +238,6 @@ ) (RPAQ? *SIGNAL-24BIT-NSENCODING-ERROR* ) - -(RPAQ? \DEFAULTINCCODE '\XCCSINCCODE) - -(RPAQ? \DEFAULTOUTCHAR '\XCCSOUTCHAR) - -(RPAQ? \DEFAULTPEEKCCODE '\XCCSPEEKCCODE) - -(RPAQ? \DEFAULTBACKCCODE '\XCCSBACKCCODE) (DECLARE%: EVAL@COMPILE DONTCOPY (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE @@ -286,8 +275,8 @@ (\CREATE.XCCS.EXTERNALFORMAT) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1218 1447 (ACCESS-CHARSET 1228 . 1445)) (1448 10316 (\XCCSINCCODE 1458 . 4230) ( -\XCCSPEEKCCODE 4232 . 6768) (\XCCSOUTCHAR 6770 . 8990) (\XCCSBACKCCODE 8992 . 9987) ( -\XCCSFORMATBYTESTREAM 9989 . 10314)) (10317 10875 (\CREATE.XCCS.EXTERNALFORMAT 10327 . 10873)) (10876 -11707 (\NSIN.24BITENCODING.ERROR 10886 . 11705))))) + (FILEMAP (NIL (1036 1265 (ACCESS-CHARSET 1046 . 1263)) (1266 10134 (\XCCSINCCODE 1276 . 4048) ( +\XCCSPEEKCCODE 4050 . 6586) (\XCCSOUTCHAR 6588 . 8808) (\XCCSBACKCCODE 8810 . 9805) ( +\XCCSFORMATBYTESTREAM 9807 . 10132)) (10135 10810 (\CREATE.XCCS.EXTERNALFORMAT 10145 . 10808)) (10811 +11642 (\NSIN.24BITENCODING.ERROR 10821 . 11640))))) STOP diff --git a/sources/XCCS.LCOM b/sources/XCCS.LCOM index 4f1fc41e0d20e023c6ae88a603f27ec33c29b8bf..4f21e7313e38034f4c4cb6ccae0eeca6c1b3ef2d 100644 GIT binary patch delta 382 zcmaDPHAiAXxQMZVu2*TEu91O}k%FOxm4Stop~b{(NxsnH)S_a$?8Jhc#5_Bn$!Ux_ z2BwCZ3QFke&8!S8l@yYSQj_y@3o>(3Q@9jTD+-E=Rjm{zJMv2NC}id-D7l6D_$U|~ zOlD*h^T#y6&{Rp2OT*36$JIH=)iK1?1=ALgtCSR~U4p%9Z7^LXZEDD+U}$7vX|7=9 z?BVF=?i#Ec;;*3L<`)cdgp7@XRX~tyn5Tbeu&xWx0yOgttPG5-j7*gjxNup(WNNTk zktu+U(Q07nR7&j0`b delta 774 zcma))QA^uU7=~?OQckBh*u|7xd<29OSW0seYduUyJUOk=EJ!Zj?Yf}-Coo|5Pj(n zhN~3fv-8j0_!D$vkQ$+F!}M&WQjwt3K94%HcB+~rBiyiT&U|hJ+)N>PMp6l`OtE+U z_G#L-UPqv6s!o8i9m8pIp#(1AeZv>ocC1E#lAzprZo16%J_7dAM9KH^?#TCy);svGRtV?etlO+=f5Ve1`HOj*liqUr YPx9-tKDirb>UbdeQF#3fIhKv?0mh5ZNB{r;