Upgrade: the rdbg package renamed Event into RdbgEvent

bin/lurette-nocaml/dune

 (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)
+ )
 )

bin/lurette-nocaml/lurette.ml

-(* 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 ->

lib/lutin/lutExe.mli

@@ -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

lib/lutin/lutinRun.ml

-(* 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 -> 

lib/lutin/reactive.ml

@@ -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 ->

lib/lutin/reactive.mli

@@ -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 =