*** empty log message ***
This commit is contained in:
bdc
parent
946798634a
commit
b3dc61dae4
|
|
@ -0,0 +1,239 @@
|
|||
;;; Constant definitions for tty control code (POSIX termios).
|
||||
;;; Copyright (c) 1995 by Brian Carlstrom.
|
||||
;;; Largely rehacked by Olin.
|
||||
|
||||
;;; These constants are for AIX 3.2.x,
|
||||
;;; and are taken from /usr/include/sys/termio.h
|
||||
;;; and /usr/include/sys/ttydev.h
|
||||
|
||||
;;; Non-standard (POSIX, SVR4, 4.3+BSD) things:
|
||||
;;; - Some of the baud rates.
|
||||
|
||||
|
||||
;;; Special Control Characters
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;; Indices into the c_cc[] character array.
|
||||
|
||||
;;; Name Subscript Enabled by
|
||||
;;; ---- --------- ----------
|
||||
;;; POSIX
|
||||
(define ttychar/eof 4) ; ^d icanon
|
||||
(define ttychar/eol 5) ; icanon
|
||||
(define ttychar/delete-char 2) ; ^? icanon
|
||||
(define ttychar/delete-line 3) ; ^u icanon
|
||||
(define ttychar/interrupt 0) ; ^c isig
|
||||
(define ttychar/quit 1) ; ^\ isig
|
||||
(define ttychar/suspend 9) ; ^z isig
|
||||
(define ttychar/start 7) ; ^q ixon, ixoff
|
||||
(define ttychar/stop 8) ; ^s ixon, ixoff
|
||||
(define ttychar/min 4) ; !icanon ; Not exported
|
||||
(define ttychar/time 5) ; !icanon ; Not exported
|
||||
|
||||
;;; SVR4 & 4.3+BSD
|
||||
(define ttychar/delete-word 13) ; ^w icanon
|
||||
(define ttychar/reprint 11) ; ^r icanon
|
||||
(define ttychar/literal-next 14) ; ^v iexten
|
||||
(define ttychar/discard 12) ; ^o iexten
|
||||
(define ttychar/delayed-suspend 10) ; ^y isig
|
||||
(define ttychar/eol2 6) ; icanon
|
||||
|
||||
;;; 4.3+BSD
|
||||
(define ttychar/status #f) ; ^t icanon
|
||||
|
||||
;;; Length of control-char string -- *Not Exported*
|
||||
(define num-ttychars 16)
|
||||
|
||||
;;; Magic "disable feature" tty character
|
||||
(define disable-tty-char (ascii->char #x00)) ; _POSIX_VDISABLE
|
||||
|
||||
;;; Flags controllling input processing
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; POSIX
|
||||
(define ttyin/ignore-break #x00001) ; ignbrk
|
||||
(define ttyin/interrupt-on-break #x00002) ; brkint
|
||||
(define ttyin/ignore-bad-parity-chars #x00004) ; ignpar
|
||||
(define ttyin/mark-parity-errors #x00008) ; parmrk
|
||||
(define ttyin/check-parity #x00010) ; inpck
|
||||
(define ttyin/7bits #x00020) ; istrip
|
||||
(define ttyin/nl->cr #x00040) ; inlcr
|
||||
(define ttyin/ignore-cr #x00080) ; igncr
|
||||
(define ttyin/cr->nl #x00100) ; icrnl
|
||||
(define ttyin/output-flow-ctl #x00200) ; ixon
|
||||
(define ttyin/input-flow-ctl #x00400) ; ixoff
|
||||
|
||||
|
||||
;;; SVR4 & 4.3+BSD
|
||||
(define ttyin/xon-any #x1000) ; ixany: Any char restarts after stop
|
||||
(define ttyin/beep-on-overflow #x10000) ; imaxbel: queue full => ring bell
|
||||
|
||||
;;; SVR4
|
||||
(define ttyin/lowercase #x800) ; iuclc: Map upper-case to lower case
|
||||
|
||||
|
||||
;;; Flags controlling output processing
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; POSIX
|
||||
(define ttyout/enable #o000001) ; opost: enable output processing
|
||||
|
||||
;;; SVR4 & 4.3+BSD
|
||||
(define ttyout/nl->crnl #o000004) ; onlcr: map nl to cr-nl
|
||||
|
||||
;;; 4.3+BSD
|
||||
(define ttyout/discard-eot #f) ; onoeot
|
||||
(define ttyout/expand-tabs #f) ; oxtabs (NOT xtabs)
|
||||
|
||||
;;; SVR4
|
||||
(define ttyout/cr->nl #x000008) ; ocrnl
|
||||
(define ttyout/fill-w/del #x000080) ; ofdel
|
||||
(define ttyout/delay-w/fill-char #x000040) ; ofill
|
||||
(define ttyout/uppercase #x000002) ; olcuc
|
||||
(define ttyout/nl-does-cr #x000020) ; onlret
|
||||
(define ttyout/no-col0-cr #x000010) ; onocr
|
||||
|
||||
;;; Newline delay
|
||||
(define ttyout/nl-delay #x004000) ; mask (nldly)
|
||||
(define ttyout/nl-delay0 #x000000)
|
||||
(define ttyout/nl-delay1 #x004000) ; tty 37
|
||||
|
||||
;;; Horizontal-tab delay
|
||||
(define ttyout/tab-delay #x000c00) ; mask (tabdly)
|
||||
(define ttyout/tab-delay0 #x000000)
|
||||
(define ttyout/tab-delay1 #x000400) ; tty 37
|
||||
(define ttyout/tab-delay2 #x000800)
|
||||
(define ttyout/tab-delayx #x000c00) ; Expand tabs (xtabs, tab3)
|
||||
|
||||
;;; Carriage-return delay
|
||||
(define ttyout/cr-delay #x000300) ; mask (crdly)
|
||||
(define ttyout/cr-delay0 #x000000)
|
||||
(define ttyout/cr-delay1 #x000100) ; tn 300
|
||||
(define ttyout/cr-delay2 #x000200) ; tty 37
|
||||
(define ttyout/cr-delay3 #x000300) ; concept 100
|
||||
|
||||
;;; Vertical tab delay
|
||||
(define ttyout/vtab-delay #x008000) ; mask (vtdly)
|
||||
(define ttyout/vtab-delay0 #x000000)
|
||||
(define ttyout/vtab-delay1 #x008000) ; tty 37
|
||||
|
||||
;;; Backspace delay
|
||||
(define ttyout/bs-delay #x001000) ; mask (bsdly)
|
||||
(define ttyout/bs-delay0 #x000000)
|
||||
(define ttyout/bs-delay1 #x001000)
|
||||
|
||||
;;; Form-feed delay
|
||||
(define ttyout/ff-delay #x002000) ; mask (ffdly)
|
||||
(define ttyout/ff-delay0 #x000000)
|
||||
(define ttyout/ff-delay1 #x002000)
|
||||
|
||||
(define ttyout/all-delay
|
||||
(bitwise-ior (bitwise-ior (bitwise-ior ttyout/nl-delay ttyout/tab-delay)
|
||||
(bitwise-ior ttyout/cr-delay ttyout/vtab-delay))
|
||||
(bitwise-ior ttyout/bs-delay ttyout/ff-delay)))
|
||||
|
||||
|
||||
;;; Control flags - hacking the serial-line.
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; POSIX
|
||||
(define ttyc/char-size #x00030) ; csize: character size mask
|
||||
(define ttyc/char-size5 #x00000) ; 5 bits (cs5)
|
||||
(define ttyc/char-size6 #x00010) ; 6 bits (cs6)
|
||||
(define ttyc/char-size7 #x00020) ; 7 bits (cs7)
|
||||
(define ttyc/char-size8 #x00030) ; 8 bits (cs8)
|
||||
(define ttyc/2-stop-bits #x00040) ; cstopb: Send 2 stop bits.
|
||||
(define ttyc/enable-read #x00080) ; cread: Enable receiver.
|
||||
(define ttyc/enable-parity #x00100) ; parenb
|
||||
(define ttyc/odd-parity #x00200) ; parodd
|
||||
(define ttyc/hup-on-close #x00400) ; hupcl: Hang up on last close.
|
||||
(define ttyc/no-modem-sync #x00800) ; clocal: Ignore modem lines.
|
||||
|
||||
;;; 4.3+BSD
|
||||
(define ttyc/ignore-flags #f) ; cignore: ignore control flags
|
||||
(define ttyc/CTS-output-flow-ctl #f) ; ccts_oflow: CTS flow control of output
|
||||
(define ttyc/RTS-input-flow-ctl #f) ; crts_iflow: RTS flow control of input
|
||||
(define ttyc/carrier-flow-ctl #f) ; mdmbuf
|
||||
|
||||
;;; Local flags -- hacking the tty driver / user interface.
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; POSIX
|
||||
(define ttyl/visual-delete #x010) ; echoe: Visually erase chars
|
||||
(define ttyl/echo-delete-line #x020) ; echok: Echo nl after line kill
|
||||
(define ttyl/echo #x008) ; echo: Enable echoing
|
||||
(define ttyl/echo-nl #x040) ; echonl: Echo nl even if echo is off
|
||||
(define ttyl/canonical #x002) ; icanon: Canonicalize input
|
||||
(define ttyl/enable-signals #x001) ; isig: Enable ^c, ^z signalling
|
||||
(define ttyl/extended #x00200000); iexten: Enable extensions
|
||||
(define ttyl/ttou-signal #x10000) ; tostop: SIGTTOU on background output
|
||||
(define ttyl/no-flush-on-interrupt #x80) ; noflsh
|
||||
|
||||
;;; SVR4 & 4.3+BSD
|
||||
(define ttyl/visual-delete-line #x080000); echoke: visually erase a line-kill
|
||||
(define ttyl/hardcopy-delete #x040000); echoprt: visual erase for hardcopy
|
||||
(define ttyl/echo-ctl #x020000); echoctl: echo control chars as "^X"
|
||||
(define ttyl/flush-output #x100000); flusho: output is being flushed
|
||||
(define ttyl/reprint-unread-chars #x20000000); pendin: retype pending input
|
||||
|
||||
;;; 4.3+BSD
|
||||
(define ttyl/alt-delete-word #f) ; altwerase
|
||||
(define ttyl/no-kernel-status #f) ; nokerninfo: no kernel status on ^T
|
||||
|
||||
;;; SVR4
|
||||
(define ttyl/case-map #x4) ; xcase: canonical upper/lower presentation
|
||||
|
||||
;;; Baud Rates
|
||||
(define baud/0 0)
|
||||
(define baud/50 1)
|
||||
(define baud/75 2)
|
||||
(define baud/110 3)
|
||||
(define baud/134 4)
|
||||
(define baud/150 5)
|
||||
(define baud/200 6)
|
||||
(define baud/300 7)
|
||||
(define baud/600 8)
|
||||
(define baud/1200 9)
|
||||
(define baud/1800 10)
|
||||
(define baud/2400 11)
|
||||
(define baud/4800 12)
|
||||
(define baud/9600 13)
|
||||
(define baud/19200 14)
|
||||
(define baud/38400 15)
|
||||
(define baud/exta 14) ;non-standard
|
||||
(define baud/extb 15) ;non-standard
|
||||
|
||||
;;; Rather cheesy mechanism here.
|
||||
;;; Vector of lists because some OS's define EXTA and EXTB to be
|
||||
;;; the same code as 19.2k and 38.4k baud.
|
||||
|
||||
(define baud-rates '#((0) (50) (75)
|
||||
(110) (134) (150)
|
||||
(200) (300) (600)
|
||||
(1200) (1800) (2400)
|
||||
(4800) (9600) (19200 exta)
|
||||
(38400 extb)))
|
||||
|
||||
|
||||
;;; tcflush() constants
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(define %flush-tty/input 0) ; TCIFLUSH
|
||||
(define %flush-tty/output 1) ; TCOFLUSH
|
||||
(define %flush-tty/both 2) ; TCIOFLUSH
|
||||
|
||||
|
||||
;;; tcflow() constants
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(define %tcflow/start-out 1) ; TCOON
|
||||
(define %tcflow/stop-out 0) ; TCOOFF
|
||||
(define %tcflow/start-in 3) ; TCION
|
||||
(define %tcflow/stop-in 2) ; TCIOFF
|
||||
|
||||
|
||||
;;; tcsetattr() constants
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(define %set-tty-info/now 0) ; TCSANOW Make change immediately.
|
||||
(define %set-tty-info/drain 1) ; TCSADRAIN Drain output, then change.
|
||||
(define %set-tty-info/flush 2) ; TCSAFLUSH Drain output, flush input.
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
;;; Endian routines for the Scheme Shell
|
||||
;;; Copyright (c) 1995 by Brian D. Carlstrom.
|
||||
|
||||
;; Big Endian - Motorola, Sparc, HPPA, etc
|
||||
(define (net-to-host-32-big num32)
|
||||
(and (<= 0 num32 #xffffffff)
|
||||
num32))
|
||||
|
||||
(define (net-to-host-16-big num16)
|
||||
(and (<= 0 num16 #xffffffff)
|
||||
num16))
|
||||
|
||||
;; Little Endian - Intel, Vax, Alpha
|
||||
(define (net-to-host-32-little num32)
|
||||
(and (<= 0 num32 #xffffffff)
|
||||
(let* ((num24 (arithmetic-shift num32 -8))
|
||||
(num16 (arithmetic-shift num24 -8))
|
||||
(num08 (arithmetic-shift num16 -8))
|
||||
(byte0 (bitwise-and #b11111111 num08))
|
||||
(byte1 (bitwise-and #b11111111 num16))
|
||||
(byte2 (bitwise-and #b11111111 num24))
|
||||
(byte3 (bitwise-and #b11111111 num32)))
|
||||
(+ (arithmetic-shift byte3 24)
|
||||
|
||||
(define (net-to-host-16-little num16)
|
||||
(and (<= 0 num16 #xffffffff)
|
||||
(let* ((num08 (arithmetic-shift num16 -8))
|
||||
(byte0 (bitwise-and #b11111111 num08))
|
||||
(byte1 (bitwise-and #b11111111 num16))
|
||||
(+ (arithmetic-shift byte1 8)
|
||||
byte0))))
|
||||
|
||||
(define net-to-host-32 net-to-host-32-@ENDIAN@)
|
||||
(define net-to-host-16 net-to-host-16-@ENDIAN@)
|
||||
(define host-to-net-32 host-to-net-32-@ENDIAN@)
|
||||
(define host-to-net-16 host-to-net-16-@ENDIAN@)
|
||||
|
|
@ -209,6 +209,7 @@
|
|||
time ; New in release 0.2.
|
||||
(machine time_dep)
|
||||
network ; New in release 0.3.
|
||||
endian ; New in release 0.4.
|
||||
flock ; New in release 0.4.
|
||||
tty ; New in release 0.4.
|
||||
pty ; New in release 0.4.
|
||||
|
|
|
|||
Loading…
Reference in New Issue