1 USING: accessors alien.prettyprint combinators
2 combinators.short-circuit cuda.libraries cuda.syntax definitions
3 effects kernel prettyprint.backend prettyprint.sections see
4 see.private sequences words ;
7 PREDICATE: cuda-function-word < word
8 def>> { [ length 14 = ] [ last \ cuda-invoke eq? ] } 1&& ;
10 : pprint-cuda-library ( library -- )
11 [ \ CUDA-LIBRARY: [ text ] pprint-prefix ] when* ;
13 : pprint-cuda-function ( word quot -- )
16 [ def>> third ] [ stack-effect in>> ] bi
21 M: cuda-function-word definer drop \ CUDA-FUNCTION: \ ; ;
22 M: cuda-function-word definition drop f ;
23 M: cuda-function-word synopsis*
27 [ [ pprint-word ] pprint-cuda-function ]