port over timer from google/benchmark

Author: vchuravy

src/timers/darwin.jl

@@ -0,0 +1,78 @@
+const RUSAGE_SELF = Cint(0)
+const RUSAGE_CHILDREN = Cint(-1)
+
+struct timeval
+    tv_sec::Clong
+    tv_usec::Clong
+end
+
+struct rusage
+    ru_utime::timeval
+    ru_stime::timeval
+    ru_maxrss::Clong
+    ru_ixrss::Clong
+    ru_idrss::Clong
+    ru_isrss::Clong
+    ru_minflt::Clong
+    ru_majflt::Clong
+    ru_nswap::Clong
+    ru_inblock::Clong
+    ru_outblock::Clong
+    ru_msgsnd::Clong
+    ru_msgrcv::Clong
+    ru_nsignals::Clong
+    ru_nvcsw::Clong
+    ru_nivcsw::Clong
+end
+
+@inline function maketime(ru::rusage)
+    user   = ru.ru_utime.tv_sec * 1e9 + ru.ru_utime.tv_usec *1e3
+    kernel = ru.ru_stime.tv_sec * 1e9 + ru.ru_stime.tv_usec *1e3
+    return user+kernel
+end
+
+struct time_value_t
+    seconds::Cint
+    microseconds::Cint
+end
+
+struct thread_basic_info
+    user_time::time_value_t
+    system_time::time_value_t
+    cpu_usage::Cint
+    policy::Cint
+    run_state::Cint
+    flags::Cint
+    suspend_count::Cint
+    sleep_time::Cint
+end
+
+@inline function maketime(info::thread_basic_info)
+    user   = info.user_time.seconds   * 1e9 + info.user_time.microseconds   * 1e3
+    system = info.system_time.seconds * 1e9 + info.system_time.microseconds * 1e3
+    return user+system
+end
+
+@inline function walltime
+    Base.time_ns()
+end
+
+@inline function processtime()
+    ru = Ref{rusage}()
+    err = ccall(:getrusage, Cint, (Cint, Ref{rusage}), RUSAGE_SELF, ru)
+    # TODO error check
+    return maketime(ru[])
+end
+
+const THREAD_BASIC_INFO_COUNT = (sizeof(thread_basic_info) ÷ sizeof(Int))
+
+@inline function threadtime()
+    #mach_msg_type_number_t count = THREAD_BASIC_INFO_COUNT;
+    #thread_basic_info_data_t info;
+    #mach_port_t thread = pthread_mach_thread_np(pthread_self());
+    #if (thread_info(thread, THREAD_BASIC_INFO, (thread_info_t)&info, &count) ==
+    #    KERN_SUCCESS) {
+    #  return MakeTime(info);
+    #}
+    error("Thread time not implemented on OSX")
+end

src/timers/timers.jl

@@ -0,0 +1,47 @@
+#=
+Based upon https://github.com/google/benchmark
+=#
+
+module Timers
+
+"""
+    walltime()
+
+Monotonic runtime counter
+
+Returns time in ns as Float64.
+"""
+function walltime end
+
+"""
+    processtime()
+
+Process specific CPU time clock.
+
+Returns time in ns as Float64.
+"""
+function processtime end
+
+"""
+    threadtime()
+
+Thread specific CPU time clock.
+
+Returns time in ns as Float64.
+"""
+function threadtime end
+
+function _applever()
+    return VersionNumber(readchomp(`sw_vers -productVersion`))
+end
+
+if is_apple() && _applever() < v"10.12.0"
+    include("darwin.jl")
+elseif is_unix()
+    include("unix.jl")
+elseif is_windows()
+    include("windows.jl")
+else
+    error("$(Sys.Kernel) is not supported please file an issue")
+end
+end # module 

src/timers/unix.jl

