racket-ansi/test-raw.rkt

#lang racket/base

(require "tty-raw-extension")
(require "ansi.rkt")

(define (main)
  (tty-raw!)

  (define old-exit-handler (exit-handler))
  (exit-handler (lambda (v)
		  (display (reset-mode x11-any-event-mouse-tracking-mode))
		  (old-exit-handler v)))

  (for-each display (list (set-mode x11-any-event-mouse-tracking-mode)))
  (flush-output)

  (let loop ()
    (define ch (read-byte))
    (display (select-graphic-rendition ch))
    (display (clear-to-eol))
    (printf "Byte: ~v\015\012" ch)
    (display (select-graphic-rendition))
    ;;(flush-output)
    (if (member ch '(4 8 127)) ;; EOF, C-h, DEL
	(exit)
	(loop))))

(main)