source: libcfa/src/clock.hfa@ e873838

//
// Cforall Version 1.0.0 Copyright (C) 2018 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// clock --
//
// Author           : Peter A. Buhr
// Created On       : Thu Apr 12 14:36:06 2018
// Last Modified By : Peter A. Buhr
// Last Modified On : Mon Jan  6 12:49:58 2020
// Update Count     : 9
//

#include <time.hfa>

//######################### C time #########################

static inline char * ctime( time_t tp ) { char * buf = ctime( &tp ); buf[24] = '\0'; return buf; }
static inline char * ctime_r( time_t tp, char * buf ) { ctime_r( &tp, buf ); buf[24] = '\0'; return buf; }
static inline tm * gmtime( time_t tp ) { return gmtime( &tp ); }
static inline tm * gmtime_r( time_t tp, tm * result ) { return gmtime_r( &tp, result ); }
static inline tm * localtime( time_t tp ) { return localtime( &tp ); }
static inline tm * localtime_r( time_t tp, tm * result ) { return localtime_r( &tp, result ); }

//######################### Clock #########################

struct Clock {                                                                                  // private
        Duration offset;                                                                        // for virtual clock: contains offset from real-time
};

static inline {
        void resetClock( Clock & clk, Duration adj ) with( clk ) {
                offset = adj + __timezone`s;                                    // timezone (global) is (UTC - local time) in seconds
        } // resetClock

        void ?{}( Clock & clk, Duration adj ) { resetClock( clk, adj ); }

        Duration getResNsec() {
                struct timespec res;
                clock_getres( CLOCK_REALTIME, &res );
                return ((int64_t)res.tv_sec * TIMEGRAN + res.tv_nsec)`ns;
        } // getRes

        Duration getRes() {
                struct timespec res;
                clock_getres( CLOCK_REALTIME_COARSE, &res );
                return ((int64_t)res.tv_sec * TIMEGRAN + res.tv_nsec)`ns;
        } // getRes

        Time getTimeNsec() {                                                            // with nanoseconds
                timespec curr;
                clock_gettime( CLOCK_REALTIME, &curr );
                return (Time){ curr };
        } // getTimeNsec

        Time getTime() {                                                                        // without nanoseconds
                timespec curr;
                clock_gettime( CLOCK_REALTIME_COARSE, &curr );
                curr.tv_nsec = 0;
                return (Time){ curr };
        } // getTime

        Time getTime( Clock & clk ) with( clk ) {
                return getTime() + offset;
        } // getTime

        Time ?()( Clock & clk ) with( clk ) {                           // alternative syntax
                return getTime() + offset;
        } // getTime

        timeval getTime( Clock & clk ) {
                return (timeval){ clk() };
        } // getTime

        tm getTime( Clock & clk ) with( clk ) {
                tm ret;
                localtime_r( getTime( clk ).tv_sec, &ret );
                return ret;
        } // getTime

        Time getCPUTime() {
                timespec ts;
                clock_gettime( CLOCK_THREAD_CPUTIME_ID, &ts );
                return (Time){ ts };
    } // getCPUTime
} // distribution

// Local Variables: //
// mode: c //
// tab-width: 4 //
// End: //