misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Print out the character name for a given byte

This commit is contained in:
Tony Garnock-Jones 2011-12-19 16:28:38 -05:00
parent 33cca087ad
commit 428299d68e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test-raw.rkt
View File

@ -18,7 +18,7 @@
(define ch (read-byte)) (define ch (read-byte))
(display (select-graphic-rendition ch)) (display (select-graphic-rendition ch))
(display (clear-to-eol)) (display (clear-to-eol))
(printf "Byte: ~v\015\012" ch) (printf "Byte: ~v ~s\015\012" ch (integer->char ch))
(display (select-graphic-rendition)) (display (select-graphic-rendition))
;;(flush-output) ;;(flush-output)
(if (member ch '(4 8 127)) ;; EOF, C-h, DEL (if (member ch '(4 8 127)) ;; EOF, C-h, DEL