Commit | Line | Data |
---|---|---|
8fd3de0b JD |
1 | ;;; GNU Guix --- Functional package management for GNU |
2 | ;;; Copyright 2014 John Darrington <jmd@gnu.org> | |
3 | ;;; | |
4 | ;;; This file is part of GNU Guix. | |
5 | ;;; | |
6 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
7 | ;;; under the terms of the GNU General Public License as published by | |
8 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
9 | ;;; your option) any later version. | |
10 | ;;; | |
11 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
12 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | ;;; GNU General Public License for more details. | |
15 | ;;; | |
16 | ;;; You should have received a copy of the GNU General Public License | |
17 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
18 | ||
19 | (define-module (gnu packages telephony) | |
20 | #:use-module (gnu packages) | |
21 | #:use-module (gnu packages gnupg) | |
22 | #:use-module (gnu packages pkg-config) | |
23 | #:use-module (guix licenses) | |
24 | #:use-module (guix packages) | |
25 | #:use-module (guix download) | |
26 | #:use-module (guix build-system gnu)) | |
27 | ||
28 | (define-public commoncpp | |
29 | (package | |
30 | (name "commoncpp") | |
31 | (version "1.8.1") | |
32 | (source (origin | |
33 | (method url-fetch) | |
34 | (uri (string-append "mirror://gnu/" name "/commoncpp2-" | |
35 | version ".tar.gz")) | |
36 | (sha256 (base32 | |
37 | "0kmgr5w3b1qwzxnsnw94q6rqs0hr8nbv9clf07ca2a2fyypx9kjk")))) | |
38 | (arguments | |
39 | `(#:phases | |
40 | (alist-cons-before | |
41 | 'configure 'pre-configure | |
42 | (lambda _ | |
43 | (substitute* "src/applog.cpp" | |
44 | (("^// TODO sc.*") "#include <sys/types.h>\n#include <sys/stat.h>\n"))) | |
45 | %standard-phases))) | |
46 | (build-system gnu-build-system) | |
47 | (synopsis "(u)Common C++ framework for threaded applications") | |
48 | (description "GNU Common C++ is an portable, optimized class framework for | |
49 | threaded applications, supporting concurrent synchronization, inter-process | |
50 | communications via sockets, and various methods for data handling, such as | |
51 | serialization and XML parsing. It includes the uCommon C++ library, a smaller | |
52 | reimplementation.") | |
53 | (license gpl2+) ; plus runtime exception | |
54 | (home-page "http://www.gnu.org/software/commoncpp"))) | |
55 | ||
56 | (define-public ucommon | |
57 | (package | |
58 | (name "ucommon") | |
dd0b0e68 | 59 | (version "6.1.11") |
8fd3de0b JD |
60 | (source (origin |
61 | (method url-fetch) | |
62 | (uri (string-append "mirror://gnu/commoncpp/" name "-" | |
63 | version ".tar.gz")) | |
64 | (sha256 (base32 | |
dd0b0e68 | 65 | "0hpwxiyd7c3qnzksk6vw94cdig1v8yy6khgcaa87a7hb3zbkv4zg")))) |
8fd3de0b JD |
66 | (build-system gnu-build-system) |
67 | (synopsis "(u)Common C++ framework for threaded applications") | |
68 | (description "GNU Common C++ is an portable, optimized class framework for | |
69 | threaded applications, supporting concurrent synchronization, inter-process | |
70 | communications via sockets, and various methods for data handling, such as | |
71 | serialization and XML parsing. It includes the uCommon C++ library, a smaller | |
72 | reimplementation.") | |
73 | (license gpl2+) ; plus runtime exception | |
74 | (home-page "http://www.gnu.org/software/commoncpp"))) | |
75 | ||
76 | (define-public ccrtp | |
77 | (package | |
78 | (name "ccrtp") | |
79 | (version "2.0.9") | |
80 | (source (origin | |
81 | (method url-fetch) | |
82 | (uri (string-append "mirror://gnu/ccrtp/ccrtp-" | |
83 | version ".tar.gz")) | |
84 | (sha256 (base32 | |
85 | "1prh2niwa4lzvskk12j4ckr7dv141dfh8yjmpkbhbnv4gmpifci0")))) | |
86 | (build-system gnu-build-system) | |
87 | (inputs `(("ucommon" ,ucommon) | |
88 | ("libgcrypt" ,libgcrypt))) | |
89 | (native-inputs `(("pkg-config" ,pkg-config))) | |
90 | (synopsis "Implementation of RTP (real-time transport protocol)") | |
91 | (description "GNU ccRTP is an implementation of RTP, the real-time transport | |
92 | protocol from the IETF. It is suitable both for high capacity servers and | |
93 | personal client applications. It is flexible in its design, allowing it to | |
94 | function as a framework for the framework, rather than just being a | |
95 | packet-manipulation library.") | |
96 | (license gpl2+) ; plus runtime exception | |
97 | (home-page "http://www.gnu.org/software/ccrtp"))) | |
98 | ||
99 | ||
100 | (define-public osip | |
101 | (package | |
102 | (name "osip") | |
103 | (version "4.1.0") | |
104 | (source (origin | |
105 | (method url-fetch) | |
106 | (uri (string-append "mirror://gnu/osip/libosip2-" version ".tar.gz")) | |
107 | (sha256 (base32 | |
108 | "014503kqv7z63az6lgxr5fbajlrqylm5c4kgbf8p3a0n6cva0slr")))) | |
109 | (build-system gnu-build-system) | |
110 | ||
111 | (synopsis "Library implementing SIP (RFC-3261)") | |
112 | (description "GNU oSIP is an implementation of the SIP protocol. It is | |
113 | used to provide multimedia and telecom software developers with an interface | |
114 | to initiate and control SIP sessions.") | |
115 | (license lgpl2.1+) | |
116 | (home-page "http://www.gnu.org/software/osip"))) | |
117 | ||
118 | ||
119 | (define-public exosip | |
120 | (package | |
121 | (name "exosip") | |
122 | (version "4.1.0") | |
123 | (source (origin | |
124 | (method url-fetch) | |
125 | (uri (string-append | |
126 | "http://download.savannah.gnu.org/releases/exosip/libeXosip2-" | |
127 | version ".tar.gz")) | |
128 | (sha256 (base32 | |
129 | "17cna8kpc8nk1si419vgr6r42k2lda0rdk50vlxrw8rzg0xp2xrw")))) | |
130 | (build-system gnu-build-system) | |
131 | (inputs `(("osip" ,osip))) | |
132 | (synopsis "Sip abstraction library") | |
133 | (description "EXosip is a library that hides the complexity of using the | |
134 | SIP protocol for mutlimedia session establishement. This protocol is mainly to | |
135 | be used by VoIP telephony applications (endpoints or conference server) but | |
136 | might be also usefull for any application that wish to establish sessions like | |
137 | multiplayer games.") | |
138 | (license gpl2+) | |
139 | ;; (plus OpenSSL linking exception) | |
140 | ;; http://git.savannah.gnu.org/cgit/exosip.git/plain/LICENSE.OpenSSL | |
141 | (home-page "http://savannah.nongnu.org/projects/exosip"))) | |
142 | ||
143 | (define-public sipwitch | |
144 | (package | |
145 | (name "sipwitch") | |
146 | (version "1.9.2") | |
147 | (source (origin | |
148 | (method url-fetch) | |
149 | (uri (string-append "mirror://gnu/sipwitch/sipwitch-" | |
150 | version ".tar.gz")) | |
151 | (sha256 (base32 | |
152 | "0cf0zrdfi4w9qn50ags3rvwc29km2k526f6sm6i7jb0hsrvg0k8x")))) | |
153 | (build-system gnu-build-system) | |
154 | ;; The configure.ac uses pkg-config but in a kludgy way which breaks when | |
155 | ;; cross-compiling. Among other issues there the program name "pkg-config" | |
156 | ;; is hard coded instead of respecting the PKG_CONFIG environment variable. | |
157 | ;; Fortunately we can avoid the use of pkg-config and set the dependency | |
158 | ;; flags ourselves. | |
159 | (arguments `(#:configure-flags | |
160 | `("--without-pkg-config" | |
161 | ,(string-append "UCOMMON_CFLAGS=-I" | |
162 | (assoc-ref %build-inputs "ucommon") "/include") | |
163 | "UCOMMON_LIBS=-lusecure -lucommon -lrt -ldl -lpthread" | |
164 | ,(string-append "LIBOSIP2_CFLAGS=-I" | |
165 | (assoc-ref %build-inputs "osip") "/include") | |
166 | "LIBOSIP2_LIBS=-losipparser2 -losip2" | |
167 | ,(string-append "--sysconfdir=" (assoc-ref %outputs "out") | |
168 | "/etc") | |
169 | "EXOSIP2_LIBS=-leXosip2" | |
170 | ,(string-append "EXOSIP2_CFLAGS=-I" | |
171 | (assoc-ref %build-inputs "exosip") | |
172 | "/include")))) | |
173 | (inputs `(("ucommon" ,ucommon) | |
174 | ("exosip" ,exosip) | |
175 | ("osip" ,osip))) | |
176 | (synopsis "Secure peer-to-peer VoIP server for the SIP protocol") | |
177 | (description "GNU SIP Witch is a peer-to-peer Voice-over-IP server that | |
178 | uses the SIP protocol. Calls can be made from behind NAT firewalls and | |
179 | without the need for a service provider. Its peer-to-peer design ensures that | |
180 | there is no central point for media intercept or capture and thus it can be | |
181 | used to construct a secure telephone system that operates over the public | |
182 | internet.") | |
183 | (license gpl3+) | |
184 | (home-page "http://www.gnu.org/software/sipwitch"))) | |
185 |