gtk-2.0/gdk/gdk.h |#
-(include "gtypes")
-;; gtypes.scm does not seem to be the place for this.
-(include "gtype")
-(include "gquark")
-(include "genums")
-(include "gobject")
-(include "gvalue")
-(include "gvaluetypes")
-(include "gparam")
-(include "gparamspecs")
-(include "gsignal")
-
(include "gdkcairo")
(include "gdkcolor")
(include "gdkcursor")
--- /dev/null
+#| -*-Scheme-*-
+
+glib-2.0/gio/gcancellable.h |#
+
+(extern (* GCancellable)
+ g_cancellable_new)
+
+(extern void
+ g_cancellable_cancel
+ (cancellable (* GCancellable)))
\ No newline at end of file
--- /dev/null
+#| -*-Scheme-*-
+
+glib-2.0/gio/gfile.h |#
+
+(extern (* GFile)
+ g_file_new_for_uri
+ (uri (* gchar)))
+
+(extern void
+ g_file_read_async
+ (file (* GFile))
+ (io_priority int)
+ (cancellable (* GCancellable))
+ (CALLBACK GAsyncReadyCallback)
+ (ID gpointer))
+
+(extern (* GFileInputStream)
+ g_file_read_finish
+ (file (* GFile))
+ (res (* GAsyncResult))
+ (error (* (* GError))))
+
+(extern void
+ g_file_open_readwrite_async
+ (file (* GFile))
+ (io_priority int)
+ (cancellable (* GCancellable))
+ (CALLBACK GAsyncReadyCallback)
+ (ID gpointer))
+
+(extern (* GFileIOStream)
+ g_file_open_readwrite_finish
+ (file (* GFile))
+ (res (* GAsyncResult))
+ (error (* (* GError))))
\ No newline at end of file
--- /dev/null
+#| -*-Scheme-*-
+
+glib-2.0/gio/ginputstream.h |#
+
+(extern void
+ g_input_stream_close_async
+ (stream (* GInputStream))
+ (io_priority int)
+ (cancellable (* GCancellable))
+ (callback GAsyncReadyCallback)
+ (user_data gpointer))
+
+(extern gboolean
+ g_input_stream_close_finish
+ (stream (* GInputStream))
+ (result (* GAsyncResult))
+ (error (* (* GError))))
+
+(extern void
+ g_input_stream_read_async
+ (stream (* GInputStream))
+ (buffer (* void))
+ (count gsize)
+ (io_priority int)
+ (cancellable (* GCancellable))
+ (CALLBACK GAsyncReadyCallback)
+ (ID gpointer))
+
+(extern gssize
+ g_input_stream_read_finish
+ (stream (* GInputStream))
+ (result (* GAsyncResult))
+ (error (* (* GError))))
\ No newline at end of file
--- /dev/null
+#| -*-Scheme-*-
+
+glib-2.0/gio/gio.h |#
+
+(include "giotypes")
+
+;(include "gappinfo")
+;(include "gaction")
+;(include "gsimpleaction")
+;(include "gactiongroup")
+;(include "gsimpleactiongroup")
+;(include "gapplication")
+;(include "gapplicationcommandline")
+;(include "gasyncinitable")
+;(include "gasyncresult")
+;(include "gbufferedinputstream")
+;(include "gbufferedoutputstream")
+(include "gcancellable")
+;(include "gcharsetconverter")
+;(include "gcontenttype")
+;(include "gconverter")
+;(include "gconverterinputstream")
+;(include "gconverteroutputstream")
+;(include "gcredentials")
+;(include "gdatainputstream")
+;(include "gdataoutputstream")
+;(include "gdbusaddress")
+;(include "gdbusauthobserver")
+;(include "gdbusconnection")
+;(include "gdbuserror")
+;(include "gdbusintrospection")
+;(include "gdbusmessage")
+;(include "gdbusmethodinvocation")
+;(include "gdbusnameowning")
+;(include "gdbusnamewatching")
+;(include "gdbusproxy")
+;(include "gdbusserver")
+;(include "gdbusutils")
+;(include "gdrive")
+;(include "gemblemedicon")
+;(include "gfileattribute")
+;(include "gfileenumerator")
+(include "gfile")
+;(include "gfileicon")
+;(include "gfileinfo")
+;(include "gfileinputstream")
+;(include "gfileiostream")
+;(include "gfilemonitor")
+;(include "gfilenamecompleter")
+;(include "gfileoutputstream")
+;(include "gfilterinputstream")
+;(include "gfilteroutputstream")
+;(include "gicon")
+;(include "ginetaddress")
+;(include "ginetsocketaddress")
+;(include "ginitable")
+(include "ginputstream")
+;(include "gioenums")
+;(include "gioenumtypes")
+;(include "gioerror")
+;(include "giomodule")
+;(include "gioscheduler")
+;(include "giostream")
+;(include "gloadableicon")
+;(include "gmemoryinputstream")
+;(include "gmemoryoutputstream")
+;(include "gmount")
+;(include "gmountoperation")
+;(include "gnativevolumemonitor")
+;(include "gnetworkaddress")
+;(include "gnetworkservice")
+;(include "goutputstream")
+;(include "gpermission")
+;(include "gpollableinputstream")
+;(include "gpollableoutputstream")
+;(include "gproxy")
+;(include "gproxyaddress")
+;(include "gproxyaddressenumerator")
+;(include "gproxyresolver")
+;(include "gresolver")
+;(include "gseekable")
+;(include "gsettings")
+;(include "gsimpleasyncresult")
+;(include "gsimplepermission")
+;(include "gsocketaddressenumerator")
+;(include "gsocketaddress")
+;(include "gsocketclient")
+;(include "gsocketconnectable")
+;(include "gsocketconnection")
+;(include "gsocketcontrolmessage")
+;(include "gsocket")
+;(include "gsocketlistener")
+;(include "gsocketservice")
+;(include "gsrvtarget")
+;(include "gtcpconnection")
+;(include "gtcpwrapperconnection")
+;(include "gthemedicon")
+;(include "gthreadedsocketservice")
+;(include "gtlsbackend")
+;(include "gtlscertificate")
+;(include "gtlsclientconnection")
+;(include "gtlsconnection")
+;(include "gtlsserverconnection")
+;(include "gvfs")
+;(include "gvolume")
+;(include "gvolumemonitor")
+;(include "gzlibcompressor")
+;(include "gzlibdecompressor")
\ No newline at end of file
--- /dev/null
+#| -*-Scheme-*-
+
+glib-2.0/gio/giotypes.h |#
+
+(typedef GAsyncReadyCallback
+ (* (function void
+ (source_object (* GObject))
+ (res (* GAsyncResult))
+ (user_data gpointer))))
\ No newline at end of file
--- /dev/null
+#| -*-Scheme-*-
+
+glib-2.0/glib-object.h |#
+
+;;; topmost include file for GObject header files
+
+;(include "gobject/gbinding")
+;(include "gobject/gboxed")
+(include "gobject/genums")
+(include "gobject/gobject")
+(include "gobject/gparam")
+(include "gobject/gparamspecs")
+(include "gobject/gsignal")
+;(include "gobject/gsourceclosure")
+(include "gobject/gtype")
+;(include "gobject/gtypemodule")
+;(include "gobject/gtypeplugin")
+(include "gobject/gvalue")
+;(include "gobject/gvaluearray")
+(include "gobject/gvaluetypes")
\ No newline at end of file
;(include "glib/gatomic")
;(include "glib/gbacktrace")
;(include "glib/gbase64")
+;(include "glib/gbitlock")
;(include "glib/gbookmarkfile")
;(include "glib/gcache")
+;(include "glib/gchecksum")
;(include "glib/gcompletion")
;(include "glib/gconvert")
;(include "glib/gdataset")
;(include "glib/gdate")
+;(include "glib/gdatetime")
;(include "glib/gdir")
-(include "gerror")
+(include "glib/gerror")
;(include "glib/gfileutils")
;(include "glib/ghash")
;(include "glib/ghook")
+;(include "glib/ghostutils")
;(include "glib/giochannel")
;(include "glib/gkeyfile")
;(include "glib/glist")
;(include "glib/gnode")
;(include "glib/goption")
;(include "glib/gpattern")
+;(include "glib/gpoll")
;(include "glib/gprimes")
;(include "glib/gqsort")
-(include "gquark")
+(include "glib/gquark")
;(include "glib/gqueue")
;(include "glib/grand")
;(include "glib/grel")
;(include "glib/gscanner")
;(include "glib/gsequence")
;(include "glib/gshell")
+;(include "glib/gslice")
;(include "glib/gslist")
;(include "glib/gspawn")
;(include "glib/gstrfuncs")
;(include "glib/gstring")
+;(include "glib/gtestutils")
;(include "glib/gthread")
;(include "glib/gthreadpool")
;(include "glib/gtimer")
;(include "glib/gtree")
-(include "gtypes")
+(include "glib/gtypes")
;(include "glib/gunicode")
+;(include "glib/gurifuncs")
;(include "glib/gutils")
+(include "glib/gvariant")
\ No newline at end of file
--- /dev/null
+#| -*-Scheme-*-
+
+glib-2.0/glib/gtypes.h |#
+
+;(include "glibconfig")
+(typedef gint8 char)
+(typedef gint16 short)
+(typedef gint32 int)
+(typedef gint64 long)
+(typedef guint8 uchar)
+(typedef guint16 ushort)
+(typedef guint32 uint)
+;(typedef guint64 ulonglong)
+(typedef gssize int)
+(typedef gsize uint)
+
+(typedef gchar char)
+(typedef gshort short)
+(typedef glong long)
+(typedef gint int)
+(typedef gboolean gint)
+
+(typedef guchar uchar)
+(typedef gushort ushort)
+(typedef gulong ulong)
+(typedef guint uint)
+
+(typedef gfloat float)
+(typedef gdouble double)
+
+(typedef gpointer (* void))
+(typedef gconstpointer (const (* void)))
+
+(typedef GTimeVal (struct _GTimeVal))
+
+(struct _GTimeVal
+ (tv_sec glong)
+ (tv_usec glong))
\ No newline at end of file
--- /dev/null
+#| -*-Scheme-*-
+
+glib-2.0/glib/gvariant.h |#
+
+(include "gquark")
+;(include "gvarianttype")
+;(include "gstring")
+
+;(typedef GVariant (struct _GVariant))
+
+(typedef GVariantClass
+ (enum
+ (G_VARIANT_CLASS_BOOLEAN)
+ (G_VARIANT_CLASS_BYTE)
+ (G_VARIANT_CLASS_INT16)
+ (G_VARIANT_CLASS_UINT16)
+ (G_VARIANT_CLASS_INT32)
+ (G_VARIANT_CLASS_UINT32)
+ (G_VARIANT_CLASS_INT64)
+ (G_VARIANT_CLASS_UINT64)
+ (G_VARIANT_CLASS_HANDLE)
+ (G_VARIANT_CLASS_DOUBLE)
+ (G_VARIANT_CLASS_STRING)
+ (G_VARIANT_CLASS_OBJECT_PATH)
+ (G_VARIANT_CLASS_SIGNATURE)
+ (G_VARIANT_CLASS_VARIANT)
+ (G_VARIANT_CLASS_MAYBE)
+ (G_VARIANT_CLASS_ARRAY)
+ (G_VARIANT_CLASS_TUPLE)
+ (G_VARIANT_CLASS_DICT_ENTRY)))
+
+(extern void g_variant_unref (value (* GVariant)))
+(extern (* GVariant) g_variant_ref (value (* GVariant)))
+(extern (* GVariant) g_variant_ref_sink (value (* GVariant)))
+(extern gboolean g_variant_is_floating (value (* GVariant)))
+
+;(extern (const (* GVariantType)) g_variant_get_type (value (* GVariant)))
+(extern (const (* gchar)) g_variant_get_type_string (value (* GVariant)))
+#;(extern gboolean g_variant_is_of_type
+ (value (* GVariant))
+ (type (const (* GVariantType))))
\ No newline at end of file
glib-2.0/gobject/genums.h |#
-;(include "gtype")
+(include "gtype")
(typedef GEnumClass (struct _GEnumClass))
(typedef GFlagsClass (struct _GFlagsClass))
glib-2.0/gobject/gobject.h |#
-;(include "gtype")
-;(include "gvalue")
-;(include "gparam")
+(include "gtype")
+(include "gvalue")
+(include "gparam")
;(include "gclosure")
-;(include "gsignal")
+(include "gsignal")
(typedef GObject (struct _GObject))
(typedef GObjectClass (struct _GObjectClass))
glib-2.0/gobject/gparamspecs.h |#
-;(include "gvalue")
-;(include "genums")
+(include "gvalue")
+(include "genums")
;(include "gboxed")
-;(include "gobject")
+(include "gobject")
(typedef GParamSpecChar (struct _GParamSpecChar))
(typedef GParamSpecUChar (struct _GParamSpecUChar))
glib-2.0/gobject/gsignal.h |#
;(include "gclosure")
-;(include "gvalue")
-;(include "gparam")
+(include "gvalue")
+(include "gparam")
;(include "gmarshal")
(extern gulong g_signal_connect_data
glib-2.0/gobject/gtype.h |#
-(include "glib")
+(include "../glib")
(enum GFundamentalType
(G_TYPE_INVALID)
glib-2.0/gobject/gvaluetypes.h |#
-;(include "gvalue")
+(include "gvalue")
(extern void g_value_set_char
(value (* GValue))
;(include "gtkcombo")
;(include "gtkcombobox")
;(include "gtkcomboboxentry")
-;(include "gtkcontainer")
+(include "gtkcontainer")
;(include "gtkctree")
;(include "gtkcurve")
;(include "gtkdialog")
;(include "gtkruler")
;(include "gtkscale")
;(include "gtkscrollbar")
-;(include "gtkscrolledwindow")
+(include "gtkscrolledwindow")
;(include "gtkselection")
;(include "gtkseparator")
;(include "gtkseparatormenuitem")
;(include "gtktextview")
;(include "gtktipsquery")
;(include "gtktoggleaction")
-;(include "gtktogglebutton")
+(include "gtktogglebutton")
;(include "gtktoggletoolbutton")
;(include "gtktoolbar")
;(include "gtktoolbar")
--- /dev/null
+#| -*-Scheme-*-
+
+gtk+-2.4.0/gtk/gtkcontainer.h |#
+
+(extern void
+ gtk_container_add
+ (container (* GtkContainer))
+ (widget (* GtkWidget)))
+
+(extern void
+ gtk_container_remove
+ (container (* GtkContainer))
+ (widget (* GtkWidget)))
+
+(extern void
+ gtk_container_set_border_width
+ (container (* GtkContainer))
+ (border_width guint))
\ No newline at end of file
--- /dev/null
+#| -*-Scheme-*-
+
+gtk-2.0/gtk/gtkscrolledwindow.h |#
+
+(extern (* GtkWidget)
+ gtk_scrolled_window_new
+ (hadjustment (* GtkAdjustment))
+ (vadjustment (* GtkAdjustment)))
+
+(extern void
+ gtk_scrolled_window_set_policy
+ (scrolled_window (* GtkScrolledWindow))
+ (hscrollbar_policy GtkPolicyType)
+ (vscrollbar_policy GtkPolicyType))
+
+(extern void
+ gtk_scrolled_window_set_placement
+ (scrolled_window (* GtkScrolledWindow))
+ (window_placement GtkCornerType))
\ No newline at end of file
--- /dev/null
+#| -*-Scheme-*-
+
+gtk-2.0/gtk/gtktogglebutton.h |#
+
+(extern void
+ gtk_toggle_button_set_active
+ (toggle_button (* GtkToggleButton))
+ (is_active gboolean))
+
+(extern gboolean
+ gtk_toggle_button_get_active
+ (toggle_button (* GtkToggleButton)))
\ No newline at end of file
+++ /dev/null
-#| -*-Scheme-*-
-
-glib-2.0/glib/gtypes.h |#
-
-;(include "glibconfig")
-(typedef gint8 char)
-(typedef gint16 short)
-(typedef gint32 int)
-(typedef gint64 long)
-(typedef guint8 uchar)
-(typedef guint16 ushort)
-(typedef guint32 uint)
-;(typedef guint64 ulonglong)
-(typedef gssize int)
-(typedef gsize uint)
-
-(typedef gchar char)
-(typedef gshort short)
-(typedef glong long)
-(typedef gint int)
-(typedef gboolean gint)
-
-(typedef guchar uchar)
-(typedef gushort ushort)
-(typedef gulong ulong)
-(typedef guint uint)
-
-(typedef gfloat float)
-(typedef gdouble double)
-
-(typedef gpointer (* void))
-(typedef gconstpointer (const (* void)))
-
-#|
-
-typedef gint (*GCompareFunc) (gconstpointer a,
- gconstpointer b);
-typedef gint (*GCompareDataFunc) (gconstpointer a,
- gconstpointer b,
- gpointer user_data);
-typedef gboolean (*GEqualFunc) (gconstpointer a,
- gconstpointer b);
-typedef void (*GDestroyNotify) (gpointer data);
-typedef void (*GFunc) (gpointer data,
- gpointer user_data);
-typedef guint (*GHashFunc) (gconstpointer key);
-typedef void (*GHFunc) (gpointer key,
- gpointer value,
- gpointer user_data);
-typedef void (*GFreeFunc) (gpointer data);
-typedef const gchar * (*GTranslateFunc) (const gchar *str,
- gpointer data);
-|#
-
-(typedef GTimeVal (struct _GTimeVal))
-
-(struct _GTimeVal
- (tv_sec glong)
- (tv_usec glong))
\ No newline at end of file
#-*-Makefile-*-
# gtk/Makefile-fragment
+#
+# Copyright (C) 2011 Matthew Birkholz
+#
+# This file is part of MIT/GNU Scheme.
+#
+# MIT/GNU Scheme is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as
+# published by the Free Software Foundation; either version 2 of the
+# License, or (at your option) any later version.
+#
+# MIT/GNU Scheme is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with MIT/GNU Scheme; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+# 02110-1301, USA.
TARGET_DIR = $(AUXDIR)/gtk
gtk-shim.o: gtk-shim.c gtk-shim.h ../lib/mit-scheme.h
$(COMPILE_SHIM) `pkg-config --cflags gtk+-2.0` -o $@ -c $<
-gtk-shim.c gtk-const.c gtk-types.bin: gtk.cdecl Includes/*.cdecl
+gtk-shim.c gtk-const.c gtk-types.bin: gtk-shim.h gtk.cdecl \
+ Includes/*.cdecl Includes/*/*.cdecl
( echo "(load-option 'FFI)"; \
echo '(C-generate "gtk" "#include \"gtk-shim.h\"")' ) \
| ../microcode/scheme --library ../lib --batch-mode
#| -*-Scheme-*-
-Copyright (C) 2007, 2008, 2009, 2010 Matthew Birkholz
+Copyright (C) 2007, 2008, 2009, 2010, 2011 Matthew Birkholz
This file is part of MIT/GNU Scheme.
;;;; C declarations for gtk.so.
\f
-
-(include "Includes/gdkkeysyms")
+(include "Includes/glib")
+(include "Includes/glib-object")
+(include "Includes/gio/gio")
(include "Includes/gdk-pixbuf")
+(include "Includes/gdkkeysyms")
(include "Includes/gtk")
(include "Includes/pango")
(include "Includes/cairo")
;;(include "Includes/cairo-xlib") Needs definitions for Drawable, Display...
(include "Includes/pangocairo")
-;;; GtkIO
+;;; gio.scm
+
+(callback void
+ async_ready
+ (source (* GObject))
+ (res (* GAsyncResult))
+ (ID gpointer))
+
+;;; gtkio.c
(extern gboolean start_gtk (argc_loc (* int)) (argv_loc (* (* (* char)))))
(extern void stop_gtk)
(extern gboolean gtk_select_trace_p)
(extern void gtk_select_trace (trace_p gboolean))
-;;; ScmWidget
+;;; scmwidget.c
(typedef ScmWidget
(struct _ScmWidget
(widget GtkWidget)))
(extern (* GtkWidget) scm_widget_new)
-\f
+;;; miscellaneous
+
+(extern void g_free ;glib-2.8.6/glib/gmem.h
+ (mem gpointer))
+
+(extern (* GtkWidget) ;gtk+-2.4.0/gtk/gtkbutton.h
+ gtk_button_new)
+
+(extern (* GtkWidget) ;gtk+-2.20.1/gtk/gtkcheckbutton.h
+ gtk_check_button_new)
+\f
;;; Signal handlers.
(callback void destroy
(y gint)
(width gint)
(height gint)
- (ID gpointer))
-\f
-
-;;; Random
-
-(extern void g_free ;glib-2.8.6/glib/gmem.h
- (mem gpointer))
-
-(extern gboolean gtk_init_check
- (argc (* int))
- (argv (* (* (* char)))))
-
-(extern void ;gtk+-2.4.0/gtk/gtkcontainer.h
- gtk_container_add
- (container (* GtkContainer))
- (widget (* GtkWidget)))
-
-(extern void ;gtk+-2.4.0/gtk/gtkcontainer.h
- gtk_container_remove
- (container (* GtkContainer))
- (widget (* GtkWidget)))
-
-(extern void ;gtk+-2.4.0/gtk/gtkcontainer.h
- gtk_container_set_border_width
- (container (* GtkContainer))
- (border_width guint))
-
-(extern (* GtkWidget) ;gtk+-2.4.0/gtk/gtkbutton.h
- gtk_button_new)
-
-(extern (* GtkWidget) ;gtk+-2.20.1/gtk/gtkcheckbutton.h
- gtk_check_button_new)
-
-(extern void ;gtk+-2.20.1/gtk/gtktogglebutton.h
- gtk_toggle_button_set_active
- (toggle_button (* GtkToggleButton))
- (is_active gboolean))
-
-(extern gboolean ;gtk+-2.20.1/gtk/gtktogglebutton.h
- gtk_toggle_button_get_active
- (toggle_button (* GtkToggleButton)))
-
-(extern (* GtkWidget) ;gtk+-2.8.20/gtk/gtkscrolledwindow.h
- gtk_scrolled_window_new
- (hadjustment (* GtkAdjustment))
- (vadjustment (* GtkAdjustment)))
-
-(extern void ;gtk+-2.8.20/gtk/gtkscrolledwindow.h
- gtk_scrolled_window_set_policy
- (scrolled_window (* GtkScrolledWindow))
- (hscrollbar_policy GtkPolicyType)
- (vscrollbar_policy GtkPolicyType))
-
-(extern void ;gtk+-2.8.20/gtk/gtkscrolledwindow.h
- gtk_scrolled_window_set_placement
- (scrolled_window (* GtkScrolledWindow))
- (window_placement GtkCornerType))
\ No newline at end of file
+ (ID gpointer))
\ No newline at end of file
projects / mit-scheme.git / commitdiff