change directories structure (add */ffi/ffi.factor files)

diff --git a/basis/atk/atk.factor b/basis/atk/atk.factor
index 66f091ab19262d9382dd03a3baede839704b79a8..a27f4709028963bc6e64c35153419f837a7f1003 100644 (file)
--- a/basis/atk/atk.factor
+++ b/basis/atk/atk.factor
@@ -1,21 +1,5 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.libraries alien.syntax combinators kernel
-system
-gir glib gobject glib.ffi ;
-
-<<
-"atk" {
-    { [ os winnt? ] [ "libatk-1.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ drop ] }
-    { [ os unix? ] [ "libatk-1.0.so" cdecl add-library ] }
-} cond
->>
-
-IN: atk.ffi
-
-TYPEDEF: guint64 AtkState
-TYPEDEF: GSList AtkAttributeSet
-
-IN-GIR: atk vocab:atk/Atk-1.0.gir
+USING: atk.ffi ;
+IN: atk
 

diff --git a/basis/atk/ffi/ffi.factor b/basis/atk/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..e78948b
--- /dev/null
+++ b/basis/atk/ffi/ffi.factor
@@ -0,0 +1,20 @@
+! Copyright (C) 2009 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.libraries alien.syntax combinators kernel
+system
+gir glib.ffi gobject.ffi ;
+IN: atk.ffi
+
+<<
+"atk" {
+    { [ os winnt? ] [ "libatk-1.0-0.dll" cdecl add-library ] }
+    { [ os macosx? ] [ drop ] }
+    { [ os unix? ] [ "libatk-1.0.so" cdecl add-library ] }
+} cond
+>>
+
+TYPEDEF: guint64 AtkState
+TYPEDEF: GSList AtkAttributeSet
+
+GIR: vocab:atk/Atk-1.0.gir
+

diff --git a/basis/gdk/ffi/ffi.factor b/basis/gdk/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..7458234
--- /dev/null
+++ b/basis/gdk/ffi/ffi.factor
@@ -0,0 +1,30 @@
+! Copyright (C) 2009 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.c-types alien.destructors alien.syntax
+alien.libraries cairo.ffi combinators kernel system
+gir gdk.pixbuf.ffi gio.ffi glib.ffi gmodule.ffi gobject.ffi
+pango.ffi ;
+IN: gdk.ffi
+
+<<
+"gdk" {
+    { [ os winnt? ] [ "libgdk-win32-2.0-0.dll" cdecl add-library ] }
+    { [ os macosx? ] [ drop ] }
+    { [ os unix? ] [ "libgdk-x11-2.0.so" cdecl add-library ] }
+} cond
+>>
+
+TYPEDEF: guint32 GdkNativeWindow
+TYPEDEF: guint32 GdkWChar
+
+IMPLEMENT-STRUCTS: GdkEventAny GdkEventKey GdkEventButton
+GdkEventScroll GdkEventMotion GdkEventExpose GdkEventVisibility
+GdkEventCrossing GdkEventFocus GdkEventConfigure GdkEventProperty
+GdkEventSelection GdkEventDND GdkEventProximity GdkEventClient
+GdkEventNoExpose GdkEventWindowState GdkEventSetting
+GdkEventOwnerChange GdkEventGrabBroken ;
+
+GIR: vocab:gdk/Gdk-2.0.gir
+
+DESTRUCTOR: gdk_cursor_unref
+

diff --git a/basis/gdk/gdk.factor b/basis/gdk/gdk.factor
index bf6accd57bb684f2d05e4f1b58e51c90b215a8b3..fa7c4d1c95dc7a2762dd861ac41c02b56f142a6c 100644 (file)
--- a/basis/gdk/gdk.factor
+++ b/basis/gdk/gdk.factor
@@ -1,33 +1,5 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.destructors alien.syntax alien.libraries cairo.ffi
-combinators kernel system
-gir glib gobject gio gmodule gdk.pixbuf glib.ffi ;
-EXCLUDE: alien.c-types => pointer ;
-
-<<
-"gdk" {
-    { [ os winnt? ] [ "libgdk-win32-2.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ drop ] }
-    { [ os unix? ] [ "libgdk-x11-2.0.so" cdecl add-library ] }
-} cond
->>
-
-IN: gdk.ffi
-
-TYPEDEF: guint32 GdkNativeWindow
-TYPEDEF: guint32 GdkWChar
-
-IMPLEMENT-STRUCTS: GdkEventAny GdkEventKey GdkEventButton
-GdkEventScroll GdkEventMotion GdkEventExpose GdkEventVisibility
-GdkEventCrossing GdkEventFocus GdkEventConfigure GdkEventProperty
-GdkEventSelection GdkEventDND GdkEventProximity GdkEventClient
-GdkEventNoExpose GdkEventWindowState GdkEventSetting
-GdkEventOwnerChange GdkEventGrabBroken ;
-
-IN-GIR: gdk vocab:gdk/Gdk-2.0.gir
-
-IN: gdk.ffi
-
-DESTRUCTOR: gdk_cursor_unref
+USING: gdk.ffi ;
+IN: gdk
 

diff --git a/basis/gdk/gl/ffi/ffi.factor b/basis/gdk/gl/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..5c57fe0
--- /dev/null
+++ b/basis/gdk/gl/ffi/ffi.factor
@@ -0,0 +1,20 @@
+! Copyright (C) 2010 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.c-types alien.libraries combinators kernel
+system vocabs.parser words
+gir gdk.ffi gdk.pixbuf.ffi gio.ffi glib.ffi gmodule.ffi
+gobject.ffi pango.ffi ;
+IN: gdk.gl.ffi
+
+<<
+"gdk.gl" {
+    { [ os winnt? ] [ drop ] }
+    { [ os macosx? ] [ drop ] }
+    { [ os unix? ] [ "libgdkglext-x11-1.0.so" cdecl add-library ] }
+} cond
+>>
+
+<< ulong "unsigned long" current-vocab create typedef >>
+
+GIR: vocab:gdk/gl/GdkGL-1.0.gir
+

diff --git a/basis/gdk/gl/gl.factor b/basis/gdk/gl/gl.factor
index f8c3bd26eedc54905d48da7eca6d4d8e13414368..ab64b5f8fad561d33f9f7d74f433c9dad8429035 100644 (file)
--- a/basis/gdk/gl/gl.factor
+++ b/basis/gdk/gl/gl.factor
@@ -1,20 +1,5 @@
 ! Copyright (C) 2010 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types alien.libraries combinators kernel
-system vocabs.parser words
-gir glib gobject gio gmodule gdk gdk.ffi gdk.pixbuf ;
-
-<<
-"gdk.gl" {
-    { [ os winnt? ] [ drop ] }
-    { [ os macosx? ] [ drop ] }
-    { [ os unix? ] [ "libgdkglext-x11-1.0.so" cdecl add-library ] }
-} cond
->>
-
-IN: gdk.gl.ffi
-
-<< ulong "unsigned long" current-vocab create typedef >>
-
-IN-GIR: gdk.gl vocab:gdk/gl/GdkGL-1.0.gir
+USING: gdk.gl.ffi ;
+IN: gdk.gl
 

diff --git a/basis/gdk/pixbuf/ffi/ffi.factor b/basis/gdk/pixbuf/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..12e5675
--- /dev/null
+++ b/basis/gdk/pixbuf/ffi/ffi.factor
@@ -0,0 +1,17 @@
+! Copyright (C) 2009 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.libraries combinators kernel system
+gir gio.ffi glib.ffi gmodule.ffi gobject.ffi ;
+EXCLUDE: alien.c-types => pointer ;
+IN: gdk.pixbuf.ffi
+
+<<
+"gdk.pixbuf" {
+    { [ os winnt? ] [ "libgdk_pixbuf-2.0-0.dll" cdecl add-library ] }
+    { [ os macosx? ] [ drop ] }
+    { [ os unix? ] [ "libgdk_pixbuf-2.0.so" cdecl add-library ] }
+} cond
+>>
+
+GIR: vocab:gdk/pixbuf/GdkPixbuf-2.0.gir
+

diff --git a/basis/gdk/pixbuf/pixbuf.factor b/basis/gdk/pixbuf/pixbuf.factor
index 02fdccc3bbbe06238946df16dab710460f350ae7..35bbe9ae2c87d93d5e8654da3a2e4df4ae108539 100644 (file)
--- a/basis/gdk/pixbuf/pixbuf.factor
+++ b/basis/gdk/pixbuf/pixbuf.factor
@@ -1,16 +1,5 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.libraries combinators kernel system
-gir glib gobject gio gmodule ;
-EXCLUDE: alien.c-types => pointer ;
-
-<<
-"gdk.pixbuf" {
-    { [ os winnt? ] [ "libgdk_pixbuf-2.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ drop ] }
-    { [ os unix? ] [ "libgdk_pixbuf-2.0.so" cdecl add-library ] }
-} cond
->>
-
-IN-GIR: gdk.pixbuf vocab:gdk/pixbuf/GdkPixbuf-2.0.gir
+USING: gdk.pixbuf.ffi ;
+IN: gdk.pixbuf
 

diff --git a/basis/gio/ffi/ffi.factor b/basis/gio/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..16056f1
--- /dev/null
+++ b/basis/gio/ffi/ffi.factor
@@ -0,0 +1,17 @@
+! Copyright (C) 2009 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.libraries combinators kernel system
+gir glib.ffi gobject.ffi ;
+EXCLUDE: alien.c-types => pointer ;
+IN: gio.ffi
+
+<<
+"gio" {
+    { [ os winnt? ] [ "libgio-2.0-0.dll" cdecl add-library ] }
+    { [ os macosx? ] [ drop ] }
+    { [ os unix? ] [ "libgio-2.0.so" cdecl add-library ] }
+} cond
+>>
+
+GIR: vocab:gio/Gio-2.0.gir
+

diff --git a/basis/gio/gio.factor b/basis/gio/gio.factor
index 451bbeeded10c6a51ac989604093a2c6ddd75264..6ab6d1ff14dcb176eec4a2baecd179e0a0e76da2 100644 (file)
--- a/basis/gio/gio.factor
+++ b/basis/gio/gio.factor
@@ -1,16 +1,5 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.libraries combinators kernel system
-gir glib gobject ;
-EXCLUDE: alien.c-types => pointer ;
-
-<<
-"gio" {
-    { [ os winnt? ] [ "libgio-2.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ drop ] }
-    { [ os unix? ] [ "libgio-2.0.so" cdecl add-library ] }
-} cond
->>
-
-IN-GIR: gio vocab:gio/Gio-2.0.gir
+USING: gio.ffi ;
+IN: gio
 

diff --git a/basis/gir/common/common.factor b/basis/gir/common/common.factor
index f5513d94245388baabf653bdd321dce0140ac5d1..d4984607b4818f7b72a1781c215d1b04f958133c 100644 (file)
--- a/basis/gir/common/common.factor
+++ b/basis/gir/common/common.factor
@@ -7,9 +7,6 @@ CONSTANT: ffi-vocab "ffi"
 
 SYMBOL: current-lib
 
-SYMBOL: lib-aliases
-lib-aliases [ H{ } ] initialize
-
 SYMBOL: type-infos
 type-infos [ H{ } ] initialize
 
@@ -18,6 +15,3 @@ aliases [ H{ } ] initialize
 
 SYMBOL: implement-structs
 
-: get-lib-alias ( lib -- alias )
-    lib-aliases get-global at ;
-

diff --git a/basis/gir/ffi/ffi.factor b/basis/gir/ffi/ffi.factor
index 81373842a283e04092fd57efe8c0926e6611482f..88c2ceb40eaec2c4468a2365c2be946f2fa4817a 100644 (file)
--- a/basis/gir/ffi/ffi.factor
+++ b/basis/gir/ffi/ffi.factor
@@ -16,7 +16,7 @@ IN: gir.ffi
 : ffi-invoker ( func -- quot )
     {
         [ return>> c-type>> string>c-type ]
-        [ drop current-lib get ]
+        [ drop current-lib get-global ]
         [ identifier>> ]
         [ parameters>> [ c-type>> string>c-type ] map ]
         [ varargs?>> [ void* suffix ] when ]
@@ -61,7 +61,7 @@ IN: gir.ffi
         [ void* swap typedef ] keep dup
     ] keep
     [ signal-ffi-effect "callback-effect" set-word-prop ]
-    [ drop current-lib get "callback-library" set-word-prop ] 
+    [ drop current-lib get-global "callback-library" set-word-prop ] 
     [ signal-ffi-invoker (( quot -- alien )) define-inline ] 2tri ;
 
 : define-ffi-signals ( signals class -- )
@@ -161,7 +161,7 @@ IN: gir.ffi
     [ define-ffi-interface-content ] each ;
 
 : get-type-invoker ( name -- quot )
-    [ "GType" current-lib get ] dip
+    [ "GType" current-lib get-global ] dip
     { } \ alien-invoke 5 narray >quotation ;
     
 : define-ffi-class ( class -- word )
@@ -211,11 +211,6 @@ IN: gir.ffi
 : define-ffi-aliases ( aliases -- )
     [ define-ffi-alias ] each ;
 
-: prepare-vocab ( repository -- )
-    includes>> lib-aliases get '[ _ at ] map sift
-    [ ffi-vocab "." glue ] map
-    [ dup using-vocab? [ drop ] [ use-vocab ] if ] each ;
-
 : define-ffi-namespace ( namespace -- )
     {
         [ aliases>> define-ffi-aliases ]
@@ -238,6 +233,5 @@ IN: gir.ffi
     } cleave ;
 
 : define-ffi-repository ( repository -- )
-    [ prepare-vocab ]    
-    [ namespace>> define-ffi-namespace ] bi ;
+    namespace>> define-ffi-namespace ;
      

diff --git a/basis/gir/gir.factor b/basis/gir/gir.factor
index 1da49badb929a52478e41d70a8b8256931a15557..3c39d8d838108dbac1e59d707c2d1d7fb7428651 100755 (executable)
--- a/basis/gir/gir.factor
+++ b/basis/gir/gir.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors assocs combinators gir.common gir.ffi gir.loader
-kernel lexer locals namespaces sequences vocabs.parser xml ;
+kernel lexer locals math namespaces sequences vocabs.parser xml ;
 IN: gir
 
 : with-child-vocab ( name quot -- )
@@ -9,20 +9,18 @@ IN: gir
     [ swap "." glue set-current-vocab call ] keep
     set-current-vocab ; inline
 
-:: define-gir-vocab ( vocab-name file-name -- )
+:: define-gir-vocab ( file-name -- )
     file-name file>xml xml>repository
 
-    vocab-name [ set-current-vocab ] [ current-lib set ] bi
+    current-vocab name>> dup ffi-vocab tail?
+    [ ffi-vocab length 1 + head* current-lib set-global ]
+    [ drop ] if ! throw the error
     {
-        [
-            namespace>> name>> vocab-name swap
-            lib-aliases get set-at
-        ]
-        [ ffi-vocab [ define-ffi-repository ] with-child-vocab ]
+        [ define-ffi-repository ]
     } cleave
     f implement-structs set-global ;
 
-SYNTAX: IN-GIR: scan scan define-gir-vocab ;
+SYNTAX: GIR: scan define-gir-vocab ;
 
 SYNTAX: IMPLEMENT-STRUCTS:
     ";" parse-tokens implement-structs set-global ;

diff --git a/basis/gir/loader/loader.factor b/basis/gir/loader/loader.factor
index a6fc482c89d08ff931dcb308cd5ce3a77ce270b9..3d444bd500fafb386414b3c44cad91c19fbbfbdb 100644 (file)
--- a/basis/gir/loader/loader.factor
+++ b/basis/gir/loader/loader.factor
@@ -32,7 +32,7 @@ SYMBOL: namespace-PREFIX
 : full-type-name>type ( name -- type )
     [ type new ] dip
     camel>factor "." split1 dup [ swap ] unless
-    [ get-lib-alias >>namespace ] [ >>name ] bi* absolute-type ;
+    [ >>namespace ] [ >>name ] bi* absolute-type ;
 
 : node>type ( xml -- type )
     "name" attr full-type-name>type ;
@@ -254,7 +254,7 @@ SYMBOL: namespace-PREFIX
 
 : xml>namespace ( xml -- namespace )
     [ namespace new ] dip {
-        [ "name" attr camel>factor dup current-lib set >>name ]
+        [ "name" attr camel>factor >>name ]
         [ "prefix" attr [ set-prefix ] keep >>prefix ]
         [ "alias" tags-named [ xml>alias ] map >>aliases ]
         [ "record" tags-named [ xml>record ] map >>records ]
@@ -265,8 +265,7 @@ SYMBOL: namespace-PREFIX
         [ "constant" tags-named [ xml>const ] map >>consts ]
         [ "enumeration" tags-named [ xml>enum ] map >>enums ]
         [ "bitfield" tags-named [ xml>enum ] map >>bitfields ]
-        [ "function" load-functions >>functions
-        ]
+        [ "function" load-functions >>functions ]
     } cleave ;
 
 : xml>repository ( xml -- repository )

diff --git a/basis/gir/types/types.factor b/basis/gir/types/types.factor
index b0dc5f7df5578dee5f3ecf045a7295be7bfd5706..219eb3afff3631be7c9db100e4f037a9c1dfc906 100644 (file)
--- a/basis/gir/types/types.factor
+++ b/basis/gir/types/types.factor
@@ -132,5 +132,5 @@ PREDICATE: interface-type < type get-type-info interface-info? ;
     dup {
         [ namespace>> ] [ simple-type? ]
         [ utf8-type? ] [ none-type? ]
-    } 1|| [ current-lib get >>namespace ] unless ;
+    } 1|| [ current-lib get-global >>namespace ] unless ;
 

diff --git a/basis/glib/ffi/ffi.factor b/basis/glib/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..3a8229d
--- /dev/null
+++ b/basis/glib/ffi/ffi.factor
@@ -0,0 +1,70 @@
+! Copyright (C) 2009 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors alien alien.c-types alien.libraries alien.syntax
+combinators compiler.units gir kernel system vocabs.parser words ;
+IN: glib.ffi
+
+<<
+"glib" {
+    { [ os winnt? ] [ "libglib-2.0-0.dll" cdecl add-library ] }
+    { [ os macosx? ] [ "/opt/local/lib/libglib-2.0.0.dylib" cdecl add-library ] }
+    { [ os unix? ] [ "libglib-2.0.so" cdecl add-library ] }
+} cond
+>>
+
+<< double "long double" current-vocab create typedef >>
+
+TYPEDEF: char gchar
+TYPEDEF: uchar guchar
+TYPEDEF: short gshort
+TYPEDEF: ushort gushort
+TYPEDEF: long glong
+TYPEDEF: ulong gulong
+TYPEDEF: int gint
+TYPEDEF: uint guint
+
+<<
+int c-type clone
+    [ >c-bool ] >>unboxer-quot
+    [ c-bool> ] >>boxer-quot
+    object >>boxed-class
+"gboolean" current-vocab create typedef
+>>
+
+TYPEDEF: char gint8
+TYPEDEF: uchar guint8
+TYPEDEF: short gint16
+TYPEDEF: ushort guint16
+TYPEDEF: int gint32
+TYPEDEF: uint guint32
+TYPEDEF: longlong gint64
+TYPEDEF: ulonglong guint64
+
+TYPEDEF: float gfloat
+TYPEDEF: double gdouble
+
+TYPEDEF: long ssize_t
+TYPEDEF: long time_t
+TYPEDEF: size_t gsize
+TYPEDEF: ssize_t gssize
+TYPEDEF: size_t GType
+
+TYPEDEF: void* gpointer
+TYPEDEF: void* gconstpointer
+
+TYPEDEF: guint8 GDateDay
+TYPEDEF: guint16 GDateYear
+TYPEDEF: gint GPid
+TYPEDEF: guint32 GQuark
+TYPEDEF: gint32 GTime
+TYPEDEF: glong gintptr
+TYPEDEF: gint64 goffset
+TYPEDEF: gulong guintptr
+TYPEDEF: guint32 gunichar
+TYPEDEF: guint16 gunichar2
+
+TYPEDEF: gpointer pointer
+TYPEDEF: gpointer any
+
+GIR: vocab:glib/GLib-2.0.gir
+

diff --git a/basis/glib/glib.factor b/basis/glib/glib.factor
index 454484c6a1864588f5bb9d0539a98556ccf3bc31..46fa0359511f0246296bf386c6211668a05b6881 100644 (file)
--- a/basis/glib/glib.factor
+++ b/basis/glib/glib.factor
@@ -1,73 +1,5 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien alien.c-types alien.libraries alien.syntax
-combinators compiler.units gir kernel system vocabs.parser words ;
-
-<<
-"glib" {
-    { [ os winnt? ] [ "libglib-2.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ "/opt/local/lib/libglib-2.0.0.dylib" cdecl add-library ] }
-    { [ os unix? ] [ "libglib-2.0.so" cdecl add-library ] }
-} cond
->>
-
-IN: glib.ffi
-
-<< double "long double" current-vocab create typedef >>
-
-TYPEDEF: char gchar
-TYPEDEF: uchar guchar
-TYPEDEF: short gshort
-TYPEDEF: ushort gushort
-TYPEDEF: long glong
-TYPEDEF: ulong gulong
-TYPEDEF: int gint
-TYPEDEF: uint guint
-
-SYMBOL: gboolean
-<<
-gint c-type clone
-    [ >c-bool ] >>unboxer-quot
-    [ c-bool> ] >>boxer-quot
-    object >>boxed-class
-gboolean typedef
->>
-
-TYPEDEF: char gint8
-TYPEDEF: uchar guint8
-TYPEDEF: short gint16
-TYPEDEF: ushort guint16
-TYPEDEF: int gint32
-TYPEDEF: uint guint32
-TYPEDEF: longlong gint64
-TYPEDEF: ulonglong guint64
-
-TYPEDEF: float gfloat
-TYPEDEF: double gdouble
-
-TYPEDEF: long ssize_t
-TYPEDEF: long time_t
-TYPEDEF: size_t gsize
-TYPEDEF: ssize_t gssize
-TYPEDEF: size_t GType
-
-TYPEDEF: void* gpointer
-TYPEDEF: void* gconstpointer
-
-TYPEDEF: guint8 GDateDay
-TYPEDEF: guint16 GDateYear
-TYPEDEF: gint GPid
-TYPEDEF: guint32 GQuark
-TYPEDEF: gint32 GTime
-TYPEDEF: glong gintptr
-TYPEDEF: gint64 goffset
-TYPEDEF: gulong guintptr
-TYPEDEF: guint32 gunichar
-TYPEDEF: guint16 gunichar2
-
-! Разобраться, почему в .gir есть такие типы
-TYPEDEF: gpointer pointer
-TYPEDEF: gpointer any
-
-IN-GIR: glib vocab:glib/GLib-2.0.gir
+USING: glib.ffi ;
+IN: glib
 

diff --git a/basis/gmodule/ffi/ffi.factor b/basis/gmodule/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..449ef69
--- /dev/null
+++ b/basis/gmodule/ffi/ffi.factor
@@ -0,0 +1,16 @@
+! Copyright (C) 2009 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.libraries combinators kernel system
+gir glib.ffi ;
+IN: gmodule.ffi
+
+<<
+"gmodule" {
+    { [ os winnt? ] [ "libgmodule-2.0-0.dll" cdecl add-library ] }
+    { [ os macosx? ] [ drop ] }
+    { [ os unix? ] [ "libgmodule-2.0.so" cdecl add-library ] }
+} cond
+>>
+
+GIR: vocab:gmodule/GModule-2.0.gir
+

diff --git a/basis/gmodule/gmodule.factor b/basis/gmodule/gmodule.factor
index ed60c7e9b8d072640acf33310badfb6ba653b406..88bae336a5aa8bf334ca2d5899911c72a66875b5 100644 (file)
--- a/basis/gmodule/gmodule.factor
+++ b/basis/gmodule/gmodule.factor
@@ -1,15 +1,5 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.libraries combinators kernel system
-gir glib ;
-
-<<
-"gmodule" {
-    { [ os winnt? ] [ "libgmodule-2.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ drop ] }
-    { [ os unix? ] [ "libgmodule-2.0.so" cdecl add-library ] }
-} cond
->>
-
-IN-GIR: gmodule vocab:gmodule/GModule-2.0.gir
+USING: gmodule.ffi ;
+IN: gmodule
 

diff --git a/basis/gobject/ffi/ffi.factor b/basis/gobject/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..404e2f7
--- /dev/null
+++ b/basis/gobject/ffi/ffi.factor
@@ -0,0 +1,56 @@
+! 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
+gir glib.ffi ;
+EXCLUDE: alien.c-types => pointer ;
+IN: gobject.ffi
+
+<<
+"gobject" {
+    { [ os winnt? ] [ "libobject-2.0-0.dll" cdecl add-library ] }
+    { [ os macosx? ] [ "/opt/local/lib/libgobject-2.0.0.dylib" cdecl add-library ] }
+    { [ os unix? ] [ "libgobject-2.0.so" cdecl add-library ] }
+} cond
+>>
+
+TYPEDEF: void* GSignalCMarshaller
+TYPEDEF: void GStrv
+TYPEDEF: gchar* gchararray
+
+IMPLEMENT-STRUCTS: GValue ;
+
+GIR: vocab:gobject/GObject-2.0.gir
+
+IN: gobject.ffi
+
+FORGET: GIOCondition
+
+FUNCTION: void g_object_unref ( GObject* self ) ;
+
+DESTRUCTOR: g_object_unref
+
+TYPEDEF: GParamSpec GParam
+
+CONSTANT: G_TYPE_INVALID $[ 0 2 shift ]
+CONSTANT: G_TYPE_NONE $[ 1 2 shift ]
+CONSTANT: G_TYPE_INTERFACE $[ 2 2 shift ]
+CONSTANT: G_TYPE_CHAR $[ 3 2 shift ]
+CONSTANT: G_TYPE_UCHAR $[ 4 2 shift ]
+CONSTANT: G_TYPE_BOOLEAN $[ 5 2 shift ]
+CONSTANT: G_TYPE_INT $[ 6 2 shift ]
+CONSTANT: G_TYPE_UINT $[ 7 2 shift ]
+CONSTANT: G_TYPE_LONG $[ 8 2 shift ]
+CONSTANT: G_TYPE_ULONG $[ 9 2 shift ]
+CONSTANT: G_TYPE_INT64 $[ 10 2 shift ]
+CONSTANT: G_TYPE_UINT64 $[ 11 2 shift ]
+CONSTANT: G_TYPE_ENUM $[ 12 2 shift ]
+CONSTANT: G_TYPE_FLAGS $[ 13 2 shift ]
+CONSTANT: G_TYPE_FLOAT $[ 14 2 shift ]
+CONSTANT: G_TYPE_DOUBLE $[ 15 2 shift ]
+CONSTANT: G_TYPE_STRING $[ 16 2 shift ]
+CONSTANT: G_TYPE_POINTER $[ 17 2 shift ]
+CONSTANT: G_TYPE_BOXED $[ 18 2 shift ]
+CONSTANT: G_TYPE_PARAM $[ 19 2 shift ]
+CONSTANT: G_TYPE_OBJECT $[ 20 2 shift ]
+

diff --git a/basis/gobject/gobject.factor b/basis/gobject/gobject.factor
index 541a77c2871d1d1217e691e80a40941fe581a6db..5dc903a6053adb6ef59ddf4811d6d4d0a8641351 100644 (file)
--- a/basis/gobject/gobject.factor
+++ b/basis/gobject/gobject.factor
@@ -1,60 +1,5 @@
 ! 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
-gir glib glib.ffi ;
-EXCLUDE: alien.c-types => pointer ;
-
-<<
-"gobject" {
-    { [ os winnt? ] [ "libobject-2.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ "/opt/local/lib/libgobject-2.0.0.dylib" cdecl add-library ] }
-    { [ os unix? ] [ "libgobject-2.0.so" cdecl add-library ] }
-} cond
->>
-
-IN: gobject.ffi
-
-TYPEDEF: void* GSignalCMarshaller
-TYPEDEF: void GStrv
-! есть alias
-TYPEDEF: gchar* gchararray
-
-IMPLEMENT-STRUCTS: GValue ;
-
-IN-GIR: gobject vocab:gobject/GObject-2.0.gir
-
-IN: gobject.ffi
-
-FORGET: GIOCondition
-
-FUNCTION: void g_object_unref ( GObject* self ) ;
-
-DESTRUCTOR: g_object_unref
-
-! Исправление неправильного типа параметра для GtkWidget-child-notify
-! (разобраться)
-TYPEDEF: GParamSpec GParam
-
-CONSTANT: G_TYPE_INVALID $[ 0 2 shift ]
-CONSTANT: G_TYPE_NONE $[ 1 2 shift ]
-CONSTANT: G_TYPE_INTERFACE $[ 2 2 shift ]
-CONSTANT: G_TYPE_CHAR $[ 3 2 shift ]
-CONSTANT: G_TYPE_UCHAR $[ 4 2 shift ]
-CONSTANT: G_TYPE_BOOLEAN $[ 5 2 shift ]
-CONSTANT: G_TYPE_INT $[ 6 2 shift ]
-CONSTANT: G_TYPE_UINT $[ 7 2 shift ]
-CONSTANT: G_TYPE_LONG $[ 8 2 shift ]
-CONSTANT: G_TYPE_ULONG $[ 9 2 shift ]
-CONSTANT: G_TYPE_INT64 $[ 10 2 shift ]
-CONSTANT: G_TYPE_UINT64 $[ 11 2 shift ]
-CONSTANT: G_TYPE_ENUM $[ 12 2 shift ]
-CONSTANT: G_TYPE_FLAGS $[ 13 2 shift ]
-CONSTANT: G_TYPE_FLOAT $[ 14 2 shift ]
-CONSTANT: G_TYPE_DOUBLE $[ 15 2 shift ]
-CONSTANT: G_TYPE_STRING $[ 16 2 shift ]
-CONSTANT: G_TYPE_POINTER $[ 17 2 shift ]
-CONSTANT: G_TYPE_BOXED $[ 18 2 shift ]
-CONSTANT: G_TYPE_PARAM $[ 19 2 shift ]
-CONSTANT: G_TYPE_OBJECT $[ 20 2 shift ]
+USING: gobject.ffi ;
+IN: gobject
 

diff --git a/basis/gst/ffi/ffi.factor b/basis/gst/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..fa110b3
--- /dev/null
+++ b/basis/gst/ffi/ffi.factor
@@ -0,0 +1,27 @@
+! Copyright (C) 2010 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.syntax alien.libraries combinators kernel
+system
+gir glib.ffi gmodule.ffi gobject.ffi ;
+EXCLUDE: alien.c-types => pointer ;
+IN: gst.ffi
+
+<<
+"gst" {
+    { [ os winnt? ] [ drop ] }
+    { [ os macosx? ] [ drop ] }
+    { [ os unix? ] [ "libgstreamer-0.10.so" cdecl add-library ] }
+} cond
+>>
+
+TYPEDEF: gpointer GstClockID
+TYPEDEF: guint64 GstClockTime
+TYPEDEF: gint64 GstClockTimeDiff
+
+! Временное исправление отсутвующих типов libxml2
+TYPEDEF: void* xmlNodePtr
+TYPEDEF: void* xmlDocPtr
+TYPEDEF: void* xmlNsPtr
+
+GIR: vocab:gst/Gst-0.10.gir
+

diff --git a/basis/gst/gst.factor b/basis/gst/gst.factor
index b97b929f5cccd0fd5cdf7fec9ce4b7a5e6c1c951..073b022b959105bcd03277e64564c10244e4c239 100644 (file)
--- a/basis/gst/gst.factor
+++ b/basis/gst/gst.factor
@@ -1,28 +1,5 @@
 ! Copyright (C) 2010 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.syntax alien.libraries combinators 
-kernel system
-gir glib glib.ffi gobject gmodule ;
-EXCLUDE: alien.c-types => pointer ;
-
-<<
-"gst" {
-    { [ os winnt? ] [ drop ] }
-    { [ os macosx? ] [ drop ] }
-    { [ os unix? ] [ "libgstreamer-0.10.so" cdecl add-library ] }
-} cond
->>
-
-IN: gst.ffi
-
-TYPEDEF: gpointer GstClockID
-TYPEDEF: guint64 GstClockTime
-TYPEDEF: gint64 GstClockTimeDiff
-
-! Временное исправление отсутвующих типов libxml2
-TYPEDEF: void* xmlNodePtr
-TYPEDEF: void* xmlDocPtr
-TYPEDEF: void* xmlNsPtr
-
-IN-GIR: gst vocab:gst/Gst-0.10.gir
+USING: gst.ffi ;
+IN: gst
 

diff --git a/basis/gtk/ffi/ffi.factor b/basis/gtk/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..64d0b7f
--- /dev/null
+++ b/basis/gtk/ffi/ffi.factor
@@ -0,0 +1,26 @@
+! Copyright (C) 2009 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.syntax alien.libraries cairo.ffi combinators 
+kernel system
+gir atk.ffi gdk.ffi gdk.pixbuf.ffi gio.ffi glib.ffi gmodule.ffi
+gobject.ffi pango.ffi ;
+EXCLUDE: alien.c-types => pointer ;
+IN: gtk.ffi
+
+<<
+"gtk" {
+    { [ os winnt? ] [ "libgtk-win32-2.0-0.dll" cdecl add-library ] }
+    { [ os macosx? ] [ drop ] }
+    { [ os unix? ] [ "libgtk-x11-2.0.so" cdecl add-library ] }
+} cond
+>>
+
+TYPEDEF: void GtkAllocation
+TYPEDEF: void GtkEnumValue
+TYPEDEF: void GtkFlagValue
+TYPEDEF: GType GtkType
+
+IMPLEMENT-STRUCTS: GtkTreeIter ;
+
+GIR: vocab:gtk/Gtk-2.0.gir
+

diff --git a/basis/gtk/gl/ffi/ffi.factor b/basis/gtk/gl/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..9997ce8
--- /dev/null
+++ b/basis/gtk/gl/ffi/ffi.factor
@@ -0,0 +1,18 @@
+! Copyright (C) 2010 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.libraries combinators kernel system
+gir gdk.ffi gdk.pixbuf.ffi gdk.gl.ffi gio.ffi glib.ffi
+gmodule.ffi gobject.ffi gtk.ffi ;
+EXCLUDE: alien.c-types => pointer ;
+IN: gtk.gl.ffi
+
+<<
+"gtk.gl" {
+    { [ os winnt? ] [ drop ] }
+    { [ os macosx? ] [ drop ] }
+    { [ os unix? ] [ "libgtkglext-x11-1.0.so" cdecl add-library ] }
+} cond
+>>
+
+GIR: vocab:gtk/gl/GtkGL-1.0.gir
+

diff --git a/basis/gtk/gl/gl.factor b/basis/gtk/gl/gl.factor
index cc4bc8d581ae812eb0edbb5690c07706900028b1..3a9a104665ddc0e45d0fad835e65386db2edd93e 100644 (file)
--- a/basis/gtk/gl/gl.factor
+++ b/basis/gtk/gl/gl.factor
@@ -1,16 +1,5 @@
 ! Copyright (C) 2010 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.libraries combinators kernel system
-gir glib gobject gio gmodule gdk.pixbuf gdk gdk.gl gtk gtk.ffi ;
-EXCLUDE: alien.c-types => pointer ;
-
-<<
-"gtk.gl" {
-    { [ os winnt? ] [ drop ] }
-    { [ os macosx? ] [ drop ] }
-    { [ os unix? ] [ "libgtkglext-x11-1.0.so" cdecl add-library ] }
-} cond
->>
-
-IN-GIR: gtk.gl vocab:gtk/gl/GtkGL-1.0.gir
+USING: gtk.gl.ffi ;
+IN: gtk.gl
 

diff --git a/basis/gtk/gtk.factor b/basis/gtk/gtk.factor
index 8dc000ffdc85a64abe927c06be93c6fe2e668e53..d91e1f3bdf7c810438a613324c62acbb7abaa579 100644 (file)
--- a/basis/gtk/gtk.factor
+++ b/basis/gtk/gtk.factor
@@ -1,26 +1,5 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.syntax alien.libraries cairo.ffi combinators 
-kernel system
-gir glib glib.ffi gobject gio gmodule gdk.pixbuf gdk atk ;
-EXCLUDE: alien.c-types => pointer ;
-
-<<
-"gtk" {
-    { [ os winnt? ] [ "libgtk-win32-2.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ drop ] }
-    { [ os unix? ] [ "libgtk-x11-2.0.so" cdecl add-library ] }
-} cond
->>
-
-IN: gtk.ffi
-
-TYPEDEF: void GtkAllocation
-TYPEDEF: void GtkEnumValue
-TYPEDEF: void GtkFlagValue
-TYPEDEF: GType GtkType
-
-IMPLEMENT-STRUCTS: GtkTreeIter ;
-
-IN-GIR: gtk vocab:gtk/Gtk-2.0.gir
+USING: gtk.ffi ;
+IN: gtk
 

diff --git a/basis/opengl/gl/gtk/gtk.factor b/basis/opengl/gl/gtk/gtk.factor
index fef80313f216cc149715d9197dce1ddae09a5fcc..0521d2fa07ab8de20fe73bfaf9d65dfc8e726a16 100644 (file)
--- a/basis/opengl/gl/gtk/gtk.factor
+++ b/basis/opengl/gl/gtk/gtk.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2010 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien alien.strings io.encodings.ascii
-gdk.gl gdk.gl.ffi ;
+gdk.gl.ffi ;
 IN: opengl.gl.gtk
 
 : gl-function-context ( -- context )

diff --git a/basis/pango/cairo/cairo.factor b/basis/pango/cairo/cairo.factor
index b800fe7f49275c27ee2452f6c3a55a642f3f4123..67ae9969fed6b9d347d56331fc6651ef861034d7 100644 (file)
--- a/basis/pango/cairo/cairo.factor
+++ b/basis/pango/cairo/cairo.factor
@@ -1,27 +1,5 @@
 ! Copyright (C) 2010 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types alien.data alien.libraries
-alien.syntax cairo.ffi combinators kernel system
-gir pango pango.ffi ;
-
-<< 
-"pango.cairo" {
-    { [ os winnt? ] [ "libpangocairo-1.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ "/opt/local/lib/libpangocairo-1.0.0.dylib" cdecl add-library ] }
-    { [ os unix? ] [ "libpangocairo-1.0.so" cdecl add-library ] }
-} cond 
->>
-
-IN-GIR: pango.cairo vocab:pango/cairo/PangoCairo-1.0.gir
-
-IN: pango.cairo.ffi
-
-FUNCTION: void
-pango_cairo_update_layout ( cairo_t* cr, PangoLayout* layout ) ;
-
-FUNCTION: void
-pango_cairo_show_layout ( cairo_t* cr, PangoLayout* layout ) ;
-
-FUNCTION: PangoLayout*
-pango_cairo_create_layout ( cairo_t* cr ) ;
+USING: cairo.pango.ffi ;
+IN: pango.cairo
 

diff --git a/basis/pango/cairo/ffi/ffi.factor b/basis/pango/cairo/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..2361fe5
--- /dev/null
+++ b/basis/pango/cairo/ffi/ffi.factor
@@ -0,0 +1,26 @@
+! Copyright (C) 2010 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.c-types alien.libraries alien.syntax cairo.ffi
+combinators kernel system
+gir pango.ffi ;
+IN: pango.cairo.ffi
+
+<< 
+"pango.cairo" {
+    { [ os winnt? ] [ "libpangocairo-1.0-0.dll" cdecl add-library ] }
+    { [ os macosx? ] [ "/opt/local/lib/libpangocairo-1.0.0.dylib" cdecl add-library ] }
+    { [ os unix? ] [ "libpangocairo-1.0.so" cdecl add-library ] }
+} cond 
+>>
+
+GIR: vocab:pango/cairo/PangoCairo-1.0.gir
+
+FUNCTION: void
+pango_cairo_update_layout ( cairo_t* cr, PangoLayout* layout ) ;
+
+FUNCTION: void
+pango_cairo_show_layout ( cairo_t* cr, PangoLayout* layout ) ;
+
+FUNCTION: PangoLayout*
+pango_cairo_create_layout ( cairo_t* cr ) ;
+

diff --git a/basis/pango/ffi/ffi.factor b/basis/pango/ffi/ffi.factor
new file mode 100644 (file)
index 0000000..d174ac4
--- /dev/null
+++ b/basis/pango/ffi/ffi.factor
@@ -0,0 +1,25 @@
+! Copyright (C) 2009 Anton Gorenko.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.c-types alien.destructors alien.libraries
+alien.syntax combinators kernel system
+gir glib.ffi ;
+IN: pango.ffi
+
+<< 
+"pango" {
+    { [ os winnt? ] [ "libpango-1.0-0.dll" cdecl add-library ] }
+    { [ os macosx? ] [ "/opt/local/lib/libpango-1.0.0.dylib" cdecl add-library ] }
+    { [ os unix? ] [ "libpango-1.0.so" cdecl add-library ] }
+} cond 
+>>
+
+TYPEDEF: void PangoLayoutRun ! не совсем верно
+TYPEDEF: guint32 PangoGlyph
+
+IMPLEMENT-STRUCTS: PangoRectangle ;
+
+GIR: vocab:pango/Pango-1.0.gir
+
+DESTRUCTOR: pango_font_description_free
+DESTRUCTOR: pango_layout_iter_free
+

diff --git a/basis/pango/pango.factor b/basis/pango/pango.factor
index 6d1e8aed94ec9d56db0bffd32f7eaf4dd00f1540..221308f25787c3a73c5c9e382e0e94a538cfeeda 100644 (file)
--- a/basis/pango/pango.factor
+++ b/basis/pango/pango.factor
@@ -1,28 +1,5 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types alien.destructors alien.libraries
-alien.syntax combinators kernel system
-gir glib glib.ffi ;
-
-<< 
-"pango" {
-    { [ os winnt? ] [ "libpango-1.0-0.dll" cdecl add-library ] }
-    { [ os macosx? ] [ "/opt/local/lib/libpango-1.0.0.dylib" cdecl add-library ] }
-    { [ os unix? ] [ "libpango-1.0.so" cdecl add-library ] }
-} cond 
->>
-
-IN: pango.ffi
-
-TYPEDEF: void PangoLayoutRun ! не совсем верно
-TYPEDEF: guint32 PangoGlyph
-
-IMPLEMENT-STRUCTS: PangoRectangle ;
-
-IN-GIR: pango vocab:pango/Pango-1.0.gir
-
-IN: pango.ffi
-
-DESTRUCTOR: pango_font_description_free
-DESTRUCTOR: pango_layout_iter_free
+USING: pango.ffi ;
+IN: pango
 

diff --git a/basis/ui/backend/gtk/gtk.factor b/basis/ui/backend/gtk/gtk.factor
index b984c4656312b4e994cfceeb57811db27be8640a..9503e3112908ae6cf9960de9dfb25348a75fe91b 100644 (file)
--- a/basis/ui/backend/gtk/gtk.factor
+++ b/basis/ui/backend/gtk/gtk.factor
@@ -5,8 +5,7 @@ classes.struct combinators.short-circuit command-line destructors
 io.encodings.utf8 kernel literals locals math math.bitwise
 namespaces sequences strings ui ui.backend ui.clipboards ui.event-loop
 ui.gadgets ui.gadgets.private ui.gadgets.worlds ui.gestures ui.private
-glib glib.ffi gobject gobject.ffi gtk gtk.ffi gdk gdk.ffi
-gdk.gl gtk.gl gdk.gl.ffi gtk.gl.ffi ;
+glib.ffi gobject.ffi gtk.ffi gdk.ffi gdk.gl.ffi gtk.gl.ffi ;
 IN: ui.backend.gtk
 
 SINGLETON: gtk-ui-backend
@@ -276,14 +275,14 @@ M:: gtk-ui-backend (open-window) ( world -- )
     GTK_WINDOW_TOPLEVEL gtk_window_new :> win
     world [ window-loc>> win swap first2 gtk_window_move ]
     [ dim>> win swap first2 gtk_window_set_default_size ] bi
-
+    
     win enable-gl drop ! сделать проверку на доступность OpenGL
-  
+
     win connect-signals
     
     win gtk_widget_realize
     win world window-controls>> configure-window-controls
-
+    
     win <window-handle> world handle<<
     world win register-window
     

diff --git a/basis/ui/text/pango/pango.factor b/basis/ui/text/pango/pango.factor
index 634242b692af14c3f17dae6835bf4006be4527e1..ede8135e9536b285a6262c51c8b7062c9b71628e 100644 (file)
--- a/basis/ui/text/pango/pango.factor
+++ b/basis/ui/text/pango/pango.factor
@@ -4,7 +4,7 @@ USING: accessors alien.c-types alien.strings arrays assocs cache cairo
 cairo.ffi classes.struct combinators destructors fonts fry
 init io.encodings.utf8 kernel math math.rectangles math.vectors
 memoize namespaces sequences ui.text ui.text.private
-gobject gobject.ffi pango pango.ffi pango.cairo pango.cairo.ffi ;
+gobject.ffi pango.ffi pango.cairo.ffi ;
 IN: ui.text.pango
 
 : pango>float ( n -- x ) PANGO_SCALE /f ; inline

diff --git a/extra/gir/samples/lowlevel/gstreamer/gstreamer.factor b/extra/gir/samples/lowlevel/gstreamer/gstreamer.factor
index 0127f48e6bb3117f42431e824559632aa517b83a..c772fd11da1b335ceea97d8829e6ad6922363e1c 100644 (file)
--- a/extra/gir/samples/lowlevel/gstreamer/gstreamer.factor
+++ b/extra/gir/samples/lowlevel/gstreamer/gstreamer.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien.c-types alien.strings fry byte-arrays classes.struct
 io.encodings.utf8 kernel locals math prettyprint 
-gst gst.ffi glib.ffi gobject.ffi gtk gtk.ffi ;
+gst.ffi glib.ffi gobject.ffi gtk.ffi ;
 IN: gir.samples.lowlevel.gstreamer
 
 ! CONSTANT: uri "http://www.xiph.org/vorbis/listen/compilation-ogg-q4.ogg"

diff --git a/extra/gir/samples/lowlevel/hello-world/hello-world.factor b/extra/gir/samples/lowlevel/hello-world/hello-world.factor
index a7068937d654292381aa9af10958f9a34858f7ce..b1bcf029d5213c15070385da4e1368e8414ff8be 100644 (file)
--- a/extra/gir/samples/lowlevel/hello-world/hello-world.factor
+++ b/extra/gir/samples/lowlevel/hello-world/hello-world.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2010 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.strings gtk gobject.ffi gtk.ffi io.encodings.utf8
+USING: alien.strings gobject.ffi gtk.ffi io.encodings.utf8
 kernel locals ;
 IN: gir.samples.lowlevel.hello-world
 

diff --git a/extra/gir/samples/lowlevel/lowlevel.factor b/extra/gir/samples/lowlevel/lowlevel.factor
index a3b82017873db9ca4c0d7874470440849f4cc0f7..795d3cfba4788559106761a0b948d278b38112d8 100644 (file)
--- a/extra/gir/samples/lowlevel/lowlevel.factor
+++ b/extra/gir/samples/lowlevel/lowlevel.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2010 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien.c-types alien.strings byte-arrays classes.struct
-gtk glib.ffi gobject.ffi gtk.ffi io.encodings.utf8 kernel
+glib.ffi gobject.ffi gtk.ffi io.encodings.utf8 kernel
 literals locals make math prettyprint sequences specialized-arrays
 gir.samples.lowlevel.hello-world
 gir.samples.lowlevel.opengl

diff --git a/extra/gir/samples/lowlevel/opengl/opengl.factor b/extra/gir/samples/lowlevel/opengl/opengl.factor
index 284a8c342f1cc9b0eaac7494f9eaf9e7e2921906..304549d321e5a7347c81955ed384543567bfa249 100644 (file)
--- a/extra/gir/samples/lowlevel/opengl/opengl.factor
+++ b/extra/gir/samples/lowlevel/opengl/opengl.factor
@@ -1,6 +1,6 @@
 ! Copyright (C) 2010 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.enums alien.strings gtk gobject.ffi gtk.ffi gdk.gl gtk.gl gdk.gl.ffi
+USING: alien.enums alien.strings gobject.ffi gtk.ffi gdk.gl.ffi
 gtk.gl.ffi io.encodings.utf8 kernel locals math opengl.gl prettyprint ;
 IN: gir.samples.lowlevel.opengl