(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "12-Nov-2023 20:08:37" ("compiled on " {DSK}larry>il>medley>library>CHARDEVICE.;1) "11-Nov-2023 07:37:04" bcompl'd in "FULL 11-Nov-2023 ..." dated "11-Nov-2023 07:37:06") (FILECREATED "20-Jan-93 13:45:35" {DSK}lde>lispcore>library>CHARDEVICE.;2 24926 changes to%: ( VARS CHARDEVICECOMS) (RECORDS SGTTY MODEM-LINES) previous date%: " 1-May-92 15:09:57" {DSK}lde>lispcore>library>CHARDEVICE.;1) \CHAR-DEVICE-INIT :D8 (F 0 \CHAR-DEVICE-FDEV F 1 *DEFAULT-EXTERNALFORMAT*) é`dg,¿dg.¿dg¿dg ¿dg¿dg¿dg>¿dg@¿dg:¿dg0¿dQh¿dgR¿dgP¿dgN¿dgH¿dgB¿dg<¿dg*¿dg ¿dg¿dg¿dg¿dg ¿dg¿cgP (230 \DEFINEDEVICE) (224 CHAR 214 NILL 205 NILL 196 \GENERIC.RENAMEFILE 187 NILL 178 NILL 169 NILL 160 NILL 151 \ILLEGAL.DEVICEOP 142 NILL 133 \GENERIC.CHARSET 124 \ILLEGAL.DEVICEOP 115 \IS.NOT.RANDACCESSP 106 \IS.NOT.RANDACCESSP 92 \CHAR-DEV-PEEKBIN 83 \CHAR-DEV-READP 74 \CHAR-BOUTS 65 \CHAR-BINS 56 \CHAR-DEV-CLOSEFILE 47 \CHAR-DEV-OPENFILE 38 \CHAR-DEV-EVENTFN 29 \CHAR-DEV-OPENFILE 20 \CHAR-DEV-BOUT 11 \CHAR-DEV-BIN 4 |FDEVTYPE#|) () \CHAR-DEV-EVENTFN :D8 (L (1 EVENT 0 FDEV)) hNIL NIL () \CHAR-ERROR :D8 (I 1 STREAM I 0 ERRNO) I@dkðœ¿oA dlðœ¿oA l ð²oAÉ o@ (70 ERROR 58 ERROR 34 \LISPERROR 16 ERROR) (51 STREAM) ( 64 "Unix error number: " 45 "Bad file number: " 28 "FILE NOT FOUND" 10 "Not Owner: ") \CHAR-DEV-OPENFILE :D8 (P 4 STREAM P 3 ACCESS-VALUE P 2 IODESCRIPTOR P 1 ERRNO P 0 UNIX-NAME I 4 FDEV I 3 OTHERINFO I 2 RECOG I 1 ACCESS I 0 NAME) R@o@ kØ lbl djÏ ¿djÏ ¿dD ¿d@¿dkÏ0¿dkÏ ¿dkÏ ¿dJ¿dnÿÿÍ5¿`½dMÍ4¿dh2¿d`.¿dg*¿dg&¿dg$¿`¾dNÍ¿dj¿dj¿djÍ¿dlÏ¿dh¿djÏ¿_dÉ Éhµg ¿O\Adgð²¿dg$¿j[°Ngð²Lg&¿k[°4Adgð²#¿Lg$¿Lg&¿l[†¿A ¿HKI}ÈZ™LJ†I@ L(334 \CHAR-ERROR 308 \ILLEGAL.ARG 199 \EXTERNALFORMAT 18 SUBSTRING 11 STRPOS) (323 STREAM 294 \CHAR-DEV-BOUT 289 STREAM 280 \CHAR-DEV-BIN 275 STREAM 265 BOTH 251 \CHAR-DEV-BOUT 246 STREAM 237 OUTPUT 225 \CHAR-DEV-BIN 220 STREAM 210 INPUT 194 :DEFAULT 185 FDEV 136 FILELINELENGTH 128 \STREAM.NOT.OPEN 119 \STREAM.NOT.OPEN 110 \EOSERROR 101 \NOIMAGEOPS 84 \STREAM.DEFAULT.MAXBUFFERS) ( 5 "}") \CHAR-DEV-CLOSEFILE :D8 (P 2 ACCESS-VALUE P 1 IODESCRIPTOR P 0 ERRNO I 0 STREAM) !l!@ÉH}̪oH @(29 CL:ERROR) (11 STREAM) ( 23 "Char-device close failed with error number ~d.~%%") \CHAR-DEV-BIN :D8 (P 1 CH P 0 ERRNO I 0 STREAM) M@ɲ@É@h¿l@ÉH}ÉYµìHdl#Ùj𘿿°â@ ¿°Ù(72 \CHAR-ERROR 63 BLOCK) (40 STREAM 23 STREAM 15 STREAM 5 STREAM) () \CHAR-DEV-BOUT :D8 (P 0 ERRNO I 1 CCODE I 0 STREAM) 1l@ÉAH}Ê‘AHdl#Ùj𘿿°á@ ¿°Ø(44 \CHAR-ERROR 35 BLOCK) (11 STREAM) () \CHAR-BINS :D8 (P 3 THIS-READ P 2 BYTES-TO-READ P 1 CHARS-READ P 0 ERRNO I 3 NBYTES I 2 OFFSET I 1 BASE I 0 STREAM) Yl jCCIó¡C@ÉABJH}Ï[²IKÔYCýñ•¿JKÕºBKÔb¿°ÐHdl#Ùj𘿿°¿@ ¿°¶(84 \CHAR-ERROR 75 BLOCK 48 BLOCK 6 \CREATECELL) (23 STREAM) () \CHAR-BOUTS :D8 (P 3 THIS-WRITE P 2 BYTES-TO-WRITE P 1 CHARS-WRITTEN P 0 ERRNO I 3 NBYTES I 2 OFFSET I 1 BASE I 0 STREAM) Ul jCCIó¡C@ÉABJH}Ð[²IKÔ¹JKÕºBKÔb¿¿°ÔHdl#Ùj𘿿°Ã@ ¿°º(80 \CHAR-ERROR 71 BLOCK 54 BLOCK 6 \CREATECELL) (23 STREAM) () \CHAR-DEV-PEEKBIN :D8 (I 1 NOERRORFLG I 0 STREAM) @ɵ@@ HIINIL (15 STREAM 5 STREAM) () \CHAR-DEV-READP :D8 (P 0 RESULT I 0 STREAM) l @oH Hjñ(21 IOCTL 6 \CREATECELL) NIL ( 15 1074030207) \CHAR-FILLBUFFER :D8 (P 1 CHARS-READ P 0 ERRNO I 1 BUFFER I 0 STREAM) 7l @ÉAjn}ÏYµHdl#Ùj𘿿°Þ@ I(51 \CHAR-ERROR 42 BLOCK 6 \CREATECELL) (15 STREAM) () IOCTL :D8 (P 0 ERRNO I 2 DATA I 1 REQUEST I 0 STREAM) l@ÉABH}˵HNIL (11 STREAM) () RP :D8 (P 0 *PRINT-BASE* I 1 BASE I 0 X) A@ (9 PRINT) NIL () BAUD-RATE :D8 (P 4 I P 2 ENDTIME P 1 STARTTIME P 0 CHARS I 0 FF) )jn'kLKóšZdIÕ@ ¿LkÔ\°ë(25 IDATE 5 IDATE) NIL () CHARS-AVAILABLE :D8 (P 0 RESULT I 0 STREAM) l @oH H(21 IOCTL 6 \CREATECELL) NIL ( 15 1074030207) BINS-BAUD :D8 (P 4 A0025 P 3 TC P 2 COUNT P 1 RESULT P 0 CHARS I 0 FF F 5 SB) 1j1n'Hó¡h@É É>@UjnlL»HKÔ¸°ÖNIL (24 FDEV 17 STREAM) () (PRETTYCOMPRINT CHARDEVICECOMS) (RPAQQ CHARDEVICECOMS ((FNS \CHAR-DEVICE-INIT \CHAR-DEV-EVENTFN \CHAR-ERROR) (P (\CHAR-DEVICE-INIT)) ( COMS (* ;; "File manipulation (Open, close, etc)") (FNS \CHAR-DEV-OPENFILE \CHAR-DEV-CLOSEFILE)) (COMS (* ;; "UNBUFFERED Stream methods (BIN, BOUT, etc)") (FNS \CHAR-DEV-BIN \CHAR-DEV-BOUT \CHAR-BINS \CHAR-BOUTS \CHAR-DEV-PEEKBIN \CHAR-DEV-READP)) (COMS (* ;; "BUFFERED Stream methods (BINS, BOUTS, GETNEXTBUFFER, etc.)") (FNS \CHAR-FILLBUFFER)) (COMS (* ;; "Structures for using IOCTL with various character devices:") (FNS IOCTL) (* ;; "TTY (and TERMIO??) device:") (COMS (RECORDS SGTTY) (CONSTANTS (TIOCGETP (\MAKENUMBER 16390 29704)) ( TIOCSETP (\MAKENUMBER 32774 29705)) (TIOCSETN (\MAKENUMBER 32774 29706)) (TIOCEXCL (\MAKENUMBER 8192 29709)) (TIOCNXCL (\MAKENUMBER 8192 29710)) (TIOCHPCL (\MAKENUMBER 8192 29698)) (TIOCGETD (\MAKENUMBER 16388 29696)) (TIOCSETD (\MAKENUMBER 32772 29697)) (TIOCFLUSH (\MAKENUMBER 32772 29712)) (TIOCSTI ( \MAKENUMBER 32769 29810)) (TIOCSBRK (\MAKENUMBER 8192 29819)) (TIOCCBRK (\MAKENUMBER 8192 29818)) ( TIOCOUTQ (\MAKENUMBER 16388 29811)) (FIONREAD (\MAKENUMBER 16388 26239)) (TIOCMODG (\MAKENUMBER 16388 29699)) (TIOCMODS (\MAKENUMBER 32772 29700)) (TIOCSETC (\MAKENUMBER 32774 29713)) (TIOCGETC ( \MAKENUMBER 16390 29714)) (TCXONC (\MAKENUMBER 8192 21510)) (TCFLSH (\MAKENUMBER 8192 21511)) (TCGETS (\MAKENUMBER 16418 21512)) (TCSETS (\MAKENUMBER 32802 21513)) (TCSETSW (\MAKENUMBER 32802 21514)) ( TCSETSF (\MAKENUMBER 32802 21515)) (TCSNDBRK (\MAKENUMBER 8192 21516)) (TCDRAIN (\MAKENUMBER 8192 21517)) (TIOCGWINSZ (\MAKENUMBER 16392 29800)) (TIOCSWINSZ (\MAKENUMBER 32776 29799)) (TIOCSSIZE ( \MAKENUMBER 32776 29733)) (TIOCGSIZE (\MAKENUMBER 16392 29734)) (TIOCMBIS (\MAKENUMBER 32772 29804)) ( TIOCMBIC (\MAKENUMBER 32772 29803)) (TIOCGSOFTCAR (\MAKENUMBER 16388 29796)) (TIOCPKT (\MAKENUMBER 32772 29808)) (TIOCREMOTE (\MAKENUMBER 32772 29801)) (TIOCOUTQ (\MAKENUMBER 16388 29811)) (TIOCMGET ( \MAKENUMBER 16388 29802)) (TIOCMSET (\MAKENUMBER 32772 29805)) (TIOCUCNTL (\MAKENUMBER 32772 29798)) ( TIOCSSOFTCAR (\MAKENUMBER 32772 29797))) (CONSTANTS (B0 0) (B50 1) (B75 2) (B110 3) (B134 4) (B150 5) (B200 6) (B300 7) (B600 8) (B1200 9) (B1800 10) (B2400 11) (B4800 12) (B9600 13) (B19200 14)) ( CONSTANTS (FREAD 1) (FWRITE 2)) (CONSTANTS (TIOCPKT_DATA 0) (TIOCPKT_FLUSHREAD 1) (TIOCPKT_FLUSHWRITE 2) (TIOCPKT_STOP 4) (TIOCPKT_START 8) (TIOCPKT_NOSTOP 16) (TIOCPKT_DOSTOP 32) (TIOCPKT_IOCTL 64) ( TIOCM_LE 1) (TIOCM_DTR 2) (TIOCM_RTS 4) (TIOCM_ST 8) (TIOCM_SR 16) (TIOCM_CTS 32) (TIOCM_CAR 64) ( TIOCM_RI 128) (TIOCM_DSR 256)) (RECORDS MODEM-LINES)) (INITRECORDS SGTTY)) (COMS (* ;; "Changes to \INITSUBRS to support the character deice:") (ADDVARS (\INITSUBRS (CHAR-OPENFILE 200) ( CHAR-BIN 201) (CHAR-BOUT 202) (CHAR-IOCTL 203) (CHAR-CLOSEFILE 204) (CHAR-EOFP 205) (CHAR-READP 206) ( CHAR-BINS 207) (CHAR-BOUTS 208) (CHAR-FILLBUFFER 209)))) (COMS (* ;; "DSEBUGGING FNS") (FNS RP BAUD-RATE CHARS-AVAILABLE BINS-BAUD)))) (\CHAR-DEVICE-INIT) (DATATYPE SGTTY ((INPUT-SPEED BYTE) (OUTPUT-SPEED BYTE) (ERASE-CHAR BYTE) (KILL-CHAR BYTE) (FLAGS WORD ))) (/DECLAREDATATYPE (QUOTE SGTTY) (QUOTE (BYTE BYTE BYTE BYTE WORD)) (QUOTE ((SGTTY 0 (BITS . 7)) (SGTTY 0 (BITS . 135)) (SGTTY 1 (BITS . 7)) (SGTTY 1 (BITS . 135)) (SGTTY 2 (BITS . 15)))) (QUOTE 4)) (RPAQ TIOCGETP (\MAKENUMBER 16390 29704)) (RPAQ TIOCSETP (\MAKENUMBER 32774 29705)) (RPAQ TIOCSETN (\MAKENUMBER 32774 29706)) (RPAQ TIOCEXCL (\MAKENUMBER 8192 29709)) (RPAQ TIOCNXCL (\MAKENUMBER 8192 29710)) (RPAQ TIOCHPCL (\MAKENUMBER 8192 29698)) (RPAQ TIOCGETD (\MAKENUMBER 16388 29696)) (RPAQ TIOCSETD (\MAKENUMBER 32772 29697)) (RPAQ TIOCFLUSH (\MAKENUMBER 32772 29712)) (RPAQ TIOCSTI (\MAKENUMBER 32769 29810)) (RPAQ TIOCSBRK (\MAKENUMBER 8192 29819)) (RPAQ TIOCCBRK (\MAKENUMBER 8192 29818)) (RPAQ TIOCOUTQ (\MAKENUMBER 16388 29811)) (RPAQ FIONREAD (\MAKENUMBER 16388 26239)) (RPAQ TIOCMODG (\MAKENUMBER 16388 29699)) (RPAQ TIOCMODS (\MAKENUMBER 32772 29700)) (RPAQ TIOCSETC (\MAKENUMBER 32774 29713)) (RPAQ TIOCGETC (\MAKENUMBER 16390 29714)) (RPAQ TCXONC (\MAKENUMBER 8192 21510)) (RPAQ TCFLSH (\MAKENUMBER 8192 21511)) (RPAQ TCGETS (\MAKENUMBER 16418 21512)) (RPAQ TCSETS (\MAKENUMBER 32802 21513)) (RPAQ TCSETSW (\MAKENUMBER 32802 21514)) (RPAQ TCSETSF (\MAKENUMBER 32802 21515)) (RPAQ TCSNDBRK (\MAKENUMBER 8192 21516)) (RPAQ TCDRAIN (\MAKENUMBER 8192 21517)) (RPAQ TIOCGWINSZ (\MAKENUMBER 16392 29800)) (RPAQ TIOCSWINSZ (\MAKENUMBER 32776 29799)) (RPAQ TIOCSSIZE (\MAKENUMBER 32776 29733)) (RPAQ TIOCGSIZE (\MAKENUMBER 16392 29734)) (RPAQ TIOCMBIS (\MAKENUMBER 32772 29804)) (RPAQ TIOCMBIC (\MAKENUMBER 32772 29803)) (RPAQ TIOCGSOFTCAR (\MAKENUMBER 16388 29796)) (RPAQ TIOCPKT (\MAKENUMBER 32772 29808)) (RPAQ TIOCREMOTE (\MAKENUMBER 32772 29801)) (RPAQ TIOCOUTQ (\MAKENUMBER 16388 29811)) (RPAQ TIOCMGET (\MAKENUMBER 16388 29802)) (RPAQ TIOCMSET (\MAKENUMBER 32772 29805)) (RPAQ TIOCUCNTL (\MAKENUMBER 32772 29798)) (RPAQ TIOCSSOFTCAR (\MAKENUMBER 32772 29797)) (CONSTANTS (TIOCGETP (\MAKENUMBER 16390 29704)) (TIOCSETP (\MAKENUMBER 32774 29705)) (TIOCSETN ( \MAKENUMBER 32774 29706)) (TIOCEXCL (\MAKENUMBER 8192 29709)) (TIOCNXCL (\MAKENUMBER 8192 29710)) ( TIOCHPCL (\MAKENUMBER 8192 29698)) (TIOCGETD (\MAKENUMBER 16388 29696)) (TIOCSETD (\MAKENUMBER 32772 29697)) (TIOCFLUSH (\MAKENUMBER 32772 29712)) (TIOCSTI (\MAKENUMBER 32769 29810)) (TIOCSBRK ( \MAKENUMBER 8192 29819)) (TIOCCBRK (\MAKENUMBER 8192 29818)) (TIOCOUTQ (\MAKENUMBER 16388 29811)) ( FIONREAD (\MAKENUMBER 16388 26239)) (TIOCMODG (\MAKENUMBER 16388 29699)) (TIOCMODS (\MAKENUMBER 32772 29700)) (TIOCSETC (\MAKENUMBER 32774 29713)) (TIOCGETC (\MAKENUMBER 16390 29714)) (TCXONC (\MAKENUMBER 8192 21510)) (TCFLSH (\MAKENUMBER 8192 21511)) (TCGETS (\MAKENUMBER 16418 21512)) (TCSETS ( \MAKENUMBER 32802 21513)) (TCSETSW (\MAKENUMBER 32802 21514)) (TCSETSF (\MAKENUMBER 32802 21515)) ( TCSNDBRK (\MAKENUMBER 8192 21516)) (TCDRAIN (\MAKENUMBER 8192 21517)) (TIOCGWINSZ (\MAKENUMBER 16392 29800)) (TIOCSWINSZ (\MAKENUMBER 32776 29799)) (TIOCSSIZE (\MAKENUMBER 32776 29733)) (TIOCGSIZE ( \MAKENUMBER 16392 29734)) (TIOCMBIS (\MAKENUMBER 32772 29804)) (TIOCMBIC (\MAKENUMBER 32772 29803)) ( TIOCGSOFTCAR (\MAKENUMBER 16388 29796)) (TIOCPKT (\MAKENUMBER 32772 29808)) (TIOCREMOTE (\MAKENUMBER 32772 29801)) (TIOCOUTQ (\MAKENUMBER 16388 29811)) (TIOCMGET (\MAKENUMBER 16388 29802)) (TIOCMSET ( \MAKENUMBER 32772 29805)) (TIOCUCNTL (\MAKENUMBER 32772 29798)) (TIOCSSOFTCAR (\MAKENUMBER 32772 29797 ))) (RPAQQ B0 0) (RPAQQ B50 1) (RPAQQ B75 2) (RPAQQ B110 3) (RPAQQ B134 4) (RPAQQ B150 5) (RPAQQ B200 6) (RPAQQ B300 7) (RPAQQ B600 8) (RPAQQ B1200 9) (RPAQQ B1800 10) (RPAQQ B2400 11) (RPAQQ B4800 12) (RPAQQ B9600 13) (RPAQQ B19200 14) (CONSTANTS (B0 0) (B50 1) (B75 2) (B110 3) (B134 4) (B150 5) (B200 6) (B300 7) (B600 8) (B1200 9) ( B1800 10) (B2400 11) (B4800 12) (B9600 13) (B19200 14)) (RPAQQ FREAD 1) (RPAQQ FWRITE 2) (CONSTANTS (FREAD 1) (FWRITE 2)) (RPAQQ TIOCPKT_DATA 0) (RPAQQ TIOCPKT_FLUSHREAD 1) (RPAQQ TIOCPKT_FLUSHWRITE 2) (RPAQQ TIOCPKT_STOP 4) (RPAQQ TIOCPKT_START 8) (RPAQQ TIOCPKT_NOSTOP 16) (RPAQQ TIOCPKT_DOSTOP 32) (RPAQQ TIOCPKT_IOCTL 64) (RPAQQ TIOCM_LE 1) (RPAQQ TIOCM_DTR 2) (RPAQQ TIOCM_RTS 4) (RPAQQ TIOCM_ST 8) (RPAQQ TIOCM_SR 16) (RPAQQ TIOCM_CTS 32) (RPAQQ TIOCM_CAR 64) (RPAQQ TIOCM_RI 128) (RPAQQ TIOCM_DSR 256) (CONSTANTS (TIOCPKT_DATA 0) (TIOCPKT_FLUSHREAD 1) (TIOCPKT_FLUSHWRITE 2) (TIOCPKT_STOP 4) ( TIOCPKT_START 8) (TIOCPKT_NOSTOP 16) (TIOCPKT_DOSTOP 32) (TIOCPKT_IOCTL 64) (TIOCM_LE 1) (TIOCM_DTR 2) (TIOCM_RTS 4) (TIOCM_ST 8) (TIOCM_SR 16) (TIOCM_CTS 32) (TIOCM_CAR 64) (TIOCM_RI 128) (TIOCM_DSR 256) ) (BLOCKRECORD MODEM-LINES ((NIL WORD) (NIL BITS 7) (DSR FLAG) (RI FLAG) (CAR FLAG) (CTS FLAG) (SR FLAG) (ST FLAG) (RTS FLAG) (DTR FLAG) (LE FLAG))) (/DECLAREDATATYPE (QUOTE SGTTY) (QUOTE (BYTE BYTE BYTE BYTE WORD)) (QUOTE ((SGTTY 0 (BITS . 7)) (SGTTY 0 (BITS . 135)) (SGTTY 1 (BITS . 7)) (SGTTY 1 (BITS . 135)) (SGTTY 2 (BITS . 15)))) (QUOTE 4)) (ADDTOVAR \INITSUBRS (CHAR-OPENFILE 200) (CHAR-BIN 201) (CHAR-BOUT 202) (CHAR-IOCTL 203) ( CHAR-CLOSEFILE 204) (CHAR-EOFP 205) (CHAR-READP 206) (CHAR-BINS 207) (CHAR-BOUTS 208) (CHAR-FILLBUFFER 209)) (PUTPROPS CHARDEVICE COPYRIGHT (NONE)) NIL