2010-04-18 19:33:18 -04:00
|
|
|
! Copyright (C) 2010 Doug Coleman.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2010-05-20 17:32:35 -04:00
|
|
|
USING: alien.parser cuda cuda.libraries io.backend
|
2010-05-20 20:56:20 -04:00
|
|
|
fry kernel lexer namespaces parser ;
|
2010-04-18 19:33:18 -04:00
|
|
|
IN: cuda.syntax
|
|
|
|
|
2010-04-19 01:46:03 -04:00
|
|
|
SYNTAX: CUDA-LIBRARY:
|
2010-05-20 20:56:20 -04:00
|
|
|
scan scan-word scan
|
|
|
|
'[ _ _ add-cuda-library ]
|
|
|
|
[ current-cuda-library set-global ] bi ;
|
2010-04-18 19:33:18 -04:00
|
|
|
|
|
|
|
SYNTAX: CUDA-FUNCTION:
|
2010-05-20 18:45:35 -04:00
|
|
|
scan [ create-in current-cuda-library get ] keep
|
|
|
|
";" scan-c-args drop define-cuda-function ;
|
2010-04-18 19:33:18 -04:00
|
|
|
|
2010-05-20 18:45:35 -04:00
|
|
|
SYNTAX: CUDA-GLOBAL:
|
|
|
|
scan [ create-in current-cuda-library get ] keep
|
|
|
|
define-cuda-global ;
|