25 lines
564 B
Racket
25 lines
564 B
Racket
|
#lang racket/base
|
||
|
|
|
||
|
|
(require "main.rkt")
|
||
|
|
|
||
|
|
(define (display* . things)
|
||
|
|
(for-each display things)
|
||
|
|
(flush-output))
|
||
|
|
|
||
|
|
(define (main)
|
||
|
|
(tty-raw!)
|
||
|
|
|
||
|
|
(display* (dec-soft-terminal-reset)
|
||
|
|
(device-request-screen-size))
|
||
|
|
|
||
|
|
(define report (lex-lcd-input (current-input-port)))
|
||
|
|
(printf "The reported screen size is ~a columns and ~a rows.\r\n"
|
||
|
|
(screen-size-report-columns report)
|
||
|
|
(screen-size-report-rows report))
|
||
|
|
(printf "The raw report value itself is ~v.\r\n" report)
|
||
|
|
|
||
|
|
(display* (dec-soft-terminal-reset)))
|
||
|
|
|
||
|
|
(module+ main
|
||
|
|
(main))
|