19 lines
574 B
Factor
19 lines
574 B
Factor
! Copyright (C) 2010 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien.parser cuda cuda.libraries io.backend
|
|
fry kernel lexer namespaces parser ;
|
|
IN: cuda.syntax
|
|
|
|
SYNTAX: CUDA-LIBRARY:
|
|
scan-token scan-word scan-object
|
|
'[ _ _ add-cuda-library ]
|
|
[ current-cuda-library set-global ] bi ;
|
|
|
|
SYNTAX: CUDA-FUNCTION:
|
|
scan-token [ create-word-in current-cuda-library get ] keep
|
|
scan-c-args drop define-cuda-function ;
|
|
|
|
SYNTAX: CUDA-GLOBAL:
|
|
scan-token [ create-word-in current-cuda-library get ] keep
|
|
define-cuda-global ;
|