equal
deleted
inserted
replaced
1143 val resultname = tmp_file (name^".txt") |
1143 val resultname = tmp_file (name^".txt") |
1144 val _ = save_cplexFile lpname prog |
1144 val _ = save_cplexFile lpname prog |
1145 val cplex_path = getenv "GLPK_PATH" |
1145 val cplex_path = getenv "GLPK_PATH" |
1146 val cplex = if cplex_path = "" then "glpsol" else cplex_path |
1146 val cplex = if cplex_path = "" then "glpsol" else cplex_path |
1147 val command = (wrap cplex)^" --lpt "^(wrap lpname)^" --output "^(wrap resultname) |
1147 val command = (wrap cplex)^" --lpt "^(wrap lpname)^" --output "^(wrap resultname) |
1148 val answer = #1 (system_out command) |
1148 val answer = #1 (bash_output command) |
1149 in |
1149 in |
1150 let |
1150 let |
1151 val result = load_glpkResult resultname |
1151 val result = load_glpkResult resultname |
1152 val _ = OS.FileSys.remove lpname |
1152 val _ = OS.FileSys.remove lpname |
1153 val _ = OS.FileSys.remove resultname |
1153 val _ = OS.FileSys.remove resultname |
1176 val _ = save_cplexFile lpname prog |
1176 val _ = save_cplexFile lpname prog |
1177 val cplex_path = getenv "CPLEX_PATH" |
1177 val cplex_path = getenv "CPLEX_PATH" |
1178 val cplex = if cplex_path = "" then "cplex" else cplex_path |
1178 val cplex = if cplex_path = "" then "cplex" else cplex_path |
1179 val _ = write_script scriptname lpname resultname |
1179 val _ = write_script scriptname lpname resultname |
1180 val command = (wrap cplex)^" < "^(wrap scriptname)^" > /dev/null" |
1180 val command = (wrap cplex)^" < "^(wrap scriptname)^" > /dev/null" |
1181 val answer = "return code "^(Int.toString (system command)) |
1181 val answer = "return code "^(Int.toString (bash command)) |
1182 in |
1182 in |
1183 let |
1183 let |
1184 val result = load_cplexResult resultname |
1184 val result = load_cplexResult resultname |
1185 val _ = OS.FileSys.remove lpname |
1185 val _ = OS.FileSys.remove lpname |
1186 val _ = OS.FileSys.remove resultname |
1186 val _ = OS.FileSys.remove resultname |