summaryrefslogtreecommitdiff
path: root/plugins/MirOTR/libgpg-error-1.9/lang
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/MirOTR/libgpg-error-1.9/lang')
-rw-r--r--plugins/MirOTR/libgpg-error-1.9/lang/README8
-rw-r--r--plugins/MirOTR/libgpg-error-1.9/lang/cl/README22
-rw-r--r--plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error-codes.lisp425
-rw-r--r--plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error-package.lisp64
-rw-r--r--plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.asd36
-rw-r--r--plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.asd.in36
-rw-r--r--plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.lisp233
-rw-r--r--plugins/MirOTR/libgpg-error-1.9/lang/cl/mkerrcodes.awk154
8 files changed, 0 insertions, 978 deletions
diff --git a/plugins/MirOTR/libgpg-error-1.9/lang/README b/plugins/MirOTR/libgpg-error-1.9/lang/README
deleted file mode 100644
index 2d13e21b93..0000000000
--- a/plugins/MirOTR/libgpg-error-1.9/lang/README
+++ /dev/null
@@ -1,8 +0,0 @@
-Language Support for libgpg-error
----------------------------------
-
-This directory contains support for other languages than C.
-
-Directory Language
-
-cl Common Lisp
diff --git a/plugins/MirOTR/libgpg-error-1.9/lang/cl/README b/plugins/MirOTR/libgpg-error-1.9/lang/cl/README
deleted file mode 100644
index 660508bd51..0000000000
--- a/plugins/MirOTR/libgpg-error-1.9/lang/cl/README
+++ /dev/null
@@ -1,22 +0,0 @@
-Common Lisp Support for libgpg-error
-------------------------------------
-
-Requirements:
-
-ASDF Packaging Support
-CFFI Foreign Function Interface
-
-Use with:
-
-> (asdf:operate 'asdf:load-op ':gpg-error)
-> (use-package :gpg-error)
-
-
-TODO
-----
-
-* We probably should define a condition base class. Currently, we do
- this in the user code only (eg in GPGME).
-
-* Some lispy convenience functions as need arises, for example for
- output.
diff --git a/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error-codes.lisp b/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error-codes.lisp
deleted file mode 100644
index 3ccb29708c..0000000000
--- a/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error-codes.lisp
+++ /dev/null
@@ -1,425 +0,0 @@
-;;;; Output of mkerrcodes.awk. DO NOT EDIT.
-
-;;; Copyright (C) 2006 g10 Code GmbH
-;;;
-;;; This file is part of libgpg-error.
-;;;
-;;; libgpg-error 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 2.1 of
-;;; the License, or (at your option) any later version.
-;;;
-;;; libgpg-error 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 libgpg-error; if not, write to the Free
-;;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;;; 02111-1307, USA.
-
-(in-package :gpg-error)
-
-;;; The error code type gpg-err-code-t.
-
-;;; This is used for system error codes.
-(defconstant +gpg-err-system-error+ (ash 1 15))
-
-;;; This is one more than the largest allowed entry.
-(defconstant +gpg-err-code-dim+ 65536)
-
-;;; A helper macro to have the keyword values evaluated.
-(defmacro defcenum-eval (type doc &rest vals)
- `(defcenum ,type ,doc
- ,@(loop for v in vals
- collect `(,(first v) ,(eval (second v))))))
-
-(defcenum-eval gpg-err-code-t
- "The GPG error code type."
- (:gpg-err-no-error 0)
- (:gpg-err-general 1)
- (:gpg-err-unknown-packet 2)
- (:gpg-err-unknown-version 3)
- (:gpg-err-pubkey-algo 4)
- (:gpg-err-digest-algo 5)
- (:gpg-err-bad-pubkey 6)
- (:gpg-err-bad-seckey 7)
- (:gpg-err-bad-signature 8)
- (:gpg-err-no-pubkey 9)
- (:gpg-err-checksum 10)
- (:gpg-err-bad-passphrase 11)
- (:gpg-err-cipher-algo 12)
- (:gpg-err-keyring-open 13)
- (:gpg-err-inv-packet 14)
- (:gpg-err-inv-armor 15)
- (:gpg-err-no-user-id 16)
- (:gpg-err-no-seckey 17)
- (:gpg-err-wrong-seckey 18)
- (:gpg-err-bad-key 19)
- (:gpg-err-compr-algo 20)
- (:gpg-err-no-prime 21)
- (:gpg-err-no-encoding-method 22)
- (:gpg-err-no-encryption-scheme 23)
- (:gpg-err-no-signature-scheme 24)
- (:gpg-err-inv-attr 25)
- (:gpg-err-no-value 26)
- (:gpg-err-not-found 27)
- (:gpg-err-value-not-found 28)
- (:gpg-err-syntax 29)
- (:gpg-err-bad-mpi 30)
- (:gpg-err-inv-passphrase 31)
- (:gpg-err-sig-class 32)
- (:gpg-err-resource-limit 33)
- (:gpg-err-inv-keyring 34)
- (:gpg-err-trustdb 35)
- (:gpg-err-bad-cert 36)
- (:gpg-err-inv-user-id 37)
- (:gpg-err-unexpected 38)
- (:gpg-err-time-conflict 39)
- (:gpg-err-keyserver 40)
- (:gpg-err-wrong-pubkey-algo 41)
- (:gpg-err-tribute-to-d-a 42)
- (:gpg-err-weak-key 43)
- (:gpg-err-inv-keylen 44)
- (:gpg-err-inv-arg 45)
- (:gpg-err-bad-uri 46)
- (:gpg-err-inv-uri 47)
- (:gpg-err-network 48)
- (:gpg-err-unknown-host 49)
- (:gpg-err-selftest-failed 50)
- (:gpg-err-not-encrypted 51)
- (:gpg-err-not-processed 52)
- (:gpg-err-unusable-pubkey 53)
- (:gpg-err-unusable-seckey 54)
- (:gpg-err-inv-value 55)
- (:gpg-err-bad-cert-chain 56)
- (:gpg-err-missing-cert 57)
- (:gpg-err-no-data 58)
- (:gpg-err-bug 59)
- (:gpg-err-not-supported 60)
- (:gpg-err-inv-op 61)
- (:gpg-err-timeout 62)
- (:gpg-err-internal 63)
- (:gpg-err-eof-gcrypt 64)
- (:gpg-err-inv-obj 65)
- (:gpg-err-too-short 66)
- (:gpg-err-too-large 67)
- (:gpg-err-no-obj 68)
- (:gpg-err-not-implemented 69)
- (:gpg-err-conflict 70)
- (:gpg-err-inv-cipher-mode 71)
- (:gpg-err-inv-flag 72)
- (:gpg-err-inv-handle 73)
- (:gpg-err-truncated 74)
- (:gpg-err-incomplete-line 75)
- (:gpg-err-inv-response 76)
- (:gpg-err-no-agent 77)
- (:gpg-err-agent 78)
- (:gpg-err-inv-data 79)
- (:gpg-err-assuan-server-fault 80)
- (:gpg-err-assuan 81)
- (:gpg-err-inv-session-key 82)
- (:gpg-err-inv-sexp 83)
- (:gpg-err-unsupported-algorithm 84)
- (:gpg-err-no-pin-entry 85)
- (:gpg-err-pin-entry 86)
- (:gpg-err-bad-pin 87)
- (:gpg-err-inv-name 88)
- (:gpg-err-bad-data 89)
- (:gpg-err-inv-parameter 90)
- (:gpg-err-wrong-card 91)
- (:gpg-err-no-dirmngr 92)
- (:gpg-err-dirmngr 93)
- (:gpg-err-cert-revoked 94)
- (:gpg-err-no-crl-known 95)
- (:gpg-err-crl-too-old 96)
- (:gpg-err-line-too-long 97)
- (:gpg-err-not-trusted 98)
- (:gpg-err-canceled 99)
- (:gpg-err-bad-ca-cert 100)
- (:gpg-err-cert-expired 101)
- (:gpg-err-cert-too-young 102)
- (:gpg-err-unsupported-cert 103)
- (:gpg-err-unknown-sexp 104)
- (:gpg-err-unsupported-protection 105)
- (:gpg-err-corrupted-protection 106)
- (:gpg-err-ambiguous-name 107)
- (:gpg-err-card 108)
- (:gpg-err-card-reset 109)
- (:gpg-err-card-removed 110)
- (:gpg-err-inv-card 111)
- (:gpg-err-card-not-present 112)
- (:gpg-err-no-pkcs15-app 113)
- (:gpg-err-not-confirmed 114)
- (:gpg-err-configuration 115)
- (:gpg-err-no-policy-match 116)
- (:gpg-err-inv-index 117)
- (:gpg-err-inv-id 118)
- (:gpg-err-no-scdaemon 119)
- (:gpg-err-scdaemon 120)
- (:gpg-err-unsupported-protocol 121)
- (:gpg-err-bad-pin-method 122)
- (:gpg-err-card-not-initialized 123)
- (:gpg-err-unsupported-operation 124)
- (:gpg-err-wrong-key-usage 125)
- (:gpg-err-nothing-found 126)
- (:gpg-err-wrong-blob-type 127)
- (:gpg-err-missing-value 128)
- (:gpg-err-hardware 129)
- (:gpg-err-pin-blocked 130)
- (:gpg-err-use-conditions 131)
- (:gpg-err-pin-not-synced 132)
- (:gpg-err-inv-crl 133)
- (:gpg-err-bad-ber 134)
- (:gpg-err-inv-ber 135)
- (:gpg-err-element-not-found 136)
- (:gpg-err-identifier-not-found 137)
- (:gpg-err-inv-tag 138)
- (:gpg-err-inv-length 139)
- (:gpg-err-inv-keyinfo 140)
- (:gpg-err-unexpected-tag 141)
- (:gpg-err-not-der-encoded 142)
- (:gpg-err-no-cms-obj 143)
- (:gpg-err-inv-cms-obj 144)
- (:gpg-err-unknown-cms-obj 145)
- (:gpg-err-unsupported-cms-obj 146)
- (:gpg-err-unsupported-encoding 147)
- (:gpg-err-unsupported-cms-version 148)
- (:gpg-err-unknown-algorithm 149)
- (:gpg-err-inv-engine 150)
- (:gpg-err-pubkey-not-trusted 151)
- (:gpg-err-decrypt-failed 152)
- (:gpg-err-key-expired 153)
- (:gpg-err-sig-expired 154)
- (:gpg-err-encoding-problem 155)
- (:gpg-err-inv-state 156)
- (:gpg-err-dup-value 157)
- (:gpg-err-missing-action 158)
- (:gpg-err-module-not-found 159)
- (:gpg-err-inv-oid-string 160)
- (:gpg-err-inv-time 161)
- (:gpg-err-inv-crl-obj 162)
- (:gpg-err-unsupported-crl-version 163)
- (:gpg-err-inv-cert-obj 164)
- (:gpg-err-unknown-name 165)
- (:gpg-err-locale-problem 166)
- (:gpg-err-not-locked 167)
- (:gpg-err-protocol-violation 168)
- (:gpg-err-inv-mac 169)
- (:gpg-err-inv-request 170)
- (:gpg-err-unknown-extn 171)
- (:gpg-err-unknown-crit-extn 172)
- (:gpg-err-locked 173)
- (:gpg-err-unknown-option 174)
- (:gpg-err-unknown-command 175)
- (:gpg-err-not-operational 176)
- (:gpg-err-no-passphrase 177)
- (:gpg-err-no-pin 178)
- (:gpg-err-not-enabled 179)
- (:gpg-err-no-engine 180)
- (:gpg-err-missing-key 181)
- (:gpg-err-too-many 182)
- (:gpg-err-limit-reached 183)
- (:gpg-err-unfinished 199)
- (:gpg-err-buffer-too-short 200)
- (:gpg-err-sexp-inv-len-spec 201)
- (:gpg-err-sexp-string-too-long 202)
- (:gpg-err-sexp-unmatched-paren 203)
- (:gpg-err-sexp-not-canonical 204)
- (:gpg-err-sexp-bad-character 205)
- (:gpg-err-sexp-bad-quotation 206)
- (:gpg-err-sexp-zero-prefix 207)
- (:gpg-err-sexp-nested-dh 208)
- (:gpg-err-sexp-unmatched-dh 209)
- (:gpg-err-sexp-unexpected-punc 210)
- (:gpg-err-sexp-bad-hex-char 211)
- (:gpg-err-sexp-odd-hex-numbers 212)
- (:gpg-err-sexp-bad-oct-char 213)
- (:gpg-err-ass-general 257)
- (:gpg-err-ass-accept-failed 258)
- (:gpg-err-ass-connect-failed 259)
- (:gpg-err-ass-inv-response 260)
- (:gpg-err-ass-inv-value 261)
- (:gpg-err-ass-incomplete-line 262)
- (:gpg-err-ass-line-too-long 263)
- (:gpg-err-ass-nested-commands 264)
- (:gpg-err-ass-no-data-cb 265)
- (:gpg-err-ass-no-inquire-cb 266)
- (:gpg-err-ass-not-a-server 267)
- (:gpg-err-ass-not-a-client 268)
- (:gpg-err-ass-server-start 269)
- (:gpg-err-ass-read-error 270)
- (:gpg-err-ass-write-error 271)
- (:gpg-err-ass-too-much-data 273)
- (:gpg-err-ass-unexpected-cmd 274)
- (:gpg-err-ass-unknown-cmd 275)
- (:gpg-err-ass-syntax 276)
- (:gpg-err-ass-canceled 277)
- (:gpg-err-ass-no-input 278)
- (:gpg-err-ass-no-output 279)
- (:gpg-err-ass-parameter 280)
- (:gpg-err-ass-unknown-inquire 281)
- (:gpg-err-user-1 1024)
- (:gpg-err-user-2 1025)
- (:gpg-err-user-3 1026)
- (:gpg-err-user-4 1027)
- (:gpg-err-user-5 1028)
- (:gpg-err-user-6 1029)
- (:gpg-err-user-7 1030)
- (:gpg-err-user-8 1031)
- (:gpg-err-user-9 1032)
- (:gpg-err-user-10 1033)
- (:gpg-err-user-11 1034)
- (:gpg-err-user-12 1035)
- (:gpg-err-user-13 1036)
- (:gpg-err-user-14 1037)
- (:gpg-err-user-15 1038)
- (:gpg-err-user-16 1039)
- (:gpg-err-missing-errno 16381)
- (:gpg-err-unknown-errno 16382)
- (:gpg-err-eof 16383)
-
- ;; The following error codes map system errors.
- (:gpg-err-e2big (logior +gpg-err-system-error+ 0))
- (:gpg-err-eacces (logior +gpg-err-system-error+ 1))
- (:gpg-err-eaddrinuse (logior +gpg-err-system-error+ 2))
- (:gpg-err-eaddrnotavail (logior +gpg-err-system-error+ 3))
- (:gpg-err-eadv (logior +gpg-err-system-error+ 4))
- (:gpg-err-eafnosupport (logior +gpg-err-system-error+ 5))
- (:gpg-err-eagain (logior +gpg-err-system-error+ 6))
- (:gpg-err-ealready (logior +gpg-err-system-error+ 7))
- (:gpg-err-eauth (logior +gpg-err-system-error+ 8))
- (:gpg-err-ebackground (logior +gpg-err-system-error+ 9))
- (:gpg-err-ebade (logior +gpg-err-system-error+ 10))
- (:gpg-err-ebadf (logior +gpg-err-system-error+ 11))
- (:gpg-err-ebadfd (logior +gpg-err-system-error+ 12))
- (:gpg-err-ebadmsg (logior +gpg-err-system-error+ 13))
- (:gpg-err-ebadr (logior +gpg-err-system-error+ 14))
- (:gpg-err-ebadrpc (logior +gpg-err-system-error+ 15))
- (:gpg-err-ebadrqc (logior +gpg-err-system-error+ 16))
- (:gpg-err-ebadslt (logior +gpg-err-system-error+ 17))
- (:gpg-err-ebfont (logior +gpg-err-system-error+ 18))
- (:gpg-err-ebusy (logior +gpg-err-system-error+ 19))
- (:gpg-err-ecanceled (logior +gpg-err-system-error+ 20))
- (:gpg-err-echild (logior +gpg-err-system-error+ 21))
- (:gpg-err-echrng (logior +gpg-err-system-error+ 22))
- (:gpg-err-ecomm (logior +gpg-err-system-error+ 23))
- (:gpg-err-econnaborted (logior +gpg-err-system-error+ 24))
- (:gpg-err-econnrefused (logior +gpg-err-system-error+ 25))
- (:gpg-err-econnreset (logior +gpg-err-system-error+ 26))
- (:gpg-err-ed (logior +gpg-err-system-error+ 27))
- (:gpg-err-edeadlk (logior +gpg-err-system-error+ 28))
- (:gpg-err-edeadlock (logior +gpg-err-system-error+ 29))
- (:gpg-err-edestaddrreq (logior +gpg-err-system-error+ 30))
- (:gpg-err-edied (logior +gpg-err-system-error+ 31))
- (:gpg-err-edom (logior +gpg-err-system-error+ 32))
- (:gpg-err-edotdot (logior +gpg-err-system-error+ 33))
- (:gpg-err-edquot (logior +gpg-err-system-error+ 34))
- (:gpg-err-eexist (logior +gpg-err-system-error+ 35))
- (:gpg-err-efault (logior +gpg-err-system-error+ 36))
- (:gpg-err-efbig (logior +gpg-err-system-error+ 37))
- (:gpg-err-eftype (logior +gpg-err-system-error+ 38))
- (:gpg-err-egratuitous (logior +gpg-err-system-error+ 39))
- (:gpg-err-egregious (logior +gpg-err-system-error+ 40))
- (:gpg-err-ehostdown (logior +gpg-err-system-error+ 41))
- (:gpg-err-ehostunreach (logior +gpg-err-system-error+ 42))
- (:gpg-err-eidrm (logior +gpg-err-system-error+ 43))
- (:gpg-err-eieio (logior +gpg-err-system-error+ 44))
- (:gpg-err-eilseq (logior +gpg-err-system-error+ 45))
- (:gpg-err-einprogress (logior +gpg-err-system-error+ 46))
- (:gpg-err-eintr (logior +gpg-err-system-error+ 47))
- (:gpg-err-einval (logior +gpg-err-system-error+ 48))
- (:gpg-err-eio (logior +gpg-err-system-error+ 49))
- (:gpg-err-eisconn (logior +gpg-err-system-error+ 50))
- (:gpg-err-eisdir (logior +gpg-err-system-error+ 51))
- (:gpg-err-eisnam (logior +gpg-err-system-error+ 52))
- (:gpg-err-el2hlt (logior +gpg-err-system-error+ 53))
- (:gpg-err-el2nsync (logior +gpg-err-system-error+ 54))
- (:gpg-err-el3hlt (logior +gpg-err-system-error+ 55))
- (:gpg-err-el3rst (logior +gpg-err-system-error+ 56))
- (:gpg-err-elibacc (logior +gpg-err-system-error+ 57))
- (:gpg-err-elibbad (logior +gpg-err-system-error+ 58))
- (:gpg-err-elibexec (logior +gpg-err-system-error+ 59))
- (:gpg-err-elibmax (logior +gpg-err-system-error+ 60))
- (:gpg-err-elibscn (logior +gpg-err-system-error+ 61))
- (:gpg-err-elnrng (logior +gpg-err-system-error+ 62))
- (:gpg-err-eloop (logior +gpg-err-system-error+ 63))
- (:gpg-err-emediumtype (logior +gpg-err-system-error+ 64))
- (:gpg-err-emfile (logior +gpg-err-system-error+ 65))
- (:gpg-err-emlink (logior +gpg-err-system-error+ 66))
- (:gpg-err-emsgsize (logior +gpg-err-system-error+ 67))
- (:gpg-err-emultihop (logior +gpg-err-system-error+ 68))
- (:gpg-err-enametoolong (logior +gpg-err-system-error+ 69))
- (:gpg-err-enavail (logior +gpg-err-system-error+ 70))
- (:gpg-err-eneedauth (logior +gpg-err-system-error+ 71))
- (:gpg-err-enetdown (logior +gpg-err-system-error+ 72))
- (:gpg-err-enetreset (logior +gpg-err-system-error+ 73))
- (:gpg-err-enetunreach (logior +gpg-err-system-error+ 74))
- (:gpg-err-enfile (logior +gpg-err-system-error+ 75))
- (:gpg-err-enoano (logior +gpg-err-system-error+ 76))
- (:gpg-err-enobufs (logior +gpg-err-system-error+ 77))
- (:gpg-err-enocsi (logior +gpg-err-system-error+ 78))
- (:gpg-err-enodata (logior +gpg-err-system-error+ 79))
- (:gpg-err-enodev (logior +gpg-err-system-error+ 80))
- (:gpg-err-enoent (logior +gpg-err-system-error+ 81))
- (:gpg-err-enoexec (logior +gpg-err-system-error+ 82))
- (:gpg-err-enolck (logior +gpg-err-system-error+ 83))
- (:gpg-err-enolink (logior +gpg-err-system-error+ 84))
- (:gpg-err-enomedium (logior +gpg-err-system-error+ 85))
- (:gpg-err-enomem (logior +gpg-err-system-error+ 86))
- (:gpg-err-enomsg (logior +gpg-err-system-error+ 87))
- (:gpg-err-enonet (logior +gpg-err-system-error+ 88))
- (:gpg-err-enopkg (logior +gpg-err-system-error+ 89))
- (:gpg-err-enoprotoopt (logior +gpg-err-system-error+ 90))
- (:gpg-err-enospc (logior +gpg-err-system-error+ 91))
- (:gpg-err-enosr (logior +gpg-err-system-error+ 92))
- (:gpg-err-enostr (logior +gpg-err-system-error+ 93))
- (:gpg-err-enosys (logior +gpg-err-system-error+ 94))
- (:gpg-err-enotblk (logior +gpg-err-system-error+ 95))
- (:gpg-err-enotconn (logior +gpg-err-system-error+ 96))
- (:gpg-err-enotdir (logior +gpg-err-system-error+ 97))
- (:gpg-err-enotempty (logior +gpg-err-system-error+ 98))
- (:gpg-err-enotnam (logior +gpg-err-system-error+ 99))
- (:gpg-err-enotsock (logior +gpg-err-system-error+ 100))
- (:gpg-err-enotsup (logior +gpg-err-system-error+ 101))
- (:gpg-err-enotty (logior +gpg-err-system-error+ 102))
- (:gpg-err-enotuniq (logior +gpg-err-system-error+ 103))
- (:gpg-err-enxio (logior +gpg-err-system-error+ 104))
- (:gpg-err-eopnotsupp (logior +gpg-err-system-error+ 105))
- (:gpg-err-eoverflow (logior +gpg-err-system-error+ 106))
- (:gpg-err-eperm (logior +gpg-err-system-error+ 107))
- (:gpg-err-epfnosupport (logior +gpg-err-system-error+ 108))
- (:gpg-err-epipe (logior +gpg-err-system-error+ 109))
- (:gpg-err-eproclim (logior +gpg-err-system-error+ 110))
- (:gpg-err-eprocunavail (logior +gpg-err-system-error+ 111))
- (:gpg-err-eprogmismatch (logior +gpg-err-system-error+ 112))
- (:gpg-err-eprogunavail (logior +gpg-err-system-error+ 113))
- (:gpg-err-eproto (logior +gpg-err-system-error+ 114))
- (:gpg-err-eprotonosupport (logior +gpg-err-system-error+ 115))
- (:gpg-err-eprototype (logior +gpg-err-system-error+ 116))
- (:gpg-err-erange (logior +gpg-err-system-error+ 117))
- (:gpg-err-eremchg (logior +gpg-err-system-error+ 118))
- (:gpg-err-eremote (logior +gpg-err-system-error+ 119))
- (:gpg-err-eremoteio (logior +gpg-err-system-error+ 120))
- (:gpg-err-erestart (logior +gpg-err-system-error+ 121))
- (:gpg-err-erofs (logior +gpg-err-system-error+ 122))
- (:gpg-err-erpcmismatch (logior +gpg-err-system-error+ 123))
- (:gpg-err-eshutdown (logior +gpg-err-system-error+ 124))
- (:gpg-err-esocktnosupport (logior +gpg-err-system-error+ 125))
- (:gpg-err-espipe (logior +gpg-err-system-error+ 126))
- (:gpg-err-esrch (logior +gpg-err-system-error+ 127))
- (:gpg-err-esrmnt (logior +gpg-err-system-error+ 128))
- (:gpg-err-estale (logior +gpg-err-system-error+ 129))
- (:gpg-err-estrpipe (logior +gpg-err-system-error+ 130))
- (:gpg-err-etime (logior +gpg-err-system-error+ 131))
- (:gpg-err-etimedout (logior +gpg-err-system-error+ 132))
- (:gpg-err-etoomanyrefs (logior +gpg-err-system-error+ 133))
- (:gpg-err-etxtbsy (logior +gpg-err-system-error+ 134))
- (:gpg-err-euclean (logior +gpg-err-system-error+ 135))
- (:gpg-err-eunatch (logior +gpg-err-system-error+ 136))
- (:gpg-err-eusers (logior +gpg-err-system-error+ 137))
- (:gpg-err-ewouldblock (logior +gpg-err-system-error+ 138))
- (:gpg-err-exdev (logior +gpg-err-system-error+ 139))
- (:gpg-err-exfull (logior +gpg-err-system-error+ 140))
-)
diff --git a/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error-package.lisp b/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error-package.lisp
deleted file mode 100644
index 73adca0d7e..0000000000
--- a/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error-package.lisp
+++ /dev/null
@@ -1,64 +0,0 @@
-;;;; libgpg-error-package.lisp
-
-;;; Copyright (C) 2006 g10 Code GmbH
-;;;
-;;; This file is part of libgpg-error.
-;;;
-;;; libgpg-error 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 2.1 of
-;;; the License, or (at your option) any later version.
-;;;
-;;; libgpg-error 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 libgpg-error; if not, write to the Free
-;;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;;; 02111-1307, USA.
-
-;;; Conventions
-;;;
-;;; Error sources and codes are represented as keywords like
-;;; :gpg-err-source-gpg and :gpg-err-unknown-packet.
-;;;
-;;; Errors are represented as lists '(SOURCE CODE). Other
-;;; representations are also accepted in some places.
-;;;
-;;; The following functions are defined which are not defined in the C API:
-;;; gpg-err-source-as-key, gpg-err-source-as-value
-;;; gpg-err-code-as-key, gpg-err-code-as-value
-;;; gpg-err-canonicalize, gpg-err-as-value
-;;; Conversion between keywords and values for error sources and codes.
-;;;
-;;; The following functions from the C API are omitted:
-;;; gpg-strerror-r
-;;;
-;;; The following features work slightly differently:
-;;; *gpg-err-source-default* is a dynamic variable that can be set to
-;;; change the default for gpg-error.
-
-(defpackage #:gpg-error
- (:use #:common-lisp #:cffi)
-
- (:export :gpg-err-code-as-key
- :gpg-err-code-as-value
- :gpg-err-source-as-key
- :gpg-err-source-as-value
- :gpg-err-canonicalize
- :gpg-err-as-value
- :gpg-err-make
- :*gpg-err-source-default*
- :gpg-error
- :gpg-err-code
- :gpg-err-source
- :gpg-strerror
- :gpg-strsource
- :gpg-err-code-from-errno
- :gpg-err-code-to-errno
- :gpg-err-code-from-syserror
- :gpg-err-make-from-errno
- :gpg-error-from-errno
- :gpg-error-from-syserror))
diff --git a/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.asd b/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.asd
deleted file mode 100644
index ec609af8cb..0000000000
--- a/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.asd
+++ /dev/null
@@ -1,36 +0,0 @@
-;;; -*- Mode: lisp -*-
-
-;;; Copyright (C) 2006 g10 Code GmbH
-;;;
-;;; This file is part of libgpg-error.
-;;;
-;;; libgpg-error 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 2.1 of
-;;; the License, or (at your option) any later version.
-;;;
-;;; libgpg-error 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 libgpg-error; if not, write to the Free
-;;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;;; 02111-1307, USA.
-
-(defpackage #:gpg-error-system
- (:use #:common-lisp #:asdf))
-
-(in-package #:gpg-error-system)
-
-(defsystem gpg-error
- :description "Common error values for all GnuPG components."
- :author "g10 Code GmbH"
- :version "1.9"
- :licence "LGPL"
- :depends-on ("cffi")
- :components ((:file "gpg-error-package")
- (:file "gpg-error-codes"
- :depends-on ("gpg-error-package"))
- (:file "gpg-error" :depends-on ("gpg-error-codes"))))
diff --git a/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.asd.in b/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.asd.in
deleted file mode 100644
index 3cb7e96b76..0000000000
--- a/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.asd.in
+++ /dev/null
@@ -1,36 +0,0 @@
-;;; -*- Mode: lisp -*-
-
-;;; Copyright (C) 2006 g10 Code GmbH
-;;;
-;;; This file is part of libgpg-error.
-;;;
-;;; libgpg-error 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 2.1 of
-;;; the License, or (at your option) any later version.
-;;;
-;;; libgpg-error 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 libgpg-error; if not, write to the Free
-;;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;;; 02111-1307, USA.
-
-(defpackage #:gpg-error-system
- (:use #:common-lisp #:asdf))
-
-(in-package #:gpg-error-system)
-
-(defsystem gpg-error
- :description "Common error values for all GnuPG components."
- :author "g10 Code GmbH"
- :version "@VERSION@"
- :licence "LGPL"
- :depends-on ("cffi")
- :components ((:file "gpg-error-package")
- (:file "gpg-error-codes"
- :depends-on ("gpg-error-package"))
- (:file "gpg-error" :depends-on ("gpg-error-codes"))))
diff --git a/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.lisp b/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.lisp
deleted file mode 100644
index cad2532dec..0000000000
--- a/plugins/MirOTR/libgpg-error-1.9/lang/cl/gpg-error.lisp
+++ /dev/null
@@ -1,233 +0,0 @@
-;;;; libgpg-error.lisp
-
-;;; Copyright (C) 2006 g10 Code GmbH
-;;;
-;;; This file is part of libgpg-error.
-;;;
-;;; libgpg-error 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 2.1 of
-;;; the License, or (at your option) any later version.
-;;;
-;;; libgpg-error 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 libgpg-error; if not, write to the Free
-;;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;;; 02111-1307, USA.
-
-;;; Set up the library.
-
-(in-package :gpg-error)
-
-(define-foreign-library libgpg-error
- (:unix "libgpg-error.so")
- (t (:default "libgpg-error")))
-
-(use-foreign-library libgpg-error)
-
-;;; System dependencies.
-
-(defctype size-t :unsigned-int "The system size_t type.")
-
-;;; Error sources.
-
-(defcenum gpg-err-source-t
- "The GPG error source type."
- (:gpg-err-source-unknown 0)
- (:gpg-err-source-gcrypt 1)
- (:gpg-err-source-gpg 2)
- (:gpg-err-source-gpgsm 3)
- (:gpg-err-source-gpgagent 4)
- (:gpg-err-source-pinentry 5)
- (:gpg-err-source-scd 6)
- (:gpg-err-source-gpgme 7)
- (:gpg-err-source-keybox 8)
- (:gpg-err-source-ksba 9)
- (:gpg-err-source-dirmngr 10)
- (:gpg-err-source-gsti 11)
- (:gpg-err-source-any 31)
- (:gpg-err-source-user-1 32)
- (:gpg-err-source-user-2 33)
- (:gpg-err-source-user-3 34)
- (:gpg-err-source-user-4 35))
-
-(defconstant +gpg-err-source-dim+ 256)
-
-;;; The error code type gpg-err-code-t.
-
-;;; libgpg-error-codes.lisp is loaded by ASDF.
-
-(defctype gpg-error-t :unsigned-int "The GPG error code type.")
-
-;;; Bit mask manipulation constants.
-
-(defconstant +gpg-err-code-mask+ (- +gpg-err-code-dim+ 1))
-
-(defconstant +gpg-err-source-mask+ (- +gpg-err-source-dim+ 1))
-(defconstant +gpg-err-source-shift+ 24)
-
-;;; Constructor and accessor functions.
-
-;;; If we had in-library versions of our static inlines, we wouldn't
-;;; need to replicate them here. Oh well.
-
-(defun c-gpg-err-make (source code)
- "Construct an error value from an error code and source.
- Within a subsystem, use gpg-error instead."
- (logior
- (ash (logand source +gpg-err-source-mask+)
- +gpg-err-source-shift+)
- (logand code +gpg-err-code-mask+)))
-
-(defun c-gpg-err-code (err)
- "retrieve the error code from an error value."
- (logand err +gpg-err-code-mask+))
-
-(defun c-gpg-err-source (err)
- "retrieve the error source from an error value."
- (logand (ash err (- +gpg-err-source-shift+))
- +gpg-err-source-mask+))
-
-;;; String functions.
-
-(defcfun ("gpg_strerror" c-gpg-strerror) :string
- (err gpg-error-t))
-
-(defcfun ("gpg_strsource" c-gpg-strsource) :string
- (err gpg-error-t))
-
-;;; Mapping of system errors (errno).
-
-(defcfun ("gpg_err_code_from_errno" c-gpg-err-code-from-errno) gpg-err-code-t
- (err :int))
-
-(defcfun ("gpg_err_code_to_errno" c-gpg-err-code-to-errno) :int
- (code gpg-err-code-t))
-
-(defcfun ("gpg_err_code_from_syserror"
- c-gpg-err-code-from-syserror) gpg-err-code-t)
-
-;;; Self-documenting convenience functions.
-
-;;; See below.
-
-;;;
-;;;
-;;; Lispy interface.
-;;;
-;;;
-
-;;; Low-level support functions.
-
-(defun gpg-err-code-as-value (code-key)
- (foreign-enum-value 'gpg-err-code-t code-key))
-
-(defun gpg-err-code-as-key (code)
- (foreign-enum-keyword 'gpg-err-code-t code))
-
-(defun gpg-err-source-as-value (source-key)
- (foreign-enum-value 'gpg-err-source-t source-key))
-
-(defun gpg-err-source-as-key (source)
- (foreign-enum-keyword 'gpg-err-source-t source))
-
-(defun gpg-err-canonicalize (err)
- "Canonicalize the error value err."
- (gpg-err-make (gpg-err-source err) (gpg-err-code err)))
-
-(defun gpg-err-as-value (err)
- "Get the integer representation of the error value ERR."
- (let ((error (gpg-err-canonicalize err)))
- (c-gpg-err-make (gpg-err-source-as-value (gpg-err-source error))
- (gpg-err-code-as-value (gpg-err-code error)))))
-
-;;; Constructor and accessor functions.
-
-(defun gpg-err-make (source code)
- "Construct an error value from an error code and source.
- Within a subsystem, use gpg-error instead."
- ;; As an exception to the rule, the function gpg-err-make will use
- ;; the error source value as is when provided as integer, instead of
- ;; parsing it as an error value.
- (list (if (integerp source)
- (gpg-err-source-as-key source)
- (gpg-err-source source))
- (gpg-err-code code)))
-
-(defvar *gpg-err-source-default* :gpg-err-source-unknown
- "define this to specify a default source for gpg-error.")
-
-(defun gpg-error (code)
- "Construct an error value from an error code, using the default source."
- (gpg-err-make *gpg-err-source-default* code))
-
-(defun gpg-err-code (err)
- "Retrieve an error code from the error value ERR."
- (cond ((listp err) (second err))
- ((keywordp err) err) ; FIXME
- (t (gpg-err-code-as-key (c-gpg-err-code err)))))
-
-(defun gpg-err-source (err)
- "Retrieve an error source from the error value ERR."
- (cond ((listp err) (first err))
- ((keywordp err) err) ; FIXME
- (t (gpg-err-source-as-key (c-gpg-err-source err)))))
-
-;;; String functions.
-
-(defun gpg-strerror (err)
- "Return a string containig a description of the error code."
- (c-gpg-strerror (gpg-err-as-value err)))
-
-;;; FIXME: maybe we should use this as the actual implementation for
-;;; gpg-strerror.
-
-;; (defcfun ("gpg_strerror_r" c-gpg-strerror-r) :int
-;; (err gpg-error-t)
-;; (buf :string)
-;; (buflen size-t))
-
-;; (defun gpg-strerror-r (err)
-;; "Return a string containig a description of the error code."
-;; (with-foreign-pointer-as-string (errmsg 256 errmsg-size)
-;; (c-gpg-strerror-r (gpg-err-code-as-value (gpg-err-code err))
-;; errmsg errmsg-size)))
-
-(defun gpg-strsource (err)
- "Return a string containig a description of the error source."
- (c-gpg-strsource (gpg-err-as-value err)))
-
-;;; Mapping of system errors (errno).
-
-(defun gpg-err-code-from-errno (err)
- "Retrieve the error code for the system error. If the system error
- is not mapped, :gpg-err-unknown-errno is returned."
- (gpg-err-code-as-key (c-gpg-err-code-from-errno err)))
-
-(defun gpg-err-code-to-errno (code)
- "Retrieve the system error for the error code. If this is not a
- system error, 0 is returned."
- (c-gpg-err-code-to-errno (gpg-err-code code)))
-
-(defun gpg-err-code-from-syserror ()
- "Retrieve the error code directly from the system ERRNO. If the system error
- is not mapped, :gpg-err-unknown-errno is returned and
- :gpg-err-missing-errno if ERRNO has the value 0."
- (gpg-err-code-as-key (c-gpg-err-code-from-syserror)))
-
-
-;;; Self-documenting convenience functions.
-
-(defun gpg-err-make-from-errno (source err)
- (gpg-err-make source (gpg-err-code-from-errno err)))
-
-(defun gpg-error-from-errno (err)
- (gpg-error (gpg-err-code-from-errno err)))
-
-(defun gpg-error-from-syserror ()
- (gpg-error (gpg-err-code-from-syserror)))
-
diff --git a/plugins/MirOTR/libgpg-error-1.9/lang/cl/mkerrcodes.awk b/plugins/MirOTR/libgpg-error-1.9/lang/cl/mkerrcodes.awk
deleted file mode 100644
index ae290435fc..0000000000
--- a/plugins/MirOTR/libgpg-error-1.9/lang/cl/mkerrcodes.awk
+++ /dev/null
@@ -1,154 +0,0 @@
-# mkerrcodes.awk
-# Copyright (C) 2004, 2005, 2006 g10 Code GmbH
-#
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License as
-# published by the Free Software Foundation; either version 2 of
-# the License, or (at your option) any later version.
-#
-# This program 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
-# General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
-#
-# As a special exception, g10 Code GmbH gives unlimited permission to
-# copy, distribute and modify the lisp source files that are the output
-# of mkerrcodes.awk. You need not follow the terms of the GNU General
-# Public License when using or distributing such scripts, even though
-# portions of the text of mkerrcodes.awk appear in them. The GNU
-# General Public License (GPL) does govern all other use of the material
-# that constitutes the mkerrcodes.awk program.
-#
-# Certain portions of the mkerrcodes.awk source text are designed to be
-# copied (in certain cases, depending on the input) into the output of
-# mkerrcodes.awk. We call these the "data" portions. The rest of the
-# mkerrcodes.awk source text consists of comments plus executable code
-# that decides which of the data portions to output in any given case.
-# We call these comments and executable code the "non-data" portions.
-# mkerrcodes.awk never copies any of the non-data portions into its output.
-#
-# This special exception to the GPL applies to versions of mkerrcodes.awk
-# released by g10 Code GmbH. When you make and distribute a modified version
-# of mkerrcodes.awk, you may extend this special exception to the GPL to
-# apply to your modified version as well, *unless* your modified version
-# has the potential to copy into its output some of the text that was the
-# non-data portion of the version that you started with. (In other words,
-# unless your change moves or copies text from the non-data portions to the
-# data portions.) If your modification has such potential, you must delete
-# any notice of this special exception to the GPL from your modified version.
-
-# The input file is in the following format:
-# [CODE SYMBOL...]
-# @errnos@
-# [CODE SYMBOL...]
-#
-# The difference between the sections is how symbol is transformed.
-# The second section gets GPG_ERR_ prepended before processing.
-#
-# Comments (starting with # and ending at the end of the line) are removed,
-# as is trailing whitespace.
-
-BEGIN {
- FS="[ \t]+";
- print ";;;; Output of mkerrcodes.awk. DO NOT EDIT.";
- print "";
- print ";;; Copyright (C) 2006 g10 Code GmbH";
- print ";;;";
- print ";;; This file is part of libgpg-error.";
- print ";;;";
- print ";;; libgpg-error is free software; you can redistribute it and/or";
- print ";;; modify it under the terms of the GNU Lesser General Public License";
- print ";;; as published by the Free Software Foundation; either version 2.1 of";
- print ";;; the License, or (at your option) any later version.";
- print ";;;";
- print ";;; libgpg-error is distributed in the hope that it will be useful, but";
- print ";;; WITHOUT ANY WARRANTY; without even the implied warranty of";
- print ";;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU";
- print ";;; Lesser General Public License for more details.";
- print ";;;";
- print ";;; You should have received a copy of the GNU Lesser General Public";
- print ";;; License along with libgpg-error; if not, write to the Free";
- print ";;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA";
- print ";;; 02111-1307, USA.";
- print "";
-
- header = 1;
- errnos = 0;
-}
-
-/^#/ { next; }
-
-header {
- if (errnos)
- {
- if ($1 ~ /^[0123456789]+$/)
- {
- header = 0;
-
- print "";
- print " ;; The following error codes map system errors.";
- }
- }
- else
- {
- if ($1 ~ /^[0123456789]+$/)
- {
- header = 0;
-
- print "(in-package :gpg-error)";
- print "";
- print ";;; The error code type gpg-err-code-t.";
- print "";
- print ";;; This is used for system error codes.";
- print "(defconstant +gpg-err-system-error+ (ash 1 15))";
- print "";
- print ";;; This is one more than the largest allowed entry.";
- print "(defconstant +gpg-err-code-dim+ 65536)";
- print "";
- print ";;; A helper macro to have the keyword values evaluated.";
- print "(defmacro defcenum-eval (type doc &rest vals)";
- print " `(defcenum ,type ,doc";
- print " ,@(loop for v in vals";
- print " collect `(,(first v) ,(eval (second v))))))";
- print "";
- print "(defcenum-eval gpg-err-code-t";
- print " \"The GPG error code type.\"";
- }
- }
-}
-
-!header {
- sub (/\#.+/, "");
- sub (/[ ]+$/, ""); # Strip trailing space and tab characters.
-
- if (/^$/)
- next;
-
- # The following can happen for GPG_ERR_CODE_DIM.
- if ($1 == "")
- next;
-
- if (/^@errnos@$/)
- {
- header = 1;
- errnos = 1;
- next;
- }
-
- $2 = tolower($2);
- gsub ("_", "-", $2);
-
- if (errnos)
- print " (:gpg-err-" $2 " (logior +gpg-err-system-error+ " $1 "))";
- else
- print " (:" $2 " " $1 ")";
-}
-
-END {
- # I am very sorry to break lisp coding style here.
- print ")";
-}