opt.rkt

#lang typed/racket/base

(require racket/cmdline)


(: opt-verbose-mode (Parameterof Boolean))
(define opt-verbose-mode (make-parameter #f))
(: opt-max-size (Parameterof Real))
(define opt-max-size (make-parameter 0))



(define parms
  (command-line
   #:program "mypgm"
   #:once-each
   [("-v" "--verbose") "Show verbose output" (opt-verbose-mode #t)]
   [("-m" "--max-size") 
    #{NUM : String} ("Max size." "NUM")
    (opt-max-size (cast (string->number NUM) Real))]))


(define (myfun)
  (when (opt-verbose-mode)
    (if (> (opt-max-size) 0)
        #t
        #f)))