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.
This commit is contained in:
parent
2fcda6d291
commit
b101b4e8c1
|
@ -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,11 +3178,10 @@ 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)))
|
||||
(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
|
||||
|
|
Loading…
Reference in New Issue