extra/cuda/syntax/syntax.factor

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