LP is working

Author: lindahua

src/Gurobi.jl

@@ -0,0 +1,17 @@
+module Gurobi
+
+    export gurobi_model, update_model!
+    export add_var!, add_vars!, add_cvar!, add_cvars!
+    export add_const!, add_constrs!
+    export optimize
+    
+    export get_status, OptimInfo, get_optim_info, get_objval
+    export get_solution
+    
+    import Base.convert, Base.show, Base.copy
+
+    include("find_gurobi.jl")
+    include("grb_env.jl")
+    include("grb_model.jl")
+    include("grb_solve.jl")
+end

src/find_gurobi.jl

@@ -0,0 +1,54 @@
+# Locating Gurobi library
+#
+# Current approach simply looks at an environment variable GUROBI_LIB
+#
+
+function _find_library_path()
+	if !has(ENV, "GUROBI_LIB")
+		error("Please set the environment variable GUROBI_LIB to specify the dynamic library path.")
+	end
+	p = ENV["GUROBI_LIB"]
+    if !isfile(p)
+        error("Cannot find library file $p.")
+    end
+    p
+end
+	
+const libgurobi_path = _find_library_path()
+const lib_gurobi = dlopen(libgurobi_path, RTLD_GLOBAL)
+
+# function pointers
+
+macro grb_def(fun)
+    local fptr = symbol(string(fun, "_ptr"))
+    @eval begin
+        $(fptr) = C_NULL
+        function $(fun)()
+            global $(fptr)
+            if $(fptr) == C_NULL
+                $(fptr) = dlsym(lib_gurobi, $(Meta.quot(fun)))
+            end
+            $(fptr)::Ptr{Void}
+        end
+    end
+end
+
+@grb_def GRBloadenv
+@grb_def GRBfreeenv
+@grb_def GRBgeterrormsg
+
+@grb_def GRBnewmodel
+@grb_def GRBcopymodel
+@grb_def GRBfreemodel
+@grb_def GRBupdatemodel
+
+@grb_def GRBaddvars
+
+@grb_def GRBgetintattr
+@grb_def GRBgetdblattr
+@grb_def GRBgetstrattr
+@grb_def GRBgetintattrarray
+@grb_def GRBgetdblattrarray
+@grb_def GRBgetstrattrarray
+
+@grb_def GRBoptimize

src/grb_env.jl

@@ -0,0 +1,48 @@
+# Gurobi environment and other supporting facilities
+
+
+type Env
+    ptr_env::Ptr{Void}
+    
+    function Env()
+        a = Array(Ptr{Void}, 1)
+        ret = ccall(GRBloadenv(), Cint, (Ptr{Ptr{Void}}, Ptr{Uint8}), 
+            a, C_NULL)
+        if ret != 0
+            error("Failed to create environment (error code = $ret).")
+        end
+        env = new(a[1])
+        finalizer(env, free_env)
+        env
+    end
+end
+
+convert(ty::Type{Ptr{Void}}, env::Env) = env.ptr_env::Ptr{Void}
+
+function is_valid(env::Env)
+    env.ptr_env != C_NULL
+end
+
+function free_env(env::Env)
+    if env.ptr_env != C_NULL
+        ccall(GRBfreeenv(), Void, (Ptr{Void},), env.ptr_env)
+        env.ptr_env = C_NULL
+    end
+end
+
+function get_error_msg(env::Env)
+    @assert env.ptr_env != C_NULL
+    sz = ccall(GRBgeterrormsg(), Ptr{Uint8}, (Ptr{Void},), env.ptr_env)
+    bytestring(sz)
+end
+
+
+type GurobiError
+    code::Int
+    msg::ASCIIString 
+    
+    function GurobiError(env::Env, code::Integer)
+        new(convert(Int, code), get_error_msg(env))
+    end
+end
+