(module mzpp-run mzscheme

(require (lib "mzpp.ss" "preprocessor")
         (lib "pp-run.ss" "preprocessor")
         (lib "cmdline.ss")
         (lib "process.ss"))

(let ([output #f] [run-cmd #f])
  (command-line
   "mzpp"
   (current-command-line-arguments)
   (once-each
    [("-o" "--output") file "output file (defaults to standard output)"
     (set! output file)]
    [("-b" "--begin-mark") beg "Scheme beginning marker (defaults to \"<<\")"
     (beg-mark beg)]
    [("-e" "--end-mark") end "Scheme ending marker (defaults to \">>\")"
     (end-mark end)]
    [("-s" "--skip-to") skip "skip processing to a line with only this string"
     (skip-to skip)]
    [("--no-spaces") "disable \"smart\" handling of spaces"
     (no-spaces? #t)]
    [("--run") cmd "run the command string on a single preprocessed input file"
     (set! run-cmd cmd)])
   (help-labels "   (see the documentation for this option)")
   (multi
    [("-E" "--eval") expr "evaluates <expr> before processing starts"
     (parameterize ([read-case-sensitive #t])
       (add-eval (read (open-input-string expr))))])
   (once-each
    [("--debug") "show preprocessed Scheme code (for debugging)"
     (debug? #t)])
   (=> (lambda (_ . files) (run preprocess run-cmd output files))
       '("input-file")
       (more-help 'mzpp "a MzScheme-based preprocessor"))))

)