--atob, --btoa

2019-08-23 22:14:02 +01:00 · 2019-08-23 22:14:02 +01:00 · aa59846ee9
parent a34a4cd20e
commit aa59846ee9
1 changed files with 6 additions and 0 deletions
--- a/implementations/racket/preserves/tool.rkt
+++ b/implementations/racket/preserves/tool.rkt
@ -11,6 +11,12 @@
  (define indent? #t)
  (define annotations? #t)
  (command-line #:once-each
+                ["--atob" "Text to binary"
+                 (begin (set! input-format 'text)
+                        (set! output-format 'binary))]
+                ["--btoa" "Binary to text"
+                 (begin (set! input-format 'binary)
+                        (set! output-format 'text))]
                [("--ib" "--input-binary") "Set binary input mode"
                 (set! input-format 'binary)]
                [("--it" "--input-text") "Set text input mode"