Source file disabled.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
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
open! Core

module Profiler = struct
  let is_enabled = false

  let safe_to_delay () = ()
  let dump_stats () = ()

  let configure
      ?don't_require_core_profiler_env:_
      ?offline_profiler_data_file:_
      ?online_print_time_interval_secs:_
      ?online_print_by_default:_
      () = ()
end


module Timer = struct
  type t = unit
  type probe = t

  let create ~name:_ = ()
  let record _id = ()

  module Group = struct
    type t = unit

    let create ~name:_ = ()
    let add_probe _group ?sources:_ ~name:_ () = ()
    let reset _group = ()
  end
end

module Probe = struct
  type t = unit
  type probe = t

  let create ~name:_ ~units:_ = ()
  let record _id _value = ()

  module Group = struct
    type t = unit

    let create ~name:_ ~units:_ = ()
    let add_probe _group ?sources:_ ~name:_ () = ()
    let reset _group = ()
  end
end

module Delta_timer = struct
  type state = unit
  type t = unit

  let create ~name:_ = ()

  let stateless_start _t = ()
  let stateless_stop  _t _state = ()

  let start _t = ()
  let stop _t = ()
  let pause _t = ()
  let record _t = ()

  let wrap_sync  _t f x       = f x
  let wrap_sync2 _t f x y     = f x y
  let wrap_sync3 _t f x y z   = f x y z
  let wrap_sync4 _t f x y z w = f x y z w

  (* let wrap_async _t f x = f x *)
end

module Delta_probe = struct
  type state = unit
  type t = unit

  let create ~name:_ ~units:_ = ()
  let stateless_start _t _value = ()
  let stateless_stop  _t _state _value = ()

  let start _t _value = ()
  let stop  _t _value = ()
  let pause _t _value = ()
  let record _t = ()
end