steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien.syntax: FUNCTION: and FUNCTION-ALIAS: now define inline words

db4
Slava Pestov 2010-07-28 03:05:14 -04:00
parent 168dd1f825
commit 6142bd7335
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/alien/parser/parser-tests.factor
View File

@ -31,15 +31,29 @@ CONSTANT: eleven 11
] with-file-vocabs
FUNCTION: void* alien-parser-function-effect-test ( int *arg1 float arg2 ) ;
[ (( arg1 arg2 -- void* )) ] [
\ alien-parser-function-effect-test "declared-effect" word-prop
] unit-test
[ t ] [ \ alien-parser-function-effect-test inline? ] unit-test
FUNCTION-ALIAS: (alien-parser-function-effect-test) void* alien-parser-function-effect-test ( int *arg1 float arg2 ) ;
[ (( arg1 arg2 -- void* )) ] [
\ (alien-parser-function-effect-test) "declared-effect" word-prop
] unit-test
[ t ] [ \ (alien-parser-function-effect-test) inline? ] unit-test
CALLBACK: void* alien-parser-callback-effect-test ( int *arg1 float arg2 ) ;
[ (( arg1 arg2 -- void* )) ] [
\ alien-parser-callback-effect-test "callback-effect" word-prop
] unit-test
[ t ] [ \ alien-parser-callback-effect-test inline? ] unit-test
! Reported by mnestic
TYPEDEF: int alien-parser-test-int ! reasonably unique name...

4
basis/alien/syntax/syntax.factor
View File

@ -16,11 +16,11 @@ SYNTAX: BAD-ALIEN <bad-alien> suffix! ;
SYNTAX: LIBRARY: scan current-library set ;
SYNTAX: FUNCTION:
(FUNCTION:) make-function define-declared ;
(FUNCTION:) make-function define-inline ;
SYNTAX: FUNCTION-ALIAS:
scan-token create-function
(FUNCTION:) (make-function) define-declared ;
(FUNCTION:) (make-function) define-inline ;
SYNTAX: CALLBACK:
(CALLBACK:) define-inline ;