diff options
| author | Eduardo Julian | 2020-12-02 20:37:13 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-12-02 20:37:13 -0400 |
| commit | 28c724857d76afdc40b5b036f415cc151eb66263 (patch) | |
| tree | 3e970ca2a10dd7bb5c7ddd405349762945464d39 /stdlib/source/program | |
| parent | 34e310622bdeb1d0588c0664c0e78cbaa84f837c (diff) | |
Replaced "contains?" function with "key?" function.
Diffstat (limited to 'stdlib/source/program')
| -rw-r--r-- | stdlib/source/program/aedifex.lux | 5 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/cli.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/version.lux | 16 |
3 files changed, 25 insertions, 0 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index d876b5665..2478b4016 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -48,6 +48,7 @@ ["#." dependency #_ ["#" resolution (#+ Resolution)]] ["#." command (#+ Command) + ["#/." version] ["#/." clean] ["#/." pom] ["#/." install] @@ -87,6 +88,10 @@ (case ?profile (#try.Success profile) (case operation + #/cli.Version + (exec (/command/version.do! profile) + (wrap [])) + #/cli.Clean (exec (/command/clean.do! (file.async file.default) profile) (wrap [])) diff --git a/stdlib/source/program/aedifex/cli.lux b/stdlib/source/program/aedifex/cli.lux index d52bf4df6..7af7405a9 100644 --- a/stdlib/source/program/aedifex/cli.lux +++ b/stdlib/source/program/aedifex/cli.lux @@ -32,6 +32,7 @@ (cli.this "test"))) (type: #export Command + #Version #Clean #POM #Dependencies @@ -43,6 +44,8 @@ (def: #export equivalence (Equivalence Command) ($_ equivalence.sum + ## #Version + ..any-equivalence ## #Clean ..any-equivalence ## #POM @@ -64,6 +67,7 @@ (def: command' (Parser Command) ($_ <>.or + (cli.this "version") (cli.this "clean") (cli.this "pom") (cli.this "deps") diff --git a/stdlib/source/program/aedifex/command/version.lux b/stdlib/source/program/aedifex/command/version.lux new file mode 100644 index 000000000..8f26a7fb7 --- /dev/null +++ b/stdlib/source/program/aedifex/command/version.lux @@ -0,0 +1,16 @@ +(.module: + [lux #* + [tool + [compiler + ["." version] + ["." language #_ + ["#/." lux #_ + ["#" version]]]]]] + ["." /// #_ + [command (#+ Command)] + ["#." action]]) + +(def: #export (do! profile) + (Command Any) + (\ ///action.monad wrap + (log! (version.format language/lux.version)))) |