75 lines
1.9 KiB
Scheme
75 lines
1.9 KiB
Scheme
(define-structure tty-utils
|
|
(export modify-tty echo-off echo-on raw raw-initialize)
|
|
(open scsh let-opt scheme)
|
|
(files tty-utils))
|
|
|
|
(define-structure let-match-package
|
|
(export (let-match :syntax)
|
|
(if-match :syntax)
|
|
(match-cond :syntax))
|
|
(for-syntax (open scheme
|
|
signals)) ; For ERROR
|
|
|
|
(open scsh scheme)
|
|
(access signals) ; for ERROR
|
|
|
|
(files let-match))
|
|
|
|
(define-structure expect-syntax-support
|
|
(export expand-expect)
|
|
(open scheme structure-refs
|
|
receiving) ; for making alien containers.
|
|
(access signals) ; for ERROR
|
|
(files expect-syntax))
|
|
|
|
(define-structure expect-package
|
|
(export task? make-task copy-task
|
|
task:process set-task:process modify-task:process
|
|
task:in set-task:in modify-task:in
|
|
task:out set-task:out modify-task:out
|
|
task:buf set-task:buf modify-task:buf
|
|
task:pre-match set-task:pre-match modify-task:pre-match
|
|
|
|
port->monitor
|
|
|
|
user-task file->task ports->task close-task
|
|
spawn* (spawn :syntax)
|
|
tsend tsend-line
|
|
(expect :syntax))
|
|
(for-syntax (open expect-syntax-support scheme))
|
|
|
|
(open scsh formats structure-refs let-match-package
|
|
receiving defrec-package scheme srfi-13)
|
|
(access signals) ; for ERROR
|
|
|
|
(files expect))
|
|
|
|
(define-structure chat-package
|
|
(export chat-abort chat-timeout chat-monitor
|
|
port->chat-logger file->chat-logger
|
|
(look-for :syntax)
|
|
(chat :syntax)
|
|
send send/cr)
|
|
|
|
(open scsh expect-package fluids scheme)
|
|
|
|
(files chat))
|
|
|
|
(define-structure printf-package
|
|
(export printf sprintf display/cr display/nl)
|
|
(open scsh formats scheme)
|
|
|
|
(begin
|
|
|
|
(define (printf fmt . args) (apply format (current-output-port) fmt args))
|
|
(define (sprintf fmt . args) (apply format #f fmt args))
|
|
|
|
(define (display/cr str . maybe-port)
|
|
(apply display str maybe-port)
|
|
(apply write-string "\r" maybe-port))
|
|
|
|
(define (display/nl str . maybe-port)
|
|
(apply display str maybe-port)
|
|
(apply write-string "\n" maybe-port))
|
|
))
|