Mercurial > gub
view patches/guile-gnome-mingw.patch @ 6485:919f33e40679
mingw::guile: fix socket and compiling.
author | Jan Nieuwenhuizen <janneke@gnu.org> |
---|---|
date | Thu, 03 Feb 2011 23:57:03 +0100 |
parents | 65e0466ad1ab |
children |
line wrap: on
line source
diff --git a/gnome/gobject/gvalue.c b/gnome/gobject/gvalue.c index 2a9fca1..8e08008 100644 --- a/glib/gnome/gobject/gvalue.c +++ a/glib/gnome/gobject/gvalue.c @@ -416,6 +416,7 @@ scm_c_scm_to_enum_value (GEnumClass *enum_class, SCM value) { guint i; +#undef ERROR #define ERROR(x) \ scm_c_gruntime_error \ (FUNC_NAME, "Bad enum value for enumerated type `~a': ~a", \ diff --git a/glib/gnome/gw/glib-support.c b/gnome/gw/glib-support.c index 0776d29..92bbaf8 100644 --- a/glib/gnome/gw/glib-support.c +++ b/glib/gnome/gw/glib-support.c @@ -123,6 +123,7 @@ _wrap_g_convert_with_fallback (const gchar* str, const gchar* to_codeset, static SCM iochannel_type = SCM_BOOL_F; +#ifndef __MINGW32__ static gboolean caught_intr = FALSE; static GMainContext *wakeup_context = NULL; @@ -220,6 +221,7 @@ signal_source_new (GMainLoop *loop) return source; } +#endif /*! __MINGW32__ */ void scm_init_glib (void) @@ -234,6 +236,7 @@ main_loop_run_without_guile (void *loop) return NULL; } +#ifndef __MINGW32__ void _wrap_g_main_loop_run (GMainLoop *loop) { @@ -255,7 +258,13 @@ _wrap_g_main_loop_run (GMainLoop *loop) scm_dynwind_end(); } - +#else /* __MINGW32__ */ +void +_wrap_g_main_loop_run (GMainLoop *loop) +{ + scm_without_guile (main_loop_run_without_guile, loop); +} +#endif /* __MINGW32__ */ SCM _wrap_g_string_get_str (GString *str) diff --git a/gnome/defs/atk.defs b/gnome/defs/atk.defs index fe8ec31..ecc8cc6 100644 --- a/defs/gnome/defs/atk.defs +++ b/defs/gnome/defs/atk.defs @@ -494,16 +494,16 @@ ;; From /opt/gnome2/include/atk-1.0/atk/atkhyperlinkimpl.h -(define-function atk_hyperlink_impl_get_type - (c-name "atk_hyperlink_impl_get_type") - (return-type "GType") -) +;; (define-function atk_hyperlink_impl_get_type +;; (c-name "atk_hyperlink_impl_get_type") +;; (return-type "GType") +;; ) -(define-method get_hyperlink - (of-object "AtkHyperlinkImpl") - (c-name "atk_hyperlink_impl_get_hyperlink") - (return-type "AtkHyperlink*") -) +;; (define-method get_hyperlink +;; (of-object "AtkHyperlinkImpl") +;; (c-name "atk_hyperlink_impl_get_hyperlink") +;; (return-type "AtkHyperlink*") +;; ) @@ -1268,14 +1268,14 @@ ) ) -(define-method get_uri - (of-object "AtkStreamableContent") - (c-name "atk_streamable_content_get_uri") - (return-type "gchar*") - (parameters - '("const-gchar*" "mime_type") - ) -) +;; (define-method get_uri +;; (of-object "AtkStreamableContent") +;; (c-name "atk_streamable_content_get_uri") +;; (return-type "gchar*") +;; (parameters +;; '("const-gchar*" "mime_type") +;; ) +;; ) @@ -1921,13 +1921,13 @@ ) ) -(define-method get_minimum_increment - (of-object "AtkValue") - (c-name "atk_value_get_minimum_increment") - (return-type "none") - (parameters - '("GValue*" "value") - ) -) +;; (define-method get_minimum_increment +;; (of-object "AtkValue") +;; (c-name "atk_value_get_minimum_increment") +;; (return-type "none") +;; (parameters +;; '("GValue*" "value") +;; ) +;; )