Changes in src/Parser/ExpressionNode.cc [dc7db63:0a2168f]

File:

• src/Parser/ExpressionNode.cc (modified) (6 diffs)

src/Parser/ExpressionNode.cc

@@ -10 +10 @@
 // Created On       : Sat May 16 13:17:07 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Mar 22 11:57:39 2018
-// Update Count     : 801
+// Last Modified On : Sat Mar  3 18:22:33 2018
+// Update Count     : 796
 //
 
@@ -94 +94 @@
 } // checkLNInt
 
+static void sepNumeric( string & str, string & units ) {
+        string::size_type posn = str.find_first_of( "`" );
+        if ( posn != string::npos ) {
+                units = "?" + str.substr( posn );                               // extract units
+                str.erase( posn );                                                              // remove units
+        } // if
+} // sepNumeric
+
 Expression * build_constantInteger( string & str ) {
         static const BasicType::Kind kind[2][6] = {
@@ -100 +108 @@
                 { BasicType::ShortUnsignedInt, BasicType::UnsignedChar, BasicType::UnsignedInt, BasicType::LongUnsignedInt, BasicType::LongLongUnsignedInt, BasicType::UnsignedInt128, },
         };
+
+        string units;
+        sepNumeric( str, units );                                                       // separate constant from units
 
         bool dec = true, Unsigned = false;                                      // decimal, unsigned constant
@@ -221 +232 @@
         } // if
   CLEANUP:
+        if ( units.length() != 0 ) {
+                ret = new UntypedExpr( new NameExpr( units ), { ret } );
+        } // if
 
         delete &str;                                                                            // created by lex
@@ -254 +268 @@
         };
 
+        string units;
+        sepNumeric( str, units );                                                       // separate constant from units
+
         bool complx = false;                                                            // real, complex
         int size = 1;                                                                           // 0 => float, 1 => double, 2 => long double
@@ -286 +303 @@
         if ( lnth != -1 ) {                                                                     // explicit length ?
                 ret = new CastExpr( ret, new BasicType( Type::Qualifiers(), kind[complx][size] ) );
+        } // if
+        if ( units.length() != 0 ) {
+                ret = new UntypedExpr( new NameExpr( units ), { ret } );
         } // if