add small interface to Petsc options

Author: JaredCrean2

src/PETSc.jl

@@ -225,6 +225,9 @@ include("petsc_ksp.jl")
 # -------------------------------------
 include("petsc_pc.jl")
 
+#--------------------------------------
+include("petsc_options.jl")
+
 end  # end module
 
 

src/petsc_options.jl

@@ -0,0 +1,26 @@
+# Interacting with the Petsc Options Database
+export PetscOptionsSetValue, PetscOptionsView, PetscSetOptions
+
+
+typealias PetscViewer Ptr{Void}
+
+function PetscOptionsSetValue(arg1::AbstractString,arg2::AbstractString)
+    ccall((:PetscOptionsSetValue,petsc),PetscErrorCode,(Cstring, Cstring),arg1,arg2)
+end
+
+function PetscOptionsView(arg1::PetscViewer=C_NULL)
+    ccall((:PetscOptionsView,petsc),PetscErrorCode,(PetscViewer,),arg1)
+end
+
+"""
+  Convenience wrapper for using a dictionary to set options
+"""
+function PetscSetOptions(opts::Dict)
+
+  for (key, value) in opts
+    PetscOptionsSetValue(key, value)
+  end
+
+end
+
+