factor/extra/cuda/syntax/syntax.factor

! Copyright (C) 2010 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien.parser cuda.libraries 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 define-cuda-function ;

SYNTAX: \CUDA-GLOBAL:
    scan-token [ create-word-in current-cuda-library get ] keep
    define-cuda-global ;