(setf var path))))))
+(defun update-usage ()
+ (setf *usage* (simple-usage *options* "SOURCES...")))
+
(export 'main)
(defun main ()
(define-program
:help "Process SOD input files to produce (e.g.) C output."
:version *sod-version*
- :usage "SOURCES..."
:options (options
(help-options :short-version #\V)
"Translator options"
(#\t "type" (:arg "OUT-TYPE")
("Produce output of type OUT-TYPE.")
(list output-reasons 'keyword))))
+ (update-usage)
;; Actually parse the options.
(let ((*option-parser* (make-option-parser)))