(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "18-Dec-2022 11:55:01" ("compiled on " {WMEDLEY}UNIXCOMM.;11) " 7-Nov-2022 22:52:12" "COMPILE-FILEd" in "FULL 7-Nov-2022 ..." dated " 7-Nov-2022 22:52:15") (FILECREATED "18-Dec-2022 11:55:01" {WMEDLEY}UNIXCOMM.;11 14599 :CHANGES-TO (FNS INITIALIZE-SHELL-DEVICE UNIX-BACKFILEPTR UNIX-STREAM-EOFP) (VARS UNIXCOMMCOMS) :PREVIOUS-DATE "25-Oct-2022 21:56:00" {WMEDLEY}UNIXCOMM.;9) (RPAQQ UNIXCOMMCOMS ((* ;; "streams to UNIX processes & pseudo terminals") (* ;; "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-SHELL-DEVICE UNIX-GET-NEXT-BUFFER UNIX-BACKFILEPTR UNIX-STREAM-EOFP UNIX-STREAM-OUT UNIX-STREAM-CLOSE) (GLOBALVARS *SHELL-DEVICE*) (DECLARE%: DONTEVAL@LOAD DOCOPY (P ( INITIALIZE-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 ( QUOTE (FILEIO LLSUBRS)) T))) (PROP FILETYPE UNIXCOMM))) FORK-SHELL :D8 (I 1 COMMAND I 0 TERMTYPE) Hl}u²3l @µ o°Ñ@Š@ Aµo„}uAµl}u (69 FORK-UNIX 32 LISP-TO-UNIX-TERMTYPE) (51 ONED-ARRAY 37 ONED-ARRAY 23 ONED-ARRAY) ( 45 "" 16 "") FORK-UNIX :D8 (I 0 STR) j@}uNIL (6 ONED-ARRAY) () UNIX-KILL :D8 (I 0 CONN) @´ l@j}uNIL NIL () UNIX-WRITE :D8 (P 0 LENGTH-WRITTEN I 1 VAL I 0 CONN) 'k@A}uX´jHÙjð—¿°áH(32 BLOCK) (15 SMALLP 9 SMALLP) () CREATE-SHELL-STREAM :D8 (P 4 STR P 0 CHAN I 1 COMMAND I 0 TERMTYPE F 5 \NOIMAGEOPS) @A 1H´‚±ðl d` ¿dnÿÿÍ5¿`¹dIÍ4¿dh2¿dU.¿dg*¿dg&¿dg$¿`ºdJÍ¿dj¿dj¿dkÏ ¿dkÏ ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿[dÉ Éhµg ¿Kdg ¿LH`L`ÉLgg Lgg L(252 STREAMPROP 236 STREAMPROP 181 \SETACCESS 168 \EXTERNALFORMAT 6 FORK-SHELL) (247 UNIX.SETDISPLAYTYPE 242 SETDISPLAYTYPE 231 UNIX.SENDSCREENPARAMS 226 SENDSCREENPARAMS 215 FDEV 210 *SHELL-DEVICE* 204 FDEV 199 *SHELL-DEVICE* 191 STREAM 176 BOTH 163 :DEFAULT 154 FDEV 88 FILELINELENGTH 80 \STREAM.NOT.OPEN 71 \STREAM.NOT.OPEN 62 \EOSERROR 40 \STREAM.DEFAULT.MAXBUFFERS 25 *SHELL-DEVICE*) () CREATE-PROCESS-STREAM :D8 (P 4 STR P 0 CHAN I 0 COMM F 5 \NOIMAGEOPS) ß@ 1H´‚±Ðl d` ¿dkÏ ¿dnÿÿÍ5¿`¹dIÍ4¿dh2¿dU.¿dg*¿dg&¿dg$¿`ºdJÍ¿dj¿dj¿dkÏ ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿[dÉ Éhµg ¿Kdg ¿LH`L`ÉL(180 \SETACCESS 167 \EXTERNALFORMAT 5 FORK-UNIX) (214 FDEV 209 *SHELL-DEVICE* 203 FDEV 198 *SHELL-DEVICE* 190 STREAM 175 BOTH 162 :DEFAULT 153 FDEV 93 FILELINELENGTH 85 \STREAM.NOT.OPEN 76 \STREAM.NOT.OPEN 67 \EOSERROR 45 \STREAM.DEFAULT.MAXBUFFERS 24 *SHELL-DEVICE*) () UNIXCOMM-AROUNDEXITFN :D8 (P 3 STREAM P 0 STREAM I 0 EVENT) ¨@gð³@gð³@gðª@dgð²8¿`ÉŒdH µò`IJhJgð³@gð¨@gð´`ÉJµh»lKÉ}umýð–K ¿JZ°Þ(160 CLOSEF 80 SYSTEM-EXTERNALFORMAT 60 CLOSEF) (145 STREAM 124 FDEV 119 *SHELL-DEVICE* 111 BEFORESYSOUT 103 BEFOREMAKESYS 94 BEFORELOGOUT 75 FDEV 70 *SHELL-DEVICE* 46 FDEV 41 *SHELL-DEVICE* 32 AFTERSYSOUT 23 AFTERSAVEVM 14 AFTERMAKESYS 5 AFTERLOGOUT) () INITIALIZE-SHELL-DEVICE :D8 NIL `dkÏ ¿dg¿dg,¿dg.¿dg0¿dg¿dgD¿dgF¿dg<¿dgT¿dgZ¿dg>¿HdIh¿dgR¿dgP¿dgN¿dgH¿dgB¿dg@¿dg:¿dg*¿dg ¿dg¿dg¿dg¿dg ¿dg¿(115 SYSTEM-EXTERNALFORMAT) (256 *SHELL-DEVICE* 248 NILL 239 NILL 230 \GENERIC.RENAMEFILE 221 NILL 212 NILL 203 NILL 194 NILL 185 \GENERIC.READP 176 \GENERIC.BOUTS 167 NILL 158 \GENERIC.CHARSET 149 \ILLEGAL.DEVICEOP 140 \IS.NOT.RANDACCESSP 131 \IS.NOT.RANDACCESSP 107 \BUFFERED.BINS 98 UNIX-GET-NEXT-BUFFER 89 UNIX-BACKFILEPTR 80 UNIX-STREAM-EOFP 71 NILL 62 NILL 53 UNIX-STREAM-CLOSE 44 \BUFFERED.PEEKBIN 35 UNIX-STREAM-OUT 26 \BUFFERED.BIN 17 UNIX-PTY 4 |FDEVTYPE#|) () UNIX-GET-NEXT-BUFFER :D8 (P 3 \INTERRUPTABLE P 2 LEN P 1 CONN P 0 BUF I 2 NOERRORFLG I 1 WHATFOR I 0 STREAM) wAgð²i@É@É¿I²!l IHµ@l X¿H}uZµBhð´(@ ið”B²Èh@jÍ¿@JÍi(116 SHOULDNT 78 \EOF.ACTION 32 BLOCK) (106 STREAM 96 STREAM 53 STREAM 44 SMALLP 22 STREAM 14 STREAM 5 READ) () UNIX-BACKFILEPTR :D8 (I 0 STREAM) =@ɲ(@Èjó²@@ÈmÿÔHIÍIo@ (58 ERROR) (33 STREAM 27 STREAM 15 STREAM 5 STREAM) ( 52 "Can't back up this unix Stream") UNIX-STREAM-EOFP :D8 (I 0 STREAM) $@Éš@È@Èýó‘h@gi hð(31 UNIX-GET-NEXT-BUFFER) (25 READ 5 STREAM) () UNIX-STREAM-OUT :D8 (I 1 CHAR I 0 STREAM) "@ÉA µ g@ (31 CL:ERROR 18 UNIX-WRITE) (25 XCL:STREAM-NOT-OPEN 13 SMALLP 5 STREAM) () UNIX-STREAM-CLOSE :D8 (I 0 STREAM) 8@É @h¿`@`É ¿(50 REMOVE 12 UNIX-KILL) (43 FDEV 38 *SHELL-DEVICE* 32 FDEV 27 *SHELL-DEVICE* 18 STREAM 5 STREAM) () (INITIALIZE-SHELL-DEVICE) (ADDTOVAR AROUNDEXITFNS UNIXCOMM-AROUNDEXITFN) CREATE-UNIX-SOCKET-STREAM :D8 (P 4 STR P 0 CHAN I 0 PATHNAME F 5 \NOIMAGEOPS) äl @}u1H´‚±Ðl d` ¿dkÏ ¿dnÿÿÍ5¿`¹dIÍ4¿dh2¿dU.¿dg*¿dg&¿dg$¿`ºdJÍ¿dj¿dj¿dkÏ ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿[dÉ Éhµg ¿Kdg ¿LH`L`ÉL(185 \SETACCESS 172 \EXTERNALFORMAT) (219 FDEV 214 *SHELL-DEVICE* 208 FDEV 203 *SHELL-DEVICE* 195 STREAM 180 BOTH 167 :DEFAULT 158 FDEV 98 FILELINELENGTH 90 \STREAM.NOT.OPEN 81 \STREAM.NOT.OPEN 72 \EOSERROR 50 \STREAM.DEFAULT.MAXBUFFERS 29 *SHELL-DEVICE* 7 ONED-ARRAY) () ACCEPT-UNIX-SOCKET-STREAM :D8 (P 5 NEWSTREAM P 1 NEWCHAN P 0 CHAN I 0 SOCKSTREAM F 6 \NOIMAGEOPS) ï@ÉAl H}uYdmÿð’±Ö´‚±Ðl d` ¿dkÏ ¿dnÿÿÍ5¿`ºdJÍ4¿dh2¿dV.¿dg*¿dg&¿dg$¿`»dKÍ¿dj¿dj¿dkÏ ¿dkÏ0¿djÍ¿dlÏ¿dh¿djÏ¿\dÉ Éhµg ¿Ldg ¿MI`M`ÉM(196 \SETACCESS 183 \EXTERNALFORMAT) (230 FDEV 225 *SHELL-DEVICE* 219 FDEV 214 *SHELL-DEVICE* 206 STREAM 191 BOTH 178 :DEFAULT 169 FDEV 109 FILELINELENGTH 101 \STREAM.NOT.OPEN 92 \STREAM.NOT.OPEN 83 \EOSERROR 61 \STREAM.DEFAULT.MAXBUFFERS 40 *SHELL-DEVICE* 5 STREAM) () (PUTPROPS UNIXCOMM FILETYPE COMPILE-FILE) (PUTPROPS UNIXCOMM COPYRIGHT ("Venue & Xerox Corporation" 1988 1989 1990 2018 2022)) NIL