Lines Matching +defs:source +defs:key
38 (defcenum gpg-err-source-t
39 "The GPG error source type."
40 (:gpg-err-source-unknown 0)
41 (:gpg-err-source-gcrypt 1)
42 (:gpg-err-source-gpg 2)
43 (:gpg-err-source-gpgsm 3)
44 (:gpg-err-source-gpgagent 4)
45 (:gpg-err-source-pinentry 5)
46 (:gpg-err-source-scd 6)
47 (:gpg-err-source-gpgme 7)
48 (:gpg-err-source-keybox 8)
49 (:gpg-err-source-ksba 9)
50 (:gpg-err-source-dirmngr 10)
51 (:gpg-err-source-gsti 11)
52 (:gpg-err-source-any 31)
53 (:gpg-err-source-user-1 32)
54 (:gpg-err-source-user-2 33)
55 (:gpg-err-source-user-3 34)
56 (:gpg-err-source-user-4 35))
58 (defconstant +gpg-err-source-dim+ 256)
70 (defconstant +gpg-err-source-mask+ (- +gpg-err-source-dim+ 1))
71 (defconstant +gpg-err-source-shift+ 24)
78 (defun c-gpg-err-make (source code)
79 "Construct an error value from an error code and source.
82 (ash (logand source +gpg-err-source-mask+)
83 +gpg-err-source-shift+)
90 (defun c-gpg-err-source (err)
91 "retrieve the error source from an error value."
92 (logand (ash err (- +gpg-err-source-shift+))
93 +gpg-err-source-mask+))
126 (defun gpg-err-code-as-value (code-key)
127 (foreign-enum-value 'gpg-err-code-t code-key))
129 (defun gpg-err-code-as-key (code)
132 (defun gpg-err-source-as-value (source-key)
133 (foreign-enum-value 'gpg-err-source-t source-key))
135 (defun gpg-err-source-as-key (source)
136 (foreign-enum-keyword 'gpg-err-source-t source))
140 (gpg-err-make (gpg-err-source err) (gpg-err-code err)))
145 (c-gpg-err-make (gpg-err-source-as-value (gpg-err-source error))
150 (defun gpg-err-make (source code)
151 "Construct an error value from an error code and source.
154 ;; the error source value as is when provided as integer, instead of
156 (list (if (integerp source)
157 (gpg-err-source-as-key source)
158 (gpg-err-source source))
161 (defvar *gpg-err-source-default* :gpg-err-source-unknown
162 "define this to specify a default source for gpg-error.")
165 "Construct an error value from an error code, using the default source."
166 (gpg-err-make *gpg-err-source-default* code))
172 (t (gpg-err-code-as-key (c-gpg-err-code err)))))
174 (defun gpg-err-source (err)
175 "Retrieve an error source from the error value ERR."
178 (t (gpg-err-source-as-key (c-gpg-err-source err)))))
201 "Return a string containig a description of the error source."
209 (gpg-err-code-as-key (c-gpg-err-code-from-errno err)))
220 (gpg-err-code-as-key (c-gpg-err-code-from-syserror)))
225 (defun gpg-err-make-from-errno (source err)
226 (gpg-err-make source (gpg-err-code-from-errno err)))