53 lines
1.4 KiB
Factor
53 lines
1.4 KiB
Factor
! Copyright (C) 2005, 2010 Slava Pestov, Alex Chapman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors arrays alien alien.c-types
|
|
alien.arrays alien.strings kernel math namespaces parser
|
|
sequences words quotations math.parser splitting grouping
|
|
effects assocs combinators lexer strings.parser alien.parser
|
|
fry vocabs.parser words.constant alien.libraries ;
|
|
IN: alien.syntax
|
|
|
|
SYNTAX: DLL" lexer get skip-blank parse-string dlopen suffix! ;
|
|
|
|
SYNTAX: ALIEN: 16 scan-base <alien> suffix! ;
|
|
|
|
SYNTAX: BAD-ALIEN <bad-alien> suffix! ;
|
|
|
|
SYNTAX: LIBRARY: scan "c-library" set ;
|
|
|
|
SYNTAX: FUNCTION:
|
|
(FUNCTION:) define-declared ;
|
|
|
|
SYNTAX: CALLBACK:
|
|
(CALLBACK:) define-inline ;
|
|
|
|
SYNTAX: TYPEDEF:
|
|
scan-c-type CREATE-C-TYPE dup save-location typedef ;
|
|
|
|
SYNTAX: C-ENUM:
|
|
";" parse-tokens
|
|
[ [ create-in ] dip define-constant ] each-index ;
|
|
|
|
SYNTAX: C-TYPE:
|
|
void CREATE-C-TYPE typedef ;
|
|
|
|
ERROR: no-such-symbol name library ;
|
|
|
|
: address-of ( name library -- value )
|
|
2dup load-library dlsym [ 2nip ] [ no-such-symbol ] if* ;
|
|
|
|
SYNTAX: &:
|
|
scan "c-library" get '[ _ _ address-of ] append! ;
|
|
|
|
: global-quot ( type word -- quot )
|
|
name>> "c-library" get '[ _ _ address-of 0 ]
|
|
swap c-type-getter-boxer append ;
|
|
|
|
: define-global ( type word -- )
|
|
[ nip ] [ global-quot ] 2bi (( -- value )) define-declared ;
|
|
|
|
SYNTAX: C-GLOBAL: scan-c-type CREATE-WORD define-global ;
|
|
|
|
SYNTAX: pointer:
|
|
scan-c-type <pointer> suffix! ;
|