basis/pango/ffi/ffi.factor

   1 ! Copyright (C) 2010 Anton Gorenko.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.c-types alien.destructors alien.libraries
   4 alien.syntax combinators gobject-introspection
   5 gobject-introspection.standard-types system vocabs ;
   6 IN: pango.ffi
   7
   8 << "gobject.ffi" require >>
   9
  10 LIBRARY: pango
  11
  12 << "pango" {
  13     { [ os windows? ] [ "libpango-1.0-0.dll" ] }
  14     { [ os macosx? ] [ "libpango-1.0.dylib" ] }
  15     { [ os unix? ] [ "libpango-1.0.so" ] }
  16 } cond cdecl add-library >>
  17
  18 IMPLEMENT-STRUCTS: PangoRectangle ;
  19
  20 GIR: vocab:pango/Pango-1.0.gir
  21
  22 DESTRUCTOR: pango_font_description_free
  23 DESTRUCTOR: pango_layout_iter_free
  24
  25 ! <workaround
  26
  27 FORGET: pango_layout_line_index_to_x
  28 FUNCTION: void
  29 pango_layout_line_index_to_x ( PangoLayoutLine* line, gint index_, gboolean trailing, gint* x_pos )
  30
  31 FORGET: pango_layout_line_x_to_index
  32 FUNCTION: gboolean
  33 pango_layout_line_x_to_index ( PangoLayoutLine* line, gint x_pos, gint* index_, gint* trailing )
  34
  35 ! workaround>