/usr/lib/ocaml/atdgen/ag_indent.ml is in libatdgen-ocaml-dev 1.3.1-1.
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 | (*
Atd_indent extended with annnotations allowing some postprocessing.
*)
type t =
[
| `Line of string (* single line (not indented) *)
| `Block of t list (* indented sequence *)
| `Inline of t list (* in-line sequence (not indented) *)
| `Annot of (string * t) (* arbitrary annotation *)
]
let rec strip : t -> Atd_indent.t = function
`Line _ as x -> x
| `Block l -> `Block (List.map strip l)
| `Inline l -> `Inline (List.map strip l)
| `Annot (_, x) -> strip x
|