Add at-cfunction (#553)

Author: ararslan

README.md

@@ -411,6 +411,8 @@ Currently, the `@compat` macro supports the following syntaxes:
 
 * `isalpha` is now `isletter` ([#27077]).
 
+* `cfunction` is now `@cfunction` ([#26486]).
+
 ## New macros
 
 * `@__DIR__` has been added ([#18380])
@@ -633,6 +635,7 @@ includes this fix. Find the minimum version from there.
 [#26369]: https://github.com/JuliaLang/julia/issues/26369
 [#26436]: https://github.com/JuliaLang/julia/issues/26436
 [#26442]: https://github.com/JuliaLang/julia/issues/26442
+[#26486]: https://github.com/JuliaLang/julia/issues/26486
 [#26660]: https://github.com/JuliaLang/julia/issues/26660
 [#26670]: https://github.com/JuliaLang/julia/issues/26670
 [#27077]: https://github.com/JuliaLang/julia/issues/27077

src/Compat.jl

@@ -1871,6 +1871,14 @@ end
     const isletter = isalpha
 end
 
+# 0.7.0-DEV.4762
+@static if !isdefined(Base, Symbol("@cfunction"))
+    macro cfunction(f, rt, tup)
+        :(Base.cfunction($f, $rt, Tuple{$tup...}))
+    end
+    export @cfunction
+end
+
 include("deprecated.jl")
 
 end # module Compat

test/runtests.jl

@@ -1732,4 +1732,11 @@ end
 @test isletter('β')
 @test !isletter('3')
 
+# 0.7.0-DEV.4762
+let ptr = @cfunction(+, Int, (Int, Int))
+    @test ptr isa Ptr{Cvoid}
+    @test ptr != C_NULL
+    @test ccall(ptr, Int, (Int, Int), 2, 3) == 5
+end
+
 nothing