basis/gobject-introspection/standard-types/standard-types.factor

   1 ! Copyright (C) 2010 Anton Gorenko.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors alien.c-types alien.syntax
   4 classes.struct gobject-introspection.types kernel parser ;
   5 IN: gobject-introspection.standard-types
   6
   7 <<
   8 TYPEDEF: char gchar
   9 TYPEDEF: uchar guchar
  10 TYPEDEF: short gshort
  11 TYPEDEF: ushort gushort
  12 TYPEDEF: long glong
  13 TYPEDEF: ulong gulong
  14 TYPEDEF: int gint
  15 TYPEDEF: uint guint
  16
  17 TYPEDEF: char gint8
  18 TYPEDEF: uchar guint8
  19 TYPEDEF: short gint16
  20 TYPEDEF: ushort guint16
  21 TYPEDEF: int gint32
  22 TYPEDEF: uint guint32
  23 TYPEDEF: longlong gint64
  24 TYPEDEF: ulonglong guint64
  25
  26 TYPEDEF: float gfloat
  27 TYPEDEF: double gdouble
  28
  29 TYPEDEF: size_t gsize
  30 TYPEDEF: long gssize
  31
  32 TYPEDEF: gulong GType
  33 TYPEDEF: void* gpointer
  34 TYPEDEF: guint32 gunichar
  35 TYPEDEF: void* va_list
  36
  37 int lookup-c-type clone
  38     [ >c-bool ] >>unboxer-quot
  39     [ c-bool> ] >>boxer-quot
  40     object >>boxed-class
  41 "gboolean" create-word-in typedef
  42
  43 STRUCT: longdouble { data char[10] } ;
  44 >>
  45
  46 gchar "gchar" register-standard-type
  47 guchar "guchar" register-standard-type
  48 gshort "gshort" register-standard-type
  49 gushort "gushort" register-standard-type
  50 glong "glong" register-standard-type
  51 gulong "gulong" register-standard-type
  52 gint "gint" register-standard-type
  53 guint "guint" register-standard-type
  54
  55 gint8 "gint8" register-standard-type
  56 guint8 "guint8" register-standard-type
  57 gint16 "gint16" register-standard-type
  58 guint16 "guint16" register-standard-type
  59 gint32 "gint32" register-standard-type
  60 guint32 "guint32" register-standard-type
  61 gint64 "gint64" register-standard-type
  62 guint64 "guint64" register-standard-type
  63
  64 gfloat "gfloat" register-standard-type
  65 gdouble "gdouble" register-standard-type
  66
  67 gsize "gsize" register-standard-type
  68 gssize "gssize" register-standard-type
  69
  70 GType "GType" register-standard-type
  71 gpointer "gpointer" register-standard-type
  72 gunichar "gunichar" register-standard-type
  73 va_list "va_list" register-standard-type
  74
  75 gboolean "gboolean" register-standard-type
  76 pointer: gchar "utf8" register-standard-type
  77 longdouble "long double" register-standard-type