simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-08 03:47:59 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

move timestamp to util

Browse source
This commit is contained in:
Simon Cruanes 2025-12-17 11:13:34 -05:00
parent a3e1fcc362
commit f2635cce68
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 9 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/core/timestamp_ns.ml
View file

@ -1,29 +1 @@
(** 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)
include Opentelemetry_util.Timestamp_ns

8
src/util/timestamp_ns.ml Normal file
View file

@ -0,0 +1,8 @@
(** Unix timestamp.
These timestamps measure time since the Unix epoch (jan 1, 1970) UTC in
nanoseconds. *)
type t = int64
let pp_debug out (self : t) = Format.fprintf out "<timestamp: %Ld ns>" self