From b101b4e8c1a5c9719b645708dfa0f7dda4b77f2d Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 16 May 2017 12:52:59 +0200 Subject: gnu: java-stringtemplate-3: Use return value in build phase. * gnu/packages/java.scm (java-stringtemplate-3)[arguments]: Let build phase "generate-grammar" return success or failure. --- gnu/packages/java.scm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm index 8fe005b28d..123c49c9d5 100644 --- a/gnu/packages/java.scm +++ b/gnu/packages/java.scm @@ -3165,6 +3165,9 @@ tree walking, and translation.") (arguments `(#:jar-name (string-append ,name "-" ,version ".jar") #:test-dir "test" + #:modules ((guix build ant-build-system) + (guix build utils) + (srfi srfi-1)) #:phases (modify-phases %standard-phases (add-before 'check 'fix-tests @@ -3175,13 +3178,12 @@ tree walking, and translation.") #t)) (add-before 'build 'generate-grammar (lambda _ - (let ((dir "src/org/antlr/stringtemplate/language/")) - (for-each (lambda (file) - (display file) - (newline) - (system* "antlr" "-o" dir (string-append dir file))) - '("template.g" "angle.bracket.template.g" "action.g" - "eval.g" "group.g" "interface.g")))))))) + (with-directory-excursion "src/org/antlr/stringtemplate/language/" + (every (lambda (file) + (format #t "~a\n" file) + (zero? (system* "antlr" file))) + '("template.g" "angle.bracket.template.g" "action.g" + "eval.g" "group.g" "interface.g")))))))) (native-inputs `(("antlr" ,antlr2) ("java-junit" ,java-junit))) -- cgit 1.4.1