13 lines
309 B
Scheme
13 lines
309 B
Scheme
(module start mzscheme
|
|
(require "tex2page.ss"
|
|
(lib "cmdline.ss"))
|
|
|
|
(command-line
|
|
"tex2page"
|
|
(current-command-line-arguments)
|
|
[once-each
|
|
[("--version") "Reports long help and version information"
|
|
(tex2page "--version")]]
|
|
[args file "Processes each <file>"
|
|
(map tex2page file)]))
|