suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add arg validation to redex benchmark script

Browse Source
This commit is contained in:
Max New 2014-02-23 11:31:30 -06:00 committed by Robby Findler
parent f19ea7c3a4
commit c237fdfff1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/test-file.rkt
View File

@ -17,6 +17,11 @@
enum)) enum))
(define types '()) (define types '())
(define (set-type! arg)
(define t (string->symbol arg))
(unless (list? (member t all-types))
(error "Expected a generation type, got" t))
(set! types (cons t types)))
(define filename (define filename
(command-line (command-line
#:once-each #:once-each
@ -28,7 +33,7 @@
(set! output-file out-file)] (set! output-file out-file)]
#:multi #:multi
[("-t" "--type") t "Generation type to run, one of: search, grammar, search-gen, search-gen-ref, search-gen-enum, search-gen-enum-ref, enum" [("-t" "--type") t "Generation type to run, one of: search, grammar, search-gen, search-gen-ref, search-gen-enum, search-gen-enum-ref, enum"
(set! types (cons (string->symbol t) types))] (set-type! t)]
#:args filenames #:args filenames
(match filenames (match filenames
[`() [`()