ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 23:02:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: belcard: Simplify by using G-expression.

Browse source 
* gnu/packages/linphone.scm (belcard)[arguments]: Rewrite as G-expression and
remove all output lookups.
This commit is contained in:
Ricardo Wurmus 2023-04-06 20:01:41 +02:00
parent 15227aa81c
commit 142899cd69
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 28 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
gnu/packages/linphone.scm
View file

@ -258,37 +258,34 @@ (define-public belcard
(build-system cmake-build-system)
(outputs '("out" "debug" "tester"))
(arguments
`(#:configure-flags '("-DENABLE_STATIC=OFF")
(list
#:configure-flags '(list "-DENABLE_STATIC=OFF")
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-vcard-grammar-location
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(vcard-grammar
(string-append out "/share/belr/grammars/vcard_grammar")))
(lambda _
(let ((vcard-grammar
(string-append #$output
"/share/belr/grammars/vcard_grammar")))
(substitute* "include/belcard/vcard_grammar.hpp"
(("define VCARD_GRAMMAR \"vcard_grammar\"")
(format #f "define VCARD_GRAMMAR ~s" vcard-grammar))))))
(add-after 'install 'install-tester
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(tester (assoc-ref outputs "tester"))
(test-name (string-append ,name "_tester")))
(lambda _
(let ((test-name (string-append #$name "_tester")))
(for-each mkdir-p
(list (string-append tester "/bin")
(string-append tester "/share")))
(rename-file (string-append out "/bin/" test-name)
(string-append tester "/bin/" test-name))
(rename-file (string-append out "/share/" test-name)
(string-append tester "/share/" test-name)))))
(list (string-append #$output:tester "/bin")
(string-append #$output:tester "/share")))
(rename-file (string-append #$output "/bin/" test-name)
(string-append #$output:tester "/bin/" test-name))
(rename-file (string-append #$output "/share/" test-name)
(string-append #$output:tester "/share/" test-name)))))
(delete 'check)
(add-after 'install-tester 'check
(lambda* (#:key inputs outputs tests? #:allow-other-keys)
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(let* ((tester (assoc-ref outputs "tester"))
(belcard_tester (string-append tester
"/bin/belcard_tester")))
(invoke belcard_tester))))))))
(invoke (string-append #$output:tester
"/bin/belcard_tester"))))))))
(inputs
(list bctoolbox belr))
(synopsis "Belledonne Communications VCard Library")