Re: [Chicken-users] gtk2 and gtk2-gobject eggs, release 0.3

[Andre Kuehne]

Tony Sidaway wrote:
> I've just committed gtk2-object.egg and gtk2.egg releases 0.3.
>
> Later on I'll probably commit gtk2-glade.egg 0.3.
>
> The frequent crashes are a thing of the past; this is stable code.
> I'll declare a beta release when I've resolved some build issues and
> obtained (or produced) a maintainable version of Tony Garnock-Jones'
> documentation.
<snip>

The attached patch contains two fixes for gtk2-extract-all-types.scm

1) Running make i got the following:

csc -I/usr/include/gtk-2.0 -C -I/usr/lib/gtk-2.0/include -C -I/usr/include/atk-1.0 -C 
-I/usr/include/cairo -C -I/usr/include/pango-1.0 -C -I/usr/include/glib-2.0 -C 
-I/usr/lib/glib-2.0/include -lgtk-x11-2.0 -L -lgdk-x11-2.0 -L -latk-1.0 -L -lgdk_pixbuf-2.0 
-L -lm -L -lpangocairo-1.0 -L -lpango-1.0 -L -lcairo -L -lgobject-2.0 -L -lgmodule-2.0 -L 
-ldl -L -lglib-2.0 -s -o gtk2/gdkevent.so gtk2/gdkevent.scm
strip gtk2/gdkevent.so
csc -o gtk2-extract-all-types gtk2-extract-all-types.scm
./gtk2-extract-all-types 'gdk_.*_get_type' `pkg-config --cflags gtk+-2.0` > 
gdk-types; \
        split -l 60 -d gdk-types gdk-types-
Error: (apply) parameter limit exceeded

        Call history:

        gtk2-extract-all-types.scm: 56   string-search
        gtk2-extract-all-types.scm: 56   string-append
        gtk2-extract-all-types.scm: 56   string-search
        gtk2-extract-all-types.scm: 56   string-append
        gtk2-extract-all-types.scm: 56   string-search
        gtk2-extract-all-types.scm: 56   string-append
        gtk2-extract-all-types.scm: 56   string-search
        gtk2-extract-all-types.scm: 56   string-append
        gtk2-extract-all-types.scm: 56   string-search
        gtk2-extract-all-types.scm: 56   string-append
        gtk2-extract-all-types.scm: 56   string-search
        gtk2-extract-all-types.scm: 56   string-append
        gtk2-extract-all-types.scm: 56   string-search
        gtk2-extract-all-types.scm: 65   read-lines
        gtk2-extract-all-types.scm: 65   loop
        for-each                        <--

To fix this i replaced the "apply append" with a "flatten".

2) This is the same issue as in my prior mail. Just FYI. The idea you mentioned - to define 
the changes between gtk-versions - and then do the right thing based on autodetection. Are 
you planning to implement this in the short term? No rush - Just curious ;-)

Best Wishes
Andre Kühne

Index: gtk2-extract-all-types.scm
===================================================================
--- gtk2-extract-all-types.scm  (revision 3090)
+++ gtk2-extract-all-types.scm  (working copy)
@@ -29,7 +29,7 @@
 ;;
 (define (map-directory d file-proc)
   (or (directory? d) '())
-  (apply append
+  (flatten
        (map
        (lambda (x)
          (let ((dx (string-append d "/" x)))
@@ -58,6 +58,7 @@
                  (not
                   (or (string-search "^#define" ln) ; ignore defines
                       (string-search "^ \\*" ln) ; in practice only happens in 
comments
+                      (string-search "gdk_window_get_type" ln) ; quick fix
                       (string-search "visibility\\(\"hidden\"\\)" ln)))) ; 
hidden fns.
             (unless (memv (cadr ss) type-list)
                     (set! type-list (cons (cadr ss) type-list))))))