allow word c-types and definitions to coexist

db4
Joe Groff 2009-09-16 17:18:19 -05:00
parent c880d3fff3
commit 40620d470f
2 changed files with 7 additions and 1 deletions

View File

@ -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 ]
[

View File

@ -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