/
packages.lisp
65 lines (61 loc) · 1.62 KB
/
packages.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
;; Copyright 2009 Matt Keller
;;
;; This file is part of cl-sip.
;;
;; cl-sip is free software: you can redistribute it and/or modify it
;; under the terms of the GNU Lesser General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.
;;
;; cl-sip is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Lesser General Public License for more details.
;;
;; You should have received a copy of the GNU Lesser General Public
;; License along with cl-sip. If not, see
;; <http://www.gnu.org/licenses/>.
(defpackage :cl-sip.util
(:use :common-lisp
:cl-ppcre)
(:export :it
:aif
:awhen
:symbol-name-alist
:trim-ws
:join-str
:make-keyword
:scan-to-stringz
:read-new-value
:alist-push-uniq))
(defpackage :cl-sip.msg
(:use :common-lisp
:cl-ppcre
:cl-sip.util
:stefil)
(:export :msg
:version
:headers
:bodies
:emit
:has-header
:add-header
:response
:status-code
:sip-uri
:scheme
:user-info
:host
:ip
:port
:uri-parms
:sip-parse-error
:parse-msg
:parse-uri))
(defpackage :cl-sip.client
(:use :common-lisp
:cl-sip.util
:cl-sip.msg)
(:export :make-client
:call
:answer))