! Copyright (C) 2010 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien.parser cuda cuda.utils io.backend kernel lexer
namespaces parser ;
IN: cuda.syntax

SYNTAX: CUDA-LIBRARY:
    scan scan normalize-path
    [ add-cuda-library ]
    [ drop current-cuda-library set-global ] 2bi ;

SYNTAX: CUDA-FUNCTION:
    scan [ create-in current-cuda-library get ] [ ] bi
    ";" scan-c-args drop define-cuda-word ;

: 2<<< ( dim-block dim-grid -- function-launcher )
    0 f function-launcher boa ;

: 3<<< ( dim-block dim-grid shared-size -- function-launcher )
    f function-launcher boa ;

: 4<<< ( dim-block dim-grid shared-size stream -- function-launcher )
    function-launcher boa ;