gobject-introspection: add REPLACE-C-TYPE: parsing word

[factor.git] / basis / gobject / ffi / ffi.factor

diff --git a/basis/gobject/ffi/ffi.factor b/basis/gobject/ffi/ffi.factor
index 2904ceb833bdfca7634306a4286192c470c7ad1b..7e2c5eace6ad09efa981c3a272171a201a9aed60 100644 (file)
--- a/basis/gobject/ffi/ffi.factor
+++ b/basis/gobject/ffi/ffi.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien alien.syntax alien.destructors alien.libraries
-combinators kernel literals math system
+classes.struct combinators kernel literals math system
 gobject-introspection glib.ffi ;
 EXCLUDE: alien.c-types => pointer ;
 IN: gobject.ffi
@@ -18,12 +18,13 @@ TYPEDEF: void* GSignalCMarshaller
 TYPEDEF: void GStrv
 TYPEDEF: gchar* gchararray
 
-IMPLEMENT-STRUCTS: GValue ;
-
 GIR: vocab:gobject/GObject-2.0.gir
 
 IN: gobject.ffi
 
+FORGET: GValue
+STRUCT: GValue { g_type GType } { data guint64[2] } ;
+
 FORGET: GIOCondition
 FORGET: G_IO_IN
 FORGET: G_IO_OUT