Initial project import

tools/v/vlib/time/time_darwin.c.v

@@ -0,0 +1,86 @@
+module time
+
+#include <mach/mach_time.h>
+
+// start_time is needed on Darwin and Windows because of potential overflows
+const start_time = C.mach_absolute_time()
+
+const time_base = init_time_base()
+
+@[typedef]
+pub struct C.mach_timebase_info_data_t {
+	numer u32
+	denom u32
+}
+
+fn C.mach_absolute_time() u64
+
+fn C.mach_timebase_info(&C.mach_timebase_info_data_t)
+
+fn C.clock_gettime_nsec_np(i32) u64
+
+struct InternalTimeBase {
+	numer u32 = 1
+	denom u32 = 1
+}
+
+fn init_time_base() C.mach_timebase_info_data_t {
+	tb := C.mach_timebase_info_data_t{}
+	C.mach_timebase_info(&tb)
+	return C.mach_timebase_info_data_t{
+		numer: tb.numer
+		denom: tb.denom
+	}
+}
+
+fn sys_mono_now_darwin() u64 {
+	tm := C.mach_absolute_time()
+	if time_base.denom == 0 {
+		unsafe {
+			C.mach_timebase_info(&time_base)
+		}
+	}
+	return (tm - start_time) * time_base.numer / time_base.denom
+}
+
+// Note: vpc_now_darwin is used by `v -profile` .
+// It should NOT call *any other v function*, just C functions and casts.
+@[inline]
+fn vpc_now_darwin() u64 {
+	tm := C.mach_absolute_time()
+	if time_base.denom == 0 {
+		unsafe {
+			C.mach_timebase_info(&time_base)
+		}
+	}
+	return (tm - start_time) * time_base.numer / time_base.denom
+}
+
+// darwin_now returns a better precision current time for macos
+fn darwin_now() Time {
+	// Use clock_gettime_nsec_np to avoid field-address lowering on C.timespec.
+	epoch_ns := i64(C.clock_gettime_nsec_np(C.CLOCK_REALTIME))
+	sec := epoch_ns / i64(second)
+	nsec := int(epoch_ns % i64(second))
+	loc_tm := C.tm{}
+	C.localtime_r(voidptr(&sec), &loc_tm)
+	return convert_ctime_with_unix(loc_tm, nsec, sec + i64(loc_tm.tm_gmtoff))
+}
+
+// darwin_utc returns a better precision current time for macos
+fn darwin_utc() Time {
+	epoch_ns := i64(C.clock_gettime_nsec_np(C.CLOCK_REALTIME))
+	sec := epoch_ns / i64(second)
+	nsec := int(epoch_ns % i64(second))
+	return unix_nanosecond(sec, nsec)
+}
+
+// dummy to compile with all compilers
+fn solaris_now() Time {
+	return Time{}
+}
+
+// dummy to compile with all compilers
+fn solaris_utc() Time {
+	return Time{}
+}