Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

cfwrapper.py improved (cleaning of C header files)

  • Loading branch information...
commit 556241731372c5c1b8137a161c35a13fd427fb65 1 parent b1b49d1
@vmagnin vmagnin authored
View
2,644 src/atk-auto.f90
1,337 additions, 1,307 deletions not shown
View
4,424 src/cairo-auto.f90
2,492 additions, 1,932 deletions not shown
View
11 src/cfwrapper.py
@@ -25,7 +25,7 @@
# If not, see <http://www.gnu.org/licenses/>.
#
# Contributed by Vincent Magnin, 01.28.2011
-# Last modification: 19.05.2012 (Python 2.7.3, Linux Ubuntu 12.04)
+# Last modification: 16 feb. 2013 (Python 2.7.3, Linux Ubuntu 12.10)
""" This program generates the *-auto.f90 files
from the C header files of GTK+ in Linux.
@@ -392,7 +392,14 @@ def translate_enums(errorsfile, enum_list):
# Remove C structures
#whole_file = re.sub("(?ms)^static.*}$", "", whole_file)
- whole_file = re.sub("(?ms){.*?}[ \w]*;", "", whole_file)
+ # Remove two levels of { } structures:
+ whole_file = re.sub("(?ms){[^{]*?}$", "", whole_file)
+ whole_file = re.sub("(?ms){[^{]*?}$", "", whole_file)
+ # Remove structures like: { } a_name;
+ whole_file = re.sub("(?ms){[^{]*?}[ \w]*?;", "", whole_file)
+ # Remove "available_in" and "deprecated" directives:
+ whole_file = re.sub("(?m)^.*(_AVAILABLE_IN_|_DEPRECATED).*$", "", whole_file)
+
whole_file = re.sub("(?m)^(enum).*$", "", whole_file)
whole_file = re.sub("(?m)^(typedef|union|struct).*$", "", whole_file)
whole_file = re.sub("(?m)^.*(G_BEGIN_DECLS|CAIRO_BEGIN_DECLS) *$", "", whole_file)
View
6,902 src/gdk-auto.f90
3,451 additions, 3,451 deletions not shown
View
1,180 src/gdk-pixbuf-auto.f90
@@ -1,4 +1,4 @@
-! Automatically generated by cfwrapper.py on Sun Aug 19 15:38:39 2012
+! Automatically generated by cfwrapper.py on Sat Feb 16 17:36:00 2013
! Please do not modify.
! This file is part of the gtk-fortran GTK+ Fortran Interface library.
! GNU General Public License version 3
@@ -7,391 +7,6 @@ module gdk_pixbuf
implicit none
interface
-! void gdk_pixbuf_xlib_init (Display *display, int screen_num);
-subroutine gdk_pixbuf_xlib_init(display, screen_num) bind(c)
- use iso_c_binding, only: c_ptr, c_int
- type(c_ptr), value :: display
- integer(c_int), value :: screen_num
-end subroutine
-
-! void gdk_pixbuf_xlib_init_with_depth (Display *display, int screen_num, int prefDepth);
-subroutine gdk_pixbuf_xlib_init_with_depth(display, screen_num, prefDepth) bind&
-&(c)
- use iso_c_binding, only: c_ptr, c_int
- type(c_ptr), value :: display
- integer(c_int), value :: screen_num
- integer(c_int), value :: prefDepth
-end subroutine
-
-! void gdk_pixbuf_xlib_render_threshold_alpha (GdkPixbuf *pixbuf, Pixmap bitmap, int src_x, int src_y, int dest_x, int dest_y, int width, int height, int alpha_threshold);
-subroutine gdk_pixbuf_xlib_render_threshold_alpha(pixbuf, bitmap, src_x, src_y,&
-& dest_x, dest_y, width, height, alpha_threshold) bind(c)
- use iso_c_binding, only: c_ptr, c_long, c_int
- type(c_ptr), value :: pixbuf
- integer(c_long), value :: bitmap
- integer(c_int), value :: src_x
- integer(c_int), value :: src_y
- integer(c_int), value :: dest_x
- integer(c_int), value :: dest_y
- integer(c_int), value :: width
- integer(c_int), value :: height
- integer(c_int), value :: alpha_threshold
-end subroutine
-
-! void gdk_pixbuf_xlib_render_to_drawable (GdkPixbuf *pixbuf, Drawable drawable, GC gc, int src_x, int src_y, int dest_x, int dest_y, int width, int height, XlibRgbDither dither, int x_dither, int y_dither);
-subroutine gdk_pixbuf_xlib_render_to_drawable(pixbuf, drawable, gc, src_x, src_&
-&y, dest_x, dest_y, width, height, dither, x_dither, y_dither) bind(c)
- use iso_c_binding, only: c_ptr, c_long, c_int
- type(c_ptr), value :: pixbuf
- integer(c_long), value :: drawable
- type(c_ptr), value :: gc
- integer(c_int), value :: src_x
- integer(c_int), value :: src_y
- integer(c_int), value :: dest_x
- integer(c_int), value :: dest_y
- integer(c_int), value :: width
- integer(c_int), value :: height
- integer(c_int), value :: dither
- integer(c_int), value :: x_dither
- integer(c_int), value :: y_dither
-end subroutine
-
-! void gdk_pixbuf_xlib_render_to_drawable_alpha (GdkPixbuf *pixbuf, Drawable drawable, int src_x, int src_y, int dest_x, int dest_y, int width, int height, GdkPixbufAlphaMode alpha_mode, int alpha_threshold, XlibRgbDither dither, int x_dither, int y_dither);
-subroutine gdk_pixbuf_xlib_render_to_drawable_alpha(pixbuf, drawable, src_x, sr&
-&c_y, dest_x, dest_y, width, height, alpha_mode, alpha_threshold, dither, x_dit&
-&her, y_dither) bind(c)
- use iso_c_binding, only: c_ptr, c_long, c_int
- type(c_ptr), value :: pixbuf
- integer(c_long), value :: drawable
- integer(c_int), value :: src_x
- integer(c_int), value :: src_y
- integer(c_int), value :: dest_x
- integer(c_int), value :: dest_y
- integer(c_int), value :: width
- integer(c_int), value :: height
- integer(c_int), value :: alpha_mode
- integer(c_int), value :: alpha_threshold
- integer(c_int), value :: dither
- integer(c_int), value :: x_dither
- integer(c_int), value :: y_dither
-end subroutine
-
-! void gdk_pixbuf_xlib_render_pixmap_and_mask (GdkPixbuf *pixbuf, Pixmap *pixmap_return, Pixmap *mask_return, int alpha_threshold);
-subroutine gdk_pixbuf_xlib_render_pixmap_and_mask(pixbuf, pixmap_return, mask_r&
-&eturn, alpha_threshold) bind(c)
- use iso_c_binding, only: c_ptr, c_int
- type(c_ptr), value :: pixbuf
- type(c_ptr), value :: pixmap_return
- type(c_ptr), value :: mask_return
- integer(c_int), value :: alpha_threshold
-end subroutine
-
-! GdkPixbuf *gdk_pixbuf_xlib_get_from_drawable (GdkPixbuf *dest, Drawable src, Colormap cmap, Visual *visual, int src_x, int src_y, int dest_x, int dest_y, int width, int height);
-function gdk_pixbuf_xlib_get_from_drawable(dest, src, cmap, visual, src_x, src_&
-&y, dest_x, dest_y, width, height) bind(c)
- use iso_c_binding, only: c_ptr, c_long, c_int
- type(c_ptr) :: gdk_pixbuf_xlib_get_from_drawable
- type(c_ptr), value :: dest
- integer(c_long), value :: src
- integer(c_long), value :: cmap
- type(c_ptr), value :: visual
- integer(c_int), value :: src_x
- integer(c_int), value :: src_y
- integer(c_int), value :: dest_x
- integer(c_int), value :: dest_y
- integer(c_int), value :: width
- integer(c_int), value :: height
-end function
-
-! void xlib_rgb_init (Display *display, Screen *screen);
-subroutine xlib_rgb_init(display, screen) bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr), value :: display
- type(c_ptr), value :: screen
-end subroutine
-
-! void xlib_rgb_init_with_depth (Display *display, Screen *screen, int prefDepth);
-subroutine xlib_rgb_init_with_depth(display, screen, prefDepth) bind(c)
- use iso_c_binding, only: c_ptr, c_int
- type(c_ptr), value :: display
- type(c_ptr), value :: screen
- integer(c_int), value :: prefDepth
-end subroutine
-
-! unsigned long xlib_rgb_xpixel_from_rgb (guint32 rgb);
-function xlib_rgb_xpixel_from_rgb(rgb) bind(c)
- use iso_c_binding, only: c_long, c_int32_t
- integer(c_long) :: xlib_rgb_xpixel_from_rgb
- integer(c_int32_t), value :: rgb
-end function
-
-! void xlib_rgb_gc_set_foreground (GC gc, guint32 rgb);
-subroutine xlib_rgb_gc_set_foreground(gc, rgb) bind(c)
- use iso_c_binding, only: c_ptr, c_int32_t
- type(c_ptr), value :: gc
- integer(c_int32_t), value :: rgb
-end subroutine
-
-! void xlib_rgb_gc_set_background (GC gc, guint32 rgb);
-subroutine xlib_rgb_gc_set_background(gc, rgb) bind(c)
- use iso_c_binding, only: c_ptr, c_int32_t
- type(c_ptr), value :: gc
- integer(c_int32_t), value :: rgb
-end subroutine
-
-! void xlib_draw_rgb_image (Drawable drawable, GC gc, int x, int y, int width, int height, XlibRgbDither dith, unsigned char *rgb_buf, int rowstride);
-subroutine xlib_draw_rgb_image(drawable, gc, x, y, width, height, dith, rgb_buf&
-&, rowstride) bind(c)
- use iso_c_binding, only: c_long, c_ptr, c_int
- integer(c_long), value :: drawable
- type(c_ptr), value :: gc
- integer(c_int), value :: x
- integer(c_int), value :: y
- integer(c_int), value :: width
- integer(c_int), value :: height
- integer(c_int), value :: dith
- type(c_ptr), value :: rgb_buf
- integer(c_int), value :: rowstride
-end subroutine
-
-! void xlib_draw_rgb_image_dithalign (Drawable drawable, GC gc, int x, int y, int width, int height, XlibRgbDither dith, unsigned char *rgb_buf, int rowstride, int xdith, int ydith);
-subroutine xlib_draw_rgb_image_dithalign(drawable, gc, x, y, width, height, dit&
-&h, rgb_buf, rowstride, xdith, ydith) bind(c)
- use iso_c_binding, only: c_long, c_ptr, c_int
- integer(c_long), value :: drawable
- type(c_ptr), value :: gc
- integer(c_int), value :: x
- integer(c_int), value :: y
- integer(c_int), value :: width
- integer(c_int), value :: height
- integer(c_int), value :: dith
- type(c_ptr), value :: rgb_buf
- integer(c_int), value :: rowstride
- integer(c_int), value :: xdith
- integer(c_int), value :: ydith
-end subroutine
-
-! void xlib_draw_rgb_32_image (Drawable drawable, GC gc, int x, int y, int width, int height, XlibRgbDither dith, unsigned char *buf, int rowstride);
-subroutine xlib_draw_rgb_32_image(drawable, gc, x, y, width, height, dith, buf,&
-& rowstride) bind(c)
- use iso_c_binding, only: c_long, c_ptr, c_int
- integer(c_long), value :: drawable
- type(c_ptr), value :: gc
- integer(c_int), value :: x
- integer(c_int), value :: y
- integer(c_int), value :: width
- integer(c_int), value :: height
- integer(c_int), value :: dith
- type(c_ptr), value :: buf
- integer(c_int), value :: rowstride
-end subroutine
-
-! void xlib_draw_gray_image (Drawable drawable, GC gc, int x, int y, int width, int height, XlibRgbDither dith, unsigned char *buf, int rowstride);
-subroutine xlib_draw_gray_image(drawable, gc, x, y, width, height, dith, buf, r&
-&owstride) bind(c)
- use iso_c_binding, only: c_long, c_ptr, c_int
- integer(c_long), value :: drawable
- type(c_ptr), value :: gc
- integer(c_int), value :: x
- integer(c_int), value :: y
- integer(c_int), value :: width
- integer(c_int), value :: height
- integer(c_int), value :: dith
- type(c_ptr), value :: buf
- integer(c_int), value :: rowstride
-end subroutine
-
-! XlibRgbCmap * xlib_rgb_cmap_new (guint32 *colors, int n_colors);
-function xlib_rgb_cmap_new(colors, n_colors) bind(c)
- use iso_c_binding, only: c_ptr, c_int
- type(c_ptr) :: xlib_rgb_cmap_new
- type(c_ptr), value :: colors
- integer(c_int), value :: n_colors
-end function
-
-! void xlib_rgb_cmap_free (XlibRgbCmap *cmap);
-subroutine xlib_rgb_cmap_free(cmap) bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr), value :: cmap
-end subroutine
-
-! void xlib_draw_indexed_image (Drawable drawable, GC gc, int x, int y, int width, int height, XlibRgbDither dith, unsigned char *buf, int rowstride, XlibRgbCmap *cmap);
-subroutine xlib_draw_indexed_image(drawable, gc, x, y, width, height, dith, buf&
-&, rowstride, cmap) bind(c)
- use iso_c_binding, only: c_long, c_ptr, c_int
- integer(c_long), value :: drawable
- type(c_ptr), value :: gc
- integer(c_int), value :: x
- integer(c_int), value :: y
- integer(c_int), value :: width
- integer(c_int), value :: height
- integer(c_int), value :: dith
- type(c_ptr), value :: buf
- integer(c_int), value :: rowstride
- type(c_ptr), value :: cmap
-end subroutine
-
-! Bool xlib_rgb_ditherable (void);
-function xlib_rgb_ditherable() bind(c)
- use iso_c_binding, only: c_int
- integer(c_int) :: xlib_rgb_ditherable
-end function
-
-! void xlib_rgb_set_verbose (Bool verbose);
-subroutine xlib_rgb_set_verbose(verbose) bind(c)
- use iso_c_binding, only: c_int
- integer(c_int), value :: verbose
-end subroutine
-
-! void xlib_rgb_set_install (Bool install);
-subroutine xlib_rgb_set_install(install) bind(c)
- use iso_c_binding, only: c_int
- integer(c_int), value :: install
-end subroutine
-
-! void xlib_rgb_set_min_colors (int min_colors);
-subroutine xlib_rgb_set_min_colors(min_colors) bind(c)
- use iso_c_binding, only: c_int
- integer(c_int), value :: min_colors
-end subroutine
-
-! Colormap xlib_rgb_get_cmap (void);
-function xlib_rgb_get_cmap() bind(c)
- use iso_c_binding, only: c_long
- integer(c_long) :: xlib_rgb_get_cmap
-end function
-
-! Visual * xlib_rgb_get_visual (void);
-function xlib_rgb_get_visual() bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr) :: xlib_rgb_get_visual
-end function
-
-! XVisualInfo * xlib_rgb_get_visual_info (void);
-function xlib_rgb_get_visual_info() bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr) :: xlib_rgb_get_visual_info
-end function
-
-! int xlib_rgb_get_depth (void);
-function xlib_rgb_get_depth() bind(c)
- use iso_c_binding, only: c_int
- integer(c_int) :: xlib_rgb_get_depth
-end function
-
-! Display * xlib_rgb_get_display (void);
-function xlib_rgb_get_display() bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr) :: xlib_rgb_get_display
-end function
-
-! Screen * xlib_rgb_get_screen (void);
-function xlib_rgb_get_screen() bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr) :: xlib_rgb_get_screen
-end function
-
-! void gdk_pixbuf_scale (const GdkPixbuf *src, GdkPixbuf *dest, int dest_x, int dest_y, int dest_width, int dest_height, double offset_x, double offset_y, double scale_x, double scale_y, GdkInterpType interp_type);
-subroutine gdk_pixbuf_scale(src, dest, dest_x, dest_y, dest_width, dest_height,&
-& offset_x, offset_y, scale_x, scale_y, interp_type) bind(c)
- use iso_c_binding, only: c_ptr, c_int, c_double
- type(c_ptr), value :: src
- type(c_ptr), value :: dest
- integer(c_int), value :: dest_x
- integer(c_int), value :: dest_y
- integer(c_int), value :: dest_width
- integer(c_int), value :: dest_height
- real(c_double), value :: offset_x
- real(c_double), value :: offset_y
- real(c_double), value :: scale_x
- real(c_double), value :: scale_y
- integer(c_int), value :: interp_type
-end subroutine
-
-! void gdk_pixbuf_composite (const GdkPixbuf *src, GdkPixbuf *dest, int dest_x, int dest_y, int dest_width, int dest_height, double offset_x, double offset_y, double scale_x, double scale_y, GdkInterpType interp_type, int overall_alpha);
-subroutine gdk_pixbuf_composite(src, dest, dest_x, dest_y, dest_width, dest_hei&
-&ght, offset_x, offset_y, scale_x, scale_y, interp_type, overall_alpha) bind(c)
- use iso_c_binding, only: c_ptr, c_int, c_double
- type(c_ptr), value :: src
- type(c_ptr), value :: dest
- integer(c_int), value :: dest_x
- integer(c_int), value :: dest_y
- integer(c_int), value :: dest_width
- integer(c_int), value :: dest_height
- real(c_double), value :: offset_x
- real(c_double), value :: offset_y
- real(c_double), value :: scale_x
- real(c_double), value :: scale_y
- integer(c_int), value :: interp_type
- integer(c_int), value :: overall_alpha
-end subroutine
-
-! void gdk_pixbuf_composite_color (const GdkPixbuf *src, GdkPixbuf *dest, int dest_x, int dest_y, int dest_width, int dest_height, double offset_x, double offset_y, double scale_x, double scale_y, GdkInterpType interp_type, int overall_alpha, int check_x, int check_y, int check_size, guint32 color1, guint32 color2);
-subroutine gdk_pixbuf_composite_color(src, dest, dest_x, dest_y, dest_width, de&
-&st_height, offset_x, offset_y, scale_x, scale_y, interp_type, overall_alpha, c&
-&heck_x, check_y, check_size, color1, color2) bind(c)
- use iso_c_binding, only: c_ptr, c_int, c_double, c_int32_t
- type(c_ptr), value :: src
- type(c_ptr), value :: dest
- integer(c_int), value :: dest_x
- integer(c_int), value :: dest_y
- integer(c_int), value :: dest_width
- integer(c_int), value :: dest_height
- real(c_double), value :: offset_x
- real(c_double), value :: offset_y
- real(c_double), value :: scale_x
- real(c_double), value :: scale_y
- integer(c_int), value :: interp_type
- integer(c_int), value :: overall_alpha
- integer(c_int), value :: check_x
- integer(c_int), value :: check_y
- integer(c_int), value :: check_size
- integer(c_int32_t), value :: color1
- integer(c_int32_t), value :: color2
-end subroutine
-
-! GdkPixbuf *gdk_pixbuf_scale_simple (const GdkPixbuf *src, int dest_width, int dest_height, GdkInterpType interp_type);
-function gdk_pixbuf_scale_simple(src, dest_width, dest_height, interp_type) bin&
-&d(c)
- use iso_c_binding, only: c_ptr, c_int
- type(c_ptr) :: gdk_pixbuf_scale_simple
- type(c_ptr), value :: src
- integer(c_int), value :: dest_width
- integer(c_int), value :: dest_height
- integer(c_int), value :: interp_type
-end function
-
-! GdkPixbuf *gdk_pixbuf_composite_color_simple (const GdkPixbuf *src, int dest_width, int dest_height, GdkInterpType interp_type, int overall_alpha, int check_size, guint32 color1, guint32 color2);
-function gdk_pixbuf_composite_color_simple(src, dest_width, dest_height, interp&
-&_type, overall_alpha, check_size, color1, color2) bind(c)
- use iso_c_binding, only: c_ptr, c_int, c_int32_t
- type(c_ptr) :: gdk_pixbuf_composite_color_simple
- type(c_ptr), value :: src
- integer(c_int), value :: dest_width
- integer(c_int), value :: dest_height
- integer(c_int), value :: interp_type
- integer(c_int), value :: overall_alpha
- integer(c_int), value :: check_size
- integer(c_int32_t), value :: color1
- integer(c_int32_t), value :: color2
-end function
-
-! GdkPixbuf *gdk_pixbuf_rotate_simple (const GdkPixbuf *src, GdkPixbufRotation angle);
-function gdk_pixbuf_rotate_simple(src, angle) bind(c)
- use iso_c_binding, only: c_ptr, c_int
- type(c_ptr) :: gdk_pixbuf_rotate_simple
- type(c_ptr), value :: src
- integer(c_int), value :: angle
-end function
-
-! GdkPixbuf *gdk_pixbuf_flip (const GdkPixbuf *src, gboolean horizontal);
-function gdk_pixbuf_flip(src, horizontal) bind(c)
- use iso_c_binding, only: c_ptr, c_int
- type(c_ptr) :: gdk_pixbuf_flip
- type(c_ptr), value :: src
- integer(c_int), value :: horizontal
-end function
-
! GType gdk_pixbuf_simple_anim_get_type (void) G_GNUC_CONST;
function gdk_pixbuf_simple_anim_get_type() bind(c)
use iso_c_binding, only: c_size_t
@@ -434,34 +49,49 @@ function gdk_pixbuf_simple_anim_get_loop(animation) bind(c)
type(c_ptr), value :: animation
end function
-! GType gdk_pixbuf_alpha_mode_get_type (void) G_GNUC_CONST;
-function gdk_pixbuf_alpha_mode_get_type() bind(c)
- use iso_c_binding, only: c_size_t
- integer(c_size_t) :: gdk_pixbuf_alpha_mode_get_type
+! guint8* gdk_pixdata_serialize (const GdkPixdata *pixdata, guint *stream_length_p);
+function gdk_pixdata_serialize(pixdata, stream_length_p) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixdata_serialize
+ type(c_ptr), value :: pixdata
+ type(c_ptr), value :: stream_length_p
end function
-
-! GType gdk_colorspace_get_type (void) G_GNUC_CONST;
-function gdk_colorspace_get_type() bind(c)
- use iso_c_binding, only: c_size_t
- integer(c_size_t) :: gdk_colorspace_get_type
+
+! gboolean gdk_pixdata_deserialize (GdkPixdata *pixdata, guint stream_length, const guint8 *stream, GError **error);
+function gdk_pixdata_deserialize(pixdata, stream_length, stream, error) bind(c)
+ use iso_c_binding, only: c_int, c_ptr
+ integer(c_int) :: gdk_pixdata_deserialize
+ type(c_ptr), value :: pixdata
+ integer(c_int), value :: stream_length
+ type(c_ptr), value :: stream
+ type(c_ptr), value :: error
end function
-! GType gdk_pixbuf_error_get_type (void) G_GNUC_CONST;
-function gdk_pixbuf_error_get_type() bind(c)
- use iso_c_binding, only: c_size_t
- integer(c_size_t) :: gdk_pixbuf_error_get_type
+! gpointer gdk_pixdata_from_pixbuf (GdkPixdata *pixdata, const GdkPixbuf *pixbuf, gboolean use_rle);
+function gdk_pixdata_from_pixbuf(pixdata, pixbuf, use_rle) bind(c)
+ use iso_c_binding, only: c_ptr, c_int
+ type(c_ptr) :: gdk_pixdata_from_pixbuf
+ type(c_ptr), value :: pixdata
+ type(c_ptr), value :: pixbuf
+ integer(c_int), value :: use_rle
end function
-! GType gdk_interp_type_get_type (void) G_GNUC_CONST;
-function gdk_interp_type_get_type() bind(c)
- use iso_c_binding, only: c_size_t
- integer(c_size_t) :: gdk_interp_type_get_type
+! GdkPixbuf* gdk_pixbuf_from_pixdata (const GdkPixdata *pixdata, gboolean copy_pixels, GError **error);
+function gdk_pixbuf_from_pixdata(pixdata, copy_pixels, error) bind(c)
+ use iso_c_binding, only: c_ptr, c_int
+ type(c_ptr) :: gdk_pixbuf_from_pixdata
+ type(c_ptr), value :: pixdata
+ integer(c_int), value :: copy_pixels
+ type(c_ptr), value :: error
end function
-! GType gdk_pixbuf_rotation_get_type (void) G_GNUC_CONST;
-function gdk_pixbuf_rotation_get_type() bind(c)
- use iso_c_binding, only: c_size_t
- integer(c_size_t) :: gdk_pixbuf_rotation_get_type
+! GString* gdk_pixdata_to_csource (GdkPixdata *pixdata, const gchar *name, GdkPixdataDumpType dump_type);
+function gdk_pixdata_to_csource(pixdata, name, dump_type) bind(c)
+ use iso_c_binding, only: c_ptr, c_char, c_int
+ type(c_ptr) :: gdk_pixdata_to_csource
+ type(c_ptr), value :: pixdata
+ character(kind=c_char), dimension(*) :: name
+ integer(c_int), value :: dump_type
end function
! GQuark gdk_pixbuf_error_quark (void);
@@ -476,6 +106,19 @@ function gdk_pixbuf_get_type() bind(c)
integer(c_size_t) :: gdk_pixbuf_get_type
end function
+! GdkPixbuf *gdk_pixbuf_ref (GdkPixbuf *pixbuf);
+function gdk_pixbuf_ref(pixbuf) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixbuf_ref
+ type(c_ptr), value :: pixbuf
+end function
+
+! void gdk_pixbuf_unref (GdkPixbuf *pixbuf);
+subroutine gdk_pixbuf_unref(pixbuf) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr), value :: pixbuf
+end subroutine
+
! GdkColorspace gdk_pixbuf_get_colorspace (const GdkPixbuf *pixbuf);
function gdk_pixbuf_get_colorspace(pixbuf) bind(c)
use iso_c_binding, only: c_int, c_ptr
@@ -822,6 +465,222 @@ function gdk_pixbuf_get_option(pixbuf, key) bind(c)
character(kind=c_char), dimension(*) :: key
end function
+! GType gdk_pixbuf_animation_get_type (void) G_GNUC_CONST;
+function gdk_pixbuf_animation_get_type() bind(c)
+ use iso_c_binding, only: c_size_t
+ integer(c_size_t) :: gdk_pixbuf_animation_get_type
+end function
+
+! GdkPixbufAnimation *gdk_pixbuf_animation_new_from_file (const char *filename, GError **error);
+function gdk_pixbuf_animation_new_from_file(filename, error) bind(c)
+ use iso_c_binding, only: c_ptr, c_char
+ type(c_ptr) :: gdk_pixbuf_animation_new_from_file
+ character(kind=c_char), dimension(*) :: filename
+ type(c_ptr), value :: error
+end function
+
+! GdkPixbufAnimation *gdk_pixbuf_animation_ref (GdkPixbufAnimation *animation);
+function gdk_pixbuf_animation_ref(animation) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixbuf_animation_ref
+ type(c_ptr), value :: animation
+end function
+
+! void gdk_pixbuf_animation_unref (GdkPixbufAnimation *animation);
+subroutine gdk_pixbuf_animation_unref(animation) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr), value :: animation
+end subroutine
+
+! int gdk_pixbuf_animation_get_width (GdkPixbufAnimation *animation);
+function gdk_pixbuf_animation_get_width(animation) bind(c)
+ use iso_c_binding, only: c_int, c_ptr
+ integer(c_int) :: gdk_pixbuf_animation_get_width
+ type(c_ptr), value :: animation
+end function
+
+! int gdk_pixbuf_animation_get_height (GdkPixbufAnimation *animation);
+function gdk_pixbuf_animation_get_height(animation) bind(c)
+ use iso_c_binding, only: c_int, c_ptr
+ integer(c_int) :: gdk_pixbuf_animation_get_height
+ type(c_ptr), value :: animation
+end function
+
+! gboolean gdk_pixbuf_animation_is_static_image (GdkPixbufAnimation *animation);
+function gdk_pixbuf_animation_is_static_image(animation) bind(c)
+ use iso_c_binding, only: c_int, c_ptr
+ integer(c_int) :: gdk_pixbuf_animation_is_static_image
+ type(c_ptr), value :: animation
+end function
+
+! GdkPixbuf *gdk_pixbuf_animation_get_static_image (GdkPixbufAnimation *animation);
+function gdk_pixbuf_animation_get_static_image(animation) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixbuf_animation_get_static_image
+ type(c_ptr), value :: animation
+end function
+
+! GdkPixbufAnimationIter *gdk_pixbuf_animation_get_iter (GdkPixbufAnimation *animation, const GTimeVal *start_time);
+function gdk_pixbuf_animation_get_iter(animation, start_time) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixbuf_animation_get_iter
+ type(c_ptr), value :: animation
+ type(c_ptr), value :: start_time
+end function
+
+! GType gdk_pixbuf_animation_iter_get_type (void) G_GNUC_CONST;
+function gdk_pixbuf_animation_iter_get_type() bind(c)
+ use iso_c_binding, only: c_size_t
+ integer(c_size_t) :: gdk_pixbuf_animation_iter_get_type
+end function
+
+! int gdk_pixbuf_animation_iter_get_delay_time (GdkPixbufAnimationIter *iter);
+function gdk_pixbuf_animation_iter_get_delay_time(iter) bind(c)
+ use iso_c_binding, only: c_int, c_ptr
+ integer(c_int) :: gdk_pixbuf_animation_iter_get_delay_time
+ type(c_ptr), value :: iter
+end function
+
+! GdkPixbuf *gdk_pixbuf_animation_iter_get_pixbuf (GdkPixbufAnimationIter *iter);
+function gdk_pixbuf_animation_iter_get_pixbuf(iter) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixbuf_animation_iter_get_pixbuf
+ type(c_ptr), value :: iter
+end function
+
+! gboolean gdk_pixbuf_animation_iter_on_currently_loading_frame (GdkPixbufAnimationIter *iter);
+function gdk_pixbuf_animation_iter_on_currently_loading_frame(iter) bind(c)
+ use iso_c_binding, only: c_int, c_ptr
+ integer(c_int) :: gdk_pixbuf_animation_iter_on_currently_loading_frame
+ type(c_ptr), value :: iter
+end function
+
+! gboolean gdk_pixbuf_animation_iter_advance (GdkPixbufAnimationIter *iter, const GTimeVal *current_time);
+function gdk_pixbuf_animation_iter_advance(iter, current_time) bind(c)
+ use iso_c_binding, only: c_int, c_ptr
+ integer(c_int) :: gdk_pixbuf_animation_iter_advance
+ type(c_ptr), value :: iter
+ type(c_ptr), value :: current_time
+end function
+
+! GType gdk_pixbuf_non_anim_get_type (void) G_GNUC_CONST;
+function gdk_pixbuf_non_anim_get_type() bind(c)
+ use iso_c_binding, only: c_size_t
+ integer(c_size_t) :: gdk_pixbuf_non_anim_get_type
+end function
+
+! GdkPixbufAnimation* gdk_pixbuf_non_anim_new (GdkPixbuf *pixbuf);
+function gdk_pixbuf_non_anim_new(pixbuf) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixbuf_non_anim_new
+ type(c_ptr), value :: pixbuf
+end function
+
+! GType gdk_pixbuf_loader_get_type (void) G_GNUC_CONST;
+function gdk_pixbuf_loader_get_type() bind(c)
+ use iso_c_binding, only: c_size_t
+ integer(c_size_t) :: gdk_pixbuf_loader_get_type
+end function
+
+! GdkPixbufLoader * gdk_pixbuf_loader_new (void);
+function gdk_pixbuf_loader_new() bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixbuf_loader_new
+end function
+
+! GdkPixbufLoader * gdk_pixbuf_loader_new_with_type (const char *image_type, GError **error);
+function gdk_pixbuf_loader_new_with_type(image_type, error) bind(c)
+ use iso_c_binding, only: c_ptr, c_char
+ type(c_ptr) :: gdk_pixbuf_loader_new_with_type
+ character(kind=c_char), dimension(*) :: image_type
+ type(c_ptr), value :: error
+end function
+
+! GdkPixbufLoader * gdk_pixbuf_loader_new_with_mime_type (const char *mime_type, GError **error);
+function gdk_pixbuf_loader_new_with_mime_type(mime_type, error) bind(c)
+ use iso_c_binding, only: c_ptr, c_char
+ type(c_ptr) :: gdk_pixbuf_loader_new_with_mime_type
+ character(kind=c_char), dimension(*) :: mime_type
+ type(c_ptr), value :: error
+end function
+
+! void gdk_pixbuf_loader_set_size (GdkPixbufLoader *loader, int width, int height);
+subroutine gdk_pixbuf_loader_set_size(loader, width, height) bind(c)
+ use iso_c_binding, only: c_ptr, c_int
+ type(c_ptr), value :: loader
+ integer(c_int), value :: width
+ integer(c_int), value :: height
+end subroutine
+
+! gboolean gdk_pixbuf_loader_write (GdkPixbufLoader *loader, const guchar *buf, gsize count, GError **error);
+function gdk_pixbuf_loader_write(loader, buf, count, error) bind(c)
+ use iso_c_binding, only: c_int, c_ptr, c_char, c_size_t
+ integer(c_int) :: gdk_pixbuf_loader_write
+ type(c_ptr), value :: loader
+ character(kind=c_char), dimension(*) :: buf
+ integer(c_size_t), value :: count
+ type(c_ptr), value :: error
+end function
+
+! GdkPixbuf * gdk_pixbuf_loader_get_pixbuf (GdkPixbufLoader *loader);
+function gdk_pixbuf_loader_get_pixbuf(loader) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixbuf_loader_get_pixbuf
+ type(c_ptr), value :: loader
+end function
+
+! GdkPixbufAnimation * gdk_pixbuf_loader_get_animation (GdkPixbufLoader *loader);
+function gdk_pixbuf_loader_get_animation(loader) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixbuf_loader_get_animation
+ type(c_ptr), value :: loader
+end function
+
+! gboolean gdk_pixbuf_loader_close (GdkPixbufLoader *loader, GError **error);
+function gdk_pixbuf_loader_close(loader, error) bind(c)
+ use iso_c_binding, only: c_int, c_ptr
+ integer(c_int) :: gdk_pixbuf_loader_close
+ type(c_ptr), value :: loader
+ type(c_ptr), value :: error
+end function
+
+! GdkPixbufFormat *gdk_pixbuf_loader_get_format (GdkPixbufLoader *loader);
+function gdk_pixbuf_loader_get_format(loader) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: gdk_pixbuf_loader_get_format
+ type(c_ptr), value :: loader
+end function
+
+! GType gdk_pixbuf_alpha_mode_get_type (void) G_GNUC_CONST;
+function gdk_pixbuf_alpha_mode_get_type() bind(c)
+ use iso_c_binding, only: c_size_t
+ integer(c_size_t) :: gdk_pixbuf_alpha_mode_get_type
+end function
+
+! GType gdk_colorspace_get_type (void) G_GNUC_CONST;
+function gdk_colorspace_get_type() bind(c)
+ use iso_c_binding, only: c_size_t
+ integer(c_size_t) :: gdk_colorspace_get_type
+end function
+
+! GType gdk_pixbuf_error_get_type (void) G_GNUC_CONST;
+function gdk_pixbuf_error_get_type() bind(c)
+ use iso_c_binding, only: c_size_t
+ integer(c_size_t) :: gdk_pixbuf_error_get_type
+end function
+
+! GType gdk_interp_type_get_type (void) G_GNUC_CONST;
+function gdk_interp_type_get_type() bind(c)
+ use iso_c_binding, only: c_size_t
+ integer(c_size_t) :: gdk_interp_type_get_type
+end function
+
+! GType gdk_pixbuf_rotation_get_type (void) G_GNUC_CONST;
+function gdk_pixbuf_rotation_get_type() bind(c)
+ use iso_c_binding, only: c_size_t
+ integer(c_size_t) :: gdk_pixbuf_rotation_get_type
+end function
+
! GType gdk_pixbuf_format_get_type (void) G_GNUC_CONST;
function gdk_pixbuf_format_get_type() bind(c)
use iso_c_binding, only: c_size_t
@@ -928,222 +787,389 @@ function gdk_pixbuf_set_option(pixbuf, key, value) bind(c)
character(kind=c_char), dimension(*) :: value
end function
-! GType gdk_pixbuf_loader_get_type (void) G_GNUC_CONST;
-function gdk_pixbuf_loader_get_type() bind(c)
- use iso_c_binding, only: c_size_t
- integer(c_size_t) :: gdk_pixbuf_loader_get_type
+! void gdk_pixbuf_scale (const GdkPixbuf *src, GdkPixbuf *dest, int dest_x, int dest_y, int dest_width, int dest_height, double offset_x, double offset_y, double scale_x, double scale_y, GdkInterpType interp_type);
+subroutine gdk_pixbuf_scale(src, dest, dest_x, dest_y, dest_width, dest_height,&
+& offset_x, offset_y, scale_x, scale_y, interp_type) bind(c)
+ use iso_c_binding, only: c_ptr, c_int, c_double
+ type(c_ptr), value :: src
+ type(c_ptr), value :: dest
+ integer(c_int), value :: dest_x
+ integer(c_int), value :: dest_y
+ integer(c_int), value :: dest_width
+ integer(c_int), value :: dest_height
+ real(c_double), value :: offset_x
+ real(c_double), value :: offset_y
+ real(c_double), value :: scale_x
+ real(c_double), value :: scale_y
+ integer(c_int), value :: interp_type
+end subroutine
+
+! void gdk_pixbuf_composite (const GdkPixbuf *src, GdkPixbuf *dest, int dest_x, int dest_y, int dest_width, int dest_height, double offset_x, double offset_y, double scale_x, double scale_y, GdkInterpType interp_type, int overall_alpha);
+subroutine gdk_pixbuf_composite(src, dest, dest_x, dest_y, dest_width, dest_hei&
+&ght, offset_x, offset_y, scale_x, scale_y, interp_type, overall_alpha) bind(c)
+ use iso_c_binding, only: c_ptr, c_int, c_double
+ type(c_ptr), value :: src
+ type(c_ptr), value :: dest
+ integer(c_int), value :: dest_x
+ integer(c_int), value :: dest_y
+ integer(c_int), value :: dest_width
+ integer(c_int), value :: dest_height
+ real(c_double), value :: offset_x
+ real(c_double), value :: offset_y
+ real(c_double), value :: scale_x
+ real(c_double), value :: scale_y
+ integer(c_int), value :: interp_type
+ integer(c_int), value :: overall_alpha
+end subroutine
+
+! void gdk_pixbuf_composite_color (const GdkPixbuf *src, GdkPixbuf *dest, int dest_x, int dest_y, int dest_width, int dest_height, double offset_x, double offset_y, double scale_x, double scale_y, GdkInterpType interp_type, int overall_alpha, int check_x, int check_y, int check_size, guint32 color1, guint32 color2);
+subroutine gdk_pixbuf_composite_color(src, dest, dest_x, dest_y, dest_width, de&
+&st_height, offset_x, offset_y, scale_x, scale_y, interp_type, overall_alpha, c&
+&heck_x, check_y, check_size, color1, color2) bind(c)
+ use iso_c_binding, only: c_ptr, c_int, c_double, c_int32_t
+ type(c_ptr), value :: src
+ type(c_ptr), value :: dest
+ integer(c_int), value :: dest_x
+ integer(c_int), value :: dest_y
+ integer(c_int), value :: dest_width
+ integer(c_int), value :: dest_height
+ real(c_double), value :: offset_x
+ real(c_double), value :: offset_y
+ real(c_double), value :: scale_x
+ real(c_double), value :: scale_y
+ integer(c_int), value :: interp_type
+ integer(c_int), value :: overall_alpha
+ integer(c_int), value :: check_x
+ integer(c_int), value :: check_y
+ integer(c_int), value :: check_size
+ integer(c_int32_t), value :: color1
+ integer(c_int32_t), value :: color2
+end subroutine
+
+! GdkPixbuf *gdk_pixbuf_scale_simple (const GdkPixbuf *src, int dest_width, int dest_height, GdkInterpType interp_type);
+function gdk_pixbuf_scale_simple(src, dest_width, dest_height, interp_type) bin&
+&d(c)
+ use iso_c_binding, only: c_ptr, c_int
+ type(c_ptr) :: gdk_pixbuf_scale_simple
+ type(c_ptr), value :: src
+ integer(c_int), value :: dest_width
+ integer(c_int), value :: dest_height
+ integer(c_int), value :: interp_type
end function
-! GdkPixbufLoader * gdk_pixbuf_loader_new (void);
-function gdk_pixbuf_loader_new() bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr) :: gdk_pixbuf_loader_new
+! GdkPixbuf *gdk_pixbuf_composite_color_simple (const GdkPixbuf *src, int dest_width, int dest_height, GdkInterpType interp_type, int overall_alpha, int check_size, guint32 color1, guint32 color2);
+function gdk_pixbuf_composite_color_simple(src, dest_width, dest_height, interp&
+&_type, overall_alpha, check_size, color1, color2) bind(c)
+ use iso_c_binding, only: c_ptr, c_int, c_int32_t
+ type(c_ptr) :: gdk_pixbuf_composite_color_simple
+ type(c_ptr), value :: src
+ integer(c_int), value :: dest_width
+ integer(c_int), value :: dest_height
+ integer(c_int), value :: interp_type
+ integer(c_int), value :: overall_alpha
+ integer(c_int), value :: check_size
+ integer(c_int32_t), value :: color1
+ integer(c_int32_t), value :: color2
end function
-! GdkPixbufLoader * gdk_pixbuf_loader_new_with_type (const char *image_type, GError **error);
-function gdk_pixbuf_loader_new_with_type(image_type, error) bind(c)
- use iso_c_binding, only: c_ptr, c_char
- type(c_ptr) :: gdk_pixbuf_loader_new_with_type
- character(kind=c_char), dimension(*) :: image_type
- type(c_ptr), value :: error
+! GdkPixbuf *gdk_pixbuf_rotate_simple (const GdkPixbuf *src, GdkPixbufRotation angle);
+function gdk_pixbuf_rotate_simple(src, angle) bind(c)
+ use iso_c_binding, only: c_ptr, c_int
+ type(c_ptr) :: gdk_pixbuf_rotate_simple
+ type(c_ptr), value :: src
+ integer(c_int), value :: angle
end function
-! GdkPixbufLoader * gdk_pixbuf_loader_new_with_mime_type (const char *mime_type, GError **error);
-function gdk_pixbuf_loader_new_with_mime_type(mime_type, error) bind(c)
- use iso_c_binding, only: c_ptr, c_char
- type(c_ptr) :: gdk_pixbuf_loader_new_with_mime_type
- character(kind=c_char), dimension(*) :: mime_type
- type(c_ptr), value :: error
+! GdkPixbuf *gdk_pixbuf_flip (const GdkPixbuf *src, gboolean horizontal);
+function gdk_pixbuf_flip(src, horizontal) bind(c)
+ use iso_c_binding, only: c_ptr, c_int
+ type(c_ptr) :: gdk_pixbuf_flip
+ type(c_ptr), value :: src
+ integer(c_int), value :: horizontal
end function
-! void gdk_pixbuf_loader_set_size (GdkPixbufLoader *loader, int width, int height);
-subroutine gdk_pixbuf_loader_set_size(loader, width, height) bind(c)
+! void gdk_pixbuf_xlib_init (Display *display, int screen_num);
+subroutine gdk_pixbuf_xlib_init(display, screen_num) bind(c)
use iso_c_binding, only: c_ptr, c_int
- type(c_ptr), value :: loader
- integer(c_int), value :: width
- integer(c_int), value :: height
+ type(c_ptr), value :: display
+ integer(c_int), value :: screen_num
end subroutine
-! gboolean gdk_pixbuf_loader_write (GdkPixbufLoader *loader, const guchar *buf, gsize count, GError **error);
-function gdk_pixbuf_loader_write(loader, buf, count, error) bind(c)
- use iso_c_binding, only: c_int, c_ptr, c_char, c_size_t
- integer(c_int) :: gdk_pixbuf_loader_write
- type(c_ptr), value :: loader
- character(kind=c_char), dimension(*) :: buf
- integer(c_size_t), value :: count
- type(c_ptr), value :: error
-end function
-
-! GdkPixbuf * gdk_pixbuf_loader_get_pixbuf (GdkPixbufLoader *loader);
-function gdk_pixbuf_loader_get_pixbuf(loader) bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr) :: gdk_pixbuf_loader_get_pixbuf
- type(c_ptr), value :: loader
-end function
+! void gdk_pixbuf_xlib_init_with_depth (Display *display, int screen_num, int prefDepth);
+subroutine gdk_pixbuf_xlib_init_with_depth(display, screen_num, prefDepth) bind&
+&(c)
+ use iso_c_binding, only: c_ptr, c_int
+ type(c_ptr), value :: display
+ integer(c_int), value :: screen_num
+ integer(c_int), value :: prefDepth
+end subroutine
-! GdkPixbufAnimation * gdk_pixbuf_loader_get_animation (GdkPixbufLoader *loader);
-function gdk_pixbuf_loader_get_animation(loader) bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr) :: gdk_pixbuf_loader_get_animation
- type(c_ptr), value :: loader
-end function
+! void gdk_pixbuf_xlib_render_threshold_alpha (GdkPixbuf *pixbuf, Pixmap bitmap, int src_x, int src_y, int dest_x, int dest_y, int width, int height, int alpha_threshold);
+subroutine gdk_pixbuf_xlib_render_threshold_alpha(pixbuf, bitmap, src_x, src_y,&
+& dest_x, dest_y, width, height, alpha_threshold) bind(c)
+ use iso_c_binding, only: c_ptr, c_long, c_int
+ type(c_ptr), value :: pixbuf
+ integer(c_long), value :: bitmap
+ integer(c_int), value :: src_x
+ integer(c_int), value :: src_y
+ integer(c_int), value :: dest_x
+ integer(c_int), value :: dest_y
+ integer(c_int), value :: width
+ integer(c_int), value :: height
+ integer(c_int), value :: alpha_threshold
+end subroutine
-! gboolean gdk_pixbuf_loader_close (GdkPixbufLoader *loader, GError **error);
-function gdk_pixbuf_loader_close(loader, error) bind(c)
- use iso_c_binding, only: c_int, c_ptr
- integer(c_int) :: gdk_pixbuf_loader_close
- type(c_ptr), value :: loader
- type(c_ptr), value :: error
-end function
+! void gdk_pixbuf_xlib_render_to_drawable (GdkPixbuf *pixbuf, Drawable drawable, GC gc, int src_x, int src_y, int dest_x, int dest_y, int width, int height, XlibRgbDither dither, int x_dither, int y_dither);
+subroutine gdk_pixbuf_xlib_render_to_drawable(pixbuf, drawable, gc, src_x, src_&
+&y, dest_x, dest_y, width, height, dither, x_dither, y_dither) bind(c)
+ use iso_c_binding, only: c_ptr, c_long, c_int
+ type(c_ptr), value :: pixbuf
+ integer(c_long), value :: drawable
+ type(c_ptr), value :: gc
+ integer(c_int), value :: src_x
+ integer(c_int), value :: src_y
+ integer(c_int), value :: dest_x
+ integer(c_int), value :: dest_y
+ integer(c_int), value :: width
+ integer(c_int), value :: height
+ integer(c_int), value :: dither
+ integer(c_int), value :: x_dither
+ integer(c_int), value :: y_dither
+end subroutine
-! GdkPixbufFormat *gdk_pixbuf_loader_get_format (GdkPixbufLoader *loader);
-function gdk_pixbuf_loader_get_format(loader) bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr) :: gdk_pixbuf_loader_get_format
- type(c_ptr), value :: loader
-end function
+! void gdk_pixbuf_xlib_render_to_drawable_alpha (GdkPixbuf *pixbuf, Drawable drawable, int src_x, int src_y, int dest_x, int dest_y, int width, int height, GdkPixbufAlphaMode alpha_mode, int alpha_threshold, XlibRgbDither dither, int x_dither, int y_dither);
+subroutine gdk_pixbuf_xlib_render_to_drawable_alpha(pixbuf, drawable, src_x, sr&
+&c_y, dest_x, dest_y, width, height, alpha_mode, alpha_threshold, dither, x_dit&
+&her, y_dither) bind(c)
+ use iso_c_binding, only: c_ptr, c_long, c_int
+ type(c_ptr), value :: pixbuf
+ integer(c_long), value :: drawable
+ integer(c_int), value :: src_x
+ integer(c_int), value :: src_y
+ integer(c_int), value :: dest_x
+ integer(c_int), value :: dest_y
+ integer(c_int), value :: width
+ integer(c_int), value :: height
+ integer(c_int), value :: alpha_mode
+ integer(c_int), value :: alpha_threshold
+ integer(c_int), value :: dither
+ integer(c_int), value :: x_dither
+ integer(c_int), value :: y_dither
+end subroutine
-! guint8* gdk_pixdata_serialize (const GdkPixdata *pixdata, guint *stream_length_p);
-function gdk_pixdata_serialize(pixdata, stream_length_p) bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr) :: gdk_pixdata_serialize
- type(c_ptr), value :: pixdata
- type(c_ptr), value :: stream_length_p
-end function
+! void gdk_pixbuf_xlib_render_pixmap_and_mask (GdkPixbuf *pixbuf, Pixmap *pixmap_return, Pixmap *mask_return, int alpha_threshold);
+subroutine gdk_pixbuf_xlib_render_pixmap_and_mask(pixbuf, pixmap_return, mask_r&
+&eturn, alpha_threshold) bind(c)
+ use iso_c_binding, only: c_ptr, c_int
+ type(c_ptr), value :: pixbuf
+ type(c_ptr), value :: pixmap_return
+ type(c_ptr), value :: mask_return
+ integer(c_int), value :: alpha_threshold
+end subroutine
-! gboolean gdk_pixdata_deserialize (GdkPixdata *pixdata, guint stream_length, const guint8 *stream, GError **error);
-function gdk_pixdata_deserialize(pixdata, stream_length, stream, error) bind(c)
- use iso_c_binding, only: c_int, c_ptr
- integer(c_int) :: gdk_pixdata_deserialize
- type(c_ptr), value :: pixdata
- integer(c_int), value :: stream_length
- type(c_ptr), value :: stream
- type(c_ptr), value :: error
+! GdkPixbuf *gdk_pixbuf_xlib_get_from_drawable (GdkPixbuf *dest, Drawable src, Colormap cmap, Visual *visual, int src_x, int src_y, int dest_x, int dest_y, int width, int height);
+function gdk_pixbuf_xlib_get_from_drawable(dest, src, cmap, visual, src_x, src_&
+&y, dest_x, dest_y, width, height) bind(c)
+ use iso_c_binding, only: c_ptr, c_long, c_int
+ type(c_ptr) :: gdk_pixbuf_xlib_get_from_drawable
+ type(c_ptr), value :: dest
+ integer(c_long), value :: src
+ integer(c_long), value :: cmap
+ type(c_ptr), value :: visual
+ integer(c_int), value :: src_x
+ integer(c_int), value :: src_y
+ integer(c_int), value :: dest_x
+ integer(c_int), value :: dest_y
+ integer(c_int), value :: width
+ integer(c_int), value :: height
end function
-! gpointer gdk_pixdata_from_pixbuf (GdkPixdata *pixdata, const GdkPixbuf *pixbuf, gboolean use_rle);
-function gdk_pixdata_from_pixbuf(pixdata, pixbuf, use_rle) bind(c)
- use iso_c_binding, only: c_ptr, c_int
- type(c_ptr) :: gdk_pixdata_from_pixbuf
- type(c_ptr), value :: pixdata
- type(c_ptr), value :: pixbuf
- integer(c_int), value :: use_rle
-end function
+! void xlib_rgb_init (Display *display, Screen *screen);
+subroutine xlib_rgb_init(display, screen) bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr), value :: display
+ type(c_ptr), value :: screen
+end subroutine
-! GdkPixbuf* gdk_pixbuf_from_pixdata (const GdkPixdata *pixdata, gboolean copy_pixels, GError **error);
-function gdk_pixbuf_from_pixdata(pixdata, copy_pixels, error) bind(c)
+! void xlib_rgb_init_with_depth (Display *display, Screen *screen, int prefDepth);
+subroutine xlib_rgb_init_with_depth(display, screen, prefDepth) bind(c)
use iso_c_binding, only: c_ptr, c_int
- type(c_ptr) :: gdk_pixbuf_from_pixdata
- type(c_ptr), value :: pixdata
- integer(c_int), value :: copy_pixels
- type(c_ptr), value :: error
-end function
+ type(c_ptr), value :: display
+ type(c_ptr), value :: screen
+ integer(c_int), value :: prefDepth
+end subroutine
-! GString* gdk_pixdata_to_csource (GdkPixdata *pixdata, const gchar *name, GdkPixdataDumpType dump_type);
-function gdk_pixdata_to_csource(pixdata, name, dump_type) bind(c)
- use iso_c_binding, only: c_ptr, c_char, c_int
- type(c_ptr) :: gdk_pixdata_to_csource
- type(c_ptr), value :: pixdata
- character(kind=c_char), dimension(*) :: name
- integer(c_int), value :: dump_type
+! unsigned long xlib_rgb_xpixel_from_rgb (guint32 rgb);
+function xlib_rgb_xpixel_from_rgb(rgb) bind(c)
+ use iso_c_binding, only: c_long, c_int32_t
+ integer(c_long) :: xlib_rgb_xpixel_from_rgb
+ integer(c_int32_t), value :: rgb
end function
-! GType gdk_pixbuf_animation_get_type (void) G_GNUC_CONST;
-function gdk_pixbuf_animation_get_type() bind(c)
- use iso_c_binding, only: c_size_t
- integer(c_size_t) :: gdk_pixbuf_animation_get_type
-end function
+! void xlib_rgb_gc_set_foreground (GC gc, guint32 rgb);
+subroutine xlib_rgb_gc_set_foreground(gc, rgb) bind(c)
+ use iso_c_binding, only: c_ptr, c_int32_t
+ type(c_ptr), value :: gc
+ integer(c_int32_t), value :: rgb
+end subroutine
-! GdkPixbufAnimation *gdk_pixbuf_animation_new_from_file (const char *filename, GError **error);
-function gdk_pixbuf_animation_new_from_file(filename, error) bind(c)
- use iso_c_binding, only: c_ptr, c_char
- type(c_ptr) :: gdk_pixbuf_animation_new_from_file
- character(kind=c_char), dimension(*) :: filename
- type(c_ptr), value :: error
-end function
+! void xlib_rgb_gc_set_background (GC gc, guint32 rgb);
+subroutine xlib_rgb_gc_set_background(gc, rgb) bind(c)
+ use iso_c_binding, only: c_ptr, c_int32_t
+ type(c_ptr), value :: gc
+ integer(c_int32_t), value :: rgb
+end subroutine
-! int gdk_pixbuf_animation_get_width (GdkPixbufAnimation *animation);
-function gdk_pixbuf_animation_get_width(animation) bind(c)
- use iso_c_binding, only: c_int, c_ptr
- integer(c_int) :: gdk_pixbuf_animation_get_width
- type(c_ptr), value :: animation
-end function
+! void xlib_draw_rgb_image (Drawable drawable, GC gc, int x, int y, int width, int height, XlibRgbDither dith, unsigned char *rgb_buf, int rowstride);
+subroutine xlib_draw_rgb_image(drawable, gc, x, y, width, height, dith, rgb_buf&
+&, rowstride) bind(c)
+ use iso_c_binding, only: c_long, c_ptr, c_int
+ integer(c_long), value :: drawable
+ type(c_ptr), value :: gc
+ integer(c_int), value :: x
+ integer(c_int), value :: y
+ integer(c_int), value :: width
+ integer(c_int), value :: height
+ integer(c_int), value :: dith
+ type(c_ptr), value :: rgb_buf
+ integer(c_int), value :: rowstride
+end subroutine
-! int gdk_pixbuf_animation_get_height (GdkPixbufAnimation *animation);
-function gdk_pixbuf_animation_get_height(animation) bind(c)
- use iso_c_binding, only: c_int, c_ptr
- integer(c_int) :: gdk_pixbuf_animation_get_height
- type(c_ptr), value :: animation
-end function
+! void xlib_draw_rgb_image_dithalign (Drawable drawable, GC gc, int x, int y, int width, int height, XlibRgbDither dith, unsigned char *rgb_buf, int rowstride, int xdith, int ydith);
+subroutine xlib_draw_rgb_image_dithalign(drawable, gc, x, y, width, height, dit&
+&h, rgb_buf, rowstride, xdith, ydith) bind(c)
+ use iso_c_binding, only: c_long, c_ptr, c_int
+ integer(c_long), value :: drawable
+ type(c_ptr), value :: gc
+ integer(c_int), value :: x
+ integer(c_int), value :: y
+ integer(c_int), value :: width
+ integer(c_int), value :: height
+ integer(c_int), value :: dith
+ type(c_ptr), value :: rgb_buf
+ integer(c_int), value :: rowstride
+ integer(c_int), value :: xdith
+ integer(c_int), value :: ydith
+end subroutine
-! gboolean gdk_pixbuf_animation_is_static_image (GdkPixbufAnimation *animation);
-function gdk_pixbuf_animation_is_static_image(animation) bind(c)
- use iso_c_binding, only: c_int, c_ptr
- integer(c_int) :: gdk_pixbuf_animation_is_static_image
- type(c_ptr), value :: animation
-end function
+! void xlib_draw_rgb_32_image (Drawable drawable, GC gc, int x, int y, int width, int height, XlibRgbDither dith, unsigned char *buf, int rowstride);
+subroutine xlib_draw_rgb_32_image(drawable, gc, x, y, width, height, dith, buf,&
+& rowstride) bind(c)
+ use iso_c_binding, only: c_long, c_ptr, c_int
+ integer(c_long), value :: drawable
+ type(c_ptr), value :: gc
+ integer(c_int), value :: x
+ integer(c_int), value :: y
+ integer(c_int), value :: width
+ integer(c_int), value :: height
+ integer(c_int), value :: dith
+ type(c_ptr), value :: buf
+ integer(c_int), value :: rowstride
+end subroutine
-! GdkPixbuf *gdk_pixbuf_animation_get_static_image (GdkPixbufAnimation *animation);
-function gdk_pixbuf_animation_get_static_image(animation) bind(c)
- use iso_c_binding, only: c_ptr
- type(c_ptr) :: gdk_pixbuf_animation_get_static_image
- type(c_ptr), value :: animation
+! void xlib_draw_gray_image (Drawable drawable, GC gc, int x, int y, int width, int height, XlibRgbDither dith, unsigned char *buf, int rowstride);
+subroutine xlib_draw_gray_image(drawable, gc, x, y, width, height, dith, buf, r&
+&owstride) bind(c)
+ use iso_c_binding, only: c_long, c_ptr, c_int
+ integer(c_long), value :: drawable
+ type(c_ptr), value :: gc
+ integer(c_int), value :: x
+ integer(c_int), value :: y
+ integer(c_int), value :: width
+ integer(c_int), value :: height
+ integer(c_int), value :: dith
+ type(c_ptr), value :: buf
+ integer(c_int), value :: rowstride
+end subroutine
+
+! XlibRgbCmap * xlib_rgb_cmap_new (guint32 *colors, int n_colors);
+function xlib_rgb_cmap_new(colors, n_colors) bind(c)
+ use iso_c_binding, only: c_ptr, c_int
+ type(c_ptr) :: xlib_rgb_cmap_new
+ type(c_ptr), value :: colors
+ integer(c_int), value :: n_colors
end function
-! GdkPixbufAnimationIter *gdk_pixbuf_animation_get_iter (GdkPixbufAnimation *animation, const GTimeVal *start_time);
-function gdk_pixbuf_animation_get_iter(animation, start_time) bind(c)
+! void xlib_rgb_cmap_free (XlibRgbCmap *cmap);
+subroutine xlib_rgb_cmap_free(cmap) bind(c)
use iso_c_binding, only: c_ptr
- type(c_ptr) :: gdk_pixbuf_animation_get_iter
- type(c_ptr), value :: animation
- type(c_ptr), value :: start_time
-end function
+ type(c_ptr), value :: cmap
+end subroutine
-! GType gdk_pixbuf_animation_iter_get_type (void) G_GNUC_CONST;
-function gdk_pixbuf_animation_iter_get_type() bind(c)
- use iso_c_binding, only: c_size_t
- integer(c_size_t) :: gdk_pixbuf_animation_iter_get_type
+! void xlib_draw_indexed_image (Drawable drawable, GC gc, int x, int y, int width, int height, XlibRgbDither dith, unsigned char *buf, int rowstride, XlibRgbCmap *cmap);
+subroutine xlib_draw_indexed_image(drawable, gc, x, y, width, height, dith, buf&
+&, rowstride, cmap) bind(c)
+ use iso_c_binding, only: c_long, c_ptr, c_int
+ integer(c_long), value :: drawable
+ type(c_ptr), value :: gc
+ integer(c_int), value :: x
+ integer(c_int), value :: y
+ integer(c_int), value :: width
+ integer(c_int), value :: height
+ integer(c_int), value :: dith
+ type(c_ptr), value :: buf
+ integer(c_int), value :: rowstride
+ type(c_ptr), value :: cmap
+end subroutine
+
+! Bool xlib_rgb_ditherable (void);
+function xlib_rgb_ditherable() bind(c)
+ use iso_c_binding, only: c_int
+ integer(c_int) :: xlib_rgb_ditherable
end function
-! int gdk_pixbuf_animation_iter_get_delay_time (GdkPixbufAnimationIter *iter);
-function gdk_pixbuf_animation_iter_get_delay_time(iter) bind(c)
- use iso_c_binding, only: c_int, c_ptr
- integer(c_int) :: gdk_pixbuf_animation_iter_get_delay_time
- type(c_ptr), value :: iter
+! void xlib_rgb_set_verbose (Bool verbose);
+subroutine xlib_rgb_set_verbose(verbose) bind(c)
+ use iso_c_binding, only: c_int
+ integer(c_int), value :: verbose
+end subroutine
+
+! void xlib_rgb_set_install (Bool install);
+subroutine xlib_rgb_set_install(install) bind(c)
+ use iso_c_binding, only: c_int
+ integer(c_int), value :: install
+end subroutine
+
+! void xlib_rgb_set_min_colors (int min_colors);
+subroutine xlib_rgb_set_min_colors(min_colors) bind(c)
+ use iso_c_binding, only: c_int
+ integer(c_int), value :: min_colors
+end subroutine
+
+! Colormap xlib_rgb_get_cmap (void);
+function xlib_rgb_get_cmap() bind(c)
+ use iso_c_binding, only: c_long
+ integer(c_long) :: xlib_rgb_get_cmap
end function
-! GdkPixbuf *gdk_pixbuf_animation_iter_get_pixbuf (GdkPixbufAnimationIter *iter);
-function gdk_pixbuf_animation_iter_get_pixbuf(iter) bind(c)
+! Visual * xlib_rgb_get_visual (void);
+function xlib_rgb_get_visual() bind(c)
use iso_c_binding, only: c_ptr
- type(c_ptr) :: gdk_pixbuf_animation_iter_get_pixbuf
- type(c_ptr), value :: iter
+ type(c_ptr) :: xlib_rgb_get_visual
end function
-! gboolean gdk_pixbuf_animation_iter_on_currently_loading_frame (GdkPixbufAnimationIter *iter);
-function gdk_pixbuf_animation_iter_on_currently_loading_frame(iter) bind(c)
- use iso_c_binding, only: c_int, c_ptr
- integer(c_int) :: gdk_pixbuf_animation_iter_on_currently_loading_frame
- type(c_ptr), value :: iter
+! XVisualInfo * xlib_rgb_get_visual_info (void);
+function xlib_rgb_get_visual_info() bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: xlib_rgb_get_visual_info
end function
-! gboolean gdk_pixbuf_animation_iter_advance (GdkPixbufAnimationIter *iter, const GTimeVal *current_time);
-function gdk_pixbuf_animation_iter_advance(iter, current_time) bind(c)
- use iso_c_binding, only: c_int, c_ptr
- integer(c_int) :: gdk_pixbuf_animation_iter_advance
- type(c_ptr), value :: iter
- type(c_ptr), value :: current_time
+! int xlib_rgb_get_depth (void);
+function xlib_rgb_get_depth() bind(c)
+ use iso_c_binding, only: c_int
+ integer(c_int) :: xlib_rgb_get_depth
end function
-! GType gdk_pixbuf_non_anim_get_type (void) G_GNUC_CONST;
-function gdk_pixbuf_non_anim_get_type() bind(c)
- use iso_c_binding, only: c_size_t
- integer(c_size_t) :: gdk_pixbuf_non_anim_get_type
+! Display * xlib_rgb_get_display (void);
+function xlib_rgb_get_display() bind(c)
+ use iso_c_binding, only: c_ptr
+ type(c_ptr) :: xlib_rgb_get_display
end function
-! GdkPixbufAnimation* gdk_pixbuf_non_anim_new (GdkPixbuf *pixbuf);
-function gdk_pixbuf_non_anim_new(pixbuf) bind(c)
+! Screen * xlib_rgb_get_screen (void);
+function xlib_rgb_get_screen() bind(c)
use iso_c_binding, only: c_ptr
- type(c_ptr) :: gdk_pixbuf_non_anim_new
- type(c_ptr), value :: pixbuf
+ type(c_ptr) :: xlib_rgb_get_screen
end function
end interface
View
41,834 src/glib-auto.f90
21,509 additions, 20,325 deletions not shown
View
42,636 src/gtk-auto.f90
21,318 additions, 21,318 deletions not shown
View
560 src/gtk-fortran-index.csv
403 additions, 157 deletions not shown
View
2,467 src/gtkenums-auto.f90
1,259 additions, 1,208 deletions not shown
View
5,527 src/pango-auto.f90
2,855 additions, 2,672 deletions not shown
View
6 src/test.sh
@@ -2,7 +2,7 @@
# Compilation of gtk-fortran and its examples, using GTK+ 2
# GNU GPL v3
# Contributed by Vincent MAGNIN
-# April 8th 2011, last updated May 19th 2012
+# April 8th 2011, last updated Feb. 16th 2013
# Allow override of default compiler. For example:
# GFC='gfortran-4.7' ./test.sh
@@ -18,11 +18,11 @@ rm ../examples/*.out
gtkversion="`pkg-config --cflags --libs gtk+-2.0`"
-gtk_hl_obj="gtk-hl-misc.o gtk-hl-accelerator.o gtk-hl-button.o gtk-hl-combobox.o gtk-hl-container.o gtk-hl-entry.o gtk-hl-menu.o gtk-hl-progress.o gtk-hl-spin-slider.o gtk-hl-tree.o gtk-hl-chooser.o gtk-hl-dialog.o"
+gtk_hl_obj="gtk-hl-misc.o gtk-hl-accelerator.o gtk-hl-button.o gtk-hl-combobox.o gtk-hl-container.o gtk-hl-entry.o gtk-hl-menu.o gtk-hl-progress.o gtk-hl-spin-slider.o gtk-hl-tree.o gtk-hl-chooser.o gtk-hl-dialog.o gtk-hl-infobar.o gtk-hl-assistant.o gdk-pixbuf-hl.o"
echo ">>> Compiling gtk libraries..."
# gtk3 only: "unix-print-auto.f90"
-for file in "gdk-auto.f90" "glib-auto.f90" "gtk.f90" "atk-auto.f90" "cairo-auto.f90" "gdk-pixbuf-auto.f90" "pango-auto.f90" "gtk-sup.f90" "gtk-hl-misc.f90" "gtk-hl-accelerator.f90" "gtk-hl-button.f90" "gtk-hl-combobox.f90" "gtk-hl-container.f90" "gtk-hl-entry.f90" "gtk-hl-menu.f90" "gtk-hl-progress.f90" "gtk-hl-spin-slider.f90" "gtk-hl-tree.f90" "gtk-hl-chooser.f90" "gtk-hl-dialog.f90" "gtk-hl.f90" "gdkevents-auto2.f90" "gtk-draw-hl.f90" ; do
+for file in "gdk-auto.f90" "glib-auto.f90" "gtk.f90" "atk-auto.f90" "cairo-auto.f90" "gdk-pixbuf-auto.f90" "pango-auto.f90" "gtk-sup.f90" "gtk-hl-misc.f90" "gtk-hl-accelerator.f90" "gtk-hl-button.f90" "gtk-hl-combobox.f90" "gtk-hl-container.f90" "gtk-hl-entry.f90" "gtk-hl-infobar.f90" "gtk-hl-assistant.f90" "gtk-hl-menu.f90" "gtk-hl-progress.f90" "gtk-hl-spin-slider.f90" "gtk-hl-tree.f90" "gtk-hl-chooser.f90" "gtk-hl-dialog.f90" "gtk-hl.f90" "gdkevents-auto2.f90" "gtk-draw-hl.f90" "gdk-pixbuf-hl.f90"; do
"${GFC}" -c $file $gtkversion
done
Please sign in to comment.
Something went wrong with that request. Please try again.