ruby_parser 3.18.1 → 3.19.0

data/lib/ruby30_parser.y

@@ -80,7 +80,7 @@ rule
                 | klBEGIN
                     {
                       if (self.in_def || self.in_single > 0) then
-                        debug 11
+                        debug 1
                         yyerror "BEGIN in method"
                       end
                       self.env.extend
@@ -135,7 +135,7 @@ rule
                 | error stmt
                     {
                       result = val[1]
-                      debug 12
+                      debug 2
                     }
 
    stmt_or_begin: stmt
@@ -207,7 +207,7 @@ rule
                       (_, line), _, stmt, _ = val
 
                       if (self.in_def || self.in_single > 0) then
-                        debug 13
+                        debug 3
                         yyerror "END in method; use at_exit"
                       end
 
@@ -675,7 +675,7 @@ rule
                 | primary_value tCOLON2 tCONSTANT
                     {
                       if (self.in_def || self.in_single > 0) then
-                        debug 14
+                        debug 4
                         yyerror "dynamic constant assignment"
                       end
 
@@ -687,7 +687,7 @@ rule
                 | tCOLON3 tCONSTANT
                     {
                       if (self.in_def || self.in_single > 0) then
-                        debug 15
+                        debug 5
                         yyerror "dynamic constant assignment"
                       end
 
@@ -714,7 +714,7 @@ rule
 
                       result = self.assignable var
 
-                      debug 16
+                      debug 6
                     }
                 | primary_value tLBRACK2 opt_call_args rbracket
                     {
@@ -745,7 +745,7 @@ rule
                       expr, _, (id, _line) = val
 
                       if (self.in_def || self.in_single > 0) then
-                        debug 17
+                        debug 7
                         yyerror "dynamic constant assignment"
                       end
 
@@ -757,7 +757,7 @@ rule
                       _, (id, l) = val
 
                       if (self.in_def || self.in_single > 0) then
-                        debug 18
+                        debug 8
                         yyerror "dynamic constant assignment"
                       end
 
@@ -776,8 +776,7 @@ rule
 
            cpath: tCOLON3 cname
                     {
-                      _, (name, line) = val
-                      result = s(:colon3, name.to_sym).line line
+                      result = wrap :colon3, val[1]
                     }
                 | cname
                     {
@@ -802,9 +801,7 @@ rule
 
            fitem: fname
                     {
-                      (id, line), = val
-
-                      result = s(:lit, id.to_sym).line line
+                      result = wrap :lit, val[0]
                     }
                 | symbol
 
@@ -873,9 +870,9 @@ rule
                     }
                 | tCOLON3 tCONSTANT tOP_ASGN arg_rhs
                     {
-                      _, (lhs, line), op, rhs = val
+                      _, lhs, op, rhs = val
 
-                      lhs = s(:colon3, lhs.to_sym).line line
+                      lhs = wrap :colon3, lhs
                       result = new_const_op_asgn [lhs, op, rhs]
                     }
                 | backref tOP_ASGN arg_rhs
@@ -958,8 +955,8 @@ rule
                     }
                 | tUMINUS_NUM simple_numeric tPOW arg
                     {
-                      _, (num, line), _, arg = val
-                      lit = s(:lit, num).line line
+                      _, num, _, arg = val
+                      lit = wrap :lit, num
                       result = new_call(new_call(lit, :"**", argl(arg)), :"-@")
 
                     }
@@ -1052,46 +1049,19 @@ rule
                     }
                 | defn_head f_opt_paren_args tEQL arg
                     {
-                      (name, line, in_def), args, _, body = val
-
-                      result = s(:defn, name, args, body).line line
-
-                      local_pop in_def
-                      endless_method_name result
+                      result = new_endless_defn val
                     }
                 | defn_head f_opt_paren_args tEQL arg kRESCUE_MOD arg
                     {
-                      (name, line, in_def), args, _, body, _, resbody = val
-
-                      result = s(:defn, name, args,
-                                 new_rescue(body,
-                                            new_resbody(s(:array).line(line),
-                                                        resbody))).line line
-
-                      local_pop in_def
-                      endless_method_name result
+                      result = new_endless_defn val
                     }
                 | defs_head f_opt_paren_args tEQL arg
                     {
-                      (recv, (name, line, in_def)), args, _, body = val
-
-                      result = s(:defs, recv, name, args, body).line(line)
-
-                      self.in_single -= 1
-                      local_pop in_def
-                      endless_method_name result
+                      result = new_endless_defs val
                     }
                 | defs_head f_opt_paren_args tEQL arg kRESCUE_MOD arg
                     {
-                      (recv, (name, line, in_def)), args, _, body, _, resbody = val
-
-                      result = s(:defs, recv, name, args,
-                                 new_rescue(body,
-                                            new_resbody(s(:array).line(line),
-                                                        resbody))).line line
-
-                      local_pop in_def
-                      endless_method_name result
+                      result = new_endless_defs val
                     }
                 | primary
 
@@ -1366,9 +1336,7 @@ rule
                     }
                 | tCOLON3 tCONSTANT
                     {
-                      _, (id, line) = val
-
-                      result = s(:colon3, id.to_sym).line line
+                      result = wrap :colon3, val[1]
                     }
                 | tLBRACK { result = lexer.lineno } aref_args tRBRACK
                     {
@@ -1421,7 +1389,7 @@ rule
                     }
                 | kNOT tLPAREN2 rparen
                     {
-                      debug 19
+                      debug 9
                     }
                 | fcall brace_block
                     {
@@ -1731,6 +1699,7 @@ rule
     f_any_kwrest: f_kwrest
                 | f_no_kwarg
 
+
  block_args_tail: f_block_kwarg tCOMMA f_kwrest opt_f_block_arg
                     {
                       result = call_args val
@@ -1861,8 +1830,7 @@ opt_block_args_tail: tCOMMA block_args_tail
 
             bvar: tIDENTIFIER
                     {
-                      (id, line), = val
-                      result = s(:shadow, id.to_sym).line line
+                      result = wrap :shadow, val[0]
                     }
                 | f_bad_arg
 
@@ -2476,7 +2444,7 @@ opt_block_args_tail: tCOMMA block_args_tail
                         assignable [lhs.value, lhs.line]
                       else
                         # TODO or done?
-                        debug 666
+                        debug 10
                       end
 
                       # TODO PAIR -> LIST ?
@@ -2485,9 +2453,7 @@ opt_block_args_tail: tCOMMA block_args_tail
 
       p_kw_label: tLABEL
                     {
-                      (id, line), = val
-
-                      result = s(:lit, id.to_sym).line line
+                      result = wrap :lit, val[0]
                     }
 
         p_kwrest: kwrest_mark tIDENTIFIER
@@ -2582,26 +2548,21 @@ opt_block_args_tail: tCOMMA block_args_tail
 
       p_variable: tIDENTIFIER
                     {
-                      (id, line), = val
-
                       # TODO: error_duplicate_pattern_variable(p, $1, &@1);
                       # TODO: assignable(p, $1, 0, &@$);
-                      result = s(:lvar, id.to_sym).line line
+                      result = wrap :lvar, val[0]
                     }
 
        p_var_ref: tCARET tIDENTIFIER
                     {
-                      _, (id, line) = val
-
                       # TODO: check id against env for lvar or dvar
-
-                      result = s(:lvar, id.to_sym).line line
+                      result = wrap :lvar, val[1]
                     }
 
+
          p_const: tCOLON3 cname
                     {
-                      _, (id, line) = val
-                      result = s(:colon3, id.to_sym).line line
+                      result = wrap :colon3, val[1]
                     }
                 | p_const tCOLON2 cname
                     {
@@ -2613,8 +2574,7 @@ opt_block_args_tail: tCOMMA block_args_tail
                 | tCONSTANT
                     {
                       # TODO $$ = gettable(p, $1, &@$);
-                      (id, line), = val
-                      result = s(:const, id.to_sym).line line
+                      result = wrap :const, val[0]
                     }
 ######################################################################
 
@@ -2672,7 +2632,7 @@ opt_block_args_tail: tCOMMA block_args_tail
 
           string: tCHAR
                     {
-                      debug 36
+                      debug 12
                     }
                 | string1
                 | string string1
@@ -2893,25 +2853,22 @@ regexp_contents: none
                       when nil then
                         result = s(:evstr).line line
                       else
-                        debug 37
+                        debug 13
                         raise "unknown string body: #{stmt.inspect}"
                       end
                     }
 
      string_dvar: tGVAR
                     {
-                      (id, line), = val
-                      result = s(:gvar, id.to_sym).line line
+                      result = wrap :gvar, val[0]
                     }
                 | tIVAR
                     {
-                      (id, line), = val
-                      result = s(:ivar, id.to_sym).line line
+                      result = wrap :ivar, val[0]
                     }
                 | tCVAR
                     {
-                      (id, line), = val
-                      result = s(:cvar, id.to_sym).line line
+                      result = wrap :cvar, val[0]
                     }
                 | backref
 
@@ -2920,17 +2877,13 @@ regexp_contents: none
 
             ssym: tSYMBEG sym
                     {
-                      _, (id, line) = val
-
                       lexer.lex_state = EXPR_END
-                      result = s(:lit, id.to_sym).line line
+                      result = wrap :lit, val[1]
                     }
                 | tSYMBOL
                     {
-                      (id, line), = val
-
                       lexer.lex_state = EXPR_END
-                      result = s(:lit, id.to_sym).line line
+                      result = wrap :lit, val[0]
                     }
 
              sym: fname | tIVAR | tGVAR | tCVAR
@@ -2951,7 +2904,7 @@ regexp_contents: none
                       when :evstr then
                         result = s(:dsym, "", result).line result.line
                       else
-                        debug 38
+                        debug 14
                       end
                     }
 
@@ -2967,6 +2920,7 @@ regexp_contents: none
                 | tRATIONAL
                 | tIMAGINARY
 
+
    user_variable: tIDENTIFIER
                 | tIVAR
                 | tGVAR
@@ -3011,7 +2965,7 @@ keyword_variable: kNIL      { result = s(:nil).line lexer.lineno }
                 | keyword_variable
                     {
                       result = self.assignable val[0]
-                      debug 39
+                      debug 15
                     }
 
          backref: tNTH_REF
@@ -3292,17 +3246,25 @@ f_opt_paren_args: f_paren_args
                       result = [id, lexer.lineno] # TODO: tPOW/tDSTAR include lineno
                     }
 
