Rewrite function pointer expressions

Author: Gnimuc

Project.toml

@@ -3,6 +3,7 @@ uuid = "66fc600b-dfda-50eb-8b99-91cfa97b1301"
 version = "1.1.4"
 
 [deps]
+CEnum = "fa961155-64e5-5f13-b03f-caf6b980ea82"
 Libdl = "8f399da3-3557-5675-b5ff-fb832c97cbdb"
 
 [compat]

gen/generator.jl

@@ -15,4 +15,26 @@ options["general"]["output_file_path"] = joinpath(@__DIR__, "..", "src", "gl.jl"
 
 ctx = create_context(GL_HEADERS, args, options)
 
-build!(ctx)
+build!(ctx, BUILDSTAGE_NO_PRINTING)
+
+# custom rewriter
+function rewrite!(dag::ExprDAG)
+    for node in get_nodes(dag)
+        node.type isa Generators.AbstractFunctionNodeType || continue
+        for expr in node.exprs
+            Meta.isexpr(expr, :function) || continue
+            for block_expr in expr.args
+                Meta.isexpr(block_expr, :block) || continue
+                for ccall_expr in block_expr.args
+                    Meta.isexpr(ccall_expr, :call) || continue
+                    ccall_expr.args[2] = :(getprocaddress_e($(string(node.id))))
+                end
+            end
+        end
+    end
+end
+
+rewrite!(ctx.dag)
+
+# print
+build!(ctx, BUILDSTAGE_PRINTING_ONLY)

gen/generator.toml

@@ -5,6 +5,8 @@ output_ignorelist = [
     "APIENTRYP",
 ]
 
+export_symbol_prefixes = ["GL", "gl"]
+
 use_deterministic_symbol = true
 
 [codegen.macro]

src/ModernGL.jl

@@ -1,6 +1,7 @@
 module ModernGL
 
 using Libdl
+using CEnum
 
 function glXGetProcAddress(glFuncName)
     ccall((:glXGetProcAddress, "libGL.so.1"), Ptr{Cvoid}, (Ptr{UInt8},), glFuncName)
@@ -93,5 +94,6 @@ end
 include("glTypes.jl")
 include("functionloading.jl")
 include("glConstants.jl")
+include("gl.jl")
 
 end # module