Changeset 51c6353


Ignore:
Timestamp:
Sep 1, 2017, 2:42:47 PM (7 years ago)
Author:
Rob Schluntz <rschlunt@…>
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:
681c764
Parents:
a984e65 (diff), 76c62b2 (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:/u/cforall/software/cfa/cfa-cc

Location:
src/Parser
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • src/Parser/ExpressionNode.cc

    ra984e65 r51c6353  
    99// Author           : Rodolfo G. Esteves
    1010// Created On       : Sat May 16 13:17:07 2015
    11 // Last Modified By : Andrew Beach
    12 // Last Modified On : Wed Aug  2 11:12:00 2017
    13 // Update Count     : 568
     11// Last Modified By : Peter A. Buhr
     12// Last Modified On : Thu Aug 31 21:05:04 2017
     13// Update Count     : 605
    1414//
    1515
    … …  
    5858static inline bool checkX( char c ) { return c == 'x' || c == 'X'; }
    5959
    60 Expression * build_constantInteger( const std::string & str ) {
     60static void sepNumeric( string & str, string & units ) {
     61        string::size_type posn = str.find_first_of( "`" );
     62        if ( posn != string::npos ) {
     63                units = str.substr( posn );                                             // extract units
     64                str.erase( posn );                                                              // remove units
     65        } // if
     66} // sepNumeric
     67
     68Expression * build_constantInteger( std::string & str ) {
    6169        static const BasicType::Kind kind[2][3] = {
    6270                { BasicType::SignedInt, BasicType::LongSignedInt, BasicType::LongLongSignedInt },
    6371                { BasicType::UnsignedInt, BasicType::LongUnsignedInt, BasicType::LongLongUnsignedInt },
    6472        };
     73
     74        string units;                                                                           // units
     75        sepNumeric( str, units );                                                       // separate constant from units
     76
    6577        bool dec = true, Unsigned = false;                                      // decimal, unsigned constant
    6678        int size;                                                                                       // 0 => int, 1 => long, 2 => long long
    … …  
    6981        Expression * ret;
    7082
     83        // ROB: what do we do with units on 0 and 1?
    7184        // special constants
    7285        if ( str == "0" ) {
    … …  
    132145        } // if
    133146
    134         ret = new ConstantExpr( Constant( new BasicType( noQualifiers, kind[Unsigned][size] ), str, v ) );
     147//      if ( units.length() == 0 ) {
     148                ret = new ConstantExpr( Constant( new BasicType( noQualifiers, kind[Unsigned][size] ), str, v ) );
     149//      } else {
     150//              // ROB: generate call to units routine
     151//              ret = nullptr;
     152//      } // if
    135153  CLEANUP:
    136154        delete &str;                                                                            // created by lex
    … …  
    138156} // build_constantInteger
    139157
    140 Expression * build_constantFloat( const std::string & str ) {
     158Expression * build_constantFloat( std::string & str ) {
    141159        static const BasicType::Kind kind[2][3] = {
    142160                { BasicType::Float, BasicType::Double, BasicType::LongDouble },
    143161                { BasicType::FloatComplex, BasicType::DoubleComplex, BasicType::LongDoubleComplex },
    144162        };
     163
     164        string units;                                                                           // units
     165        sepNumeric( str, units );                                                       // separate constant from units
    145166
    146167        bool complx = false;                                                            // real, complex
    … …  
    168189        } // if
    169190
    170         Expression * ret = new ConstantExpr( Constant( new BasicType( noQualifiers, kind[complx][size] ), str, v ) );
     191        Expression * ret;
     192//      if ( units.length() == 0 ) {
     193                ret = new ConstantExpr( Constant( new BasicType( noQualifiers, kind[complx][size] ), str, v ) );
     194//      } else {
     195//              ret = nullptr;
     196//              // ROB: generate call to units routine
     197//      } // if
     198
    171199        delete &str;                                                                            // created by lex
    172200        return ret;
    173201} // build_constantFloat
    174202
    175 Expression * build_constantChar( const std::string & str ) {
    176         Expression * ret = new ConstantExpr( Constant( new BasicType( noQualifiers, BasicType::Char ), str, (unsigned long long int)(unsigned char)str[1] ) );
     203static void sepString( string & str, string & units, char delimit ) {
     204        string::size_type posn = str.find_last_of( delimit ) + 1;
     205        if ( posn != str.length() ) {
     206                units = str.substr( posn );                                             // extract units
     207                str.erase( posn );                                                              // remove units
     208        } // if
     209} // sepString
     210
     211Expression * build_constantChar( std::string & str ) {
     212        string units;                                                                           // units
     213        sepString( str, units, '\'' );                                          // separate constant from units
     214
     215        Expression * ret;
     216//      if ( units.length() == 0 ) {
     217                ret = new ConstantExpr( Constant( new BasicType( noQualifiers, BasicType::Char ), str, (unsigned long long int)(unsigned char)str[1] ) );
     218//      } else {
     219//              ret = nullptr;
     220//              // ROB: generate call to units routine
     221//      } // if
     222
    177223        delete &str;                                                                            // created by lex
    178224        return ret;
    179225} // build_constantChar
    180226
    181 ConstantExpr * build_constantStr( const std::string & str ) {
    182         // string should probably be a primitive type
    183         ArrayType * at = new ArrayType( noQualifiers, new BasicType( Type::Qualifiers( Type::Const ), BasicType::Char ),
    184                                                                    new ConstantExpr( Constant::from_ulong( str.size() + 1 - 2 ) ), // +1 for '\0' and -2 for '"'
    185                                                                    false, false );
    186         ConstantExpr * ret = new ConstantExpr( Constant( at, str, (unsigned long long int)0 ) ); // constant 0 is ignored for pure string value
     227ConstantExpr * build_constantStr( std::string & str ) {
     228        string units;                                                                           // units
     229        sepString( str, units, '"' );                                           // separate constant from units
     230
     231        ConstantExpr * ret;
     232//      if ( units.length() == 0 ) {
     233                // string should probably be a primitive type
     234                ArrayType * at = new ArrayType( noQualifiers, new BasicType( Type::Qualifiers( Type::Const ), BasicType::Char ),
     235                                                                                new ConstantExpr( Constant::from_ulong( str.size() + 1 - 2 ) ), // +1 for '\0' and -2 for '"'
     236                                                                                false, false );
     237                ret = new ConstantExpr( Constant( at, str, (unsigned long long int)0 ) ); // constant 0 is ignored for pure string value
     238//      } else {
     239//              ret = nullptr;
     240//              // ROB: generate call to units routine
     241//      } // if
     242               
    187243        delete &str;                                                                            // created by lex
    188244        return ret;

  • src/Parser/ParseNode.h

    ra984e65 r51c6353  
    99// Author           : Rodolfo G. Esteves
    1010// Created On       : Sat May 16 13:28:16 2015
    11 // Last Modified By : Andrew Beach
    12 // Last Modified On : Thr Aug 17 13:46:00 2017
    13 // Update Count     : 795
     11// Last Modified By : Peter A. Buhr
     12// Last Modified On : Thu Aug 31 17:42:49 2017
     13// Update Count     : 797
    1414//
    1515
    … …  
    162162};
    163163
    164 Expression * build_constantInteger( const std::string &str );
    165 Expression * build_constantFloat( const std::string &str );
    166 Expression * build_constantChar( const std::string &str );
    167 ConstantExpr * build_constantStr( const std::string &str );
     164Expression * build_constantInteger( std::string &str );
     165Expression * build_constantFloat( std::string &str );
     166Expression * build_constantChar( std::string &str );
     167ConstantExpr * build_constantStr( std::string &str );
    168168Expression * build_field_name_FLOATINGconstant( const std::string & str );
    169169Expression * build_field_name_fraction_constants( Expression * fieldName, ExpressionNode * fracts );

  • src/Parser/lex.ll

    ra984e65 r51c6353  
    1010 * Created On       : Sat Sep 22 08:58:10 2001
    1111 * Last Modified By : Peter A. Buhr
    12  * Last Modified On : Wed Aug 30 17:35:21 2017
    13  * Update Count     : 584
     12 * Last Modified On : Thu Aug 31 21:30:10 2017
     13 * Update Count     : 598
    1414 */
    1515
    … …  
    5757        yyleng = 0;
    5858        for ( int i = 0; yytext[i] != '\0'; i += 1 ) {
     59                if ( yytext[i] == '`' ) {
     60                        // copy user suffix
     61                        for ( ; yytext[i] != '\0'; i += 1 ) {
     62                                yytext[yyleng] = yytext[i];
     63                                yyleng += 1;
     64                        } // for
     65                        break;
     66                } // if
    5967                if ( yytext[i] != '_' ) {
    6068                        yytext[yyleng] = yytext[i];
    … …  
    8189attr_identifier "@"{identifier}
    8290
     91user_suffix_opt ("`"{identifier})?
     92
    8393                                // numeric constants, CFA: '_' in constant
    8494hex_quad {hex}("_"?{hex}){3}
    85 integer_suffix "_"?(([uU](("ll"|"LL"|[lL])[iI]|[iI]?("ll"|"LL"|[lL])?))|([iI](("ll"|"LL"|[lL])[uU]|[uU]?("ll"|"LL"|[lL])?))|(("ll"|"LL"|[lL])([iI][uU]|[uU]?[iI]?)))
     95integer_suffix_opt ("_"?(([uU](("ll"|"LL"|[lL])[iI]|[iI]?("ll"|"LL"|[lL])?))|([iI](("ll"|"LL"|[lL])[uU]|[uU]?("ll"|"LL"|[lL])?))|(("ll"|"LL"|[lL])([iI][uU]|[uU]?[iI]?))))?
    8696
    8797octal_digits ({octal})|({octal}({octal}|"_")*{octal})
    8898octal_prefix "0""_"?
    89 octal_constant (("0")|({octal_prefix}{octal_digits})){integer_suffix}?
     99octal_constant (("0")|({octal_prefix}{octal_digits})){integer_suffix_opt}{user_suffix_opt}
    90100
    91101nonzero_digits ({nonzero})|({nonzero}({decimal}|"_")*{decimal})
    92 decimal_constant {nonzero_digits}{integer_suffix}?
     102decimal_constant {nonzero_digits}{integer_suffix_opt}{user_suffix_opt}
    93103
    94104hex_digits ({hex})|({hex}({hex}|"_")*{hex})
    95105hex_prefix "0"[xX]"_"?
    96 hex_constant {hex_prefix}{hex_digits}{integer_suffix}?
    97 
     106hex_constant {hex_prefix}{hex_digits}{integer_suffix_opt}{user_suffix_opt}
     107
     108                                // GCC: D (double) and iI (imaginary) suffixes, and DL (long double)
     109floating_suffix_opt ("_"?([fFdDlL][iI]?|[iI][lLfFdD]?|"DL"))?
    98110decimal_digits ({decimal})|({decimal}({decimal}|"_")*{decimal})
    99 real_decimal {decimal_digits}"."{exponent}?{floating_suffix}?
    100 real_fraction "."{decimal_digits}{exponent}?{floating_suffix}?
     111real_decimal {decimal_digits}"."{exponent}?{floating_suffix_opt}{user_suffix_opt}
     112real_fraction "."{decimal_digits}{exponent}?{floating_suffix_opt}{user_suffix_opt}
    101113real_constant {decimal_digits}{real_fraction}
    102114exponent "_"?[eE]"_"?[+-]?{decimal_digits}
    103                                 // GCC: D (double) and iI (imaginary) suffixes, and DL (long double)
    104 floating_suffix "_"?([fFdDlL][iI]?|[iI][lLfFdD]?|"DL")
    105 floating_constant (({real_constant}{exponent}?)|({decimal_digits}{exponent})){floating_suffix}?
     115floating_constant (({real_constant}{exponent}?)|({decimal_digits}{exponent})){floating_suffix_opt}{user_suffix_opt}
    106116
    107117binary_exponent "_"?[pP]"_"?[+-]?{decimal_digits}
    108118hex_fractional_constant ({hex_digits}?"."{hex_digits})|({hex_digits}".")
    109 hex_floating_constant {hex_prefix}(({hex_fractional_constant}{binary_exponent})|({hex_digits}{binary_exponent})){floating_suffix}?
     119hex_floating_constant {hex_prefix}(({hex_fractional_constant}{binary_exponent})|({hex_digits}{binary_exponent})){floating_suffix_opt}
    110120
    111121                                // character escape sequence, GCC: \e => esc character
    … …  
    308318({cwide_prefix}[_]?)?['] { BEGIN QUOTE; rm_underscore(); strtext = new string( yytext, yyleng ); }
    309319<QUOTE>[^'\\\n]* { strtext->append( yytext, yyleng ); }
    310 <QUOTE>['\n]    { BEGIN 0; strtext->append( yytext, yyleng ); RETURN_STR(CHARACTERconstant); }
     320<QUOTE>['\n]{user_suffix_opt}   { BEGIN 0; strtext->append( yytext, yyleng ); RETURN_STR(CHARACTERconstant); }
    311321                                /* ' stop highlighting */
    312322
    … …  
    314324({swide_prefix}[_]?)?["] { BEGIN STRING; rm_underscore(); strtext = new string( yytext, yyleng ); }
    315325<STRING>[^"\\\n]* { strtext->append( yytext, yyleng ); }
    316 <STRING>["\n]   { BEGIN 0; strtext->append( yytext, yyleng ); RETURN_STR(STRINGliteral); }
     326<STRING>["\n]{user_suffix_opt}  { BEGIN 0; strtext->append( yytext, yyleng ); RETURN_STR(STRINGliteral); }
    317327                                /* " stop highlighting */
    318328
    … …  
    387397{op_unary}"?"   { IDENTIFIER_RETURN(); }                                // unary
    388398"?"({op_unary_pre_post}|"()"|"[?]"|"{}") { IDENTIFIER_RETURN(); }
    389 "^?{}" { IDENTIFIER_RETURN(); }
     399"^?{}"                  { IDENTIFIER_RETURN(); }
     400"?`"{identifier} { IDENTIFIER_RETURN(); }                               // unit operator
    390401"?"{op_binary_over}"?"  { IDENTIFIER_RETURN(); }                // binary
    391402        /*
Note: See TracChangeset for help on using the changeset viewer.