Commit 8671d38c authored by erwan's avatar erwan

Upgrade: the rdbg package renamed Event into RdbgEvent

parent 7addffd8
Pipeline #39230 passed with stages
in 4 minutes and 43 seconds
(executable
(name lurette)
(modes (byte exe) (native exe))
(libraries lustre-v6 lutin)
; (libraries camlidl lustre-v6 lutin sasa)
......@@ -12,5 +13,8 @@
(install
(section bin)
(package lutin)
(files (lurette.exe as lurette))
(files
(lurette.exe as lurette)
(lurette.bc as lurette4dbg)
)
)
(* Time-stamp: <modified the 06/02/2020 (at 17:25) by Erwan Jahier> *)
(* Time-stamp: <modified the 16/03/2020 (at 11:43) by Erwan Jahier> *)
(* Mimick the behavior of 'rdbg -lurette', but without the dependency
on ocaml *)
......@@ -141,7 +141,7 @@ let _ =
RdbgRun.clean_terminate();
flush stderr;
exit 2
| Event.End(i) ->
| RdbgEvent.End(i) ->
RdbgRun.clean_terminate();
exit i
| pb ->
......
This diff is collapsed.
......@@ -87,10 +87,10 @@ val find_one_sol : t -> guard -> t * guard * (Var.env_out * Var.env_loc)
val make_pre : Var.env_in -> Var.env_out -> Var.env_loc -> Var.env
(*
May raise Deadlock (or Event.Error ("deadlock",event))
May raise Deadlock (or RdbgEvent.Error ("deadlock",event))
*)
type ctx = Event.t
type e = Event.t
type ctx = RdbgEvent.t
type e = RdbgEvent.t
val step: t -> control_state -> data_state -> t * control_state * data_state
val step_rdbg: ctx -> string -> t -> control_state -> data_state ->
(ctx -> t -> control_state -> data_state -> e) -> e
......
(* Time-stamp: <modified the 30/08/2019 (at 14:37) by Erwan Jahier> *)
(* Time-stamp: <modified the 16/03/2020 (at 11:38) by Erwan Jahier> *)
(**********************************************************************************)
let (var_to_var_pair: Exp.var -> string * Data.t) =
......@@ -19,7 +19,7 @@ let (to_vals : Data.subst list -> Value.OfIdent.t) =
Value.OfIdent.empty
open RdbgPlugin
type ctx = Event.t
type ctx = RdbgEvent.t
let compact str =
let str = Str.global_replace (Str.regexp "\n") ";" str in
......@@ -62,7 +62,7 @@ let make argv =
in
let (lut_step_dbg:
Data.subst list -> ctx ->
(Data.subst list -> ctx -> Event.t) -> Event.t) =
(Data.subst list -> ctx -> RdbgEvent.t) -> RdbgEvent.t) =
fun sl ctx cont ->
let cont_lut_step ctx =
fun new_tables new_cs new_ds ->
......
......@@ -5,8 +5,8 @@ type prg = DoStep of (Value.t list -> Value.t list * prg)
let step p = match p with DoStep p -> p
type ctx = Event.t
type e = Event.t
type ctx = RdbgEvent.t
type e = RdbgEvent.t
type 't prg_ldbg =
DoStep_ldbg of (ctx -> 't -> Value.t list ->
......
......@@ -4,8 +4,8 @@
type prg = DoStep of (Value.t list -> Value.t list * prg)
val step : prg -> Value.t list -> (Value.t list * prg)
type ctx = Event.t
type e = Event.t
type ctx = RdbgEvent.t
type e = RdbgEvent.t
type 't prg_ldbg =
......
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