Changeset b2e2e34 for src/tests/user_literals.c

Timestamp:

Sep 12, 2017, 4:08:01 PM (7 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, deferred_resn, demangler, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, with_gc

Children:

c935c3a

Parents:

21a1efb (diff), a46478a (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' of plg.uwaterloo.ca:software/cfa/cfa-cc

File:

• src/tests/user_literals.c (modified) (1 diff)

src/tests/user_literals.c

@@ -10 +10 @@
 // Created On       : Wed Sep  6 21:40:50 2017
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Wed Sep  6 23:19:08 2017
-// Update Count     : 36
+// Last Modified On : Sat Sep  9 08:31:32 2017
+// Update Count     : 48
 // 
 
 #include <fstream>
+#include <wchar.h>
+#include <uchar.h>
+
+int ?`s( int s ) { sout | "secs" | s | endl; return s; }
+int ?`m( int m ) { sout | "mins" | m | endl; return m * 60; }
+int ?`h( int h ) { sout | "hours" | h | endl; return h * 3600; }
+int ?`_A_( int x ) { sout | "_A_" | x | endl; return x; }
+int ?`__thingy_( int x ) { sout | "_thingy_" | x | endl; return x; }
+
+int ?`s( const char * s ) { sout | "secs" | s | endl; return 0; }
+int ?`m( const char16_t * m ) { sout | "mins" | m | endl; return 0;}
+int ?`h( const char32_t * h ) { sout | "hours" | h | endl; return 0; }
+int ?`_A_( const wchar_t * str ) { sout | "_A_" | str | endl; return 0; }
+int ?`__thingy_( const char * str ) { sout | "_thingy_" | str | endl; return 0; }
+
 
 struct Weight {
-    double stones;
+        double stones;
 };
-void ?{}( Weight & w ) { w.stones = 0; }        // constructors
+void ?{}( Weight & w ) { w.stones = 0; }                                // operations
 void ?{}( Weight & w, double w ) { w.stones = w; }
-
 Weight ?+?( Weight l, Weight r ) { return (Weight){ l.stones + r.stones }; }
 ofstream * ?|?( ofstream * os, Weight w ) { return os | w.stones; }
 
-Weight ?`st( double w ) { return (Weight){ w }; } // user literals
+Weight ?`st( double w ) { return (Weight){ w }; }               // backquote for user literals
 Weight ?`lb( double w ) { return (Weight){ w / 14.0 }; }
 Weight ?`kg( double w ) { return (Weight) { w * 0.1575}; }
 
+
 int main() {
-    Weight w, hw = { 14 };
-    w = 11`st + 1`lb;
-    sout | w | endl;
-    w = 70.3`kg;
-    sout | w | endl;
-    w = 155`lb;
-    sout | w | endl;
-    w = 0x9b`lb;                // hexadecimal weight
-    sout | w | endl;
-    w = 0233`lb;                // octal weight
-    sout | w | endl;
-    w = 5`st + 8`kg + 25`lb + hw;
-    sout | w | endl;
-}
+        Weight w, hw = { 14 };                                                          // 14 stone
+        w = 11`st + 1`lb;
+        sout | w | endl;
+        w = 70.3`kg;
+        sout | w | endl;
+        w = 155`lb;
+        sout | w | endl;
+        w = 0x_9b_u`lb;                                                                         // hexadecimal unsigned weight (155)
+        sout | w | endl;
+        w = 0_233`lb;                                                                           // octal weight (155)
+        sout | w | endl;
+        w = 5`st + 8`kg + 25`lb + hw;
+        sout | w | endl;
 
+//      0`secs;
+        1`s;
+        23`s;
+        23u`m;
+        23l`h;
+        23_ul`_A_;
+        1_234_LL`__thingy_;
 
+        0xff_ffl;
+        0xff_ff`s;
+        0xff_ffu`m;
+        0xff_ffl`h;
+        0xff_fful`_A_;
+        0xff_ffLL`__thingy_;
+
+        '\n'`s;
+        L'\n'`h;
+        u'\n'`m;
+        L_'\n'`_A_;
+        U_'\n'`__thingy_;
+
+        "abc"`s;
+        u"abc"`m;
+        U_"abc"`h;
+        L"abc"`_A_;
+        u8_"abc"`__thingy_;
+} // main
 
 // Local Variables: //