summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2017-05-16 13:19:32 +0200
committerRicardo Wurmus <rekado@elephly.net>2017-05-16 15:18:17 +0200
commitf4aa4cfe001d0637816577450aa2f35e23b5a653 (patch)
treef07c76dbef4bade65a77ac386faa2c3d39446ad8 /gnu
parent407df789cf3c2f957ce3f96441a74e20bb0f7b2c (diff)
gnu: stringtemplate4: Prettify "generate-grammar" phase.
* gnu/packages/java.scm (stringtemplate4)[arguments]: Rewrite "generate-grammar" phase to use "with-directory-excursion" and to report success or failure.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/java.scm17
1 files changed, 9 insertions, 8 deletions
diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm
index 6c8af7380a..b45569ae3f 100644
--- a/gnu/packages/java.scm
+++ b/gnu/packages/java.scm
@@ -3226,17 +3226,18 @@ StringTemplate also powers ANTLR.")
(arguments
`(#:tests? #f
#:jar-name (string-append ,name "-" ,version ".jar")
+ #:modules ((guix build ant-build-system)
+ (guix build utils)
+ (srfi srfi-1))
#:phases
(modify-phases %standard-phases
(add-before 'build 'generate-grammar
- (lambda* (#:key inputs #:allow-other-keys)
- (chdir "src/org/stringtemplate/v4/compiler/")
- (for-each (lambda (file)
- (display file)
- (newline)
- (system* "antlr3" file))
- '("STParser.g" "Group.g" "CodeGenerator.g"))
- (chdir "../../../../.."))))))
+ (lambda _
+ (with-directory-excursion "src/org/stringtemplate/v4/compiler/"
+ (every (lambda (file)
+ (format #t "~a\n" file)
+ (zero? (system* "antlr3" file)))
+ '("STParser.g" "Group.g" "CodeGenerator.g"))))))))
(inputs
`(("antlr3" ,antlr3-bootstrap)
("antlr2" ,antlr2)