me/guix
Archived
1
0
Fork 0
Code Activity

gnu: ortp: Use G-expression.

Browse source 
* gnu/packages/linphone.scm (ortp)[arguments]: Use G-expression.
This commit is contained in:
Ricardo Wurmus 2023-04-08 14:03:00 +02:00
parent e335d055a0
commit bf95402f5d
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 24 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
gnu/packages/linphone.scm
View file

@ -409,31 +409,31 @@ such as conferencing.")
(outputs '("out""tester" (outputs '("out""tester"
"doc")) ;1.5 MiB of HTML doc "doc")) ;1.5 MiB of HTML doc
(arguments (arguments
`(#:tests? #f ;requires networking (list
#:configure-flags (list "-DENABLE_STATIC=NO" #:tests? #f ;requires networking
#:configure-flags '(list "-DENABLE_STATIC=NO"
"-DENABLE_TESTS=YES") "-DENABLE_TESTS=YES")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-version-strings (add-after 'unpack 'fix-version-strings
;; See: https://gitlab.linphone.org/BC/public/ortp/-/issues/5. ;; See: https://gitlab.linphone.org/BC/public/ortp/-/issues/5.
(lambda _ (lambda _
(substitute* "CMakeLists.txt" (substitute* "CMakeLists.txt"
(("VERSION [0-9]+\\.[0-9]+\\.[0-9]+") (("VERSION [0-9]+\\.[0-9]+\\.[0-9]+")
(string-append "VERSION " ,version)) (string-append "VERSION " #$version))
(("\\$\\{ORTP_DOC_VERSION\\}") (("\\$\\{ORTP_DOC_VERSION\\}")
,version)))) #$version))))
(add-after 'install 'separate-outputs (add-after 'install 'separate-outputs
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((doc-src
(doc (assoc-ref outputs "doc")) (string-append #$output "/share/doc/ortp-" #$version))
(doc-src (string-append out "/share/doc/ortp-" ,version)) (doc-dest
(doc-dest (string-append doc "/share/doc/ortp-" ,version)) (string-append #$output:doc "/share/doc/ortp-" #$version)))
(tester (assoc-ref outputs "tester"))) (for-each mkdir-p (list (string-append #$output:doc "/share/doc")
(for-each mkdir-p (list (string-append doc "/share/doc") (string-append #$output:tester "/bin")))
(string-append tester "/bin"))) (rename-file doc-src doc-dest)
(rename-file doc-src doc-dest) (rename-file (string-append #$output "/bin")
(rename-file (string-append out "/bin") (string-append #$output:tester "/bin"))))))))
(string-append tester "/bin"))))))))
(native-inputs (native-inputs
`(("dot" ,graphviz) `(("dot" ,graphviz)
("doxygen" ,doxygen))) ("doxygen" ,doxygen)))