mirror of
https://github.com/ocaml-tracing/ocaml-opentelemetry.git
synced 2026-03-08 03:47:59 -04:00
841d58ab67
follow more closely the official OTEL recommendations, and also try to reduce global state. - use a class type for `Exporter.t` (instead of 1st class module `backend`) - have tracer, logger, metrics_emitter as explicit objects - keep a `Main_exporter` to make migration easier, but discouraged - add stdout_exporter and debug_exporter to opentelemetry.client
29 lines
913 B
OCaml
29 lines
913 B
OCaml
(** Unix timestamp.
|
|
|
|
These timestamps measure time since the Unix epoch (jan 1, 1970) UTC in
|
|
nanoseconds. *)
|
|
|
|
type t = int64
|
|
|
|
open struct
|
|
let ns_in_a_day = Int64.(mul 1_000_000_000L (of_int (24 * 3600)))
|
|
end
|
|
|
|
(** Current unix timestamp in nanoseconds *)
|
|
let[@inline] now_unix_ns () : t =
|
|
let span = Ptime_clock.now () |> Ptime.to_span in
|
|
let d, ps = Ptime.Span.to_d_ps span in
|
|
let d = Int64.(mul (of_int d) ns_in_a_day) in
|
|
let ns = Int64.(div ps 1_000L) in
|
|
Int64.(add d ns)
|
|
|
|
let pp_debug out (self : t) =
|
|
let d = Int64.(to_int (div self ns_in_a_day)) in
|
|
let ns = Int64.(rem self ns_in_a_day) in
|
|
let ps = Int64.(mul ns 1_000L) in
|
|
match Ptime.Span.of_d_ps (d, ps) with
|
|
| None -> Format.fprintf out "ts: <%Ld ns>" self
|
|
| Some span ->
|
|
(match Ptime.add_span Ptime.epoch span with
|
|
| None -> Format.fprintf out "ts: <%Ld ns>" self
|
|
| Some ptime -> Ptime.pp_human () out ptime)
|