extra/cuda/syntax/syntax.factor

   1 ! Copyright (C) 2010 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien.parser cuda cuda.libraries io.backend
   4 fry kernel lexer namespaces parser ;
   5 IN: cuda.syntax
   6
   7 SYNTAX: CUDA-LIBRARY:
   8     scan-token scan-word scan-token
   9     '[ _ _ add-cuda-library ]
  10     [ current-cuda-library set-global ] bi ;
  11
  12 SYNTAX: CUDA-FUNCTION:
  13     scan-token [ create-in current-cuda-library get ] keep
  14     ";" scan-c-args drop define-cuda-function ;
  15
  16 SYNTAX: CUDA-GLOBAL:
  17     scan-token [ create-in current-cuda-library get ] keep
  18     define-cuda-global ;