@@ -0,0 +1,45 @@
+struct TimeSpec
+    tv_sec  :: UInt64 # time_t
+    tv_nsec :: UInt64
+end
+
+maketime(ts) = ts.tv_sec * 1e9 + ts.tv_nsec
+
+# From bits/times.h on a Linux system
+# Check if those are the same on BSD
+if is_linux()
+    const CLOCK_MONOTONIC          = Cint(1)
+    const CLOCK_PROCESS_CPUTIME_ID = Cint(2)
+    const CLOCK_THREAD_CPUTIME_ID  = Cint(3)
+elseif Sys.KERNEL == :FreeBSD # atleast on FreeBSD 11.1
+    const CLOCK_MONOTONIC          = Cint(4)
+    const CLOCK_PROCESS_CPUTIME_ID = Cint(14)
+    const CLOCK_THREAD_CPUTIME_ID  = Cint(15)
+elseif is_apple() # Version 10.12 required
+    const CLOCK_MONOTONIC          = Cint(6)
+    const CLOCK_PROCESS_CPUTIME_ID = Cint(12)
+    const CLOCK_THREAD_CPUTIME_ID  = Cint(16)
+else
+    error("""
+          BenchmarkTools doesn't currently support your system.
+          Please file an issue, your kernel is $(Sys.KERNEL)
+          """)
+end
+
+@inline function clock_gettime(cid)
+    ts = Ref{TimeSpec}()
+    ccall(:clock_gettime, Cint, (Cint, Ref{TimeSpec}), cid, ts)
+    return ts[]
+end
+
+@inline function walltime()
+    maketime(clock_gettime(CLOCK_MONOTONIC))
+end
+
+@inline function processtime()
+    maketime(clock_gettime(CLOCK_PROCESS_CPUTIME_ID))
+end
+
+@inline function threadtime()
+    maketime(clock_gettime(CLOCK_THREAD_CPUTIME_ID))
+end

src/timers/windows.jl

@@ -0,0 +1,49 @@
+"""
+    FileTime
+
+See https://msdn.microsoft.com/en-us/library/windows/desktop/ms724284(v=vs.85).aspx
+"""
+struct FileTime
+    dwHighDateTime::UInt32
+    dwLowDateTime::UInt32
+end
+
+const HANDLE = Ptr{Void}
+
+@inline function maketime(kernel_time::FileTime, user_time::FileTime)
+    kernel = (kernel_time.dwHighDateTime % UInt64) << 32 | kernel_time.dwLowDateTime
+    user   = (  user_time.dwHighDateTime % UInt64) << 32 |   user_time.dwLowDateTime
+    (kernel + user) * 1e2
+end
+
+@inline function walltime()
+    # counter = Ref{UInt64}()
+    # err = ccall(:QueryPerformanceCounter, Cint, (Ref{UInt64},) )
+    return Float64(Base.time_ns())
+end
+
+@inline function processtime()
+    proc = ccall(:GetCurrentProcess, HANDLE, ())
+    creation_time = Ref{FileTime}()
+    exit_time = Ref{FileTime}()
+    kernel_time = Ref{FileTime}()
+    user_time = Ref{FileTime}()
+
+    err = ccall(:GetProccessTimes, Cint, (HANDLE, Ref{FileTime}, Ref{FileTime}, Ref{FileTime}, Ref{FileTime}), 
+                                proc, creation_time, exit_time, kernel_time, user_time)
+    # TODO: Error handling
+    return maketime(kernel_time, user_time)
+end
+
+@inline function threadtime()
+    thread = ccall(:GetCurrentThread, HANDLE, ())
+    creation_time = Ref{FileTime}()
+    exit_time = Ref{FileTime}()
+    kernel_time = Ref{FileTime}()
+    user_time = Ref{FileTime}()
+
+    err = ccall(:GetThreadTimes, Cint, (HANDLE, Ref{FileTime}, Ref{FileTime}, Ref{FileTime}, Ref{FileTime}), 
+                                thread, creation_time, exit_time, kernel_time, user_time)
+    # TODO: Error handling
+    return maketime(kernel_time, user_time)
+end