From 241344c36b23b0e1461b8e441223d9062b4d6590 Mon Sep 17 00:00:00 2001 From: shivers Date: Sat, 21 Oct 1995 09:25:15 +0000 Subject: [PATCH] - Tweaked the names of the named constants in the tty interface. --- scsh/hpux/tty-consts.scm | 59 ++++++++++++++++++++++------------------ scsh/next/tty-consts.scm | 50 +++++++++++++++++----------------- 2 files changed, 58 insertions(+), 51 deletions(-) diff --git a/scsh/hpux/tty-consts.scm b/scsh/hpux/tty-consts.scm index 66917ae..42dbdce 100644 --- a/scsh/hpux/tty-consts.scm +++ b/scsh/hpux/tty-consts.scm @@ -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 diff --git a/scsh/next/tty-consts.scm b/scsh/next/tty-consts.scm index ec797b7..5c78ab9 100644 --- a/scsh/next/tty-consts.scm +++ b/scsh/next/tty-consts.scm @@ -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?