src/HOL/Matrix/cplex/Cplex_tools.ML
changeset 35010 d6e492cea6e4
parent 32740 9dd0a2f83429
child 37116 e32cc5958282
equal deleted inserted replaced
35009:5408e5207131 35010:d6e492cea6e4
  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