src/ui/glib/lib.slate

   1
   2 GLib define: #LibNames &builder: [{'Win32' -> ({'glib-wrapper' -> 'glib-wrapper'.
   3                                                   'glib' -> 'libglib-2.0-0'.
   4                                                   'gobject' -> 'libgobject-2.0-0'} as: Dictionary).
   5                                    'Linux' -> ({'glib-wrapper' -> 'glib-wrapper'.
   6                                                   'glib' -> 'libglib-2.0'.
   7                                                   'gobject' -> 'libgobject-2.0'} as: Dictionary).
   8  } as: Dictionary].
   9
  10 GLib define: #LibWrapper -> (
  11   ExternalInterface newForLibrary: ((GLib LibNames at: Platform current name) at: 'glib-wrapper') primitives: q{
  12     "(Void wrapper_g_object_connect_to_block_id(Pointer CString Int))"
  13
  14     (Void wrapper_g_callback_queue_init())
  15     (Void wrapper_g_callback_queue_shutdown())
  16     (Pointer wrapper_g_callback_wait_next())
  17     (Void wrapper_g_callback_end(Pointer))
  18     (Int wrapper_g_callback_data_get_block_id(Pointer))
  19     (Int wrapper_g_callback_data_get_parameter_count(Pointer))
  20     (Pointer wrapper_g_callback_data_get_parameter_at(Pointer Int))
  21
  22     (Boolean wrapper_g_type_is_fundamental(Int))
  23     (Int wrapper_g_type_fundamental(Int))
  24     (Int wrapper_g_type_from_instance(Pointer))
  25     (Pointer wrapper_g_value_new())
  26
  27     (Int wrapper_g_value_type(Pointer))
  28     (Int wrapper_g_value_get_int(Pointer))
  29
  30     (CString wraper_g_pointer_as_string(Pointer))
  31
  32     (Pointer wrapper_g_cclosure_new(Int))
  33   }
  34 ).
  35
  36 "GLib"
  37
  38 GLib LibWrapper enable.
  39
  40 GLib define: #Lib -> (
  41        ExternalInterface newForLibrary: ((GLib LibNames at: Platform current name) at: 'glib') primitives: q{
  42
  43
  44
  45     (Void g_slist_free(Pointer))
  46     (Pointer g_slist_nth_data(Pointer Int))
  47     (Int g_slist_length(Pointer))
  48
  49     (Void g_free(Pointer))
  50
  51   }
  52 ).
  53
  54 GLib Lib enable.
  55
  56 GLib define: #GObjectLib -> (
  57   ExternalInterface newForLibrary: ((GLib LibNames at: Platform current name) at: 'gobject') primitives: q{
  58
  59     (CString g_type_name(Int))
  60     (Void g_type_init())
  61     (Int g_gtype_get_type())
  62
  63
  64     (Void g_value_init(Pointer Int))
  65     "(Int g_value_get_int(Pointer))"
  66     (Int g_value_get_uint(Pointer))
  67     (Int g_value_get_long(Pointer))
  68     (Int g_value_get_ulong(Pointer))
  69     (Int g_value_get_enum(Pointer))
  70     (Int g_value_get_flags(Pointer))
  71     (CString g_value_get_string(Pointer))
  72     (Boolean g_value_get_boolean(Pointer))
  73     (Pointer g_value_get_boxed(Pointer))
  74     (Pointer g_value_get_object(Pointer))
  75     (Void g_value_set_string(Pointer CString))
  76     (Void g_value_set_boolean(Pointer Boolean))
  77     (Void g_value_set_int(Pointer Int))
  78     (Void g_value_set_float(Pointer Float))
  79     (Void g_value_set_pointer(Pointer Pointer))
  80     (Void g_value_set_object(Pointer Pointer))
  81
  82     (Int g_signal_connect_closure(Pointer CString Pointer Boolean))
  83   }
  84 ).
  85
  86 GLib GObjectLib enable.