summaryrefslogtreecommitdiffabout
authorSergey Poznyakoff <gray@gnu.org.ua>2004-10-11 09:27:38 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2004-10-11 09:27:38 (GMT)
commitd3679a15efd295c1a94b2b8fed0eb80675f855a2 (patch) (side-by-side diff)
treefa17c2f28fb408768b533da30f76318ac7e58214
parentaf3432f5cc5c5d53887c485ae5b066212c14f6b6 (diff)
downloadgamma-d3679a15efd295c1a94b2b8fed0eb80675f855a2.tar.gz
gamma-d3679a15efd295c1a94b2b8fed0eb80675f855a2.tar.bz2
Initial import
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--.cvsignore6
-rw-r--r--examples/.cvsignore2
-rw-r--r--po/gamma.pot14
-rw-r--r--src/.cvsignore13
-rw-r--r--src/Makefile.am102
-rw-r--r--src/gettext.sci38
-rw-r--r--src/sql.sci30
7 files changed, 205 insertions, 0 deletions
diff --git a/.cvsignore b/.cvsignore
new file mode 100644
index 0000000..52e4843
--- a/dev/null
+++ b/.cvsignore
@@ -0,0 +1,6 @@
+ABOUT-NLS
+Makefile.in
+acinclude.m4
+aclocal.m4
+config.h.in
+*.tar.gz
diff --git a/examples/.cvsignore b/examples/.cvsignore
new file mode 100644
index 0000000..c038ed7
--- a/dev/null
+++ b/examples/.cvsignore
@@ -0,0 +1,2 @@
+Makefile
+Makefile.in \ No newline at end of file
diff --git a/po/gamma.pot b/po/gamma.pot
new file mode 100644
index 0000000..4a8c3f4
--- a/dev/null
+++ b/po/gamma.pot
@@ -0,0 +1,14 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR Free Software Foundation, Inc.
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"PO-Revision-Date: 2004-10-10 13:59+0300\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=CHARSET\n"
+"Content-Transfer-Encoding: 8bit\n"
diff --git a/src/.cvsignore b/src/.cvsignore
new file mode 100644
index 0000000..4af8766
--- a/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
--- a/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
--- a/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
--- a/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.