package odoc

  1. Overview
  2. Docs

Source file compat.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
# 2 "src/document/compat.cppo.ml"
module Format = struct
  include Format

  type formatter_tag_functions = {
    mark_open_tag : tag -> string;
    mark_close_tag : tag -> string;
    print_open_tag : tag -> unit;
    print_close_tag : tag -> unit;
  }

  let pp_set_formatter_tag_functions formatter fns =
    let {mark_open_tag = mot; mark_close_tag = mct;
         print_open_tag = pot; print_close_tag = pct} = fns in
    let wrap f v = function String_tag s -> f s | _ -> v in
    let stag_fns = {
      mark_open_stag = wrap mot "";
      mark_close_stag = wrap mct "";
      print_open_stag = wrap pot ();
      print_close_stag = wrap pct ()
    } in
    Format.pp_set_formatter_stag_functions formatter stag_fns
end