diff options
Diffstat (limited to 'libgpg-error-1.9/lang/cl')
| -rw-r--r-- | libgpg-error-1.9/lang/cl/Makefile | 451 | ||||
| -rw-r--r-- | libgpg-error-1.9/lang/cl/Makefile.am | 40 | ||||
| -rw-r--r-- | libgpg-error-1.9/lang/cl/Makefile.in | 451 | ||||
| -rw-r--r-- | libgpg-error-1.9/lang/cl/README | 22 | ||||
| -rw-r--r-- | libgpg-error-1.9/lang/cl/gpg-error-codes.lisp | 425 | ||||
| -rw-r--r-- | libgpg-error-1.9/lang/cl/gpg-error-package.lisp | 64 | ||||
| -rw-r--r-- | libgpg-error-1.9/lang/cl/gpg-error.asd | 36 | ||||
| -rw-r--r-- | libgpg-error-1.9/lang/cl/gpg-error.asd.in | 36 | ||||
| -rw-r--r-- | libgpg-error-1.9/lang/cl/gpg-error.lisp | 233 | ||||
| -rw-r--r-- | libgpg-error-1.9/lang/cl/mkerrcodes.awk | 154 |
10 files changed, 1912 insertions, 0 deletions
diff --git a/libgpg-error-1.9/lang/cl/Makefile b/libgpg-error-1.9/lang/cl/Makefile new file mode 100644 index 0000000..12cdda0 --- /dev/null +++ b/libgpg-error-1.9/lang/cl/Makefile @@ -0,0 +1,451 @@ +# Makefile.in generated by automake 1.10.2 from Makefile.am. +# lang/cl/Makefile. Generated from Makefile.in by configure. + +# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +# 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + + + +# Makefile.am for libgpg-error. +# Copyright (C) 2003, 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 this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + + +pkgdatadir = $(datadir)/libgpg-error +pkglibdir = $(libdir)/libgpg-error +pkgincludedir = $(includedir)/libgpg-error +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = i686-pc-mingw32 +host_triplet = i686-pc-mingw32 +subdir = lang/cl +DIST_COMMON = README $(dist_clfiles_DATA) $(srcdir)/Makefile.am \ + $(srcdir)/Makefile.in $(srcdir)/gpg-error.asd.in +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/m4/autobuild.m4 \ + $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \ + $(top_srcdir)/m4/lib-ld.m4 $(top_srcdir)/m4/lib-link.m4 \ + $(top_srcdir)/m4/lib-prefix.m4 $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ + $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ + $(top_srcdir)/m4/nls.m4 $(top_srcdir)/m4/po.m4 \ + $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs +CONFIG_HEADER = $(top_builddir)/config.h +CONFIG_CLEAN_FILES = gpg-error.asd +SOURCES = +DIST_SOURCES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = `echo $$p | sed -e 's|^.*/||'`; +am__installdirs = "$(DESTDIR)$(clfilesdir)" "$(DESTDIR)$(clfilesdir)" +dist_clfilesDATA_INSTALL = $(INSTALL_DATA) +nodist_clfilesDATA_INSTALL = $(INSTALL_DATA) +DATA = $(dist_clfiles_DATA) $(nodist_clfiles_DATA) +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = ${SHELL} /z/missing --run aclocal-1.10 +AMTAR = ${SHELL} /z/missing --run tar +AR = ar +AS = as +AUTOCONF = ${SHELL} /z/missing --run autoconf +AUTOHEADER = ${SHELL} /z/missing --run autoheader +AUTOMAKE = ${SHELL} /z/missing --run automake-1.10 +AWK = gawk +BUILD_FILEVERSION = 1,9,0,2 +BUILD_TIMESTAMP = 2010-08-12T17:56+0000 +CC = gcc +CCDEPMODE = depmode=gcc3 +CC_FOR_BUILD = gcc +CFLAGS = -g -O2 +CPP = gcc -E +CPPFLAGS = +CYGPATH_W = echo +DEFS = -DHAVE_CONFIG_H +DEPDIR = .deps +DLLTOOL = dlltool +DSYMUTIL = +DUMPBIN = +ECHO_C = +ECHO_N = -n +ECHO_T = +EGREP = /bin/grep -E +EXEEXT = .exe +FGREP = /bin/grep -F +GMSGFMT = /bin/msgfmt +GMSGFMT_015 = : +GPG_ERROR_CONFIG_CFLAGS = +GPG_ERROR_CONFIG_ISUBDIRAFTER = +GPG_ERROR_CONFIG_LIBS = -lgpg-error +GREP = /bin/grep +INSTALL = /bin/install -c +INSTALL_DATA = ${INSTALL} -m 644 +INSTALL_PROGRAM = ${INSTALL} +INSTALL_SCRIPT = ${INSTALL} +INSTALL_STRIP_PROGRAM = $(install_sh) -c -s +INTLLIBS = +INTL_MACOSX_LIBS = +LD = C:/MinGW/mingw32/bin/ld.exe +LDFLAGS = +LIBGPG_ERROR_LT_AGE = 7 +LIBGPG_ERROR_LT_CURRENT = 7 +LIBGPG_ERROR_LT_REVISION = 0 +LIBICONV = +LIBINTL = +LIBOBJS = +LIBS = +LIBTOOL = $(SHELL) $(top_builddir)/libtool +LIPO = +LN_S = cp -p +LTLIBICONV = +LTLIBINTL = +LTLIBOBJS = +MAINT = # +MAKEINFO = ${SHELL} /z/missing --run makeinfo +MKDIR_P = /bin/mkdir -p +MSGFMT = /bin/msgfmt +MSGFMT_015 = : +MSGMERGE = /bin/msgmerge +NM = /mingw/bin/nm +NMEDIT = +OBJDUMP = objdump +OBJEXT = o +OTOOL = +OTOOL64 = +PACKAGE = libgpg-error +PACKAGE_BUGREPORT = bug-gnupg@gnupg.org +PACKAGE_NAME = libgpg-error +PACKAGE_STRING = libgpg-error 1.9 +PACKAGE_TARNAME = libgpg-error +PACKAGE_URL = +PACKAGE_VERSION = 1.9 +PATH_SEPARATOR = : +POSUB = +RANLIB = ranlib +RC = windres +SED = /bin/sed +SET_MAKE = +SHELL = /bin/sh +STRIP = strip +USE_NLS = no +VERSION = 1.9 +XGETTEXT = : +XGETTEXT_015 = : +abs_builddir = /z/lang/cl +abs_srcdir = /z/lang/cl +abs_top_builddir = /z +abs_top_srcdir = /z +ac_ct_CC = gcc +ac_ct_DUMPBIN = +am__include = include +am__leading_dot = . +am__quote = +am__tar = ${AMTAR} chof - "$$tardir" +am__untar = ${AMTAR} xf - +bindir = ${exec_prefix}/bin +build = i686-pc-mingw32 +build_alias = +build_cpu = i686 +build_os = mingw32 +build_vendor = pc +builddir = . +datadir = ${datarootdir} +datarootdir = ${prefix}/share +docdir = ${datarootdir}/doc/${PACKAGE_TARNAME} +dvidir = ${docdir} +exec_prefix = ${prefix} +host = i686-pc-mingw32 +host_alias = +host_cpu = i686 +host_os = mingw32 +host_vendor = pc +htmldir = ${docdir} +includedir = ${prefix}/include +infodir = ${datarootdir}/info +install_sh = $(SHELL) /z/install-sh +libdir = ${exec_prefix}/lib +libexecdir = ${exec_prefix}/libexec +localedir = ${datarootdir}/locale +localstatedir = ${prefix}/var +lt_ECHO = echo +mandir = ${datarootdir}/man +mkdir_p = /bin/mkdir -p +oldincludedir = /usr/include +pdfdir = ${docdir} +prefix = /usr/local +program_transform_name = s,x,x, +psdir = ${docdir} +sbindir = ${exec_prefix}/sbin +sharedstatedir = ${prefix}/com +srcdir = . +sysconfdir = ${prefix}/etc +target_alias = +top_build_prefix = ../../ +top_builddir = ../.. +top_srcdir = ../.. +distributed_clfiles = gpg-error.asd \ + gpg-error-package.lisp gpg-error.lisp + +generated_clfiles = gpg-error-codes.lisp +clfiles = $(distributed_clfiles) $(generated_clfiles) + +# FIXME: Should be configurable. +clfilesdir = $(datadir)/common-lisp/source/gpg-error +dist_clfiles_DATA = $(distributed_clfiles) +nodist_clfiles_DATA = $(generated_clfiles) +EXTRA_DIST = README mkerrcodes.awk +CLEANFILES = gpg-error-codes.lisp +codes_file = $(top_srcdir)/src/err-codes.h.in +errno_file = $(top_srcdir)/src/errnos.in +all: all-am + +.SUFFIXES: +$(srcdir)/Makefile.in: # $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu lang/cl/Makefile'; \ + cd $(top_srcdir) && \ + $(AUTOMAKE) --gnu lang/cl/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: # $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): # $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +gpg-error.asd: $(top_builddir)/config.status $(srcdir)/gpg-error.asd.in + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs +install-dist_clfilesDATA: $(dist_clfiles_DATA) + @$(NORMAL_INSTALL) + test -z "$(clfilesdir)" || $(MKDIR_P) "$(DESTDIR)$(clfilesdir)" + @list='$(dist_clfiles_DATA)'; for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + f=$(am__strip_dir) \ + echo " $(dist_clfilesDATA_INSTALL) '$$d$$p' '$(DESTDIR)$(clfilesdir)/$$f'"; \ + $(dist_clfilesDATA_INSTALL) "$$d$$p" "$(DESTDIR)$(clfilesdir)/$$f"; \ + done + +uninstall-dist_clfilesDATA: + @$(NORMAL_UNINSTALL) + @list='$(dist_clfiles_DATA)'; for p in $$list; do \ + f=$(am__strip_dir) \ + echo " rm -f '$(DESTDIR)$(clfilesdir)/$$f'"; \ + rm -f "$(DESTDIR)$(clfilesdir)/$$f"; \ + done +install-nodist_clfilesDATA: $(nodist_clfiles_DATA) + @$(NORMAL_INSTALL) + test -z "$(clfilesdir)" || $(MKDIR_P) "$(DESTDIR)$(clfilesdir)" + @list='$(nodist_clfiles_DATA)'; for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + f=$(am__strip_dir) \ + echo " $(nodist_clfilesDATA_INSTALL) '$$d$$p' '$(DESTDIR)$(clfilesdir)/$$f'"; \ + $(nodist_clfilesDATA_INSTALL) "$$d$$p" "$(DESTDIR)$(clfilesdir)/$$f"; \ + done + +uninstall-nodist_clfilesDATA: + @$(NORMAL_UNINSTALL) + @list='$(nodist_clfiles_DATA)'; for p in $$list; do \ + f=$(am__strip_dir) \ + echo " rm -f '$(DESTDIR)$(clfilesdir)/$$f'"; \ + rm -f "$(DESTDIR)$(clfilesdir)/$$f"; \ + done +tags: TAGS +TAGS: + +ctags: CTAGS +CTAGS: + + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ + fi; \ + cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ + else \ + test -f $(distdir)/$$file \ + || cp -p $$d/$$file $(distdir)/$$file \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-am +all-am: Makefile $(DATA) +installdirs: + for dir in "$(DESTDIR)$(clfilesdir)" "$(DESTDIR)$(clfilesdir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install +mostlyclean-generic: + +clean-generic: + -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libtool mostlyclean-am + +distclean: distclean-am + -rm -f Makefile +distclean-am: clean-am distclean-generic + +dvi: dvi-am + +dvi-am: + +html: html-am + +info: info-am + +info-am: + +install-data-am: install-dist_clfilesDATA install-nodist_clfilesDATA + +install-dvi: install-dvi-am + +install-exec-am: + +install-html: install-html-am + +install-info: install-info-am + +install-man: + +install-pdf: install-pdf-am + +install-ps: install-ps-am + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-generic mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-dist_clfilesDATA uninstall-nodist_clfilesDATA + +.MAKE: install-am install-strip + +.PHONY: all all-am check check-am clean clean-generic clean-libtool \ + distclean distclean-generic distclean-libtool distdir dvi \ + dvi-am html html-am info info-am install install-am \ + install-data install-data-am install-dist_clfilesDATA \ + install-dvi install-dvi-am install-exec install-exec-am \ + install-html install-html-am install-info install-info-am \ + install-man install-nodist_clfilesDATA install-pdf \ + install-pdf-am install-ps install-ps-am install-strip \ + installcheck installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-generic \ + mostlyclean-libtool pdf pdf-am ps ps-am uninstall uninstall-am \ + uninstall-dist_clfilesDATA uninstall-nodist_clfilesDATA + + +gpg-error-codes.lisp: Makefile mkerrcodes.awk $(codes_file) $(errno_file) + echo '@errnos@' | cat $(codes_file) - $(errno_file) \ + | $(AWK) -f $(srcdir)/mkerrcodes.awk >$@ +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/libgpg-error-1.9/lang/cl/Makefile.am b/libgpg-error-1.9/lang/cl/Makefile.am new file mode 100644 index 0000000..0535fee --- /dev/null +++ b/libgpg-error-1.9/lang/cl/Makefile.am @@ -0,0 +1,40 @@ +# Makefile.am for libgpg-error. +# Copyright (C) 2003, 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 this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + +distributed_clfiles = gpg-error.asd \ + gpg-error-package.lisp gpg-error.lisp + +generated_clfiles = gpg-error-codes.lisp + +clfiles = $(distributed_clfiles) $(generated_clfiles) + +# FIXME: Should be configurable. +clfilesdir = $(datadir)/common-lisp/source/gpg-error +dist_clfiles_DATA = $(distributed_clfiles) +nodist_clfiles_DATA = $(generated_clfiles) + +EXTRA_DIST = README mkerrcodes.awk +CLEANFILES = gpg-error-codes.lisp + +codes_file = $(top_srcdir)/src/err-codes.h.in +errno_file = $(top_srcdir)/src/errnos.in + +gpg-error-codes.lisp: Makefile mkerrcodes.awk $(codes_file) $(errno_file) + echo '@errnos@' | cat $(codes_file) - $(errno_file) \ + | $(AWK) -f $(srcdir)/mkerrcodes.awk >$@ diff --git a/libgpg-error-1.9/lang/cl/Makefile.in b/libgpg-error-1.9/lang/cl/Makefile.in new file mode 100644 index 0000000..c432957 --- /dev/null +++ b/libgpg-error-1.9/lang/cl/Makefile.in @@ -0,0 +1,451 @@ +# Makefile.in generated by automake 1.10.2 from Makefile.am. +# @configure_input@ + +# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, +# 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +# This Makefile.in is free software; the Free Software Foundation +# gives unlimited permission to copy and/or distribute it, +# with or without modifications, as long as this notice is preserved. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY, to the extent permitted by law; without +# even the implied warranty of MERCHANTABILITY or FITNESS FOR A +# PARTICULAR PURPOSE. + +@SET_MAKE@ + +# Makefile.am for libgpg-error. +# Copyright (C) 2003, 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 this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA + +VPATH = @srcdir@ +pkgdatadir = $(datadir)/@PACKAGE@ +pkglibdir = $(libdir)/@PACKAGE@ +pkgincludedir = $(includedir)/@PACKAGE@ +am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd +install_sh_DATA = $(install_sh) -c -m 644 +install_sh_PROGRAM = $(install_sh) -c +install_sh_SCRIPT = $(install_sh) -c +INSTALL_HEADER = $(INSTALL_DATA) +transform = $(program_transform_name) +NORMAL_INSTALL = : +PRE_INSTALL = : +POST_INSTALL = : +NORMAL_UNINSTALL = : +PRE_UNINSTALL = : +POST_UNINSTALL = : +build_triplet = @build@ +host_triplet = @host@ +subdir = lang/cl +DIST_COMMON = README $(dist_clfiles_DATA) $(srcdir)/Makefile.am \ + $(srcdir)/Makefile.in $(srcdir)/gpg-error.asd.in +ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 +am__aclocal_m4_deps = $(top_srcdir)/m4/autobuild.m4 \ + $(top_srcdir)/m4/gettext.m4 $(top_srcdir)/m4/iconv.m4 \ + $(top_srcdir)/m4/lib-ld.m4 $(top_srcdir)/m4/lib-link.m4 \ + $(top_srcdir)/m4/lib-prefix.m4 $(top_srcdir)/m4/libtool.m4 \ + $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ + $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ + $(top_srcdir)/m4/nls.m4 $(top_srcdir)/m4/po.m4 \ + $(top_srcdir)/m4/progtest.m4 $(top_srcdir)/configure.ac +am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ + $(ACLOCAL_M4) +mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs +CONFIG_HEADER = $(top_builddir)/config.h +CONFIG_CLEAN_FILES = gpg-error.asd +SOURCES = +DIST_SOURCES = +am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; +am__vpath_adj = case $$p in \ + $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ + *) f=$$p;; \ + esac; +am__strip_dir = `echo $$p | sed -e 's|^.*/||'`; +am__installdirs = "$(DESTDIR)$(clfilesdir)" "$(DESTDIR)$(clfilesdir)" +dist_clfilesDATA_INSTALL = $(INSTALL_DATA) +nodist_clfilesDATA_INSTALL = $(INSTALL_DATA) +DATA = $(dist_clfiles_DATA) $(nodist_clfiles_DATA) +DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) +ACLOCAL = @ACLOCAL@ +AMTAR = @AMTAR@ +AR = @AR@ +AS = @AS@ +AUTOCONF = @AUTOCONF@ +AUTOHEADER = @AUTOHEADER@ +AUTOMAKE = @AUTOMAKE@ +AWK = @AWK@ +BUILD_FILEVERSION = @BUILD_FILEVERSION@ +BUILD_TIMESTAMP = @BUILD_TIMESTAMP@ +CC = @CC@ +CCDEPMODE = @CCDEPMODE@ +CC_FOR_BUILD = @CC_FOR_BUILD@ +CFLAGS = @CFLAGS@ +CPP = @CPP@ +CPPFLAGS = @CPPFLAGS@ +CYGPATH_W = @CYGPATH_W@ +DEFS = @DEFS@ +DEPDIR = @DEPDIR@ +DLLTOOL = @DLLTOOL@ +DSYMUTIL = @DSYMUTIL@ +DUMPBIN = @DUMPBIN@ +ECHO_C = @ECHO_C@ +ECHO_N = @ECHO_N@ +ECHO_T = @ECHO_T@ +EGREP = @EGREP@ +EXEEXT = @EXEEXT@ +FGREP = @FGREP@ +GMSGFMT = @GMSGFMT@ +GMSGFMT_015 = @GMSGFMT_015@ +GPG_ERROR_CONFIG_CFLAGS = @GPG_ERROR_CONFIG_CFLAGS@ +GPG_ERROR_CONFIG_ISUBDIRAFTER = @GPG_ERROR_CONFIG_ISUBDIRAFTER@ +GPG_ERROR_CONFIG_LIBS = @GPG_ERROR_CONFIG_LIBS@ +GREP = @GREP@ +INSTALL = @INSTALL@ +INSTALL_DATA = @INSTALL_DATA@ +INSTALL_PROGRAM = @INSTALL_PROGRAM@ +INSTALL_SCRIPT = @INSTALL_SCRIPT@ +INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ +INTLLIBS = @INTLLIBS@ +INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@ +LD = @LD@ +LDFLAGS = @LDFLAGS@ +LIBGPG_ERROR_LT_AGE = @LIBGPG_ERROR_LT_AGE@ +LIBGPG_ERROR_LT_CURRENT = @LIBGPG_ERROR_LT_CURRENT@ +LIBGPG_ERROR_LT_REVISION = @LIBGPG_ERROR_LT_REVISION@ +LIBICONV = @LIBICONV@ +LIBINTL = @LIBINTL@ +LIBOBJS = @LIBOBJS@ +LIBS = @LIBS@ +LIBTOOL = @LIBTOOL@ +LIPO = @LIPO@ +LN_S = @LN_S@ +LTLIBICONV = @LTLIBICONV@ +LTLIBINTL = @LTLIBINTL@ +LTLIBOBJS = @LTLIBOBJS@ +MAINT = @MAINT@ +MAKEINFO = @MAKEINFO@ +MKDIR_P = @MKDIR_P@ +MSGFMT = @MSGFMT@ +MSGFMT_015 = @MSGFMT_015@ +MSGMERGE = @MSGMERGE@ +NM = @NM@ +NMEDIT = @NMEDIT@ +OBJDUMP = @OBJDUMP@ +OBJEXT = @OBJEXT@ +OTOOL = @OTOOL@ +OTOOL64 = @OTOOL64@ +PACKAGE = @PACKAGE@ +PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ +PACKAGE_NAME = @PACKAGE_NAME@ +PACKAGE_STRING = @PACKAGE_STRING@ +PACKAGE_TARNAME = @PACKAGE_TARNAME@ +PACKAGE_URL = @PACKAGE_URL@ +PACKAGE_VERSION = @PACKAGE_VERSION@ +PATH_SEPARATOR = @PATH_SEPARATOR@ +POSUB = @POSUB@ +RANLIB = @RANLIB@ +RC = @RC@ +SED = @SED@ +SET_MAKE = @SET_MAKE@ +SHELL = @SHELL@ +STRIP = @STRIP@ +USE_NLS = @USE_NLS@ +VERSION = @VERSION@ +XGETTEXT = @XGETTEXT@ +XGETTEXT_015 = @XGETTEXT_015@ +abs_builddir = @abs_builddir@ +abs_srcdir = @abs_srcdir@ +abs_top_builddir = @abs_top_builddir@ +abs_top_srcdir = @abs_top_srcdir@ +ac_ct_CC = @ac_ct_CC@ +ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ +am__include = @am__include@ +am__leading_dot = @am__leading_dot@ +am__quote = @am__quote@ +am__tar = @am__tar@ +am__untar = @am__untar@ +bindir = @bindir@ +build = @build@ +build_alias = @build_alias@ +build_cpu = @build_cpu@ +build_os = @build_os@ +build_vendor = @build_vendor@ +builddir = @builddir@ +datadir = @datadir@ +datarootdir = @datarootdir@ +docdir = @docdir@ +dvidir = @dvidir@ +exec_prefix = @exec_prefix@ +host = @host@ +host_alias = @host_alias@ +host_cpu = @host_cpu@ +host_os = @host_os@ +host_vendor = @host_vendor@ +htmldir = @htmldir@ +includedir = @includedir@ +infodir = @infodir@ +install_sh = @install_sh@ +libdir = @libdir@ +libexecdir = @libexecdir@ +localedir = @localedir@ +localstatedir = @localstatedir@ +lt_ECHO = @lt_ECHO@ +mandir = @mandir@ +mkdir_p = @mkdir_p@ +oldincludedir = @oldincludedir@ +pdfdir = @pdfdir@ +prefix = @prefix@ +program_transform_name = @program_transform_name@ +psdir = @psdir@ +sbindir = @sbindir@ +sharedstatedir = @sharedstatedir@ +srcdir = @srcdir@ +sysconfdir = @sysconfdir@ +target_alias = @target_alias@ +top_build_prefix = @top_build_prefix@ +top_builddir = @top_builddir@ +top_srcdir = @top_srcdir@ +distributed_clfiles = gpg-error.asd \ + gpg-error-package.lisp gpg-error.lisp + +generated_clfiles = gpg-error-codes.lisp +clfiles = $(distributed_clfiles) $(generated_clfiles) + +# FIXME: Should be configurable. +clfilesdir = $(datadir)/common-lisp/source/gpg-error +dist_clfiles_DATA = $(distributed_clfiles) +nodist_clfiles_DATA = $(generated_clfiles) +EXTRA_DIST = README mkerrcodes.awk +CLEANFILES = gpg-error-codes.lisp +codes_file = $(top_srcdir)/src/err-codes.h.in +errno_file = $(top_srcdir)/src/errnos.in +all: all-am + +.SUFFIXES: +$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) + @for dep in $?; do \ + case '$(am__configure_deps)' in \ + *$$dep*) \ + ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ + && { if test -f $@; then exit 0; else break; fi; }; \ + exit 1;; \ + esac; \ + done; \ + echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu lang/cl/Makefile'; \ + cd $(top_srcdir) && \ + $(AUTOMAKE) --gnu lang/cl/Makefile +.PRECIOUS: Makefile +Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status + @case '$?' in \ + *config.status*) \ + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ + *) \ + echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ + esac; + +$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh + +$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) + cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh +gpg-error.asd: $(top_builddir)/config.status $(srcdir)/gpg-error.asd.in + cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ + +mostlyclean-libtool: + -rm -f *.lo + +clean-libtool: + -rm -rf .libs _libs +install-dist_clfilesDATA: $(dist_clfiles_DATA) + @$(NORMAL_INSTALL) + test -z "$(clfilesdir)" || $(MKDIR_P) "$(DESTDIR)$(clfilesdir)" + @list='$(dist_clfiles_DATA)'; for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + f=$(am__strip_dir) \ + echo " $(dist_clfilesDATA_INSTALL) '$$d$$p' '$(DESTDIR)$(clfilesdir)/$$f'"; \ + $(dist_clfilesDATA_INSTALL) "$$d$$p" "$(DESTDIR)$(clfilesdir)/$$f"; \ + done + +uninstall-dist_clfilesDATA: + @$(NORMAL_UNINSTALL) + @list='$(dist_clfiles_DATA)'; for p in $$list; do \ + f=$(am__strip_dir) \ + echo " rm -f '$(DESTDIR)$(clfilesdir)/$$f'"; \ + rm -f "$(DESTDIR)$(clfilesdir)/$$f"; \ + done +install-nodist_clfilesDATA: $(nodist_clfiles_DATA) + @$(NORMAL_INSTALL) + test -z "$(clfilesdir)" || $(MKDIR_P) "$(DESTDIR)$(clfilesdir)" + @list='$(nodist_clfiles_DATA)'; for p in $$list; do \ + if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ + f=$(am__strip_dir) \ + echo " $(nodist_clfilesDATA_INSTALL) '$$d$$p' '$(DESTDIR)$(clfilesdir)/$$f'"; \ + $(nodist_clfilesDATA_INSTALL) "$$d$$p" "$(DESTDIR)$(clfilesdir)/$$f"; \ + done + +uninstall-nodist_clfilesDATA: + @$(NORMAL_UNINSTALL) + @list='$(nodist_clfiles_DATA)'; for p in $$list; do \ + f=$(am__strip_dir) \ + echo " rm -f '$(DESTDIR)$(clfilesdir)/$$f'"; \ + rm -f "$(DESTDIR)$(clfilesdir)/$$f"; \ + done +tags: TAGS +TAGS: + +ctags: CTAGS +CTAGS: + + +distdir: $(DISTFILES) + @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ + list='$(DISTFILES)'; \ + dist_files=`for file in $$list; do echo $$file; done | \ + sed -e "s|^$$srcdirstrip/||;t" \ + -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ + case $$dist_files in \ + */*) $(MKDIR_P) `echo "$$dist_files" | \ + sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ + sort -u` ;; \ + esac; \ + for file in $$dist_files; do \ + if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ + if test -d $$d/$$file; then \ + dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ + if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ + cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \ + fi; \ + cp -pR $$d/$$file $(distdir)$$dir || exit 1; \ + else \ + test -f $(distdir)/$$file \ + || cp -p $$d/$$file $(distdir)/$$file \ + || exit 1; \ + fi; \ + done +check-am: all-am +check: check-am +all-am: Makefile $(DATA) +installdirs: + for dir in "$(DESTDIR)$(clfilesdir)" "$(DESTDIR)$(clfilesdir)"; do \ + test -z "$$dir" || $(MKDIR_P) "$$dir"; \ + done +install: install-am +install-exec: install-exec-am +install-data: install-data-am +uninstall: uninstall-am + +install-am: all-am + @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am + +installcheck: installcheck-am +install-strip: + $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ + install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ + `test -z '$(STRIP)' || \ + echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install +mostlyclean-generic: + +clean-generic: + -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) + +distclean-generic: + -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) + +maintainer-clean-generic: + @echo "This command is intended for maintainers to use" + @echo "it deletes files that may require special tools to rebuild." +clean: clean-am + +clean-am: clean-generic clean-libtool mostlyclean-am + +distclean: distclean-am + -rm -f Makefile +distclean-am: clean-am distclean-generic + +dvi: dvi-am + +dvi-am: + +html: html-am + +info: info-am + +info-am: + +install-data-am: install-dist_clfilesDATA install-nodist_clfilesDATA + +install-dvi: install-dvi-am + +install-exec-am: + +install-html: install-html-am + +install-info: install-info-am + +install-man: + +install-pdf: install-pdf-am + +install-ps: install-ps-am + +installcheck-am: + +maintainer-clean: maintainer-clean-am + -rm -f Makefile +maintainer-clean-am: distclean-am maintainer-clean-generic + +mostlyclean: mostlyclean-am + +mostlyclean-am: mostlyclean-generic mostlyclean-libtool + +pdf: pdf-am + +pdf-am: + +ps: ps-am + +ps-am: + +uninstall-am: uninstall-dist_clfilesDATA uninstall-nodist_clfilesDATA + +.MAKE: install-am install-strip + +.PHONY: all all-am check check-am clean clean-generic clean-libtool \ + distclean distclean-generic distclean-libtool distdir dvi \ + dvi-am html html-am info info-am install install-am \ + install-data install-data-am install-dist_clfilesDATA \ + install-dvi install-dvi-am install-exec install-exec-am \ + install-html install-html-am install-info install-info-am \ + install-man install-nodist_clfilesDATA install-pdf \ + install-pdf-am install-ps install-ps-am install-strip \ + installcheck installcheck-am installdirs maintainer-clean \ + maintainer-clean-generic mostlyclean mostlyclean-generic \ + mostlyclean-libtool pdf pdf-am ps ps-am uninstall uninstall-am \ + uninstall-dist_clfilesDATA uninstall-nodist_clfilesDATA + + +gpg-error-codes.lisp: Makefile mkerrcodes.awk $(codes_file) $(errno_file) + echo '@errnos@' | cat $(codes_file) - $(errno_file) \ + | $(AWK) -f $(srcdir)/mkerrcodes.awk >$@ +# Tell versions [3.59,3.63) of GNU make to not export all variables. +# Otherwise a system limit (for SysV at least) may be exceeded. +.NOEXPORT: diff --git a/libgpg-error-1.9/lang/cl/README b/libgpg-error-1.9/lang/cl/README new file mode 100644 index 0000000..660508b --- /dev/null +++ b/libgpg-error-1.9/lang/cl/README @@ -0,0 +1,22 @@ +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/libgpg-error-1.9/lang/cl/gpg-error-codes.lisp b/libgpg-error-1.9/lang/cl/gpg-error-codes.lisp new file mode 100644 index 0000000..3ccb297 --- /dev/null +++ b/libgpg-error-1.9/lang/cl/gpg-error-codes.lisp @@ -0,0 +1,425 @@ +;;;; 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/libgpg-error-1.9/lang/cl/gpg-error-package.lisp b/libgpg-error-1.9/lang/cl/gpg-error-package.lisp new file mode 100644 index 0000000..73adca0 --- /dev/null +++ b/libgpg-error-1.9/lang/cl/gpg-error-package.lisp @@ -0,0 +1,64 @@ +;;;; 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/libgpg-error-1.9/lang/cl/gpg-error.asd b/libgpg-error-1.9/lang/cl/gpg-error.asd new file mode 100644 index 0000000..ec609af --- /dev/null +++ b/libgpg-error-1.9/lang/cl/gpg-error.asd @@ -0,0 +1,36 @@ +;;; -*- 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/libgpg-error-1.9/lang/cl/gpg-error.asd.in b/libgpg-error-1.9/lang/cl/gpg-error.asd.in new file mode 100644 index 0000000..3cb7e96 --- /dev/null +++ b/libgpg-error-1.9/lang/cl/gpg-error.asd.in @@ -0,0 +1,36 @@ +;;; -*- 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/libgpg-error-1.9/lang/cl/gpg-error.lisp b/libgpg-error-1.9/lang/cl/gpg-error.lisp new file mode 100644 index 0000000..cad2532 --- /dev/null +++ b/libgpg-error-1.9/lang/cl/gpg-error.lisp @@ -0,0 +1,233 @@ +;;;; 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/libgpg-error-1.9/lang/cl/mkerrcodes.awk b/libgpg-error-1.9/lang/cl/mkerrcodes.awk new file mode 100644 index 0000000..ae29043 --- /dev/null +++ b/libgpg-error-1.9/lang/cl/mkerrcodes.awk @@ -0,0 +1,154 @@ +# 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 ")"; +} |