aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2004-10-11 09:27:38 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2004-10-11 09:27:38 +0000
commitd3679a15efd295c1a94b2b8fed0eb80675f855a2 (patch)
treefa17c2f28fb408768b533da30f76318ac7e58214 /src
parentaf3432f5cc5c5d53887c485ae5b066212c14f6b6 (diff)
downloadgamma-d3679a15efd295c1a94b2b8fed0eb80675f855a2.tar.gz
gamma-d3679a15efd295c1a94b2b8fed0eb80675f855a2.tar.bz2
Initial import
Diffstat (limited to 'src')
-rw-r--r--src/.cvsignore13
-rw-r--r--src/Makefile.am102
-rw-r--r--src/gettext.sci38
-rw-r--r--src/sql.sci30
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

Return to:

Send suggestions and report system problems to the System administrator.