From 6f916c8f44efae2895a6b144062486e302526c6d Mon Sep 17 00:00:00 2001
From: Sergey Cherepanov <s.g.cherepanov@gmail.com>
Date: Mon, 19 Nov 2012 15:41:04 +1100
Subject: [PATCH] Add minimal infrastructure for GTK+ extension.

---
 configure.ac        |  1 +
 lib/Makefile.am     |  2 +-
 lib/gtk/Makefile.am | 20 ++++++++++++++++++++
 lib/gtk/gtk.h       | 33 +++++++++++++++++++++++++++++++++
 lib/gtk/init.c      | 35 +++++++++++++++++++++++++++++++++++
 5 files changed, 90 insertions(+), 1 deletion(-)
 create mode 100644 lib/gtk/Makefile.am
 create mode 100644 lib/gtk/gtk.h
 create mode 100644 lib/gtk/init.c

diff --git a/configure.ac b/configure.ac
index b274f6d..f8adb8e 100644
--- a/configure.ac
+++ b/configure.ac
@@ -591,6 +591,7 @@ AC_CONFIG_FILES([
   examples/Makefile
   include/Makefile
   lib/Makefile
+  lib/gtk/Makefile
   lib/misc/Makefile
   lib/unix/Makefile
   lib/xlib/Makefile
diff --git a/lib/Makefile.am b/lib/Makefile.am
index d24fb43..ac17ba0 100644
--- a/lib/Makefile.am
+++ b/lib/Makefile.am
@@ -1 +1 @@
-SUBDIRS = misc unix xlib xwidgets
+SUBDIRS = gtk misc unix xlib xwidgets
diff --git a/lib/gtk/Makefile.am b/lib/gtk/Makefile.am
new file mode 100644
index 0000000..4598e10
--- /dev/null
+++ b/lib/gtk/Makefile.am
@@ -0,0 +1,20 @@
+NULL = 
+
+lib_LTLIBRARIES = $(libelk_gtk_la)
+pkglib_LTLIBRARIES = $(gtk_la)
+
+if HAVE_GTK
+libelk_gtk_la = libelk-gtk.la
+gtk_la = gtk.la
+endif
+
+libelk_gtk_la_SOURCES = \
+	$(NULL)
+libelk_gtk_la_CFLAGS = @GTK_CFLAGS@
+libelk_gtk_la_LDFLAGS = -no-undefined
+libelk_gtk_la_LIBADD = $(top_builddir)/src/libelk.la @GTK_LIBS@
+
+gtk_la_SOURCES = init.c
+gtk_la_CFLAGS = @GTK_CFLAGS@
+gtk_la_LDFLAGS = -module -avoid-version -no-undefined
+gtk_la_LIBADD = $(top_builddir)/src/libelk.la libelk-gtk.la @GTK_LIBS@
diff --git a/lib/gtk/gtk.h b/lib/gtk/gtk.h
new file mode 100644
index 0000000..b67e050
--- /dev/null
+++ b/lib/gtk/gtk.h
@@ -0,0 +1,33 @@
+/* gtk.h
+ *
+ * $Id$
+ *
+ * Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
+ * Copyright 2002, 2003 Sam Hocevar <sam@hocevar.net>, Paris
+ *
+ * This software was derived from Elk 1.2, which was Copyright 1987, 1988,
+ * 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
+ * by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
+ * between TELES and Nixdorf Microprocessor Engineering, Berlin).
+ *
+ * Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
+ * owners or individual owners of copyright in this software, grant to any
+ * person or company a worldwide, royalty free, license to
+ *
+ *    i) copy this software,
+ *   ii) prepare derivative works based on this software,
+ *  iii) distribute copies of this software or derivative works,
+ *   iv) perform this software, or
+ *    v) display this software,
+ *
+ * provided that this notice is not removed and that neither Oliver Laumann
+ * nor Teles nor Nixdorf are deemed to have made any representations as to
+ * the suitability of this software for any purpose nor are held responsible
+ * for any defects of this software.
+ *
+ * THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
+ */
+
+#include <scheme.h>
+#include <gtk/gtk.h>
+#include "config.h"
diff --git a/lib/gtk/init.c b/lib/gtk/init.c
new file mode 100644
index 0000000..a2ecf85
--- /dev/null
+++ b/lib/gtk/init.c
@@ -0,0 +1,35 @@
+/* init.c
+ *
+ * $Id$
+ *
+ * Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
+ * Copyright 2002, 2003 Sam Hocevar <sam@hocevar.net>, Paris
+ *
+ * This software was derived from Elk 1.2, which was Copyright 1987, 1988,
+ * 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
+ * by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
+ * between TELES and Nixdorf Microprocessor Engineering, Berlin).
+ *
+ * Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
+ * owners or individual owners of copyright in this software, grant to any
+ * person or company a worldwide, royalty free, license to
+ *
+ *    i) copy this software,
+ *   ii) prepare derivative works based on this software,
+ *  iii) distribute copies of this software or derivative works,
+ *   iv) perform this software, or
+ *    v) display this software,
+ *
+ * provided that this notice is not removed and that neither Oliver Laumann
+ * nor Teles nor Nixdorf are deemed to have made any representations as to
+ * the suitability of this software for any purpose nor are held responsible
+ * for any defects of this software.
+ *
+ * THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
+ */
+
+#include "gtk.h"
+
+void elk_init_gtk_init () {
+    P_Provide (Intern ("gtk.la"));
+}