command line argument parser
Dependencies
///|
using @ArgParser {parse}
///|
let verbose : Ref[Bool] = Ref::new(false)
///|
let output : Ref[String] = Ref::new("output")
///|
let files : Array[String] = []
///|
let spec : Array[(String, String, Spec, String)] = [
("--verbose", "-v", Set(verbose), "enable verbose message"),
("--output", "-o", Set_string(output), "output file name"),
]
///|
let usage =
#| Simple CLI tool
#| usage:
#| mytool [options] <file1> [<file2>] ... -o <output>
#|
///|
test {
let argv = ["-o", "out.mbt", "file1", "file2", "--verbose"]
parse(spec, file => files.push(file), usage, argv)
inspect(verbose.val, content="true")
inspect(output.val, content="out.mbt")
inspect(files[0], content="file1")
inspect(files[1], content="file2")
}///|
test {
let argv = ["--help"]
parse(spec, file => files.push(file), usage, argv) catch {
// errors raised from callbacks
@ArgParser.ErrorMsg(msg) => println(msg)
// errors raised from callbacks
e => println(e)
}
}pub(all) enum Spec {
Unit(() -> Unit raise)
String((String) -> Unit raise)
Set_string(Ref[String])
Set(Ref[Bool])
Clear(Ref[Bool])
}command line argument parser
Dependencies