basis/gobject/gobject.factor

   1 ! Copyright (C) 2009 Anton Gorenko.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.syntax alien.destructors
   4 alien.libraries combinators kernel literals math system
   5 gir glib glib.ffi ;
   6 EXCLUDE: alien.c-types => pointer ;
   7
   8 <<
   9 "gobject" {
  10     { [ os winnt? ] [ "libobject-2.0-0.dll" cdecl add-library ] }
  11     { [ os macosx? ] [ "/opt/local/lib/libgobject-2.0.0.dylib" cdecl add-library ] }
  12     { [ os unix? ] [ "libgobject-2.0.so" cdecl add-library ] }
  13 } cond
  14 >>
  15
  16 IN: gobject.ffi
  17
  18 TYPEDEF: void* GSignalCMarshaller
  19 TYPEDEF: void GStrv
  20 ! есть alias
  21 TYPEDEF: gchar* gchararray
  22
  23 IMPLEMENT-STRUCTS: GValue ;
  24
  25 IN-GIR: gobject vocab:gobject/GObject-2.0.gir
  26
  27 IN: gobject.ffi
  28
  29 FORGET: GIOCondition
  30
  31 FUNCTION: void g_object_unref ( GObject* self ) ;
  32
  33 DESTRUCTOR: g_object_unref
  34
  35 ! Исправление неправильного типа параметра для GtkWidget-child-notify
  36 ! (разобраться)
  37 TYPEDEF: GParamSpec GParam
  38
  39 CONSTANT: G_TYPE_INVALID $[ 0 2 shift ]
  40 CONSTANT: G_TYPE_NONE $[ 1 2 shift ]
  41 CONSTANT: G_TYPE_INTERFACE $[ 2 2 shift ]
  42 CONSTANT: G_TYPE_CHAR $[ 3 2 shift ]
  43 CONSTANT: G_TYPE_UCHAR $[ 4 2 shift ]
  44 CONSTANT: G_TYPE_BOOLEAN $[ 5 2 shift ]
  45 CONSTANT: G_TYPE_INT $[ 6 2 shift ]
  46 CONSTANT: G_TYPE_UINT $[ 7 2 shift ]
  47 CONSTANT: G_TYPE_LONG $[ 8 2 shift ]
  48 CONSTANT: G_TYPE_ULONG $[ 9 2 shift ]
  49 CONSTANT: G_TYPE_INT64 $[ 10 2 shift ]
  50 CONSTANT: G_TYPE_UINT64 $[ 11 2 shift ]
  51 CONSTANT: G_TYPE_ENUM $[ 12 2 shift ]
  52 CONSTANT: G_TYPE_FLAGS $[ 13 2 shift ]
  53 CONSTANT: G_TYPE_FLOAT $[ 14 2 shift ]
  54 CONSTANT: G_TYPE_DOUBLE $[ 15 2 shift ]
  55 CONSTANT: G_TYPE_STRING $[ 16 2 shift ]
  56 CONSTANT: G_TYPE_POINTER $[ 17 2 shift ]
  57 CONSTANT: G_TYPE_BOXED $[ 18 2 shift ]
  58 CONSTANT: G_TYPE_PARAM $[ 19 2 shift ]
  59 CONSTANT: G_TYPE_OBJECT $[ 20 2 shift ]
  60