syndicate-lang
/
preserves
mirror of https://gitlab.com/preserves/preserves.git
1
0
Fork 1
Code Releases Activity

Tool works on multiple inputs now

This commit is contained in:
Tony Garnock-Jones 2021-01-06 17:51:52 +01:00
parent a1a604aee8
commit 2c5ed693f5
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
implementations/racket/preserves/preserves/tool.rkt
View File

@ -10,10 +10,15 @@
(define output-format 'binary)
(define indent? #t)
(define annotations? #t)
(define count +inf.0)
(command-line #:once-each
["--atob" "Text to binary"
(begin (set! input-format 'text)
(set! output-format 'binary))]
["--all" "Read until EOF"
(set! count +inf.0)]
["--count" n "Read n items"
(set! count (string->number n))]
["--btoa" "Binary to text"
(begin (set! input-format 'binary)
(set! output-format 'text))]
@ -38,12 +43,19 @@
["--no-annotations" "Strip annotations"
(set! annotations? #f)])
(define v ((if annotations? values strip-annotations)
(match input-format
['any (read-preserve #:read-syntax? #t #:source "<stdin>")]
['text (read-preserve/text #:read-syntax? #t #:source "<stdin>")]
['binary (read-preserve/binary #:read-syntax? #t)])))
(void (match output-format
['text (write-preserve/text v #:indent indent?)]
['binary (write-preserve/binary v #:write-annotations? #t)]))
(flush-output))
(let loop ((count count))
(when (positive? count)
(define v ((if annotations? values strip-annotations)
(match input-format
['any (read-preserve #:read-syntax? #t #:source "<stdin>")]
['text (read-preserve/text #:read-syntax? #t #:source "<stdin>")]
['binary (read-preserve/binary #:read-syntax? #t)])))
(when (not (eof-object? v))
(void (match output-format
['text
(write-preserve/text v #:indent indent?)
(newline)]
['binary
(write-preserve/binary v #:write-annotations? #t)]))
(flush-output)
(loop (- count 1))))))