equal
deleted
inserted
replaced
115 end |
115 end |
116 |
116 |
117 datatype mash_engine = MaSh_Py | MaSh_SML_kNN | MaSh_SML_NB |
117 datatype mash_engine = MaSh_Py | MaSh_SML_kNN | MaSh_SML_NB |
118 |
118 |
119 fun mash_engine () = |
119 fun mash_engine () = |
120 let val flag1 = Options.default_string @{system_option maSh} in |
120 let val flag1 = Options.default_string @{system_option MaSh} in |
121 (case if flag1 <> "none" (* default *) then flag1 else getenv "MASH" of |
121 (case if flag1 <> "none" (* default *) then flag1 else getenv "MASH" of |
122 "yes" => SOME MaSh_Py |
122 "yes" => SOME MaSh_Py |
123 | "py" => SOME MaSh_Py |
123 | "py" => SOME MaSh_Py |
124 | "sml" => SOME MaSh_SML_kNN |
124 | "sml" => SOME MaSh_SML_kNN |
125 | "sml_knn" => SOME MaSh_SML_kNN |
125 | "sml_knn" => SOME MaSh_SML_kNN |