From 1489ab3e05227ca60bc4d785b5afc25446fd707b Mon Sep 17 00:00:00 2001
From: Isaiah Norton <isaiah.norton@gmail.com>
Date: Sat, 24 Aug 2013 19:59:45 -0400
Subject: [PATCH] Add PETSc driver script example

---
 examples/wrap_PETSc.jl | 51 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 examples/wrap_PETSc.jl

diff --git a/examples/wrap_PETSc.jl b/examples/wrap_PETSc.jl
new file mode 100644
index 00000000..e3c6d114
--- /dev/null
+++ b/examples/wrap_PETSc.jl
@@ -0,0 +1,51 @@
+#
+# Example script to wrap PETSc
+#
+
+using Clang.cindex
+using Clang.wrap_c
+
+PETSC_INCLUDE = abspath("/usr/include/petsc")
+MPI_INCLUDE = "/usr/include/openmpi"
+JULIA_ROOT=abspath(JULIA_HOME, "../../")
+
+LLVM_VER = "3.3"
+LLVM_BUILD_TYPE = "Release+Asserts"
+
+LLVM_PATH = joinpath(JULIA_ROOT, "deps/llvm-$LLVM_VER")
+clanginc_path = joinpath(LLVM_PATH, "build/$LLVM_BUILD_TYPE/lib/clang/3.3/include")
+
+petsc_hdrs = [joinpath(PETSC_INCLUDE, "petsc.h")]
+                
+clang_includes = map(x::ASCIIString->joinpath(LLVM_PATH, x), [
+    "build/$LLVM_BUILD_TYPE/lib/clang/3.3/include",
+    "build/include/",
+    "include"
+    ])
+push!(clang_includes, PETSC_INCLUDE)
+push!(clang_includes, MPI_INCLUDE)
+clang_extraargs = ["-v"]
+# clang_extraargs = ["-D", "__STDC_LIMIT_MACROS", "-D", "__STDC_CONSTANT_MACROS"]
+
+# Callback to test if a header should actually be wrapped (for exclusion)
+function should_wrap(hdr::ASCIIString, name::ASCIIString)
+    return beginswith(dirname(hdr), PETSC_INCLUDE)
+end
+
+function lib_file(hdr::ASCIIString)
+    return "petsc"
+end
+
+function output_file(hdr::ASCIIString)
+    return "PETSc.jl"
+end
+
+const wc = wrap_c.init("libPETSc_h.jl", "libPETSc_common.jl", clang_includes,
+                       clang_extraargs,
+                       should_wrap,
+                       lib_file,
+                       output_file)
+
+function wrap_libPETSc(wc::WrapContext, wrap_hdrs)
+    wrap_c.wrap_c_headers(wc, wrap_hdrs)
+end