This file is indexed.

/usr/lib/ocaml/json-wheel/json_io.mli is in libjson-wheel-ocaml-dev 1.0.6-2build9.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  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
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
(** Input and output functions for the JSON format 
  as defined by {{:http://www.json.org/}http://www.json.org/} *)


(** [json_of_string s] reads the given JSON string.

  If [allow_comments] is [true], then C++ style comments are allowed, i.e.
  [/* blabla possibly on several lines */] or 
  [// blabla until the end of the line]. Comments are not part of the JSON
  specification and are disabled by default.

  If [allow_nan] is [true], then OCaml [nan], [infinity] and [neg_infinity] 
  float values are represented using their Javascript counterparts
  [NaN], [Infinity] and [-Infinity].

  If [big_int_mode] is [true], then JSON ints that cannot be represented
  using OCaml's int type are represented by strings. 
  This would happen only for ints that are out of the range defined
  by [min_int] and [max_int], i.e. \[-1G, +1G\[ on a 32-bit platform.
  The default is [false] and a [Json_type.Json_error] exception
  is raised if an int is too big.

  If [recursive] is true, then all JSON values are accepted rather
  than just arrays and objects as specified by the standard.
  The default is [false].
*)
val json_of_string : 
  ?allow_comments:bool ->
  ?allow_nan:bool ->
  ?big_int_mode:bool ->
  ?recursive:bool -> 
  string -> Json_type.t

(** Same as [Json_io.json_of_string] but the argument is a file
  to read from. *)
val load_json : 
  ?allow_comments:bool ->
  ?allow_nan:bool ->
  ?big_int_mode:bool ->
  ?recursive:bool -> 
  string -> Json_type.t

(** Conversion of JSON data to compact text. *)
module Compact :
sig
  (** Generic printing function without superfluous space. 
    See the standard [Format] module
    for how to create and use formatters. 

    In general, {!Json_io.string_of_json} and 
    {!Json_io.save_json} are more convenient.
  *)
  val print : 
    ?allow_nan: bool ->
    ?recursive:bool ->
    Format.formatter -> Json_type.t -> unit
end

(** Conversion of JSON data to compact text, optimized for speed. *)
module Fast :
sig
  (** This function is faster than the one provided by the
    {!Json_io.Compact} submodule but it is less generic and is subject to
    the 16MB size limit of strings on 32-bit architectures. *)
  val print : 
    ?allow_nan: bool ->
    ?recursive:bool ->
    Buffer.t -> Json_type.t -> unit
end


(** Conversion of JSON data to indented text. *)
module Pretty :
sig
  (** Generic pretty-printing function. 
    See the standard [Format] module
    for how to create and use formatters.
    
    In general, {!Json_io.string_of_json} and 
    {!Json_io.save_json} are more convenient.
  *)
  val print : 
    ?allow_nan: bool ->
    ?recursive:bool ->
    Format.formatter -> Json_type.t -> unit
end

(** [string_of_json] converts JSON data to a string.

  By default, the output is indented. If the [compact] flag is set to true,
  the output will not contain superfluous whitespace and will
  be produced faster.

  If [allow_nan] is [true], then OCaml [nan], [infinity] and [neg_infinity] 
  float values are represented using their Javascript counterparts
  [NaN], [Infinity] and [-Infinity].
*)
val string_of_json :
  ?allow_nan: bool ->
  ?compact:bool ->
  ?recursive:bool ->
  Json_type.t -> string

(** [save_json] works like {!Json_io.string_of_json} but 
  saves the results directly into the file specified by the
  argument of type string. *)
val save_json : 
  ?allow_nan:bool -> 
  ?compact:bool -> 
  ?recursive:bool ->
  string -> Json_type.t -> unit