- Tweaked the names of the named constants in the tty interface.
This commit is contained in:
shivers
parent
0644d18c53
commit
241344c36b
|
|
@ -18,22 +18,22 @@
|
|||
;;; POSIX
|
||||
(define ttychar/eof 4) ; ^d icanon
|
||||
(define ttychar/eol 5) ; icanon
|
||||
(define ttychar/erase 2) ; ^? icanon
|
||||
(define ttychar/kill 3) ; ^u icanon
|
||||
(define ttychar/intr 0) ; ^c isig
|
||||
(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/susp 13) ; ^z isig
|
||||
(define ttychar/suspend 13) ; ^z isig
|
||||
(define ttychar/start 14) ; ^q ixon, ixoff
|
||||
(define ttychar/stop 15) ; ^s ixon, ixoff
|
||||
(define ttychar/min 11) ; !icanon ; Not exported
|
||||
(define ttychar/time 12) ; !icanon ; Not exported
|
||||
|
||||
;;; SVR4 & 4.3+BSD
|
||||
(define ttychar/word-erase #f) ; ^w icanon
|
||||
(define ttychar/delete-word #f) ; ^w icanon
|
||||
(define ttychar/reprint #f) ; ^r icanon
|
||||
(define ttychar/lnext #f) ; ^v iexten
|
||||
(define ttychar/literal-next #f) ; ^v iexten
|
||||
(define ttychar/discard #f) ; ^o iexten
|
||||
(define ttychar/dsusp #f) ; ^y isig
|
||||
(define ttychar/delayed-suspend #f) ; ^y isig
|
||||
(define ttychar/eol2 #f) ; icanon
|
||||
|
||||
;;; 4.3+BSD
|
||||
|
|
@ -45,7 +45,14 @@
|
|||
;;; Magic "disable feature" tty character
|
||||
(define disable-tty-char (ascii->char #xff)) ; _POSIX_VDISABLE
|
||||
|
||||
|
||||
;;; HP-UX brain death:
|
||||
;;; HP-UX defines NCCS to be 16, then sneaks the DSUSP char (^y) in as
|
||||
;;; a seventeenth char -- there's another non-standard NLDCC constant
|
||||
;;; defined to be 1+16 that's used elsewhere. Since the scsh interface
|
||||
;;; to tcsetattr() uses a char vec of size NCCS, you can't get at this
|
||||
;;; hidden char. So we do not support the delayed-suspension char; sorry.
|
||||
;;;
|
||||
;;; If you are an HP-UX hacker, and know a way to fix this, let me know.
|
||||
|
||||
;;; Flags controllling input processing
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
@ -56,7 +63,7 @@
|
|||
(define ttyin/ignore-bad-parity-chars #o00004) ; ignpar
|
||||
(define ttyin/mark-parity-errors #o00010) ; parmrk
|
||||
(define ttyin/check-parity #o00020) ; inpck
|
||||
(define ttyin/strip-bit-8 #o00040) ; istrip
|
||||
(define ttyin/7bits #o00040) ; istrip
|
||||
(define ttyin/nl->cr #o00100) ; inlcr
|
||||
(define ttyin/ignore-cr #o00200) ; igncr
|
||||
(define ttyin/cr->nl #o00400) ; icrnl
|
||||
|
|
@ -122,14 +129,14 @@
|
|||
(define ttyout/bs-delay1 #o020000)
|
||||
|
||||
;;; Form-feed delay
|
||||
(define ttout/ff-delay #o100000) ; mask (ffdly)
|
||||
(define ttyout/ff-delay #o100000) ; mask (ffdly)
|
||||
(define ttyout/ff-delay0 #o000000)
|
||||
(define ttyout/ff-delay1 #o100000)
|
||||
|
||||
(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 ttout/ff-delay)))
|
||||
(bitwise-ior ttyout/bs-delay ttyout/ff-delay)))
|
||||
|
||||
|
||||
;;; Control flags - hacking the serial-line.
|
||||
|
|
@ -158,26 +165,26 @@
|
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; POSIX
|
||||
(define ttyl/visual-erase #o020) ; echoe: Visually erase chars
|
||||
(define ttyl/echo-line-kill #o040) ; echok: Echo nl after line kill
|
||||
(define ttyl/echo #o010) ; echo: Enable echoing
|
||||
(define ttyl/echo-nl #o100) ; echonl: Echo nl even if echo is off
|
||||
(define ttyl/canonical #o002) ; icanon: Canonicalize input
|
||||
(define ttyl/enable-signals #o001) ; isig: Enable ^c, ^z signalling
|
||||
(define ttyl/extended #o20000000000); iexten: Enable extensions
|
||||
(define ttyl/ttou-signal #o10000000000); tostop: SIGTTOU on background output
|
||||
(define ttyl/visual-delete #o020) ; echoe: Visually erase chars
|
||||
(define ttyl/echo-delete-line #o040) ; echok: Echo nl after line kill
|
||||
(define ttyl/echo #o010) ; echo: Enable echoing
|
||||
(define ttyl/echo-nl #o100) ; echonl: Echo nl even if echo is off
|
||||
(define ttyl/canonical #o002) ; icanon: Canonicalize input
|
||||
(define ttyl/enable-signals #o001) ; isig: Enable ^c, ^z signalling
|
||||
(define ttyl/extended #o20000000000); iexten: Enable extensions
|
||||
(define ttyl/ttou-signal #o10000000000); tostop: SIGTTOU on background output
|
||||
(define ttyl/no-flush-on-interrupt #o200) ; noflsh
|
||||
|
||||
;;; SVR4 & 4.3+BSD
|
||||
(define ttyl/visual-line-kill #f) ; echoke: visually erase a line-kill
|
||||
(define ttyl/hardcopy-erase #f) ; echoprt: visual erase for hardcopy
|
||||
(define ttyl/echo-ctl #f) ; echoctl: echo control chars as "^X"
|
||||
(define ttyl/flush-output #f) ; flusho: output is being flushed
|
||||
(define ttyl/reprint-unread-chars #f) ; pendin: retype pending input
|
||||
(define ttyl/visual-delete-line #f) ; echoke: visually erase a line-kill
|
||||
(define ttyl/hardcopy-delete #f) ; echoprt: visual erase for hardcopy
|
||||
(define ttyl/echo-ctl #f) ; echoctl: echo control chars as "^X"
|
||||
(define ttyl/flush-output #f) ; flusho: output is being flushed
|
||||
(define ttyl/reprint-unread-chars #f) ; pendin: retype pending input
|
||||
|
||||
;;; 4.3+BSD
|
||||
(define ttyl/alt-word-erase #f) ; altwerase
|
||||
(define ttyl/no-kernel-status #f) ; nokerninfo: no kernel status on ^T
|
||||
(define ttyl/alt-delete-word #f) ; altwerase
|
||||
(define ttyl/no-kernel-status #f) ; nokerninfo: no kernel status on ^T
|
||||
|
||||
;;; SVR4
|
||||
(define ttyl/case-map #o4) ; xcase: canonical upper/lower presentation
|
||||
|
|
|
|||
|
|
@ -13,9 +13,9 @@
|
|||
;;; ttyc/2-stop-bits-when-110-baud stopb110
|
||||
;;; ttyc/parity0 par0
|
||||
;;; ttyc/parity1 par1
|
||||
;;; ttyl/crt-erase echocrt
|
||||
;;; ttyl/xlcase xlcase Vas ist das?
|
||||
;;; ttyl/xeucbksp xeucbksp 'n das?
|
||||
;;; ttyl/crt-delete echocrt
|
||||
;;; ttyl/xlcase xlcase Vas ist das?
|
||||
;;; ttyl/xeucbksp xeucbksp 'n das?
|
||||
;;; - Some baud rates
|
||||
|
||||
|
||||
|
|
@ -28,22 +28,22 @@
|
|||
;;; POSIX
|
||||
(define ttychar/eof 0) ; ^d icanon
|
||||
(define ttychar/eol 1) ; icanon
|
||||
(define ttychar/erase 2) ; ^? icanon
|
||||
(define ttychar/kill 3) ; ^u icanon
|
||||
(define ttychar/intr 4) ; ^c isig
|
||||
(define ttychar/delete-char 2) ; ^? icanon
|
||||
(define ttychar/delete-line 3) ; ^u icanon
|
||||
(define ttychar/interrupt 4) ; ^c isig
|
||||
(define ttychar/quit 5) ; ^\ isig
|
||||
(define ttychar/susp 6) ; ^z isig
|
||||
(define ttychar/suspend 6) ; ^z isig
|
||||
(define ttychar/start 7) ; ^q ixon, ixoff
|
||||
(define ttychar/stop 8) ; ^s ixon, ixoff
|
||||
(define ttychar/min 9) ; !icanon ; Not exported
|
||||
(define ttychar/time 10) ; !icanon ; Not exported
|
||||
|
||||
;;; SVR4 & 4.3+BSD
|
||||
(define ttychar/word-erase 11) ; ^w icanon
|
||||
(define ttychar/delete-word 11) ; ^w icanon
|
||||
(define ttychar/reprint 12) ; ^r icanon
|
||||
(define ttychar/lnext 13) ; ^v iexten
|
||||
(define ttychar/literal-next 13) ; ^v iexten
|
||||
(define ttychar/discard 14) ; ^o iexten
|
||||
(define ttychar/dsusp 15) ; ^y isig
|
||||
(define ttychar/delayed-suspend 15) ; ^y isig
|
||||
(define ttychar/eol2 #f) ; icanon
|
||||
|
||||
;;; 4.3+BSD
|
||||
|
|
@ -69,7 +69,7 @@
|
|||
(define ttyin/ignore-bad-parity-chars #x0004) ; ignpar
|
||||
(define ttyin/mark-parity-errors #x0008) ; parmrk
|
||||
(define ttyin/check-parity #x0010) ; inpck
|
||||
(define ttyin/strip-bit-8 #x0020) ; istrip
|
||||
(define ttyin/7bits #x0020) ; istrip
|
||||
(define ttyin/nl->cr #x0040) ; inlcr
|
||||
(define ttyin/ignore-cr #x0080) ; igncr
|
||||
(define ttyin/cr->nl #x0100) ; icrnl
|
||||
|
|
@ -138,14 +138,14 @@
|
|||
(define ttyout/bs-delay1 #x8000)
|
||||
|
||||
;;; Form-feed delay -- appears to be rolled into the vertical-tab delay.
|
||||
(define ttout/ff-delay ttyout/vtab-delay) ; mask (ffdly)
|
||||
(define ttyout/ff-delay ttyout/vtab-delay) ; mask (ffdly)
|
||||
(define ttyout/ff-delay0 ttyout/vtab-delay0)
|
||||
(define ttyout/ff-delay1 ttyout/vtab-delay1)
|
||||
|
||||
(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 ttout/ff-delay)))
|
||||
(bitwise-ior ttyout/bs-delay ttyout/ff-delay)))
|
||||
|
||||
|
||||
;;; Control flags - hacking the serial-line.
|
||||
|
|
@ -180,32 +180,32 @@
|
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; POSIX
|
||||
(define ttyl/visual-erase #x000002) ; echoe: Visually erase chars
|
||||
(define ttyl/echo-line-kill #x000004) ; echok: Echo nl after line kill
|
||||
(define ttyl/echo #x000008) ; echo: Enable echoing
|
||||
(define ttyl/echo-nl #x000010) ; echonl: Echo nl even if echo is off
|
||||
(define ttyl/canonical #x000020) ; icanon: Canonicalize input
|
||||
(define ttyl/enable-signals #x000040) ; isig: Enable ^c, ^z signalling
|
||||
(define ttyl/extended #x000080) ; iexten: Enable extensions
|
||||
(define ttyl/ttou-signal #x400000) ; tostop: SIGTTOU on background output
|
||||
(define ttyl/visual-delete #x000002) ; echoe: Visually erase chars
|
||||
(define ttyl/echo-delete-line #x000004) ; echok: Echo nl after line kill
|
||||
(define ttyl/echo #x000008) ; echo: Enable echoing
|
||||
(define ttyl/echo-nl #x000010) ; echonl: Echo nl even if echo is off
|
||||
(define ttyl/canonical #x000020) ; icanon: Canonicalize input
|
||||
(define ttyl/enable-signals #x000040) ; isig: Enable ^c, ^z signalling
|
||||
(define ttyl/extended #x000080) ; iexten: Enable extensions
|
||||
(define ttyl/ttou-signal #x400000) ; tostop: SIGTTOU on background output
|
||||
(define ttyl/no-flush-on-interrupt #x80000000) ; noflsh
|
||||
|
||||
;;; SVR4 & 4.3+BSD
|
||||
(define ttyl/visual-line-kill #x001) ; echoke: visually erase a line-kill
|
||||
(define ttyl/hardcopy-erase #x200) ; echoprt: visual erase for hardcopy
|
||||
(define ttyl/visual-delete-line #x001) ; echoke: visually erase a line-kill
|
||||
(define ttyl/hardcopy-delete #x200) ; echoprt: visual erase for hardcopy
|
||||
(define ttyl/echo-ctl #x400) ; echoctl: echo control chars as "^X"
|
||||
(define ttyl/flush-output #f) ; flusho: output is being flushed
|
||||
(define ttyl/reprint-unread-chars #f) ; pendin: retype pending input
|
||||
|
||||
;;; 4.3+BSD
|
||||
(define ttyl/alt-word-erase #x800) ; altwerase
|
||||
(define ttyl/alt-delete-word #x800) ; altwerase
|
||||
(define ttyl/no-kernel-status #f) ; nokerninfo: no kernel status on ^T
|
||||
|
||||
;;; SVR4
|
||||
(define ttyl/case-map #f) ; xcase: canonical upper/lower presentation
|
||||
|
||||
;;; NeXT
|
||||
(define ttyl/crt-erase #x00000100) ; visual erase does "\b \b"
|
||||
(define ttyl/crt-delete #x00000100) ; visual erase does "\b \b"
|
||||
(define ttyl/xlcase #x04000000) ; Vas ist das?
|
||||
(define ttyl/xeucbksp #x08000000) ; 'n das?
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue