Blame lang/cl/gpg-error-package.lisp

Packit fc043f
;;;; libgpg-error-package.lisp
Packit fc043f
Packit fc043f
;;; Copyright (C) 2006 g10 Code GmbH
Packit fc043f
;;;
Packit fc043f
;;; This file is part of libgpg-error.
Packit fc043f
;;;
Packit fc043f
;;; libgpg-error is free software; you can redistribute it and/or
Packit fc043f
;;; modify it under the terms of the GNU Lesser General Public License
Packit fc043f
;;; as published by the Free Software Foundation; either version 2.1 of
Packit fc043f
;;; the License, or (at your option) any later version.
Packit fc043f
;;;
Packit fc043f
;;; libgpg-error is distributed in the hope that it will be useful, but
Packit fc043f
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
Packit fc043f
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Packit fc043f
;;; Lesser General Public License for more details.
Packit fc043f
;;;
Packit fc043f
;;; You should have received a copy of the GNU Lesser General Public
Packit fc043f
;;; License along with libgpg-error; if not, write to the Free
Packit fc043f
;;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
Packit fc043f
;;; 02111-1307, USA.
Packit fc043f
Packit fc043f
;;; Conventions
Packit fc043f
;;;
Packit fc043f
;;; Error sources and codes are represented as keywords like
Packit fc043f
;;; :gpg-err-source-gpg and :gpg-err-unknown-packet.
Packit fc043f
;;;
Packit fc043f
;;; Errors are represented as lists '(SOURCE CODE).  Other
Packit fc043f
;;; representations are also accepted in some places.
Packit fc043f
;;;
Packit fc043f
;;; The following functions are defined which are not defined in the C API:
Packit fc043f
;;; gpg-err-source-as-key, gpg-err-source-as-value
Packit fc043f
;;; gpg-err-code-as-key, gpg-err-code-as-value
Packit fc043f
;;; gpg-err-canonicalize, gpg-err-as-value
Packit fc043f
;;; Conversion between keywords and values for error sources and codes.
Packit fc043f
;;; 
Packit fc043f
;;; The following functions from the C API are omitted:
Packit fc043f
;;; gpg-strerror-r
Packit fc043f
;;;
Packit fc043f
;;; The following features work slightly differently:
Packit fc043f
;;; *gpg-err-source-default* is a dynamic variable that can be set to
Packit fc043f
;;; change the default for gpg-error.
Packit fc043f
Packit fc043f
(defpackage #:gpg-error
Packit fc043f
  (:use #:common-lisp #:cffi)
Packit fc043f
Packit fc043f
  (:export :gpg-err-code-as-key
Packit fc043f
	   :gpg-err-code-as-value
Packit fc043f
	   :gpg-err-source-as-key
Packit fc043f
	   :gpg-err-source-as-value
Packit fc043f
	   :gpg-err-canonicalize
Packit fc043f
	   :gpg-err-as-value
Packit fc043f
	   :gpg-err-make
Packit fc043f
	   :*gpg-err-source-default*
Packit fc043f
	   :gpg-error
Packit fc043f
	   :gpg-err-code
Packit fc043f
	   :gpg-err-source
Packit fc043f
	   :gpg-strerror
Packit fc043f
	   :gpg-strsource
Packit fc043f
	   :gpg-err-code-from-errno
Packit fc043f
	   :gpg-err-code-to-errno
Packit fc043f
           :gpg-err-code-from-syserror
Packit fc043f
	   :gpg-err-make-from-errno
Packit fc043f
	   :gpg-error-from-errno
Packit fc043f
           :gpg-error-from-syserror))