mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-09-09 10:59:10 +00:00
Code Issues 1 Releases Wiki Activity

Add sh-rule and sh-phony to jpm dialect.

Browse Source 
Provides useful shorthand for writing rules that invoke
shell commands.
This commit is contained in:
Calvin Rose
2020-04-14 20:43:53 -05:00
parent 71882475d6
commit 058f63b440
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
auxbin/jpm
+11 -1
View File
@@ -34,7 +34,7 @@
(defmacro rule (defmacro rule
"Add a rule to the rule graph." "Add a rule to the rule graph."
[target deps & body] [target deps & body]
~(,rule-impl ,target ,deps (fn [] nil ,;body))) ~(,rule-impl ,target ,deps (fn [] ,;body)))
(defmacro phony (defmacro phony
"Add a phony rule to the rule graph. A phony rule will run every time "Add a phony rule to the rule graph. A phony rule will run every time
@@ -43,6 +43,16 @@
[target deps & body] [target deps & body]
~(,rule-impl ,target ,deps (fn [] nil ,;body) true)) ~(,rule-impl ,target ,deps (fn [] nil ,;body) true))
(defmacro sh-rule
"Add a rule that invokes a shell command, and fails if the command returns non-zero."
[target deps & body]
~(,rule-impl ,target ,deps (fn [] (,assert (,zero? (,os/shell (,string ,;body)))))))
(defmacro sh-phony
"Add a phony rule that invokes a shell command, and fails if the command returns non-zero."
[target deps & body]
~(,rule-impl ,target ,deps (fn [] (,assert (,zero? (,os/shell (,string ,;body))))) true))
(defn add-dep (defn add-dep
"Add a dependency to an existing rule. Useful for extending phony "Add a dependency to an existing rule. Useful for extending phony
rules or extending the dependency graph of existing rules." rules or extending the dependency graph of existing rules."