1 | // |
---|
2 | // Cforall Version 1.0.0 Copyright (C) 2016 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.cfa -- |
---|
8 | // |
---|
9 | // Author : Peter A. Buhr |
---|
10 | // Created On : Tue Mar 27 17:24:56 2018 |
---|
11 | // Last Modified By : Peter A. Buhr |
---|
12 | // Last Modified On : Fri Nov 29 23:05:30 2019 |
---|
13 | // Update Count : 24 |
---|
14 | // |
---|
15 | |
---|
16 | #include "time.hfa" |
---|
17 | #include <fstream.hfa> |
---|
18 | |
---|
19 | int main() { |
---|
20 | Duration d1 = 3`h, d2 = 2`s, d3 = 3.375`s, d4 = 12`s, d5 = 1`s + 10_000`ns; |
---|
21 | sout | d1 | d2 | d3 | d4 | d5; |
---|
22 | d1 = 0; |
---|
23 | sout | d1 | d2 | d3; |
---|
24 | d1 = 7`s; |
---|
25 | d3 = d2 = d1; |
---|
26 | sout | d1 | d2 | d3; |
---|
27 | d1 = d1 + d2; |
---|
28 | sout | d1; |
---|
29 | sout | d1 == 7`s | d1 == d2 | d1 == 0; |
---|
30 | sout | div( 7`s, 2`s ); |
---|
31 | sout | nl; |
---|
32 | |
---|
33 | Time t = { 1970, 1, 2, 0, 0, 0, 10_000_000 }; |
---|
34 | sout | t; |
---|
35 | t = t + d1; |
---|
36 | sout | t | t.tv; |
---|
37 | Time t1 = (timespec){ 104_414, 10_000_000 }; |
---|
38 | sout | t1 | t1.tv; |
---|
39 | sout | t - t | t + d5 | t.tv; |
---|
40 | char buf[16]; |
---|
41 | sout | "yy/mm/dd" | [t, buf]`ymd | nonl; // shared buf => separate calls |
---|
42 | sout | "mm/dd/yy" | mm_dd_yy( t, buf ) | nonl; |
---|
43 | strftime( buf, 16, "%D", t ); // %D => mm/dd/yy |
---|
44 | sout | "mm/dd/yy" | buf | nonl; |
---|
45 | sout | "dd/yy/mm" | [t, buf]`dmy; |
---|
46 | Time t2 = { 2001, 7, 4, 0, 0, 1, 0 }, t3 = (timeval){ 994_219_201 }; |
---|
47 | sout | t2 | t2.tv | nl | t3 | t3.tv; |
---|
48 | sout | nl; |
---|
49 | |
---|
50 | // Clock Newfoundland = { -3.5`h }, PST = { -8`h }; // distance from GMT (UTC) |
---|
51 | // sout | "Clock Resolution" | getRes() |
---|
52 | // | "Newfoundland" | getTime( Newfoundland ) |
---|
53 | // | "local" | getTime() |
---|
54 | // | "local nsec" | getTimeNsec() |
---|
55 | // | "PST" | PST(); // getTime short form |
---|
56 | // sout | nl; |
---|
57 | |
---|
58 | // http://en.cppreference.com/w/cpp/chrono/duration/operator_arith4 |
---|
59 | Duration s = 1`h + 2 * 10`m + 70`s / 10; |
---|
60 | sout | "1 hour + 2*10 min + 70/10 sec = " | s | "seconds"; |
---|
61 | sout | "Dividing that by 2 minutes gives" | s / 2`m; |
---|
62 | sout | "Dividing that by 2 gives" | s / 2 | "seconds"; |
---|
63 | sout | s | "seconds is" | s`h | "hours," | (s % 1`h)`m | "minutes," | (s % 1`m)`s | "seconds"; |
---|
64 | } // main |
---|
65 | |
---|
66 | // Local Variables: // |
---|
67 | // mode: c // |
---|
68 | // tab-width: 4 // |
---|
69 | // compile-command: "cfa time.cfa" // |
---|
70 | // End: // |
---|