have TYPEDEF:, STRUCT: etc. throw an error if you try to define a c type name ending with asterisk
parent
482aed8ecc
commit
00a7559d55
|
@ -46,8 +46,14 @@ IN: alien.parser
|
||||||
"callback-library"
|
"callback-library"
|
||||||
} reset-props ;
|
} reset-props ;
|
||||||
|
|
||||||
|
ERROR: *-in-c-type-name name ;
|
||||||
|
|
||||||
|
: validate-c-type-name ( name -- name )
|
||||||
|
dup "*" tail?
|
||||||
|
[ *-in-c-type-name ] when ;
|
||||||
|
|
||||||
: CREATE-C-TYPE ( -- word )
|
: CREATE-C-TYPE ( -- word )
|
||||||
scan current-vocab create {
|
scan validate-c-type-name current-vocab create {
|
||||||
[ fake-definition ]
|
[ fake-definition ]
|
||||||
[ set-word ]
|
[ set-word ]
|
||||||
[ reset-c-type ]
|
[ reset-c-type ]
|
||||||
|
|
Loading…
Reference in New Issue