TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki 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

30
gnu/packages/linphone.scm
View file

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