diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-11 09:27:38 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-10-11 09:27:38 +0000 |
commit | d3679a15efd295c1a94b2b8fed0eb80675f855a2 (patch) | |
tree | fa17c2f28fb408768b533da30f76318ac7e58214 /src | |
parent | af3432f5cc5c5d53887c485ae5b066212c14f6b6 (diff) | |
download | gamma-d3679a15efd295c1a94b2b8fed0eb80675f855a2.tar.gz gamma-d3679a15efd295c1a94b2b8fed0eb80675f855a2.tar.bz2 |
Initial import
Diffstat (limited to 'src')
-rw-r--r-- | src/.cvsignore | 13 | ||||
-rw-r--r-- | src/Makefile.am | 102 | ||||
-rw-r--r-- | src/gettext.sci | 38 | ||||
-rw-r--r-- | src/sql.sci | 30 |
4 files changed, 183 insertions, 0 deletions
diff --git a/src/.cvsignore b/src/.cvsignore new file mode 100644 index 0000000..4af8766 --- /dev/null +++ b/src/.cvsignore @@ -0,0 +1,13 @@ +Makefile.in +Makefile +.deps +*.x +*.doc +*.lo +.libs +*.la +guile-procedures.txt +gsql_conn.inc +gsql_lib.inc +sql.scm + diff --git a/src/Makefile.am b/src/Makefile.am new file mode 100644 index 0000000..8523b19 --- /dev/null +++ b/src/Makefile.am @@ -0,0 +1,102 @@ +# This file is part of guile-sql. +# Copyright (C) 2002, Sergey Poznyakoff +# +# This file is free software; as a special exception the author 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. + +INCLUDES =-I$(top_builddir) -I$(srcdir) -I. @GUILE_INCLUDES@ @INCLUDEPATH@ + +LIB_SQL=libguile-sql.la +LIB_GETTEXT=libguile-gettext.la + +EXTRA_LTLIBRARIES=libguile-sql.la libguile-gettext.la + +lib_LTLIBRARIES=@BUILD_LIBS@ +libguile_sql_la_LIBADD = @LTLIBOBJS@ @GUILE_LIBS@ +libguile_sql_la_SOURCES=\ + gsql_conn.c\ + gsql_lib.c + +libguile_sql_la_LDFLAGS = -rpath $(libdir) -version-info 0:0:0 + +libguile_gettext_la_LIBADD = @GUILE_LIBS@ @LTLIBINTL@ +libguile_gettext_la_SOURCES = gettext.c + +libguile_gettext_la_LDFLAGS = -rpath $(libdir) -version-info 0:0:0 + + +noinst_HEADERS=guile-sql.h app.h gettext.h +EXTRA_DIST=sql.sci gettext.sci + +.sci.scm: + m4 -DVERSION=$(VERSION) -DLIBDIR=$(libdir) \ + -DBUILDDIR="`pwd`" $< > $@ + +sql.scm: $(libguile_sql_la_SOURCES:.c=.inc) +gettext.scm: $(libguile_gettext_la_SOURCES:.c=.inc) + +SCM_SQL=sql.scm +X_SQL=gsql_conn.x + +SCM_GETTEXT=gettext.scm +X_GETTEXT=gettext.x + +guiledir=$(GUILE_SITE)/$(PACKAGE) +guile_DATA=guile-procedures.txt @BUILD_DATA@ +DOT_X_FILES=@BUILD_X@ +DOT_DOC_FILES=$(DOT_X_FILES:.x=.doc) +CLEANFILES=*.inc *.x *.doc + +BUILT_SOURCES=$(DOT_X_FILES) $(DOT_DOC_FILES) + +DISTCLEANFILES=$(BUILT_SOURCES) guile-procedures.txt @BUILD_DATA@ + +AM_CPPFLAGS=-DDATADIR=\"$(guiledir)\" +ETAGS_ARGS = --regex='/SCM_\(GLOBAL_\)?\(G?PROC\|G?PROC1\|SYMBOL\|VCELL\|CONST_LONG\).*\"\([^\"]\)*\"/\3/' \ + --regex='/[ \t]*SCM_[G]?DEFINE1?[ \t]*(\([^,]*\),[^,]*/\1/' + +GUILE_DOC_SNARF=$(top_srcdir)/scripts/guile-doc-snarf +SUFFIXES=.x .doc .inc .sci .scm + +.c.x: + AWK=$(AWK) \ + $(GUILE_DOC_SNARF) -o $@ \ + $< $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) + +.c.doc: + AWK=$(AWK) \ + $(GUILE_DOC_SNARF) -d -o $@ \ + $< $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) + +.c.inc: + sed -n 's/SCM_DEFINE *(.[^,]*, *\"\([^"][^"]*\)\".*/[(export \1)]/p' $< > $@ + +guile-procedures.txt: $(DOT_DOC_FILES) + cat $(DOT_DOC_FILES) > $@ + +## Add -MG to make the .x magic work with auto-dep code. +MKDEP = $(CC) -M -MG $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS) + +install-sql-hook: + @here=`pwd` + cd $(DESTDIR)$(libdir);\ + if test -f libguile-sql.so; then \ + $(LN_S) -f libguile-sql.so libguile-sql-v-$(VERSION).so; \ + fi; \ + cd $$here + +install-gettext-hook: + @here=`pwd` + cd $(DESTDIR)$(libdir);\ + if test -f libguile-gettext.so; then \ + $(LN_S) -f libguile-gettext.so libguile-gettext-v-$(VERSION).so; \ + fi; \ + cd $$here + +install-data-hook: @INSTALL_HOOKS@ + diff --git a/src/gettext.sci b/src/gettext.sci new file mode 100644 index 0000000..51fd61f --- /dev/null +++ b/src/gettext.sci @@ -0,0 +1,38 @@ +;;;; -*- scheme -*- +;;;; This file is part of gettext interface for guile. +;;;; Copyright (C) 2004 Sergey Poznyakoff +;;;; +;;;; 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. + +changequote([,])dnl + +(define-module (gamma gettext)) + +(let ((lib-path "LIBDIR/")) + (load-extension (string-append + lib-path "libguile-gettext-v-VERSION") "gettext_init")) + +include(BUILDDIR/gettext.inc) + +(define (_ msgid) + (gettext msgid)) + +(define (N_ msgid) + msgid) + +(export _) +(export N_) + +;;;; EOF diff --git a/src/sql.sci b/src/sql.sci new file mode 100644 index 0000000..2f47b22 --- /dev/null +++ b/src/sql.sci @@ -0,0 +1,30 @@ +;;;; -*- scheme -*- +;;;; This file is part of guile-sql. +;;;; Copyright (C) 2002 Sergey Poznyakoff +;;;; +;;;; 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. + +changequote([,])dnl + +(define-module (gamma sql)) + +(let ((lib-path "LIBDIR/")) + (load-extension (string-append + lib-path "libguile-sql-v-VERSION") "sql_init")) + +include(BUILDDIR/gsql_lib.inc) +include(BUILDDIR/gsql_conn.inc) + +;;;; End of sql.scm |