compile-cu ( path -- path' )

Vocabulary

cuda.nvcc

Inputs

path

an object

Outputs

path'

an object

Definition

USING: io.backend io.directories io.launcher io.pathnames math ;

IN: cuda.nvcc

:: compile-cu ( path -- path' )
    path normalize-path :> path2 path2 parent-directory [
        path2 nvcc-command run-process wait-for-process
        [ path2 nvcc-failed ] unless-zero path2 cu>ptx
    ] with-directory ;