me
/
guix
Archived
1
0
Fork 0
Code

gnu: pjproject: Update to 2.9. 

* gnu/packages/telephony.scm (pjproject): Update to 2.9.
master
Pierre Neidhardt 2019-11-14 18:03:12 +01:00
parent 4fe8a9f2d1
commit 5dc8cad52c
No known key found for this signature in database
GPG Key ID: 9BDCF497A4BBCC7F
1 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
gnu/packages/telephony.scm
View File

@ -553,29 +553,32 @@ calls and messages")
(define-public pjproject (define-public pjproject
(package (package
(name "pjproject") (name "pjproject")
(version "2.7.2") (version "2.9")
(source (source
(origin (origin
(method url-fetch) (method git-fetch)
(uri (string-append (uri (git-reference
"http://www.pjsip.org/release/" ; (url "https://github.com/pjsip/pjproject.git")
version "/" name "-" version ".tar.bz2")) (commit "5dfa75be7d69047387f9b0436dd9492bbbf03fe4")))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin
(let ((third-party-directories (let ((third-party-directories
(list "BaseClasses" "bdsound" "bin" "g7221" "gsm" ;; Things we don't need:
"ilbc" "lib" "milenage" "mp3" "speex" "srtp" ;; BaseClasses - contains libraries from Windows SDK
"resample" ;; we don't need it, at least not now.
(list "BaseClasses" "g7221" "ilbc" "milenage"
"speex" "threademulation" "yuv" "bdsound"
"gsm" "mp3" "resample" "srtp" "webrtc"
;; Keep only resample, build and README.txt. ;; Keep only resample, build and README.txt.
"build/baseclasses" "build/g7221" "build/gsm" "build/baseclasses" "build/g7221" "build/gsm"
"build/ilbc" "build/milenage" "build/samplerate" "build/ilbc" "build/milenage" "build/resample"
"build/speex" "build/srtp" "build/samplerate" "build/speex" "build/srtp"
"build/resample" "build/yuv"))) "build/webrtc" "build/yuv")))
;; Keep only Makefiles related to resample. ;; Keep only Makefiles related to resample.
(for-each (lambda (file) (for-each (lambda (directory)
(delete-file-recursively (delete-file-recursively
(string-append "third_party/" file))) (string-append "third_party/" directory)))
third-party-directories) third-party-directories)
#t) #t)
(let ((third-party-dirs (let ((third-party-dirs
@ -586,9 +589,10 @@ calls and messages")
(substitute* "third_party/build/os-linux.mak" (substitute* "third_party/build/os-linux.mak"
(((string-append "DIRS += " dirs)) ""))) (((string-append "DIRS += " dirs)) "")))
third-party-dirs)))) third-party-dirs))))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0wiph6g51wanzwjjrpwsz63amgvly8g08jz033gnwqmppa584b4w")))) "1ayj6n7zd5wvd1nzj2k9s57fb4ckc2fv92k5sjvhd87yg69k3393"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("portaudio" ,portaudio))) `(("portaudio" ,portaudio)))
@ -598,6 +602,7 @@ calls and messages")
`(("speex" ,speex) `(("speex" ,speex)
("libsrtp" ,libsrtp) ("libsrtp" ,libsrtp)
("gnutls" ,gnutls) ("gnutls" ,gnutls)
("resample", resample)
("util-linux" ,util-linux))) ("util-linux" ,util-linux)))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
@ -615,7 +620,7 @@ calls and messages")
(lambda _ (invoke "make" "dep"))) (lambda _ (invoke "make" "dep")))
(add-before 'patch-source-shebangs 'autoconf (add-before 'patch-source-shebangs 'autoconf
(lambda _ (lambda _
(invoke "autoconf" "-vfi" "-o" (invoke "autoconf" "-v" "-f" "-i" "-o"
"aconfigure" "aconfigure.ac"))) "aconfigure" "aconfigure.ac")))
(add-before 'autoconf 'disable-some-tests (add-before 'autoconf 'disable-some-tests
;; Three of the six test programs fail due to missing network ;; Three of the six test programs fail due to missing network