56 lines
1.8 KiB
Fennel
56 lines
1.8 KiB
Fennel
(local {
|
|
: flatten
|
|
: create-corpus
|
|
} (require :src.story))
|
|
|
|
(fn show-help []
|
|
(print "Usage: tbls [options]")
|
|
(print)
|
|
(print "Basic Options:")
|
|
(print " -h|--help print this message and exit")
|
|
(print " -v|--version print version and exit")
|
|
(print " -i|--input <file> name of input file")
|
|
(print " -k|--origin-table-key <key> name of a table in the input file")
|
|
(print " -s|--origin-table-string <string> a string template")
|
|
(print)
|
|
(print "You must specify an input file")
|
|
(print "You must specify either a string or a key to serve as an origin"))
|
|
|
|
(fn parse-args [t]
|
|
(if (= 0 (length t))
|
|
(do
|
|
(show-help)
|
|
(os.exit 0)))
|
|
(fn inner [t opts]
|
|
(if (= 0 (length t)) opts
|
|
(do
|
|
(case t
|
|
(where [a] (or (= a "-h") (= a "--help")))
|
|
(do
|
|
(show-help)
|
|
(os.exit 0))
|
|
(where [a] (or (= a "-v") (= a "--version")))
|
|
(let [handle (io.popen "recsel doc/meta.rec -P version")
|
|
result (handle:read "*a")]
|
|
(print result)
|
|
(handle:close)
|
|
(os.exit 0))
|
|
(where [a input] (or (= a "-i") (= a "--input")))
|
|
(set opts.input input)
|
|
(where [a key] (or (= a "-k") (= a "--origin-table-key")))
|
|
(set opts.key key)
|
|
(where [a str] (or (= a "-s") (= a "--origin-table-string")))
|
|
(set opts.string str))
|
|
(let [next-t (icollect [i v (ipairs t)] (if (> i 2) v))]
|
|
(inner next-t opts)))))
|
|
(inner t {}))
|
|
|
|
(fn main []
|
|
(let [opts (parse-args arg)
|
|
corpus (create-corpus opts.input)]
|
|
(if opts.key
|
|
(print (flatten corpus (. corpus opts.key)))
|
|
(print (flatten corpus opts.string)))))
|
|
|
|
(main)
|