steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gobject-introspection: support more number type constants.

flac
John Benediktsson 2020-01-30 08:21:57 -08:00 committed by Steve Ayerhart
parent 34f1f836eb
commit c196f9f022
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/gobject-introspection/ffi/ffi.factor
View File

@ -67,11 +67,21 @@ M: incorrect-type type>c-type drop void* ;
GENERIC: parse-const-value ( str data-type -- value ) GENERIC: parse-const-value ( str data-type -- value )
: number-type? ( name -- ? )
{
[ "gint" head? ]
[ "guint" head? ]
[ "gchar" = ]
[ "guchar" = ]
[ "gdouble" = ]
[ "gfloat" = ]
} 1|| ;
M: atomic-type parse-const-value M: atomic-type parse-const-value
name>> { name>> {
{ "gint" [ string>number ] } { [ dup number-type? ] [ drop string>number ] }
{ "gdouble" [ string>number ] } { [ dup "gboolean" = ] [ drop "true" = ] }
} case ; } cond ;
M: utf8-type parse-const-value drop ; M: utf8-type parse-const-value drop ;