Merge bb171d2 into 53f9188

lib/match/match.mli

@@ -65,3 +65,9 @@ type t =
 [@@deriving yojson]
 
 val create : unit -> t
+
+val pp_json_pretty : Format.formatter -> string option * t list -> unit
+
+val pp_json_lines : Format.formatter -> string option * t list -> unit
+
+val pp_match_result : Format.formatter -> string option * t list -> unit

lib/match/match_context.ml

@@ -1,3 +1,5 @@
+open Core
+
 type t =
   { range : Range.t
   ; environment : Environment.t
@@ -10,3 +12,33 @@ let create () =
   ; environment = Environment.create ()
   ; matched = ""
   }
+
+let to_json source_path matches =
+  let json_matches matches = `List (List.map ~f:(fun x -> to_yojson x) matches) in
+  match source_path with
+  | None -> `Assoc [("uri", `Null); ("matches", json_matches matches)]
+  | Some path -> `Assoc [("uri", `String path); ("matches", json_matches matches)]
+
+let pp_json_pretty ppf (source_path, matches) =
+  let f = Yojson.Safe.pretty_to_string in
+  let json_string = f @@ to_json source_path matches in
+  Format.fprintf ppf "%s" json_string
+
+let pp_json_lines ppf (source_path, matches) =
+  let f = Yojson.Safe.to_string in
+  let json_string = f @@ to_json source_path matches in
+  Format.fprintf ppf "%s" json_string
+
+let pp_match_result ppf (source_path, matches) =
+  let pp_source_path ppf source_path =
+    match source_path with
+    | Some path -> Format.fprintf ppf " in %s " path
+    | None -> Format.fprintf ppf "%s" " "
+  in
+  (* FIXME *)
+  let spec_number = 0 in
+  Format.fprintf ppf
+    "%d matches%afor spec %d (use -json-pretty for json format)\n"
+    (List.length matches)
+    pp_source_path source_path
+    (spec_number + 1)