source: src/libcfa/time.c @ 7867eb9

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsdeferred_resndemanglerenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumwith_gc
Last change on this file since 7867eb9 was d7312ac, checked in by Peter A. Buhr <pabuhr@…>, 6 years ago

make directives work and use them to remove warnings

  • Property mode set to 100644
File size: 4.8 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2018 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// time.c --
8//
9// Author           : Peter A. Buhr
10// Created On       : Tue Mar 27 13:33:14 2018
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Sat May  5 09:04:51 2018
13// Update Count     : 36
14//
15
16#include "time"
17#include "iostream"
18#include <stdio.h>                                                                              // snprintf
19#include <assert.h>
20
21static char * nanomsd( long int ns, char * buf ) {              // most significant digits
22        snprintf( buf, 16, ".%09ld", ns );
23        int i;
24        for ( i = 9; buf[i] == '0' ; i -= 1 );                          // find least significant digit
25        buf[i + 1] = '\0';
26        return buf;
27} // nanomsd
28
29
30//######################### Duration #########################
31
32
33forall( dtype ostype | ostream( ostype ) )
34ostype & ?|?( ostype & os, Duration dur ) with( dur ) {
35        os | tv / TIMEGRAN;                                                                     // print seconds
36        long int ns = (tv < 0 ? -tv : tv) % TIMEGRAN;           // compute nanoseconds
37        if ( ns != 0 ) {                                                                        // some ?
38                char buf[16];
39                os | nanomsd( ns, buf );                                                // print nanoseconds
40        } // if
41        return os;
42} // ?|?
43
44
45//######################### Time #########################
46
47
48#ifdef __CFA_DEBUG__
49#define CreateFmt "Attempt to create Time( year=%d (>=1970), month=%d (1-12), day=%d (1-31), hour=%d (0-23), min=%d (0-59), sec=%d (0-60), nsec=%d (0-999_999_999), " \
50        "which exceeds range 00:00:00 UTC, January 1, 1970 to 03:14:07 UTC, January 19, 2038."
51#endif // __CFA_DEBUG__
52
53void ?{}( Time & time, int year, int month, int day, int hour, int min, int sec, int nsec ) with( time ) {
54        tm tm;
55
56        tm.tm_isdst = -1;                                                                       // let mktime determine if alternate timezone is in effect
57        tm.tm_year = year - 1900;                                                       // mktime uses 1900 as its starting point
58#ifdef __CFA_DEBUG__
59        if ( month < 1 || 12 < month ) {
60                abort( CreateFmt, year, month, day, hour, (int)min, sec, nsec );
61        } // if
62#endif // __CFA_DEBUG__
63        tm.tm_mon = month - 1;                                                          // mktime uses range 0-11
64#ifdef __CFA_DEBUG__
65        if ( day < 1 || 31 < day ) {
66                abort( CreateFmt, year, month, day, hour, (int)min, sec, nsec );
67        } // if
68#endif // __CFA_DEBUG__
69        tm.tm_mday = day;                                                                       // mktime uses range 1-31
70        tm.tm_hour = hour;
71        tm.tm_min = min;
72        tm.tm_sec = sec;
73        time_t epochsec = mktime( &tm );
74#ifdef __CFA_DEBUG__
75        if ( epochsec == (time_t)-1 ) {
76                abort( CreateFmt, year, month, day, hour, (int)min, sec, nsec );
77        } // if
78#endif // __CFA_DEBUG__
79        tv = (int64_t)(epochsec) * TIMEGRAN + nsec;                     // convert to nanoseconds
80#ifdef __CFA_DEBUG__
81        if ( tv > 2147483647LL * TIMEGRAN ) {                           // between 00:00:00 UTC, January 1, 1970 and 03:14:07 UTC, January 19, 2038.
82                abort( CreateFmt, year, month, day, hour, (int)min, sec, nsec );
83        } // if
84#endif // __CFA_DEBUG__
85} // ?{}
86
87char * yy_mm_dd( Time time, char * buf ) with( time ) {
88        time_t s = tv / TIMEGRAN;
89        tm tm;
90        gmtime_r( &s, &tm );                                                            // tm_mon <= 11, tm_mday <= 31
91#pragma GCC diagnostic push
92#pragma GCC diagnostic ignored "-Wformat-truncation"
93        snprintf( buf, 9, "%02d/%02d/%02d", tm.tm_year % 99, tm.tm_mon + 1, tm.tm_mday );
94#pragma GCC diagnostic pop
95        return buf;
96} // yy_mm_dd
97
98char * mm_dd_yy( Time time, char * buf ) with( time ) {
99        time_t s = tv / TIMEGRAN;
100        tm tm;
101        gmtime_r( &s, &tm );                                                            // tm_mon <= 11, tm_mday <= 31
102#pragma GCC diagnostic push
103#pragma GCC diagnostic ignored "-Wformat-truncation"
104        snprintf( buf, 9, "%02d/%02d/%02d", tm.tm_mon + 1, tm.tm_mday, tm.tm_year % 99 );
105#pragma GCC diagnostic pop
106        return buf;
107} // mm_dd_yy
108
109char * dd_mm_yy( Time time, char * buf ) with( time ) {
110        time_t s = tv / TIMEGRAN;
111        tm tm;
112        gmtime_r( &s, &tm );                                                            // tm_mon <= 11, tm_mday <= 31
113#pragma GCC diagnostic push
114#pragma GCC diagnostic ignored "-Wformat-truncation"
115        snprintf( buf, 9, "%02d/%02d/%02d", tm.tm_mday, tm.tm_mon + 1, tm.tm_year % 99 );
116#pragma GCC diagnostic pop
117        return buf;
118} // dd_mm_yy
119
120size_t strftime( char * buf, size_t size, const char * fmt, Time time ) with( time ) {
121        time_t s = tv / TIMEGRAN;
122        tm tm;
123        gmtime_r( &s, &tm );
124        return strftime( buf, size, fmt, &tm );
125} // strftime
126
127forall( dtype ostype | ostream( ostype ) )
128ostype & ?|?( ostype & os, Time time ) with( time ) {
129        char buf[32];                                                                           // at least 26
130        time_t s = tv / TIMEGRAN;
131    ctime_r( &s, (char *)&buf );                                                // 26 characters: "Wed Jun 30 21:49:08 1993\n"
132        buf[24] = '\0';                                                                         // remove trailing '\n'
133        long int ns = (tv < 0 ? -tv : tv) % TIMEGRAN;           // compute nanoseconds
134        if ( ns == 0 ) {                                                                        // none ?
135                os | buf;                                                                               // print date/time/year
136        } else {
137                buf[19] = '\0';                                                                 // truncate to "Wed Jun 30 21:49:08"
138                os | buf;                                                                               // print date/time
139                char buf2[16];
140                nanomsd( ns, buf2 );                                                    // compute nanoseconds
141                os | buf2 | ' ' | &buf[20];                                             // print nanoseconds and year
142        } // if
143        return os;
144} // ?|?
145
146// Local Variables: //
147// mode: c //
148// tab-width: 4 //
149// End: //
Note: See TracBrowser for help on using the repository browser.