41 lines
1019 B
Factor
41 lines
1019 B
Factor
! Copyright (C) 2005, 2006 Slava Pestov, Alex Chapman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: !syntax
|
|
USING: alien compiler kernel math namespaces parser
|
|
sequences syntax words ;
|
|
|
|
: !DLL" skip-blank parse-string dlopen parsed ; parsing
|
|
|
|
: !ALIEN: scan-word <alien> parsed ; parsing
|
|
|
|
: !LIBRARY: scan "c-library" set ; parsing
|
|
|
|
: !FUNCTION:
|
|
scan "c-library" get scan string-mode on
|
|
[ string-mode off define-c-word ] f ; parsing
|
|
|
|
: !TYPEDEF: scan scan typedef ; parsing
|
|
|
|
: !BEGIN-STRUCT: ( -- offset )
|
|
scan "struct-name" set 0 ; parsing
|
|
|
|
: !FIELD: ( offset -- offset )
|
|
scan scan define-field ; parsing
|
|
|
|
: !END-STRUCT ( length -- )
|
|
define-struct-type ; parsing
|
|
|
|
: !C-UNION:
|
|
scan "struct-name" set
|
|
string-mode on [
|
|
string-mode off
|
|
0 [ define-member ] reduce define-struct-type
|
|
] f ; parsing
|
|
|
|
: !C-ENUM:
|
|
string-mode on [
|
|
string-mode off 0 [
|
|
create-in swap [ unit define-compound ] keep 1+
|
|
] reduce drop
|
|
] f ; parsing
|