unmaintained/pango/fonts/fonts.factor

   1 ! Copyright (C) 2008 Matthew Willis.
   2 ! See http://factorcode.org/license.txt for BSD license
   3 USING: pango alien.syntax alien.c-types
   4 kernel ;
   5 IN: pango.fonts
   6
   7 LIBRARY: pango
   8
   9 FUNCTION: void
  10 pango_font_map_list_families ( PangoFontMap* fontmap, PangoFontFamily*** families, int* n_families ) ;
  11
  12 FUNCTION: char*
  13 pango_font_family_get_name ( PangoFontFamily* family ) ;
  14
  15 FUNCTION: int
  16 pango_font_family_is_monospace ( PangoFontFamily* family ) ;
  17
  18 FUNCTION: void
  19 pango_font_family_list_faces ( PangoFontFamily* family, PangoFontFace*** faces, int* n_faces ) ;
  20
  21 FUNCTION: char*
  22 pango_font_face_get_face_name ( PangoFontFace* face ) ;
  23
  24 FUNCTION: void
  25 pango_font_face_list_sizes ( PangoFontFace* face, int** sizes, int* n_sizes ) ;
  26
  27 : list-families ( PangoFontMap* -- PangoFontFamily*-seq )
  28     0 <int> 0 <int> [ pango_font_map_list_families ] 2keep
  29     *int swap *void* [ swap c-void*-array> ] [ g_free ] bi ;
  30
  31 : list-faces ( PangoFontFamily* -- PangoFontFace*-seq )
  32     0 <int> 0 <int> [ pango_font_family_list_faces ] 2keep
  33     *int swap *void* [ swap c-void*-array> ] [ g_free ] bi ;
  34
  35 : list-sizes ( PangoFontFace* -- ints )
  36     0 <int> 0 <int> [ pango_font_face_list_sizes ] 2keep
  37     *int swap *void* [ swap c-int-array> ] [ g_free ] bi ;
  38
  39 : monospace? ( PangoFontFamily* -- ? )
  40     pango_font_family_is_monospace 1 = ;