Source file time.ml

open Stdlib

type t = int64

type span = int64

let of_uint64_ns x = x

let to_uint64_ns x = x

let span t0 t1 =
  if Int64.unsigned_compare t0 t1 < 0 then Int64.sub t1 t0 else Int64.sub t0 t1

let s_to_ns = 1e9

let to_span o x = span (Int64.of_float (s_to_ns *. (x *. o))) 0L

let second n = to_span 1. n

let millisecond n = to_span 1e-3 n

let microsecond n = to_span 1e-6 n

let nanosecond n = to_span 1e-9 n

let span_compare = Int64.unsigned_compare

let span_of_uint64_ns x = x

let span_to_uint64_ns x = x