-           f_opt: f_arg_asgn tEQL arg_value
+           f_opt: f_arg_asgn
+                    tEQL
+                    arg_value
                     {
                       lhs, _, rhs = val
                       result = self.assignable lhs, rhs
                       # TODO: detect duplicate names
+                      # TODO? p->cur_arg = 0;
+                      # TODO? p->ctxt.in_argdef = 1;
                     }
 
-     f_block_opt: f_arg_asgn tEQL primary_value
+     f_block_opt: f_arg_asgn
+                    tEQL
+                    primary_value
                     {
                       lhs, _, rhs = val
                       result = self.assignable lhs, rhs
+                      # TODO? p->cur_arg = 0;
+                      # TODO? p->ctxt.in_argdef = 1;
                     }
 
   f_block_optarg: f_block_opt
@@ -3354,6 +3316,12 @@ f_opt_paren_args: f_paren_args
                       self.env[identifier] = :lvar
                       result = ["&#{identifier}".to_sym, line]
                     }
+                | blkarg_mark
+                    {
+                      (_, line), = val
+
+                      result = [:&, line]
+                    }
 
  opt_f_block_arg: tCOMMA f_block_arg
                     {
@@ -3400,10 +3368,17 @@ f_opt_paren_args: f_paren_args
                     }
                 | tLABEL arg_value
                     {
-                      (label, line), arg = val
+                      label, arg = val
+
+                      lit = wrap :lit, label
+                      result = s(:array, lit, arg).line lit.line
+                    }
+                | tLABEL
+                    {
+                      lit = wrap :lit, val[0]
+                      arg = nil
 
-                      lit = s(:lit, label.to_sym).line line
-                      result = s(:array, lit, arg).line line
+                      result = s(:array, lit, arg).line lit.line
                     }
                 | tSTRING_BEG string_contents tLABEL_END arg_value
                     {