mirror of
https://github.com/janet-lang/janet
synced 2024-11-29 03:19:54 +00:00
a0e98b9aa8
Use is a shorthand for (import module :prefix ""). process/args has been replaced by (dyn :args) at the top level.
105 lines
2.6 KiB
Plaintext
Executable File
105 lines
2.6 KiB
Plaintext
Executable File
#!/usr/bin/env janet
|
|
|
|
# CLI tool for building janet projects. Wraps cook.
|
|
|
|
(import cook)
|
|
|
|
(def- argpeg
|
|
(peg/compile
|
|
'(* "--" '(some (if-not "=" 1)) "=" '(any 1))))
|
|
|
|
(defn- local-rule
|
|
[rule]
|
|
(cook/import-rules "./project.janet")
|
|
(cook/do-rule rule))
|
|
|
|
(defn- help
|
|
[]
|
|
(print `
|
|
usage: jpm --key=value ... [subcommand] [args]...
|
|
|
|
Subcommands are:
|
|
build : build all artifacts
|
|
install (repo) : install artifacts. If a repo is given, install the contents of that
|
|
git repository, assuming that the repository is a jpm project. If not, build
|
|
and install the current project.
|
|
uninstall (module) : uninstall a module. If no module is given, uninstall the module
|
|
defined by the current directory.
|
|
clean : remove any generated files or artifacts
|
|
test : run tests
|
|
deps : install dependencies.
|
|
clear-cache : clear the git cache. Useful for updating dependencies.
|
|
|
|
Keys are:
|
|
--modpath : The directory to install modules to. Defaults to $JANET_MODPATH or (dyn :syspath)
|
|
--headerpath : The directory containing janet headers. Defaults to $JANET_HEADERPATH or (dyn :headerpath)
|
|
--binpath : The directory to install binaries and scripts. Defaults to $JANET_BINPATH.
|
|
--optimize : Optimization level for natives. Defaults to $OPTIMIZE or 2.
|
|
--compiler : C compiler to use for natives. Defaults to $COMPILER or cc.
|
|
--linker : C linker to use for linking natives. Defaults to $LINKER or cc.
|
|
--cflags : Extra compiler flags for native modules. Defaults to $CFLAGS if set.
|
|
--lflags : Extra linker flags for native modules. Defaults to $LFLAGS if set.
|
|
`))
|
|
|
|
(defn build
|
|
[]
|
|
(local-rule "build"))
|
|
|
|
(defn clean
|
|
[]
|
|
(local-rule "clean"))
|
|
|
|
(defn install
|
|
[&opt repo]
|
|
(if repo
|
|
(cook/install-git repo)
|
|
(local-rule "install")))
|
|
|
|
(defn test
|
|
[]
|
|
(local-rule "test"))
|
|
|
|
(defn uninstall
|
|
[&opt what]
|
|
(if what
|
|
(cook/uninstall what)
|
|
(local-rule "uninstall")))
|
|
|
|
(defn deps
|
|
[]
|
|
(local-rule "install-deps"))
|
|
|
|
(def subcommands
|
|
{"build" build
|
|
"clean" clean
|
|
"install" install
|
|
"test" test
|
|
"help" help
|
|
"deps" deps
|
|
"clear-cache" cook/clear-cache
|
|
"uninstall" uninstall})
|
|
|
|
(def args (tuple/slice (dyn :args) 2))
|
|
(def len (length args))
|
|
(var i 0)
|
|
|
|
# Get flags
|
|
(while (< i len)
|
|
(def arg (args i))
|
|
(unless (string/has-prefix? "--" arg) (break))
|
|
(if-let [m (peg/match argpeg arg)]
|
|
(let [[key value] m]
|
|
(setdyn (keyword key) value))
|
|
(print "invalid argument " arg))
|
|
(++ i))
|
|
|
|
# Run subcommand
|
|
(if (= i len)
|
|
(help)
|
|
(do
|
|
(if-let [com (subcommands (args i))]
|
|
(com ;(tuple/slice args (+ i 1)))
|
|
(do
|
|
(print "invalid command " (args i))
|
|
(help)))))
|