Generate unsafe wrappers that return the status instead of throwing.

src/error.jl

@@ -136,6 +136,29 @@ end
  throw(CuError(res))
 end
 
+macro checked(ex)
+ # parse the function definition
+ @assert Meta.isexpr(ex, :function)
+ sig = ex.args[1]
+ @assert Meta.isexpr(sig, :call)
+ body = ex.args[2]
+ @assert Meta.isexpr(body, :block)
+ @assert length(body.args) == 2 # line number node and a single call
+
+ # generate a "safe" version that performs a check
+ safe_body = Expr(:block, body.args[1], :(@check $(body.args[2])))
+ safe_def = Expr(:function, sig, safe_body)
+
+ # generate a "unsafe" version that returns the error code instead
+ unsafe_sig = Expr(:call, Symbol("unsafe_$(sig.args[1])"), sig.args[2:end]...)
+ unsafe_def = Expr(:function, unsafe_sig, body)
+
+ return quote
+ @eval $safe_def
+ @eval $unsafe_def
+ end
+end
+
 macro check(ex)
  fun = Symbol(decode_ccall_function(ex))
  init = if !in(fun, preinit_apicalls)