From Newsgroup: comp.lang.lisp


I have been going crazy over this (over the years...)

I remeber that the Linux OS would put a pad of 0 bytes into the terminfo struct. Really mean :)

I've enclosed a postscript because I like the colors better.


TINFO> (setq xyz (make-instance 'sb-posix:termios))
#<SB-POSIX:TERMIOS {12046E7FF3}>

TINFO> xyz
#<SB-POSIX:TERMIOS {12046E7FF3}>
TINFO> (sb-posix:termios-iflags xyz)
; Evaluation aborted on #<SB-INT:SIMPLE-READER-PACKAGE-ERROR "Symbol ~S not found in the ~A package." {1205C17CE3}>.
TINFO> (sb-posix:termios-iflag xyz)
; Evaluation aborted on #<UNBOUND-SLOT IFLAG {12092D2853}>.
TINFO> (sb-posix:termios-oflag xyz)
; Evaluation aborted on #<UNBOUND-SLOT OFLAG {1209D299F3}>.
TINFO> (sb-posix::termios-oflag xyz)
; Evaluation aborted on #<UNBOUND-SLOT OFLAG {120AB905C3}>.
TINFO> (sb-posix:termios-lflag xyz)
; Evaluation aborted on #<UNBOUND-SLOT LFLAG {120B12B4D3}>.
TINFO> (current-tidevice)
#S(TIDEVICE
:NAME "New Device"
:STREAM-OUTPUT #<SB-SYS:FD-STREAM for "Device Output" {120C838393}>
:STREAM-INPUT #<SB-SYS:FD-STREAM for "Device Input" {120C838543}>
:OFD 8
:IFD 9
:ROWS 31
:COLS 193
:BAUD-RATE-INPUT 9600
:BAUD-RATE-OUTPUT 9600
:UPC 1042
:OBUFSIZE 1066
:TERMIOS-OLD #<SB-POSIX:TERMIOS {12127FEC53}>
:TERMIOS-NEW #<SB-POSIX:TERMIOS {12127FEC63}>
:CLOSED NIL)

TINFO> (termios-old (current-tidevice))
; Evaluation aborted on #<UNDEFINED-FUNCTION TERMIOS-OLD {12013D86D3}>.

TINFO> (tidevice-termios-old (current-tidevice))
#<SB-POSIX:TERMIOS {1200DA7D23}>

TINFO> (posix:iflag (tidevice-termios-old (current-tidevice)))
; Evaluation aborted on #<SB-INT:SIMPLE-READER-PACKAGE-ERROR "Package ~A does not exist." {1201A2F533}>.

TINFO> (sb-posix:iflag (tidevice-termios-old (current-tidevice)))
; Evaluation aborted on #<SB-INT:SIMPLE-READER-PACKAGE-ERROR "The symbol ~S is not external in the ~A package." {1205E29353}>.

TINFO> (import :sb-posix)
T

TINFO> (sb-posix:iflag (tidevice-termios-old (current-tidevice)))
; Evaluation aborted on #<SB-INT:SIMPLE-READER-PACKAGE-ERROR "The symbol ~S is not external in the ~A package." {1205FD6933}>.

TINFO> (sb-posix::iflag (tidevice-termios-old (current-tidevice)))

; Evaluation aborted on #<UNDEFINED-FUNCTION IFLAG {1207681D03}>.

TINFO>

Should I just move terminfo to a shared library?

The following is the code I have that does work.

(defun tidevice-open (tty)
(let ((curdev (current-tidevice)))
;; This should raise a condition
(if (null tty) (setq tty "/dev/pts/1"))
(setq tty (namestring tty))
(let* ((ofd (sb-posix:open tty sb-posix::o-wronly (logior
sb-posix::o-noctty
sb-posix::o-nonblock
Sb-POSIX::O-DIRECT SB-POSIX::O-NDELAY
)))
(ifd (sb-posix:open tty sb-posix::o-rdonly (logior sb-posix::o-noctty sb-posix::o-nonblock)
))

;; this needs to be fixed for input
(output (sb-sys:make-fd-stream ofd
:name "Device Output" :auto-close t
:output t :input nil :buffering :none
:element-type 'character :external-format :ascii))
(input (sb-sys:make-fd-stream ifd
:name "Device Input" :auto-close t
:buffering :none :output nil :input t
:element-type '(unsigned-byte 8)
:timeout 1.25
)))
(setf (tidevice-stream-input curdev) input)
(setf (tidevice-stream-output curdev) output)
(setf (tidevice-ofd curdev) ofd)
(setf (tidevice-ifd curdev) ifd)
(setf (tidevice-closed curdev) nil)
;; FIXME: check the input

(sb-posix:tcgetattr ifd (tidevice-termios-old curdev))
(sb-posix:tcgetattr ifd (tidevice-termios-new curdev))

;; device shardware

(let ((rows (get-window-size-rows ofd))
(cols (get-window-size-columns ofd))
(baud-input (get-input-baud-rate (tidevice-termios-new curdev)))
(baud-output (get-output-baud-rate (tidevice-termios-new curdev))))
;; device size
(setf (tidevice-rows curdev) rows)
(setf (tidevice-cols curdev) cols)
;; set baud
(setf (tidevice-baud-rate-output curdev) baud-output
(tidevice-baud-rate-input curdev) baud-input)

;; set upc mmUPC and buffer size
(setf (tidevice-upc curdev) (baud-get-upc baud-input baud-DIVIDEND))
(setf (tidevice-obufsize curdev) (baud-get-bufsize baud-TIMES (tidevice-upc curdev)))

))))

;;;; This code does not work anymore. I might be using a older version. I
really want to clean this up but I still think doing it in C is the best
option - I'd rather just use sbcl.

(deftype termios-mode-p ()
`(member :CBREAK :CBREAK-ON :CANONICAL :QIFLUSH-OFF :QIFLUSH-ON :ECHO-ON :ECHO-OFF :CR-TO-NL :NL-TO-CR
:ASCII :META-ON :ESC-ON :PACKET :RESET :CLOSE :ESC)
)




(defun tty-device-termios-set (&optional (mode :packet))
"Set terminal attributes for fildes in <*current-screen> based on mode. :CLOSE Close termios.
:RESET Reset current termios with open time termios.
:CBREAK Noncanonical Mode (Example libc). :CBREAk-OFF Cannon mode normal.
:RAW Enables raw mode.
:QIFLUSH-OFF Enabling flushing of buffers on INTR QUIT or SUSP (QIFLUSH Mode) disabled
:QIFLUSH :QIFLUSH-ON Disable flushing of buffers on INTR QUIT or SUSP (QIFLUSH Mode) enabled
:CRNL :CR-to-N Enabling Carriage Return to New line Mode. :NLCR :NL-to-CR Disabling Carriage Return to New line Mode. :SIGNAL-ON Enabled editing interupts
:SIGNAL-OFF Disable editinhg interrupts
:META-ON :ESC-ON Meta Mode enabled
:ESC-OFF :META-OFF Meta Mode disabled.
:ASCII ASCII Mode enabled.
:PACKET my favorite mix.
:ECHO-ON Enable echo.
:ECHO-OFF Disable echo (for reading passwords, etc).

When using GNU/Linux they keyboard is also set via ioctl to the accoodating mode."
(let* ((curscr (current-screen))
(termios (screen-termios-new curscr)))
(sb-posix::tcsetattr (screen-ofd curscr) SB-POSIX::TCSANOW termios)
(sb-posix::tcsetattr (screen-ifd curscr) SB-POSIX::TCSANOW termios)
;; curs_inopts (3x)
(ccase mode
(:close
(terminfo::debugging-motion-macros "Closing IO")
(finish-output (screen-output curscr))
(clear-input (screen-input curscr))
(sb-posix::tcsetattr (screen-ofd curscr) SB-POSIX::TCSANOW termios)
(sb-posix::tcsetattr (screen-ifd curscr) SB-POSIX::TCSANOW termios)
(sb-posix:close (screen-ifd curscr))
(sb-posix:close (screen-ofd curscr))
;; (attr-reset (screen-attr-flag curscr))
;; (stat-reset (screen-stat-flag curscr))
(return-from tty-device-termios-set mode))
(:reset
(terminfo::debugging-motion-macros "Restting IO to UNICODE")
(let ((oldtermios (screen-termios-old curscr)))
(setf (sb-posix:termios-iflag termios)
(sb-posix:termios-iflag oldtermios))
(setf (sb-posix:termios-oflag termios) (sb-posix:termios-oflag oldtermios))
(setf (sb-posix:termios-cflag termios) (sb-posix:termios-cflag oldtermios))
(setf (sb-posix:termios-Lflag termios) (sb-posix:termios-Lflag oldtermios))
(setf (aref (sb-posix:termios-cc termios) sb-posix:vmin)
(aref (sb-posix:termios-cc oldtermios) sb-posix:vmin))
(setf (aref (sb-posix:termios-cc termios) sb-posix:vtime)
(aref (sb-posix:termios-cc oldtermios) sb-posix:vtime))
(sb-posix:tcflush (screen-ofd curscr) sb-posix:tcsanow )
(sb-posix:tcflush (screen-ifd curscr) sb-posix:tcsanow )
(terminfo::set-keyboard-mode (screen-ifd curscr) terminfo::K_UNICODE))
;; (attr-reset (screen-attr-flag curscr))
;; (stat-reset (screen-stat-flag curscr)))
)
((:CBREAK :NONCANONICAL)
(terminfo::debugging-motion-macros "CBREAK Mode enabled")
(terminfo::set-keyboard-mode (screen-ifd curscr) terminfo::K_MEDIUMRAW)
(terminfo::debugging-motion-macros "Set keyboard into Medium Raw")
;; set cannon mode
(setf (sb-posix:termios-Lflag termios)
(logior (sb-posix::termios-Lflag termios) sb-posix::icanon))
;; set nl/cr
(setf (sb-posix::termios-iflag termios)
(logior (sb-posix::termios-iflag termios) sb-posix::icrnl))
;; turn off input is UTF8 mode when available
(when (boundp 'terminfo::IUTF8)
(setf (sb-posix::termios-iflag termios)
(logior (sb-posix:termios-iflag termios) terminfo::IUTF8)))
(setf (aref (sb-posix:termios-cc termios) sb-posix:vmin) 1)
(setf (aref (sb-posix:termios-cc termios) sb-posix:vtime) 1)
)
((:CBREAK-OFF :CANNON-OFF)
(terminfo::debugging-motion-macros "CBREAK Mode disabled")
(terminfo::set-keyboard-mode (screen-ifd curscr) terminfo::K_UNICODE)
;; set non-cannon mode, no echo, no flush on signal
;; set cannon mode, no echo, no flush on signal
(setf (sb-posix:termios-Lflag termios)
(logand (sb-posix:termios-Lflag termios) (lognot sb-posix:icanon)))
;; set read time/bytes
(setf (aref (sb-posix:termios-cc termios) sb-posix:vmin) 4)
(setf (aref (sb-posix:termios-cc termios) sb-posix:vtime) 1)

;; set ignore nl/cr
(setf (sb-posix::termios-iflag termios)
(logior (sb-posix:termios-iflag termios) sb-posix:icrnl))
;; turn on input to UTF8 mode when available
(when (boundp 'terminfo::IUTF8)
(setf (sb-posix::termios-iflag termios)
(logior (sb-posix:termios-iflag termios) terminfo::IUTF8)))
)
(:RAW
;; use with caution
(terminfo::debugging-motion-macros "RAW Mode enabled")
(terminfo::set-keyboard-mode (screen-ifd curscr) terminfo::K_RAW)
(setf (sb-posix:termios-Lflag termios)
(logior (sb-posix:termios-Lflag termios) (logior sb-posix:ISIG sb-posix:ICANON)))
(setf (sb-posix::termios-iflag termios)
(logior (sb-posix:termios-iflag termios)
(logior sb-posix:ISIG sb-posix:ICANON sb-posix:IEXTEN))))
((:QIFLUSH :QIFLUSH-ON)
(terminfo::debugging-motion-macros "Disable flushing of buffers on INTR QUIT or SUSP (QIFLUSH Mode) enabled")
(setf (sb-posix:termios-Lflag termios)
(logand (sb-posix:termios-Lflag termios) (lognot sb-posix:noflsh))))
(:QIFLUSH-OFF
(terminfo::debugging-motion-macros
"Enabling flushing of buffers on INTR QUIT or SUSP (QIFLUSH Mode disabled)")
(setf (sb-posix:termios-Lflag termios)
(logior (sb-posix:termios-Lflag termios) sb-posix:noflsh)))
((:CRNL :CR-TO-NL)
(terminfo::debugging-motion-macros "Enabling Carriage Return to New line Mode.")
;; ignore carriage returns
(when (logand (sb-posix:termios-iflag termios) sb-posix:INLCR)
(setf (sb-posix::termios-iflag termios)
(logior (sb-posix:termios-iflag termios) sb-posix:INLCR)))
(setf (sb-posix:termios-iflag termios)
(logand (sb-posix::termios-iflag termios) (lognot sb-posix:IGNCR)))
(setf (sb-posix:termios-oflag termios)
(logand (sb-posix:termios-oflag termios) (lognot sb-posix:OCRNL))))
((:NLCR :NL-to-CR)
(terminfo::debugging-motion-macros "Disabling Carriage Return to New line Mode.")
;; if ignore CR is set, unset it
(when (logand (sb-posix::termios-iflag termios) sb-posix:INLCR)
;; turn off ignore cr when set
(setf (sb-posix:termios-iflag termios)
(logior (sb-posix:termios-iflag termios) sb-posix:IGNCR)))
(setf (sb-posix::termios-iflag termios)
(logand (sb-posix:termios-iflag termios) (lognot sb-posix:IGNCR)))
(setf (sb-posix:termios-oflag termios)
(logand (sb-posix:termios-oflag termios) (lognot sb-posix:IGNCR))))
((:META-ON :ESC-ON)
(terminfo::debugging-motion-macros "Meta Mode enabled.")
(setf (sb-posix:termios-cflag termios)
(logand (sb-posix:termios-cflag termios) (lognot sb-POSIX:CS8))))
((:ESC-OFF :META-OFF)
(terminfo::debugging-motion-macros "Meta Mode disabled.")
(setf (sb-posix:termios-cflag termios)
(logior (sb-posix:termios-cflag termios) sb-posix:CS8)))
(:ASCII
(terminfo::debugging-motion-macros "ASCII Mode enabled")
(setf (sb-posix:termios-Lflag termios)
(logand (sb-posix:termios-Lflag termios) (lognot sb-posix::icanon )))
(setf (sb-posix:termios-Lflag termios)
(logior (sb-posix::termios-Lflag termios)
(logior sb-posix:echo terminfo::ECHOCTL)))
(setf (aref (sb-posix:termios-cc termios) sb-posix:vmin) 1)
(setf (aref (sb-posix:termios-cc termios) sb-posix:vtime) 0)
(terminfo::set-keyboard-mode (screen-ifd curscr) terminfo::K_XLATE))
(:SIGNAL-OFF
(setf (sb-posix:termios-lflag termios)
(logand (sb-posix:termios-Lflag termios)
(lognot (logior sb-posix:isig))))
(terminfo::debugging-motion-macros "Editing signals disabled"))
(:SIGNAL-ON
(setf (sb-posix:termios-lflag termios)
(logior (sb-posix:termios-Lflag termios) sb-posix:isig))
(terminfo::debugging-motion-macros "Editing signals enabled"))
(:PACKET

#|
Best for packet mode/no signals
Old Flags New Flags
------------------------
i_flags; 25862 => 25606
O_flags; 5 => 5
C_flags; 1215 => 1215
L_flags; 35387 => 35377
|#

;; ioctl KDSKBMODE: set to unicode/medium-raw input
(terminfo::debugging-motion-macros "Packet Mode enabled")
(setf (sb-posix:termios-lflag termios)
(logand (sb-posix:termios-Lflag termios)
(lognot (logior
;; sb-posix:isig
sb-posix:icanon sb-posix:echo terminfo::echoctl))))
;; size of byte 8
(setf (sb-posix:termios-cflag termios)
(logand (sb-posix:termios-cflag termios) sb-posix:CS8))
(setf (aref (sb-posix:termios-cc termios) sb-posix:vmin) 1)
(setf (aref (sb-posix:termios-cc termios) sb-posix:vtime) 1)
(sb-posix:tcflush (screen-ifd curscr) sb-posix:tcsanow )
(sb-posix:tcflush (screen-ofd curscr) sb-posix:tcsanow )
(terminfo::set-keyboard-mode (screen-ifd curscr) terminfo::K_MEDIUMRAW)
)
(:ECHO-ON
(setf (sb-posix:termios-Lflag termios)
(logior (sb-posix:termios-Lflag termios) sb-posix:echo))
(terminfo::debugging-motion-macros "Echo Mode enabled"))
(:ECHO-OFF
(terminfo::debugging-motion-macros "Echo Mode disabled")
(setf (sb-posix:termios-Lflag termios)
(logand (sb-posix:termios-Lflag termios) (lognot sb-posix:echo))))
)
;; flush the streams before filedescriptors
(clear-input (screen-input curscr))
(force-output (screen-output curscr))
(sb-posix::tcsetattr (screen-ofd curscr) sb-posix:tcsaflush termios)
(sb-posix::tcsetattr (screen-ifd curscr) sb-posix:tcsaflush termios)))

(defvar *termios-print-string*
(mapconcat #'identity '(
"Old Flags New Flags"
"------------------------"
"i_flags; ~d => ~d"
"O_flags; ~d => ~d"
"C_flags; ~d => ~d"
"L_flags; ~d => ~d")
(string #\Newline)
))


(defun tty-device-termios-display (&optional (stream t))
"Print the current bits in a terminfo structure."
(let ((oldtermios (screen-termios-old (current-screen)))
(newtermios (screen-termios-new (current-screen))))
(format stream *termios-print-string*
(sb-posix:termios-iflag oldtermios) (sb-posix:termios-iflag newtermios)
(sb-posix:termios-oflag oldtermios) (sb-posix:termios-oflag newtermios)
(sb-posix:termios-cflag oldtermios) (sb-posix:termios-cflag newtermios)
(sb-posix:termios-lflag oldtermios) (sb-posix:termios-lflag newtermios))))

TINFO> (tty-device-termios-display t)



The slot SB-POSIX::IFLAG is unbound in the object
#<TERMIOS {1200FBDA63}>.
[Condition of type UNBOUND-SLOT]


;;; Inspection results.

TINFO> (current-tidevice)
#S(TIDEVICE
:NAME "New Device"
:STREAM-OUTPUT #<SB-SYS:FD-STREAM for "Device Output" {120C838393}>
:STREAM-INPUT #<SB-SYS:FD-STREAM for "Device Input" {120C838543}>
:OFD 8
:IFD 9
:ROWS 31
:COLS 193
:BAUD-RATE-INPUT 9600
:BAUD-RATE-OUTPUT 9600
:UPC 1042
:OBUFSIZE 1066
:TERMIOS-OLD #<SB-POSIX:TERMIOS {12127FEC53}>
:TERMIOS-NEW #<SB-POSIX:TERMIOS {12127FEC63}>
:CLOSED NIL)
TINFO> (termios-old (current-tidevice))
; Evaluation aborted on #<UNDEFINED-FUNCTION TERMIOS-OLD {12013D86D3}>.
TINFO> (tidevice-termios-old (current-tidevice))
#<SB-POSIX:TERMIOS {1200DA7D23}>
TINFO> (posix:iflag (tidevice-termios-old (current-tidevice)))
; Evaluation aborted on #<SB-INT:SIMPLE-READER-PACKAGE-ERROR "Package ~A does not exist." {1201A2F533}>.
TINFO> (sb-posix:iflag (tidevice-termios-old (current-tidevice)))
; Evaluation aborted on #<SB-INT:SIMPLE-READER-PACKAGE-ERROR "The symbol ~S is not external in the ~A package." {1205E29353}>.
TINFO> (import :sb-posix)
T
TINFO> (sb-posix:iflag (tidevice-termios-old (current-tidevice)))
; Evaluation aborted on #<SB-INT:SIMPLE-READER-PACKAGE-ERROR "The symbol ~S is not external in the ~A package." {1205FD6933}>.
TINFO> (sb-posix::iflag (tidevice-termios-old (current-tidevice)))
; Evaluation aborted on #<UNDEFINED-FUNCTION IFLAG {1207681D03}>.
TINFO>
; No value
TINFO>
; No value
TINFO>
; No value
TINFO> (tty-device-termios-display t)
; Evaluation aborted on #<UNBOUND-SLOT IFLAG {12032FB663}>.
TINFO>
; No value
TINFO> (inspect (current-tidevice))

The object is a STRUCTURE-OBJECT of type TIDEVICE.
0. NAME: New Device
1. STREAM-OUTPUT: #<FD-STREAM for "Device Output" {1200DA7AA3}>
2. STREAM-INPUT: #<FD-STREAM for "Device Input" {1200DA7BE3}>
3. OFD: 8
4. IFD: 9
5. ROWS: 31
6. COLS: 193
7. BAUD-RATE-INPUT: 9600
8. BAUD-RATE-OUTPUT: 9600
9. UPC: 1042
10. OBUFSIZE: 1066
11. TERMIOS-OLD: #<TERMIOS {1200DA7D23}>
12. TERMIOS-NEW: #<TERMIOS {1200DA7D33}>
13. CLOSED: NIL

11

The object is a STANDARD-OBJECT of type SB-POSIX:TERMIOS.
0. IFLAG: 17408
1. OFLAG: 5
2. CFLAG: 983231
3. LFLAG: 35377
4. CC: #(3 28 127 21 4 0 1 0 17 19 26 0 18 0 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
5. REMAINING-FIELDS: #(0 0 0 0 0 150 0 0 0 150 0 0)

q

any help would be useful. sorry for the postscript my email does not like me today.
--- Synchronet 3.22a-Linux NewsLink 1.2

From Newsgroup: comp.lang.lisp

On 07/08/2026 8:12 AM, steve g wrote:

I have been going crazy over this (over the years...)

I remeber that the Linux OS would put a pad of 0 bytes into the terminfo struct. Really mean :)

I've enclosed a postscript because I like the colors better.

[snip transcript]

any help would be useful. sorry for the postscript my email does not like me today.

I'm sorry, I'm not really in a position to help right now. Can you
clarify what is wrong? Are you demonstrating a regression in the
Posix or Termios interfaces in S.B.C.L? Or is it something you expected
to work, but didn't?

I'm running S.B.C.L. on Windows now, and did not attempt any of the
things in your transcript.
--
Johann | email: invalid -> com | http://www.myrkraverk.com/blog/
I'm not from the Internet, I just work there. | via Easynews.com https://bsky.app/profile/myrkraverk.bsky.social | for ( ;; ) _:;
--- Synchronet 3.22a-Linux NewsLink 1.2

From Newsgroup: comp.lang.lisp

Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> writes:

On 07/08/2026 8:12 AM, steve g wrote:

I have been going crazy over this (over the years...)
I remeber that the Linux OS would put a pad of 0 bytes into the terminfo
struct. Really mean :)
I've enclosed a postscript because I like the colors better.

[snip transcript]

any help would be useful. sorry for the postscript my email does not like me today.

I'm sorry, I'm not really in a position to help right now. Can you
clarify what is wrong?

This is probably a good idea...

Are you demonstrating a regression in the Posix or Termios interfaces
in S.B.C.L? Or is it something you expected to work, but didn't?

No unfortunately I expected it to not run; however it seemed to work
quite fine for some years.

I'm running S.B.C.L. on Windows now, and did not attempt any of the
things in your transcript.

No terminfo is more of a unix thing. Terminfo is like conio.h in DOS
(dunno what windows does anymore). Terminfo is known to drive people
crazy. You should not use numbers - you should use weird macros.


just some "simple" termios:

[ ... ]

(setf (sb-posix::termios-iflag termios)
(logior (sb-posix:termios-iflag termios)
(logior sb-posix:ISIG sb-posix:ICANON
sb-posix:IEXTEN)))

(case <xyz>
((:NLCR :NL-to-CR)
(terminfo::debugging-motion-macros "Disabling Carriage Return to New line Mode.")
;; if ignore CR is set, unset it
(when (logand (sb-posix::termios-iflag termios) sb-posix:INLCR)
;; turn off ignore cr when set
(setf (sb-posix:termios-iflag termios)
(logior (sb-posix:termios-iflag termios) sb-posix:IGNCR)))
(setf (sb-posix::termios-iflag termios)
(logand (sb-posix:termios-iflag termios) (lognot sb-posix:IGNCR)))
(setf (sb-posix:termios-oflag termios)
(logand (sb-posix:termios-oflag termios) (lognot sb-posix:IGNCR))))



Does not work. I can't even read this anymore I am so sick of this. It
would be much easier to just put this stuff in a C shared library. The convience of keeping this in lisp is/has been my goal.


;;; Inspection results.

TINFO> (current-tidevice)
#S(TIDEVICE
:NAME "New Device"
:STREAM-OUTPUT #<SB-SYS:FD-STREAM for "Device Output" {120C838393}>
:STREAM-INPUT #<SB-SYS:FD-STREAM for "Device Input" {120C838543}>
:OFD 8
:IFD 9
:ROWS 31
:COLS 193
:BAUD-RATE-INPUT 9600
:BAUD-RATE-OUTPUT 9600
:UPC 1042
:OBUFSIZE 1066
:TERMIOS-OLD #<SB-POSIX:TERMIOS {12127FEC53}>
:TERMIOS-NEW #<SB-POSIX:TERMIOS {12127FEC63}>
:CLOSED NIL)

TINFO> (inspect (current-tidevice))

The object is a STRUCTURE-OBJECT of type TIDEVICE.
0. NAME: New Device
1. STREAM-OUTPUT: #<FD-STREAM for "Device Output" {1200DA7AA3}>
2. STREAM-INPUT: #<FD-STREAM for "Device Input" {1200DA7BE3}>
3. OFD: 8
4. IFD: 9
5. ROWS: 31
6. COLS: 193
7. BAUD-RATE-INPUT: 9600
8. BAUD-RATE-OUTPUT: 9600
9. UPC: 1042
10. OBUFSIZE: 1066
11. TERMIOS-OLD: #<TERMIOS {1200DA7D23}>
12. TERMIOS-NEW: #<TERMIOS {1200DA7D33}>
13. CLOSED: NIL

11

The object is a STANDARD-OBJECT of type SB-POSIX:TERMIOS.
0. IFLAG: 17408
1. OFLAG: 5
2. CFLAG: 983231
3. LFLAG: 35377
4. CC: #(3 28 127 21 4 0 1 0 17 19 26 0 18 0 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
5. REMAINING-FIELDS: #(0 0 0 0 0 150 0 0 0 150 0 0)

q

The inspector shows the Iflag correctly, but I cannot access it. dunno,
I might just be too tired.

I thank you for your encouragement and support.
--- Synchronet 3.22a-Linux NewsLink 1.2

From Newsgroup: comp.lang.lisp

On 07/08/2026 11:02 PM, steve g wrote:

Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> writes:

Does not work. I can't even read this anymore I am so sick of this. It
would be much easier to just put this stuff in a C shared library. The convience of keeping this in lisp is/has been my goal.

The inspector shows the Iflag correctly, but I cannot access it. dunno,
I might just be too tired.

I thank you for your encouragement and support.

I saw some things I found questionable in your code, and snipped it.

Since I'm currently on Windows, and not in a position to test it, I
think it's safer for both of us, that you take the weekend off, and
do something else.

Hiking, sewing, binge watching some 'flix, or what. Then, if you're
still frustrated about this, look over the code. Maybe you'll see
what I saw, and maybe I was completely off.

And if I'm completely off about what I saw, then it's probable
you'll want to do this in C rather than Lisp, but I see no reason
to force people to use a programming language I like.

Because I'm the strangest creature there is; I like both Common Lisp
and C.


Happy weekend!
--
Johann | email: invalid -> com | http://www.myrkraverk.com/blog/
I'm not from the Internet, I just work there. | via Easynews.com https://bsky.app/profile/myrkraverk.bsky.social | for ( ;; ) _:;
--- Synchronet 3.22a-Linux NewsLink 1.2

From Newsgroup: comp.lang.lisp

Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> writes:

On 07/08/2026 11:02 PM, steve g wrote:

Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> writes:

Does not work. I can't even read this anymore I am so sick of this. It
would be much easier to just put this stuff in a C shared library. The
convience of keeping this in lisp is/has been my goal.

The inspector shows the Iflag correctly, but I cannot access it. dunno,
I might just be too tired.
I thank you for your encouragement and support.

I saw some things I found questionable in your code, and snipped it.

Since I'm currently on Windows, and not in a position to test it, I
think it's safer for both of us, that you take the weekend off, and
do something else.

Hahaha, yeah definitely to tired. very good advice.

And if I'm completely off about what I saw, then it's probable
you'll want to do this in C rather than Lisp, but I see no reason
to force people to use a programming language I like.

I feel like termios is just an unstable pain in the a$$.

Happy weekend!

I wish :)
--- Synchronet 3.22a-Linux NewsLink 1.2

From Newsgroup: comp.lang.lisp

On 07/08/2026 11:02 PM, steve g wrote:

Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> writes:

On 07/08/2026 8:12 AM, steve g wrote:

I have been going crazy over this (over the years...)
I remeber that the Linux OS would put a pad of 0 bytes into the terminfo >>> struct. Really mean :)
I've enclosed a postscript because I like the colors better.

[snip transcript]

any help would be useful. sorry for the postscript my email does not like me today.

I'm sorry, I'm not really in a position to help right now. Can you
clarify what is wrong?

This is probably a good idea...

Are you demonstrating a regression in the Posix or Termios interfaces
in S.B.C.L? Or is it something you expected to work, but didn't?

No unfortunately I expected it to not run; however it seemed to work
quite fine for some years.

I'm running S.B.C.L. on Windows now, and did not attempt any of the
things in your transcript.

No terminfo is more of a unix thing. Terminfo is like conio.h in DOS
(dunno what windows does anymore). Terminfo is known to drive people
crazy. You should not use numbers - you should use weird macros.

just some "simple" termios:

[ ... ]

(setf (sb-posix::termios-iflag termios)
(logior (sb-posix:termios-iflag termios)
(logior sb-posix:ISIG sb-posix:ICANON
sb-posix:IEXTEN)))

(case <xyz>
((:NLCR :NL-to-CR)
(terminfo::debugging-motion-macros "Disabling Carriage Return to New line Mode.")
;; if ignore CR is set, unset it
(when (logand (sb-posix::termios-iflag termios) sb-posix:INLCR)
;; turn off ignore cr when set
(setf (sb-posix:termios-iflag termios)
(logior (sb-posix:termios-iflag termios) sb-posix:IGNCR)))

In the above line, don't you reverse the logic? Am I right, am I wrong?
I haven't bit twiddled in Lisp for years. Shouldn't you reverse the
IGNCR with -- what was it? -- (lognot, and (logand)) the results?

Anyway, I was really hoping you'd take the weekend off. Happy
bitwise logic!

(setf (sb-posix::termios-iflag termios)
(logand (sb-posix:termios-iflag termios) (lognot sb-posix:IGNCR)))
(setf (sb-posix:termios-oflag termios)
(logand (sb-posix:termios-oflag termios) (lognot sb-posix:IGNCR))))

Ok, and now that I see you do it here. I'm also having a time of
fun! I wonder if both of us are wrong, and you want to (setf) the
bit to one? Or are you simply using the wrong bit?

Above you test for INLCR, but unset IGNCR? Then set both IGNCR on
the iflag and oflag?

As I said above, happy bitwise logic, and I hope you get it right!

Does not work. I can't even read this anymore I am so sick of this. It
would be much easier to just put this stuff in a C shared library. The convience of keeping this in lisp is/has been my goal.



[snip]

I have sometimes found it useful to create my own inspection tools,
because what I just snipped, it does not show the bitwise logic of the
termios.

The inspector shows the Iflag correctly, but I cannot access it. dunno,
I might just be too tired.

I thank you for your encouragement and support.

I wish you best of luck, and really hope you can be as happy as I am
when I struggle with bitwise logic and incomprehensible bit settings!


Happy Common Lisp!
--
Johann | email: invalid -> com | http://www.myrkraverk.com/blog/
I'm not from the Internet, I just work there. | via Easynews.com https://bsky.app/profile/myrkraverk.bsky.social | for ( ;; ) _:;
--- Synchronet 3.22a-Linux NewsLink 1.2

From Newsgroup: comp.lang.lisp

Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> writes:

On 07/08/2026 11:02 PM, steve g wrote:

Johann 'Myrkraverk' Oskarsson <johann@myrkraverk.invalid> writes:

In the above line, don't you reverse the logic? Am I right, am I
wrong?

correct. With terminfo you should treat it as though it were a
destructive operation.

I haven't bit twiddled in Lisp for years. Shouldn't you reverse the
IGNCR with -- what was it? -- (lognot, and (logand)) the results?

IGNCR wil cause the terminal to ignore Carriage Return as the end of
line character.

You are right. I spelled it wrong.

In C it is much simpler.

tcgetattr (STDIN_FILENO, &tattr);
tattr.c_lflag &= ~(ICANON|ECHO); /* Clear ICANON and ECHO. */
tattr.c_cc[VMIN] = 1;
tattr.c_cc[VTIME] = 0;
tcsetattr (STDIN_FILENO, TCSAFLUSH, &tattr);

(:ECHO-ON
(setf (sb-posix:termios-Lflag termios)
(logior (sb-posix:termios-Lflag termios) sb-posix:echo))
(debugging-motion-macros "Echo Mode enabled"))
(:ECHO-OFF
(debugging-motion-macros "Echo Mode disabled")
(setf (sb-posix:termios-Lflag termios)
(logand (sb-posix:termios-Lflag termios) (lognot sb-posix:echo))))

Anyway, I was really hoping you'd take the weekend off. Happy
bitwise logic!

I am taking the day off :) I am obiously watching HAM radio videos on
utube and I have my 2 meter burning up it's power supply.

(setf (sb-posix::termios-iflag termios)
(logand (sb-posix:termios-iflag termios) (lognot sb-posix:IGNCR)))
(setf (sb-posix:termios-oflag termios)
(logand (sb-posix:termios-oflag termios) (lognot sb-posix:IGNCR))))

Ok, and now that I see you do it here. I'm also having a time of
fun! I wonder if both of us are wrong, and you want to (setf) the
bit to one? Or are you simply using the wrong bit?

like I said it was working; but even if you mess up terminal
information; it hits the old termios data and resets to the defaults. It
just refuses to recognize sb-posix:Iflag. The input flag and the output
flag should be used to change all CR and CR/NL to NL. This would make
parsing _much_ easier.

Above you test for INLCR, but unset IGNCR? Then set both IGNCR on
the iflag and oflag?

this is correct. I want input to end at #\Newline and I want all output
to be #\Newline. This seems like the best solution.

As I said above, happy bitwise logic, and I hope you get it right!

I hate using the alien package. I am just unable to understand it. Why
not just pass &void [1024] ?

I have sometimes found it useful to create my own inspection tools,
because what I just snipped, it does not show the bitwise logic of the termios.

The inspector shows the Iflag correctly, but I cannot access it. dunno,
I might just be too tired.
I thank you for your encouragement and support.

I wish you best of luck, and really hope you can be as happy as I am
when I struggle with bitwise logic and incomprehensible bit settings!

termios shines at this. I should just use stty, but I need the file
descriptor which is not as easy as it used to be. at the terminal
/usr/bin/tty => /dev/tty3.

under X-windows I get a pseudoterminal
/usr/bin/tty => /dev/pts/1

Happy Common Lisp!

(defparameter *termios-print-string*
"~&Old Flags New Flags~%
------------------------
i_flags: ~d ~I => ~d
O_flags; ~d ~I => ~d
C_flags; ~d => ~d
L_flags; ~d => ~d")


(defun tidevice-termios-display (&optional (stream t))
(let ((oldtermios (tidevice-termios-old (current-tidevice)))
(newtermios (tidevice-termios-new (current-tidevice))))
(format stream *termios-print-string*
(sb-posix:termios-iflag oldtermios) (sb-posix:termios-iflag newtermios)
(sb-posix:termios-oflag oldtermios) (sb-posix:termios-oflag newtermios)
(sb-posix:termios-cflag oldtermios) (sb-posix:termios-cflag newtermios)
(sb-posix:termios-lflag oldtermios) (sb-posix:termios-lflag newtermios))))




thankx for the reply !
--- Synchronet 3.22a-Linux NewsLink 1.2