31 lines
934 B
OCaml
31 lines
934 B
OCaml
$NetBSD: patch-src_netsys_netlog.ml,v 1.1 2016/05/05 16:04:21 jaapb Exp $
|
|
|
|
Temporary patch for ocaml 4.03 (from package's git repository)
|
|
--- src/netsys/netlog.ml.orig 2016-02-29 12:24:18.000000000 +0000
|
|
+++ src/netsys/netlog.ml
|
|
@@ -8,6 +8,15 @@ type level =
|
|
type logger =
|
|
level -> string -> unit
|
|
|
|
+type timespec = float * int
|
|
+type clock_id
|
|
+type clock =
|
|
+ | CLOCK_REALTIME
|
|
+ | CLOCK_MONOTONIC
|
|
+ | CLOCK_ID of clock_id
|
|
+
|
|
+external clock_gettime : clock -> timespec = "netsys_clock_gettime"
|
|
+
|
|
let level_weight =
|
|
function
|
|
| `Emerg -> 0
|
|
@@ -95,7 +104,7 @@ let current_formatter =
|
|
let channel_logger ch max_lev lev msg =
|
|
if level_weight lev <= level_weight max_lev then (
|
|
let (sec,ns) =
|
|
- try Netsys_posix.clock_gettime Netsys_posix.CLOCK_REALTIME
|
|
+ try clock_gettime CLOCK_REALTIME
|
|
with Invalid_argument _ ->
|
|
(Unix.gettimeofday(), 0) in
|
|
let s = (* Netdate is unavailable here *)
|