gnu: tinyxml: Use 'invoke'.

* gnu/packages/xml.scm (tinyxml)[arguments]: Replace 'system*' calls
with 'invoke'.
master
Efraim Flashner 2018-03-13 19:57:14 +02:00
parent 671249b934
commit 0efb64524b
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 6 additions and 6 deletions

View File

@ -5,7 +5,7 @@
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2015 Raimon Grau <raimonster@gmail.com>
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
@ -1007,12 +1007,12 @@ UTF-8 and UTF-16 encoding.")
(delete 'configure)
(add-after 'build 'build-shared-library
(lambda _
(zero? (system* "g++" "-Wall" "-O2" "-shared" "-fpic"
"tinyxml.cpp" "tinyxmlerror.cpp"
"tinyxmlparser.cpp" "tinystr.cpp"
"-o" "libtinyxml.so"))))
(invoke "g++" "-Wall" "-O2" "-shared" "-fpic"
"tinyxml.cpp" "tinyxmlerror.cpp"
"tinyxmlparser.cpp" "tinystr.cpp"
"-o" "libtinyxml.so")))
(replace 'check
(lambda _ (zero? (system "./xmltest"))))
(lambda _ (invoke "./xmltest")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))