Indirect answer: could you use `command-line` instead?
#lang racket/base
(require racket/cmdline)
(define input-from (make-parameter #f))
(command-line
#:program "sample"
#:once-each
[("-i" "--input-file")
i
"Use <input_file> as the input file."
(input-from i)]
#:args (file)
(printf "my argument is: ~a\n" file)
;; do things with `file` and `input-from` here
)
On Tue, Oct 11, 2016 at 9:24 PM, Ian Thomas <[email protected]> wrote:
> I'm trying to add a simple command line interface to a program and receive
> the following error:
>
> parse-command-line: expected argument of type <table as a list of
> flag-list/procedure pairs (spec-line help list strings must match procedure
> arguments)>; given: '((once-each (("-i" "--input\
> -file") #<procedure:...sis/com_line.rkt:12:25> ("Use <input_file> as the
> input file."))))
> context...:
>
> The command should take a single flag and an input file as arguments. Code
> below. Any help would be much appreciated.
>
> #lang racket
>
> (require racket/base
> racket/cmdline)
>
> (parse-command-line "com_line"
> ;; argv
> (current-command-line-arguments)
> ;; table
> `((once-each
> [("-i" "--input-file")
> ,(lambda (flag in) (displayln "Using <in>"))
> ("Use <input_file> as the input file.")]))
> ;; finish-proc
> (lambda (flag-accum file) file)
> ;; help-proc
> (lambda () (displayln "com_line -i | --input-file
> input file"))
> ;; unknown-proc
> (lambda (unknown_flag) (displayln "Unknown flag:
> <unknown_flag>")))
>
> --
> You received this message because you are subscribed to the Google Groups
> "Racket Users" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected].
> For more options, visit https://groups.google.com/d/optout.
>
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
