|
|
@ -16,7 +16,6 @@ type keyword =
|
|
|
|
| Suggestion
|
|
|
|
| Suggestion
|
|
|
|
| Severity
|
|
|
|
| Severity
|
|
|
|
| Mode
|
|
|
|
| Mode
|
|
|
|
| Path
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
type formula_id = Formula_id of string[@@deriving compare]
|
|
|
|
type formula_id = Formula_id of string[@@deriving compare]
|
|
|
|
|
|
|
|
|
|
|
@ -49,7 +48,6 @@ let keyword_to_string k =
|
|
|
|
| Suggestion -> "suggestion"
|
|
|
|
| Suggestion -> "suggestion"
|
|
|
|
| Severity -> "severity"
|
|
|
|
| Severity -> "severity"
|
|
|
|
| Mode -> "mode"
|
|
|
|
| Mode -> "mode"
|
|
|
|
| Path -> "path"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
let is_report_when_keyword k =
|
|
|
|
let is_report_when_keyword k =
|
|
|
|
match k with
|
|
|
|
match k with
|
|
|
@ -76,11 +74,6 @@ let is_mode_keyword k =
|
|
|
|
| Mode -> true
|
|
|
|
| Mode -> true
|
|
|
|
| _ -> false
|
|
|
|
| _ -> false
|
|
|
|
|
|
|
|
|
|
|
|
let is_path_keyword k =
|
|
|
|
|
|
|
|
match k with
|
|
|
|
|
|
|
|
| Path -> true
|
|
|
|
|
|
|
|
| _ -> false
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(* true if and only if a substring of container matches the regular
|
|
|
|
(* true if and only if a substring of container matches the regular
|
|
|
|
expression defined by contained
|
|
|
|
expression defined by contained
|
|
|
|
*)
|
|
|
|
*)
|
|
|
|