build initcode

build initcode

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 555 bytes --]

I think a little initcode option would be good on functions, to allow
a bit of code to be inserted at the start.

        * build-guile-gtk-1.2 (emit-funcs): Add "initcode" option to insert
        code at the start of a function.

For instance,

	(define-func gdk_pixbuf_render_threshold_alpha
	  none
	  ((GdkPixbuf pixbuf)
	   (GdkWindow bitmap)
	   (int src_x)
	   (int src_y)
	   (int dest_x)
	   (int dest_y)
	   (int width)
	   (int height)
	   (int alpha_threshold))
	  (initcode "gdk_rgb_init()"))

And similarly for the main gdkrgb functions.



[-- Attachment #2: build-guile-gtk-1.2.initcode.diff --]
[-- Type: text/plain, Size: 431 bytes --]

--- build-guile-gtk-1.2.~1.21.~	2003-08-11 10:31:21.000000000 +1000
+++ build-guile-gtk-1.2	2003-08-11 10:32:04.000000000 +1000
@@ -943,6 +943,11 @@
       (if deprecated?
 	  (@ "  sgtk_issue_deprecation_warning (~s);~%" deprecated?))
 
+      ;; initializer code, if any
+      (let ((initcode (get-opt-val opts 'initcode #f)))
+	(if initcode
+	    (@ "  ~a;~%" initcode)))
+
       (cond
        (n-hack
 	(for-each (lambda (p)

gdk-pixbuf and gdk_rgb_init

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 188 bytes --]

        * gdk-pixbuf/gdk-pixbuf.defs (gdk_pixbuf_render_threshold_alpha,
        gdk_pixbuf_render_to_drawable, gdk_pixbuf_render_to_drawable_alpha):
        Add initcode gdk_rgb_init().


[-- Attachment #2: gdk-pixbuf.defs.reg-init.diff --]
[-- Type: text/plain, Size: 1033 bytes --]

--- gdk-pixbuf.defs.~1.4.~	1970-01-01 10:00:01.000000000 +1000
+++ gdk-pixbuf.defs	2003-08-20 08:28:36.000000000 +1000
@@ -151,7 +151,8 @@
    (int dest_y)
    (int width)
    (int height)
-   (int alpha_threshold)))
+   (int alpha_threshold))
+  (initcode "gdk_rgb_init();"))
 
 (define-func gdk_pixbuf_render_to_drawable 
   none
@@ -166,7 +167,8 @@
    (int height)
    (GdkRgbDither dither)
    (int x_dither)
-   (int y_dither)))
+   (int y_dither))
+  (initcode "gdk_rgb_init();"))
 
 (define-func gdk_pixbuf_render_to_drawable_alpha 
   none
@@ -182,14 +184,16 @@
    (int alpha_threshold)
    (GdkRgbDither dither)
    (int x_dither)
-   (int y_dither)))
+   (int y_dither))
+  (initcode "gdk_rgb_init();"))
 
 ;;(define-func gdk_pixbuf_render_pixmap_and_mask 
 ;;  none
 ;;  ((GdkPixbuf pixbuf)
 ;;   ((cvec GdkPixmap) pixmap_return)
 ;;   ((cvec GdkBitmap) mask_return)
- ;;  (int alpha_threshold)))
+ ;;  (int alpha_threshold))
+;;  (initcode "gdk_rgb_init();"))
 
 (define-func gdk_pixbuf_get_from_drawable 
   GdkPixbuf