package json-pointer

  1. Overview
  2. Docs
RFC 6901 JSON Pointer implementation for jsont

Install 

dune-project
 Dependency

tangled.org Readme Changelog ISC License Edit opam file Versions (1)

Authors

  1. A
    Anil Madhavapeddy

Maintainers

  1. A
    Anil Madhavapeddy <anil@recoil.org>

Sources

json-pointer-1.0.tbz
md5=154a8d5caa45d40535d97108bea3a683
sha512=88a34ef7ec9ddb3f88009a7ac854e2e92be5a376a14c1a760a7bddd8e867723b22fee0ae417a29e4a502110d4bd0f28ea669160220f57df48bfb47cfe1af9b6b

doc/src/json-pointer.top/json_pointer_top.ml.html

Source file json_pointer_top.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
(* Toplevel printers for Json_pointer.t, Jsont.json, and Jsont.Error.t

   Usage in toplevel:
     #require "json-pointer.top";;

   Printers are automatically installed when the library is loaded.
*)

let pointer_printer ppf (p : Json_pointer.t) =
  Format.fprintf ppf "%S" (Json_pointer.to_string p)

let json_printer = Jsont.pp_json
let error_printer = Jsont.Error.pp

(* Automatic printer installation *)

let printers =
  [
    "Json_pointer_top.pointer_printer";
    "Json_pointer_top.json_printer";
    "Json_pointer_top.error_printer";
  ]

(* Suppress stderr during printer installation to avoid noise in MDX tests *)
let null_formatter = Format.make_formatter (fun _ _ _ -> ()) (fun () -> ())

let eval_string_quiet str =
  try
    let lexbuf = Lexing.from_string str in
    let phrase = !Toploop.parse_toplevel_phrase lexbuf in
    Toploop.execute_phrase false null_formatter phrase
  with _ -> false

let rec do_install_printers = function
  | [] -> true
  | printer :: rest ->
      let cmd = Printf.sprintf "#install_printer %s;;" printer in
      eval_string_quiet cmd && do_install_printers rest

let install () =
  (* Silently ignore failures - this handles non-toplevel contexts like MDX *)
  ignore (do_install_printers printers)

(* Only auto-install when OCAML_TOPLEVEL_NAME is set, indicating a real toplevel *)
let () = if Sys.getenv_opt "OCAML_TOPLEVEL_NAME" <> None then install ()