Commit f268b73c authored by erwan's avatar erwan

Fix: when lurette uses lv6 -2c-exec, it does not uses the embedded Lv6Run plugin anymore

parent c3ff3e06
Pipeline #24141 failed with stages
in 4 minutes and 14 seconds
(* Time-stamp: <modified the 11/04/2019 (at 14:56) by Erwan Jahier> *)
(* Time-stamp: <modified the 22/05/2019 (at 09:50) by Erwan Jahier> *)
(* Mimick the behavior of 'rdbg -lurette', but without the dependency
on ocaml *)
open Event
......@@ -50,16 +50,24 @@ let other_args:string =
(**********************************************************************************)
let (gen_reactive_program : string -> RdbgArg.reactive_program) =
fun str ->
let args = Str.split (Str.regexp "[ \t]+") str in
let tool = Filename.basename (List.hd args) in
let plugin =
match tool with
| "lutin" -> LutinRun.make (Array.of_list args)
| "lv6" | "lus2lic" -> Lv6Run.make (Array.of_list (args@["--expand-io-type"]))
| "ocaml" -> OcamlRun.make (List.nth args 1)
| _ -> StdioRun.make str
in
Ocaml(plugin)
let args = Str.split (Str.regexp "[ \t]+") str in
let tool = Filename.basename (List.hd args) in
let plugin =
match tool with
| "lutin" -> LutinRun.make (Array.of_list args)
| "lv6" | "lus2lic" ->
if
List.mem "-exec" args ||
List.mem "-2c-exec" args ||
List.mem "--to-c-execute" args
then
StdioRun.make str
else
Lv6Run.make (Array.of_list (args@["--expand-io-type"]))
| "ocaml" -> OcamlRun.make (List.nth args 1)
| _ -> StdioRun.make str
in
Ocaml(plugin)
open RdbgArg
let _ =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment