allow word c-types and definitions to coexist
parent
c880d3fff3
commit
40620d470f
|
@ -24,6 +24,12 @@ IN: alien.parser
|
|||
[ drop \ } parse-until >array ]
|
||||
[ parse-c-type ] if ;
|
||||
|
||||
: reset-c-type ( word -- )
|
||||
{ "c-type" "pointer-c-type" } reset-props ;
|
||||
|
||||
: CREATE-C-TYPE ( -- word )
|
||||
scan current-vocab create dup reset-c-type ;
|
||||
|
||||
: normalize-c-arg ( type name -- type' name' )
|
||||
[ length ]
|
||||
[
|
||||
|
|
|
@ -19,7 +19,7 @@ SYNTAX: FUNCTION:
|
|||
(FUNCTION:) define-declared ;
|
||||
|
||||
SYNTAX: TYPEDEF:
|
||||
scan-c-type CREATE typedef ;
|
||||
scan-c-type CREATE-C-TYPE typedef ;
|
||||
|
||||
SYNTAX: C-STRUCT:
|
||||
scan current-vocab parse-definition define-struct ; deprecated
|
||||
|
|
Loading…
Reference in New Issue