diff options
Diffstat (limited to 'lib/syntax/check.mli')
-rw-r--r-- | lib/syntax/check.mli | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/lib/syntax/check.mli b/lib/syntax/check.mli deleted file mode 100644 index 7db719d..0000000 --- a/lib/syntax/check.mli +++ /dev/null @@ -1,53 +0,0 @@ -(** This module is a meta-checker. It will take many checkers and aggregate - their result together before providing an unified result. - - The modules required to be declared before being used, using the [build] - method, and provided as an array : - - {[ - let _, e1 = build (module …) - let _, e2 = build (module …) - - module Check = Make (struct - let t = [| e1; e2 |] - end) - ]} -*) - -module Id : sig - type 'a t - (** The type created on-the-fly. *) -end - -type t -(** Type of check to apply *) - -val build : - (module S.Analyzer - with type Expression.t = _ - and type Expression.t' = _ - and type Instruction.t = _ - and type Instruction.t' = _ - and type Location.t = 'a - and type context = _) -> - 'a Id.t * t -(** Build a new check from a module following S.Analyzer signature. -ypeid - Return the result type which hold the final result value, and checker - itself. *) - -val get_module : t -> (module S.Analyzer) - -type result - -val get : 'a Id.t -> result -> 'a option -(** The method [get] can be used to get the internal value for one of the - checker used. - *) - -module Make (A : sig - val t : t array -end) : sig - include S.Analyzer with type Location.t = result array -end -[@@warning "-67"] |