factor/extra/cuda/cuda.factor

! Copyright (C) 2010 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.data alien.parser alien.strings
alien.syntax arrays assocs byte-arrays classes.struct
combinators continuations cuda.ffi
destructors fry init io io.backend io.encodings.string
io.encodings.utf8 kernel lexer locals macros math math.parser
namespaces opengl.gl.extensions parser prettyprint quotations
sequences words ;
QUALIFIED-WITH: alien.c-types c
IN: cuda

ERROR: cuda-error-state code ;

: cuda-error ( code -- )
    dup CUDA_SUCCESS = [ drop ] [ cuda-error-state ] if ;

: cuda-version ( -- n )
    { c:int } [ cuDriverGetVersion cuda-error ] with-out-parameters ;

: init-cuda ( -- )
    0 cuInit cuda-error ; inline
Playing around with a higher-level CUDA api. Also, changed some char* to c-string in cuda.ffi 2010-04-13 05:30:31 -04:00			`! Copyright (C) 2010 Doug Coleman.`
			`! See http://factorcode.org/license.txt for BSD license.`
CUDA-FUNCTION: works, splitting up CUDA into more vocabs 2010-04-18 19:33:18 -04:00			`USING: accessors alien alien.data alien.parser alien.strings`
			`alien.syntax arrays assocs byte-arrays classes.struct`
improve cuda library organization 2010-05-20 17:32:35 -04:00			`combinators continuations cuda.ffi`
Run hello-world on each CUDA device. fix a bug with returning the hello world string. add with-each-cuda-device combinator to run a program on each device. add an init-hook for cuda-init 2010-04-23 15:27:19 -04:00			`destructors fry init io io.backend io.encodings.string`
Split up cuda vocab some more, make CUDA-LIBRARY: work 2010-04-19 01:46:03 -04:00			`io.encodings.utf8 kernel lexer locals macros math math.parser`
cuda.utils: fix load error 2010-05-10 20:50:28 -04:00			`namespaces opengl.gl.extensions parser prettyprint quotations`
improve cuda library organization 2010-05-20 17:32:35 -04:00			`sequences words ;`
cuda.devices: "distribute-jobs" utility word that determines grid and block size for a job based on per-thread shared memory requirements and max block size 2010-05-07 21:02:42 -04:00			`QUALIFIED-WITH: alien.c-types c`
Playing around with a higher-level CUDA api. Also, changed some char* to c-string in cuda.ffi 2010-04-13 05:30:31 -04:00			`IN: cuda`

cuda: use ERROR:. 2013-03-24 17:24:21 -04:00			`ERROR: cuda-error-state code ;`
Working on a CUDA api. Add a hello world program. 2010-04-14 22:09:16 -04:00
improve cuda library organization 2010-05-20 17:32:35 -04:00			`: cuda-error ( code -- )`
change ERROR: words from throw-foo back to foo. 2015-08-13 19:13:05 -04:00			`dup CUDA_SUCCESS = [ drop ] [ cuda-error-state ] if ;`
cuda: add "cuda.gl" vocab with words for cuda/opengl/gpu interop 2010-05-14 18:59:31 -04:00
improve cuda library organization 2010-05-20 17:32:35 -04:00			`: cuda-version ( -- n )`
Move <ref>, deref and little-endian? from alien.c-types to alien.data, remove <c-object> 2010-12-25 19:54:45 -05:00			`{ c:int } [ cuDriverGetVersion cuda-error ] with-out-parameters ;`
CUDA-FUNCTION: works, splitting up CUDA into more vocabs 2010-04-18 19:33:18 -04:00
improve cuda library organization 2010-05-20 17:32:35 -04:00			`: init-cuda ( -- )`
			`0 cuInit cuda-error ; inline`