aboutsummaryrefslogtreecommitdiff
path: root/lib/syntax/check.mli
diff options
context:
space:
mode:
Diffstat (limited to 'lib/syntax/check.mli')
-rw-r--r--lib/syntax/check.mli53
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"]