Commit 66b73846 authored by erwan's avatar erwan
Browse files

Fix: actions with parenthesis broke the rdbg plugin

parent 9689b826
open Sasacore
(* open SasArg *) (* open SasArg *)
let (get_action_value : (string * Data.v) list -> string -> string -> bool) = let (get_action_value : (string * Data.v) list -> string -> string -> bool) =
fun sl pid a -> fun sl pid a ->
let vn = Printf.sprintf "%s_%s" pid a in let vn = Printf.sprintf "%s_%s" pid (StringOf.action a) in
match List.assoc_opt vn sl with match List.assoc_opt vn sl with
| Some (Data.B b) -> b | Some (Data.B b) -> b
| None | None
...@@ -32,7 +32,7 @@ let (get_sl_out: bool -> 'v Process.t list -> bool list list -> RdbgPlugin.sl) = ...@@ -32,7 +32,7 @@ let (get_sl_out: bool -> 'v Process.t list -> bool list list -> RdbgPlugin.sl) =
List.flatten ( List.flatten (
List.map2 (fun p enab_l -> List.map2 (fun p enab_l ->
List.map2 (fun a enab -> List.map2 (fun a enab ->
Printf.sprintf "%s%s_%s" str p.pid a, Data.B enab) Printf.sprintf "%s%s_%s" str p.pid (StringOf.action a), Data.B enab)
p.actions enab_l) p.actions enab_l)
pl ll pl ll
) )
......
Supports Markdown
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