Commit ce64ac1a authored by erwan's avatar erwan

Reflect the changes in rdbg 1.109 done in the Event interface.

Basically, I have added the missing fields
parent dbb5c443
OASISFormat: 0.4
Name: Lutin
Version: 2.27
Version: 2.28
Authors: Erwan Jahier
Maintainers: erwan.jahier@imag.fr
License: PROP
......@@ -21,7 +21,7 @@ PostInstallCommand: cp utils/simec_trap $exec_prefix/bin; cp utils/read-rif.sh $
Executable lutin
Path: lutin/src
MainIs: main.ml
BuildDepends: str,unix,num,rdbg-plugin (>= 1.51),lutin-utils,ezdl,gbddml,polka,camlp4,camlidl
BuildDepends: str,unix,num,rdbg-plugin (>= 1.109),lutin-utils,ezdl,gbddml,polka,camlp4,camlidl
NativeOpt: -package num # XXX turn around a bug in oasis/ocamlbuild/ocamlfind?
Build: true
Install:true
......
(* Time-stamp: <modified the 10/02/2016 (at 14:47) by Erwan Jahier> *)
(* Time-stamp: <modified the 28/08/2017 (at 17:01) by Erwan Jahier> *)
open RdbgPlugin
type vars = (string * Data.t) list
......@@ -108,6 +108,7 @@ let (make_ec : string -> RdbgPlugin.t) =
Event.name=ec_file;
Event.inputs = [] ;
Event.outputs = [];
Event.locals = [];
Event.sinfo = None;
Event.data = ctx.Event.data;
Event.next = (fun () -> cont (step sl) ctx);
......@@ -229,6 +230,7 @@ let (make_socket_do : string -> int -> in_channel * RdbgPlugin.t) =
Event.name=sock_adr ^ ":" ^ (string_of_int port);
Event.inputs = [] ;
Event.outputs = [];
Event.locals = [];
Event.sinfo = None;
Event.next = (fun () -> cont (step sl) ctx);
Event.terminate = ctx.Event.terminate;
......@@ -334,6 +336,7 @@ let (make_ec_exe : string -> RdbgPlugin.t) =
Event.name = ec_file;
Event.inputs = [] ;
Event.outputs = [];
Event.locals = [];
Event.sinfo = None;
Event.next = (fun () -> cont (step sl) ctx);
Event.terminate = ctx.Event.terminate;
......
......@@ -457,6 +457,7 @@ let (start : unit -> Event.t) =
Event.lang = "";
Event.inputs=[];
Event.outputs=[];
Event.locals = [];
Event.sinfo=None;
Event.next =
(fun () ->
......@@ -498,6 +499,7 @@ let (start : unit -> Event.t) =
Event.depth = 1;
Event.inputs = [];
Event.outputs = [];
Event.locals = [];
Event.data = [];
Event.terminate = (fun () -> killem_all cov_init);
Event.lang = "";
......
......@@ -1550,12 +1550,15 @@ let rec (genpath_ldbg :
Event.expr = cstr;
Event.more = None;
Event.atoms = si_atoms;
Event.in_subst = [];
Event.out_subst = [];
});
Event.depth = ctx.Event.depth;
Event.step = ctx.Event.step;
Event.name = ctx.Event.name;
Event.inputs = ctx.Event.inputs;
Event.outputs = ctx.Event.outputs;
Event.locals = []; (* fixme *)
Event.data = ctx.Event.data;
Event.terminate = ctx.Event.terminate;
}
......@@ -1584,12 +1587,15 @@ let rec (genpath_ldbg :
Event.expr = cstr;
Event.more = Some lazy_ci;
Event.atoms = si_atoms;
Event.in_subst = [];
Event.out_subst = [];
});
Event.depth = ctx.Event.depth;
Event.step = ctx.Event.step;
Event.name = ctx.Event.name;
Event.inputs = ctx.Event.inputs;
Event.outputs = ctx.Event.outputs;
Event.locals = []; (* fixme *)
Event.data = ctx.Event.data;
Event.terminate = ctx.Event.terminate;
}
......@@ -1606,12 +1612,15 @@ let rec (genpath_ldbg :
Event.expr = cstr;
Event.more = None;
Event.atoms = si_atoms;
Event.in_subst = [];
Event.out_subst = [];
});
Event.depth = ctx.Event.depth;
Event.step = ctx.Event.step;
Event.name = ctx.Event.name;
Event.inputs = ctx.Event.inputs;
Event.outputs = ctx.Event.outputs;
Event.locals = []; (* fixme *)
Event.data = ctx.Event.data;
Event.terminate = ctx.Event.terminate;
Event.next = try_cont ctx;
......@@ -2091,6 +2100,7 @@ let rec (genpath_ldbg :
Event.name = rid;
Event.inputs = ctx.Event.inputs;
Event.outputs = ctx.Event.outputs;
Event.locals = []; (* fixme *)
Event.data = ctx.Event.data;
Event.sinfo = None;
Event.next =
......@@ -2354,12 +2364,15 @@ and (to_reactive_prg_ldbg :
Event.name = rid;
Event.inputs = ctx.Event.inputs;
Event.outputs = ctx.Event.outputs;
Event.locals = []; (* fixme *)
Event.data = edata;
Event.sinfo = Some (fun () -> {
Event.expr = cstr;
(*Event.str = guard_to_string zeguard; *)
Event.more = None;
Event.atoms = si_atoms;
Event.in_subst = [];
Event.out_subst = [];
});
Event.next =
(fun () ->
......@@ -2382,6 +2395,7 @@ and (to_reactive_prg_ldbg :
Event.name = rid;
Event.inputs = ctx.Event.inputs;
Event.outputs = ctx.Event.outputs;
Event.locals = []; (* fixme *)
Event.data = edata @ predata;
Event.next = (fun () -> genpath_ldbg it data cstate ctx cont2 fail_cont excn_cont);
Event.terminate = ctx.Event.terminate;
......@@ -2562,6 +2576,7 @@ let (step_ldbg: ctx -> string -> t -> control_state -> data_state ->
Event.name = node;
Event.inputs = ctx.Event.inputs;
Event.outputs = ctx.Event.outputs;
Event.locals = []; (* fixme *)
Event.data = edata;
Event.sinfo = Some (fun () -> {
......@@ -2569,6 +2584,8 @@ let (step_ldbg: ctx -> string -> t -> control_state -> data_state ->
(* Event.str = guard_to_string zeguard; *)
Event.more = None;
Event.atoms = si_atoms;
Event.in_subst = [];
Event.out_subst = [];
});
(* Event.Exit (guard_to_string zeguard, cstr, lazy_si) *)
......
let str="2.27"
let sha="25eb7e2"
let str="2.28"
let sha="dbb5c44"
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