debian/0000755000000000000000000000000012077203505007167 5ustar debian/docs0000644000000000000000000000002011350103411010016 0ustar README examples debian/watch0000644000000000000000000000007111350103411010202 0ustar version=3 http://sf.net/gauche/Gauche-gtk-([\d\.]*)\.tgz debian/source/0000755000000000000000000000000011350551060010462 5ustar debian/source/format0000644000000000000000000000001411350103241011662 0ustar 3.0 (quilt) debian/patches/0000755000000000000000000000000012077201242010612 5ustar debian/patches/03_PIC.patch0000644000000000000000000000105311350600277012553 0ustar Description: Shared object build needs special flag Author: NIIBE Yutaka Bug-Debian: http://bugs.debian.org/266528 Forwarded: yes Reviewed-By: NIIBE Yutaka Last-Update: 2010-03-19 --- gauche-gtk-0.4.1.orig/configure.in 2010-03-19 13:39:33.000000000 +0900 +++ gauche-gtk-0.4.1/configure.in 2010-03-19 13:41:41.000000000 +0900 @@ -58,6 +58,7 @@ # Get compiler parameters which Gauche has been compiled with. AC_GAUCHE_CC AC_GAUCHE_FLAGS +CFLAGS="$CFLAGS `$GAUCHE_CONFIG --so-cflags`" # Check for other programs. debian/patches/01_update_for_newer_gtk.patch0000644000000000000000000000533311350605302016332 0ustar Description: update for newer gtk Author: NIIBE Yutaka Reviewed-By: NIIBE Yutaka Last-Update: 2010-03-19 Index: gauche-gtk-0.4.1/src/h2stub.scm =================================================================== --- gauche-gtk-0.4.1.orig/src/h2stub.scm 2004-06-24 20:49:19.000000000 +0900 +++ gauche-gtk-0.4.1/src/h2stub.scm 2010-03-17 17:19:41.000000000 +0900 @@ -44,7 +44,7 @@ #`"pkg-config --variable=includedir gtk+-,(gtk-version)" (cut port->string-list <>)) (call-with-input-process - #`"pkg-config --variable=includedir pango-,(pango-version)" + #`"pkg-config --variable=includedir pango" (cut port->string-list <>)) '("/usr/include" "/usr/local/include")) string=?)) @@ -485,6 +485,9 @@ (#/^\{/ () (loop (read-line) fields)) (#/^\}/ () (make-struct name (reverse fields))) (test has-comment? (skip-comment line (cut loop <> fields) err-eof)) + (#/^\s+(.*)\s+(\*)?GSEAL\s*\(([^\)]*)\)(.*)$/ + (#f something pointer contents rest) + (loop (string-append " " something " " (if pointer pointer "") contents rest) fields)) (#/^\s+([\w\*_]+)\s+([\w\*_]+)(\[([\w_]+)\])?\s*(:\s*\d+\s*)?\;/ (#f type var #f array) (if array @@ -529,6 +529,11 @@ (enums '())) (rxmatch-case line (test eof-object? (err-eof)) + (#/^\#if/ () (let skip-to-endif ((line (read-line))) + (rxmatch-case line + (test eof-object? (err-eof)) + (#/^\#endif\s*(.*)/ (#f rest) (loop rest enums)) + (else (skip-to-endif (read-line)))))) (#/^\{/ () (loop (read-line) enums)) (#/^\}\s*([\w_]+)/ (#f name) (make-enum name (reverse enums))) (#/^\s*$/ () (loop (read-line) enums)) @@ -727,7 +732,7 @@ (values #f #f) (let ((first-slot-type (type-of (car (fields-of self))))) (cond - ((eq? (c-name-of first-slot-type) 'GObject) + ((memq (c-name-of first-slot-type) '(GObject GInitiallyUnowned)) (values first-slot-type #t)) ((and-let* ((ptrname (string->symbol #`",(c-name-of first-slot-type)*")) (ptrtype (find-type ptrname)) @@ -746,7 +751,7 @@ (let loop ((super (superclass-of self)) (classes '())) (cond ((not super) (reverse classes)) - ((eq? (c-name-of super) 'GObject) + ((memq (c-name-of super) '(GObject GInitiallyUnowned)) (reverse (cons "Scm_GObjectClass" classes))) ((eq? (c-name-of super) 'GdkEvent*) (reverse (cons "Scm_GdkEventClass" classes))) debian/patches/00_no_path_xtra.patch0000644000000000000000000000507112077176004014632 0ustar Description: no PATH_XTRA Don't configure for PATH_XTRA, but link to freetype2. Author: NIIBE Yutaka Reviewed-By: NIIBE Yutaka Last-Update: 2013-01-21 --- a/glgd/Makefile.in +++ b/glgd/Makefile.in @@ -29,9 +29,9 @@ # NB: cc and various flags must match the ones used to compile Gauche, # so the make invocator shouldn't casually override them. CC = @CC@ -CFLAGS = @DEFS@ @CFLAGS@ @X_CFLAGS@ `gauche-config -I` `gauche-config --so-cflags` $(GTKGL_CFLAGS) +CFLAGS = @DEFS@ @CFLAGS@ `gauche-config -I` `gauche-config --so-cflags` $(GTKGL_CFLAGS) LDFLAGS = $(GTKGL_LDFLAGS) @LDFLAGS@ `gauche-config -L` `gauche-config --so-ldflags` -LIBS = $(GTKGL_LIBS) @LIBS@ `gauche-config -l` @X_LIBS@ @X_PRE_LIBS@ -lXext -lX11 +LIBS = $(GTKGL_LIBS) @LIBS@ `gauche-config -l` GOSH = @GOSH@ GAUCHE_CONFIG = @GAUCHE_CONFIG@ INSTALL = @GAUCHE_INSTALL@ @@ -47,6 +47,8 @@ GTKGL_LDFLAGS = `pkg-config --libs-only-L gtkglext-1.0` GTKGL_LIBS = $(PANGOFT2) `pkg-config --libs-only-l gtkglext-1.0` +FREETYPE_CFLAGS = `pkg-config --cflags freetype2` + ARCHFILES = gauche-glgd.$(SOEXT) SCMFILES = glgd.scm SCMFILEDIR = $(top_srcdir)/lib/gtk --- a/gtkgl/Makefile.in +++ b/gtkgl/Makefile.in @@ -28,9 +28,9 @@ # NB: cc and various flags must match the ones used to compile Gauche, # so the make invocator shouldn't casually override them. CC = @CC@ -CFLAGS = @DEFS@ @CFLAGS@ @X_CFLAGS@ `gauche-config -I` `gauche-config --so-cflags` $(GTKGL_CFLAGS) +CFLAGS = @DEFS@ @CFLAGS@ `gauche-config -I` `gauche-config --so-cflags` $(GTKGL_CFLAGS) LDFLAGS = $(GTKGL_LDFLAGS) @LDFLAGS@ `gauche-config -L` `gauche-config --so-ldflags` -LIBS = $(GTKGL_LIBS) @LIBS@ `gauche-config -l` @X_LIBS@ @X_PRE_LIBS@ -lXext -lX11 +LIBS = $(GTKGL_LIBS) @LIBS@ `gauche-config -l` GOSH = @GOSH@ GAUCHE_CONFIG = @GAUCHE_CONFIG@ INSTALL = @GAUCHE_INSTALL@ --- a/src/Makefile.in +++ b/src/Makefile.in @@ -29,9 +29,9 @@ # NB: cc and various flags must match the ones used to compile Gauche, # so the make invocator shouldn't casually override them. CC = @CC@ -CFLAGS = @DEFS@ @CFLAGS@ @X_CFLAGS@ -I. `gauche-config -I` `gauche-config --so-cflags` $(GTK_CFLAGS) +CFLAGS = @DEFS@ @CFLAGS@ -I. `gauche-config -I` `gauche-config --so-cflags` $(GTK_CFLAGS) LDFLAGS = $(GTK_LDFLAGS) @LDFLAGS@ `gauche-config -L` `gauche-config --so-ldflags` -LIBS = $(GTK_LIBS) @LIBS@ `gauche-config -l` @X_LIBS@ @X_PRE_LIBS@ -lXext -lX11 +LIBS = $(GTK_LIBS) @LIBS@ `gauche-config -l` GOSH = @GOSH@ GAUCHE_CONFIG = @GAUCHE_CONFIG@ INSTALL = @GAUCHE_INSTALL@ debian/patches/05_install_755.patch0000644000000000000000000000243312077200366014215 0ustar Description: install shared object with 755 Author: NIIBE Yutaka Reviewed-By: NIIBE Yutaka Last-Update: 2013-01-21 --- a/src/Makefile.in +++ b/src/Makefile.in @@ -108,7 +108,7 @@ install : all $(INSTALL) -m 444 -T $(GAUCHE_PKGINCDIR) $(HEADERS) $(INSTALL) -m 444 -T $(GAUCHE_PKGLIBDIR) $(SCMFILES) - $(INSTALL) -m 555 -T $(GAUCHE_PKGARCHDIR) $(ARCHFILES) + $(INSTALL) -m 755 -T $(GAUCHE_PKGARCHDIR) $(ARCHFILES) # clean ------------------------------------------------ --- a/gtkgl/Makefile.in +++ b/gtkgl/Makefile.in @@ -86,7 +86,7 @@ install : all $(INSTALL) -m 444 -T $(GAUCHE_PKGINCDIR) $(HEADERS) $(INSTALL) -m 444 -T $(GAUCHE_PKGLIBDIR) -S $(SCMFILEDIR) $(SCMFILES) - $(INSTALL) -m 555 -T $(GAUCHE_PKGARCHDIR) $(ARCHFILES) + $(INSTALL) -m 755 -T $(GAUCHE_PKGARCHDIR) $(ARCHFILES) # clean ------------------------------------------------ clean : --- a/glgd/Makefile.in +++ b/glgd/Makefile.in @@ -101,7 +101,7 @@ install : all $(INSTALL) -m 444 -T $(GAUCHE_PKGINCDIR) $(HEADERS) $(INSTALL) -m 444 -T $(GAUCHE_PKGLIBDIR) -S $(SCMFILEDIR) $(SCMFILES) - $(INSTALL) -m 555 -T $(GAUCHE_PKGARCHDIR) $(ARCHFILES) + $(INSTALL) -m 755 -T $(GAUCHE_PKGARCHDIR) $(ARCHFILES) # clean ------------------------------------------------ clean : debian/patches/02_new_api_0.9.patch0000644000000000000000000010665411350605272014164 0ustar Description: update for Gauche 0.9 Author: NIIBE Yutaka Reviewed-By: NIIBE Yutaka Last-Update: 2010-03-19 --- gauche-gtk-0.4.1.orig/src/gauche-gtk.c 2004-03-19 06:21:37.000000000 +0900 +++ gauche-gtk-0.4.1/src/gauche-gtk.c 2010-03-17 17:35:00.000000000 +0900 @@ -447,7 +447,7 @@ { ScmObj sargs = SCM_OBJ(data); SCM_ASSERT(SCM_PAIRP(sargs)); - return Scm_Apply(SCM_CAR(sargs), SCM_CDR(sargs)); + return Scm_ApplyRec(SCM_CAR(sargs), SCM_CDR(sargs)); } static SCM_DEFINE_STRING_CONST(callcallback_thunk__NAME, "%gtk-call-callback-thunk", 24, 24); @@ -665,7 +665,7 @@ for (i=0; isignalPending) + static gboolean scm_signal_check(GSource *source) { ScmVM *vm = Scm_VM(); --- gauche-gtk-0.4.1.orig/glgd/glgdGraph.c +++ gauche-gtk-0.4.1/glgd/glgdGraph.c @@ -590,7 +590,7 @@ glgdGraphMouseButtonCB(GtkWidget *widget fn = graph->fn[GLGDGRAPH_FN_MOUSE_LEFT]; if (fn && event->button == 1) { - Scm_Apply(fn, SCM_LIST4( + Scm_ApplyRec(fn, SCM_LIST4( SCM_OBJ(SCM_MAKE_GLGD_GRAPH(graph)), SCM_OBJ(SCM_MAKE_GLGD_NODE(graph->hoverNode)), SCM_OBJ(SCM_MAKE_GLGD_LINK(graph->hoverLink)), @@ -599,7 +599,7 @@ glgdGraphMouseButtonCB(GtkWidget *widget fn = graph->fn[GLGDGRAPH_FN_MOUSE_MIDDLE]; if (fn && event->button == 2) { - Scm_Apply(fn, SCM_LIST4( + Scm_ApplyRec(fn, SCM_LIST4( SCM_OBJ(SCM_MAKE_GLGD_GRAPH(graph)), SCM_OBJ(SCM_MAKE_GLGD_NODE(graph->hoverNode)), SCM_OBJ(SCM_MAKE_GLGD_LINK(graph->hoverLink)), @@ -608,7 +608,7 @@ glgdGraphMouseButtonCB(GtkWidget *widget fn = graph->fn[GLGDGRAPH_FN_MOUSE_RIGHT]; if (fn && event->button == 3) { - Scm_Apply(fn, SCM_LIST4( + Scm_ApplyRec(fn, SCM_LIST4( SCM_OBJ(SCM_MAKE_GLGD_GRAPH(graph)), SCM_OBJ(SCM_MAKE_GLGD_NODE(graph->hoverNode)), SCM_OBJ(SCM_MAKE_GLGD_LINK(graph->hoverLink)), @@ -695,7 +695,7 @@ glgdGraphMouseMotionCB(GtkWidget *widget fn = graph->fn[GLGDGRAPH_FN_MOUSE_HOVER]; if (fn) { - Scm_Apply(fn, SCM_LIST4( + Scm_ApplyRec(fn, SCM_LIST4( SCM_OBJ(SCM_MAKE_GLGD_GRAPH(graph)), SCM_OBJ(SCM_MAKE_GLGD_NODE(graph->hoverNode)), SCM_OBJ(SCM_MAKE_GLGD_LINK(graph->hoverLink)), @@ -742,7 +742,7 @@ glgdGraphMouseScrollCB(GtkWidget *widget fn = graph->fn[GLGDGRAPH_FN_MOUSE_SCROLL]; if (fn) { - Scm_Apply(fn, SCM_LIST4( + Scm_ApplyRec(fn, SCM_LIST4( SCM_OBJ(SCM_MAKE_GLGD_GRAPH(graph)), SCM_OBJ(SCM_MAKE_GLGD_NODE(graph->hoverNode)), SCM_OBJ(SCM_MAKE_GLGD_LINK(graph->hoverLink)), @@ -794,7 +794,7 @@ glgdGraphKeyCB(GtkWidget *widget, GdkEve keyFn = graph->fn[GLGDGRAPH_FN_KEY]; if (keyFn != NULL) { - Scm_Apply(keyFn, SCM_LIST4( + Scm_ApplyRec(keyFn, SCM_LIST4( SCM_OBJ(SCM_MAKE_GLGD_GRAPH(graph)), SCM_OBJ(SCM_MAKE_GLGD_NODE(graph->hoverNode)), SCM_OBJ(SCM_MAKE_GLGD_LINK(graph->hoverLink)), --- gauche-gtk-0.4.1.orig/glgd/glgdNode.c 2004-03-15 04:54:24.000000000 +0900 +++ gauche-gtk-0.4.1/glgd/glgdNode.c 2010-03-17 17:55:36.000000000 +0900 @@ -207,7 +207,7 @@ { if (prFn != NULL) { - Scm_Apply(prFn, SCM_LIST1(SCM_OBJ(SCM_MAKE_GLGD_NODE(node)))); + Scm_ApplyRec(prFn, SCM_LIST1(SCM_OBJ(SCM_MAKE_GLGD_NODE(node)))); } glgdNodeDrawBox(node, dim, renderMode); --- gauche-gtk-0.4.1.orig/src/gtk-lib.hints 2010-03-19 13:45:26.000000000 +0900 +++ gauche-gtk-0.4.1/src/gtk-lib.hints 2010-03-19 14:07:27.000000000 +0900 @@ -66,7 +66,7 @@ "static gboolean accel_group_finder(GtkAccelKey *key, GClosure *clo, gpointer data) { - ScmObj r = Scm_Apply(SCM_OBJ(data), SCM_LIST1(SCM_MAKE_GTK_ACCEL_KEY(key))); + ScmObj r = Scm_ApplyRec(SCM_OBJ(data), SCM_LIST1(SCM_MAKE_GTK_ACCEL_KEY(key))); return (!SCM_FALSEP(r)); }") @@ -990,7 +990,7 @@ SCM_RETURN(SCM_UNDEFINED);")) (define-cproc gtk-radio-group->list (group::) - (return "Scm_GtkRadioGroupToList")) + Scm_GtkRadioGroupToList) ;;================================================================== ;; gtkradiomenuitem @@ -1426,7 +1426,7 @@ GtkTreeIter *iter, gpointer data) { - Scm_Apply(SCM_OBJ(data), + Scm_ApplyRec(SCM_OBJ(data), SCM_LIST3(SCM_MAKE_GTK_TREE_MODEL(model), SCM_MAKE_GTK_TREE_PATH(path), SCM_MAKE_GTK_TREE_ITER(iter))); @@ -1640,50 +1640,50 @@ ;; these defined as macro in C (define-cproc gtk-widget-flags (widget::) - (return "GTK_WIDGET_FLAGS")) + :: GTK_WIDGET_FLAGS) (define-cproc gtk-widget-toplevel? (widget::) - (return "GTK_WIDGET_TOPLEVEL")) + :: GTK_WIDGET_TOPLEVEL) (define-cproc gtk-widget-no-window? (widget::) - (return "GTK_WIDGET_NO_WINDOW")) + :: GTK_WIDGET_NO_WINDOW) (define-cproc gtk-widget-realized? (widget::) - (return "GTK_WIDGET_REALIZED")) + :: GTK_WIDGET_REALIZED) (define-cproc gtk-widget-mapped? (widget::) - (return "GTK_WIDGET_MAPPED")) + :: GTK_WIDGET_MAPPED) (define-cproc gtk-widget-visible? (widget::) - (return "GTK_WIDGET_VISIBLE")) + :: GTK_WIDGET_VISIBLE) (define-cproc gtk-widget-drawable? (widget::) - (return "GTK_WIDGET_DRAWABLE")) + :: GTK_WIDGET_DRAWABLE) (define-cproc gtk-widget-sensitive? (widget::) - (return "GTK_WIDGET_SENSITIVE")) + :: GTK_WIDGET_SENSITIVE) (define-cproc gtk-widget-parent-sensitive? (widget::) - (return "GTK_WIDGET_PARENT_SENSITIVE")) + :: GTK_WIDGET_PARENT_SENSITIVE) (define-cproc gtk-widget-is-sensitive? (widget::) - (return "GTK_WIDGET_IS_SENSITIVE")) + :: GTK_WIDGET_IS_SENSITIVE) (define-cproc gtk-widget-can-focus? (widget::) - (return "GTK_WIDGET_CAN_FOCUS")) + :: GTK_WIDGET_CAN_FOCUS) (define-cproc gtk-widget-has-focus? (widget::) - (return "GTK_WIDGET_HAS_FOCUS")) + :: GTK_WIDGET_HAS_FOCUS) (define-cproc gtk-widget-can-default? (widget::) - (return "GTK_WIDGET_CAN_DEFAULT")) + :: GTK_WIDGET_CAN_DEFAULT) (define-cproc gtk-widget-has-default? (widget::) - (return "GTK_WIDGET_HAS_DEFAULT")) + :: GTK_WIDGET_HAS_DEFAULT) (define-cproc gtk-widget-has-grab? (widget::) - (return "GTK_WIDGET_HAS_GRAB")) + :: GTK_WIDGET_HAS_GRAB) (define-cproc gtk-widget-rc-style? (widget::) - (return "GTK_WIDGET_RC_STYLE")) + :: GTK_WIDGET_RC_STYLE) (define-cproc gtk-widget-composite-child? (widget::) - (return "GTK_WIDGET_COMPOSITE_CHILD")) + :: GTK_WIDGET_COMPOSITE_CHILD) (define-cproc gtk-widget-app-paintable? (widget::) - (return "GTK_WIDGET_APP_PAINTABLE")) + :: GTK_WIDGET_APP_PAINTABLE) (define-cproc gtk-widget-receives-default? (widget::) - (return "GTK_WIDGET_RECEIVES_DEFAULT")) + :: GTK_WIDGET_RECEIVES_DEFAULT) (define-cproc gtk-widget-double-buffered? (widget::) - (return "GTK_WIDGET_DOUBLE_BUFFERED")) + :: GTK_WIDGET_DOUBLE_BUFFERED) (define-cproc gtk-widget-set-flags (widget:: flag::) - (return "GTK_WIDGET_SET_FLAGS")) + :: GTK_WIDGET_SET_FLAGS) (define-cproc gtk-widget-unset-flags (widget:: flag::) - (return "GTK_WIDGET_UNSET_FLAGS")) + :: GTK_WIDGET_UNSET_FLAGS) (define-cproc-fix gtk-widget-list-accel-closures (fix-body! "GList *lis = gtk_widget_list_accel_closures(widget); --- gauche-gtk-0.4.1.orig/src/h2stub.scm 2010-03-18 11:46:03.000000000 +0900 +++ gauche-gtk-0.4.1/src/h2stub.scm 2010-03-18 11:50:04.000000000 +0900 @@ -1099,7 +1099,7 @@ '())) (sig `(define-cproc ,s-name ,args ,(or (body-of self) - `(return ,@ret ,(x->string (c-name-of self)))))) + `(call ,@ret ,(x->string (c-name-of self)))))) ) (if unknown-arg? (print (commenter sig)) --- gauche-gtk-0.4.1.orig/src/gauche-glib.stub 2003-01-20 11:37:21.000000000 +0900 +++ gauche-gtk-0.4.1/src/gauche-glib.stub 2010-03-18 12:16:56.000000000 +0900 @@ -75,15 +75,15 @@ (define-cproc g-signal-handler-disconnect (object:: id::) - (return "g_signal_handler_disconnect")) + :: g_signal_handler_disconnect) (define-cproc g-signal-handler-block (object:: id::) - (return "g_signal_handler_block")) + :: g_signal_handler_block) (define-cproc g-signal-handler-unblock (object:: id::) - (return "g_signal_handler_unblock")) + :: g_signal_handler_unblock) ;; NB: no block_by_func or unblock_by_func. @@ -95,20 +95,16 @@ () ()) -(define-cproc g-timer-new () - (return "g_timer_new")) +(define-cproc g-timer-new () :: g_timer_new) -(define-cproc g-timer-start (timer::) - (return "g_timer_start")) +(define-cproc g-timer-start (timer::) :: g_timer_start) -(define-cproc g-timer-stop (timer::) - (return "g_timer_stop")) +(define-cproc g-timer-stop (timer::) :: g_timer_stop) (define-cproc g-timer-elapsed (timer::) "SCM_RETURN(Scm_MakeFlonum(g_timer_elapsed(timer, NULL)));") -(define-cproc g-timer-reset (timer::) - (return "g_timer_reset")) +(define-cproc g-timer-reset (timer::) :: g_timer_reset) ;; Local variables: ;; mode: scheme --- gauche-gtk-0.4.1.orig/src/pango-lib.hints 2004-06-27 12:49:05.000000000 +0900 +++ gauche-gtk-0.4.1/src/pango-lib.hints 2010-03-18 12:39:30.000000000 +0900 @@ -361,8 +361,7 @@ (define-enum PANGO_SCALE) ;; These are macros in C -(define-cproc pango-pixels (d::) - (return "PANGO_PIXELS")) +(define-cproc pango-pixels (d::) :: PANGO_PIXELS) (define-cproc pango-ascent (rect::) "SCM_RETURN(SCM_MAKE_INT(PANGO_ASCENT(*rect)));") --- gauche-gtk-0.4.1.orig/glgd/glgdlib.stub 2004-03-15 05:59:49.000000000 +0900 +++ gauche-gtk-0.4.1/glgd/glgdlib.stub 2010-03-18 12:33:52.000000000 +0900 @@ -35,108 +35,102 @@ (define-enum GLGDNODE_FLAG_SELECTED) (define-cproc glgd-node-create () - (return "glgdNodeCreate")) + :: glgdNodeCreate) (define-cproc glgd-node-destroy (node::) - (return "glgdNodeDestroy")) + :: glgdNodeDestroy) (define-cproc glgd-node-init (node::) - (return "glgdNodeInit")) + :: glgdNodeInit) (define-cproc glgd-node-label-set (node:: label::) - (return "glgdNodeLabelSet")) + :: glgdNodeLabelSet) -(define-cproc glgd-node-label-get (node::) - (return "glgdNodeLabelGet")) +(define-cproc glgd-node-label-get (node::) glgdNodeLabelGet) (define-cproc glgd-node-data-set (node:: data) - (return "glgdNodeDataSet")) + :: glgdNodeDataSet) -(define-cproc glgd-node-data-get (node::) - (return "glgdNodeDataGet")) +(define-cproc glgd-node-data-get (node::) glgdNodeDataGet) (define-cproc glgd-node-id-set (node:: id::) - (return "glgdNodeIDSet")) + :: glgdNodeIDSet) -(define-cproc glgd-node-id-get (node::) - (return "glgdNodeIDGet")) +(define-cproc glgd-node-id-get (node::) :: glgdNodeIDGet) (define-cproc glgd-node-info-set (node:: label:: id::) - (return "glgdNodeInfoSet")) + :: glgdNodeInfoSet) (define-cproc glgd-node-flags-set (node:: mask:: flagop::) - (return "glgdNodeFlagsSet")) + :: glgdNodeFlagsSet) (define-cproc glgd-node-is-selected (node::) - (return "glgdNodeIsSelected")) + :: glgdNodeIsSelected) (define-cproc glgd-node-color-default (r:: g:: b:: a::) - (return "glgdNodeColorDefault")) + :: glgdNodeColorDefault) (define-cproc glgd-node-color-set (node:: r:: g:: b:: a::) - (return "glgdNodeColorSetByList")) + :: glgdNodeColorSetByList) (define-cproc glgd-node-attribute-clear (node::) - (return "glgdNodeAttributeClear")) + :: glgdNodeAttributeClear) (define-cproc glgd-node-attribute-set (node:: attrNdx::) - (return "glgdNodeAttributeSet")) + :: glgdNodeAttributeSet) (define-cproc glgd-node-attribute-reset (node:: attrNdx::) - (return "glgdNodeAttributeReset")) + :: glgdNodeAttributeReset) (define-cproc glgd-node-attribute-is-set (node:: attrNdx::) - (return "glgdNodeAttributeIsSet")) + :: glgdNodeAttributeIsSet) ;;================================================================= ;; glgdLink.h ;; -(define-cproc glgd-link-create () - (return "glgdLinkCreate")) +(define-cproc glgd-link-create () :: glgdLinkCreate) (define-cproc glgd-link-destroy (link::) - (return "glgdLinkDestroy")) + :: glgdLinkDestroy) -(define-cproc glgd-link-init (link::) - (return "glgdLinkInit")) +(define-cproc glgd-link-init (link::) :: glgdLinkInit) (define-cproc glgd-link-set (link:: src:: dst::) - (return "glgdLinkSet")) + :: glgdLinkSet) (define-cproc glgd-link-flags-set (link:: mask:: flagop::) - (return "glgdLinkFlagsSet")) + :: glgdLinkFlagsSet) -(define-cproc glgd-link-list-create () - (return "glgdLinkListCreate")) +(define-cproc glgd-link-list-create () :: glgdLinkListCreate) (define-cproc glgd-link-list-destroy (list::) - (return "glgdLinkListDestroy")) + :: glgdLinkListDestroy) (define-cproc glgd-link-list-init (list::) - (return "glgdLinkListInit")) + :: glgdLinkListInit) (define-cproc glgd-link-list-flags-set (list:: mask:: flagop::) - (return "glgdLinkListFlagsSet")) + :: glgdLinkListFlagsSet) ;;================================================================= ;; glgdGraph.h @@ -152,147 +146,138 @@ (define-enum GLGDGRAPH_FLAG_ESCPRESSED) (define-enum GLGDGRAPH_FLAG_PANGOBOLD) -(define-cproc glgd-graph-create () - (return "glgdGraphCreate")) +(define-cproc glgd-graph-create () :: glgdGraphCreate) (define-cproc glgd-graph-destroy (graph::) - (return "glgdGraphDestroy")) + :: glgdGraphDestroy) -(define-cproc glgd-graph-init (graph::) - (return "glgdGraphInit")) +(define-cproc glgd-graph-init (graph::) :: glgdGraphInit) -(define-cproc glgd-graph-fini (graph::) - (return "glgdGraphFini")) +(define-cproc glgd-graph-fini (graph::) :: glgdGraphFini) -(define-cproc glgd-graph-draw (graph::) - (return "glgdGraphDraw")) +(define-cproc glgd-graph-draw (graph::) :: glgdGraphDraw) -(define-cproc glgd-graph-frame (graph::) - (return "glgdGraphFrame")) +(define-cproc glgd-graph-frame (graph::) :: glgdGraphFrame) (define-cproc glgd-graph-invalidate (graph::) - (return "glgdGraphInvalidate")) + :: glgdGraphInvalidate) (define-cproc glgd-graph-reshape (graph::) - (return "glgdGraphReshape")) + :: glgdGraphReshape) ;; NB: the three-argument variant is kept only for backward compatibility. (define-cproc glgd-graph-connect (graph:: widget:: &optional w2) - "int r; - if (SCM_UNBOUNDP(w2)) { - r = glgdGraphConnect(graph, widget); - } else { - r = glgdGraphConnect3(graph, widget, w2); - } - SCM_RETURN(SCM_MAKE_BOOL(r));") + :: + (if (SCM_UNBOUNDP w2) + (glgdGraphConnect graph widget) + (glgdGraphConnect3 graph widget w2))) (define-cproc glgd-graph-translate (graph:: x:: y::) - (return "glgdGraphTranslate")) + :: glgdGraphTranslate) (define-cproc glgd-graph-center (graph::) - (return "glgdGraphCenter")) + :: glgdGraphCenter) (define-cproc glgd-graph-auto-organize (graph:: x:: y::) - (return "glgdGraphAutoOrganizeXY")) + :: glgdGraphAutoOrganizeXY) (define-cproc glgd-graph-node-by-id (graph:: node-id::) - (return "glgdGraphNodeByID")) + :: glgdGraphNodeByID) (define-cproc glgd-graph-node-selected (graph:: select-index::) - (return "glgdGraphNodeSelected")) + :: glgdGraphNodeSelected) (define-cproc glgd-graph-node-select-count (graph::) - (return "glgdGraphNodeSelectCount")) + :: glgdGraphNodeSelectCount) (define-cproc glgd-graph-node-count (graph::) - (return "glgdGraphNodeCount")) + :: glgdGraphNodeCount) (define-cproc glgd-graph-node-add (graph:: node::) - (return "glgdGraphNodeAdd")) + :: glgdGraphNodeAdd) (define-cproc glgd-graph-node-list-flag (graph:: flag-mask:: flag-op::) - (return "glgdGraphNodeListFlag")) + :: glgdGraphNodeListFlag) (define-cproc glgd-graph-link-list-add (graph:: list::) - (return "glgdGraphLinkListAdd")) + :: glgdGraphLinkListAdd) (define-cproc glgd-graph-link-list-dump (graph::) - (return "glgdGraphLinkListDump")) + :: glgdGraphLinkListDump) (define-cproc glgd-graph-link-add (graph:: list:: link::) - (return "glgdGraphLinkAdd")) + :: glgdGraphLinkAdd) (define-cproc glgd-graph-link-index (graph:: link::) - (return "glgdGraphLinkNdx")) + :: glgdGraphLinkNdx) (define-cproc glgd-graph-link-by-index (graph:: index::) - (return "glgdGraphLinkByNdx")) + :: glgdGraphLinkByNdx) (define-cproc glgd-graph-callback-set (graph:: fn-type:: fn) - (return "glgdGraphCallbackSet")) + :: glgdGraphCallbackSet) (define-cproc glgd-graph-flags-set (graph:: flag-mask:: flag-op::) - (return "glgdGraphFlagsSet")) + :: glgdGraphFlagsSet) (define-cproc glgd-graph-dim-set (graph:: w:: h::) - (return "glgdGraphDimSetByList")) + :: glgdGraphDimSetByList) (define-cproc glgd-graph-margin-set (graph:: margin::) - (return "glgdGraphMarginSet")) + :: glgdGraphMarginSet) (define-cproc glgd-graph-margin-get (graph::) - (return "glgdGraphMarginGet")) + :: glgdGraphMarginGet) (define-cproc glgd-graph-line-color-set (graph:: r:: g:: b:: a::) - (return "glgdGraphLineColorSetByList")) + :: glgdGraphLineColorSetByList) (define-cproc glgd-graph-attribute-clear (graph::) - (return "glgdGraphAttributeClear")) + :: glgdGraphAttributeClear) (define-cproc glgd-graph-attribute-set (graph:: attrNdx::) - (return "glgdGraphAttributeSet")) + :: glgdGraphAttributeSet) (define-cproc glgd-graph-attribute-toggle (graph:: attrNdx::) - (return "glgdGraphAttributeToggle")) + :: glgdGraphAttributeToggle) (define-cproc glgd-graph-attribute-reset (graph:: attrNdx::) - (return "glgdGraphAttributeReset")) + :: glgdGraphAttributeReset) (define-cproc glgd-graph-attribute-is-set (graph:: attrNdx::) - (return "glgdGraphAttributeIsSet")) + :: glgdGraphAttributeIsSet) -(define-cproc glgd-verbosity (level::) - (return "glgdVerbosity")) +(define-cproc glgd-verbosity (level::) :: glgdVerbosity) ;; Local variables: ;; mode: scheme --- gauche-gtk-0.4.1.orig/gtkgl/gtkgllib.stub 2010-03-18 12:21:39.000000000 +0900 +++ gauche-gtk-0.4.1/gtkgl/gtkgllib.stub 2010-03-18 12:35:54.000000000 +0900 @@ -24,7 +24,7 @@ ;; (define-cproc gtk-gl-ext-check-version (major:: minor:: micro::) - (return "GDKGLEXT_CHECK_VERSION")) + :: GDKGLEXT_CHECK_VERSION) ;;================================================================= ;; gdkglwidget.h @@ -35,30 +35,30 @@ share-list::-or-null direct:: render-type::) - (return "gtk_widget_set_gl_capability")) + :: gtk_widget_set_gl_capability) (define-cproc gtk-widget-is-gl-capable (widget::) - (return "gtk_widget_is_gl_capable")) + :: gtk_widget_is_gl_capable) (define-cproc gtk-widget-get-gl-config (widget::) - (return "gtk_widget_get_gl_config")) + :: gtk_widget_get_gl_config) (if "GTKGLEXT_CHECK_VERSION(0, 7, 0)" (define-cproc gtk-widget-create-gl-context (widget:: share-list::-or-null direct:: render-type::) - (return "gtk_widget_create_gl_context")) + :: gtk_widget_create_gl_context) ) (define-cproc gtk-widget-get-gl-context (widget::) - (return "gtk_widget_get_gl_context")) + :: gtk_widget_get_gl_context) (define-cproc gtk-widget-get-gl-window (widget::) - (return "gtk_widget_get_gl_window")) + :: gtk_widget_get_gl_window) (define-cproc gtk-widget-get-gl-drawable (widget::) - (return "gtk_widget_get_gl_drawable")) + :: gtk_widget_get_gl_drawable) ;; Local variables: ;; mode: scheme --- gauche-gtk-0.4.1.orig/gtkgl/gdkgllib.stub 2010-03-18 12:48:35.000000000 +0900 +++ gauche-gtk-0.4.1/gtkgl/gdkgllib.stub 2010-03-18 12:59:25.000000000 +0900 @@ -64,7 +64,7 @@ ; gdk-gl-config-new-for-screen - not until GdkScreen support (define-cproc gdk-gl-config-new-by-mode (mode::) - (return "gdk_gl_config_new_by_mode")) + :: gdk_gl_config_new_by_mode) ; gdk-gl-config-get-screen - not until GdkScreen support @@ -75,34 +75,34 @@ SCM_RETURN(Scm_Values2(SCM_MAKE_BOOL(r), Scm_MakeInteger(value)));") (define-cproc gdk-gl-config-get-colormap (glconfig::) - (return "gdk_gl_config_get_colormap")) + :: gdk_gl_config_get_colormap) (define-cproc gdk-gl-config-get-visual (glconfig::) - (return "gdk_gl_config_get_visual")) + :: gdk_gl_config_get_visual) (define-cproc gdk-gl-config-get-depth (glconfig::) - (return "gdk_gl_config_get_depth")) + :: gdk_gl_config_get_depth) (define-cproc gdk-gl-config-is-rgba (glconfig::) - (return "gdk_gl_config_is_rgba")) + :: gdk_gl_config_is_rgba) (define-cproc gdk-gl-config-is-double-buffered (glconfig::) - (return "gdk_gl_config_is_double_buffered")) + :: gdk_gl_config_is_double_buffered) (define-cproc gdk-gl-config-is-stereo (glconfig::) - (return "gdk_gl_config_is_stereo")) + :: gdk_gl_config_is_stereo) (define-cproc gdk-gl-config-has-alpha (glconfig::) - (return "gdk_gl_config_has_alpha")) + :: gdk_gl_config_has_alpha) (define-cproc gdk-gl-config-has-depth-buffer (glconfig::) - (return "gdk_gl_config_has_depth_buffer")) + :: gdk_gl_config_has_depth_buffer) (define-cproc gdk-gl-config-has-stencil-buffer (glconfig::) - (return "gdk_gl_config_has_stencil_buffer")) + :: gdk_gl_config_has_stencil_buffer) (define-cproc gdk-gl-config-has-accum-buffer (glconfig::) - (return "gdk_gl_config_has_accum_buffer")) + :: gdk_gl_config_has_accum_buffer) ;;================================================================= ;; gdkglcontext.h @@ -127,7 +127,7 @@ share-list::-or-null direct:: render-type::) - (return "gdk_gl_context_new")) + :: gdk_gl_context_new) ) (if "!GDKGLEXT_CHECK_VERSION(0, 7, 0)" (define-cproc gdk-gl-context-new (gldrawable:: @@ -135,29 +135,29 @@ share-list::-or-null direct:: render-type::) - (return "gdk_gl_context_new")) + :: gdk_gl_context_new) ) (define-cproc gdk-gl-context-copy! (dst:: src:: mask::) - (return "gdk_gl_context_copy")) + :: gdk_gl_context_copy) (define-cproc gdk-gl-context-get-gl-drawable (glcontext::) - (return "gdk_gl_context_get_gl_drawable")) + :: gdk_gl_context_get_gl_drawable) (define-cproc gdk-gl-context-get-gl-config (glcontext::) - (return "gdk_gl_context_get_gl_config")) + :: gdk_gl_context_get_gl_config) (define-cproc gdk-gl-context-is-direct (glcontext::) - (return "gdk_gl_context_is_direct")) + :: gdk_gl_context_is_direct) (define-cproc gdk-gl-context-get-render-type (glcontext::) - (return "gdk_gl_context_get_render_type")) + :: gdk_gl_context_get_render_type) (if "!GDKGLEXT_CHECK_VERSION(0, 7, 0)" (define-cproc gdk-gl-context-get-colormap (glcontext::) - (return "gdk_gl_context_get_colormap")) + :: gdk_gl_context_get_colormap) ) ;;================================================================= @@ -174,29 +174,29 @@ (define-cproc gdk-gl-drawable-make-current (gldrawable:: glcontext::) - (return "gdk_gl_drawable_make_current")) + :: gdk_gl_drawable_make_current) (define-cproc gdk-gl-drawable-is-double-buffered (gldrawable::) - (return "gdk_gl_drawable_is_double_buffered")) + :: gdk_gl_drawable_is_double_buffered) (define-cproc gdk-gl-drawable-swap-buffers (gldrawable::) - (return "gdk_gl_drawable_swap_buffers")) + :: gdk_gl_drawable_swap_buffers) (define-cproc gdk-gl-drawable-wait-gl (gldrawable::) - (return "gdk_gl_drawable_wait_gl")) + :: gdk_gl_drawable_wait_gl) (define-cproc gdk-gl-drawable-wait-gdk (gldrawable::) - (return "gdk_gl_drawable_wait_gdk")) + :: gdk_gl_drawable_wait_gdk) (define-cproc gdk-gl-drawable-gl-begin (gldrawable:: glcontext::) - (return "gdk_gl_drawable_gl_begin")) + :: gdk_gl_drawable_gl_begin) (define-cproc gdk-gl-drawable-gl-end (gldrawable::) - (return "gdk_gl_drawable_gl_end")) + :: gdk_gl_drawable_gl_end) (define-cproc gdk-gl-drawable-get-gl-config (gldrawable::) - (return "gdk_gl_drawable_get_gl_config")) + :: gdk_gl_drawable_get_gl_config) (define-cproc gdk-gl-drawable-get-size (gldrawable::) "gint w, h; @@ -211,7 +211,7 @@ first:: count:: list-base::) - (return "gdk_gl_font_use_pango_font")) + :: gdk_gl_font_use_pango_font) ;;================================================================= ;; gdkglpixmap.h @@ -233,7 +233,7 @@ SCM_RETURN(SCM_MAKE_GDK_GL_PIXMAP(gdk_gl_pixmap_new(glconfig, pixmap, alist)));") (define-cproc gdk-gl-pixmap-get-pixmap (glpixmap::) - (return "gdk_gl_pixmap_get_pixmap")) + :: gdk_gl_pixmap_get_pixmap) (define-cproc gdk-pixmap-set-gl-capability (pixmap:: glconfig:: @@ -242,23 +242,23 @@ SCM_RETURN(SCM_MAKE_GDK_GL_PIXMAP(gdk_pixmap_set_gl_capability(pixmap, glconfig,alist)));") (define-cproc gdk-pixmap-usnet-gl-capability (pixmap::) - (return "gdk_pixmap_unset_gl_capability")) + :: gdk_pixmap_unset_gl_capability) (define-cproc gdk-pixmap-is-gl-capable (pixmap::) - (return "gdk_pixmap_is_gl_capable")) + :: gdk_pixmap_is_gl_capable) (define-cproc gdk-pixmap_get_gl_pixmap (pixmap::) - (return "gdk_pixmap_get_gl_pixmap")) + :: gdk_pixmap_get_gl_pixmap) (define-cproc gdk-pixmap_get_gl_drawable (pixmap::) - (return "gdk_pixmap_get_gl_drawable")) + :: gdk_pixmap_get_gl_drawable) ;;================================================================= ;; gdkglquery.h ;; (define-cproc gdk-gl-query-extension () - (return "gdk_gl_query_extension")) + :: gdk_gl_query_extension) (define-cproc gdk-gl-query-version () "int major = 0, minor = 0; @@ -266,7 +266,7 @@ SCM_RETURN(Scm_Values3(SCM_MAKE_BOOL(r), SCM_MAKE_INT(major), SCM_MAKE_INT(minor)));") (define-cproc gdk-gl-query-gl-extension (extension::) - (return "gdk_gl_query_gl_extension")) + :: gdk_gl_query_gl_extension) ;;================================================================= ;; gdkgltokens.h @@ -403,7 +403,7 @@ ;; (define-cproc gdk-gl-ext-check-version (major:: minor:: micor::) - (return "GDKGLEXT_CHECK_VERSION")) + :: GDKGLEXT_CHECK_VERSION) ;;================================================================= ;; gdkglwindow.h @@ -425,7 +425,7 @@ SCM_RETURN(SCM_MAKE_GDK_GL_WINDOW(gdk_gl_window_new(glconfig, window, alist)));") (define-cproc gdk-gl-window-get-window (glwindow::) - (return "gdk_gl_window_get_window")) + :: gdk_gl_window_get_window) (define-cproc gdk-window-set-gl-capability (window:: glconfig:: @@ -434,16 +434,16 @@ SCM_RETURN(SCM_MAKE_GDK_GL_WINDOW(gdk_window_set_gl_capability(window, glconfig,alist)));") (define-cproc gdk-window-usnet-gl-capability (window::) - (return "gdk_window_unset_gl_capability")) + :: gdk_window_unset_gl_capability) (define-cproc gdk-window-is-gl-capable (window::) - (return "gdk_window_is_gl_capable")) + :: gdk_window_is_gl_capable) (define-cproc gdk-window-get-gl-window (window::) - (return "gdk_window_get_gl_window")) + :: gdk_window_get_gl_window) (define-cproc gdk-window-get-gl-drawable (window::) - (return "gdk_window_get_gl_drawable")) + :: gdk_window_get_gl_drawable) ;; Local variables: debian/patches/04_new_gcc_cpp.patch0000644000000000000000000000461111350606751014416 0ustar Description: work a round for newer GCC's cpp Author: NIIBE Yutaka Reviewed-By: NIIBE Yutaka Last-Update: 2010-03-19 --- gauche-gtk-0.4.1.orig/gtkgl/gtkgllib.stub 2010-03-19 14:21:45.000000000 +0900 +++ gauche-gtk-0.4.1/gtkgl/gtkgllib.stub 2010-03-19 14:35:49.000000000 +0900 @@ -43,13 +43,11 @@ (define-cproc gtk-widget-get-gl-config (widget::) :: gtk_widget_get_gl_config) -(if "GTKGLEXT_CHECK_VERSION(0, 7, 0)" (define-cproc gtk-widget-create-gl-context (widget:: share-list::-or-null direct:: render-type::) :: gtk_widget_create_gl_context) -) (define-cproc gtk-widget-get-gl-context (widget::) :: gtk_widget_get_gl_context) --- gauche-gtk-0.4.1.orig/gtkgl/gdkgllib.stub~ 2010-03-19 14:21:45.000000000 +0900 +++ gauche-gtk-0.4.1/gtkgl/gdkgllib.stub 2010-03-19 14:37:09.000000000 +0900 @@ -122,21 +122,11 @@ (initcode "Scm_GtkRegisterClass(GDK_TYPE_GL_CONTEXT, SCM_CLASS_GDK_GL_CONTEXT); ") -(if "GDKGLEXT_CHECK_VERSION(0, 7, 0)" (define-cproc gdk-gl-context-new (gldrawable:: share-list::-or-null direct:: render-type::) :: gdk_gl_context_new) -) -(if "!GDKGLEXT_CHECK_VERSION(0, 7, 0)" -(define-cproc gdk-gl-context-new (gldrawable:: - glconfig:: - share-list::-or-null - direct:: - render-type::) - :: gdk_gl_context_new) -) (define-cproc gdk-gl-context-copy! (dst:: src:: @@ -155,11 +145,6 @@ (define-cproc gdk-gl-context-get-render-type (glcontext::) :: gdk_gl_context_get_render_type) -(if "!GDKGLEXT_CHECK_VERSION(0, 7, 0)" -(define-cproc gdk-gl-context-get-colormap (glcontext::) - :: gdk_gl_context_get_colormap) -) - ;;================================================================= ;; gdkgldrawable.h ;; debian/patches/series0000644000000000000000000000023412077201146012031 0ustar 00_no_path_xtra.patch # 01_update_for_newer_gtk.patch # 02_new_api_0.9.patch # 03_PIC.patch # 04_new_gcc_cpp.patch 05_install_755.patch 06_gdk_pixbuf.patch debian/patches/06_gdk_pixbuf.patch0000644000000000000000000000362312077201000014256 0ustar Description: Correct gdk-pixbuf paths so the header file parsing will work properly. Author: Mathieu Trudel-Lapierre Bug-Debian: http://bugs.debian.org/599239 Reviewed-By: NIIBE Yutaka Last-Update: 2013-01-21 --- a/src/h2stub.scm +++ b/src/h2stub.scm @@ -33,6 +33,7 @@ ;; Gtk and Pango version (major.minor) we're dealing with (define gtk-version (make-parameter "2.0")) +(define gdk-pixbuf-version (make-parameter "2.0")) (define pango-version (make-parameter "1.0")) ;; Directories to search input header files. @@ -45,6 +46,10 @@ (cut port->string-list <>) :on-abnormal-exit :ignore) (call-with-input-process + #`"pkg-config --variable=includedir gdk-pixbuf-,(gdk-pixbuf-version)" + (cut port->string-list <>) + :on-abnormal-exit :ignore) + (call-with-input-process #`"pkg-config --variable=includedir pango-,(pango-version)" (cut port->string-list <>) :on-abnormal-exit :ignore) @@ -62,6 +67,9 @@ (define gtk-directory (make-parameter (find-header-dir #`"gtk-,(gtk-version)/gtk/gtk.h" *header-search-paths* ))) +(define gdk-pixbuf-directory + (make-parameter (find-header-dir #`"gdk-pixbuf,(gdk-pixbuf-version)/gdk-pixbuf/gdk-pixbuf.h" + *header-search-paths* ))) (define pango-directory (make-parameter (find-header-dir #`"pango-,(pango-version)/pango/pango.h" *header-search-paths*))) @@ -1277,7 +1285,7 @@ (call-with-input-file "GDKFILES" port->string-list))) (define (parse-gdk-pixbuf) - (parse-headers #`",(gtk-directory)/gdk-pixbuf" + (parse-headers #`",(gdk-pixbuf-directory)/gdk-pixbuf" (call-with-input-file "GDKPIXBUFFILES" port->string-list))) (define (parse-gtk) debian/control0000644000000000000000000000141212077172706010600 0ustar Source: gauche-gtk Section: lisp Priority: optional Maintainer: Debian Gauche Maintainers Uploaders: Hatta Shuzo , YAEGASHI Takeshi , NIIBE Yutaka , Jens Thiele Build-Depends: quilt (>= 0.46-7~), debhelper (>= 9), autotools-dev, libgtk2.0-dev, libgtkglext1-dev, libglib2.0-dev, libpango1.0-dev, pkg-config, gauche-dev (>= 0.9.3.3), autoconf Standards-Version: 3.9.4 Homepage: http://practical-scheme.net/gauche/ Package: gauche-gtk Architecture: any Depends: ${shlibs:Depends}, ${misc:Depends} Description: Gauche bindings for GTK+ GUI Toolkit Gauche-gtk is an extension module of Gauche Scheme implementation. It provides gtk, gtk.gl, and gtk.glgd modules. debian/rules0000755000000000000000000000211412077202647010253 0ustar #!/usr/bin/make -f # -*- makefile-gmake -*- # Uncomment this to turn on verbose mode. #export DH_VERBOSE=1 export DH_OPTIONS %: dh $@ --with quilt override_dh_auto_clean: dh_auto_clean rm -f configure config.sub config.guess VERSION gen_files=`cat src/GDKFILES src/GDKPIXBUFFILES src/GTKFILES src/PANGOFILES`; \ gen_srcs="`echo $$gen_files | sed 's/\.h/.c/g'`"; \ gen_stubs="`echo $$gen_files | sed 's/\.h/.stub/g'`"; \ (cd src && rm -f $$gen_srcs $$gen_stubs gtk-lib.h gtk-lib.inits \ gtk-lib.types gtk_head.c gtk_tail.c gauche-glib.c gauche-gdklib.c) override_dh_auto_configure: ln -sf /usr/share/misc/config.sub . ln -sf /usr/share/misc/config.guess . autoconf -I /usr/share/gauche/0.9 # dh_auto_configure -v -- --enable-gtkgl --enable-glgd-pango ./configure --prefix=/usr --includedir=/usr/include \ --mandir=/usr/share/man --infodir=/usr/share/info \ --sysconfdir=/etc --localstatedir=/var \ --libdir=/usr/lib --libexecdir=/usr/lib \ --enable-gtkgl --enable-glgd-pango (cd src; $(MAKE) stubs) override_dh_auto_test: echo "Don't invoke make check" debian/compat0000644000000000000000000000000212077173070010370 0ustar 9 debian/README.source0000644000000000000000000000065211371653010011345 0ustar gauche-gtk for Debian --------------------- This package uses quilt to manage all modifications to the upstream source. Changes are stored in the source package as diffs in debian/patches and applied during the build. Please see: /usr/share/doc/quilt/README.source for more information on how to apply the patches, modify patches, or remove a patch. -- NIIBE Yutaka , Mon, 10 May 2010 09:40:40 +0900 debian/dirs0000644000000000000000000000002211350103411010031 0ustar usr/lib usr/share debian/copyright0000644000000000000000000000547711350103411011123 0ustar This package was debianized by NIIBE Yutaka on Sat, 6 Mar 2004 14:19:21 +0900. It was downloaded from http://dl.sourceforge.net/sourceforge/gauche/Gauche-gtk-0.3.2.tgz Upstream Author: Shiro Kawai Copyright: COPYING: Copyright (c) 2001-2002 Shiro Kawai, All rights reserved. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. examples/gtk-tutorial/COPYING: The Scheme programs in this directory are derived from the C code examples in GTK Tutorial, and covered by the same license term. The original copyright notice follows. ------------------------------------------------------------------------ The GTK Tutorial is Copyright (C) 1997 Ian Main. Copyright (C) 1998-2002 Tony Gale. Permission is granted to make and distribute verbatim copies of this manual provided the copyright notice and this permission notice are preserved on all copies. Permission is granted to copy and distribute modified versions of this document under the conditions for verbatim copying, provided that this copyright notice is included exactly as in the original, and that the entire resulting derived work is distributed under the terms of a permission notice identical to this one. Permission is granted to copy and distribute translations of this document into another language, under the above conditions for modified versions. If you are intending to incorporate this document into a published work, please contact the maintainer, and we will make an effort to ensure that you have the most up to date information available. There is no guarantee that this document lives up to its intended purpose. This is simply provided as a free resource. As such, the authors and maintainers of the information provided within can not make any guarantee that the information is even accurate. debian/changelog0000644000000000000000000001370412077203474011053 0ustar gauche-gtk (0.6~pre1+git20121223-1) unstable; urgency=low * New upstream release (Closes: #582299, #618047, #666006). * debian/patches/06_gdk_pixbuf.patch: New. Thanks to Mathieu Trudel-Lapierre (Closes: #599239). * debian/compat: Upgrade to 9. * debian/rules (DH_OPTIONS): Add export. Don't use dh_auto_cofigure to avoid installing multiarch directory. * debian/control (Standards-Version): Now, it follows 3.9.4. (Maintainer): Now, it's team maintained. (Uploaders): New (same as gauche). -- NIIBE Yutaka Mon, 21 Jan 2013 16:59:02 +0900 gauche-gtk (0.4.1-13) unstable; urgency=low * debian/patches/05_install_755.patch: New file. * debian/rules (override_dh_auto_install): Removed. -- NIIBE Yutaka Mon, 10 May 2010 09:48:04 +0900 gauche-gtk (0.4.1-12) unstable; urgency=low * debian/patches/01_update_for_newer_gtk.patch: Updated. * debian/patches/02_new_api_0.9.patch: Updated. * debian/patches/03_PIC.patch: New file. * debian/patches/04_new_gcc_cpp.patch: New file. -- NIIBE Yutaka Fri, 19 Mar 2010 14:13:57 +0900 gauche-gtk (0.4.1-11) unstable; urgency=low * debian/control (Build-Depends): Added autoconf. * debian/01_update_for_newer_gtk.patch: Exclude changes against gtk-lib.*. * debian/rules (override_dh_auto_clean): Remove gtk-lib.*. -- NIIBE Yutaka Fri, 19 Mar 2010 10:05:00 +0900 gauche-gtk (0.4.1-10) unstable; urgency=low * debian/patches/02_new_api_0.9.patch: New file for new Gauche 0.9 (Closes: #573688). * debian/patches/{00_no_path_xtra.patch,01_update_for_newer_gtk.patch,series}: New files from diff of 0.4.1-9. * debian/{rules,source,patches,README.source}: Use 3.0 (quilt) format. * debian/compat: Updated. * debian/control (Section): It's now lisp. (Homepage): New field. (Depends): Added ${misc:Depends}. (Build-Depends): This is for new gauche-dev (>= 0.9). -- NIIBE Yutaka Wed, 17 Mar 2010 16:40:40 +0900 gauche-gtk (0.4.1-9) unstable; urgency=low * debian/control (Build-Depends): Depends gauche-dev version 0.8.13 and later. -- NIIBE Yutaka Mon, 18 Feb 2008 09:31:44 +0900 gauche-gtk (0.4.1-8) unstable; urgency=low * debian/rules: Fixes $(MAKE) distclean handling. Fixes gtkobject thing so that g-signal-connect works. * src/h2stub.scm (*header-search-paths*): Changed checking for pango, removing version string for pkg-config's argument. Thanks to Lucas Nussbaum (Closes: #458882). (set-superclass, set-cpl): Check for GInitiallyUnowened to follow GTK+ 2.10 changes. This fixes FTBFS reported by Michael Ablassmeier (Closes: #422801). (parse-enum): Skip #if..#endif. * Build with new gauche 0.8.12. * debian/control (Standards-Version): It now follows to 3.7.3. * debian/watch: Updated. * gtkgl/gdkgllib.stub, gtkgl/gtkgllib.stub: Removed checking of GDKGLEXT_CHECK_VERSION to follow new GCC's C preprocessor. -- NIIBE Yutaka Mon, 21 Jan 2008 18:27:40 +0900 gauche-gtk (0.4.1-7) unstable; urgency=low * debian/control (Build-Depends): Remove libatk1.0-dev. (Standards-Version): Updated to 3.7.2.2. -- NIIBE Yutaka Mon, 11 Dec 2006 14:35:05 +0900 gauche-gtk (0.4.1-6) unstable; urgency=low * Build with new gauche 0.8.8. * debian/control (Build-Depends): Specify gauche-dev 0.8.8 or later. -- NIIBE Yutaka Mon, 4 Dec 2006 10:56:53 +0900 gauche-gtk (0.4.1-5) unstable; urgency=low * Build with new gauche 0.8.7. * debian/control (Build-Depends): Specify gauche-dev 0.8.7 or later. (Standards-Version): Follow new standard 3.7.2. * debian/README.Debian: Spelling correction (extension). * debian/rules: Added binary-indep target. -- NIIBE Yutaka Tue, 23 May 2006 01:20:36 +0900 gauche-gtk (0.4.1-4) unstable; urgency=low * Build with new gauche 0.8.6 (closes: #338710). * debian/control (Build-Depends): Specify gauche-dev 0.8.6 or later. (Standards-Version): Follow new standard 3.6.2. * glgd/Makefile.in: Speficy CFLAGS and LIBS for freetype2, to compile glgd/glgdGraph.c. -- NIIBE Yutaka Wed, 4 Jan 2006 18:26:34 +0900 gauche-gtk (0.4.1-3) unstable; urgency=low * Build with newer gauche. -- NIIBE Yutaka Sat, 4 Jun 2005 01:52:48 +0900 gauche-gtk (0.4.1-2) unstable; urgency=low * debian/control: Specify build dependency to newer gauche-dev (>= 0.8.3) suggested by Lars Wirzenius . Closes: Bug#295877. * debian/control: Update the description to reflect new packaging. -- NIIBE Yutaka Mon, 7 Mar 2005 19:02:19 +0900 gauche-gtk (0.4.1-1) unstable; urgency=low * New upstream release. * debian/control (gauche-gtkgl): Merge into one package. * debian/rules: Added "chmod u+w" for .so modules to let strip them successfully. -- NIIBE Yutaka Sun, 13 Feb 2005 14:48:46 +0900 gauche-gtk (0.3.2-5) unstable; urgency=low * debian/control: Specify only one version dependency to gauche. * debian/README.Debian: Added explanation of gauche ABI of 0.7.4.2. -- NIIBE Yutaka Sat, 23 Oct 2004 14:30:53 +0900 gauche-gtk (0.3.2-4) unstable; urgency=low * configure.in: Fix PIC flag handling (closes: #266528). Reported by Andreas Jochens . Bug report sent to upstream. -- NIIBE Yutaka Wed, 18 Aug 2004 17:01:01 +0900 gauche-gtk (0.3.2-3) unstable; urgency=low * configure.in, src/Makefile.in: Add PIC flag handling (closes: #266264). * Regenerated src/*.stub. -- NIIBE Yutaka Tue, 17 Aug 2004 20:52:43 +0900 gauche-gtk (0.3.2-2) unstable; urgency=low * debian/rules: Don't compress examples. * debian/watch: Simplify URL. -- NIIBE Yutaka Wed, 11 Aug 2004 11:28:18 +0900 gauche-gtk (0.3.2-1) unstable; urgency=low * Initial Release. closes: #236390. -- NIIBE Yutaka Tue, 3 Aug 2004 09:08:21 +0900 debian/README.Debian0000644000000000000000000000153411350103411011217 0ustar gauche-gtk for Debian --------------------- 0.4.1: In Gauche 0.8, SONAME is defeined in libgauche (as libgauche.so.0). However, Gauche still does not have well-defined modular design for extension modules (such like Perl/Python/Rupy). When newer gauche will be packaged for Debian, we will reexamine the Depends: field of control file. History: 0.3.2-1 to 0.3.2-5: This package was compiled with gauche 0.7.4.2, and it had the dependency to a specific version, 0.7.4.2 (although the condition is weaker, in fact). As of 0.7.4.2, module ABI against libgauche was not well defined, we could not specify the version of gauche depended. In the upstream of 0.8, it has been improved. SONAME of libgauche (0.8) includes interface number, so that module can specify the version of libgauche. -- NIIBE Yutaka , ²Ð, 23 5·î 2006 01:42:57 +0900