1 ! Copyright (C) 2010 Anton Gorenko.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien alien.destructors alien.libraries alien.syntax
4 combinators gobject-introspection literals math system vocabs ;
7 ! these two are needed for the definition of GError and others.
8 ! otherwise we generate GError and some others in this vocab as well.
9 << "glib.ffi" require >>
14 LIBRARY-UNIX: gobject cdecl "libgobject-2.0.so"
15 LIBRARY-MACOSX: gobject cdecl "libgobject-2.0.dylib"
16 LIBRARY-WINDOWS: gobject cdecl "libgobject-2.0-0.dll"
18 IMPLEMENT-STRUCTS: GValue GParamSpecVariant ;
20 GIR: vocab:gobject/GObject-2.0.gir
30 DESTRUCTOR: g_object_unref
32 CONSTANT: G_TYPE_INVALID $[ 0 2 shift ]
33 CONSTANT: G_TYPE_NONE $[ 1 2 shift ]
34 CONSTANT: G_TYPE_INTERFACE $[ 2 2 shift ]
35 CONSTANT: G_TYPE_CHAR $[ 3 2 shift ]
36 CONSTANT: G_TYPE_UCHAR $[ 4 2 shift ]
37 CONSTANT: G_TYPE_BOOLEAN $[ 5 2 shift ]
38 CONSTANT: G_TYPE_INT $[ 6 2 shift ]
39 CONSTANT: G_TYPE_UINT $[ 7 2 shift ]
40 CONSTANT: G_TYPE_LONG $[ 8 2 shift ]
41 CONSTANT: G_TYPE_ULONG $[ 9 2 shift ]
42 CONSTANT: G_TYPE_INT64 $[ 10 2 shift ]
43 CONSTANT: G_TYPE_UINT64 $[ 11 2 shift ]
44 CONSTANT: G_TYPE_ENUM $[ 12 2 shift ]
45 CONSTANT: G_TYPE_FLAGS $[ 13 2 shift ]
46 CONSTANT: G_TYPE_FLOAT $[ 14 2 shift ]
47 CONSTANT: G_TYPE_DOUBLE $[ 15 2 shift ]
48 CONSTANT: G_TYPE_STRING $[ 16 2 shift ]
49 CONSTANT: G_TYPE_POINTER $[ 17 2 shift ]
50 CONSTANT: G_TYPE_BOXED $[ 18 2 shift ]
51 CONSTANT: G_TYPE_PARAM $[ 19 2 shift ]
52 CONSTANT: G_TYPE_OBJECT $[ 20 2 shift ]
56 : g_signal_connect ( instance detailed_signal c_handler data -- result )
57 f 0 g_signal_connect_data ;
59 : g_signal_connect_after ( instance detailed_signal c_handler data -- result )
60 f G_CONNECT_AFTER g_signal_connect_data ;
62 : g_signal_connect_swapped ( instance detailed_signal c_handler data -- result )
63 f G_CONNECT_SWAPPED g_signal_connect_data ;