1 | // |
---|
2 | // Cforall Version 1.0.0 Copyright (C) 2017 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 | // userLiterals.cfa -- |
---|
8 | // |
---|
9 | // Author : Peter A. Buhr |
---|
10 | // Created On : Wed Sep 6 21:40:50 2017 |
---|
11 | // Last Modified By : Peter A. Buhr |
---|
12 | // Last Modified On : Wed Feb 19 07:48:45 2020 |
---|
13 | // Update Count : 74 |
---|
14 | // |
---|
15 | |
---|
16 | #include <fstream.hfa> |
---|
17 | #include <wchar.h> |
---|
18 | #include <uchar.h> |
---|
19 | |
---|
20 | int ?`s( int s ) { sout | "secs" | s; return s; } |
---|
21 | int ?`m( int m ) { sout | "mins" | m; return m * 60; } |
---|
22 | int ?`h( int h ) { sout | "hours" | h; return h * 3600; } |
---|
23 | int ?`_A_( int x ) { sout | "_A_" | x; return x; } |
---|
24 | int ?`__thingy_( int x ) { sout | "_thingy_" | x; return x; } |
---|
25 | |
---|
26 | int ?`s( const char * s ) { sout | "s" | s; return 0; } |
---|
27 | int ?`m( const char16_t * m ) { sout | "m" | m; return 0;} |
---|
28 | int ?`h( const char32_t * h ) { sout | "h" | h; return 0; } |
---|
29 | int ?`_A_( const wchar_t * str ) { sout | "_A_" | str; return 0; } |
---|
30 | int ?`__thingy_( const char * str ) { sout | "_thingy_" | str; return 0; } |
---|
31 | |
---|
32 | |
---|
33 | struct Weight { double stones; }; |
---|
34 | void ?{}( Weight & w ) { w.stones = 0; } |
---|
35 | void ?{}( Weight & w, double w ) { w.stones = w; } |
---|
36 | Weight ?+?( Weight l, Weight r ) { |
---|
37 | return (Weight){ l.stones + r.stones }; |
---|
38 | } |
---|
39 | ofstream & ?|?( ofstream & os, Weight w ) { return os | wd(1,1, w.stones); } |
---|
40 | void ?|?( ofstream & os, Weight w ) { (ofstream)(os | w); ends( os ); } |
---|
41 | |
---|
42 | Weight ?`st( double w ) { return (Weight){ w }; } // backquote for user literals |
---|
43 | Weight ?`lb( double w ) { return (Weight){ w / 14.0 }; } |
---|
44 | Weight ?`kg( double w ) { return (Weight) { w * 0.16 }; } |
---|
45 | |
---|
46 | int main() { |
---|
47 | Weight w, heavy = { 20 }; // 20 stone |
---|
48 | w = 155`lb; |
---|
49 | sout | w; |
---|
50 | w = 0b_1111`st; |
---|
51 | sout | w; |
---|
52 | w = 0_233`lb; // octal weight (155) |
---|
53 | sout | w; |
---|
54 | w = 0x_9b_u`kg; |
---|
55 | sout | w; |
---|
56 | w = 70.3`kg; |
---|
57 | sout | w; |
---|
58 | w = 11`st + 1`lb; |
---|
59 | sout | w; |
---|
60 | w = 5`st + 8`kg + 25`lb + heavy; |
---|
61 | sout | w; |
---|
62 | |
---|
63 | 0`s; |
---|
64 | 1`s; |
---|
65 | 23`s; |
---|
66 | 23u`m; |
---|
67 | 23l`h; |
---|
68 | 23_ul`_A_; |
---|
69 | 1_234_LL`__thingy_; |
---|
70 | |
---|
71 | 0xff_ffl; |
---|
72 | 0xff_ff`s; |
---|
73 | 0xff_ffu`m; |
---|
74 | 0xff_ffl`h; |
---|
75 | 0xff_fful`_A_; |
---|
76 | 0xff_ffLL`__thingy_; |
---|
77 | |
---|
78 | '\n'`s; |
---|
79 | L'\n'`h; |
---|
80 | u'\n'`m; |
---|
81 | L_'\n'`_A_; |
---|
82 | U_'\n'`__thingy_; |
---|
83 | |
---|
84 | "abc"`s; |
---|
85 | // FIX ME: requires char16_t, char32_t, and wchar_t be unique types |
---|
86 | // u"abc"`m; |
---|
87 | // U_"abc"`h; |
---|
88 | // L"abc"`_A_; |
---|
89 | u8_"abc"`__thingy_; |
---|
90 | } // main |
---|
91 | |
---|
92 | // Local Variables: // |
---|
93 | // tab-width: 4 // |
---|
94 | // compile-command: "cfa userLiterals.cfa" // |
---|
95 | // End: // |
---|