Linux server1.dn-server.com 4.18.0-553.89.1.lve.el8.x86_64 #1 SMP Wed Dec 10 13:58:50 UTC 2025 x86_64
LiteSpeed
Server IP : 195.201.204.189 & Your IP : 216.73.216.37
Domains :
Cant Read [ /etc/named.conf ]
User : beriska1
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
opt /
alt /
ruby19 /
share /
doc /
ruby /
html /
d3 /
d09 /
Delete
Unzip
Name
Size
Permission
Date
Action
ripper_8y.html
2.32
KB
-rw-r--r--
2023-07-26 17:26
ripper_8y_source.html
1.15
MB
-rw-r--r--
2023-07-26 17:26
Save
Rename
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/> <meta http-equiv="X-UA-Compatible" content="IE=9"/> <meta name="generator" content="Doxygen 1.8.14"/> <meta name="viewport" content="width=device-width, initial-scale=1"/> <title>Ruby: ext/ripper/ripper.y Source File</title> <link href="../../tabs.css" rel="stylesheet" type="text/css"/> <script type="text/javascript" src="../../jquery.js"></script> <script type="text/javascript" src="../../dynsections.js"></script> <link href="../../doxygen.css" rel="stylesheet" type="text/css" /> </head> <body> <div id="top"><!-- do not remove this div, it is closed by doxygen! --> <div id="titlearea"> <table cellspacing="0" cellpadding="0"> <tbody> <tr style="height: 56px;"> <td id="projectalign" style="padding-left: 0.5em;"> <div id="projectname">Ruby  <span id="projectnumber">1.9.3p551(2014-11-13revision48407)</span> </div> </td> </tr> </tbody> </table> </div> <!-- end header part --> <!-- Generated by Doxygen 1.8.14 --> <script type="text/javascript" src="../../menudata.js"></script> <script type="text/javascript" src="../../menu.js"></script> <script type="text/javascript"> /* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&dn=gpl-2.0.txt GPL-v2 */ $(function() { initMenu('../../',false,false,'search.php','Search'); }); /* @license-end */</script> <div id="main-nav"></div> <div id="nav-path" class="navpath"> <ul> <li class="navelem"><a class="el" href="../../dir_31cedd4509e06940f559c1ca2f722e02.html">ext</a></li><li class="navelem"><a class="el" href="../../dir_f31b4e64177b4fa91891089086fd6e81.html">ripper</a></li> </ul> </div> </div><!-- top --> <div class="header"> <div class="headertitle"> <div class="title">ripper.y</div> </div> </div><!--header--> <div class="contents"> <a href="../../d3/d09/ripper_8y.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno"> 1</span> /**********************************************************************</div><div class="line"><a name="l00002"></a><span class="lineno"> 2</span> </div><div class="line"><a name="l00003"></a><span class="lineno"> 3</span>  parse.y -</div><div class="line"><a name="l00004"></a><span class="lineno"> 4</span> </div><div class="line"><a name="l00005"></a><span class="lineno"> 5</span>  $Author: usa $</div><div class="line"><a name="l00006"></a><span class="lineno"> 6</span>  created at: Fri May 28 18:02:42 JST 1993</div><div class="line"><a name="l00007"></a><span class="lineno"> 7</span> </div><div class="line"><a name="l00008"></a><span class="lineno"> 8</span>  Copyright (C) 1993-2007 Yukihiro Matsumoto</div><div class="line"><a name="l00009"></a><span class="lineno"> 9</span> </div><div class="line"><a name="l00010"></a><span class="lineno"> 10</span> **********************************************************************/</div><div class="line"><a name="l00011"></a><span class="lineno"> 11</span> </div><div class="line"><a name="l00012"></a><span class="lineno"> 12</span> %{</div><div class="line"><a name="l00013"></a><span class="lineno"> 13</span> </div><div class="line"><a name="l00014"></a><span class="lineno"> 14</span> #define YYDEBUG 1</div><div class="line"><a name="l00015"></a><span class="lineno"> 15</span> #define YYERROR_VERBOSE 1</div><div class="line"><a name="l00016"></a><span class="lineno"> 16</span> #define YYSTACK_USE_ALLOCA 0</div><div class="line"><a name="l00017"></a><span class="lineno"> 17</span> </div><div class="line"><a name="l00018"></a><span class="lineno"> 18</span> #include "ruby/ruby.h"</div><div class="line"><a name="l00019"></a><span class="lineno"> 19</span> #include "ruby/st.h"</div><div class="line"><a name="l00020"></a><span class="lineno"> 20</span> #include "ruby/encoding.h"</div><div class="line"><a name="l00021"></a><span class="lineno"> 21</span> #include "internal.h"</div><div class="line"><a name="l00022"></a><span class="lineno"> 22</span> #include "node.h"</div><div class="line"><a name="l00023"></a><span class="lineno"> 23</span> #include "parse.h"</div><div class="line"><a name="l00024"></a><span class="lineno"> 24</span> #include "id.h"</div><div class="line"><a name="l00025"></a><span class="lineno"> 25</span> #include "regenc.h"</div><div class="line"><a name="l00026"></a><span class="lineno"> 26</span> #include <stdio.h></div><div class="line"><a name="l00027"></a><span class="lineno"> 27</span> #include <errno.h></div><div class="line"><a name="l00028"></a><span class="lineno"> 28</span> #include <ctype.h></div><div class="line"><a name="l00029"></a><span class="lineno"> 29</span> </div><div class="line"><a name="l00030"></a><span class="lineno"> 30</span> #define numberof(array) (int)(sizeof(array) / sizeof((array)[0]))</div><div class="line"><a name="l00031"></a><span class="lineno"> 31</span> </div><div class="line"><a name="l00032"></a><span class="lineno"> 32</span> #define YYMALLOC(size) rb_parser_malloc(parser, (size))</div><div class="line"><a name="l00033"></a><span class="lineno"> 33</span> #define YYREALLOC(ptr, size) rb_parser_realloc(parser, (ptr), (size))</div><div class="line"><a name="l00034"></a><span class="lineno"> 34</span> #define YYCALLOC(nelem, size) rb_parser_calloc(parser, (nelem), (size))</div><div class="line"><a name="l00035"></a><span class="lineno"> 35</span> #define YYFREE(ptr) rb_parser_free(parser, (ptr))</div><div class="line"><a name="l00036"></a><span class="lineno"> 36</span> #define malloc YYMALLOC</div><div class="line"><a name="l00037"></a><span class="lineno"> 37</span> #define realloc YYREALLOC</div><div class="line"><a name="l00038"></a><span class="lineno"> 38</span> #define calloc YYCALLOC</div><div class="line"><a name="l00039"></a><span class="lineno"> 39</span> #define free YYFREE</div><div class="line"><a name="l00040"></a><span class="lineno"> 40</span> </div><div class="line"><a name="l00041"></a><span class="lineno"> 41</span> #ifndef RIPPER</div><div class="line"><a name="l00042"></a><span class="lineno"> 42</span> static ID register_symid(ID, const char *, long, rb_encoding *);</div><div class="line"><a name="l00043"></a><span class="lineno"> 43</span> #define REGISTER_SYMID(id, name) register_symid((id), (name), strlen(name), enc)</div><div class="line"><a name="l00044"></a><span class="lineno"> 44</span> #include "id.c"</div><div class="line"><a name="l00045"></a><span class="lineno"> 45</span> #endif</div><div class="line"><a name="l00046"></a><span class="lineno"> 46</span> </div><div class="line"><a name="l00047"></a><span class="lineno"> 47</span> #define is_notop_id(id) ((id)>tLAST_TOKEN)</div><div class="line"><a name="l00048"></a><span class="lineno"> 48</span> #define is_local_id(id) (is_notop_id(id)&&((id)&ID_SCOPE_MASK)==ID_LOCAL)</div><div class="line"><a name="l00049"></a><span class="lineno"> 49</span> #define is_global_id(id) (is_notop_id(id)&&((id)&ID_SCOPE_MASK)==ID_GLOBAL)</div><div class="line"><a name="l00050"></a><span class="lineno"> 50</span> #define is_instance_id(id) (is_notop_id(id)&&((id)&ID_SCOPE_MASK)==ID_INSTANCE)</div><div class="line"><a name="l00051"></a><span class="lineno"> 51</span> #define is_attrset_id(id) (is_notop_id(id)&&((id)&ID_SCOPE_MASK)==ID_ATTRSET)</div><div class="line"><a name="l00052"></a><span class="lineno"> 52</span> #define is_const_id(id) (is_notop_id(id)&&((id)&ID_SCOPE_MASK)==ID_CONST)</div><div class="line"><a name="l00053"></a><span class="lineno"> 53</span> #define is_class_id(id) (is_notop_id(id)&&((id)&ID_SCOPE_MASK)==ID_CLASS)</div><div class="line"><a name="l00054"></a><span class="lineno"> 54</span> #define is_junk_id(id) (is_notop_id(id)&&((id)&ID_SCOPE_MASK)==ID_JUNK)</div><div class="line"><a name="l00055"></a><span class="lineno"> 55</span> </div><div class="line"><a name="l00056"></a><span class="lineno"> 56</span> #define is_asgn_or_id(id) ((is_notop_id(id)) && \</div><div class="line"><a name="l00057"></a><span class="lineno"> 57</span>  (((id)&ID_SCOPE_MASK) == ID_GLOBAL || \</div><div class="line"><a name="l00058"></a><span class="lineno"> 58</span>  ((id)&ID_SCOPE_MASK) == ID_INSTANCE || \</div><div class="line"><a name="l00059"></a><span class="lineno"> 59</span>  ((id)&ID_SCOPE_MASK) == ID_CLASS))</div><div class="line"><a name="l00060"></a><span class="lineno"> 60</span> </div><div class="line"><a name="l00061"></a><span class="lineno"> 61</span> enum lex_state_e {</div><div class="line"><a name="l00062"></a><span class="lineno"> 62</span>  EXPR_BEG, /* ignore newline, +/- is a sign. */</div><div class="line"><a name="l00063"></a><span class="lineno"> 63</span>  EXPR_END, /* newline significant, +/- is an operator. */</div><div class="line"><a name="l00064"></a><span class="lineno"> 64</span>  EXPR_ENDARG, /* ditto, and unbound braces. */</div><div class="line"><a name="l00065"></a><span class="lineno"> 65</span>  EXPR_ENDFN, /* ditto, and unbound braces. */</div><div class="line"><a name="l00066"></a><span class="lineno"> 66</span>  EXPR_ARG, /* newline significant, +/- is an operator. */</div><div class="line"><a name="l00067"></a><span class="lineno"> 67</span>  EXPR_CMDARG, /* newline significant, +/- is an operator. */</div><div class="line"><a name="l00068"></a><span class="lineno"> 68</span>  EXPR_MID, /* newline significant, +/- is an operator. */</div><div class="line"><a name="l00069"></a><span class="lineno"> 69</span>  EXPR_FNAME, /* ignore newline, no reserved words. */</div><div class="line"><a name="l00070"></a><span class="lineno"> 70</span>  EXPR_DOT, /* right after `.' or `::', no reserved words. */</div><div class="line"><a name="l00071"></a><span class="lineno"> 71</span>  EXPR_CLASS, /* immediate after `class', no here document. */</div><div class="line"><a name="l00072"></a><span class="lineno"> 72</span>  EXPR_VALUE, /* alike EXPR_BEG but label is disallowed. */</div><div class="line"><a name="l00073"></a><span class="lineno"> 73</span>  EXPR_MAX_STATE</div><div class="line"><a name="l00074"></a><span class="lineno"> 74</span> };</div><div class="line"><a name="l00075"></a><span class="lineno"> 75</span> </div><div class="line"><a name="l00076"></a><span class="lineno"> 76</span> typedef VALUE stack_type;</div><div class="line"><a name="l00077"></a><span class="lineno"> 77</span> </div><div class="line"><a name="l00078"></a><span class="lineno"> 78</span> # define BITSTACK_PUSH(stack, n) ((stack) = ((stack)<<1)|((n)&1))</div><div class="line"><a name="l00079"></a><span class="lineno"> 79</span> # define BITSTACK_POP(stack) ((stack) = (stack) >> 1)</div><div class="line"><a name="l00080"></a><span class="lineno"> 80</span> # define BITSTACK_LEXPOP(stack) ((stack) = ((stack) >> 1) | ((stack) & 1))</div><div class="line"><a name="l00081"></a><span class="lineno"> 81</span> # define BITSTACK_SET_P(stack) ((stack)&1)</div><div class="line"><a name="l00082"></a><span class="lineno"> 82</span> </div><div class="line"><a name="l00083"></a><span class="lineno"> 83</span> #define COND_PUSH(n) BITSTACK_PUSH(cond_stack, (n))</div><div class="line"><a name="l00084"></a><span class="lineno"> 84</span> #define COND_POP() BITSTACK_POP(cond_stack)</div><div class="line"><a name="l00085"></a><span class="lineno"> 85</span> #define COND_LEXPOP() BITSTACK_LEXPOP(cond_stack)</div><div class="line"><a name="l00086"></a><span class="lineno"> 86</span> #define COND_P() BITSTACK_SET_P(cond_stack)</div><div class="line"><a name="l00087"></a><span class="lineno"> 87</span> </div><div class="line"><a name="l00088"></a><span class="lineno"> 88</span> #define CMDARG_PUSH(n) BITSTACK_PUSH(cmdarg_stack, (n))</div><div class="line"><a name="l00089"></a><span class="lineno"> 89</span> #define CMDARG_POP() BITSTACK_POP(cmdarg_stack)</div><div class="line"><a name="l00090"></a><span class="lineno"> 90</span> #define CMDARG_LEXPOP() BITSTACK_LEXPOP(cmdarg_stack)</div><div class="line"><a name="l00091"></a><span class="lineno"> 91</span> #define CMDARG_P() BITSTACK_SET_P(cmdarg_stack)</div><div class="line"><a name="l00092"></a><span class="lineno"> 92</span> </div><div class="line"><a name="l00093"></a><span class="lineno"> 93</span> struct vtable {</div><div class="line"><a name="l00094"></a><span class="lineno"> 94</span>  ID *tbl;</div><div class="line"><a name="l00095"></a><span class="lineno"> 95</span>  int pos;</div><div class="line"><a name="l00096"></a><span class="lineno"> 96</span>  int capa;</div><div class="line"><a name="l00097"></a><span class="lineno"> 97</span>  struct vtable *prev;</div><div class="line"><a name="l00098"></a><span class="lineno"> 98</span> };</div><div class="line"><a name="l00099"></a><span class="lineno"> 99</span> </div><div class="line"><a name="l00100"></a><span class="lineno"> 100</span> struct local_vars {</div><div class="line"><a name="l00101"></a><span class="lineno"> 101</span>  struct vtable *args;</div><div class="line"><a name="l00102"></a><span class="lineno"> 102</span>  struct vtable *vars;</div><div class="line"><a name="l00103"></a><span class="lineno"> 103</span>  struct vtable *used;</div><div class="line"><a name="l00104"></a><span class="lineno"> 104</span>  struct local_vars *prev;</div><div class="line"><a name="l00105"></a><span class="lineno"> 105</span>  stack_type cmdargs;</div><div class="line"><a name="l00106"></a><span class="lineno"> 106</span> };</div><div class="line"><a name="l00107"></a><span class="lineno"> 107</span> </div><div class="line"><a name="l00108"></a><span class="lineno"> 108</span> #define DVARS_INHERIT ((void*)1)</div><div class="line"><a name="l00109"></a><span class="lineno"> 109</span> #define DVARS_TOPSCOPE NULL</div><div class="line"><a name="l00110"></a><span class="lineno"> 110</span> #define DVARS_SPECIAL_P(tbl) (!POINTER_P(tbl))</div><div class="line"><a name="l00111"></a><span class="lineno"> 111</span> #define POINTER_P(val) ((VALUE)(val) & ~(VALUE)3)</div><div class="line"><a name="l00112"></a><span class="lineno"> 112</span> </div><div class="line"><a name="l00113"></a><span class="lineno"> 113</span> static int</div><div class="line"><a name="l00114"></a><span class="lineno"> 114</span> vtable_size(const struct vtable *tbl)</div><div class="line"><a name="l00115"></a><span class="lineno"> 115</span> {</div><div class="line"><a name="l00116"></a><span class="lineno"> 116</span>  if (POINTER_P(tbl)) {</div><div class="line"><a name="l00117"></a><span class="lineno"> 117</span>  return tbl->pos;</div><div class="line"><a name="l00118"></a><span class="lineno"> 118</span>  }</div><div class="line"><a name="l00119"></a><span class="lineno"> 119</span>  else {</div><div class="line"><a name="l00120"></a><span class="lineno"> 120</span>  return 0;</div><div class="line"><a name="l00121"></a><span class="lineno"> 121</span>  }</div><div class="line"><a name="l00122"></a><span class="lineno"> 122</span> }</div><div class="line"><a name="l00123"></a><span class="lineno"> 123</span> </div><div class="line"><a name="l00124"></a><span class="lineno"> 124</span> #define VTBL_DEBUG 0</div><div class="line"><a name="l00125"></a><span class="lineno"> 125</span> </div><div class="line"><a name="l00126"></a><span class="lineno"> 126</span> static struct vtable *</div><div class="line"><a name="l00127"></a><span class="lineno"> 127</span> vtable_alloc(struct vtable *prev)</div><div class="line"><a name="l00128"></a><span class="lineno"> 128</span> {</div><div class="line"><a name="l00129"></a><span class="lineno"> 129</span>  struct vtable *tbl = ALLOC(struct vtable);</div><div class="line"><a name="l00130"></a><span class="lineno"> 130</span>  tbl->pos = 0;</div><div class="line"><a name="l00131"></a><span class="lineno"> 131</span>  tbl->capa = 8;</div><div class="line"><a name="l00132"></a><span class="lineno"> 132</span>  tbl->tbl = ALLOC_N(ID, tbl->capa);</div><div class="line"><a name="l00133"></a><span class="lineno"> 133</span>  tbl->prev = prev;</div><div class="line"><a name="l00134"></a><span class="lineno"> 134</span>  if (VTBL_DEBUG) printf("vtable_alloc: %p\n", (void *)tbl);</div><div class="line"><a name="l00135"></a><span class="lineno"> 135</span>  return tbl;</div><div class="line"><a name="l00136"></a><span class="lineno"> 136</span> }</div><div class="line"><a name="l00137"></a><span class="lineno"> 137</span> </div><div class="line"><a name="l00138"></a><span class="lineno"> 138</span> static void</div><div class="line"><a name="l00139"></a><span class="lineno"> 139</span> vtable_free(struct vtable *tbl)</div><div class="line"><a name="l00140"></a><span class="lineno"> 140</span> {</div><div class="line"><a name="l00141"></a><span class="lineno"> 141</span>  if (VTBL_DEBUG)printf("vtable_free: %p\n", (void *)tbl);</div><div class="line"><a name="l00142"></a><span class="lineno"> 142</span>  if (POINTER_P(tbl)) {</div><div class="line"><a name="l00143"></a><span class="lineno"> 143</span>  if (tbl->tbl) {</div><div class="line"><a name="l00144"></a><span class="lineno"> 144</span>  xfree(tbl->tbl);</div><div class="line"><a name="l00145"></a><span class="lineno"> 145</span>  }</div><div class="line"><a name="l00146"></a><span class="lineno"> 146</span>  xfree(tbl);</div><div class="line"><a name="l00147"></a><span class="lineno"> 147</span>  }</div><div class="line"><a name="l00148"></a><span class="lineno"> 148</span> }</div><div class="line"><a name="l00149"></a><span class="lineno"> 149</span> </div><div class="line"><a name="l00150"></a><span class="lineno"> 150</span> static void</div><div class="line"><a name="l00151"></a><span class="lineno"> 151</span> vtable_add(struct vtable *tbl, ID id)</div><div class="line"><a name="l00152"></a><span class="lineno"> 152</span> {</div><div class="line"><a name="l00153"></a><span class="lineno"> 153</span>  if (!POINTER_P(tbl)) {</div><div class="line"><a name="l00154"></a><span class="lineno"> 154</span>  rb_bug("vtable_add: vtable is not allocated (%p)", (void *)tbl);</div><div class="line"><a name="l00155"></a><span class="lineno"> 155</span>  }</div><div class="line"><a name="l00156"></a><span class="lineno"> 156</span>  if (VTBL_DEBUG) printf("vtable_add: %p, %s\n", (void *)tbl, rb_id2name(id));</div><div class="line"><a name="l00157"></a><span class="lineno"> 157</span> </div><div class="line"><a name="l00158"></a><span class="lineno"> 158</span>  if (tbl->pos == tbl->capa) {</div><div class="line"><a name="l00159"></a><span class="lineno"> 159</span>  tbl->capa = tbl->capa * 2;</div><div class="line"><a name="l00160"></a><span class="lineno"> 160</span>  REALLOC_N(tbl->tbl, ID, tbl->capa);</div><div class="line"><a name="l00161"></a><span class="lineno"> 161</span>  }</div><div class="line"><a name="l00162"></a><span class="lineno"> 162</span>  tbl->tbl[tbl->pos++] = id;</div><div class="line"><a name="l00163"></a><span class="lineno"> 163</span> }</div><div class="line"><a name="l00164"></a><span class="lineno"> 164</span> </div><div class="line"><a name="l00165"></a><span class="lineno"> 165</span> static int</div><div class="line"><a name="l00166"></a><span class="lineno"> 166</span> vtable_included(const struct vtable * tbl, ID id)</div><div class="line"><a name="l00167"></a><span class="lineno"> 167</span> {</div><div class="line"><a name="l00168"></a><span class="lineno"> 168</span>  int i;</div><div class="line"><a name="l00169"></a><span class="lineno"> 169</span> </div><div class="line"><a name="l00170"></a><span class="lineno"> 170</span>  if (POINTER_P(tbl)) {</div><div class="line"><a name="l00171"></a><span class="lineno"> 171</span>  for (i = 0; i < tbl->pos; i++) {</div><div class="line"><a name="l00172"></a><span class="lineno"> 172</span>  if (tbl->tbl[i] == id) {</div><div class="line"><a name="l00173"></a><span class="lineno"> 173</span>  return i+1;</div><div class="line"><a name="l00174"></a><span class="lineno"> 174</span>  }</div><div class="line"><a name="l00175"></a><span class="lineno"> 175</span>  }</div><div class="line"><a name="l00176"></a><span class="lineno"> 176</span>  }</div><div class="line"><a name="l00177"></a><span class="lineno"> 177</span>  return 0;</div><div class="line"><a name="l00178"></a><span class="lineno"> 178</span> }</div><div class="line"><a name="l00179"></a><span class="lineno"> 179</span> </div><div class="line"><a name="l00180"></a><span class="lineno"> 180</span> </div><div class="line"><a name="l00181"></a><span class="lineno"> 181</span> #ifndef RIPPER</div><div class="line"><a name="l00182"></a><span class="lineno"> 182</span> typedef struct token_info {</div><div class="line"><a name="l00183"></a><span class="lineno"> 183</span>  const char *token;</div><div class="line"><a name="l00184"></a><span class="lineno"> 184</span>  int linenum;</div><div class="line"><a name="l00185"></a><span class="lineno"> 185</span>  int column;</div><div class="line"><a name="l00186"></a><span class="lineno"> 186</span>  int nonspc;</div><div class="line"><a name="l00187"></a><span class="lineno"> 187</span>  struct token_info *next;</div><div class="line"><a name="l00188"></a><span class="lineno"> 188</span> } token_info;</div><div class="line"><a name="l00189"></a><span class="lineno"> 189</span> #endif</div><div class="line"><a name="l00190"></a><span class="lineno"> 190</span> </div><div class="line"><a name="l00191"></a><span class="lineno"> 191</span> /*</div><div class="line"><a name="l00192"></a><span class="lineno"> 192</span>  Structure of Lexer Buffer:</div><div class="line"><a name="l00193"></a><span class="lineno"> 193</span> </div><div class="line"><a name="l00194"></a><span class="lineno"> 194</span>  lex_pbeg tokp lex_p lex_pend</div><div class="line"><a name="l00195"></a><span class="lineno"> 195</span>  | | | |</div><div class="line"><a name="l00196"></a><span class="lineno"> 196</span>  |-----------+--------------+------------|</div><div class="line"><a name="l00197"></a><span class="lineno"> 197</span>  |<------------>|</div><div class="line"><a name="l00198"></a><span class="lineno"> 198</span>  token</div><div class="line"><a name="l00199"></a><span class="lineno"> 199</span> */</div><div class="line"><a name="l00200"></a><span class="lineno"> 200</span> struct parser_params {</div><div class="line"><a name="l00201"></a><span class="lineno"> 201</span>  int is_ripper;</div><div class="line"><a name="l00202"></a><span class="lineno"> 202</span>  NODE *heap;</div><div class="line"><a name="l00203"></a><span class="lineno"> 203</span> </div><div class="line"><a name="l00204"></a><span class="lineno"> 204</span>  YYSTYPE *parser_yylval;</div><div class="line"><a name="l00205"></a><span class="lineno"> 205</span>  VALUE eofp;</div><div class="line"><a name="l00206"></a><span class="lineno"> 206</span> </div><div class="line"><a name="l00207"></a><span class="lineno"> 207</span>  NODE *parser_lex_strterm;</div><div class="line"><a name="l00208"></a><span class="lineno"> 208</span>  enum lex_state_e parser_lex_state;</div><div class="line"><a name="l00209"></a><span class="lineno"> 209</span>  stack_type parser_cond_stack;</div><div class="line"><a name="l00210"></a><span class="lineno"> 210</span>  stack_type parser_cmdarg_stack;</div><div class="line"><a name="l00211"></a><span class="lineno"> 211</span>  int parser_class_nest;</div><div class="line"><a name="l00212"></a><span class="lineno"> 212</span>  int parser_paren_nest;</div><div class="line"><a name="l00213"></a><span class="lineno"> 213</span>  int parser_lpar_beg;</div><div class="line"><a name="l00214"></a><span class="lineno"> 214</span>  int parser_in_single;</div><div class="line"><a name="l00215"></a><span class="lineno"> 215</span>  int parser_in_def;</div><div class="line"><a name="l00216"></a><span class="lineno"> 216</span>  int parser_compile_for_eval;</div><div class="line"><a name="l00217"></a><span class="lineno"> 217</span>  VALUE parser_cur_mid;</div><div class="line"><a name="l00218"></a><span class="lineno"> 218</span>  int parser_in_defined;</div><div class="line"><a name="l00219"></a><span class="lineno"> 219</span>  char *parser_tokenbuf;</div><div class="line"><a name="l00220"></a><span class="lineno"> 220</span>  int parser_tokidx;</div><div class="line"><a name="l00221"></a><span class="lineno"> 221</span>  int parser_toksiz;</div><div class="line"><a name="l00222"></a><span class="lineno"> 222</span>  VALUE parser_lex_input;</div><div class="line"><a name="l00223"></a><span class="lineno"> 223</span>  VALUE parser_lex_lastline;</div><div class="line"><a name="l00224"></a><span class="lineno"> 224</span>  VALUE parser_lex_nextline;</div><div class="line"><a name="l00225"></a><span class="lineno"> 225</span>  const char *parser_lex_pbeg;</div><div class="line"><a name="l00226"></a><span class="lineno"> 226</span>  const char *parser_lex_p;</div><div class="line"><a name="l00227"></a><span class="lineno"> 227</span>  const char *parser_lex_pend;</div><div class="line"><a name="l00228"></a><span class="lineno"> 228</span>  int parser_heredoc_end;</div><div class="line"><a name="l00229"></a><span class="lineno"> 229</span>  int parser_command_start;</div><div class="line"><a name="l00230"></a><span class="lineno"> 230</span>  NODE *parser_deferred_nodes;</div><div class="line"><a name="l00231"></a><span class="lineno"> 231</span>  long parser_lex_gets_ptr;</div><div class="line"><a name="l00232"></a><span class="lineno"> 232</span>  VALUE (*parser_lex_gets)(struct parser_params*,VALUE);</div><div class="line"><a name="l00233"></a><span class="lineno"> 233</span>  struct local_vars *parser_lvtbl;</div><div class="line"><a name="l00234"></a><span class="lineno"> 234</span>  int parser_ruby__end__seen;</div><div class="line"><a name="l00235"></a><span class="lineno"> 235</span>  int line_count;</div><div class="line"><a name="l00236"></a><span class="lineno"> 236</span>  int has_shebang;</div><div class="line"><a name="l00237"></a><span class="lineno"> 237</span>  char *parser_ruby_sourcefile; /* current source file */</div><div class="line"><a name="l00238"></a><span class="lineno"> 238</span>  int parser_ruby_sourceline; /* current line no. */</div><div class="line"><a name="l00239"></a><span class="lineno"> 239</span>  rb_encoding *enc;</div><div class="line"><a name="l00240"></a><span class="lineno"> 240</span>  rb_encoding *utf8;</div><div class="line"><a name="l00241"></a><span class="lineno"> 241</span> </div><div class="line"><a name="l00242"></a><span class="lineno"> 242</span>  int parser_yydebug;</div><div class="line"><a name="l00243"></a><span class="lineno"> 243</span> </div><div class="line"><a name="l00244"></a><span class="lineno"> 244</span> #ifndef RIPPER</div><div class="line"><a name="l00245"></a><span class="lineno"> 245</span>  /* Ruby core only */</div><div class="line"><a name="l00246"></a><span class="lineno"> 246</span>  NODE *parser_eval_tree_begin;</div><div class="line"><a name="l00247"></a><span class="lineno"> 247</span>  NODE *parser_eval_tree;</div><div class="line"><a name="l00248"></a><span class="lineno"> 248</span>  VALUE debug_lines;</div><div class="line"><a name="l00249"></a><span class="lineno"> 249</span>  VALUE coverage;</div><div class="line"><a name="l00250"></a><span class="lineno"> 250</span>  int nerr;</div><div class="line"><a name="l00251"></a><span class="lineno"> 251</span> </div><div class="line"><a name="l00252"></a><span class="lineno"> 252</span>  int parser_token_info_enabled;</div><div class="line"><a name="l00253"></a><span class="lineno"> 253</span>  token_info *parser_token_info;</div><div class="line"><a name="l00254"></a><span class="lineno"> 254</span> #else</div><div class="line"><a name="l00255"></a><span class="lineno"> 255</span>  /* Ripper only */</div><div class="line"><a name="l00256"></a><span class="lineno"> 256</span>  VALUE parser_ruby_sourcefile_string;</div><div class="line"><a name="l00257"></a><span class="lineno"> 257</span>  const char *tokp;</div><div class="line"><a name="l00258"></a><span class="lineno"> 258</span>  VALUE delayed;</div><div class="line"><a name="l00259"></a><span class="lineno"> 259</span>  int delayed_line;</div><div class="line"><a name="l00260"></a><span class="lineno"> 260</span>  int delayed_col;</div><div class="line"><a name="l00261"></a><span class="lineno"> 261</span> </div><div class="line"><a name="l00262"></a><span class="lineno"> 262</span>  VALUE value;</div><div class="line"><a name="l00263"></a><span class="lineno"> 263</span>  VALUE result;</div><div class="line"><a name="l00264"></a><span class="lineno"> 264</span>  VALUE parsing_thread;</div><div class="line"><a name="l00265"></a><span class="lineno"> 265</span>  int toplevel_p;</div><div class="line"><a name="l00266"></a><span class="lineno"> 266</span> #endif</div><div class="line"><a name="l00267"></a><span class="lineno"> 267</span> };</div><div class="line"><a name="l00268"></a><span class="lineno"> 268</span> </div><div class="line"><a name="l00269"></a><span class="lineno"> 269</span> #define UTF8_ENC() (parser->utf8 ? parser->utf8 : \</div><div class="line"><a name="l00270"></a><span class="lineno"> 270</span>  (parser->utf8 = rb_utf8_encoding()))</div><div class="line"><a name="l00271"></a><span class="lineno"> 271</span> #define STR_NEW(p,n) rb_enc_str_new((p),(n),parser->enc)</div><div class="line"><a name="l00272"></a><span class="lineno"> 272</span> #define STR_NEW0() rb_enc_str_new(0,0,parser->enc)</div><div class="line"><a name="l00273"></a><span class="lineno"> 273</span> #define STR_NEW2(p) rb_enc_str_new((p),strlen(p),parser->enc)</div><div class="line"><a name="l00274"></a><span class="lineno"> 274</span> #define STR_NEW3(p,n,e,func) parser_str_new((p),(n),(e),(func),parser->enc)</div><div class="line"><a name="l00275"></a><span class="lineno"> 275</span> #define ENC_SINGLE(cr) ((cr)==ENC_CODERANGE_7BIT)</div><div class="line"><a name="l00276"></a><span class="lineno"> 276</span> #define TOK_INTERN(mb) rb_intern3(tok(), toklen(), parser->enc)</div><div class="line"><a name="l00277"></a><span class="lineno"> 277</span> </div><div class="line"><a name="l00278"></a><span class="lineno"> 278</span> static int parser_yyerror(struct parser_params*, const char*);</div><div class="line"><a name="l00279"></a><span class="lineno"> 279</span> #define yyerror(msg) parser_yyerror(parser, (msg))</div><div class="line"><a name="l00280"></a><span class="lineno"> 280</span> </div><div class="line"><a name="l00281"></a><span class="lineno"> 281</span> #define lex_strterm (parser->parser_lex_strterm)</div><div class="line"><a name="l00282"></a><span class="lineno"> 282</span> #define lex_state (parser->parser_lex_state)</div><div class="line"><a name="l00283"></a><span class="lineno"> 283</span> #define cond_stack (parser->parser_cond_stack)</div><div class="line"><a name="l00284"></a><span class="lineno"> 284</span> #define cmdarg_stack (parser->parser_cmdarg_stack)</div><div class="line"><a name="l00285"></a><span class="lineno"> 285</span> #define class_nest (parser->parser_class_nest)</div><div class="line"><a name="l00286"></a><span class="lineno"> 286</span> #define paren_nest (parser->parser_paren_nest)</div><div class="line"><a name="l00287"></a><span class="lineno"> 287</span> #define lpar_beg (parser->parser_lpar_beg)</div><div class="line"><a name="l00288"></a><span class="lineno"> 288</span> #define in_single (parser->parser_in_single)</div><div class="line"><a name="l00289"></a><span class="lineno"> 289</span> #define in_def (parser->parser_in_def)</div><div class="line"><a name="l00290"></a><span class="lineno"> 290</span> #define compile_for_eval (parser->parser_compile_for_eval)</div><div class="line"><a name="l00291"></a><span class="lineno"> 291</span> #define cur_mid (parser->parser_cur_mid)</div><div class="line"><a name="l00292"></a><span class="lineno"> 292</span> #define in_defined (parser->parser_in_defined)</div><div class="line"><a name="l00293"></a><span class="lineno"> 293</span> #define tokenbuf (parser->parser_tokenbuf)</div><div class="line"><a name="l00294"></a><span class="lineno"> 294</span> #define tokidx (parser->parser_tokidx)</div><div class="line"><a name="l00295"></a><span class="lineno"> 295</span> #define toksiz (parser->parser_toksiz)</div><div class="line"><a name="l00296"></a><span class="lineno"> 296</span> #define lex_input (parser->parser_lex_input)</div><div class="line"><a name="l00297"></a><span class="lineno"> 297</span> #define lex_lastline (parser->parser_lex_lastline)</div><div class="line"><a name="l00298"></a><span class="lineno"> 298</span> #define lex_nextline (parser->parser_lex_nextline)</div><div class="line"><a name="l00299"></a><span class="lineno"> 299</span> #define lex_pbeg (parser->parser_lex_pbeg)</div><div class="line"><a name="l00300"></a><span class="lineno"> 300</span> #define lex_p (parser->parser_lex_p)</div><div class="line"><a name="l00301"></a><span class="lineno"> 301</span> #define lex_pend (parser->parser_lex_pend)</div><div class="line"><a name="l00302"></a><span class="lineno"> 302</span> #define heredoc_end (parser->parser_heredoc_end)</div><div class="line"><a name="l00303"></a><span class="lineno"> 303</span> #define command_start (parser->parser_command_start)</div><div class="line"><a name="l00304"></a><span class="lineno"> 304</span> #define deferred_nodes (parser->parser_deferred_nodes)</div><div class="line"><a name="l00305"></a><span class="lineno"> 305</span> #define lex_gets_ptr (parser->parser_lex_gets_ptr)</div><div class="line"><a name="l00306"></a><span class="lineno"> 306</span> #define lex_gets (parser->parser_lex_gets)</div><div class="line"><a name="l00307"></a><span class="lineno"> 307</span> #define lvtbl (parser->parser_lvtbl)</div><div class="line"><a name="l00308"></a><span class="lineno"> 308</span> #define ruby__end__seen (parser->parser_ruby__end__seen)</div><div class="line"><a name="l00309"></a><span class="lineno"> 309</span> #define ruby_sourceline (parser->parser_ruby_sourceline)</div><div class="line"><a name="l00310"></a><span class="lineno"> 310</span> #define ruby_sourcefile (parser->parser_ruby_sourcefile)</div><div class="line"><a name="l00311"></a><span class="lineno"> 311</span> #define current_enc (parser->enc)</div><div class="line"><a name="l00312"></a><span class="lineno"> 312</span> #define yydebug (parser->parser_yydebug)</div><div class="line"><a name="l00313"></a><span class="lineno"> 313</span> #ifdef RIPPER</div><div class="line"><a name="l00314"></a><span class="lineno"> 314</span> #else</div><div class="line"><a name="l00315"></a><span class="lineno"> 315</span> #define ruby_eval_tree (parser->parser_eval_tree)</div><div class="line"><a name="l00316"></a><span class="lineno"> 316</span> #define ruby_eval_tree_begin (parser->parser_eval_tree_begin)</div><div class="line"><a name="l00317"></a><span class="lineno"> 317</span> #define ruby_debug_lines (parser->debug_lines)</div><div class="line"><a name="l00318"></a><span class="lineno"> 318</span> #define ruby_coverage (parser->coverage)</div><div class="line"><a name="l00319"></a><span class="lineno"> 319</span> #endif</div><div class="line"><a name="l00320"></a><span class="lineno"> 320</span> </div><div class="line"><a name="l00321"></a><span class="lineno"> 321</span> #if YYPURE</div><div class="line"><a name="l00322"></a><span class="lineno"> 322</span> static int yylex(void*, void*);</div><div class="line"><a name="l00323"></a><span class="lineno"> 323</span> #else</div><div class="line"><a name="l00324"></a><span class="lineno"> 324</span> static int yylex(void*);</div><div class="line"><a name="l00325"></a><span class="lineno"> 325</span> #endif</div><div class="line"><a name="l00326"></a><span class="lineno"> 326</span> </div><div class="line"><a name="l00327"></a><span class="lineno"> 327</span> #ifndef RIPPER</div><div class="line"><a name="l00328"></a><span class="lineno"> 328</span> #define yyparse ruby_yyparse</div><div class="line"><a name="l00329"></a><span class="lineno"> 329</span> </div><div class="line"><a name="l00330"></a><span class="lineno"> 330</span> static NODE* node_newnode(struct parser_params *, enum node_type, VALUE, VALUE, VALUE);</div><div class="line"><a name="l00331"></a><span class="lineno"> 331</span> #define rb_node_newnode(type, a1, a2, a3) node_newnode(parser, (type), (a1), (a2), (a3))</div><div class="line"><a name="l00332"></a><span class="lineno"> 332</span> </div><div class="line"><a name="l00333"></a><span class="lineno"> 333</span> static NODE *cond_gen(struct parser_params*,NODE*);</div><div class="line"><a name="l00334"></a><span class="lineno"> 334</span> #define cond(node) cond_gen(parser, (node))</div><div class="line"><a name="l00335"></a><span class="lineno"> 335</span> static NODE *logop_gen(struct parser_params*,enum node_type,NODE*,NODE*);</div><div class="line"><a name="l00336"></a><span class="lineno"> 336</span> #define logop(type,node1,node2) logop_gen(parser, (type), (node1), (node2))</div><div class="line"><a name="l00337"></a><span class="lineno"> 337</span> </div><div class="line"><a name="l00338"></a><span class="lineno"> 338</span> static NODE *newline_node(NODE*);</div><div class="line"><a name="l00339"></a><span class="lineno"> 339</span> static void fixpos(NODE*,NODE*);</div><div class="line"><a name="l00340"></a><span class="lineno"> 340</span> </div><div class="line"><a name="l00341"></a><span class="lineno"> 341</span> static int value_expr_gen(struct parser_params*,NODE*);</div><div class="line"><a name="l00342"></a><span class="lineno"> 342</span> static void void_expr_gen(struct parser_params*,NODE*);</div><div class="line"><a name="l00343"></a><span class="lineno"> 343</span> static NODE *remove_begin(NODE*);</div><div class="line"><a name="l00344"></a><span class="lineno"> 344</span> #define value_expr(node) value_expr_gen(parser, (node) = remove_begin(node))</div><div class="line"><a name="l00345"></a><span class="lineno"> 345</span> #define void_expr0(node) void_expr_gen(parser, (node))</div><div class="line"><a name="l00346"></a><span class="lineno"> 346</span> #define void_expr(node) void_expr0((node) = remove_begin(node))</div><div class="line"><a name="l00347"></a><span class="lineno"> 347</span> static void void_stmts_gen(struct parser_params*,NODE*);</div><div class="line"><a name="l00348"></a><span class="lineno"> 348</span> #define void_stmts(node) void_stmts_gen(parser, (node))</div><div class="line"><a name="l00349"></a><span class="lineno"> 349</span> static void reduce_nodes_gen(struct parser_params*,NODE**);</div><div class="line"><a name="l00350"></a><span class="lineno"> 350</span> #define reduce_nodes(n) reduce_nodes_gen(parser,(n))</div><div class="line"><a name="l00351"></a><span class="lineno"> 351</span> static void block_dup_check_gen(struct parser_params*,NODE*,NODE*);</div><div class="line"><a name="l00352"></a><span class="lineno"> 352</span> #define block_dup_check(n1,n2) block_dup_check_gen(parser,(n1),(n2))</div><div class="line"><a name="l00353"></a><span class="lineno"> 353</span> </div><div class="line"><a name="l00354"></a><span class="lineno"> 354</span> static NODE *block_append_gen(struct parser_params*,NODE*,NODE*);</div><div class="line"><a name="l00355"></a><span class="lineno"> 355</span> #define block_append(h,t) block_append_gen(parser,(h),(t))</div><div class="line"><a name="l00356"></a><span class="lineno"> 356</span> static NODE *list_append_gen(struct parser_params*,NODE*,NODE*);</div><div class="line"><a name="l00357"></a><span class="lineno"> 357</span> #define list_append(l,i) list_append_gen(parser,(l),(i))</div><div class="line"><a name="l00358"></a><span class="lineno"> 358</span> static NODE *list_concat_gen(struct parser_params*,NODE*,NODE*);</div><div class="line"><a name="l00359"></a><span class="lineno"> 359</span> #define list_concat(h,t) list_concat_gen(parser,(h),(t))</div><div class="line"><a name="l00360"></a><span class="lineno"> 360</span> static NODE *arg_append_gen(struct parser_params*,NODE*,NODE*);</div><div class="line"><a name="l00361"></a><span class="lineno"> 361</span> #define arg_append(h,t) arg_append_gen(parser,(h),(t))</div><div class="line"><a name="l00362"></a><span class="lineno"> 362</span> static NODE *arg_concat_gen(struct parser_params*,NODE*,NODE*);</div><div class="line"><a name="l00363"></a><span class="lineno"> 363</span> #define arg_concat(h,t) arg_concat_gen(parser,(h),(t))</div><div class="line"><a name="l00364"></a><span class="lineno"> 364</span> static NODE *literal_concat_gen(struct parser_params*,NODE*,NODE*);</div><div class="line"><a name="l00365"></a><span class="lineno"> 365</span> #define literal_concat(h,t) literal_concat_gen(parser,(h),(t))</div><div class="line"><a name="l00366"></a><span class="lineno"> 366</span> static int literal_concat0(struct parser_params *, VALUE, VALUE);</div><div class="line"><a name="l00367"></a><span class="lineno"> 367</span> static NODE *new_evstr_gen(struct parser_params*,NODE*);</div><div class="line"><a name="l00368"></a><span class="lineno"> 368</span> #define new_evstr(n) new_evstr_gen(parser,(n))</div><div class="line"><a name="l00369"></a><span class="lineno"> 369</span> static NODE *evstr2dstr_gen(struct parser_params*,NODE*);</div><div class="line"><a name="l00370"></a><span class="lineno"> 370</span> #define evstr2dstr(n) evstr2dstr_gen(parser,(n))</div><div class="line"><a name="l00371"></a><span class="lineno"> 371</span> static NODE *splat_array(NODE*);</div><div class="line"><a name="l00372"></a><span class="lineno"> 372</span> </div><div class="line"><a name="l00373"></a><span class="lineno"> 373</span> static NODE *call_bin_op_gen(struct parser_params*,NODE*,ID,NODE*);</div><div class="line"><a name="l00374"></a><span class="lineno"> 374</span> #define call_bin_op(recv,id,arg1) call_bin_op_gen(parser, (recv),(id),(arg1))</div><div class="line"><a name="l00375"></a><span class="lineno"> 375</span> static NODE *call_uni_op_gen(struct parser_params*,NODE*,ID);</div><div class="line"><a name="l00376"></a><span class="lineno"> 376</span> #define call_uni_op(recv,id) call_uni_op_gen(parser, (recv),(id))</div><div class="line"><a name="l00377"></a><span class="lineno"> 377</span> </div><div class="line"><a name="l00378"></a><span class="lineno"> 378</span> static NODE *new_args_gen(struct parser_params*,NODE*,NODE*,ID,NODE*,ID);</div><div class="line"><a name="l00379"></a><span class="lineno"> 379</span> #define new_args(f,o,r,p,b) new_args_gen(parser, (f),(o),(r),(p),(b))</div><div class="line"><a name="l00380"></a><span class="lineno"> 380</span> </div><div class="line"><a name="l00381"></a><span class="lineno"> 381</span> static NODE *negate_lit(NODE*);</div><div class="line"><a name="l00382"></a><span class="lineno"> 382</span> static NODE *ret_args_gen(struct parser_params*,NODE*);</div><div class="line"><a name="l00383"></a><span class="lineno"> 383</span> #define ret_args(node) ret_args_gen(parser, (node))</div><div class="line"><a name="l00384"></a><span class="lineno"> 384</span> static NODE *arg_blk_pass(NODE*,NODE*);</div><div class="line"><a name="l00385"></a><span class="lineno"> 385</span> static NODE *new_yield_gen(struct parser_params*,NODE*);</div><div class="line"><a name="l00386"></a><span class="lineno"> 386</span> #define new_yield(node) new_yield_gen(parser, (node))</div><div class="line"><a name="l00387"></a><span class="lineno"> 387</span> </div><div class="line"><a name="l00388"></a><span class="lineno"> 388</span> static NODE *gettable_gen(struct parser_params*,ID);</div><div class="line"><a name="l00389"></a><span class="lineno"> 389</span> #define gettable(id) gettable_gen(parser,(id))</div><div class="line"><a name="l00390"></a><span class="lineno"> 390</span> static NODE *assignable_gen(struct parser_params*,ID,NODE*);</div><div class="line"><a name="l00391"></a><span class="lineno"> 391</span> #define assignable(id,node) assignable_gen(parser, (id), (node))</div><div class="line"><a name="l00392"></a><span class="lineno"> 392</span> </div><div class="line"><a name="l00393"></a><span class="lineno"> 393</span> static NODE *aryset_gen(struct parser_params*,NODE*,NODE*);</div><div class="line"><a name="l00394"></a><span class="lineno"> 394</span> #define aryset(node1,node2) aryset_gen(parser, (node1), (node2))</div><div class="line"><a name="l00395"></a><span class="lineno"> 395</span> static NODE *attrset_gen(struct parser_params*,NODE*,ID);</div><div class="line"><a name="l00396"></a><span class="lineno"> 396</span> #define attrset(node,id) attrset_gen(parser, (node), (id))</div><div class="line"><a name="l00397"></a><span class="lineno"> 397</span> </div><div class="line"><a name="l00398"></a><span class="lineno"> 398</span> static void rb_backref_error_gen(struct parser_params*,NODE*);</div><div class="line"><a name="l00399"></a><span class="lineno"> 399</span> #define rb_backref_error(n) rb_backref_error_gen(parser,(n))</div><div class="line"><a name="l00400"></a><span class="lineno"> 400</span> static NODE *node_assign_gen(struct parser_params*,NODE*,NODE*);</div><div class="line"><a name="l00401"></a><span class="lineno"> 401</span> #define node_assign(node1, node2) node_assign_gen(parser, (node1), (node2))</div><div class="line"><a name="l00402"></a><span class="lineno"> 402</span> </div><div class="line"><a name="l00403"></a><span class="lineno"> 403</span> static NODE *match_op_gen(struct parser_params*,NODE*,NODE*);</div><div class="line"><a name="l00404"></a><span class="lineno"> 404</span> #define match_op(node1,node2) match_op_gen(parser, (node1), (node2))</div><div class="line"><a name="l00405"></a><span class="lineno"> 405</span> </div><div class="line"><a name="l00406"></a><span class="lineno"> 406</span> static ID *local_tbl_gen(struct parser_params*);</div><div class="line"><a name="l00407"></a><span class="lineno"> 407</span> #define local_tbl() local_tbl_gen(parser)</div><div class="line"><a name="l00408"></a><span class="lineno"> 408</span> </div><div class="line"><a name="l00409"></a><span class="lineno"> 409</span> static void fixup_nodes(NODE **);</div><div class="line"><a name="l00410"></a><span class="lineno"> 410</span> </div><div class="line"><a name="l00411"></a><span class="lineno"> 411</span> static VALUE reg_compile_gen(struct parser_params*, VALUE, int);</div><div class="line"><a name="l00412"></a><span class="lineno"> 412</span> #define reg_compile(str,options) reg_compile_gen(parser, (str), (options))</div><div class="line"><a name="l00413"></a><span class="lineno"> 413</span> static void reg_fragment_setenc_gen(struct parser_params*, VALUE, int);</div><div class="line"><a name="l00414"></a><span class="lineno"> 414</span> #define reg_fragment_setenc(str,options) reg_fragment_setenc_gen(parser, (str), (options))</div><div class="line"><a name="l00415"></a><span class="lineno"> 415</span> static int reg_fragment_check_gen(struct parser_params*, VALUE, int);</div><div class="line"><a name="l00416"></a><span class="lineno"> 416</span> #define reg_fragment_check(str,options) reg_fragment_check_gen(parser, (str), (options))</div><div class="line"><a name="l00417"></a><span class="lineno"> 417</span> static NODE *reg_named_capture_assign_gen(struct parser_params* parser, VALUE regexp, NODE *match);</div><div class="line"><a name="l00418"></a><span class="lineno"> 418</span> #define reg_named_capture_assign(regexp,match) reg_named_capture_assign_gen(parser,(regexp),(match))</div><div class="line"><a name="l00419"></a><span class="lineno"> 419</span> </div><div class="line"><a name="l00420"></a><span class="lineno"> 420</span> #define get_id(id) (id)</div><div class="line"><a name="l00421"></a><span class="lineno"> 421</span> #define get_value(val) (val)</div><div class="line"><a name="l00422"></a><span class="lineno"> 422</span> #else</div><div class="line"><a name="l00423"></a><span class="lineno"> 423</span> #define remove_begin(node) (node)</div><div class="line"><a name="l00424"></a><span class="lineno"> 424</span> #define rb_dvar_defined(id) 0</div><div class="line"><a name="l00425"></a><span class="lineno"> 425</span> #define rb_local_defined(id) 0</div><div class="line"><a name="l00426"></a><span class="lineno"> 426</span> static ID ripper_get_id(VALUE);</div><div class="line"><a name="l00427"></a><span class="lineno"> 427</span> #define get_id(id) ripper_get_id(id)</div><div class="line"><a name="l00428"></a><span class="lineno"> 428</span> static VALUE ripper_get_value(VALUE);</div><div class="line"><a name="l00429"></a><span class="lineno"> 429</span> #define get_value(val) ripper_get_value(val)</div><div class="line"><a name="l00430"></a><span class="lineno"> 430</span> static VALUE assignable_gen(struct parser_params*,VALUE);</div><div class="line"><a name="l00431"></a><span class="lineno"> 431</span> #define assignable(lhs,node) assignable_gen(parser, (lhs))</div><div class="line"><a name="l00432"></a><span class="lineno"> 432</span> static int id_is_var_gen(struct parser_params *parser, ID id);</div><div class="line"><a name="l00433"></a><span class="lineno"> 433</span> #define id_is_var(id) id_is_var_gen(parser, (id))</div><div class="line"><a name="l00434"></a><span class="lineno"> 434</span> #endif /* !RIPPER */</div><div class="line"><a name="l00435"></a><span class="lineno"> 435</span> </div><div class="line"><a name="l00436"></a><span class="lineno"> 436</span> static ID formal_argument_gen(struct parser_params*, ID);</div><div class="line"><a name="l00437"></a><span class="lineno"> 437</span> #define formal_argument(id) formal_argument_gen(parser, (id))</div><div class="line"><a name="l00438"></a><span class="lineno"> 438</span> static ID shadowing_lvar_gen(struct parser_params*,ID);</div><div class="line"><a name="l00439"></a><span class="lineno"> 439</span> #define shadowing_lvar(name) shadowing_lvar_gen(parser, (name))</div><div class="line"><a name="l00440"></a><span class="lineno"> 440</span> static void new_bv_gen(struct parser_params*,ID);</div><div class="line"><a name="l00441"></a><span class="lineno"> 441</span> #define new_bv(id) new_bv_gen(parser, (id))</div><div class="line"><a name="l00442"></a><span class="lineno"> 442</span> </div><div class="line"><a name="l00443"></a><span class="lineno"> 443</span> static void local_push_gen(struct parser_params*,int);</div><div class="line"><a name="l00444"></a><span class="lineno"> 444</span> #define local_push(top) local_push_gen(parser,(top))</div><div class="line"><a name="l00445"></a><span class="lineno"> 445</span> static void local_pop_gen(struct parser_params*);</div><div class="line"><a name="l00446"></a><span class="lineno"> 446</span> #define local_pop() local_pop_gen(parser)</div><div class="line"><a name="l00447"></a><span class="lineno"> 447</span> static int local_var_gen(struct parser_params*, ID);</div><div class="line"><a name="l00448"></a><span class="lineno"> 448</span> #define local_var(id) local_var_gen(parser, (id));</div><div class="line"><a name="l00449"></a><span class="lineno"> 449</span> static int arg_var_gen(struct parser_params*, ID);</div><div class="line"><a name="l00450"></a><span class="lineno"> 450</span> #define arg_var(id) arg_var_gen(parser, (id))</div><div class="line"><a name="l00451"></a><span class="lineno"> 451</span> static int local_id_gen(struct parser_params*, ID);</div><div class="line"><a name="l00452"></a><span class="lineno"> 452</span> #define local_id(id) local_id_gen(parser, (id))</div><div class="line"><a name="l00453"></a><span class="lineno"> 453</span> static ID internal_id_gen(struct parser_params*);</div><div class="line"><a name="l00454"></a><span class="lineno"> 454</span> #define internal_id() internal_id_gen(parser)</div><div class="line"><a name="l00455"></a><span class="lineno"> 455</span> </div><div class="line"><a name="l00456"></a><span class="lineno"> 456</span> static const struct vtable *dyna_push_gen(struct parser_params *);</div><div class="line"><a name="l00457"></a><span class="lineno"> 457</span> #define dyna_push() dyna_push_gen(parser)</div><div class="line"><a name="l00458"></a><span class="lineno"> 458</span> static void dyna_pop_gen(struct parser_params*, const struct vtable *);</div><div class="line"><a name="l00459"></a><span class="lineno"> 459</span> #define dyna_pop(node) dyna_pop_gen(parser, (node))</div><div class="line"><a name="l00460"></a><span class="lineno"> 460</span> static int dyna_in_block_gen(struct parser_params*);</div><div class="line"><a name="l00461"></a><span class="lineno"> 461</span> #define dyna_in_block() dyna_in_block_gen(parser)</div><div class="line"><a name="l00462"></a><span class="lineno"> 462</span> #define dyna_var(id) local_var(id)</div><div class="line"><a name="l00463"></a><span class="lineno"> 463</span> static int dvar_defined_gen(struct parser_params*,ID,int);</div><div class="line"><a name="l00464"></a><span class="lineno"> 464</span> #define dvar_defined(id) dvar_defined_gen(parser, (id), 0)</div><div class="line"><a name="l00465"></a><span class="lineno"> 465</span> #define dvar_defined_get(id) dvar_defined_gen(parser, (id), 1)</div><div class="line"><a name="l00466"></a><span class="lineno"> 466</span> static int dvar_curr_gen(struct parser_params*,ID);</div><div class="line"><a name="l00467"></a><span class="lineno"> 467</span> #define dvar_curr(id) dvar_curr_gen(parser, (id))</div><div class="line"><a name="l00468"></a><span class="lineno"> 468</span> </div><div class="line"><a name="l00469"></a><span class="lineno"> 469</span> static int lvar_defined_gen(struct parser_params*, ID);</div><div class="line"><a name="l00470"></a><span class="lineno"> 470</span> #define lvar_defined(id) lvar_defined_gen(parser, (id))</div><div class="line"><a name="l00471"></a><span class="lineno"> 471</span> </div><div class="line"><a name="l00472"></a><span class="lineno"> 472</span> #define RE_OPTION_ONCE (1<<16)</div><div class="line"><a name="l00473"></a><span class="lineno"> 473</span> #define RE_OPTION_ENCODING_SHIFT 8</div><div class="line"><a name="l00474"></a><span class="lineno"> 474</span> #define RE_OPTION_ENCODING(e) (((e)&0xff)<<RE_OPTION_ENCODING_SHIFT)</div><div class="line"><a name="l00475"></a><span class="lineno"> 475</span> #define RE_OPTION_ENCODING_IDX(o) (((o)>>RE_OPTION_ENCODING_SHIFT)&0xff)</div><div class="line"><a name="l00476"></a><span class="lineno"> 476</span> #define RE_OPTION_ENCODING_NONE(o) ((o)&RE_OPTION_ARG_ENCODING_NONE)</div><div class="line"><a name="l00477"></a><span class="lineno"> 477</span> #define RE_OPTION_MASK 0xff</div><div class="line"><a name="l00478"></a><span class="lineno"> 478</span> #define RE_OPTION_ARG_ENCODING_NONE 32</div><div class="line"><a name="l00479"></a><span class="lineno"> 479</span> </div><div class="line"><a name="l00480"></a><span class="lineno"> 480</span> #define NODE_STRTERM NODE_ZARRAY /* nothing to gc */</div><div class="line"><a name="l00481"></a><span class="lineno"> 481</span> #define NODE_HEREDOC NODE_ARRAY /* 1, 3 to gc */</div><div class="line"><a name="l00482"></a><span class="lineno"> 482</span> #define SIGN_EXTEND(x,n) (((1<<(n)-1)^((x)&~(~0<<(n))))-(1<<(n)-1))</div><div class="line"><a name="l00483"></a><span class="lineno"> 483</span> #define nd_func u1.id</div><div class="line"><a name="l00484"></a><span class="lineno"> 484</span> #if SIZEOF_SHORT == 2</div><div class="line"><a name="l00485"></a><span class="lineno"> 485</span> #define nd_term(node) ((signed short)(node)->u2.id)</div><div class="line"><a name="l00486"></a><span class="lineno"> 486</span> #else</div><div class="line"><a name="l00487"></a><span class="lineno"> 487</span> #define nd_term(node) SIGN_EXTEND((node)->u2.id, CHAR_BIT*2)</div><div class="line"><a name="l00488"></a><span class="lineno"> 488</span> #endif</div><div class="line"><a name="l00489"></a><span class="lineno"> 489</span> #define nd_paren(node) (char)((node)->u2.id >> CHAR_BIT*2)</div><div class="line"><a name="l00490"></a><span class="lineno"> 490</span> #define nd_nest u3.cnt</div><div class="line"><a name="l00491"></a><span class="lineno"> 491</span> </div><div class="line"><a name="l00492"></a><span class="lineno"> 492</span> /****** Ripper *******/</div><div class="line"><a name="l00493"></a><span class="lineno"> 493</span> </div><div class="line"><a name="l00494"></a><span class="lineno"> 494</span> #ifdef RIPPER</div><div class="line"><a name="l00495"></a><span class="lineno"> 495</span> #define RIPPER_VERSION "0.1.0"</div><div class="line"><a name="l00496"></a><span class="lineno"> 496</span> </div><div class="line"><a name="l00497"></a><span class="lineno"> 497</span> #include "eventids1.c"</div><div class="line"><a name="l00498"></a><span class="lineno"> 498</span> #include "eventids2.c"</div><div class="line"><a name="l00499"></a><span class="lineno"> 499</span> static ID ripper_id_gets;</div><div class="line"><a name="l00500"></a><span class="lineno"> 500</span> </div><div class="line"><a name="l00501"></a><span class="lineno"> 501</span> static VALUE ripper_dispatch0(struct parser_params*,ID);</div><div class="line"><a name="l00502"></a><span class="lineno"> 502</span> static VALUE ripper_dispatch1(struct parser_params*,ID,VALUE);</div><div class="line"><a name="l00503"></a><span class="lineno"> 503</span> static VALUE ripper_dispatch2(struct parser_params*,ID,VALUE,VALUE);</div><div class="line"><a name="l00504"></a><span class="lineno"> 504</span> static VALUE ripper_dispatch3(struct parser_params*,ID,VALUE,VALUE,VALUE);</div><div class="line"><a name="l00505"></a><span class="lineno"> 505</span> static VALUE ripper_dispatch4(struct parser_params*,ID,VALUE,VALUE,VALUE,VALUE);</div><div class="line"><a name="l00506"></a><span class="lineno"> 506</span> static VALUE ripper_dispatch5(struct parser_params*,ID,VALUE,VALUE,VALUE,VALUE,VALUE);</div><div class="line"><a name="l00507"></a><span class="lineno"> 507</span> </div><div class="line"><a name="l00508"></a><span class="lineno"> 508</span> #define dispatch0(n) ripper_dispatch0(parser, TOKEN_PASTE(ripper_id_, n))</div><div class="line"><a name="l00509"></a><span class="lineno"> 509</span> #define dispatch1(n,a) ripper_dispatch1(parser, TOKEN_PASTE(ripper_id_, n), (a))</div><div class="line"><a name="l00510"></a><span class="lineno"> 510</span> #define dispatch2(n,a,b) ripper_dispatch2(parser, TOKEN_PASTE(ripper_id_, n), (a), (b))</div><div class="line"><a name="l00511"></a><span class="lineno"> 511</span> #define dispatch3(n,a,b,c) ripper_dispatch3(parser, TOKEN_PASTE(ripper_id_, n), (a), (b), (c))</div><div class="line"><a name="l00512"></a><span class="lineno"> 512</span> #define dispatch4(n,a,b,c,d) ripper_dispatch4(parser, TOKEN_PASTE(ripper_id_, n), (a), (b), (c), (d))</div><div class="line"><a name="l00513"></a><span class="lineno"> 513</span> #define dispatch5(n,a,b,c,d,e) ripper_dispatch5(parser, TOKEN_PASTE(ripper_id_, n), (a), (b), (c), (d), (e))</div><div class="line"><a name="l00514"></a><span class="lineno"> 514</span> </div><div class="line"><a name="l00515"></a><span class="lineno"> 515</span> #define yyparse ripper_yyparse</div><div class="line"><a name="l00516"></a><span class="lineno"> 516</span> </div><div class="line"><a name="l00517"></a><span class="lineno"> 517</span> #define ripper_intern(s) ID2SYM(rb_intern(s))</div><div class="line"><a name="l00518"></a><span class="lineno"> 518</span> static VALUE ripper_id2sym(ID);</div><div class="line"><a name="l00519"></a><span class="lineno"> 519</span> #ifdef __GNUC__</div><div class="line"><a name="l00520"></a><span class="lineno"> 520</span> #define ripper_id2sym(id) ((id) < 256 && rb_ispunct(id) ? \</div><div class="line"><a name="l00521"></a><span class="lineno"> 521</span>  ID2SYM(id) : ripper_id2sym(id))</div><div class="line"><a name="l00522"></a><span class="lineno"> 522</span> #endif</div><div class="line"><a name="l00523"></a><span class="lineno"> 523</span> </div><div class="line"><a name="l00524"></a><span class="lineno"> 524</span> #define arg_new() dispatch0(args_new)</div><div class="line"><a name="l00525"></a><span class="lineno"> 525</span> #define arg_add(l,a) dispatch2(args_add, (l), (a))</div><div class="line"><a name="l00526"></a><span class="lineno"> 526</span> #define arg_add_star(l,a) dispatch2(args_add_star, (l), (a))</div><div class="line"><a name="l00527"></a><span class="lineno"> 527</span> #define arg_add_block(l,b) dispatch2(args_add_block, (l), (b))</div><div class="line"><a name="l00528"></a><span class="lineno"> 528</span> #define arg_add_optblock(l,b) ((b)==Qundef? (l) : dispatch2(args_add_block, (l), (b)))</div><div class="line"><a name="l00529"></a><span class="lineno"> 529</span> #define bare_assoc(v) dispatch1(bare_assoc_hash, (v))</div><div class="line"><a name="l00530"></a><span class="lineno"> 530</span> #define arg_add_assocs(l,b) arg_add((l), bare_assoc(b))</div><div class="line"><a name="l00531"></a><span class="lineno"> 531</span> </div><div class="line"><a name="l00532"></a><span class="lineno"> 532</span> #define args2mrhs(a) dispatch1(mrhs_new_from_args, (a))</div><div class="line"><a name="l00533"></a><span class="lineno"> 533</span> #define mrhs_new() dispatch0(mrhs_new)</div><div class="line"><a name="l00534"></a><span class="lineno"> 534</span> #define mrhs_add(l,a) dispatch2(mrhs_add, (l), (a))</div><div class="line"><a name="l00535"></a><span class="lineno"> 535</span> #define mrhs_add_star(l,a) dispatch2(mrhs_add_star, (l), (a))</div><div class="line"><a name="l00536"></a><span class="lineno"> 536</span> </div><div class="line"><a name="l00537"></a><span class="lineno"> 537</span> #define mlhs_new() dispatch0(mlhs_new)</div><div class="line"><a name="l00538"></a><span class="lineno"> 538</span> #define mlhs_add(l,a) dispatch2(mlhs_add, (l), (a))</div><div class="line"><a name="l00539"></a><span class="lineno"> 539</span> #define mlhs_add_star(l,a) dispatch2(mlhs_add_star, (l), (a))</div><div class="line"><a name="l00540"></a><span class="lineno"> 540</span> </div><div class="line"><a name="l00541"></a><span class="lineno"> 541</span> #define params_new(pars, opts, rest, pars2, blk) \</div><div class="line"><a name="l00542"></a><span class="lineno"> 542</span>  dispatch5(params, (pars), (opts), (rest), (pars2), (blk))</div><div class="line"><a name="l00543"></a><span class="lineno"> 543</span> </div><div class="line"><a name="l00544"></a><span class="lineno"> 544</span> #define blockvar_new(p,v) dispatch2(block_var, (p), (v))</div><div class="line"><a name="l00545"></a><span class="lineno"> 545</span> #define blockvar_add_star(l,a) dispatch2(block_var_add_star, (l), (a))</div><div class="line"><a name="l00546"></a><span class="lineno"> 546</span> #define blockvar_add_block(l,a) dispatch2(block_var_add_block, (l), (a))</div><div class="line"><a name="l00547"></a><span class="lineno"> 547</span> </div><div class="line"><a name="l00548"></a><span class="lineno"> 548</span> #define method_optarg(m,a) ((a)==Qundef ? (m) : dispatch2(method_add_arg,(m),(a)))</div><div class="line"><a name="l00549"></a><span class="lineno"> 549</span> #define method_arg(m,a) dispatch2(method_add_arg,(m),(a))</div><div class="line"><a name="l00550"></a><span class="lineno"> 550</span> #define method_add_block(m,b) dispatch2(method_add_block, (m), (b))</div><div class="line"><a name="l00551"></a><span class="lineno"> 551</span> </div><div class="line"><a name="l00552"></a><span class="lineno"> 552</span> #define escape_Qundef(x) ((x)==Qundef ? Qnil : (x))</div><div class="line"><a name="l00553"></a><span class="lineno"> 553</span> </div><div class="line"><a name="l00554"></a><span class="lineno"> 554</span> #define FIXME 0</div><div class="line"><a name="l00555"></a><span class="lineno"> 555</span> </div><div class="line"><a name="l00556"></a><span class="lineno"> 556</span> #endif /* RIPPER */</div><div class="line"><a name="l00557"></a><span class="lineno"> 557</span> </div><div class="line"><a name="l00558"></a><span class="lineno"> 558</span> #ifndef RIPPER</div><div class="line"><a name="l00559"></a><span class="lineno"> 559</span> # define ifndef_ripper(x) (x)</div><div class="line"><a name="l00560"></a><span class="lineno"> 560</span> #else</div><div class="line"><a name="l00561"></a><span class="lineno"> 561</span> # define ifndef_ripper(x)</div><div class="line"><a name="l00562"></a><span class="lineno"> 562</span> #endif</div><div class="line"><a name="l00563"></a><span class="lineno"> 563</span> </div><div class="line"><a name="l00564"></a><span class="lineno"> 564</span> #ifndef RIPPER</div><div class="line"><a name="l00565"></a><span class="lineno"> 565</span> # define rb_warn0(fmt) rb_compile_warn(ruby_sourcefile, ruby_sourceline, (fmt))</div><div class="line"><a name="l00566"></a><span class="lineno"> 566</span> # define rb_warnI(fmt,a) rb_compile_warn(ruby_sourcefile, ruby_sourceline, (fmt), (a))</div><div class="line"><a name="l00567"></a><span class="lineno"> 567</span> # define rb_warnS(fmt,a) rb_compile_warn(ruby_sourcefile, ruby_sourceline, (fmt), (a))</div><div class="line"><a name="l00568"></a><span class="lineno"> 568</span> # define rb_warning0(fmt) rb_compile_warning(ruby_sourcefile, ruby_sourceline, (fmt))</div><div class="line"><a name="l00569"></a><span class="lineno"> 569</span> # define rb_warningS(fmt,a) rb_compile_warning(ruby_sourcefile, ruby_sourceline, (fmt), (a))</div><div class="line"><a name="l00570"></a><span class="lineno"> 570</span> #else</div><div class="line"><a name="l00571"></a><span class="lineno"> 571</span> # define rb_warn0(fmt) ripper_warn0(parser, (fmt))</div><div class="line"><a name="l00572"></a><span class="lineno"> 572</span> # define rb_warnI(fmt,a) ripper_warnI(parser, (fmt), (a))</div><div class="line"><a name="l00573"></a><span class="lineno"> 573</span> # define rb_warnS(fmt,a) ripper_warnS(parser, (fmt), (a))</div><div class="line"><a name="l00574"></a><span class="lineno"> 574</span> # define rb_warning0(fmt) ripper_warning0(parser, (fmt))</div><div class="line"><a name="l00575"></a><span class="lineno"> 575</span> # define rb_warningS(fmt,a) ripper_warningS(parser, (fmt), (a))</div><div class="line"><a name="l00576"></a><span class="lineno"> 576</span> static void ripper_warn0(struct parser_params*, const char*);</div><div class="line"><a name="l00577"></a><span class="lineno"> 577</span> static void ripper_warnI(struct parser_params*, const char*, int);</div><div class="line"><a name="l00578"></a><span class="lineno"> 578</span> #if 0</div><div class="line"><a name="l00579"></a><span class="lineno"> 579</span> static void ripper_warnS(struct parser_params*, const char*, const char*);</div><div class="line"><a name="l00580"></a><span class="lineno"> 580</span> #endif</div><div class="line"><a name="l00581"></a><span class="lineno"> 581</span> static void ripper_warning0(struct parser_params*, const char*);</div><div class="line"><a name="l00582"></a><span class="lineno"> 582</span> static void ripper_warningS(struct parser_params*, const char*, const char*);</div><div class="line"><a name="l00583"></a><span class="lineno"> 583</span> #endif</div><div class="line"><a name="l00584"></a><span class="lineno"> 584</span> </div><div class="line"><a name="l00585"></a><span class="lineno"> 585</span> #ifdef RIPPER</div><div class="line"><a name="l00586"></a><span class="lineno"> 586</span> static void ripper_compile_error(struct parser_params*, const char *fmt, ...);</div><div class="line"><a name="l00587"></a><span class="lineno"> 587</span> # define rb_compile_error ripper_compile_error</div><div class="line"><a name="l00588"></a><span class="lineno"> 588</span> # define compile_error ripper_compile_error</div><div class="line"><a name="l00589"></a><span class="lineno"> 589</span> # define PARSER_ARG parser,</div><div class="line"><a name="l00590"></a><span class="lineno"> 590</span> #else</div><div class="line"><a name="l00591"></a><span class="lineno"> 591</span> # define rb_compile_error rb_compile_error_with_enc</div><div class="line"><a name="l00592"></a><span class="lineno"> 592</span> # define compile_error parser->nerr++,rb_compile_error_with_enc</div><div class="line"><a name="l00593"></a><span class="lineno"> 593</span> # define PARSER_ARG ruby_sourcefile, ruby_sourceline, current_enc,</div><div class="line"><a name="l00594"></a><span class="lineno"> 594</span> #endif</div><div class="line"><a name="l00595"></a><span class="lineno"> 595</span> </div><div class="line"><a name="l00596"></a><span class="lineno"> 596</span> /* Older versions of Yacc set YYMAXDEPTH to a very low value by default (150,</div><div class="line"><a name="l00597"></a><span class="lineno"> 597</span>  for instance). This is too low for Ruby to parse some files, such as</div><div class="line"><a name="l00598"></a><span class="lineno"> 598</span>  date/format.rb, therefore bump the value up to at least Bison's default. */</div><div class="line"><a name="l00599"></a><span class="lineno"> 599</span> #ifdef OLD_YACC</div><div class="line"><a name="l00600"></a><span class="lineno"> 600</span> #ifndef YYMAXDEPTH</div><div class="line"><a name="l00601"></a><span class="lineno"> 601</span> #define YYMAXDEPTH 10000</div><div class="line"><a name="l00602"></a><span class="lineno"> 602</span> #endif</div><div class="line"><a name="l00603"></a><span class="lineno"> 603</span> #endif</div><div class="line"><a name="l00604"></a><span class="lineno"> 604</span> </div><div class="line"><a name="l00605"></a><span class="lineno"> 605</span> #ifndef RIPPER</div><div class="line"><a name="l00606"></a><span class="lineno"> 606</span> static void token_info_push(struct parser_params*, const char *token);</div><div class="line"><a name="l00607"></a><span class="lineno"> 607</span> static void token_info_pop(struct parser_params*, const char *token);</div><div class="line"><a name="l00608"></a><span class="lineno"> 608</span> #define token_info_push(token) (RTEST(ruby_verbose) ? token_info_push(parser, (token)) : (void)0)</div><div class="line"><a name="l00609"></a><span class="lineno"> 609</span> #define token_info_pop(token) (RTEST(ruby_verbose) ? token_info_pop(parser, (token)) : (void)0)</div><div class="line"><a name="l00610"></a><span class="lineno"> 610</span> #else</div><div class="line"><a name="l00611"></a><span class="lineno"> 611</span> #define token_info_push(token) /* nothing */</div><div class="line"><a name="l00612"></a><span class="lineno"> 612</span> #define token_info_pop(token) /* nothing */</div><div class="line"><a name="l00613"></a><span class="lineno"> 613</span> #endif</div><div class="line"><a name="l00614"></a><span class="lineno"> 614</span> %}</div><div class="line"><a name="l00615"></a><span class="lineno"> 615</span> </div><div class="line"><a name="l00616"></a><span class="lineno"> 616</span> %pure-parser</div><div class="line"><a name="l00617"></a><span class="lineno"> 617</span> %lex-param {struct parser_params *parser}</div><div class="line"><a name="l00618"></a><span class="lineno"> 618</span> %parse-param {struct parser_params *parser}</div><div class="line"><a name="l00619"></a><span class="lineno"> 619</span> </div><div class="line"><a name="l00620"></a><span class="lineno"> 620</span> %union {</div><div class="line"><a name="l00621"></a><span class="lineno"> 621</span>  VALUE val;</div><div class="line"><a name="l00622"></a><span class="lineno"> 622</span>  NODE *node;</div><div class="line"><a name="l00623"></a><span class="lineno"> 623</span>  ID id;</div><div class="line"><a name="l00624"></a><span class="lineno"> 624</span>  int num;</div><div class="line"><a name="l00625"></a><span class="lineno"> 625</span>  const struct vtable *vars;</div><div class="line"><a name="l00626"></a><span class="lineno"> 626</span> }</div><div class="line"><a name="l00627"></a><span class="lineno"> 627</span> </div><div class="line"><a name="l00628"></a><span class="lineno"> 628</span> /*</div><div class="line"><a name="l00629"></a><span class="lineno"> 629</span> %token</div><div class="line"><a name="l00630"></a><span class="lineno"> 630</span> */</div><div class="line"><a name="l00631"></a><span class="lineno"> 631</span> %token <val></div><div class="line"><a name="l00632"></a><span class="lineno"> 632</span> </div><div class="line"><a name="l00633"></a><span class="lineno"> 633</span>  keyword_class</div><div class="line"><a name="l00634"></a><span class="lineno"> 634</span>  keyword_module</div><div class="line"><a name="l00635"></a><span class="lineno"> 635</span>  keyword_def</div><div class="line"><a name="l00636"></a><span class="lineno"> 636</span>  keyword_undef</div><div class="line"><a name="l00637"></a><span class="lineno"> 637</span>  keyword_begin</div><div class="line"><a name="l00638"></a><span class="lineno"> 638</span>  keyword_rescue</div><div class="line"><a name="l00639"></a><span class="lineno"> 639</span>  keyword_ensure</div><div class="line"><a name="l00640"></a><span class="lineno"> 640</span>  keyword_end</div><div class="line"><a name="l00641"></a><span class="lineno"> 641</span>  keyword_if</div><div class="line"><a name="l00642"></a><span class="lineno"> 642</span>  keyword_unless</div><div class="line"><a name="l00643"></a><span class="lineno"> 643</span>  keyword_then</div><div class="line"><a name="l00644"></a><span class="lineno"> 644</span>  keyword_elsif</div><div class="line"><a name="l00645"></a><span class="lineno"> 645</span>  keyword_else</div><div class="line"><a name="l00646"></a><span class="lineno"> 646</span>  keyword_case</div><div class="line"><a name="l00647"></a><span class="lineno"> 647</span>  keyword_when</div><div class="line"><a name="l00648"></a><span class="lineno"> 648</span>  keyword_while</div><div class="line"><a name="l00649"></a><span class="lineno"> 649</span>  keyword_until</div><div class="line"><a name="l00650"></a><span class="lineno"> 650</span>  keyword_for</div><div class="line"><a name="l00651"></a><span class="lineno"> 651</span>  keyword_break</div><div class="line"><a name="l00652"></a><span class="lineno"> 652</span>  keyword_next</div><div class="line"><a name="l00653"></a><span class="lineno"> 653</span>  keyword_redo</div><div class="line"><a name="l00654"></a><span class="lineno"> 654</span>  keyword_retry</div><div class="line"><a name="l00655"></a><span class="lineno"> 655</span>  keyword_in</div><div class="line"><a name="l00656"></a><span class="lineno"> 656</span>  keyword_do</div><div class="line"><a name="l00657"></a><span class="lineno"> 657</span>  keyword_do_cond</div><div class="line"><a name="l00658"></a><span class="lineno"> 658</span>  keyword_do_block</div><div class="line"><a name="l00659"></a><span class="lineno"> 659</span>  keyword_do_LAMBDA</div><div class="line"><a name="l00660"></a><span class="lineno"> 660</span>  keyword_return</div><div class="line"><a name="l00661"></a><span class="lineno"> 661</span>  keyword_yield</div><div class="line"><a name="l00662"></a><span class="lineno"> 662</span>  keyword_super</div><div class="line"><a name="l00663"></a><span class="lineno"> 663</span>  keyword_self</div><div class="line"><a name="l00664"></a><span class="lineno"> 664</span>  keyword_nil</div><div class="line"><a name="l00665"></a><span class="lineno"> 665</span>  keyword_true</div><div class="line"><a name="l00666"></a><span class="lineno"> 666</span>  keyword_false</div><div class="line"><a name="l00667"></a><span class="lineno"> 667</span>  keyword_and</div><div class="line"><a name="l00668"></a><span class="lineno"> 668</span>  keyword_or</div><div class="line"><a name="l00669"></a><span class="lineno"> 669</span>  keyword_not</div><div class="line"><a name="l00670"></a><span class="lineno"> 670</span>  modifier_if</div><div class="line"><a name="l00671"></a><span class="lineno"> 671</span>  modifier_unless</div><div class="line"><a name="l00672"></a><span class="lineno"> 672</span>  modifier_while</div><div class="line"><a name="l00673"></a><span class="lineno"> 673</span>  modifier_until</div><div class="line"><a name="l00674"></a><span class="lineno"> 674</span>  modifier_rescue</div><div class="line"><a name="l00675"></a><span class="lineno"> 675</span>  keyword_alias</div><div class="line"><a name="l00676"></a><span class="lineno"> 676</span>  keyword_defined</div><div class="line"><a name="l00677"></a><span class="lineno"> 677</span>  keyword_BEGIN</div><div class="line"><a name="l00678"></a><span class="lineno"> 678</span>  keyword_END</div><div class="line"><a name="l00679"></a><span class="lineno"> 679</span>  keyword__LINE__</div><div class="line"><a name="l00680"></a><span class="lineno"> 680</span>  keyword__FILE__</div><div class="line"><a name="l00681"></a><span class="lineno"> 681</span>  keyword__ENCODING__</div><div class="line"><a name="l00682"></a><span class="lineno"> 682</span> </div><div class="line"><a name="l00683"></a><span class="lineno"> 683</span> %token <val> tIDENTIFIER tFID tGVAR tIVAR tCONSTANT tCVAR tLABEL</div><div class="line"><a name="l00684"></a><span class="lineno"> 684</span> %token <val> tINTEGER tFLOAT tSTRING_CONTENT tCHAR</div><div class="line"><a name="l00685"></a><span class="lineno"> 685</span> %token <val> tNTH_REF tBACK_REF</div><div class="line"><a name="l00686"></a><span class="lineno"> 686</span> %token <val> tREGEXP_END</div><div class="line"><a name="l00687"></a><span class="lineno"> 687</span> </div><div class="line"><a name="l00688"></a><span class="lineno"> 688</span> %type <val> singleton strings string string1 xstring regexp</div><div class="line"><a name="l00689"></a><span class="lineno"> 689</span> %type <val> string_contents xstring_contents regexp_contents string_content</div><div class="line"><a name="l00690"></a><span class="lineno"> 690</span> %type <val> words qwords word_list qword_list word</div><div class="line"><a name="l00691"></a><span class="lineno"> 691</span> %type <val> literal numeric dsym cpath</div><div class="line"><a name="l00692"></a><span class="lineno"> 692</span> %type <val> top_compstmt top_stmts top_stmt</div><div class="line"><a name="l00693"></a><span class="lineno"> 693</span> %type <val> bodystmt compstmt stmts stmt expr arg primary command command_call method_call</div><div class="line"><a name="l00694"></a><span class="lineno"> 694</span> %type <val> expr_value arg_value primary_value</div><div class="line"><a name="l00695"></a><span class="lineno"> 695</span> %type <val> if_tail opt_else case_body cases opt_rescue exc_list exc_var opt_ensure</div><div class="line"><a name="l00696"></a><span class="lineno"> 696</span> %type <val> args call_args opt_call_args</div><div class="line"><a name="l00697"></a><span class="lineno"> 697</span> %type <val> paren_args opt_paren_args</div><div class="line"><a name="l00698"></a><span class="lineno"> 698</span> %type <val> command_args aref_args opt_block_arg block_arg var_ref var_lhs</div><div class="line"><a name="l00699"></a><span class="lineno"> 699</span> %type <val> command_asgn mrhs superclass block_call block_command</div><div class="line"><a name="l00700"></a><span class="lineno"> 700</span> %type <val> f_block_optarg f_block_opt</div><div class="line"><a name="l00701"></a><span class="lineno"> 701</span> %type <val> f_arglist f_args f_arg f_arg_item f_optarg f_marg f_marg_list f_margs</div><div class="line"><a name="l00702"></a><span class="lineno"> 702</span> %type <val> assoc_list assocs assoc undef_list backref string_dvar for_var</div><div class="line"><a name="l00703"></a><span class="lineno"> 703</span> %type <val> block_param opt_block_param block_param_def f_opt</div><div class="line"><a name="l00704"></a><span class="lineno"> 704</span> %type <val> bv_decls opt_bv_decl bvar</div><div class="line"><a name="l00705"></a><span class="lineno"> 705</span> %type <val> lambda f_larglist lambda_body</div><div class="line"><a name="l00706"></a><span class="lineno"> 706</span> %type <val> brace_block cmd_brace_block do_block lhs none fitem</div><div class="line"><a name="l00707"></a><span class="lineno"> 707</span> %type <val> mlhs mlhs_head mlhs_basic mlhs_item mlhs_node mlhs_post mlhs_inner</div><div class="line"><a name="l00708"></a><span class="lineno"> 708</span> %type <val> fsym keyword_variable user_variable sym symbol operation operation2 operation3</div><div class="line"><a name="l00709"></a><span class="lineno"> 709</span> %type <val> cname fname op f_rest_arg f_block_arg opt_f_block_arg f_norm_arg f_bad_arg</div><div class="line"><a name="l00710"></a><span class="lineno"> 710</span> /*</div><div class="line"><a name="l00711"></a><span class="lineno"> 711</span> */</div><div class="line"><a name="l00712"></a><span class="lineno"> 712</span> %type <val> program reswords then do dot_or_colon</div><div class="line"><a name="l00713"></a><span class="lineno"> 713</span> </div><div class="line"><a name="l00714"></a><span class="lineno"> 714</span> %token tUPLUS /* unary+ */</div><div class="line"><a name="l00715"></a><span class="lineno"> 715</span> %token tUMINUS /* unary- */</div><div class="line"><a name="l00716"></a><span class="lineno"> 716</span> %token tPOW /* ** */</div><div class="line"><a name="l00717"></a><span class="lineno"> 717</span> %token tCMP /* <=> */</div><div class="line"><a name="l00718"></a><span class="lineno"> 718</span> %token tEQ /* == */</div><div class="line"><a name="l00719"></a><span class="lineno"> 719</span> %token tEQQ /* === */</div><div class="line"><a name="l00720"></a><span class="lineno"> 720</span> %token tNEQ /* != */</div><div class="line"><a name="l00721"></a><span class="lineno"> 721</span> %token tGEQ /* >= */</div><div class="line"><a name="l00722"></a><span class="lineno"> 722</span> %token tLEQ /* <= */</div><div class="line"><a name="l00723"></a><span class="lineno"> 723</span> %token tANDOP tOROP /* && and || */</div><div class="line"><a name="l00724"></a><span class="lineno"> 724</span> %token tMATCH tNMATCH /* =~ and !~ */</div><div class="line"><a name="l00725"></a><span class="lineno"> 725</span> %token tDOT2 tDOT3 /* .. and ... */</div><div class="line"><a name="l00726"></a><span class="lineno"> 726</span> %token tAREF tASET /* [] and []= */</div><div class="line"><a name="l00727"></a><span class="lineno"> 727</span> %token tLSHFT tRSHFT /* << and >> */</div><div class="line"><a name="l00728"></a><span class="lineno"> 728</span> %token tCOLON2 /* :: */</div><div class="line"><a name="l00729"></a><span class="lineno"> 729</span> %token tCOLON3 /* :: at EXPR_BEG */</div><div class="line"><a name="l00730"></a><span class="lineno"> 730</span> %token <val> tOP_ASGN /* +=, -= etc. */</div><div class="line"><a name="l00731"></a><span class="lineno"> 731</span> %token tASSOC /* => */</div><div class="line"><a name="l00732"></a><span class="lineno"> 732</span> %token tLPAREN /* ( */</div><div class="line"><a name="l00733"></a><span class="lineno"> 733</span> %token tLPAREN_ARG /* ( */</div><div class="line"><a name="l00734"></a><span class="lineno"> 734</span> %token tRPAREN /* ) */</div><div class="line"><a name="l00735"></a><span class="lineno"> 735</span> %token tLBRACK /* [ */</div><div class="line"><a name="l00736"></a><span class="lineno"> 736</span> %token tLBRACE /* { */</div><div class="line"><a name="l00737"></a><span class="lineno"> 737</span> %token tLBRACE_ARG /* { */</div><div class="line"><a name="l00738"></a><span class="lineno"> 738</span> %token tSTAR /* * */</div><div class="line"><a name="l00739"></a><span class="lineno"> 739</span> %token tAMPER /* & */</div><div class="line"><a name="l00740"></a><span class="lineno"> 740</span> %token tLAMBDA /* -> */</div><div class="line"><a name="l00741"></a><span class="lineno"> 741</span> %token tSYMBEG tSTRING_BEG tXSTRING_BEG tREGEXP_BEG tWORDS_BEG tQWORDS_BEG</div><div class="line"><a name="l00742"></a><span class="lineno"> 742</span> %token tSTRING_DBEG tSTRING_DVAR tSTRING_END tLAMBEG</div><div class="line"><a name="l00743"></a><span class="lineno"> 743</span> </div><div class="line"><a name="l00744"></a><span class="lineno"> 744</span> /*</div><div class="line"><a name="l00745"></a><span class="lineno"> 745</span>  * precedence table</div><div class="line"><a name="l00746"></a><span class="lineno"> 746</span>  */</div><div class="line"><a name="l00747"></a><span class="lineno"> 747</span> </div><div class="line"><a name="l00748"></a><span class="lineno"> 748</span> %nonassoc tLOWEST</div><div class="line"><a name="l00749"></a><span class="lineno"> 749</span> %nonassoc tLBRACE_ARG</div><div class="line"><a name="l00750"></a><span class="lineno"> 750</span> </div><div class="line"><a name="l00751"></a><span class="lineno"> 751</span> %nonassoc modifier_if modifier_unless modifier_while modifier_until</div><div class="line"><a name="l00752"></a><span class="lineno"> 752</span> %left keyword_or keyword_and</div><div class="line"><a name="l00753"></a><span class="lineno"> 753</span> %right keyword_not</div><div class="line"><a name="l00754"></a><span class="lineno"> 754</span> %nonassoc keyword_defined</div><div class="line"><a name="l00755"></a><span class="lineno"> 755</span> %right '=' tOP_ASGN</div><div class="line"><a name="l00756"></a><span class="lineno"> 756</span> %left modifier_rescue</div><div class="line"><a name="l00757"></a><span class="lineno"> 757</span> %right '?' ':'</div><div class="line"><a name="l00758"></a><span class="lineno"> 758</span> %nonassoc tDOT2 tDOT3</div><div class="line"><a name="l00759"></a><span class="lineno"> 759</span> %left tOROP</div><div class="line"><a name="l00760"></a><span class="lineno"> 760</span> %left tANDOP</div><div class="line"><a name="l00761"></a><span class="lineno"> 761</span> %nonassoc tCMP tEQ tEQQ tNEQ tMATCH tNMATCH</div><div class="line"><a name="l00762"></a><span class="lineno"> 762</span> %left '>' tGEQ '<' tLEQ</div><div class="line"><a name="l00763"></a><span class="lineno"> 763</span> %left '|' '^'</div><div class="line"><a name="l00764"></a><span class="lineno"> 764</span> %left '&'</div><div class="line"><a name="l00765"></a><span class="lineno"> 765</span> %left tLSHFT tRSHFT</div><div class="line"><a name="l00766"></a><span class="lineno"> 766</span> %left '+' '-'</div><div class="line"><a name="l00767"></a><span class="lineno"> 767</span> %left '*' '/' '%'</div><div class="line"><a name="l00768"></a><span class="lineno"> 768</span> %right tUMINUS_NUM tUMINUS</div><div class="line"><a name="l00769"></a><span class="lineno"> 769</span> %right tPOW</div><div class="line"><a name="l00770"></a><span class="lineno"> 770</span> %right '!' '~' tUPLUS</div><div class="line"><a name="l00771"></a><span class="lineno"> 771</span> </div><div class="line"><a name="l00772"></a><span class="lineno"> 772</span> %nonassoc idNULL</div><div class="line"><a name="l00773"></a><span class="lineno"> 773</span> %nonassoc idRespond_to</div><div class="line"><a name="l00774"></a><span class="lineno"> 774</span> %nonassoc idIFUNC</div><div class="line"><a name="l00775"></a><span class="lineno"> 775</span> %nonassoc idCFUNC</div><div class="line"><a name="l00776"></a><span class="lineno"> 776</span> %nonassoc id_core_set_method_alias</div><div class="line"><a name="l00777"></a><span class="lineno"> 777</span> %nonassoc id_core_set_variable_alias</div><div class="line"><a name="l00778"></a><span class="lineno"> 778</span> %nonassoc id_core_undef_method</div><div class="line"><a name="l00779"></a><span class="lineno"> 779</span> %nonassoc id_core_define_method</div><div class="line"><a name="l00780"></a><span class="lineno"> 780</span> %nonassoc id_core_define_singleton_method</div><div class="line"><a name="l00781"></a><span class="lineno"> 781</span> %nonassoc id_core_set_postexe</div><div class="line"><a name="l00782"></a><span class="lineno"> 782</span> </div><div class="line"><a name="l00783"></a><span class="lineno"> 783</span> %token tLAST_TOKEN</div><div class="line"><a name="l00784"></a><span class="lineno"> 784</span> </div><div class="line"><a name="l00785"></a><span class="lineno"> 785</span> %%</div><div class="line"><a name="l00786"></a><span class="lineno"> 786</span> program : {</div><div class="line"><a name="l00787"></a><span class="lineno"> 787</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l00788"></a><span class="lineno"> 788</span> #if 0</div><div class="line"><a name="l00789"></a><span class="lineno"> 789</span>  local_push(compile_for_eval || rb_parse_in_main());</div><div class="line"><a name="l00790"></a><span class="lineno"> 790</span> #endif</div><div class="line"><a name="l00791"></a><span class="lineno"> 791</span>  local_push(0);</div><div class="line"><a name="l00792"></a><span class="lineno"> 792</span> </div><div class="line"><a name="l00793"></a><span class="lineno"> 793</span>  }</div><div class="line"><a name="l00794"></a><span class="lineno"> 794</span>  top_compstmt</div><div class="line"><a name="l00795"></a><span class="lineno"> 795</span>  {</div><div class="line"><a name="l00796"></a><span class="lineno"> 796</span> #if 0</div><div class="line"><a name="l00797"></a><span class="lineno"> 797</span>  if ($2 && !compile_for_eval) {</div><div class="line"><a name="l00798"></a><span class="lineno"> 798</span>  /* last expression should not be void */</div><div class="line"><a name="l00799"></a><span class="lineno"> 799</span>  if (nd_type($2) != NODE_BLOCK) void_expr($2);</div><div class="line"><a name="l00800"></a><span class="lineno"> 800</span>  else {</div><div class="line"><a name="l00801"></a><span class="lineno"> 801</span>  NODE *node = $2;</div><div class="line"><a name="l00802"></a><span class="lineno"> 802</span>  while (node->nd_next) {</div><div class="line"><a name="l00803"></a><span class="lineno"> 803</span>  node = node->nd_next;</div><div class="line"><a name="l00804"></a><span class="lineno"> 804</span>  }</div><div class="line"><a name="l00805"></a><span class="lineno"> 805</span>  void_expr(node->nd_head);</div><div class="line"><a name="l00806"></a><span class="lineno"> 806</span>  }</div><div class="line"><a name="l00807"></a><span class="lineno"> 807</span>  }</div><div class="line"><a name="l00808"></a><span class="lineno"> 808</span>  ruby_eval_tree = NEW_SCOPE(0, block_append(ruby_eval_tree, $2));</div><div class="line"><a name="l00809"></a><span class="lineno"> 809</span> #endif</div><div class="line"><a name="l00810"></a><span class="lineno"> 810</span>  $$ = $2;</div><div class="line"><a name="l00811"></a><span class="lineno"> 811</span>  parser->result = dispatch1(program, $$);</div><div class="line"><a name="l00812"></a><span class="lineno"> 812</span> </div><div class="line"><a name="l00813"></a><span class="lineno"> 813</span>  local_pop();</div><div class="line"><a name="l00814"></a><span class="lineno"> 814</span>  }</div><div class="line"><a name="l00815"></a><span class="lineno"> 815</span>  ;</div><div class="line"><a name="l00816"></a><span class="lineno"> 816</span> </div><div class="line"><a name="l00817"></a><span class="lineno"> 817</span> top_compstmt : top_stmts opt_terms</div><div class="line"><a name="l00818"></a><span class="lineno"> 818</span>  {</div><div class="line"><a name="l00819"></a><span class="lineno"> 819</span> #if 0</div><div class="line"><a name="l00820"></a><span class="lineno"> 820</span>  void_stmts($1);</div><div class="line"><a name="l00821"></a><span class="lineno"> 821</span>  fixup_nodes(&deferred_nodes);</div><div class="line"><a name="l00822"></a><span class="lineno"> 822</span> #endif</div><div class="line"><a name="l00823"></a><span class="lineno"> 823</span> </div><div class="line"><a name="l00824"></a><span class="lineno"> 824</span>  $$ = $1;</div><div class="line"><a name="l00825"></a><span class="lineno"> 825</span>  }</div><div class="line"><a name="l00826"></a><span class="lineno"> 826</span>  ;</div><div class="line"><a name="l00827"></a><span class="lineno"> 827</span> </div><div class="line"><a name="l00828"></a><span class="lineno"> 828</span> top_stmts : none</div><div class="line"><a name="l00829"></a><span class="lineno"> 829</span>  {</div><div class="line"><a name="l00830"></a><span class="lineno"> 830</span> #if 0</div><div class="line"><a name="l00831"></a><span class="lineno"> 831</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l00832"></a><span class="lineno"> 832</span> #endif</div><div class="line"><a name="l00833"></a><span class="lineno"> 833</span>  $$ = dispatch2(stmts_add, dispatch0(stmts_new),</div><div class="line"><a name="l00834"></a><span class="lineno"> 834</span>  dispatch0(void_stmt));</div><div class="line"><a name="l00835"></a><span class="lineno"> 835</span> </div><div class="line"><a name="l00836"></a><span class="lineno"> 836</span>  }</div><div class="line"><a name="l00837"></a><span class="lineno"> 837</span>  | top_stmt</div><div class="line"><a name="l00838"></a><span class="lineno"> 838</span>  {</div><div class="line"><a name="l00839"></a><span class="lineno"> 839</span> #if 0</div><div class="line"><a name="l00840"></a><span class="lineno"> 840</span>  $$ = newline_node($1);</div><div class="line"><a name="l00841"></a><span class="lineno"> 841</span> #endif</div><div class="line"><a name="l00842"></a><span class="lineno"> 842</span>  $$ = dispatch2(stmts_add, dispatch0(stmts_new), $1);</div><div class="line"><a name="l00843"></a><span class="lineno"> 843</span> </div><div class="line"><a name="l00844"></a><span class="lineno"> 844</span>  }</div><div class="line"><a name="l00845"></a><span class="lineno"> 845</span>  | top_stmts terms top_stmt</div><div class="line"><a name="l00846"></a><span class="lineno"> 846</span>  {</div><div class="line"><a name="l00847"></a><span class="lineno"> 847</span> #if 0</div><div class="line"><a name="l00848"></a><span class="lineno"> 848</span>  $$ = block_append($1, newline_node($3));</div><div class="line"><a name="l00849"></a><span class="lineno"> 849</span> #endif</div><div class="line"><a name="l00850"></a><span class="lineno"> 850</span>  $$ = dispatch2(stmts_add, $1, $3);</div><div class="line"><a name="l00851"></a><span class="lineno"> 851</span> </div><div class="line"><a name="l00852"></a><span class="lineno"> 852</span>  }</div><div class="line"><a name="l00853"></a><span class="lineno"> 853</span>  | error top_stmt</div><div class="line"><a name="l00854"></a><span class="lineno"> 854</span>  {</div><div class="line"><a name="l00855"></a><span class="lineno"> 855</span>  $$ = remove_begin($2);</div><div class="line"><a name="l00856"></a><span class="lineno"> 856</span>  }</div><div class="line"><a name="l00857"></a><span class="lineno"> 857</span>  ;</div><div class="line"><a name="l00858"></a><span class="lineno"> 858</span> </div><div class="line"><a name="l00859"></a><span class="lineno"> 859</span> top_stmt : stmt</div><div class="line"><a name="l00860"></a><span class="lineno"> 860</span>  | keyword_BEGIN</div><div class="line"><a name="l00861"></a><span class="lineno"> 861</span>  {</div><div class="line"><a name="l00862"></a><span class="lineno"> 862</span>  if (in_def || in_single) {</div><div class="line"><a name="l00863"></a><span class="lineno"> 863</span>  yyerror("BEGIN in method");</div><div class="line"><a name="l00864"></a><span class="lineno"> 864</span>  }</div><div class="line"><a name="l00865"></a><span class="lineno"> 865</span> #if 0</div><div class="line"><a name="l00866"></a><span class="lineno"> 866</span>  /* local_push(0); */</div><div class="line"><a name="l00867"></a><span class="lineno"> 867</span> #endif</div><div class="line"><a name="l00868"></a><span class="lineno"> 868</span> </div><div class="line"><a name="l00869"></a><span class="lineno"> 869</span>  }</div><div class="line"><a name="l00870"></a><span class="lineno"> 870</span>  '{' top_compstmt '}'</div><div class="line"><a name="l00871"></a><span class="lineno"> 871</span>  {</div><div class="line"><a name="l00872"></a><span class="lineno"> 872</span> #if 0</div><div class="line"><a name="l00873"></a><span class="lineno"> 873</span>  ruby_eval_tree_begin = block_append(ruby_eval_tree_begin,</div><div class="line"><a name="l00874"></a><span class="lineno"> 874</span>  $4);</div><div class="line"><a name="l00875"></a><span class="lineno"> 875</span>  /* NEW_PREEXE($4)); */</div><div class="line"><a name="l00876"></a><span class="lineno"> 876</span>  /* local_pop(); */</div><div class="line"><a name="l00877"></a><span class="lineno"> 877</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l00878"></a><span class="lineno"> 878</span> #endif</div><div class="line"><a name="l00879"></a><span class="lineno"> 879</span>  $$ = dispatch1(BEGIN, $4);</div><div class="line"><a name="l00880"></a><span class="lineno"> 880</span> </div><div class="line"><a name="l00881"></a><span class="lineno"> 881</span>  }</div><div class="line"><a name="l00882"></a><span class="lineno"> 882</span>  ;</div><div class="line"><a name="l00883"></a><span class="lineno"> 883</span> </div><div class="line"><a name="l00884"></a><span class="lineno"> 884</span> bodystmt : compstmt</div><div class="line"><a name="l00885"></a><span class="lineno"> 885</span>  opt_rescue</div><div class="line"><a name="l00886"></a><span class="lineno"> 886</span>  opt_else</div><div class="line"><a name="l00887"></a><span class="lineno"> 887</span>  opt_ensure</div><div class="line"><a name="l00888"></a><span class="lineno"> 888</span>  {</div><div class="line"><a name="l00889"></a><span class="lineno"> 889</span> #if 0</div><div class="line"><a name="l00890"></a><span class="lineno"> 890</span>  $$ = $1;</div><div class="line"><a name="l00891"></a><span class="lineno"> 891</span>  if ($2) {</div><div class="line"><a name="l00892"></a><span class="lineno"> 892</span>  $$ = NEW_RESCUE($1, $2, $3);</div><div class="line"><a name="l00893"></a><span class="lineno"> 893</span>  }</div><div class="line"><a name="l00894"></a><span class="lineno"> 894</span>  else if ($3) {</div><div class="line"><a name="l00895"></a><span class="lineno"> 895</span>  rb_warn0("else without rescue is useless");</div><div class="line"><a name="l00896"></a><span class="lineno"> 896</span>  $$ = block_append($$, $3);</div><div class="line"><a name="l00897"></a><span class="lineno"> 897</span>  }</div><div class="line"><a name="l00898"></a><span class="lineno"> 898</span>  if ($4) {</div><div class="line"><a name="l00899"></a><span class="lineno"> 899</span>  if ($$) {</div><div class="line"><a name="l00900"></a><span class="lineno"> 900</span>  $$ = NEW_ENSURE($$, $4);</div><div class="line"><a name="l00901"></a><span class="lineno"> 901</span>  }</div><div class="line"><a name="l00902"></a><span class="lineno"> 902</span>  else {</div><div class="line"><a name="l00903"></a><span class="lineno"> 903</span>  $$ = block_append($4, NEW_NIL());</div><div class="line"><a name="l00904"></a><span class="lineno"> 904</span>  }</div><div class="line"><a name="l00905"></a><span class="lineno"> 905</span>  }</div><div class="line"><a name="l00906"></a><span class="lineno"> 906</span>  fixpos($$, $1);</div><div class="line"><a name="l00907"></a><span class="lineno"> 907</span> #endif</div><div class="line"><a name="l00908"></a><span class="lineno"> 908</span>  $$ = dispatch4(bodystmt,</div><div class="line"><a name="l00909"></a><span class="lineno"> 909</span>  escape_Qundef($1),</div><div class="line"><a name="l00910"></a><span class="lineno"> 910</span>  escape_Qundef($2),</div><div class="line"><a name="l00911"></a><span class="lineno"> 911</span>  escape_Qundef($3),</div><div class="line"><a name="l00912"></a><span class="lineno"> 912</span>  escape_Qundef($4));</div><div class="line"><a name="l00913"></a><span class="lineno"> 913</span> </div><div class="line"><a name="l00914"></a><span class="lineno"> 914</span>  }</div><div class="line"><a name="l00915"></a><span class="lineno"> 915</span>  ;</div><div class="line"><a name="l00916"></a><span class="lineno"> 916</span> </div><div class="line"><a name="l00917"></a><span class="lineno"> 917</span> compstmt : stmts opt_terms</div><div class="line"><a name="l00918"></a><span class="lineno"> 918</span>  {</div><div class="line"><a name="l00919"></a><span class="lineno"> 919</span> #if 0</div><div class="line"><a name="l00920"></a><span class="lineno"> 920</span>  void_stmts($1);</div><div class="line"><a name="l00921"></a><span class="lineno"> 921</span>  fixup_nodes(&deferred_nodes);</div><div class="line"><a name="l00922"></a><span class="lineno"> 922</span> #endif</div><div class="line"><a name="l00923"></a><span class="lineno"> 923</span> </div><div class="line"><a name="l00924"></a><span class="lineno"> 924</span>  $$ = $1;</div><div class="line"><a name="l00925"></a><span class="lineno"> 925</span>  }</div><div class="line"><a name="l00926"></a><span class="lineno"> 926</span>  ;</div><div class="line"><a name="l00927"></a><span class="lineno"> 927</span> </div><div class="line"><a name="l00928"></a><span class="lineno"> 928</span> stmts : none</div><div class="line"><a name="l00929"></a><span class="lineno"> 929</span>  {</div><div class="line"><a name="l00930"></a><span class="lineno"> 930</span> #if 0</div><div class="line"><a name="l00931"></a><span class="lineno"> 931</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l00932"></a><span class="lineno"> 932</span> #endif</div><div class="line"><a name="l00933"></a><span class="lineno"> 933</span>  $$ = dispatch2(stmts_add, dispatch0(stmts_new),</div><div class="line"><a name="l00934"></a><span class="lineno"> 934</span>  dispatch0(void_stmt));</div><div class="line"><a name="l00935"></a><span class="lineno"> 935</span> </div><div class="line"><a name="l00936"></a><span class="lineno"> 936</span>  }</div><div class="line"><a name="l00937"></a><span class="lineno"> 937</span>  | stmt</div><div class="line"><a name="l00938"></a><span class="lineno"> 938</span>  {</div><div class="line"><a name="l00939"></a><span class="lineno"> 939</span> #if 0</div><div class="line"><a name="l00940"></a><span class="lineno"> 940</span>  $$ = newline_node($1);</div><div class="line"><a name="l00941"></a><span class="lineno"> 941</span> #endif</div><div class="line"><a name="l00942"></a><span class="lineno"> 942</span>  $$ = dispatch2(stmts_add, dispatch0(stmts_new), $1);</div><div class="line"><a name="l00943"></a><span class="lineno"> 943</span> </div><div class="line"><a name="l00944"></a><span class="lineno"> 944</span>  }</div><div class="line"><a name="l00945"></a><span class="lineno"> 945</span>  | stmts terms stmt</div><div class="line"><a name="l00946"></a><span class="lineno"> 946</span>  {</div><div class="line"><a name="l00947"></a><span class="lineno"> 947</span> #if 0</div><div class="line"><a name="l00948"></a><span class="lineno"> 948</span>  $$ = block_append($1, newline_node($3));</div><div class="line"><a name="l00949"></a><span class="lineno"> 949</span> #endif</div><div class="line"><a name="l00950"></a><span class="lineno"> 950</span>  $$ = dispatch2(stmts_add, $1, $3);</div><div class="line"><a name="l00951"></a><span class="lineno"> 951</span> </div><div class="line"><a name="l00952"></a><span class="lineno"> 952</span>  }</div><div class="line"><a name="l00953"></a><span class="lineno"> 953</span>  | error stmt</div><div class="line"><a name="l00954"></a><span class="lineno"> 954</span>  {</div><div class="line"><a name="l00955"></a><span class="lineno"> 955</span>  $$ = remove_begin($2);</div><div class="line"><a name="l00956"></a><span class="lineno"> 956</span>  }</div><div class="line"><a name="l00957"></a><span class="lineno"> 957</span>  ;</div><div class="line"><a name="l00958"></a><span class="lineno"> 958</span> </div><div class="line"><a name="l00959"></a><span class="lineno"> 959</span> stmt : keyword_alias fitem {lex_state = EXPR_FNAME;} fitem</div><div class="line"><a name="l00960"></a><span class="lineno"> 960</span>  {</div><div class="line"><a name="l00961"></a><span class="lineno"> 961</span> #if 0</div><div class="line"><a name="l00962"></a><span class="lineno"> 962</span>  $$ = NEW_ALIAS($2, $4);</div><div class="line"><a name="l00963"></a><span class="lineno"> 963</span> #endif</div><div class="line"><a name="l00964"></a><span class="lineno"> 964</span>  $$ = dispatch2(alias, $2, $4);</div><div class="line"><a name="l00965"></a><span class="lineno"> 965</span> </div><div class="line"><a name="l00966"></a><span class="lineno"> 966</span>  }</div><div class="line"><a name="l00967"></a><span class="lineno"> 967</span>  | keyword_alias tGVAR tGVAR</div><div class="line"><a name="l00968"></a><span class="lineno"> 968</span>  {</div><div class="line"><a name="l00969"></a><span class="lineno"> 969</span> #if 0</div><div class="line"><a name="l00970"></a><span class="lineno"> 970</span>  $$ = NEW_VALIAS($2, $3);</div><div class="line"><a name="l00971"></a><span class="lineno"> 971</span> #endif</div><div class="line"><a name="l00972"></a><span class="lineno"> 972</span>  $$ = dispatch2(var_alias, $2, $3);</div><div class="line"><a name="l00973"></a><span class="lineno"> 973</span> </div><div class="line"><a name="l00974"></a><span class="lineno"> 974</span>  }</div><div class="line"><a name="l00975"></a><span class="lineno"> 975</span>  | keyword_alias tGVAR tBACK_REF</div><div class="line"><a name="l00976"></a><span class="lineno"> 976</span>  {</div><div class="line"><a name="l00977"></a><span class="lineno"> 977</span> #if 0</div><div class="line"><a name="l00978"></a><span class="lineno"> 978</span>  char buf[2];</div><div class="line"><a name="l00979"></a><span class="lineno"> 979</span>  buf[0] = '$';</div><div class="line"><a name="l00980"></a><span class="lineno"> 980</span>  buf[1] = (char)$3->nd_nth;</div><div class="line"><a name="l00981"></a><span class="lineno"> 981</span>  $$ = NEW_VALIAS($2, rb_intern2(buf, 2));</div><div class="line"><a name="l00982"></a><span class="lineno"> 982</span> #endif</div><div class="line"><a name="l00983"></a><span class="lineno"> 983</span>  $$ = dispatch2(var_alias, $2, $3);</div><div class="line"><a name="l00984"></a><span class="lineno"> 984</span> </div><div class="line"><a name="l00985"></a><span class="lineno"> 985</span>  }</div><div class="line"><a name="l00986"></a><span class="lineno"> 986</span>  | keyword_alias tGVAR tNTH_REF</div><div class="line"><a name="l00987"></a><span class="lineno"> 987</span>  {</div><div class="line"><a name="l00988"></a><span class="lineno"> 988</span> #if 0</div><div class="line"><a name="l00989"></a><span class="lineno"> 989</span>  yyerror("can't make alias for the number variables");</div><div class="line"><a name="l00990"></a><span class="lineno"> 990</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l00991"></a><span class="lineno"> 991</span> #endif</div><div class="line"><a name="l00992"></a><span class="lineno"> 992</span>  $$ = dispatch2(var_alias, $2, $3);</div><div class="line"><a name="l00993"></a><span class="lineno"> 993</span>  $$ = dispatch1(alias_error, $$);</div><div class="line"><a name="l00994"></a><span class="lineno"> 994</span> </div><div class="line"><a name="l00995"></a><span class="lineno"> 995</span>  }</div><div class="line"><a name="l00996"></a><span class="lineno"> 996</span>  | keyword_undef undef_list</div><div class="line"><a name="l00997"></a><span class="lineno"> 997</span>  {</div><div class="line"><a name="l00998"></a><span class="lineno"> 998</span> #if 0</div><div class="line"><a name="l00999"></a><span class="lineno"> 999</span>  $$ = $2;</div><div class="line"><a name="l01000"></a><span class="lineno"> 1000</span> #endif</div><div class="line"><a name="l01001"></a><span class="lineno"> 1001</span>  $$ = dispatch1(undef, $2);</div><div class="line"><a name="l01002"></a><span class="lineno"> 1002</span> </div><div class="line"><a name="l01003"></a><span class="lineno"> 1003</span>  }</div><div class="line"><a name="l01004"></a><span class="lineno"> 1004</span>  | stmt modifier_if expr_value</div><div class="line"><a name="l01005"></a><span class="lineno"> 1005</span>  {</div><div class="line"><a name="l01006"></a><span class="lineno"> 1006</span> #if 0</div><div class="line"><a name="l01007"></a><span class="lineno"> 1007</span>  $$ = NEW_IF(cond($3), remove_begin($1), 0);</div><div class="line"><a name="l01008"></a><span class="lineno"> 1008</span>  fixpos($$, $3);</div><div class="line"><a name="l01009"></a><span class="lineno"> 1009</span> #endif</div><div class="line"><a name="l01010"></a><span class="lineno"> 1010</span>  $$ = dispatch2(if_mod, $3, $1);</div><div class="line"><a name="l01011"></a><span class="lineno"> 1011</span> </div><div class="line"><a name="l01012"></a><span class="lineno"> 1012</span>  }</div><div class="line"><a name="l01013"></a><span class="lineno"> 1013</span>  | stmt modifier_unless expr_value</div><div class="line"><a name="l01014"></a><span class="lineno"> 1014</span>  {</div><div class="line"><a name="l01015"></a><span class="lineno"> 1015</span> #if 0</div><div class="line"><a name="l01016"></a><span class="lineno"> 1016</span>  $$ = NEW_UNLESS(cond($3), remove_begin($1), 0);</div><div class="line"><a name="l01017"></a><span class="lineno"> 1017</span>  fixpos($$, $3);</div><div class="line"><a name="l01018"></a><span class="lineno"> 1018</span> #endif</div><div class="line"><a name="l01019"></a><span class="lineno"> 1019</span>  $$ = dispatch2(unless_mod, $3, $1);</div><div class="line"><a name="l01020"></a><span class="lineno"> 1020</span> </div><div class="line"><a name="l01021"></a><span class="lineno"> 1021</span>  }</div><div class="line"><a name="l01022"></a><span class="lineno"> 1022</span>  | stmt modifier_while expr_value</div><div class="line"><a name="l01023"></a><span class="lineno"> 1023</span>  {</div><div class="line"><a name="l01024"></a><span class="lineno"> 1024</span> #if 0</div><div class="line"><a name="l01025"></a><span class="lineno"> 1025</span>  if ($1 && nd_type($1) == NODE_BEGIN) {</div><div class="line"><a name="l01026"></a><span class="lineno"> 1026</span>  $$ = NEW_WHILE(cond($3), $1->nd_body, 0);</div><div class="line"><a name="l01027"></a><span class="lineno"> 1027</span>  }</div><div class="line"><a name="l01028"></a><span class="lineno"> 1028</span>  else {</div><div class="line"><a name="l01029"></a><span class="lineno"> 1029</span>  $$ = NEW_WHILE(cond($3), $1, 1);</div><div class="line"><a name="l01030"></a><span class="lineno"> 1030</span>  }</div><div class="line"><a name="l01031"></a><span class="lineno"> 1031</span> #endif</div><div class="line"><a name="l01032"></a><span class="lineno"> 1032</span>  $$ = dispatch2(while_mod, $3, $1);</div><div class="line"><a name="l01033"></a><span class="lineno"> 1033</span> </div><div class="line"><a name="l01034"></a><span class="lineno"> 1034</span>  }</div><div class="line"><a name="l01035"></a><span class="lineno"> 1035</span>  | stmt modifier_until expr_value</div><div class="line"><a name="l01036"></a><span class="lineno"> 1036</span>  {</div><div class="line"><a name="l01037"></a><span class="lineno"> 1037</span> #if 0</div><div class="line"><a name="l01038"></a><span class="lineno"> 1038</span>  if ($1 && nd_type($1) == NODE_BEGIN) {</div><div class="line"><a name="l01039"></a><span class="lineno"> 1039</span>  $$ = NEW_UNTIL(cond($3), $1->nd_body, 0);</div><div class="line"><a name="l01040"></a><span class="lineno"> 1040</span>  }</div><div class="line"><a name="l01041"></a><span class="lineno"> 1041</span>  else {</div><div class="line"><a name="l01042"></a><span class="lineno"> 1042</span>  $$ = NEW_UNTIL(cond($3), $1, 1);</div><div class="line"><a name="l01043"></a><span class="lineno"> 1043</span>  }</div><div class="line"><a name="l01044"></a><span class="lineno"> 1044</span> #endif</div><div class="line"><a name="l01045"></a><span class="lineno"> 1045</span>  $$ = dispatch2(until_mod, $3, $1);</div><div class="line"><a name="l01046"></a><span class="lineno"> 1046</span> </div><div class="line"><a name="l01047"></a><span class="lineno"> 1047</span>  }</div><div class="line"><a name="l01048"></a><span class="lineno"> 1048</span>  | stmt modifier_rescue stmt</div><div class="line"><a name="l01049"></a><span class="lineno"> 1049</span>  {</div><div class="line"><a name="l01050"></a><span class="lineno"> 1050</span> #if 0</div><div class="line"><a name="l01051"></a><span class="lineno"> 1051</span>  NODE *resq = NEW_RESBODY(0, remove_begin($3), 0);</div><div class="line"><a name="l01052"></a><span class="lineno"> 1052</span>  $$ = NEW_RESCUE(remove_begin($1), resq, 0);</div><div class="line"><a name="l01053"></a><span class="lineno"> 1053</span> #endif</div><div class="line"><a name="l01054"></a><span class="lineno"> 1054</span>  $$ = dispatch2(rescue_mod, $1, $3);</div><div class="line"><a name="l01055"></a><span class="lineno"> 1055</span> </div><div class="line"><a name="l01056"></a><span class="lineno"> 1056</span>  }</div><div class="line"><a name="l01057"></a><span class="lineno"> 1057</span>  | keyword_END '{' compstmt '}'</div><div class="line"><a name="l01058"></a><span class="lineno"> 1058</span>  {</div><div class="line"><a name="l01059"></a><span class="lineno"> 1059</span>  if (in_def || in_single) {</div><div class="line"><a name="l01060"></a><span class="lineno"> 1060</span>  rb_warn0("END in method; use at_exit");</div><div class="line"><a name="l01061"></a><span class="lineno"> 1061</span>  }</div><div class="line"><a name="l01062"></a><span class="lineno"> 1062</span> #if 0</div><div class="line"><a name="l01063"></a><span class="lineno"> 1063</span>  $$ = NEW_POSTEXE(NEW_NODE(</div><div class="line"><a name="l01064"></a><span class="lineno"> 1064</span>  NODE_SCOPE, 0 /* tbl */, $3 /* body */, 0 /* args */));</div><div class="line"><a name="l01065"></a><span class="lineno"> 1065</span> #endif</div><div class="line"><a name="l01066"></a><span class="lineno"> 1066</span>  $$ = dispatch1(END, $3);</div><div class="line"><a name="l01067"></a><span class="lineno"> 1067</span> </div><div class="line"><a name="l01068"></a><span class="lineno"> 1068</span>  }</div><div class="line"><a name="l01069"></a><span class="lineno"> 1069</span>  | command_asgn</div><div class="line"><a name="l01070"></a><span class="lineno"> 1070</span>  | mlhs '=' command_call</div><div class="line"><a name="l01071"></a><span class="lineno"> 1071</span>  {</div><div class="line"><a name="l01072"></a><span class="lineno"> 1072</span> #if 0</div><div class="line"><a name="l01073"></a><span class="lineno"> 1073</span>  value_expr($3);</div><div class="line"><a name="l01074"></a><span class="lineno"> 1074</span>  $1->nd_value = $3;</div><div class="line"><a name="l01075"></a><span class="lineno"> 1075</span>  $$ = $1;</div><div class="line"><a name="l01076"></a><span class="lineno"> 1076</span> #endif</div><div class="line"><a name="l01077"></a><span class="lineno"> 1077</span>  $$ = dispatch2(massign, $1, $3);</div><div class="line"><a name="l01078"></a><span class="lineno"> 1078</span> </div><div class="line"><a name="l01079"></a><span class="lineno"> 1079</span>  }</div><div class="line"><a name="l01080"></a><span class="lineno"> 1080</span>  | var_lhs tOP_ASGN command_call</div><div class="line"><a name="l01081"></a><span class="lineno"> 1081</span>  {</div><div class="line"><a name="l01082"></a><span class="lineno"> 1082</span> #if 0</div><div class="line"><a name="l01083"></a><span class="lineno"> 1083</span>  value_expr($3);</div><div class="line"><a name="l01084"></a><span class="lineno"> 1084</span>  if ($1) {</div><div class="line"><a name="l01085"></a><span class="lineno"> 1085</span>  ID vid = $1->nd_vid;</div><div class="line"><a name="l01086"></a><span class="lineno"> 1086</span>  if ($2 == tOROP) {</div><div class="line"><a name="l01087"></a><span class="lineno"> 1087</span>  $1->nd_value = $3;</div><div class="line"><a name="l01088"></a><span class="lineno"> 1088</span>  $$ = NEW_OP_ASGN_OR(gettable(vid), $1);</div><div class="line"><a name="l01089"></a><span class="lineno"> 1089</span>  if (is_asgn_or_id(vid)) {</div><div class="line"><a name="l01090"></a><span class="lineno"> 1090</span>  $$->nd_aid = vid;</div><div class="line"><a name="l01091"></a><span class="lineno"> 1091</span>  }</div><div class="line"><a name="l01092"></a><span class="lineno"> 1092</span>  }</div><div class="line"><a name="l01093"></a><span class="lineno"> 1093</span>  else if ($2 == tANDOP) {</div><div class="line"><a name="l01094"></a><span class="lineno"> 1094</span>  $1->nd_value = $3;</div><div class="line"><a name="l01095"></a><span class="lineno"> 1095</span>  $$ = NEW_OP_ASGN_AND(gettable(vid), $1);</div><div class="line"><a name="l01096"></a><span class="lineno"> 1096</span>  }</div><div class="line"><a name="l01097"></a><span class="lineno"> 1097</span>  else {</div><div class="line"><a name="l01098"></a><span class="lineno"> 1098</span>  $$ = $1;</div><div class="line"><a name="l01099"></a><span class="lineno"> 1099</span>  $$->nd_value = NEW_CALL(gettable(vid), $2, NEW_LIST($3));</div><div class="line"><a name="l01100"></a><span class="lineno"> 1100</span>  }</div><div class="line"><a name="l01101"></a><span class="lineno"> 1101</span>  }</div><div class="line"><a name="l01102"></a><span class="lineno"> 1102</span>  else {</div><div class="line"><a name="l01103"></a><span class="lineno"> 1103</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l01104"></a><span class="lineno"> 1104</span>  }</div><div class="line"><a name="l01105"></a><span class="lineno"> 1105</span> #endif</div><div class="line"><a name="l01106"></a><span class="lineno"> 1106</span>  $$ = dispatch3(opassign, $1, $2, $3);</div><div class="line"><a name="l01107"></a><span class="lineno"> 1107</span> </div><div class="line"><a name="l01108"></a><span class="lineno"> 1108</span>  }</div><div class="line"><a name="l01109"></a><span class="lineno"> 1109</span>  | primary_value '[' opt_call_args rbracket tOP_ASGN command_call</div><div class="line"><a name="l01110"></a><span class="lineno"> 1110</span>  {</div><div class="line"><a name="l01111"></a><span class="lineno"> 1111</span> #if 0</div><div class="line"><a name="l01112"></a><span class="lineno"> 1112</span>  NODE *args;</div><div class="line"><a name="l01113"></a><span class="lineno"> 1113</span> </div><div class="line"><a name="l01114"></a><span class="lineno"> 1114</span>  value_expr($6);</div><div class="line"><a name="l01115"></a><span class="lineno"> 1115</span>  if (!$3) $3 = NEW_ZARRAY();</div><div class="line"><a name="l01116"></a><span class="lineno"> 1116</span>  args = arg_concat($3, $6);</div><div class="line"><a name="l01117"></a><span class="lineno"> 1117</span>  if ($5 == tOROP) {</div><div class="line"><a name="l01118"></a><span class="lineno"> 1118</span>  $5 = 0;</div><div class="line"><a name="l01119"></a><span class="lineno"> 1119</span>  }</div><div class="line"><a name="l01120"></a><span class="lineno"> 1120</span>  else if ($5 == tANDOP) {</div><div class="line"><a name="l01121"></a><span class="lineno"> 1121</span>  $5 = 1;</div><div class="line"><a name="l01122"></a><span class="lineno"> 1122</span>  }</div><div class="line"><a name="l01123"></a><span class="lineno"> 1123</span>  $$ = NEW_OP_ASGN1($1, $5, args);</div><div class="line"><a name="l01124"></a><span class="lineno"> 1124</span>  fixpos($$, $1);</div><div class="line"><a name="l01125"></a><span class="lineno"> 1125</span> #endif</div><div class="line"><a name="l01126"></a><span class="lineno"> 1126</span>  $$ = dispatch2(aref_field, $1, escape_Qundef($3));</div><div class="line"><a name="l01127"></a><span class="lineno"> 1127</span>  $$ = dispatch3(opassign, $$, $5, $6);</div><div class="line"><a name="l01128"></a><span class="lineno"> 1128</span> </div><div class="line"><a name="l01129"></a><span class="lineno"> 1129</span>  }</div><div class="line"><a name="l01130"></a><span class="lineno"> 1130</span>  | primary_value '.' tIDENTIFIER tOP_ASGN command_call</div><div class="line"><a name="l01131"></a><span class="lineno"> 1131</span>  {</div><div class="line"><a name="l01132"></a><span class="lineno"> 1132</span> #if 0</div><div class="line"><a name="l01133"></a><span class="lineno"> 1133</span>  value_expr($5);</div><div class="line"><a name="l01134"></a><span class="lineno"> 1134</span>  if ($4 == tOROP) {</div><div class="line"><a name="l01135"></a><span class="lineno"> 1135</span>  $4 = 0;</div><div class="line"><a name="l01136"></a><span class="lineno"> 1136</span>  }</div><div class="line"><a name="l01137"></a><span class="lineno"> 1137</span>  else if ($4 == tANDOP) {</div><div class="line"><a name="l01138"></a><span class="lineno"> 1138</span>  $4 = 1;</div><div class="line"><a name="l01139"></a><span class="lineno"> 1139</span>  }</div><div class="line"><a name="l01140"></a><span class="lineno"> 1140</span>  $$ = NEW_OP_ASGN2($1, $3, $4, $5);</div><div class="line"><a name="l01141"></a><span class="lineno"> 1141</span>  fixpos($$, $1);</div><div class="line"><a name="l01142"></a><span class="lineno"> 1142</span> #endif</div><div class="line"><a name="l01143"></a><span class="lineno"> 1143</span>  $$ = dispatch3(field, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l01144"></a><span class="lineno"> 1144</span>  $$ = dispatch3(opassign, $$, $4, $5);</div><div class="line"><a name="l01145"></a><span class="lineno"> 1145</span> </div><div class="line"><a name="l01146"></a><span class="lineno"> 1146</span>  }</div><div class="line"><a name="l01147"></a><span class="lineno"> 1147</span>  | primary_value '.' tCONSTANT tOP_ASGN command_call</div><div class="line"><a name="l01148"></a><span class="lineno"> 1148</span>  {</div><div class="line"><a name="l01149"></a><span class="lineno"> 1149</span> #if 0</div><div class="line"><a name="l01150"></a><span class="lineno"> 1150</span>  value_expr($5);</div><div class="line"><a name="l01151"></a><span class="lineno"> 1151</span>  if ($4 == tOROP) {</div><div class="line"><a name="l01152"></a><span class="lineno"> 1152</span>  $4 = 0;</div><div class="line"><a name="l01153"></a><span class="lineno"> 1153</span>  }</div><div class="line"><a name="l01154"></a><span class="lineno"> 1154</span>  else if ($4 == tANDOP) {</div><div class="line"><a name="l01155"></a><span class="lineno"> 1155</span>  $4 = 1;</div><div class="line"><a name="l01156"></a><span class="lineno"> 1156</span>  }</div><div class="line"><a name="l01157"></a><span class="lineno"> 1157</span>  $$ = NEW_OP_ASGN2($1, $3, $4, $5);</div><div class="line"><a name="l01158"></a><span class="lineno"> 1158</span>  fixpos($$, $1);</div><div class="line"><a name="l01159"></a><span class="lineno"> 1159</span> #endif</div><div class="line"><a name="l01160"></a><span class="lineno"> 1160</span>  $$ = dispatch3(field, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l01161"></a><span class="lineno"> 1161</span>  $$ = dispatch3(opassign, $$, $4, $5);</div><div class="line"><a name="l01162"></a><span class="lineno"> 1162</span> </div><div class="line"><a name="l01163"></a><span class="lineno"> 1163</span>  }</div><div class="line"><a name="l01164"></a><span class="lineno"> 1164</span>  | primary_value tCOLON2 tCONSTANT tOP_ASGN command_call</div><div class="line"><a name="l01165"></a><span class="lineno"> 1165</span>  {</div><div class="line"><a name="l01166"></a><span class="lineno"> 1166</span> #if 0</div><div class="line"><a name="l01167"></a><span class="lineno"> 1167</span>  yyerror("constant re-assignment");</div><div class="line"><a name="l01168"></a><span class="lineno"> 1168</span>  $$ = 0;</div><div class="line"><a name="l01169"></a><span class="lineno"> 1169</span> #endif</div><div class="line"><a name="l01170"></a><span class="lineno"> 1170</span>  $$ = dispatch2(const_path_field, $1, $3);</div><div class="line"><a name="l01171"></a><span class="lineno"> 1171</span>  $$ = dispatch3(opassign, $$, $4, $5);</div><div class="line"><a name="l01172"></a><span class="lineno"> 1172</span>  $$ = dispatch1(assign_error, $$);</div><div class="line"><a name="l01173"></a><span class="lineno"> 1173</span> </div><div class="line"><a name="l01174"></a><span class="lineno"> 1174</span>  }</div><div class="line"><a name="l01175"></a><span class="lineno"> 1175</span>  | primary_value tCOLON2 tIDENTIFIER tOP_ASGN command_call</div><div class="line"><a name="l01176"></a><span class="lineno"> 1176</span>  {</div><div class="line"><a name="l01177"></a><span class="lineno"> 1177</span> #if 0</div><div class="line"><a name="l01178"></a><span class="lineno"> 1178</span>  value_expr($5);</div><div class="line"><a name="l01179"></a><span class="lineno"> 1179</span>  if ($4 == tOROP) {</div><div class="line"><a name="l01180"></a><span class="lineno"> 1180</span>  $4 = 0;</div><div class="line"><a name="l01181"></a><span class="lineno"> 1181</span>  }</div><div class="line"><a name="l01182"></a><span class="lineno"> 1182</span>  else if ($4 == tANDOP) {</div><div class="line"><a name="l01183"></a><span class="lineno"> 1183</span>  $4 = 1;</div><div class="line"><a name="l01184"></a><span class="lineno"> 1184</span>  }</div><div class="line"><a name="l01185"></a><span class="lineno"> 1185</span>  $$ = NEW_OP_ASGN2($1, $3, $4, $5);</div><div class="line"><a name="l01186"></a><span class="lineno"> 1186</span>  fixpos($$, $1);</div><div class="line"><a name="l01187"></a><span class="lineno"> 1187</span> #endif</div><div class="line"><a name="l01188"></a><span class="lineno"> 1188</span>  $$ = dispatch3(field, $1, ripper_intern("::"), $3);</div><div class="line"><a name="l01189"></a><span class="lineno"> 1189</span>  $$ = dispatch3(opassign, $$, $4, $5);</div><div class="line"><a name="l01190"></a><span class="lineno"> 1190</span> </div><div class="line"><a name="l01191"></a><span class="lineno"> 1191</span>  }</div><div class="line"><a name="l01192"></a><span class="lineno"> 1192</span>  | backref tOP_ASGN command_call</div><div class="line"><a name="l01193"></a><span class="lineno"> 1193</span>  {</div><div class="line"><a name="l01194"></a><span class="lineno"> 1194</span> #if 0</div><div class="line"><a name="l01195"></a><span class="lineno"> 1195</span>  rb_backref_error($1);</div><div class="line"><a name="l01196"></a><span class="lineno"> 1196</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l01197"></a><span class="lineno"> 1197</span> #endif</div><div class="line"><a name="l01198"></a><span class="lineno"> 1198</span>  $$ = dispatch2(assign, dispatch1(var_field, $1), $3);</div><div class="line"><a name="l01199"></a><span class="lineno"> 1199</span>  $$ = dispatch1(assign_error, $$);</div><div class="line"><a name="l01200"></a><span class="lineno"> 1200</span> </div><div class="line"><a name="l01201"></a><span class="lineno"> 1201</span>  }</div><div class="line"><a name="l01202"></a><span class="lineno"> 1202</span>  | lhs '=' mrhs</div><div class="line"><a name="l01203"></a><span class="lineno"> 1203</span>  {</div><div class="line"><a name="l01204"></a><span class="lineno"> 1204</span> #if 0</div><div class="line"><a name="l01205"></a><span class="lineno"> 1205</span>  value_expr($3);</div><div class="line"><a name="l01206"></a><span class="lineno"> 1206</span>  $$ = node_assign($1, $3);</div><div class="line"><a name="l01207"></a><span class="lineno"> 1207</span> #endif</div><div class="line"><a name="l01208"></a><span class="lineno"> 1208</span>  $$ = dispatch2(assign, $1, $3);</div><div class="line"><a name="l01209"></a><span class="lineno"> 1209</span> </div><div class="line"><a name="l01210"></a><span class="lineno"> 1210</span>  }</div><div class="line"><a name="l01211"></a><span class="lineno"> 1211</span>  | mlhs '=' arg_value</div><div class="line"><a name="l01212"></a><span class="lineno"> 1212</span>  {</div><div class="line"><a name="l01213"></a><span class="lineno"> 1213</span> #if 0</div><div class="line"><a name="l01214"></a><span class="lineno"> 1214</span>  $1->nd_value = $3;</div><div class="line"><a name="l01215"></a><span class="lineno"> 1215</span>  $$ = $1;</div><div class="line"><a name="l01216"></a><span class="lineno"> 1216</span> #endif</div><div class="line"><a name="l01217"></a><span class="lineno"> 1217</span>  $$ = dispatch2(massign, $1, $3);</div><div class="line"><a name="l01218"></a><span class="lineno"> 1218</span> </div><div class="line"><a name="l01219"></a><span class="lineno"> 1219</span>  }</div><div class="line"><a name="l01220"></a><span class="lineno"> 1220</span>  | mlhs '=' mrhs</div><div class="line"><a name="l01221"></a><span class="lineno"> 1221</span>  {</div><div class="line"><a name="l01222"></a><span class="lineno"> 1222</span> #if 0</div><div class="line"><a name="l01223"></a><span class="lineno"> 1223</span>  $1->nd_value = $3;</div><div class="line"><a name="l01224"></a><span class="lineno"> 1224</span>  $$ = $1;</div><div class="line"><a name="l01225"></a><span class="lineno"> 1225</span> #endif</div><div class="line"><a name="l01226"></a><span class="lineno"> 1226</span>  $$ = dispatch2(massign, $1, $3);</div><div class="line"><a name="l01227"></a><span class="lineno"> 1227</span> </div><div class="line"><a name="l01228"></a><span class="lineno"> 1228</span>  }</div><div class="line"><a name="l01229"></a><span class="lineno"> 1229</span>  | expr</div><div class="line"><a name="l01230"></a><span class="lineno"> 1230</span>  ;</div><div class="line"><a name="l01231"></a><span class="lineno"> 1231</span> </div><div class="line"><a name="l01232"></a><span class="lineno"> 1232</span> command_asgn : lhs '=' command_call</div><div class="line"><a name="l01233"></a><span class="lineno"> 1233</span>  {</div><div class="line"><a name="l01234"></a><span class="lineno"> 1234</span> #if 0</div><div class="line"><a name="l01235"></a><span class="lineno"> 1235</span>  value_expr($3);</div><div class="line"><a name="l01236"></a><span class="lineno"> 1236</span>  $$ = node_assign($1, $3);</div><div class="line"><a name="l01237"></a><span class="lineno"> 1237</span> #endif</div><div class="line"><a name="l01238"></a><span class="lineno"> 1238</span>  $$ = dispatch2(assign, $1, $3);</div><div class="line"><a name="l01239"></a><span class="lineno"> 1239</span> </div><div class="line"><a name="l01240"></a><span class="lineno"> 1240</span>  }</div><div class="line"><a name="l01241"></a><span class="lineno"> 1241</span>  | lhs '=' command_asgn</div><div class="line"><a name="l01242"></a><span class="lineno"> 1242</span>  {</div><div class="line"><a name="l01243"></a><span class="lineno"> 1243</span> #if 0</div><div class="line"><a name="l01244"></a><span class="lineno"> 1244</span>  value_expr($3);</div><div class="line"><a name="l01245"></a><span class="lineno"> 1245</span>  $$ = node_assign($1, $3);</div><div class="line"><a name="l01246"></a><span class="lineno"> 1246</span> #endif</div><div class="line"><a name="l01247"></a><span class="lineno"> 1247</span>  $$ = dispatch2(assign, $1, $3);</div><div class="line"><a name="l01248"></a><span class="lineno"> 1248</span> </div><div class="line"><a name="l01249"></a><span class="lineno"> 1249</span>  }</div><div class="line"><a name="l01250"></a><span class="lineno"> 1250</span>  ;</div><div class="line"><a name="l01251"></a><span class="lineno"> 1251</span> </div><div class="line"><a name="l01252"></a><span class="lineno"> 1252</span> </div><div class="line"><a name="l01253"></a><span class="lineno"> 1253</span> expr : command_call</div><div class="line"><a name="l01254"></a><span class="lineno"> 1254</span>  | expr keyword_and expr</div><div class="line"><a name="l01255"></a><span class="lineno"> 1255</span>  {</div><div class="line"><a name="l01256"></a><span class="lineno"> 1256</span> #if 0</div><div class="line"><a name="l01257"></a><span class="lineno"> 1257</span>  $$ = logop(NODE_AND, $1, $3);</div><div class="line"><a name="l01258"></a><span class="lineno"> 1258</span> #endif</div><div class="line"><a name="l01259"></a><span class="lineno"> 1259</span>  $$ = dispatch3(binary, $1, ripper_intern("and"), $3);</div><div class="line"><a name="l01260"></a><span class="lineno"> 1260</span> </div><div class="line"><a name="l01261"></a><span class="lineno"> 1261</span>  }</div><div class="line"><a name="l01262"></a><span class="lineno"> 1262</span>  | expr keyword_or expr</div><div class="line"><a name="l01263"></a><span class="lineno"> 1263</span>  {</div><div class="line"><a name="l01264"></a><span class="lineno"> 1264</span> #if 0</div><div class="line"><a name="l01265"></a><span class="lineno"> 1265</span>  $$ = logop(NODE_OR, $1, $3);</div><div class="line"><a name="l01266"></a><span class="lineno"> 1266</span> #endif</div><div class="line"><a name="l01267"></a><span class="lineno"> 1267</span>  $$ = dispatch3(binary, $1, ripper_intern("or"), $3);</div><div class="line"><a name="l01268"></a><span class="lineno"> 1268</span> </div><div class="line"><a name="l01269"></a><span class="lineno"> 1269</span>  }</div><div class="line"><a name="l01270"></a><span class="lineno"> 1270</span>  | keyword_not opt_nl expr</div><div class="line"><a name="l01271"></a><span class="lineno"> 1271</span>  {</div><div class="line"><a name="l01272"></a><span class="lineno"> 1272</span> #if 0</div><div class="line"><a name="l01273"></a><span class="lineno"> 1273</span>  $$ = call_uni_op(cond($3), '!');</div><div class="line"><a name="l01274"></a><span class="lineno"> 1274</span> #endif</div><div class="line"><a name="l01275"></a><span class="lineno"> 1275</span>  $$ = dispatch2(unary, ripper_intern("not"), $3);</div><div class="line"><a name="l01276"></a><span class="lineno"> 1276</span> </div><div class="line"><a name="l01277"></a><span class="lineno"> 1277</span>  }</div><div class="line"><a name="l01278"></a><span class="lineno"> 1278</span>  | '!' command_call</div><div class="line"><a name="l01279"></a><span class="lineno"> 1279</span>  {</div><div class="line"><a name="l01280"></a><span class="lineno"> 1280</span> #if 0</div><div class="line"><a name="l01281"></a><span class="lineno"> 1281</span>  $$ = call_uni_op(cond($2), '!');</div><div class="line"><a name="l01282"></a><span class="lineno"> 1282</span> #endif</div><div class="line"><a name="l01283"></a><span class="lineno"> 1283</span>  $$ = dispatch2(unary, ripper_id2sym('!'), $2);</div><div class="line"><a name="l01284"></a><span class="lineno"> 1284</span> </div><div class="line"><a name="l01285"></a><span class="lineno"> 1285</span>  }</div><div class="line"><a name="l01286"></a><span class="lineno"> 1286</span>  | arg</div><div class="line"><a name="l01287"></a><span class="lineno"> 1287</span>  ;</div><div class="line"><a name="l01288"></a><span class="lineno"> 1288</span> </div><div class="line"><a name="l01289"></a><span class="lineno"> 1289</span> expr_value : expr</div><div class="line"><a name="l01290"></a><span class="lineno"> 1290</span>  {</div><div class="line"><a name="l01291"></a><span class="lineno"> 1291</span> #if 0</div><div class="line"><a name="l01292"></a><span class="lineno"> 1292</span>  value_expr($1);</div><div class="line"><a name="l01293"></a><span class="lineno"> 1293</span>  $$ = $1;</div><div class="line"><a name="l01294"></a><span class="lineno"> 1294</span>  if (!$$) $$ = NEW_NIL();</div><div class="line"><a name="l01295"></a><span class="lineno"> 1295</span> #endif</div><div class="line"><a name="l01296"></a><span class="lineno"> 1296</span>  $$ = $1;</div><div class="line"><a name="l01297"></a><span class="lineno"> 1297</span> </div><div class="line"><a name="l01298"></a><span class="lineno"> 1298</span>  }</div><div class="line"><a name="l01299"></a><span class="lineno"> 1299</span>  ;</div><div class="line"><a name="l01300"></a><span class="lineno"> 1300</span> </div><div class="line"><a name="l01301"></a><span class="lineno"> 1301</span> command_call : command</div><div class="line"><a name="l01302"></a><span class="lineno"> 1302</span>  | block_command</div><div class="line"><a name="l01303"></a><span class="lineno"> 1303</span>  ;</div><div class="line"><a name="l01304"></a><span class="lineno"> 1304</span> </div><div class="line"><a name="l01305"></a><span class="lineno"> 1305</span> block_command : block_call</div><div class="line"><a name="l01306"></a><span class="lineno"> 1306</span>  | block_call '.' operation2 command_args</div><div class="line"><a name="l01307"></a><span class="lineno"> 1307</span>  {</div><div class="line"><a name="l01308"></a><span class="lineno"> 1308</span> #if 0</div><div class="line"><a name="l01309"></a><span class="lineno"> 1309</span>  $$ = NEW_CALL($1, $3, $4);</div><div class="line"><a name="l01310"></a><span class="lineno"> 1310</span> #endif</div><div class="line"><a name="l01311"></a><span class="lineno"> 1311</span>  $$ = dispatch3(call, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l01312"></a><span class="lineno"> 1312</span>  $$ = method_arg($$, $4);</div><div class="line"><a name="l01313"></a><span class="lineno"> 1313</span> </div><div class="line"><a name="l01314"></a><span class="lineno"> 1314</span>  }</div><div class="line"><a name="l01315"></a><span class="lineno"> 1315</span>  | block_call tCOLON2 operation2 command_args</div><div class="line"><a name="l01316"></a><span class="lineno"> 1316</span>  {</div><div class="line"><a name="l01317"></a><span class="lineno"> 1317</span> #if 0</div><div class="line"><a name="l01318"></a><span class="lineno"> 1318</span>  $$ = NEW_CALL($1, $3, $4);</div><div class="line"><a name="l01319"></a><span class="lineno"> 1319</span> #endif</div><div class="line"><a name="l01320"></a><span class="lineno"> 1320</span>  $$ = dispatch3(call, $1, ripper_intern("::"), $3);</div><div class="line"><a name="l01321"></a><span class="lineno"> 1321</span>  $$ = method_arg($$, $4);</div><div class="line"><a name="l01322"></a><span class="lineno"> 1322</span> </div><div class="line"><a name="l01323"></a><span class="lineno"> 1323</span>  }</div><div class="line"><a name="l01324"></a><span class="lineno"> 1324</span>  ;</div><div class="line"><a name="l01325"></a><span class="lineno"> 1325</span> </div><div class="line"><a name="l01326"></a><span class="lineno"> 1326</span> cmd_brace_block : tLBRACE_ARG</div><div class="line"><a name="l01327"></a><span class="lineno"> 1327</span>  {</div><div class="line"><a name="l01328"></a><span class="lineno"> 1328</span>  $<vars>1 = dyna_push();</div><div class="line"><a name="l01329"></a><span class="lineno"> 1329</span> #if 0</div><div class="line"><a name="l01330"></a><span class="lineno"> 1330</span>  $<num>$ = ruby_sourceline;</div><div class="line"><a name="l01331"></a><span class="lineno"> 1331</span> #endif</div><div class="line"><a name="l01332"></a><span class="lineno"> 1332</span> </div><div class="line"><a name="l01333"></a><span class="lineno"> 1333</span>  }</div><div class="line"><a name="l01334"></a><span class="lineno"> 1334</span>  opt_block_param</div><div class="line"><a name="l01335"></a><span class="lineno"> 1335</span>  compstmt</div><div class="line"><a name="l01336"></a><span class="lineno"> 1336</span>  '}'</div><div class="line"><a name="l01337"></a><span class="lineno"> 1337</span>  {</div><div class="line"><a name="l01338"></a><span class="lineno"> 1338</span> #if 0</div><div class="line"><a name="l01339"></a><span class="lineno"> 1339</span>  $$ = NEW_ITER($3,$4);</div><div class="line"><a name="l01340"></a><span class="lineno"> 1340</span>  nd_set_line($$, $<num>2);</div><div class="line"><a name="l01341"></a><span class="lineno"> 1341</span> #endif</div><div class="line"><a name="l01342"></a><span class="lineno"> 1342</span>  $$ = dispatch2(brace_block, escape_Qundef($3), $4);</div><div class="line"><a name="l01343"></a><span class="lineno"> 1343</span> </div><div class="line"><a name="l01344"></a><span class="lineno"> 1344</span>  dyna_pop($<vars>1);</div><div class="line"><a name="l01345"></a><span class="lineno"> 1345</span>  }</div><div class="line"><a name="l01346"></a><span class="lineno"> 1346</span>  ;</div><div class="line"><a name="l01347"></a><span class="lineno"> 1347</span> </div><div class="line"><a name="l01348"></a><span class="lineno"> 1348</span> command : operation command_args %prec tLOWEST</div><div class="line"><a name="l01349"></a><span class="lineno"> 1349</span>  {</div><div class="line"><a name="l01350"></a><span class="lineno"> 1350</span> #if 0</div><div class="line"><a name="l01351"></a><span class="lineno"> 1351</span>  $$ = NEW_FCALL($1, $2);</div><div class="line"><a name="l01352"></a><span class="lineno"> 1352</span>  fixpos($$, $2);</div><div class="line"><a name="l01353"></a><span class="lineno"> 1353</span> #endif</div><div class="line"><a name="l01354"></a><span class="lineno"> 1354</span>  $$ = dispatch2(command, $1, $2);</div><div class="line"><a name="l01355"></a><span class="lineno"> 1355</span> </div><div class="line"><a name="l01356"></a><span class="lineno"> 1356</span>  }</div><div class="line"><a name="l01357"></a><span class="lineno"> 1357</span>  | operation command_args cmd_brace_block</div><div class="line"><a name="l01358"></a><span class="lineno"> 1358</span>  {</div><div class="line"><a name="l01359"></a><span class="lineno"> 1359</span> #if 0</div><div class="line"><a name="l01360"></a><span class="lineno"> 1360</span>  block_dup_check($2,$3);</div><div class="line"><a name="l01361"></a><span class="lineno"> 1361</span>  $3->nd_iter = NEW_FCALL($1, $2);</div><div class="line"><a name="l01362"></a><span class="lineno"> 1362</span>  $$ = $3;</div><div class="line"><a name="l01363"></a><span class="lineno"> 1363</span>  fixpos($$, $2);</div><div class="line"><a name="l01364"></a><span class="lineno"> 1364</span> #endif</div><div class="line"><a name="l01365"></a><span class="lineno"> 1365</span>  $$ = dispatch2(command, $1, $2);</div><div class="line"><a name="l01366"></a><span class="lineno"> 1366</span>  $$ = method_add_block($$, $3);</div><div class="line"><a name="l01367"></a><span class="lineno"> 1367</span> </div><div class="line"><a name="l01368"></a><span class="lineno"> 1368</span>  }</div><div class="line"><a name="l01369"></a><span class="lineno"> 1369</span>  | primary_value '.' operation2 command_args %prec tLOWEST</div><div class="line"><a name="l01370"></a><span class="lineno"> 1370</span>  {</div><div class="line"><a name="l01371"></a><span class="lineno"> 1371</span> #if 0</div><div class="line"><a name="l01372"></a><span class="lineno"> 1372</span>  $$ = NEW_CALL($1, $3, $4);</div><div class="line"><a name="l01373"></a><span class="lineno"> 1373</span>  fixpos($$, $1);</div><div class="line"><a name="l01374"></a><span class="lineno"> 1374</span> #endif</div><div class="line"><a name="l01375"></a><span class="lineno"> 1375</span>  $$ = dispatch4(command_call, $1, ripper_id2sym('.'), $3, $4);</div><div class="line"><a name="l01376"></a><span class="lineno"> 1376</span> </div><div class="line"><a name="l01377"></a><span class="lineno"> 1377</span>  }</div><div class="line"><a name="l01378"></a><span class="lineno"> 1378</span>  | primary_value '.' operation2 command_args cmd_brace_block</div><div class="line"><a name="l01379"></a><span class="lineno"> 1379</span>  {</div><div class="line"><a name="l01380"></a><span class="lineno"> 1380</span> #if 0</div><div class="line"><a name="l01381"></a><span class="lineno"> 1381</span>  block_dup_check($4,$5);</div><div class="line"><a name="l01382"></a><span class="lineno"> 1382</span>  $5->nd_iter = NEW_CALL($1, $3, $4);</div><div class="line"><a name="l01383"></a><span class="lineno"> 1383</span>  $$ = $5;</div><div class="line"><a name="l01384"></a><span class="lineno"> 1384</span>  fixpos($$, $1);</div><div class="line"><a name="l01385"></a><span class="lineno"> 1385</span> #endif</div><div class="line"><a name="l01386"></a><span class="lineno"> 1386</span>  $$ = dispatch4(command_call, $1, ripper_id2sym('.'), $3, $4);</div><div class="line"><a name="l01387"></a><span class="lineno"> 1387</span>  $$ = method_add_block($$, $5);</div><div class="line"><a name="l01388"></a><span class="lineno"> 1388</span> </div><div class="line"><a name="l01389"></a><span class="lineno"> 1389</span>  }</div><div class="line"><a name="l01390"></a><span class="lineno"> 1390</span>  | primary_value tCOLON2 operation2 command_args %prec tLOWEST</div><div class="line"><a name="l01391"></a><span class="lineno"> 1391</span>  {</div><div class="line"><a name="l01392"></a><span class="lineno"> 1392</span> #if 0</div><div class="line"><a name="l01393"></a><span class="lineno"> 1393</span>  $$ = NEW_CALL($1, $3, $4);</div><div class="line"><a name="l01394"></a><span class="lineno"> 1394</span>  fixpos($$, $1);</div><div class="line"><a name="l01395"></a><span class="lineno"> 1395</span> #endif</div><div class="line"><a name="l01396"></a><span class="lineno"> 1396</span>  $$ = dispatch4(command_call, $1, ripper_intern("::"), $3, $4);</div><div class="line"><a name="l01397"></a><span class="lineno"> 1397</span> </div><div class="line"><a name="l01398"></a><span class="lineno"> 1398</span>  }</div><div class="line"><a name="l01399"></a><span class="lineno"> 1399</span>  | primary_value tCOLON2 operation2 command_args cmd_brace_block</div><div class="line"><a name="l01400"></a><span class="lineno"> 1400</span>  {</div><div class="line"><a name="l01401"></a><span class="lineno"> 1401</span> #if 0</div><div class="line"><a name="l01402"></a><span class="lineno"> 1402</span>  block_dup_check($4,$5);</div><div class="line"><a name="l01403"></a><span class="lineno"> 1403</span>  $5->nd_iter = NEW_CALL($1, $3, $4);</div><div class="line"><a name="l01404"></a><span class="lineno"> 1404</span>  $$ = $5;</div><div class="line"><a name="l01405"></a><span class="lineno"> 1405</span>  fixpos($$, $1);</div><div class="line"><a name="l01406"></a><span class="lineno"> 1406</span> #endif</div><div class="line"><a name="l01407"></a><span class="lineno"> 1407</span>  $$ = dispatch4(command_call, $1, ripper_intern("::"), $3, $4);</div><div class="line"><a name="l01408"></a><span class="lineno"> 1408</span>  $$ = method_add_block($$, $5);</div><div class="line"><a name="l01409"></a><span class="lineno"> 1409</span> </div><div class="line"><a name="l01410"></a><span class="lineno"> 1410</span>  }</div><div class="line"><a name="l01411"></a><span class="lineno"> 1411</span>  | keyword_super command_args</div><div class="line"><a name="l01412"></a><span class="lineno"> 1412</span>  {</div><div class="line"><a name="l01413"></a><span class="lineno"> 1413</span> #if 0</div><div class="line"><a name="l01414"></a><span class="lineno"> 1414</span>  $$ = NEW_SUPER($2);</div><div class="line"><a name="l01415"></a><span class="lineno"> 1415</span>  fixpos($$, $2);</div><div class="line"><a name="l01416"></a><span class="lineno"> 1416</span> #endif</div><div class="line"><a name="l01417"></a><span class="lineno"> 1417</span>  $$ = dispatch1(super, $2);</div><div class="line"><a name="l01418"></a><span class="lineno"> 1418</span> </div><div class="line"><a name="l01419"></a><span class="lineno"> 1419</span>  }</div><div class="line"><a name="l01420"></a><span class="lineno"> 1420</span>  | keyword_yield command_args</div><div class="line"><a name="l01421"></a><span class="lineno"> 1421</span>  {</div><div class="line"><a name="l01422"></a><span class="lineno"> 1422</span> #if 0</div><div class="line"><a name="l01423"></a><span class="lineno"> 1423</span>  $$ = new_yield($2);</div><div class="line"><a name="l01424"></a><span class="lineno"> 1424</span>  fixpos($$, $2);</div><div class="line"><a name="l01425"></a><span class="lineno"> 1425</span> #endif</div><div class="line"><a name="l01426"></a><span class="lineno"> 1426</span>  $$ = dispatch1(yield, $2);</div><div class="line"><a name="l01427"></a><span class="lineno"> 1427</span> </div><div class="line"><a name="l01428"></a><span class="lineno"> 1428</span>  }</div><div class="line"><a name="l01429"></a><span class="lineno"> 1429</span>  | keyword_return call_args</div><div class="line"><a name="l01430"></a><span class="lineno"> 1430</span>  {</div><div class="line"><a name="l01431"></a><span class="lineno"> 1431</span> #if 0</div><div class="line"><a name="l01432"></a><span class="lineno"> 1432</span>  $$ = NEW_RETURN(ret_args($2));</div><div class="line"><a name="l01433"></a><span class="lineno"> 1433</span> #endif</div><div class="line"><a name="l01434"></a><span class="lineno"> 1434</span>  $$ = dispatch1(return, $2);</div><div class="line"><a name="l01435"></a><span class="lineno"> 1435</span> </div><div class="line"><a name="l01436"></a><span class="lineno"> 1436</span>  }</div><div class="line"><a name="l01437"></a><span class="lineno"> 1437</span>  | keyword_break call_args</div><div class="line"><a name="l01438"></a><span class="lineno"> 1438</span>  {</div><div class="line"><a name="l01439"></a><span class="lineno"> 1439</span> #if 0</div><div class="line"><a name="l01440"></a><span class="lineno"> 1440</span>  $$ = NEW_BREAK(ret_args($2));</div><div class="line"><a name="l01441"></a><span class="lineno"> 1441</span> #endif</div><div class="line"><a name="l01442"></a><span class="lineno"> 1442</span>  $$ = dispatch1(break, $2);</div><div class="line"><a name="l01443"></a><span class="lineno"> 1443</span> </div><div class="line"><a name="l01444"></a><span class="lineno"> 1444</span>  }</div><div class="line"><a name="l01445"></a><span class="lineno"> 1445</span>  | keyword_next call_args</div><div class="line"><a name="l01446"></a><span class="lineno"> 1446</span>  {</div><div class="line"><a name="l01447"></a><span class="lineno"> 1447</span> #if 0</div><div class="line"><a name="l01448"></a><span class="lineno"> 1448</span>  $$ = NEW_NEXT(ret_args($2));</div><div class="line"><a name="l01449"></a><span class="lineno"> 1449</span> #endif</div><div class="line"><a name="l01450"></a><span class="lineno"> 1450</span>  $$ = dispatch1(next, $2);</div><div class="line"><a name="l01451"></a><span class="lineno"> 1451</span> </div><div class="line"><a name="l01452"></a><span class="lineno"> 1452</span>  }</div><div class="line"><a name="l01453"></a><span class="lineno"> 1453</span>  ;</div><div class="line"><a name="l01454"></a><span class="lineno"> 1454</span> </div><div class="line"><a name="l01455"></a><span class="lineno"> 1455</span> mlhs : mlhs_basic</div><div class="line"><a name="l01456"></a><span class="lineno"> 1456</span>  | tLPAREN mlhs_inner rparen</div><div class="line"><a name="l01457"></a><span class="lineno"> 1457</span>  {</div><div class="line"><a name="l01458"></a><span class="lineno"> 1458</span> #if 0</div><div class="line"><a name="l01459"></a><span class="lineno"> 1459</span>  $$ = $2;</div><div class="line"><a name="l01460"></a><span class="lineno"> 1460</span> #endif</div><div class="line"><a name="l01461"></a><span class="lineno"> 1461</span>  $$ = dispatch1(mlhs_paren, $2);</div><div class="line"><a name="l01462"></a><span class="lineno"> 1462</span> </div><div class="line"><a name="l01463"></a><span class="lineno"> 1463</span>  }</div><div class="line"><a name="l01464"></a><span class="lineno"> 1464</span>  ;</div><div class="line"><a name="l01465"></a><span class="lineno"> 1465</span> </div><div class="line"><a name="l01466"></a><span class="lineno"> 1466</span> mlhs_inner : mlhs_basic</div><div class="line"><a name="l01467"></a><span class="lineno"> 1467</span>  | tLPAREN mlhs_inner rparen</div><div class="line"><a name="l01468"></a><span class="lineno"> 1468</span>  {</div><div class="line"><a name="l01469"></a><span class="lineno"> 1469</span> #if 0</div><div class="line"><a name="l01470"></a><span class="lineno"> 1470</span>  $$ = NEW_MASGN(NEW_LIST($2), 0);</div><div class="line"><a name="l01471"></a><span class="lineno"> 1471</span> #endif</div><div class="line"><a name="l01472"></a><span class="lineno"> 1472</span>  $$ = dispatch1(mlhs_paren, $2);</div><div class="line"><a name="l01473"></a><span class="lineno"> 1473</span> </div><div class="line"><a name="l01474"></a><span class="lineno"> 1474</span>  }</div><div class="line"><a name="l01475"></a><span class="lineno"> 1475</span>  ;</div><div class="line"><a name="l01476"></a><span class="lineno"> 1476</span> </div><div class="line"><a name="l01477"></a><span class="lineno"> 1477</span> mlhs_basic : mlhs_head</div><div class="line"><a name="l01478"></a><span class="lineno"> 1478</span>  {</div><div class="line"><a name="l01479"></a><span class="lineno"> 1479</span> #if 0</div><div class="line"><a name="l01480"></a><span class="lineno"> 1480</span>  $$ = NEW_MASGN($1, 0);</div><div class="line"><a name="l01481"></a><span class="lineno"> 1481</span> #endif</div><div class="line"><a name="l01482"></a><span class="lineno"> 1482</span>  $$ = $1;</div><div class="line"><a name="l01483"></a><span class="lineno"> 1483</span> </div><div class="line"><a name="l01484"></a><span class="lineno"> 1484</span>  }</div><div class="line"><a name="l01485"></a><span class="lineno"> 1485</span>  | mlhs_head mlhs_item</div><div class="line"><a name="l01486"></a><span class="lineno"> 1486</span>  {</div><div class="line"><a name="l01487"></a><span class="lineno"> 1487</span> #if 0</div><div class="line"><a name="l01488"></a><span class="lineno"> 1488</span>  $$ = NEW_MASGN(list_append($1,$2), 0);</div><div class="line"><a name="l01489"></a><span class="lineno"> 1489</span> #endif</div><div class="line"><a name="l01490"></a><span class="lineno"> 1490</span>  $$ = mlhs_add($1, $2);</div><div class="line"><a name="l01491"></a><span class="lineno"> 1491</span> </div><div class="line"><a name="l01492"></a><span class="lineno"> 1492</span>  }</div><div class="line"><a name="l01493"></a><span class="lineno"> 1493</span>  | mlhs_head tSTAR mlhs_node</div><div class="line"><a name="l01494"></a><span class="lineno"> 1494</span>  {</div><div class="line"><a name="l01495"></a><span class="lineno"> 1495</span> #if 0</div><div class="line"><a name="l01496"></a><span class="lineno"> 1496</span>  $$ = NEW_MASGN($1, $3);</div><div class="line"><a name="l01497"></a><span class="lineno"> 1497</span> #endif</div><div class="line"><a name="l01498"></a><span class="lineno"> 1498</span>  $$ = mlhs_add_star($1, $3);</div><div class="line"><a name="l01499"></a><span class="lineno"> 1499</span> </div><div class="line"><a name="l01500"></a><span class="lineno"> 1500</span>  }</div><div class="line"><a name="l01501"></a><span class="lineno"> 1501</span>  | mlhs_head tSTAR mlhs_node ',' mlhs_post</div><div class="line"><a name="l01502"></a><span class="lineno"> 1502</span>  {</div><div class="line"><a name="l01503"></a><span class="lineno"> 1503</span> #if 0</div><div class="line"><a name="l01504"></a><span class="lineno"> 1504</span>  $$ = NEW_MASGN($1, NEW_POSTARG($3,$5));</div><div class="line"><a name="l01505"></a><span class="lineno"> 1505</span> #endif</div><div class="line"><a name="l01506"></a><span class="lineno"> 1506</span>  $1 = mlhs_add_star($1, $3);</div><div class="line"><a name="l01507"></a><span class="lineno"> 1507</span>  $$ = mlhs_add($1, $5);</div><div class="line"><a name="l01508"></a><span class="lineno"> 1508</span> </div><div class="line"><a name="l01509"></a><span class="lineno"> 1509</span>  }</div><div class="line"><a name="l01510"></a><span class="lineno"> 1510</span>  | mlhs_head tSTAR</div><div class="line"><a name="l01511"></a><span class="lineno"> 1511</span>  {</div><div class="line"><a name="l01512"></a><span class="lineno"> 1512</span> #if 0</div><div class="line"><a name="l01513"></a><span class="lineno"> 1513</span>  $$ = NEW_MASGN($1, -1);</div><div class="line"><a name="l01514"></a><span class="lineno"> 1514</span> #endif</div><div class="line"><a name="l01515"></a><span class="lineno"> 1515</span>  $$ = mlhs_add_star($1, Qnil);</div><div class="line"><a name="l01516"></a><span class="lineno"> 1516</span> </div><div class="line"><a name="l01517"></a><span class="lineno"> 1517</span>  }</div><div class="line"><a name="l01518"></a><span class="lineno"> 1518</span>  | mlhs_head tSTAR ',' mlhs_post</div><div class="line"><a name="l01519"></a><span class="lineno"> 1519</span>  {</div><div class="line"><a name="l01520"></a><span class="lineno"> 1520</span> #if 0</div><div class="line"><a name="l01521"></a><span class="lineno"> 1521</span>  $$ = NEW_MASGN($1, NEW_POSTARG(-1, $4));</div><div class="line"><a name="l01522"></a><span class="lineno"> 1522</span> #endif</div><div class="line"><a name="l01523"></a><span class="lineno"> 1523</span>  $1 = mlhs_add_star($1, Qnil);</div><div class="line"><a name="l01524"></a><span class="lineno"> 1524</span>  $$ = mlhs_add($1, $4);</div><div class="line"><a name="l01525"></a><span class="lineno"> 1525</span> </div><div class="line"><a name="l01526"></a><span class="lineno"> 1526</span>  }</div><div class="line"><a name="l01527"></a><span class="lineno"> 1527</span>  | tSTAR mlhs_node</div><div class="line"><a name="l01528"></a><span class="lineno"> 1528</span>  {</div><div class="line"><a name="l01529"></a><span class="lineno"> 1529</span> #if 0</div><div class="line"><a name="l01530"></a><span class="lineno"> 1530</span>  $$ = NEW_MASGN(0, $2);</div><div class="line"><a name="l01531"></a><span class="lineno"> 1531</span> #endif</div><div class="line"><a name="l01532"></a><span class="lineno"> 1532</span>  $$ = mlhs_add_star(mlhs_new(), $2);</div><div class="line"><a name="l01533"></a><span class="lineno"> 1533</span> </div><div class="line"><a name="l01534"></a><span class="lineno"> 1534</span>  }</div><div class="line"><a name="l01535"></a><span class="lineno"> 1535</span>  | tSTAR mlhs_node ',' mlhs_post</div><div class="line"><a name="l01536"></a><span class="lineno"> 1536</span>  {</div><div class="line"><a name="l01537"></a><span class="lineno"> 1537</span> #if 0</div><div class="line"><a name="l01538"></a><span class="lineno"> 1538</span>  $$ = NEW_MASGN(0, NEW_POSTARG($2,$4));</div><div class="line"><a name="l01539"></a><span class="lineno"> 1539</span> #endif</div><div class="line"><a name="l01540"></a><span class="lineno"> 1540</span>  $2 = mlhs_add_star(mlhs_new(), $2);</div><div class="line"><a name="l01541"></a><span class="lineno"> 1541</span>  $$ = mlhs_add($2, $4);</div><div class="line"><a name="l01542"></a><span class="lineno"> 1542</span> </div><div class="line"><a name="l01543"></a><span class="lineno"> 1543</span>  }</div><div class="line"><a name="l01544"></a><span class="lineno"> 1544</span>  | tSTAR</div><div class="line"><a name="l01545"></a><span class="lineno"> 1545</span>  {</div><div class="line"><a name="l01546"></a><span class="lineno"> 1546</span> #if 0</div><div class="line"><a name="l01547"></a><span class="lineno"> 1547</span>  $$ = NEW_MASGN(0, -1);</div><div class="line"><a name="l01548"></a><span class="lineno"> 1548</span> #endif</div><div class="line"><a name="l01549"></a><span class="lineno"> 1549</span>  $$ = mlhs_add_star(mlhs_new(), Qnil);</div><div class="line"><a name="l01550"></a><span class="lineno"> 1550</span> </div><div class="line"><a name="l01551"></a><span class="lineno"> 1551</span>  }</div><div class="line"><a name="l01552"></a><span class="lineno"> 1552</span>  | tSTAR ',' mlhs_post</div><div class="line"><a name="l01553"></a><span class="lineno"> 1553</span>  {</div><div class="line"><a name="l01554"></a><span class="lineno"> 1554</span> #if 0</div><div class="line"><a name="l01555"></a><span class="lineno"> 1555</span>  $$ = NEW_MASGN(0, NEW_POSTARG(-1, $3));</div><div class="line"><a name="l01556"></a><span class="lineno"> 1556</span> #endif</div><div class="line"><a name="l01557"></a><span class="lineno"> 1557</span>  $$ = mlhs_add_star(mlhs_new(), Qnil);</div><div class="line"><a name="l01558"></a><span class="lineno"> 1558</span>  $$ = mlhs_add($$, $3);</div><div class="line"><a name="l01559"></a><span class="lineno"> 1559</span> </div><div class="line"><a name="l01560"></a><span class="lineno"> 1560</span>  }</div><div class="line"><a name="l01561"></a><span class="lineno"> 1561</span>  ;</div><div class="line"><a name="l01562"></a><span class="lineno"> 1562</span> </div><div class="line"><a name="l01563"></a><span class="lineno"> 1563</span> mlhs_item : mlhs_node</div><div class="line"><a name="l01564"></a><span class="lineno"> 1564</span>  | tLPAREN mlhs_inner rparen</div><div class="line"><a name="l01565"></a><span class="lineno"> 1565</span>  {</div><div class="line"><a name="l01566"></a><span class="lineno"> 1566</span> #if 0</div><div class="line"><a name="l01567"></a><span class="lineno"> 1567</span>  $$ = $2;</div><div class="line"><a name="l01568"></a><span class="lineno"> 1568</span> #endif</div><div class="line"><a name="l01569"></a><span class="lineno"> 1569</span>  $$ = dispatch1(mlhs_paren, $2);</div><div class="line"><a name="l01570"></a><span class="lineno"> 1570</span> </div><div class="line"><a name="l01571"></a><span class="lineno"> 1571</span>  }</div><div class="line"><a name="l01572"></a><span class="lineno"> 1572</span>  ;</div><div class="line"><a name="l01573"></a><span class="lineno"> 1573</span> </div><div class="line"><a name="l01574"></a><span class="lineno"> 1574</span> mlhs_head : mlhs_item ','</div><div class="line"><a name="l01575"></a><span class="lineno"> 1575</span>  {</div><div class="line"><a name="l01576"></a><span class="lineno"> 1576</span> #if 0</div><div class="line"><a name="l01577"></a><span class="lineno"> 1577</span>  $$ = NEW_LIST($1);</div><div class="line"><a name="l01578"></a><span class="lineno"> 1578</span> #endif</div><div class="line"><a name="l01579"></a><span class="lineno"> 1579</span>  $$ = mlhs_add(mlhs_new(), $1);</div><div class="line"><a name="l01580"></a><span class="lineno"> 1580</span> </div><div class="line"><a name="l01581"></a><span class="lineno"> 1581</span>  }</div><div class="line"><a name="l01582"></a><span class="lineno"> 1582</span>  | mlhs_head mlhs_item ','</div><div class="line"><a name="l01583"></a><span class="lineno"> 1583</span>  {</div><div class="line"><a name="l01584"></a><span class="lineno"> 1584</span> #if 0</div><div class="line"><a name="l01585"></a><span class="lineno"> 1585</span>  $$ = list_append($1, $2);</div><div class="line"><a name="l01586"></a><span class="lineno"> 1586</span> #endif</div><div class="line"><a name="l01587"></a><span class="lineno"> 1587</span>  $$ = mlhs_add($1, $2);</div><div class="line"><a name="l01588"></a><span class="lineno"> 1588</span> </div><div class="line"><a name="l01589"></a><span class="lineno"> 1589</span>  }</div><div class="line"><a name="l01590"></a><span class="lineno"> 1590</span>  ;</div><div class="line"><a name="l01591"></a><span class="lineno"> 1591</span> </div><div class="line"><a name="l01592"></a><span class="lineno"> 1592</span> mlhs_post : mlhs_item</div><div class="line"><a name="l01593"></a><span class="lineno"> 1593</span>  {</div><div class="line"><a name="l01594"></a><span class="lineno"> 1594</span> #if 0</div><div class="line"><a name="l01595"></a><span class="lineno"> 1595</span>  $$ = NEW_LIST($1);</div><div class="line"><a name="l01596"></a><span class="lineno"> 1596</span> #endif</div><div class="line"><a name="l01597"></a><span class="lineno"> 1597</span>  $$ = mlhs_add(mlhs_new(), $1);</div><div class="line"><a name="l01598"></a><span class="lineno"> 1598</span> </div><div class="line"><a name="l01599"></a><span class="lineno"> 1599</span>  }</div><div class="line"><a name="l01600"></a><span class="lineno"> 1600</span>  | mlhs_post ',' mlhs_item</div><div class="line"><a name="l01601"></a><span class="lineno"> 1601</span>  {</div><div class="line"><a name="l01602"></a><span class="lineno"> 1602</span> #if 0</div><div class="line"><a name="l01603"></a><span class="lineno"> 1603</span>  $$ = list_append($1, $3);</div><div class="line"><a name="l01604"></a><span class="lineno"> 1604</span> #endif</div><div class="line"><a name="l01605"></a><span class="lineno"> 1605</span>  $$ = mlhs_add($1, $3);</div><div class="line"><a name="l01606"></a><span class="lineno"> 1606</span> </div><div class="line"><a name="l01607"></a><span class="lineno"> 1607</span>  }</div><div class="line"><a name="l01608"></a><span class="lineno"> 1608</span>  ;</div><div class="line"><a name="l01609"></a><span class="lineno"> 1609</span> </div><div class="line"><a name="l01610"></a><span class="lineno"> 1610</span> mlhs_node : user_variable</div><div class="line"><a name="l01611"></a><span class="lineno"> 1611</span>  {</div><div class="line"><a name="l01612"></a><span class="lineno"> 1612</span>  $$ = assignable($1, 0);</div><div class="line"><a name="l01613"></a><span class="lineno"> 1613</span>  }</div><div class="line"><a name="l01614"></a><span class="lineno"> 1614</span>  | keyword_variable</div><div class="line"><a name="l01615"></a><span class="lineno"> 1615</span>  {</div><div class="line"><a name="l01616"></a><span class="lineno"> 1616</span>  $$ = assignable($1, 0);</div><div class="line"><a name="l01617"></a><span class="lineno"> 1617</span>  }</div><div class="line"><a name="l01618"></a><span class="lineno"> 1618</span>  | primary_value '[' opt_call_args rbracket</div><div class="line"><a name="l01619"></a><span class="lineno"> 1619</span>  {</div><div class="line"><a name="l01620"></a><span class="lineno"> 1620</span> #if 0</div><div class="line"><a name="l01621"></a><span class="lineno"> 1621</span>  $$ = aryset($1, $3);</div><div class="line"><a name="l01622"></a><span class="lineno"> 1622</span> #endif</div><div class="line"><a name="l01623"></a><span class="lineno"> 1623</span>  $$ = dispatch2(aref_field, $1, escape_Qundef($3));</div><div class="line"><a name="l01624"></a><span class="lineno"> 1624</span> </div><div class="line"><a name="l01625"></a><span class="lineno"> 1625</span>  }</div><div class="line"><a name="l01626"></a><span class="lineno"> 1626</span>  | primary_value '.' tIDENTIFIER</div><div class="line"><a name="l01627"></a><span class="lineno"> 1627</span>  {</div><div class="line"><a name="l01628"></a><span class="lineno"> 1628</span> #if 0</div><div class="line"><a name="l01629"></a><span class="lineno"> 1629</span>  $$ = attrset($1, $3);</div><div class="line"><a name="l01630"></a><span class="lineno"> 1630</span> #endif</div><div class="line"><a name="l01631"></a><span class="lineno"> 1631</span>  $$ = dispatch3(field, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l01632"></a><span class="lineno"> 1632</span> </div><div class="line"><a name="l01633"></a><span class="lineno"> 1633</span>  }</div><div class="line"><a name="l01634"></a><span class="lineno"> 1634</span>  | primary_value tCOLON2 tIDENTIFIER</div><div class="line"><a name="l01635"></a><span class="lineno"> 1635</span>  {</div><div class="line"><a name="l01636"></a><span class="lineno"> 1636</span> #if 0</div><div class="line"><a name="l01637"></a><span class="lineno"> 1637</span>  $$ = attrset($1, $3);</div><div class="line"><a name="l01638"></a><span class="lineno"> 1638</span> #endif</div><div class="line"><a name="l01639"></a><span class="lineno"> 1639</span>  $$ = dispatch2(const_path_field, $1, $3);</div><div class="line"><a name="l01640"></a><span class="lineno"> 1640</span> </div><div class="line"><a name="l01641"></a><span class="lineno"> 1641</span>  }</div><div class="line"><a name="l01642"></a><span class="lineno"> 1642</span>  | primary_value '.' tCONSTANT</div><div class="line"><a name="l01643"></a><span class="lineno"> 1643</span>  {</div><div class="line"><a name="l01644"></a><span class="lineno"> 1644</span> #if 0</div><div class="line"><a name="l01645"></a><span class="lineno"> 1645</span>  $$ = attrset($1, $3);</div><div class="line"><a name="l01646"></a><span class="lineno"> 1646</span> #endif</div><div class="line"><a name="l01647"></a><span class="lineno"> 1647</span>  $$ = dispatch3(field, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l01648"></a><span class="lineno"> 1648</span> </div><div class="line"><a name="l01649"></a><span class="lineno"> 1649</span>  }</div><div class="line"><a name="l01650"></a><span class="lineno"> 1650</span>  | primary_value tCOLON2 tCONSTANT</div><div class="line"><a name="l01651"></a><span class="lineno"> 1651</span>  {</div><div class="line"><a name="l01652"></a><span class="lineno"> 1652</span> #if 0</div><div class="line"><a name="l01653"></a><span class="lineno"> 1653</span>  if (in_def || in_single)</div><div class="line"><a name="l01654"></a><span class="lineno"> 1654</span>  yyerror("dynamic constant assignment");</div><div class="line"><a name="l01655"></a><span class="lineno"> 1655</span>  $$ = NEW_CDECL(0, 0, NEW_COLON2($1, $3));</div><div class="line"><a name="l01656"></a><span class="lineno"> 1656</span> #endif</div><div class="line"><a name="l01657"></a><span class="lineno"> 1657</span>  if (in_def || in_single)</div><div class="line"><a name="l01658"></a><span class="lineno"> 1658</span>  yyerror("dynamic constant assignment");</div><div class="line"><a name="l01659"></a><span class="lineno"> 1659</span>  $$ = dispatch2(const_path_field, $1, $3);</div><div class="line"><a name="l01660"></a><span class="lineno"> 1660</span> </div><div class="line"><a name="l01661"></a><span class="lineno"> 1661</span>  }</div><div class="line"><a name="l01662"></a><span class="lineno"> 1662</span>  | tCOLON3 tCONSTANT</div><div class="line"><a name="l01663"></a><span class="lineno"> 1663</span>  {</div><div class="line"><a name="l01664"></a><span class="lineno"> 1664</span> #if 0</div><div class="line"><a name="l01665"></a><span class="lineno"> 1665</span>  if (in_def || in_single)</div><div class="line"><a name="l01666"></a><span class="lineno"> 1666</span>  yyerror("dynamic constant assignment");</div><div class="line"><a name="l01667"></a><span class="lineno"> 1667</span>  $$ = NEW_CDECL(0, 0, NEW_COLON3($2));</div><div class="line"><a name="l01668"></a><span class="lineno"> 1668</span> #endif</div><div class="line"><a name="l01669"></a><span class="lineno"> 1669</span>  $$ = dispatch1(top_const_field, $2);</div><div class="line"><a name="l01670"></a><span class="lineno"> 1670</span> </div><div class="line"><a name="l01671"></a><span class="lineno"> 1671</span>  }</div><div class="line"><a name="l01672"></a><span class="lineno"> 1672</span>  | backref</div><div class="line"><a name="l01673"></a><span class="lineno"> 1673</span>  {</div><div class="line"><a name="l01674"></a><span class="lineno"> 1674</span> #if 0</div><div class="line"><a name="l01675"></a><span class="lineno"> 1675</span>  rb_backref_error($1);</div><div class="line"><a name="l01676"></a><span class="lineno"> 1676</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l01677"></a><span class="lineno"> 1677</span> #endif</div><div class="line"><a name="l01678"></a><span class="lineno"> 1678</span>  $$ = dispatch1(var_field, $1);</div><div class="line"><a name="l01679"></a><span class="lineno"> 1679</span>  $$ = dispatch1(assign_error, $$);</div><div class="line"><a name="l01680"></a><span class="lineno"> 1680</span> </div><div class="line"><a name="l01681"></a><span class="lineno"> 1681</span>  }</div><div class="line"><a name="l01682"></a><span class="lineno"> 1682</span>  ;</div><div class="line"><a name="l01683"></a><span class="lineno"> 1683</span> </div><div class="line"><a name="l01684"></a><span class="lineno"> 1684</span> lhs : user_variable</div><div class="line"><a name="l01685"></a><span class="lineno"> 1685</span>  {</div><div class="line"><a name="l01686"></a><span class="lineno"> 1686</span>  $$ = assignable($1, 0);</div><div class="line"><a name="l01687"></a><span class="lineno"> 1687</span> #if 0</div><div class="line"><a name="l01688"></a><span class="lineno"> 1688</span>  if (!$$) $$ = NEW_BEGIN(0);</div><div class="line"><a name="l01689"></a><span class="lineno"> 1689</span> #endif</div><div class="line"><a name="l01690"></a><span class="lineno"> 1690</span>  $$ = dispatch1(var_field, $$);</div><div class="line"><a name="l01691"></a><span class="lineno"> 1691</span> </div><div class="line"><a name="l01692"></a><span class="lineno"> 1692</span>  }</div><div class="line"><a name="l01693"></a><span class="lineno"> 1693</span>  | keyword_variable</div><div class="line"><a name="l01694"></a><span class="lineno"> 1694</span>  {</div><div class="line"><a name="l01695"></a><span class="lineno"> 1695</span>  $$ = assignable($1, 0);</div><div class="line"><a name="l01696"></a><span class="lineno"> 1696</span> #if 0</div><div class="line"><a name="l01697"></a><span class="lineno"> 1697</span>  if (!$$) $$ = NEW_BEGIN(0);</div><div class="line"><a name="l01698"></a><span class="lineno"> 1698</span> #endif</div><div class="line"><a name="l01699"></a><span class="lineno"> 1699</span>  $$ = dispatch1(var_field, $$);</div><div class="line"><a name="l01700"></a><span class="lineno"> 1700</span> </div><div class="line"><a name="l01701"></a><span class="lineno"> 1701</span>  }</div><div class="line"><a name="l01702"></a><span class="lineno"> 1702</span>  | primary_value '[' opt_call_args rbracket</div><div class="line"><a name="l01703"></a><span class="lineno"> 1703</span>  {</div><div class="line"><a name="l01704"></a><span class="lineno"> 1704</span> #if 0</div><div class="line"><a name="l01705"></a><span class="lineno"> 1705</span>  $$ = aryset($1, $3);</div><div class="line"><a name="l01706"></a><span class="lineno"> 1706</span> #endif</div><div class="line"><a name="l01707"></a><span class="lineno"> 1707</span>  $$ = dispatch2(aref_field, $1, escape_Qundef($3));</div><div class="line"><a name="l01708"></a><span class="lineno"> 1708</span> </div><div class="line"><a name="l01709"></a><span class="lineno"> 1709</span>  }</div><div class="line"><a name="l01710"></a><span class="lineno"> 1710</span>  | primary_value '.' tIDENTIFIER</div><div class="line"><a name="l01711"></a><span class="lineno"> 1711</span>  {</div><div class="line"><a name="l01712"></a><span class="lineno"> 1712</span> #if 0</div><div class="line"><a name="l01713"></a><span class="lineno"> 1713</span>  $$ = attrset($1, $3);</div><div class="line"><a name="l01714"></a><span class="lineno"> 1714</span> #endif</div><div class="line"><a name="l01715"></a><span class="lineno"> 1715</span>  $$ = dispatch3(field, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l01716"></a><span class="lineno"> 1716</span> </div><div class="line"><a name="l01717"></a><span class="lineno"> 1717</span>  }</div><div class="line"><a name="l01718"></a><span class="lineno"> 1718</span>  | primary_value tCOLON2 tIDENTIFIER</div><div class="line"><a name="l01719"></a><span class="lineno"> 1719</span>  {</div><div class="line"><a name="l01720"></a><span class="lineno"> 1720</span> #if 0</div><div class="line"><a name="l01721"></a><span class="lineno"> 1721</span>  $$ = attrset($1, $3);</div><div class="line"><a name="l01722"></a><span class="lineno"> 1722</span> #endif</div><div class="line"><a name="l01723"></a><span class="lineno"> 1723</span>  $$ = dispatch3(field, $1, ripper_intern("::"), $3);</div><div class="line"><a name="l01724"></a><span class="lineno"> 1724</span> </div><div class="line"><a name="l01725"></a><span class="lineno"> 1725</span>  }</div><div class="line"><a name="l01726"></a><span class="lineno"> 1726</span>  | primary_value '.' tCONSTANT</div><div class="line"><a name="l01727"></a><span class="lineno"> 1727</span>  {</div><div class="line"><a name="l01728"></a><span class="lineno"> 1728</span> #if 0</div><div class="line"><a name="l01729"></a><span class="lineno"> 1729</span>  $$ = attrset($1, $3);</div><div class="line"><a name="l01730"></a><span class="lineno"> 1730</span> #endif</div><div class="line"><a name="l01731"></a><span class="lineno"> 1731</span>  $$ = dispatch3(field, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l01732"></a><span class="lineno"> 1732</span> </div><div class="line"><a name="l01733"></a><span class="lineno"> 1733</span>  }</div><div class="line"><a name="l01734"></a><span class="lineno"> 1734</span>  | primary_value tCOLON2 tCONSTANT</div><div class="line"><a name="l01735"></a><span class="lineno"> 1735</span>  {</div><div class="line"><a name="l01736"></a><span class="lineno"> 1736</span> #if 0</div><div class="line"><a name="l01737"></a><span class="lineno"> 1737</span>  if (in_def || in_single)</div><div class="line"><a name="l01738"></a><span class="lineno"> 1738</span>  yyerror("dynamic constant assignment");</div><div class="line"><a name="l01739"></a><span class="lineno"> 1739</span>  $$ = NEW_CDECL(0, 0, NEW_COLON2($1, $3));</div><div class="line"><a name="l01740"></a><span class="lineno"> 1740</span> #endif</div><div class="line"><a name="l01741"></a><span class="lineno"> 1741</span>  $$ = dispatch2(const_path_field, $1, $3);</div><div class="line"><a name="l01742"></a><span class="lineno"> 1742</span>  if (in_def || in_single) {</div><div class="line"><a name="l01743"></a><span class="lineno"> 1743</span>  $$ = dispatch1(assign_error, $$);</div><div class="line"><a name="l01744"></a><span class="lineno"> 1744</span>  }</div><div class="line"><a name="l01745"></a><span class="lineno"> 1745</span> </div><div class="line"><a name="l01746"></a><span class="lineno"> 1746</span>  }</div><div class="line"><a name="l01747"></a><span class="lineno"> 1747</span>  | tCOLON3 tCONSTANT</div><div class="line"><a name="l01748"></a><span class="lineno"> 1748</span>  {</div><div class="line"><a name="l01749"></a><span class="lineno"> 1749</span> #if 0</div><div class="line"><a name="l01750"></a><span class="lineno"> 1750</span>  if (in_def || in_single)</div><div class="line"><a name="l01751"></a><span class="lineno"> 1751</span>  yyerror("dynamic constant assignment");</div><div class="line"><a name="l01752"></a><span class="lineno"> 1752</span>  $$ = NEW_CDECL(0, 0, NEW_COLON3($2));</div><div class="line"><a name="l01753"></a><span class="lineno"> 1753</span> #endif</div><div class="line"><a name="l01754"></a><span class="lineno"> 1754</span>  $$ = dispatch1(top_const_field, $2);</div><div class="line"><a name="l01755"></a><span class="lineno"> 1755</span>  if (in_def || in_single) {</div><div class="line"><a name="l01756"></a><span class="lineno"> 1756</span>  $$ = dispatch1(assign_error, $$);</div><div class="line"><a name="l01757"></a><span class="lineno"> 1757</span>  }</div><div class="line"><a name="l01758"></a><span class="lineno"> 1758</span> </div><div class="line"><a name="l01759"></a><span class="lineno"> 1759</span>  }</div><div class="line"><a name="l01760"></a><span class="lineno"> 1760</span>  | backref</div><div class="line"><a name="l01761"></a><span class="lineno"> 1761</span>  {</div><div class="line"><a name="l01762"></a><span class="lineno"> 1762</span> #if 0</div><div class="line"><a name="l01763"></a><span class="lineno"> 1763</span>  rb_backref_error($1);</div><div class="line"><a name="l01764"></a><span class="lineno"> 1764</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l01765"></a><span class="lineno"> 1765</span> #endif</div><div class="line"><a name="l01766"></a><span class="lineno"> 1766</span>  $$ = dispatch1(assign_error, $1);</div><div class="line"><a name="l01767"></a><span class="lineno"> 1767</span> </div><div class="line"><a name="l01768"></a><span class="lineno"> 1768</span>  }</div><div class="line"><a name="l01769"></a><span class="lineno"> 1769</span>  ;</div><div class="line"><a name="l01770"></a><span class="lineno"> 1770</span> </div><div class="line"><a name="l01771"></a><span class="lineno"> 1771</span> cname : tIDENTIFIER</div><div class="line"><a name="l01772"></a><span class="lineno"> 1772</span>  {</div><div class="line"><a name="l01773"></a><span class="lineno"> 1773</span> #if 0</div><div class="line"><a name="l01774"></a><span class="lineno"> 1774</span>  yyerror("class/module name must be CONSTANT");</div><div class="line"><a name="l01775"></a><span class="lineno"> 1775</span> #endif</div><div class="line"><a name="l01776"></a><span class="lineno"> 1776</span>  $$ = dispatch1(class_name_error, $1);</div><div class="line"><a name="l01777"></a><span class="lineno"> 1777</span> </div><div class="line"><a name="l01778"></a><span class="lineno"> 1778</span>  }</div><div class="line"><a name="l01779"></a><span class="lineno"> 1779</span>  | tCONSTANT</div><div class="line"><a name="l01780"></a><span class="lineno"> 1780</span>  ;</div><div class="line"><a name="l01781"></a><span class="lineno"> 1781</span> </div><div class="line"><a name="l01782"></a><span class="lineno"> 1782</span> cpath : tCOLON3 cname</div><div class="line"><a name="l01783"></a><span class="lineno"> 1783</span>  {</div><div class="line"><a name="l01784"></a><span class="lineno"> 1784</span> #if 0</div><div class="line"><a name="l01785"></a><span class="lineno"> 1785</span>  $$ = NEW_COLON3($2);</div><div class="line"><a name="l01786"></a><span class="lineno"> 1786</span> #endif</div><div class="line"><a name="l01787"></a><span class="lineno"> 1787</span>  $$ = dispatch1(top_const_ref, $2);</div><div class="line"><a name="l01788"></a><span class="lineno"> 1788</span> </div><div class="line"><a name="l01789"></a><span class="lineno"> 1789</span>  }</div><div class="line"><a name="l01790"></a><span class="lineno"> 1790</span>  | cname</div><div class="line"><a name="l01791"></a><span class="lineno"> 1791</span>  {</div><div class="line"><a name="l01792"></a><span class="lineno"> 1792</span> #if 0</div><div class="line"><a name="l01793"></a><span class="lineno"> 1793</span>  $$ = NEW_COLON2(0, $$);</div><div class="line"><a name="l01794"></a><span class="lineno"> 1794</span> #endif</div><div class="line"><a name="l01795"></a><span class="lineno"> 1795</span>  $$ = dispatch1(const_ref, $1);</div><div class="line"><a name="l01796"></a><span class="lineno"> 1796</span> </div><div class="line"><a name="l01797"></a><span class="lineno"> 1797</span>  }</div><div class="line"><a name="l01798"></a><span class="lineno"> 1798</span>  | primary_value tCOLON2 cname</div><div class="line"><a name="l01799"></a><span class="lineno"> 1799</span>  {</div><div class="line"><a name="l01800"></a><span class="lineno"> 1800</span> #if 0</div><div class="line"><a name="l01801"></a><span class="lineno"> 1801</span>  $$ = NEW_COLON2($1, $3);</div><div class="line"><a name="l01802"></a><span class="lineno"> 1802</span> #endif</div><div class="line"><a name="l01803"></a><span class="lineno"> 1803</span>  $$ = dispatch2(const_path_ref, $1, $3);</div><div class="line"><a name="l01804"></a><span class="lineno"> 1804</span> </div><div class="line"><a name="l01805"></a><span class="lineno"> 1805</span>  }</div><div class="line"><a name="l01806"></a><span class="lineno"> 1806</span>  ;</div><div class="line"><a name="l01807"></a><span class="lineno"> 1807</span> </div><div class="line"><a name="l01808"></a><span class="lineno"> 1808</span> fname : tIDENTIFIER</div><div class="line"><a name="l01809"></a><span class="lineno"> 1809</span>  | tCONSTANT</div><div class="line"><a name="l01810"></a><span class="lineno"> 1810</span>  | tFID</div><div class="line"><a name="l01811"></a><span class="lineno"> 1811</span>  | op</div><div class="line"><a name="l01812"></a><span class="lineno"> 1812</span>  {</div><div class="line"><a name="l01813"></a><span class="lineno"> 1813</span>  lex_state = EXPR_ENDFN;</div><div class="line"><a name="l01814"></a><span class="lineno"> 1814</span>  $$ = $1;</div><div class="line"><a name="l01815"></a><span class="lineno"> 1815</span>  }</div><div class="line"><a name="l01816"></a><span class="lineno"> 1816</span>  | reswords</div><div class="line"><a name="l01817"></a><span class="lineno"> 1817</span>  {</div><div class="line"><a name="l01818"></a><span class="lineno"> 1818</span>  lex_state = EXPR_ENDFN;</div><div class="line"><a name="l01819"></a><span class="lineno"> 1819</span> #if 0</div><div class="line"><a name="l01820"></a><span class="lineno"> 1820</span>  $$ = $<id>1;</div><div class="line"><a name="l01821"></a><span class="lineno"> 1821</span> #endif</div><div class="line"><a name="l01822"></a><span class="lineno"> 1822</span>  $$ = $1;</div><div class="line"><a name="l01823"></a><span class="lineno"> 1823</span> </div><div class="line"><a name="l01824"></a><span class="lineno"> 1824</span>  }</div><div class="line"><a name="l01825"></a><span class="lineno"> 1825</span>  ;</div><div class="line"><a name="l01826"></a><span class="lineno"> 1826</span> </div><div class="line"><a name="l01827"></a><span class="lineno"> 1827</span> fsym : fname</div><div class="line"><a name="l01828"></a><span class="lineno"> 1828</span>  | symbol</div><div class="line"><a name="l01829"></a><span class="lineno"> 1829</span>  ;</div><div class="line"><a name="l01830"></a><span class="lineno"> 1830</span> </div><div class="line"><a name="l01831"></a><span class="lineno"> 1831</span> fitem : fsym</div><div class="line"><a name="l01832"></a><span class="lineno"> 1832</span>  {</div><div class="line"><a name="l01833"></a><span class="lineno"> 1833</span> #if 0</div><div class="line"><a name="l01834"></a><span class="lineno"> 1834</span>  $$ = NEW_LIT(ID2SYM($1));</div><div class="line"><a name="l01835"></a><span class="lineno"> 1835</span> #endif</div><div class="line"><a name="l01836"></a><span class="lineno"> 1836</span>  $$ = dispatch1(symbol_literal, $1);</div><div class="line"><a name="l01837"></a><span class="lineno"> 1837</span> </div><div class="line"><a name="l01838"></a><span class="lineno"> 1838</span>  }</div><div class="line"><a name="l01839"></a><span class="lineno"> 1839</span>  | dsym</div><div class="line"><a name="l01840"></a><span class="lineno"> 1840</span>  ;</div><div class="line"><a name="l01841"></a><span class="lineno"> 1841</span> </div><div class="line"><a name="l01842"></a><span class="lineno"> 1842</span> undef_list : fitem</div><div class="line"><a name="l01843"></a><span class="lineno"> 1843</span>  {</div><div class="line"><a name="l01844"></a><span class="lineno"> 1844</span> #if 0</div><div class="line"><a name="l01845"></a><span class="lineno"> 1845</span>  $$ = NEW_UNDEF($1);</div><div class="line"><a name="l01846"></a><span class="lineno"> 1846</span> #endif</div><div class="line"><a name="l01847"></a><span class="lineno"> 1847</span>  $$ = rb_ary_new3(1, $1);</div><div class="line"><a name="l01848"></a><span class="lineno"> 1848</span> </div><div class="line"><a name="l01849"></a><span class="lineno"> 1849</span>  }</div><div class="line"><a name="l01850"></a><span class="lineno"> 1850</span>  | undef_list ',' {lex_state = EXPR_FNAME;} fitem</div><div class="line"><a name="l01851"></a><span class="lineno"> 1851</span>  {</div><div class="line"><a name="l01852"></a><span class="lineno"> 1852</span> #if 0</div><div class="line"><a name="l01853"></a><span class="lineno"> 1853</span>  $$ = block_append($1, NEW_UNDEF($4));</div><div class="line"><a name="l01854"></a><span class="lineno"> 1854</span> #endif</div><div class="line"><a name="l01855"></a><span class="lineno"> 1855</span>  rb_ary_push($1, $4);</div><div class="line"><a name="l01856"></a><span class="lineno"> 1856</span> </div><div class="line"><a name="l01857"></a><span class="lineno"> 1857</span>  }</div><div class="line"><a name="l01858"></a><span class="lineno"> 1858</span>  ;</div><div class="line"><a name="l01859"></a><span class="lineno"> 1859</span> </div><div class="line"><a name="l01860"></a><span class="lineno"> 1860</span> op : '|' { ifndef_ripper($$ = '|'); }</div><div class="line"><a name="l01861"></a><span class="lineno"> 1861</span>  | '^' { ifndef_ripper($$ = '^'); }</div><div class="line"><a name="l01862"></a><span class="lineno"> 1862</span>  | '&' { ifndef_ripper($$ = '&'); }</div><div class="line"><a name="l01863"></a><span class="lineno"> 1863</span>  | tCMP { ifndef_ripper($$ = tCMP); }</div><div class="line"><a name="l01864"></a><span class="lineno"> 1864</span>  | tEQ { ifndef_ripper($$ = tEQ); }</div><div class="line"><a name="l01865"></a><span class="lineno"> 1865</span>  | tEQQ { ifndef_ripper($$ = tEQQ); }</div><div class="line"><a name="l01866"></a><span class="lineno"> 1866</span>  | tMATCH { ifndef_ripper($$ = tMATCH); }</div><div class="line"><a name="l01867"></a><span class="lineno"> 1867</span>  | tNMATCH { ifndef_ripper($$ = tNMATCH); }</div><div class="line"><a name="l01868"></a><span class="lineno"> 1868</span>  | '>' { ifndef_ripper($$ = '>'); }</div><div class="line"><a name="l01869"></a><span class="lineno"> 1869</span>  | tGEQ { ifndef_ripper($$ = tGEQ); }</div><div class="line"><a name="l01870"></a><span class="lineno"> 1870</span>  | '<' { ifndef_ripper($$ = '<'); }</div><div class="line"><a name="l01871"></a><span class="lineno"> 1871</span>  | tLEQ { ifndef_ripper($$ = tLEQ); }</div><div class="line"><a name="l01872"></a><span class="lineno"> 1872</span>  | tNEQ { ifndef_ripper($$ = tNEQ); }</div><div class="line"><a name="l01873"></a><span class="lineno"> 1873</span>  | tLSHFT { ifndef_ripper($$ = tLSHFT); }</div><div class="line"><a name="l01874"></a><span class="lineno"> 1874</span>  | tRSHFT { ifndef_ripper($$ = tRSHFT); }</div><div class="line"><a name="l01875"></a><span class="lineno"> 1875</span>  | '+' { ifndef_ripper($$ = '+'); }</div><div class="line"><a name="l01876"></a><span class="lineno"> 1876</span>  | '-' { ifndef_ripper($$ = '-'); }</div><div class="line"><a name="l01877"></a><span class="lineno"> 1877</span>  | '*' { ifndef_ripper($$ = '*'); }</div><div class="line"><a name="l01878"></a><span class="lineno"> 1878</span>  | tSTAR { ifndef_ripper($$ = '*'); }</div><div class="line"><a name="l01879"></a><span class="lineno"> 1879</span>  | '/' { ifndef_ripper($$ = '/'); }</div><div class="line"><a name="l01880"></a><span class="lineno"> 1880</span>  | '%' { ifndef_ripper($$ = '%'); }</div><div class="line"><a name="l01881"></a><span class="lineno"> 1881</span>  | tPOW { ifndef_ripper($$ = tPOW); }</div><div class="line"><a name="l01882"></a><span class="lineno"> 1882</span>  | '!' { ifndef_ripper($$ = '!'); }</div><div class="line"><a name="l01883"></a><span class="lineno"> 1883</span>  | '~' { ifndef_ripper($$ = '~'); }</div><div class="line"><a name="l01884"></a><span class="lineno"> 1884</span>  | tUPLUS { ifndef_ripper($$ = tUPLUS); }</div><div class="line"><a name="l01885"></a><span class="lineno"> 1885</span>  | tUMINUS { ifndef_ripper($$ = tUMINUS); }</div><div class="line"><a name="l01886"></a><span class="lineno"> 1886</span>  | tAREF { ifndef_ripper($$ = tAREF); }</div><div class="line"><a name="l01887"></a><span class="lineno"> 1887</span>  | tASET { ifndef_ripper($$ = tASET); }</div><div class="line"><a name="l01888"></a><span class="lineno"> 1888</span>  | '`' { ifndef_ripper($$ = '`'); }</div><div class="line"><a name="l01889"></a><span class="lineno"> 1889</span>  ;</div><div class="line"><a name="l01890"></a><span class="lineno"> 1890</span> </div><div class="line"><a name="l01891"></a><span class="lineno"> 1891</span> reswords : keyword__LINE__ | keyword__FILE__ | keyword__ENCODING__</div><div class="line"><a name="l01892"></a><span class="lineno"> 1892</span>  | keyword_BEGIN | keyword_END</div><div class="line"><a name="l01893"></a><span class="lineno"> 1893</span>  | keyword_alias | keyword_and | keyword_begin</div><div class="line"><a name="l01894"></a><span class="lineno"> 1894</span>  | keyword_break | keyword_case | keyword_class | keyword_def</div><div class="line"><a name="l01895"></a><span class="lineno"> 1895</span>  | keyword_defined | keyword_do | keyword_else | keyword_elsif</div><div class="line"><a name="l01896"></a><span class="lineno"> 1896</span>  | keyword_end | keyword_ensure | keyword_false</div><div class="line"><a name="l01897"></a><span class="lineno"> 1897</span>  | keyword_for | keyword_in | keyword_module | keyword_next</div><div class="line"><a name="l01898"></a><span class="lineno"> 1898</span>  | keyword_nil | keyword_not | keyword_or | keyword_redo</div><div class="line"><a name="l01899"></a><span class="lineno"> 1899</span>  | keyword_rescue | keyword_retry | keyword_return | keyword_self</div><div class="line"><a name="l01900"></a><span class="lineno"> 1900</span>  | keyword_super | keyword_then | keyword_true | keyword_undef</div><div class="line"><a name="l01901"></a><span class="lineno"> 1901</span>  | keyword_when | keyword_yield | keyword_if | keyword_unless</div><div class="line"><a name="l01902"></a><span class="lineno"> 1902</span>  | keyword_while | keyword_until</div><div class="line"><a name="l01903"></a><span class="lineno"> 1903</span>  ;</div><div class="line"><a name="l01904"></a><span class="lineno"> 1904</span> </div><div class="line"><a name="l01905"></a><span class="lineno"> 1905</span> arg : lhs '=' arg</div><div class="line"><a name="l01906"></a><span class="lineno"> 1906</span>  {</div><div class="line"><a name="l01907"></a><span class="lineno"> 1907</span> #if 0</div><div class="line"><a name="l01908"></a><span class="lineno"> 1908</span>  value_expr($3);</div><div class="line"><a name="l01909"></a><span class="lineno"> 1909</span>  $$ = node_assign($1, $3);</div><div class="line"><a name="l01910"></a><span class="lineno"> 1910</span> #endif</div><div class="line"><a name="l01911"></a><span class="lineno"> 1911</span>  $$ = dispatch2(assign, $1, $3);</div><div class="line"><a name="l01912"></a><span class="lineno"> 1912</span> </div><div class="line"><a name="l01913"></a><span class="lineno"> 1913</span>  }</div><div class="line"><a name="l01914"></a><span class="lineno"> 1914</span>  | lhs '=' arg modifier_rescue arg</div><div class="line"><a name="l01915"></a><span class="lineno"> 1915</span>  {</div><div class="line"><a name="l01916"></a><span class="lineno"> 1916</span> #if 0</div><div class="line"><a name="l01917"></a><span class="lineno"> 1917</span>  value_expr($3);</div><div class="line"><a name="l01918"></a><span class="lineno"> 1918</span>  $3 = NEW_RESCUE($3, NEW_RESBODY(0,$5,0), 0);</div><div class="line"><a name="l01919"></a><span class="lineno"> 1919</span>  $$ = node_assign($1, $3);</div><div class="line"><a name="l01920"></a><span class="lineno"> 1920</span> #endif</div><div class="line"><a name="l01921"></a><span class="lineno"> 1921</span>  $$ = dispatch2(assign, $1, dispatch2(rescue_mod, $3, $5));</div><div class="line"><a name="l01922"></a><span class="lineno"> 1922</span> </div><div class="line"><a name="l01923"></a><span class="lineno"> 1923</span>  }</div><div class="line"><a name="l01924"></a><span class="lineno"> 1924</span>  | var_lhs tOP_ASGN arg</div><div class="line"><a name="l01925"></a><span class="lineno"> 1925</span>  {</div><div class="line"><a name="l01926"></a><span class="lineno"> 1926</span> #if 0</div><div class="line"><a name="l01927"></a><span class="lineno"> 1927</span>  value_expr($3);</div><div class="line"><a name="l01928"></a><span class="lineno"> 1928</span>  if ($1) {</div><div class="line"><a name="l01929"></a><span class="lineno"> 1929</span>  ID vid = $1->nd_vid;</div><div class="line"><a name="l01930"></a><span class="lineno"> 1930</span>  if ($2 == tOROP) {</div><div class="line"><a name="l01931"></a><span class="lineno"> 1931</span>  $1->nd_value = $3;</div><div class="line"><a name="l01932"></a><span class="lineno"> 1932</span>  $$ = NEW_OP_ASGN_OR(gettable(vid), $1);</div><div class="line"><a name="l01933"></a><span class="lineno"> 1933</span>  if (is_asgn_or_id(vid)) {</div><div class="line"><a name="l01934"></a><span class="lineno"> 1934</span>  $$->nd_aid = vid;</div><div class="line"><a name="l01935"></a><span class="lineno"> 1935</span>  }</div><div class="line"><a name="l01936"></a><span class="lineno"> 1936</span>  }</div><div class="line"><a name="l01937"></a><span class="lineno"> 1937</span>  else if ($2 == tANDOP) {</div><div class="line"><a name="l01938"></a><span class="lineno"> 1938</span>  $1->nd_value = $3;</div><div class="line"><a name="l01939"></a><span class="lineno"> 1939</span>  $$ = NEW_OP_ASGN_AND(gettable(vid), $1);</div><div class="line"><a name="l01940"></a><span class="lineno"> 1940</span>  }</div><div class="line"><a name="l01941"></a><span class="lineno"> 1941</span>  else {</div><div class="line"><a name="l01942"></a><span class="lineno"> 1942</span>  $$ = $1;</div><div class="line"><a name="l01943"></a><span class="lineno"> 1943</span>  $$->nd_value = NEW_CALL(gettable(vid), $2, NEW_LIST($3));</div><div class="line"><a name="l01944"></a><span class="lineno"> 1944</span>  }</div><div class="line"><a name="l01945"></a><span class="lineno"> 1945</span>  }</div><div class="line"><a name="l01946"></a><span class="lineno"> 1946</span>  else {</div><div class="line"><a name="l01947"></a><span class="lineno"> 1947</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l01948"></a><span class="lineno"> 1948</span>  }</div><div class="line"><a name="l01949"></a><span class="lineno"> 1949</span> #endif</div><div class="line"><a name="l01950"></a><span class="lineno"> 1950</span>  $$ = dispatch3(opassign, $1, $2, $3);</div><div class="line"><a name="l01951"></a><span class="lineno"> 1951</span> </div><div class="line"><a name="l01952"></a><span class="lineno"> 1952</span>  }</div><div class="line"><a name="l01953"></a><span class="lineno"> 1953</span>  | var_lhs tOP_ASGN arg modifier_rescue arg</div><div class="line"><a name="l01954"></a><span class="lineno"> 1954</span>  {</div><div class="line"><a name="l01955"></a><span class="lineno"> 1955</span> #if 0</div><div class="line"><a name="l01956"></a><span class="lineno"> 1956</span>  value_expr($3);</div><div class="line"><a name="l01957"></a><span class="lineno"> 1957</span>  $3 = NEW_RESCUE($3, NEW_RESBODY(0,$5,0), 0);</div><div class="line"><a name="l01958"></a><span class="lineno"> 1958</span>  if ($1) {</div><div class="line"><a name="l01959"></a><span class="lineno"> 1959</span>  ID vid = $1->nd_vid;</div><div class="line"><a name="l01960"></a><span class="lineno"> 1960</span>  if ($2 == tOROP) {</div><div class="line"><a name="l01961"></a><span class="lineno"> 1961</span>  $1->nd_value = $3;</div><div class="line"><a name="l01962"></a><span class="lineno"> 1962</span>  $$ = NEW_OP_ASGN_OR(gettable(vid), $1);</div><div class="line"><a name="l01963"></a><span class="lineno"> 1963</span>  if (is_asgn_or_id(vid)) {</div><div class="line"><a name="l01964"></a><span class="lineno"> 1964</span>  $$->nd_aid = vid;</div><div class="line"><a name="l01965"></a><span class="lineno"> 1965</span>  }</div><div class="line"><a name="l01966"></a><span class="lineno"> 1966</span>  }</div><div class="line"><a name="l01967"></a><span class="lineno"> 1967</span>  else if ($2 == tANDOP) {</div><div class="line"><a name="l01968"></a><span class="lineno"> 1968</span>  $1->nd_value = $3;</div><div class="line"><a name="l01969"></a><span class="lineno"> 1969</span>  $$ = NEW_OP_ASGN_AND(gettable(vid), $1);</div><div class="line"><a name="l01970"></a><span class="lineno"> 1970</span>  }</div><div class="line"><a name="l01971"></a><span class="lineno"> 1971</span>  else {</div><div class="line"><a name="l01972"></a><span class="lineno"> 1972</span>  $$ = $1;</div><div class="line"><a name="l01973"></a><span class="lineno"> 1973</span>  $$->nd_value = NEW_CALL(gettable(vid), $2, NEW_LIST($3));</div><div class="line"><a name="l01974"></a><span class="lineno"> 1974</span>  }</div><div class="line"><a name="l01975"></a><span class="lineno"> 1975</span>  }</div><div class="line"><a name="l01976"></a><span class="lineno"> 1976</span>  else {</div><div class="line"><a name="l01977"></a><span class="lineno"> 1977</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l01978"></a><span class="lineno"> 1978</span>  }</div><div class="line"><a name="l01979"></a><span class="lineno"> 1979</span> #endif</div><div class="line"><a name="l01980"></a><span class="lineno"> 1980</span>  $3 = dispatch2(rescue_mod, $3, $5);</div><div class="line"><a name="l01981"></a><span class="lineno"> 1981</span>  $$ = dispatch3(opassign, $1, $2, $3);</div><div class="line"><a name="l01982"></a><span class="lineno"> 1982</span> </div><div class="line"><a name="l01983"></a><span class="lineno"> 1983</span>  }</div><div class="line"><a name="l01984"></a><span class="lineno"> 1984</span>  | primary_value '[' opt_call_args rbracket tOP_ASGN arg</div><div class="line"><a name="l01985"></a><span class="lineno"> 1985</span>  {</div><div class="line"><a name="l01986"></a><span class="lineno"> 1986</span> #if 0</div><div class="line"><a name="l01987"></a><span class="lineno"> 1987</span>  NODE *args;</div><div class="line"><a name="l01988"></a><span class="lineno"> 1988</span> </div><div class="line"><a name="l01989"></a><span class="lineno"> 1989</span>  value_expr($6);</div><div class="line"><a name="l01990"></a><span class="lineno"> 1990</span>  if (!$3) $3 = NEW_ZARRAY();</div><div class="line"><a name="l01991"></a><span class="lineno"> 1991</span>  if (nd_type($3) == NODE_BLOCK_PASS) {</div><div class="line"><a name="l01992"></a><span class="lineno"> 1992</span>  args = NEW_ARGSCAT($3, $6);</div><div class="line"><a name="l01993"></a><span class="lineno"> 1993</span>  }</div><div class="line"><a name="l01994"></a><span class="lineno"> 1994</span>  else {</div><div class="line"><a name="l01995"></a><span class="lineno"> 1995</span>  args = arg_concat($3, $6);</div><div class="line"><a name="l01996"></a><span class="lineno"> 1996</span>  }</div><div class="line"><a name="l01997"></a><span class="lineno"> 1997</span>  if ($5 == tOROP) {</div><div class="line"><a name="l01998"></a><span class="lineno"> 1998</span>  $5 = 0;</div><div class="line"><a name="l01999"></a><span class="lineno"> 1999</span>  }</div><div class="line"><a name="l02000"></a><span class="lineno"> 2000</span>  else if ($5 == tANDOP) {</div><div class="line"><a name="l02001"></a><span class="lineno"> 2001</span>  $5 = 1;</div><div class="line"><a name="l02002"></a><span class="lineno"> 2002</span>  }</div><div class="line"><a name="l02003"></a><span class="lineno"> 2003</span>  $$ = NEW_OP_ASGN1($1, $5, args);</div><div class="line"><a name="l02004"></a><span class="lineno"> 2004</span>  fixpos($$, $1);</div><div class="line"><a name="l02005"></a><span class="lineno"> 2005</span> #endif</div><div class="line"><a name="l02006"></a><span class="lineno"> 2006</span>  $1 = dispatch2(aref_field, $1, escape_Qundef($3));</div><div class="line"><a name="l02007"></a><span class="lineno"> 2007</span>  $$ = dispatch3(opassign, $1, $5, $6);</div><div class="line"><a name="l02008"></a><span class="lineno"> 2008</span> </div><div class="line"><a name="l02009"></a><span class="lineno"> 2009</span>  }</div><div class="line"><a name="l02010"></a><span class="lineno"> 2010</span>  | primary_value '.' tIDENTIFIER tOP_ASGN arg</div><div class="line"><a name="l02011"></a><span class="lineno"> 2011</span>  {</div><div class="line"><a name="l02012"></a><span class="lineno"> 2012</span> #if 0</div><div class="line"><a name="l02013"></a><span class="lineno"> 2013</span>  value_expr($5);</div><div class="line"><a name="l02014"></a><span class="lineno"> 2014</span>  if ($4 == tOROP) {</div><div class="line"><a name="l02015"></a><span class="lineno"> 2015</span>  $4 = 0;</div><div class="line"><a name="l02016"></a><span class="lineno"> 2016</span>  }</div><div class="line"><a name="l02017"></a><span class="lineno"> 2017</span>  else if ($4 == tANDOP) {</div><div class="line"><a name="l02018"></a><span class="lineno"> 2018</span>  $4 = 1;</div><div class="line"><a name="l02019"></a><span class="lineno"> 2019</span>  }</div><div class="line"><a name="l02020"></a><span class="lineno"> 2020</span>  $$ = NEW_OP_ASGN2($1, $3, $4, $5);</div><div class="line"><a name="l02021"></a><span class="lineno"> 2021</span>  fixpos($$, $1);</div><div class="line"><a name="l02022"></a><span class="lineno"> 2022</span> #endif</div><div class="line"><a name="l02023"></a><span class="lineno"> 2023</span>  $1 = dispatch3(field, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l02024"></a><span class="lineno"> 2024</span>  $$ = dispatch3(opassign, $1, $4, $5);</div><div class="line"><a name="l02025"></a><span class="lineno"> 2025</span> </div><div class="line"><a name="l02026"></a><span class="lineno"> 2026</span>  }</div><div class="line"><a name="l02027"></a><span class="lineno"> 2027</span>  | primary_value '.' tCONSTANT tOP_ASGN arg</div><div class="line"><a name="l02028"></a><span class="lineno"> 2028</span>  {</div><div class="line"><a name="l02029"></a><span class="lineno"> 2029</span> #if 0</div><div class="line"><a name="l02030"></a><span class="lineno"> 2030</span>  value_expr($5);</div><div class="line"><a name="l02031"></a><span class="lineno"> 2031</span>  if ($4 == tOROP) {</div><div class="line"><a name="l02032"></a><span class="lineno"> 2032</span>  $4 = 0;</div><div class="line"><a name="l02033"></a><span class="lineno"> 2033</span>  }</div><div class="line"><a name="l02034"></a><span class="lineno"> 2034</span>  else if ($4 == tANDOP) {</div><div class="line"><a name="l02035"></a><span class="lineno"> 2035</span>  $4 = 1;</div><div class="line"><a name="l02036"></a><span class="lineno"> 2036</span>  }</div><div class="line"><a name="l02037"></a><span class="lineno"> 2037</span>  $$ = NEW_OP_ASGN2($1, $3, $4, $5);</div><div class="line"><a name="l02038"></a><span class="lineno"> 2038</span>  fixpos($$, $1);</div><div class="line"><a name="l02039"></a><span class="lineno"> 2039</span> #endif</div><div class="line"><a name="l02040"></a><span class="lineno"> 2040</span>  $1 = dispatch3(field, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l02041"></a><span class="lineno"> 2041</span>  $$ = dispatch3(opassign, $1, $4, $5);</div><div class="line"><a name="l02042"></a><span class="lineno"> 2042</span> </div><div class="line"><a name="l02043"></a><span class="lineno"> 2043</span>  }</div><div class="line"><a name="l02044"></a><span class="lineno"> 2044</span>  | primary_value tCOLON2 tIDENTIFIER tOP_ASGN arg</div><div class="line"><a name="l02045"></a><span class="lineno"> 2045</span>  {</div><div class="line"><a name="l02046"></a><span class="lineno"> 2046</span> #if 0</div><div class="line"><a name="l02047"></a><span class="lineno"> 2047</span>  value_expr($5);</div><div class="line"><a name="l02048"></a><span class="lineno"> 2048</span>  if ($4 == tOROP) {</div><div class="line"><a name="l02049"></a><span class="lineno"> 2049</span>  $4 = 0;</div><div class="line"><a name="l02050"></a><span class="lineno"> 2050</span>  }</div><div class="line"><a name="l02051"></a><span class="lineno"> 2051</span>  else if ($4 == tANDOP) {</div><div class="line"><a name="l02052"></a><span class="lineno"> 2052</span>  $4 = 1;</div><div class="line"><a name="l02053"></a><span class="lineno"> 2053</span>  }</div><div class="line"><a name="l02054"></a><span class="lineno"> 2054</span>  $$ = NEW_OP_ASGN2($1, $3, $4, $5);</div><div class="line"><a name="l02055"></a><span class="lineno"> 2055</span>  fixpos($$, $1);</div><div class="line"><a name="l02056"></a><span class="lineno"> 2056</span> #endif</div><div class="line"><a name="l02057"></a><span class="lineno"> 2057</span>  $1 = dispatch3(field, $1, ripper_intern("::"), $3);</div><div class="line"><a name="l02058"></a><span class="lineno"> 2058</span>  $$ = dispatch3(opassign, $1, $4, $5);</div><div class="line"><a name="l02059"></a><span class="lineno"> 2059</span> </div><div class="line"><a name="l02060"></a><span class="lineno"> 2060</span>  }</div><div class="line"><a name="l02061"></a><span class="lineno"> 2061</span>  | primary_value tCOLON2 tCONSTANT tOP_ASGN arg</div><div class="line"><a name="l02062"></a><span class="lineno"> 2062</span>  {</div><div class="line"><a name="l02063"></a><span class="lineno"> 2063</span> #if 0</div><div class="line"><a name="l02064"></a><span class="lineno"> 2064</span>  yyerror("constant re-assignment");</div><div class="line"><a name="l02065"></a><span class="lineno"> 2065</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l02066"></a><span class="lineno"> 2066</span> #endif</div><div class="line"><a name="l02067"></a><span class="lineno"> 2067</span>  $$ = dispatch2(const_path_field, $1, $3);</div><div class="line"><a name="l02068"></a><span class="lineno"> 2068</span>  $$ = dispatch3(opassign, $$, $4, $5);</div><div class="line"><a name="l02069"></a><span class="lineno"> 2069</span>  $$ = dispatch1(assign_error, $$);</div><div class="line"><a name="l02070"></a><span class="lineno"> 2070</span> </div><div class="line"><a name="l02071"></a><span class="lineno"> 2071</span>  }</div><div class="line"><a name="l02072"></a><span class="lineno"> 2072</span>  | tCOLON3 tCONSTANT tOP_ASGN arg</div><div class="line"><a name="l02073"></a><span class="lineno"> 2073</span>  {</div><div class="line"><a name="l02074"></a><span class="lineno"> 2074</span> #if 0</div><div class="line"><a name="l02075"></a><span class="lineno"> 2075</span>  yyerror("constant re-assignment");</div><div class="line"><a name="l02076"></a><span class="lineno"> 2076</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l02077"></a><span class="lineno"> 2077</span> #endif</div><div class="line"><a name="l02078"></a><span class="lineno"> 2078</span>  $$ = dispatch1(top_const_field, $2);</div><div class="line"><a name="l02079"></a><span class="lineno"> 2079</span>  $$ = dispatch3(opassign, $$, $3, $4);</div><div class="line"><a name="l02080"></a><span class="lineno"> 2080</span>  $$ = dispatch1(assign_error, $$);</div><div class="line"><a name="l02081"></a><span class="lineno"> 2081</span> </div><div class="line"><a name="l02082"></a><span class="lineno"> 2082</span>  }</div><div class="line"><a name="l02083"></a><span class="lineno"> 2083</span>  | backref tOP_ASGN arg</div><div class="line"><a name="l02084"></a><span class="lineno"> 2084</span>  {</div><div class="line"><a name="l02085"></a><span class="lineno"> 2085</span> #if 0</div><div class="line"><a name="l02086"></a><span class="lineno"> 2086</span>  rb_backref_error($1);</div><div class="line"><a name="l02087"></a><span class="lineno"> 2087</span>  $$ = NEW_BEGIN(0);</div><div class="line"><a name="l02088"></a><span class="lineno"> 2088</span> #endif</div><div class="line"><a name="l02089"></a><span class="lineno"> 2089</span>  $$ = dispatch1(var_field, $1);</div><div class="line"><a name="l02090"></a><span class="lineno"> 2090</span>  $$ = dispatch3(opassign, $$, $2, $3);</div><div class="line"><a name="l02091"></a><span class="lineno"> 2091</span>  $$ = dispatch1(assign_error, $$);</div><div class="line"><a name="l02092"></a><span class="lineno"> 2092</span> </div><div class="line"><a name="l02093"></a><span class="lineno"> 2093</span>  }</div><div class="line"><a name="l02094"></a><span class="lineno"> 2094</span>  | arg tDOT2 arg</div><div class="line"><a name="l02095"></a><span class="lineno"> 2095</span>  {</div><div class="line"><a name="l02096"></a><span class="lineno"> 2096</span> #if 0</div><div class="line"><a name="l02097"></a><span class="lineno"> 2097</span>  value_expr($1);</div><div class="line"><a name="l02098"></a><span class="lineno"> 2098</span>  value_expr($3);</div><div class="line"><a name="l02099"></a><span class="lineno"> 2099</span>  $$ = NEW_DOT2($1, $3);</div><div class="line"><a name="l02100"></a><span class="lineno"> 2100</span>  if (nd_type($1) == NODE_LIT && FIXNUM_P($1->nd_lit) &&</div><div class="line"><a name="l02101"></a><span class="lineno"> 2101</span>  nd_type($3) == NODE_LIT && FIXNUM_P($3->nd_lit)) {</div><div class="line"><a name="l02102"></a><span class="lineno"> 2102</span>  deferred_nodes = list_append(deferred_nodes, $$);</div><div class="line"><a name="l02103"></a><span class="lineno"> 2103</span>  }</div><div class="line"><a name="l02104"></a><span class="lineno"> 2104</span> #endif</div><div class="line"><a name="l02105"></a><span class="lineno"> 2105</span>  $$ = dispatch2(dot2, $1, $3);</div><div class="line"><a name="l02106"></a><span class="lineno"> 2106</span> </div><div class="line"><a name="l02107"></a><span class="lineno"> 2107</span>  }</div><div class="line"><a name="l02108"></a><span class="lineno"> 2108</span>  | arg tDOT3 arg</div><div class="line"><a name="l02109"></a><span class="lineno"> 2109</span>  {</div><div class="line"><a name="l02110"></a><span class="lineno"> 2110</span> #if 0</div><div class="line"><a name="l02111"></a><span class="lineno"> 2111</span>  value_expr($1);</div><div class="line"><a name="l02112"></a><span class="lineno"> 2112</span>  value_expr($3);</div><div class="line"><a name="l02113"></a><span class="lineno"> 2113</span>  $$ = NEW_DOT3($1, $3);</div><div class="line"><a name="l02114"></a><span class="lineno"> 2114</span>  if (nd_type($1) == NODE_LIT && FIXNUM_P($1->nd_lit) &&</div><div class="line"><a name="l02115"></a><span class="lineno"> 2115</span>  nd_type($3) == NODE_LIT && FIXNUM_P($3->nd_lit)) {</div><div class="line"><a name="l02116"></a><span class="lineno"> 2116</span>  deferred_nodes = list_append(deferred_nodes, $$);</div><div class="line"><a name="l02117"></a><span class="lineno"> 2117</span>  }</div><div class="line"><a name="l02118"></a><span class="lineno"> 2118</span> #endif</div><div class="line"><a name="l02119"></a><span class="lineno"> 2119</span>  $$ = dispatch2(dot3, $1, $3);</div><div class="line"><a name="l02120"></a><span class="lineno"> 2120</span> </div><div class="line"><a name="l02121"></a><span class="lineno"> 2121</span>  }</div><div class="line"><a name="l02122"></a><span class="lineno"> 2122</span>  | arg '+' arg</div><div class="line"><a name="l02123"></a><span class="lineno"> 2123</span>  {</div><div class="line"><a name="l02124"></a><span class="lineno"> 2124</span> #if 0</div><div class="line"><a name="l02125"></a><span class="lineno"> 2125</span>  $$ = call_bin_op($1, '+', $3);</div><div class="line"><a name="l02126"></a><span class="lineno"> 2126</span> #endif</div><div class="line"><a name="l02127"></a><span class="lineno"> 2127</span>  $$ = dispatch3(binary, $1, ID2SYM('+'), $3);</div><div class="line"><a name="l02128"></a><span class="lineno"> 2128</span> </div><div class="line"><a name="l02129"></a><span class="lineno"> 2129</span>  }</div><div class="line"><a name="l02130"></a><span class="lineno"> 2130</span>  | arg '-' arg</div><div class="line"><a name="l02131"></a><span class="lineno"> 2131</span>  {</div><div class="line"><a name="l02132"></a><span class="lineno"> 2132</span> #if 0</div><div class="line"><a name="l02133"></a><span class="lineno"> 2133</span>  $$ = call_bin_op($1, '-', $3);</div><div class="line"><a name="l02134"></a><span class="lineno"> 2134</span> #endif</div><div class="line"><a name="l02135"></a><span class="lineno"> 2135</span>  $$ = dispatch3(binary, $1, ID2SYM('-'), $3);</div><div class="line"><a name="l02136"></a><span class="lineno"> 2136</span> </div><div class="line"><a name="l02137"></a><span class="lineno"> 2137</span>  }</div><div class="line"><a name="l02138"></a><span class="lineno"> 2138</span>  | arg '*' arg</div><div class="line"><a name="l02139"></a><span class="lineno"> 2139</span>  {</div><div class="line"><a name="l02140"></a><span class="lineno"> 2140</span> #if 0</div><div class="line"><a name="l02141"></a><span class="lineno"> 2141</span>  $$ = call_bin_op($1, '*', $3);</div><div class="line"><a name="l02142"></a><span class="lineno"> 2142</span> #endif</div><div class="line"><a name="l02143"></a><span class="lineno"> 2143</span>  $$ = dispatch3(binary, $1, ID2SYM('*'), $3);</div><div class="line"><a name="l02144"></a><span class="lineno"> 2144</span> </div><div class="line"><a name="l02145"></a><span class="lineno"> 2145</span>  }</div><div class="line"><a name="l02146"></a><span class="lineno"> 2146</span>  | arg '/' arg</div><div class="line"><a name="l02147"></a><span class="lineno"> 2147</span>  {</div><div class="line"><a name="l02148"></a><span class="lineno"> 2148</span> #if 0</div><div class="line"><a name="l02149"></a><span class="lineno"> 2149</span>  $$ = call_bin_op($1, '/', $3);</div><div class="line"><a name="l02150"></a><span class="lineno"> 2150</span> #endif</div><div class="line"><a name="l02151"></a><span class="lineno"> 2151</span>  $$ = dispatch3(binary, $1, ID2SYM('/'), $3);</div><div class="line"><a name="l02152"></a><span class="lineno"> 2152</span> </div><div class="line"><a name="l02153"></a><span class="lineno"> 2153</span>  }</div><div class="line"><a name="l02154"></a><span class="lineno"> 2154</span>  | arg '%' arg</div><div class="line"><a name="l02155"></a><span class="lineno"> 2155</span>  {</div><div class="line"><a name="l02156"></a><span class="lineno"> 2156</span> #if 0</div><div class="line"><a name="l02157"></a><span class="lineno"> 2157</span>  $$ = call_bin_op($1, '%', $3);</div><div class="line"><a name="l02158"></a><span class="lineno"> 2158</span> #endif</div><div class="line"><a name="l02159"></a><span class="lineno"> 2159</span>  $$ = dispatch3(binary, $1, ID2SYM('%'), $3);</div><div class="line"><a name="l02160"></a><span class="lineno"> 2160</span> </div><div class="line"><a name="l02161"></a><span class="lineno"> 2161</span>  }</div><div class="line"><a name="l02162"></a><span class="lineno"> 2162</span>  | arg tPOW arg</div><div class="line"><a name="l02163"></a><span class="lineno"> 2163</span>  {</div><div class="line"><a name="l02164"></a><span class="lineno"> 2164</span> #if 0</div><div class="line"><a name="l02165"></a><span class="lineno"> 2165</span>  $$ = call_bin_op($1, tPOW, $3);</div><div class="line"><a name="l02166"></a><span class="lineno"> 2166</span> #endif</div><div class="line"><a name="l02167"></a><span class="lineno"> 2167</span>  $$ = dispatch3(binary, $1, ripper_intern("**"), $3);</div><div class="line"><a name="l02168"></a><span class="lineno"> 2168</span> </div><div class="line"><a name="l02169"></a><span class="lineno"> 2169</span>  }</div><div class="line"><a name="l02170"></a><span class="lineno"> 2170</span>  | tUMINUS_NUM tINTEGER tPOW arg</div><div class="line"><a name="l02171"></a><span class="lineno"> 2171</span>  {</div><div class="line"><a name="l02172"></a><span class="lineno"> 2172</span> #if 0</div><div class="line"><a name="l02173"></a><span class="lineno"> 2173</span>  $$ = NEW_CALL(call_bin_op($2, tPOW, $4), tUMINUS, 0);</div><div class="line"><a name="l02174"></a><span class="lineno"> 2174</span> #endif</div><div class="line"><a name="l02175"></a><span class="lineno"> 2175</span>  $$ = dispatch3(binary, $2, ripper_intern("**"), $4);</div><div class="line"><a name="l02176"></a><span class="lineno"> 2176</span>  $$ = dispatch2(unary, ripper_intern("-@"), $$);</div><div class="line"><a name="l02177"></a><span class="lineno"> 2177</span> </div><div class="line"><a name="l02178"></a><span class="lineno"> 2178</span>  }</div><div class="line"><a name="l02179"></a><span class="lineno"> 2179</span>  | tUMINUS_NUM tFLOAT tPOW arg</div><div class="line"><a name="l02180"></a><span class="lineno"> 2180</span>  {</div><div class="line"><a name="l02181"></a><span class="lineno"> 2181</span> #if 0</div><div class="line"><a name="l02182"></a><span class="lineno"> 2182</span>  $$ = NEW_CALL(call_bin_op($2, tPOW, $4), tUMINUS, 0);</div><div class="line"><a name="l02183"></a><span class="lineno"> 2183</span> #endif</div><div class="line"><a name="l02184"></a><span class="lineno"> 2184</span>  $$ = dispatch3(binary, $2, ripper_intern("**"), $4);</div><div class="line"><a name="l02185"></a><span class="lineno"> 2185</span>  $$ = dispatch2(unary, ripper_intern("-@"), $$);</div><div class="line"><a name="l02186"></a><span class="lineno"> 2186</span> </div><div class="line"><a name="l02187"></a><span class="lineno"> 2187</span>  }</div><div class="line"><a name="l02188"></a><span class="lineno"> 2188</span>  | tUPLUS arg</div><div class="line"><a name="l02189"></a><span class="lineno"> 2189</span>  {</div><div class="line"><a name="l02190"></a><span class="lineno"> 2190</span> #if 0</div><div class="line"><a name="l02191"></a><span class="lineno"> 2191</span>  $$ = call_uni_op($2, tUPLUS);</div><div class="line"><a name="l02192"></a><span class="lineno"> 2192</span> #endif</div><div class="line"><a name="l02193"></a><span class="lineno"> 2193</span>  $$ = dispatch2(unary, ripper_intern("+@"), $2);</div><div class="line"><a name="l02194"></a><span class="lineno"> 2194</span> </div><div class="line"><a name="l02195"></a><span class="lineno"> 2195</span>  }</div><div class="line"><a name="l02196"></a><span class="lineno"> 2196</span>  | tUMINUS arg</div><div class="line"><a name="l02197"></a><span class="lineno"> 2197</span>  {</div><div class="line"><a name="l02198"></a><span class="lineno"> 2198</span> #if 0</div><div class="line"><a name="l02199"></a><span class="lineno"> 2199</span>  $$ = call_uni_op($2, tUMINUS);</div><div class="line"><a name="l02200"></a><span class="lineno"> 2200</span> #endif</div><div class="line"><a name="l02201"></a><span class="lineno"> 2201</span>  $$ = dispatch2(unary, ripper_intern("-@"), $2);</div><div class="line"><a name="l02202"></a><span class="lineno"> 2202</span> </div><div class="line"><a name="l02203"></a><span class="lineno"> 2203</span>  }</div><div class="line"><a name="l02204"></a><span class="lineno"> 2204</span>  | arg '|' arg</div><div class="line"><a name="l02205"></a><span class="lineno"> 2205</span>  {</div><div class="line"><a name="l02206"></a><span class="lineno"> 2206</span> #if 0</div><div class="line"><a name="l02207"></a><span class="lineno"> 2207</span>  $$ = call_bin_op($1, '|', $3);</div><div class="line"><a name="l02208"></a><span class="lineno"> 2208</span> #endif</div><div class="line"><a name="l02209"></a><span class="lineno"> 2209</span>  $$ = dispatch3(binary, $1, ID2SYM('|'), $3);</div><div class="line"><a name="l02210"></a><span class="lineno"> 2210</span> </div><div class="line"><a name="l02211"></a><span class="lineno"> 2211</span>  }</div><div class="line"><a name="l02212"></a><span class="lineno"> 2212</span>  | arg '^' arg</div><div class="line"><a name="l02213"></a><span class="lineno"> 2213</span>  {</div><div class="line"><a name="l02214"></a><span class="lineno"> 2214</span> #if 0</div><div class="line"><a name="l02215"></a><span class="lineno"> 2215</span>  $$ = call_bin_op($1, '^', $3);</div><div class="line"><a name="l02216"></a><span class="lineno"> 2216</span> #endif</div><div class="line"><a name="l02217"></a><span class="lineno"> 2217</span>  $$ = dispatch3(binary, $1, ID2SYM('^'), $3);</div><div class="line"><a name="l02218"></a><span class="lineno"> 2218</span> </div><div class="line"><a name="l02219"></a><span class="lineno"> 2219</span>  }</div><div class="line"><a name="l02220"></a><span class="lineno"> 2220</span>  | arg '&' arg</div><div class="line"><a name="l02221"></a><span class="lineno"> 2221</span>  {</div><div class="line"><a name="l02222"></a><span class="lineno"> 2222</span> #if 0</div><div class="line"><a name="l02223"></a><span class="lineno"> 2223</span>  $$ = call_bin_op($1, '&', $3);</div><div class="line"><a name="l02224"></a><span class="lineno"> 2224</span> #endif</div><div class="line"><a name="l02225"></a><span class="lineno"> 2225</span>  $$ = dispatch3(binary, $1, ID2SYM('&'), $3);</div><div class="line"><a name="l02226"></a><span class="lineno"> 2226</span> </div><div class="line"><a name="l02227"></a><span class="lineno"> 2227</span>  }</div><div class="line"><a name="l02228"></a><span class="lineno"> 2228</span>  | arg tCMP arg</div><div class="line"><a name="l02229"></a><span class="lineno"> 2229</span>  {</div><div class="line"><a name="l02230"></a><span class="lineno"> 2230</span> #if 0</div><div class="line"><a name="l02231"></a><span class="lineno"> 2231</span>  $$ = call_bin_op($1, tCMP, $3);</div><div class="line"><a name="l02232"></a><span class="lineno"> 2232</span> #endif</div><div class="line"><a name="l02233"></a><span class="lineno"> 2233</span>  $$ = dispatch3(binary, $1, ripper_intern("<=>"), $3);</div><div class="line"><a name="l02234"></a><span class="lineno"> 2234</span> </div><div class="line"><a name="l02235"></a><span class="lineno"> 2235</span>  }</div><div class="line"><a name="l02236"></a><span class="lineno"> 2236</span>  | arg '>' arg</div><div class="line"><a name="l02237"></a><span class="lineno"> 2237</span>  {</div><div class="line"><a name="l02238"></a><span class="lineno"> 2238</span> #if 0</div><div class="line"><a name="l02239"></a><span class="lineno"> 2239</span>  $$ = call_bin_op($1, '>', $3);</div><div class="line"><a name="l02240"></a><span class="lineno"> 2240</span> #endif</div><div class="line"><a name="l02241"></a><span class="lineno"> 2241</span>  $$ = dispatch3(binary, $1, ID2SYM('>'), $3);</div><div class="line"><a name="l02242"></a><span class="lineno"> 2242</span> </div><div class="line"><a name="l02243"></a><span class="lineno"> 2243</span>  }</div><div class="line"><a name="l02244"></a><span class="lineno"> 2244</span>  | arg tGEQ arg</div><div class="line"><a name="l02245"></a><span class="lineno"> 2245</span>  {</div><div class="line"><a name="l02246"></a><span class="lineno"> 2246</span> #if 0</div><div class="line"><a name="l02247"></a><span class="lineno"> 2247</span>  $$ = call_bin_op($1, tGEQ, $3);</div><div class="line"><a name="l02248"></a><span class="lineno"> 2248</span> #endif</div><div class="line"><a name="l02249"></a><span class="lineno"> 2249</span>  $$ = dispatch3(binary, $1, ripper_intern(">="), $3);</div><div class="line"><a name="l02250"></a><span class="lineno"> 2250</span> </div><div class="line"><a name="l02251"></a><span class="lineno"> 2251</span>  }</div><div class="line"><a name="l02252"></a><span class="lineno"> 2252</span>  | arg '<' arg</div><div class="line"><a name="l02253"></a><span class="lineno"> 2253</span>  {</div><div class="line"><a name="l02254"></a><span class="lineno"> 2254</span> #if 0</div><div class="line"><a name="l02255"></a><span class="lineno"> 2255</span>  $$ = call_bin_op($1, '<', $3);</div><div class="line"><a name="l02256"></a><span class="lineno"> 2256</span> #endif</div><div class="line"><a name="l02257"></a><span class="lineno"> 2257</span>  $$ = dispatch3(binary, $1, ID2SYM('<'), $3);</div><div class="line"><a name="l02258"></a><span class="lineno"> 2258</span> </div><div class="line"><a name="l02259"></a><span class="lineno"> 2259</span>  }</div><div class="line"><a name="l02260"></a><span class="lineno"> 2260</span>  | arg tLEQ arg</div><div class="line"><a name="l02261"></a><span class="lineno"> 2261</span>  {</div><div class="line"><a name="l02262"></a><span class="lineno"> 2262</span> #if 0</div><div class="line"><a name="l02263"></a><span class="lineno"> 2263</span>  $$ = call_bin_op($1, tLEQ, $3);</div><div class="line"><a name="l02264"></a><span class="lineno"> 2264</span> #endif</div><div class="line"><a name="l02265"></a><span class="lineno"> 2265</span>  $$ = dispatch3(binary, $1, ripper_intern("<="), $3);</div><div class="line"><a name="l02266"></a><span class="lineno"> 2266</span> </div><div class="line"><a name="l02267"></a><span class="lineno"> 2267</span>  }</div><div class="line"><a name="l02268"></a><span class="lineno"> 2268</span>  | arg tEQ arg</div><div class="line"><a name="l02269"></a><span class="lineno"> 2269</span>  {</div><div class="line"><a name="l02270"></a><span class="lineno"> 2270</span> #if 0</div><div class="line"><a name="l02271"></a><span class="lineno"> 2271</span>  $$ = call_bin_op($1, tEQ, $3);</div><div class="line"><a name="l02272"></a><span class="lineno"> 2272</span> #endif</div><div class="line"><a name="l02273"></a><span class="lineno"> 2273</span>  $$ = dispatch3(binary, $1, ripper_intern("=="), $3);</div><div class="line"><a name="l02274"></a><span class="lineno"> 2274</span> </div><div class="line"><a name="l02275"></a><span class="lineno"> 2275</span>  }</div><div class="line"><a name="l02276"></a><span class="lineno"> 2276</span>  | arg tEQQ arg</div><div class="line"><a name="l02277"></a><span class="lineno"> 2277</span>  {</div><div class="line"><a name="l02278"></a><span class="lineno"> 2278</span> #if 0</div><div class="line"><a name="l02279"></a><span class="lineno"> 2279</span>  $$ = call_bin_op($1, tEQQ, $3);</div><div class="line"><a name="l02280"></a><span class="lineno"> 2280</span> #endif</div><div class="line"><a name="l02281"></a><span class="lineno"> 2281</span>  $$ = dispatch3(binary, $1, ripper_intern("==="), $3);</div><div class="line"><a name="l02282"></a><span class="lineno"> 2282</span> </div><div class="line"><a name="l02283"></a><span class="lineno"> 2283</span>  }</div><div class="line"><a name="l02284"></a><span class="lineno"> 2284</span>  | arg tNEQ arg</div><div class="line"><a name="l02285"></a><span class="lineno"> 2285</span>  {</div><div class="line"><a name="l02286"></a><span class="lineno"> 2286</span> #if 0</div><div class="line"><a name="l02287"></a><span class="lineno"> 2287</span>  $$ = call_bin_op($1, tNEQ, $3);</div><div class="line"><a name="l02288"></a><span class="lineno"> 2288</span> #endif</div><div class="line"><a name="l02289"></a><span class="lineno"> 2289</span>  $$ = dispatch3(binary, $1, ripper_intern("!="), $3);</div><div class="line"><a name="l02290"></a><span class="lineno"> 2290</span> </div><div class="line"><a name="l02291"></a><span class="lineno"> 2291</span>  }</div><div class="line"><a name="l02292"></a><span class="lineno"> 2292</span>  | arg tMATCH arg</div><div class="line"><a name="l02293"></a><span class="lineno"> 2293</span>  {</div><div class="line"><a name="l02294"></a><span class="lineno"> 2294</span> #if 0</div><div class="line"><a name="l02295"></a><span class="lineno"> 2295</span>  $$ = match_op($1, $3);</div><div class="line"><a name="l02296"></a><span class="lineno"> 2296</span>  if (nd_type($1) == NODE_LIT && TYPE($1->nd_lit) == T_REGEXP) {</div><div class="line"><a name="l02297"></a><span class="lineno"> 2297</span>  $$ = reg_named_capture_assign($1->nd_lit, $$);</div><div class="line"><a name="l02298"></a><span class="lineno"> 2298</span>  }</div><div class="line"><a name="l02299"></a><span class="lineno"> 2299</span> #endif</div><div class="line"><a name="l02300"></a><span class="lineno"> 2300</span>  $$ = dispatch3(binary, $1, ripper_intern("=~"), $3);</div><div class="line"><a name="l02301"></a><span class="lineno"> 2301</span> </div><div class="line"><a name="l02302"></a><span class="lineno"> 2302</span>  }</div><div class="line"><a name="l02303"></a><span class="lineno"> 2303</span>  | arg tNMATCH arg</div><div class="line"><a name="l02304"></a><span class="lineno"> 2304</span>  {</div><div class="line"><a name="l02305"></a><span class="lineno"> 2305</span> #if 0</div><div class="line"><a name="l02306"></a><span class="lineno"> 2306</span>  $$ = call_bin_op($1, tNMATCH, $3);</div><div class="line"><a name="l02307"></a><span class="lineno"> 2307</span> #endif</div><div class="line"><a name="l02308"></a><span class="lineno"> 2308</span>  $$ = dispatch3(binary, $1, ripper_intern("!~"), $3);</div><div class="line"><a name="l02309"></a><span class="lineno"> 2309</span> </div><div class="line"><a name="l02310"></a><span class="lineno"> 2310</span>  }</div><div class="line"><a name="l02311"></a><span class="lineno"> 2311</span>  | '!' arg</div><div class="line"><a name="l02312"></a><span class="lineno"> 2312</span>  {</div><div class="line"><a name="l02313"></a><span class="lineno"> 2313</span> #if 0</div><div class="line"><a name="l02314"></a><span class="lineno"> 2314</span>  $$ = call_uni_op(cond($2), '!');</div><div class="line"><a name="l02315"></a><span class="lineno"> 2315</span> #endif</div><div class="line"><a name="l02316"></a><span class="lineno"> 2316</span>  $$ = dispatch2(unary, ID2SYM('!'), $2);</div><div class="line"><a name="l02317"></a><span class="lineno"> 2317</span> </div><div class="line"><a name="l02318"></a><span class="lineno"> 2318</span>  }</div><div class="line"><a name="l02319"></a><span class="lineno"> 2319</span>  | '~' arg</div><div class="line"><a name="l02320"></a><span class="lineno"> 2320</span>  {</div><div class="line"><a name="l02321"></a><span class="lineno"> 2321</span> #if 0</div><div class="line"><a name="l02322"></a><span class="lineno"> 2322</span>  $$ = call_uni_op($2, '~');</div><div class="line"><a name="l02323"></a><span class="lineno"> 2323</span> #endif</div><div class="line"><a name="l02324"></a><span class="lineno"> 2324</span>  $$ = dispatch2(unary, ID2SYM('~'), $2);</div><div class="line"><a name="l02325"></a><span class="lineno"> 2325</span> </div><div class="line"><a name="l02326"></a><span class="lineno"> 2326</span>  }</div><div class="line"><a name="l02327"></a><span class="lineno"> 2327</span>  | arg tLSHFT arg</div><div class="line"><a name="l02328"></a><span class="lineno"> 2328</span>  {</div><div class="line"><a name="l02329"></a><span class="lineno"> 2329</span> #if 0</div><div class="line"><a name="l02330"></a><span class="lineno"> 2330</span>  $$ = call_bin_op($1, tLSHFT, $3);</div><div class="line"><a name="l02331"></a><span class="lineno"> 2331</span> #endif</div><div class="line"><a name="l02332"></a><span class="lineno"> 2332</span>  $$ = dispatch3(binary, $1, ripper_intern("<<"), $3);</div><div class="line"><a name="l02333"></a><span class="lineno"> 2333</span> </div><div class="line"><a name="l02334"></a><span class="lineno"> 2334</span>  }</div><div class="line"><a name="l02335"></a><span class="lineno"> 2335</span>  | arg tRSHFT arg</div><div class="line"><a name="l02336"></a><span class="lineno"> 2336</span>  {</div><div class="line"><a name="l02337"></a><span class="lineno"> 2337</span> #if 0</div><div class="line"><a name="l02338"></a><span class="lineno"> 2338</span>  $$ = call_bin_op($1, tRSHFT, $3);</div><div class="line"><a name="l02339"></a><span class="lineno"> 2339</span> #endif</div><div class="line"><a name="l02340"></a><span class="lineno"> 2340</span>  $$ = dispatch3(binary, $1, ripper_intern(">>"), $3);</div><div class="line"><a name="l02341"></a><span class="lineno"> 2341</span> </div><div class="line"><a name="l02342"></a><span class="lineno"> 2342</span>  }</div><div class="line"><a name="l02343"></a><span class="lineno"> 2343</span>  | arg tANDOP arg</div><div class="line"><a name="l02344"></a><span class="lineno"> 2344</span>  {</div><div class="line"><a name="l02345"></a><span class="lineno"> 2345</span> #if 0</div><div class="line"><a name="l02346"></a><span class="lineno"> 2346</span>  $$ = logop(NODE_AND, $1, $3);</div><div class="line"><a name="l02347"></a><span class="lineno"> 2347</span> #endif</div><div class="line"><a name="l02348"></a><span class="lineno"> 2348</span>  $$ = dispatch3(binary, $1, ripper_intern("&&"), $3);</div><div class="line"><a name="l02349"></a><span class="lineno"> 2349</span> </div><div class="line"><a name="l02350"></a><span class="lineno"> 2350</span>  }</div><div class="line"><a name="l02351"></a><span class="lineno"> 2351</span>  | arg tOROP arg</div><div class="line"><a name="l02352"></a><span class="lineno"> 2352</span>  {</div><div class="line"><a name="l02353"></a><span class="lineno"> 2353</span> #if 0</div><div class="line"><a name="l02354"></a><span class="lineno"> 2354</span>  $$ = logop(NODE_OR, $1, $3);</div><div class="line"><a name="l02355"></a><span class="lineno"> 2355</span> #endif</div><div class="line"><a name="l02356"></a><span class="lineno"> 2356</span>  $$ = dispatch3(binary, $1, ripper_intern("||"), $3);</div><div class="line"><a name="l02357"></a><span class="lineno"> 2357</span> </div><div class="line"><a name="l02358"></a><span class="lineno"> 2358</span>  }</div><div class="line"><a name="l02359"></a><span class="lineno"> 2359</span>  | keyword_defined opt_nl {in_defined = 1;} arg</div><div class="line"><a name="l02360"></a><span class="lineno"> 2360</span>  {</div><div class="line"><a name="l02361"></a><span class="lineno"> 2361</span> #if 0</div><div class="line"><a name="l02362"></a><span class="lineno"> 2362</span>  in_defined = 0;</div><div class="line"><a name="l02363"></a><span class="lineno"> 2363</span>  $$ = NEW_DEFINED($4);</div><div class="line"><a name="l02364"></a><span class="lineno"> 2364</span> #endif</div><div class="line"><a name="l02365"></a><span class="lineno"> 2365</span>  in_defined = 0;</div><div class="line"><a name="l02366"></a><span class="lineno"> 2366</span>  $$ = dispatch1(defined, $4);</div><div class="line"><a name="l02367"></a><span class="lineno"> 2367</span> </div><div class="line"><a name="l02368"></a><span class="lineno"> 2368</span>  }</div><div class="line"><a name="l02369"></a><span class="lineno"> 2369</span>  | arg '?' arg opt_nl ':' arg</div><div class="line"><a name="l02370"></a><span class="lineno"> 2370</span>  {</div><div class="line"><a name="l02371"></a><span class="lineno"> 2371</span> #if 0</div><div class="line"><a name="l02372"></a><span class="lineno"> 2372</span>  value_expr($1);</div><div class="line"><a name="l02373"></a><span class="lineno"> 2373</span>  $$ = NEW_IF(cond($1), $3, $6);</div><div class="line"><a name="l02374"></a><span class="lineno"> 2374</span>  fixpos($$, $1);</div><div class="line"><a name="l02375"></a><span class="lineno"> 2375</span> #endif</div><div class="line"><a name="l02376"></a><span class="lineno"> 2376</span>  $$ = dispatch3(ifop, $1, $3, $6);</div><div class="line"><a name="l02377"></a><span class="lineno"> 2377</span> </div><div class="line"><a name="l02378"></a><span class="lineno"> 2378</span>  }</div><div class="line"><a name="l02379"></a><span class="lineno"> 2379</span>  | primary</div><div class="line"><a name="l02380"></a><span class="lineno"> 2380</span>  {</div><div class="line"><a name="l02381"></a><span class="lineno"> 2381</span>  $$ = $1;</div><div class="line"><a name="l02382"></a><span class="lineno"> 2382</span>  }</div><div class="line"><a name="l02383"></a><span class="lineno"> 2383</span>  ;</div><div class="line"><a name="l02384"></a><span class="lineno"> 2384</span> </div><div class="line"><a name="l02385"></a><span class="lineno"> 2385</span> arg_value : arg</div><div class="line"><a name="l02386"></a><span class="lineno"> 2386</span>  {</div><div class="line"><a name="l02387"></a><span class="lineno"> 2387</span> #if 0</div><div class="line"><a name="l02388"></a><span class="lineno"> 2388</span>  value_expr($1);</div><div class="line"><a name="l02389"></a><span class="lineno"> 2389</span>  $$ = $1;</div><div class="line"><a name="l02390"></a><span class="lineno"> 2390</span>  if (!$$) $$ = NEW_NIL();</div><div class="line"><a name="l02391"></a><span class="lineno"> 2391</span> #endif</div><div class="line"><a name="l02392"></a><span class="lineno"> 2392</span>  $$ = $1;</div><div class="line"><a name="l02393"></a><span class="lineno"> 2393</span> </div><div class="line"><a name="l02394"></a><span class="lineno"> 2394</span>  }</div><div class="line"><a name="l02395"></a><span class="lineno"> 2395</span>  ;</div><div class="line"><a name="l02396"></a><span class="lineno"> 2396</span> </div><div class="line"><a name="l02397"></a><span class="lineno"> 2397</span> aref_args : none</div><div class="line"><a name="l02398"></a><span class="lineno"> 2398</span>  | args trailer</div><div class="line"><a name="l02399"></a><span class="lineno"> 2399</span>  {</div><div class="line"><a name="l02400"></a><span class="lineno"> 2400</span>  $$ = $1;</div><div class="line"><a name="l02401"></a><span class="lineno"> 2401</span>  }</div><div class="line"><a name="l02402"></a><span class="lineno"> 2402</span>  | args ',' assocs trailer</div><div class="line"><a name="l02403"></a><span class="lineno"> 2403</span>  {</div><div class="line"><a name="l02404"></a><span class="lineno"> 2404</span> #if 0</div><div class="line"><a name="l02405"></a><span class="lineno"> 2405</span>  $$ = arg_append($1, NEW_HASH($3));</div><div class="line"><a name="l02406"></a><span class="lineno"> 2406</span> #endif</div><div class="line"><a name="l02407"></a><span class="lineno"> 2407</span>  $$ = arg_add_assocs($1, $3);</div><div class="line"><a name="l02408"></a><span class="lineno"> 2408</span> </div><div class="line"><a name="l02409"></a><span class="lineno"> 2409</span>  }</div><div class="line"><a name="l02410"></a><span class="lineno"> 2410</span>  | assocs trailer</div><div class="line"><a name="l02411"></a><span class="lineno"> 2411</span>  {</div><div class="line"><a name="l02412"></a><span class="lineno"> 2412</span> #if 0</div><div class="line"><a name="l02413"></a><span class="lineno"> 2413</span>  $$ = NEW_LIST(NEW_HASH($1));</div><div class="line"><a name="l02414"></a><span class="lineno"> 2414</span> #endif</div><div class="line"><a name="l02415"></a><span class="lineno"> 2415</span>  $$ = arg_add_assocs(arg_new(), $1);</div><div class="line"><a name="l02416"></a><span class="lineno"> 2416</span> </div><div class="line"><a name="l02417"></a><span class="lineno"> 2417</span>  }</div><div class="line"><a name="l02418"></a><span class="lineno"> 2418</span>  ;</div><div class="line"><a name="l02419"></a><span class="lineno"> 2419</span> </div><div class="line"><a name="l02420"></a><span class="lineno"> 2420</span> paren_args : '(' opt_call_args rparen</div><div class="line"><a name="l02421"></a><span class="lineno"> 2421</span>  {</div><div class="line"><a name="l02422"></a><span class="lineno"> 2422</span> #if 0</div><div class="line"><a name="l02423"></a><span class="lineno"> 2423</span>  $$ = $2;</div><div class="line"><a name="l02424"></a><span class="lineno"> 2424</span> #endif</div><div class="line"><a name="l02425"></a><span class="lineno"> 2425</span>  $$ = dispatch1(arg_paren, escape_Qundef($2));</div><div class="line"><a name="l02426"></a><span class="lineno"> 2426</span> </div><div class="line"><a name="l02427"></a><span class="lineno"> 2427</span>  }</div><div class="line"><a name="l02428"></a><span class="lineno"> 2428</span>  ;</div><div class="line"><a name="l02429"></a><span class="lineno"> 2429</span> </div><div class="line"><a name="l02430"></a><span class="lineno"> 2430</span> opt_paren_args : none</div><div class="line"><a name="l02431"></a><span class="lineno"> 2431</span>  | paren_args</div><div class="line"><a name="l02432"></a><span class="lineno"> 2432</span>  ;</div><div class="line"><a name="l02433"></a><span class="lineno"> 2433</span> </div><div class="line"><a name="l02434"></a><span class="lineno"> 2434</span> opt_call_args : none</div><div class="line"><a name="l02435"></a><span class="lineno"> 2435</span>  | call_args</div><div class="line"><a name="l02436"></a><span class="lineno"> 2436</span>  | args ','</div><div class="line"><a name="l02437"></a><span class="lineno"> 2437</span>  {</div><div class="line"><a name="l02438"></a><span class="lineno"> 2438</span>  $$ = $1;</div><div class="line"><a name="l02439"></a><span class="lineno"> 2439</span>  }</div><div class="line"><a name="l02440"></a><span class="lineno"> 2440</span>  | args ',' assocs ','</div><div class="line"><a name="l02441"></a><span class="lineno"> 2441</span>  {</div><div class="line"><a name="l02442"></a><span class="lineno"> 2442</span> #if 0</div><div class="line"><a name="l02443"></a><span class="lineno"> 2443</span>  $$ = arg_append($1, NEW_HASH($3));</div><div class="line"><a name="l02444"></a><span class="lineno"> 2444</span> #endif</div><div class="line"><a name="l02445"></a><span class="lineno"> 2445</span>  $$ = arg_add_assocs($1, $3);</div><div class="line"><a name="l02446"></a><span class="lineno"> 2446</span> </div><div class="line"><a name="l02447"></a><span class="lineno"> 2447</span>  }</div><div class="line"><a name="l02448"></a><span class="lineno"> 2448</span>  | assocs ','</div><div class="line"><a name="l02449"></a><span class="lineno"> 2449</span>  {</div><div class="line"><a name="l02450"></a><span class="lineno"> 2450</span> #if 0</div><div class="line"><a name="l02451"></a><span class="lineno"> 2451</span>  $$ = NEW_LIST(NEW_HASH($1));</div><div class="line"><a name="l02452"></a><span class="lineno"> 2452</span> #endif</div><div class="line"><a name="l02453"></a><span class="lineno"> 2453</span>  $$ = arg_add_assocs(arg_new(), $1);</div><div class="line"><a name="l02454"></a><span class="lineno"> 2454</span> </div><div class="line"><a name="l02455"></a><span class="lineno"> 2455</span>  }</div><div class="line"><a name="l02456"></a><span class="lineno"> 2456</span>  ;</div><div class="line"><a name="l02457"></a><span class="lineno"> 2457</span> </div><div class="line"><a name="l02458"></a><span class="lineno"> 2458</span> call_args : command</div><div class="line"><a name="l02459"></a><span class="lineno"> 2459</span>  {</div><div class="line"><a name="l02460"></a><span class="lineno"> 2460</span> #if 0</div><div class="line"><a name="l02461"></a><span class="lineno"> 2461</span>  value_expr($1);</div><div class="line"><a name="l02462"></a><span class="lineno"> 2462</span>  $$ = NEW_LIST($1);</div><div class="line"><a name="l02463"></a><span class="lineno"> 2463</span> #endif</div><div class="line"><a name="l02464"></a><span class="lineno"> 2464</span>  $$ = arg_add(arg_new(), $1);</div><div class="line"><a name="l02465"></a><span class="lineno"> 2465</span> </div><div class="line"><a name="l02466"></a><span class="lineno"> 2466</span>  }</div><div class="line"><a name="l02467"></a><span class="lineno"> 2467</span>  | args opt_block_arg</div><div class="line"><a name="l02468"></a><span class="lineno"> 2468</span>  {</div><div class="line"><a name="l02469"></a><span class="lineno"> 2469</span> #if 0</div><div class="line"><a name="l02470"></a><span class="lineno"> 2470</span>  $$ = arg_blk_pass($1, $2);</div><div class="line"><a name="l02471"></a><span class="lineno"> 2471</span> #endif</div><div class="line"><a name="l02472"></a><span class="lineno"> 2472</span>  $$ = arg_add_optblock($1, $2);</div><div class="line"><a name="l02473"></a><span class="lineno"> 2473</span> </div><div class="line"><a name="l02474"></a><span class="lineno"> 2474</span>  }</div><div class="line"><a name="l02475"></a><span class="lineno"> 2475</span>  | assocs opt_block_arg</div><div class="line"><a name="l02476"></a><span class="lineno"> 2476</span>  {</div><div class="line"><a name="l02477"></a><span class="lineno"> 2477</span> #if 0</div><div class="line"><a name="l02478"></a><span class="lineno"> 2478</span>  $$ = NEW_LIST(NEW_HASH($1));</div><div class="line"><a name="l02479"></a><span class="lineno"> 2479</span>  $$ = arg_blk_pass($$, $2);</div><div class="line"><a name="l02480"></a><span class="lineno"> 2480</span> #endif</div><div class="line"><a name="l02481"></a><span class="lineno"> 2481</span>  $$ = arg_add_assocs(arg_new(), $1);</div><div class="line"><a name="l02482"></a><span class="lineno"> 2482</span>  $$ = arg_add_optblock($$, $2);</div><div class="line"><a name="l02483"></a><span class="lineno"> 2483</span> </div><div class="line"><a name="l02484"></a><span class="lineno"> 2484</span>  }</div><div class="line"><a name="l02485"></a><span class="lineno"> 2485</span>  | args ',' assocs opt_block_arg</div><div class="line"><a name="l02486"></a><span class="lineno"> 2486</span>  {</div><div class="line"><a name="l02487"></a><span class="lineno"> 2487</span> #if 0</div><div class="line"><a name="l02488"></a><span class="lineno"> 2488</span>  $$ = arg_append($1, NEW_HASH($3));</div><div class="line"><a name="l02489"></a><span class="lineno"> 2489</span>  $$ = arg_blk_pass($$, $4);</div><div class="line"><a name="l02490"></a><span class="lineno"> 2490</span> #endif</div><div class="line"><a name="l02491"></a><span class="lineno"> 2491</span>  $$ = arg_add_optblock(arg_add_assocs($1, $3), $4);</div><div class="line"><a name="l02492"></a><span class="lineno"> 2492</span> </div><div class="line"><a name="l02493"></a><span class="lineno"> 2493</span>  }</div><div class="line"><a name="l02494"></a><span class="lineno"> 2494</span>  | block_arg</div><div class="line"><a name="l02495"></a><span class="lineno"> 2495</span> /*</div><div class="line"><a name="l02496"></a><span class="lineno"> 2496</span> */</div><div class="line"><a name="l02497"></a><span class="lineno"> 2497</span>  {</div><div class="line"><a name="l02498"></a><span class="lineno"> 2498</span>  $$ = arg_add_block(arg_new(), $1);</div><div class="line"><a name="l02499"></a><span class="lineno"> 2499</span>  }</div><div class="line"><a name="l02500"></a><span class="lineno"> 2500</span> </div><div class="line"><a name="l02501"></a><span class="lineno"> 2501</span>  ;</div><div class="line"><a name="l02502"></a><span class="lineno"> 2502</span> </div><div class="line"><a name="l02503"></a><span class="lineno"> 2503</span> command_args : {</div><div class="line"><a name="l02504"></a><span class="lineno"> 2504</span>  $<val>$ = cmdarg_stack;</div><div class="line"><a name="l02505"></a><span class="lineno"> 2505</span>  CMDARG_PUSH(1);</div><div class="line"><a name="l02506"></a><span class="lineno"> 2506</span>  }</div><div class="line"><a name="l02507"></a><span class="lineno"> 2507</span>  call_args</div><div class="line"><a name="l02508"></a><span class="lineno"> 2508</span>  {</div><div class="line"><a name="l02509"></a><span class="lineno"> 2509</span>  /* CMDARG_POP() */</div><div class="line"><a name="l02510"></a><span class="lineno"> 2510</span>  cmdarg_stack = $<val>1;</div><div class="line"><a name="l02511"></a><span class="lineno"> 2511</span>  $$ = $2;</div><div class="line"><a name="l02512"></a><span class="lineno"> 2512</span>  }</div><div class="line"><a name="l02513"></a><span class="lineno"> 2513</span>  ;</div><div class="line"><a name="l02514"></a><span class="lineno"> 2514</span> </div><div class="line"><a name="l02515"></a><span class="lineno"> 2515</span> block_arg : tAMPER arg_value</div><div class="line"><a name="l02516"></a><span class="lineno"> 2516</span>  {</div><div class="line"><a name="l02517"></a><span class="lineno"> 2517</span> #if 0</div><div class="line"><a name="l02518"></a><span class="lineno"> 2518</span>  $$ = NEW_BLOCK_PASS($2);</div><div class="line"><a name="l02519"></a><span class="lineno"> 2519</span> #endif</div><div class="line"><a name="l02520"></a><span class="lineno"> 2520</span>  $$ = $2;</div><div class="line"><a name="l02521"></a><span class="lineno"> 2521</span> </div><div class="line"><a name="l02522"></a><span class="lineno"> 2522</span>  }</div><div class="line"><a name="l02523"></a><span class="lineno"> 2523</span>  ;</div><div class="line"><a name="l02524"></a><span class="lineno"> 2524</span> </div><div class="line"><a name="l02525"></a><span class="lineno"> 2525</span> opt_block_arg : ',' block_arg</div><div class="line"><a name="l02526"></a><span class="lineno"> 2526</span>  {</div><div class="line"><a name="l02527"></a><span class="lineno"> 2527</span>  $$ = $2;</div><div class="line"><a name="l02528"></a><span class="lineno"> 2528</span>  }</div><div class="line"><a name="l02529"></a><span class="lineno"> 2529</span>  | none</div><div class="line"><a name="l02530"></a><span class="lineno"> 2530</span>  {</div><div class="line"><a name="l02531"></a><span class="lineno"> 2531</span>  $$ = 0;</div><div class="line"><a name="l02532"></a><span class="lineno"> 2532</span>  }</div><div class="line"><a name="l02533"></a><span class="lineno"> 2533</span>  ;</div><div class="line"><a name="l02534"></a><span class="lineno"> 2534</span> </div><div class="line"><a name="l02535"></a><span class="lineno"> 2535</span> args : arg_value</div><div class="line"><a name="l02536"></a><span class="lineno"> 2536</span>  {</div><div class="line"><a name="l02537"></a><span class="lineno"> 2537</span> #if 0</div><div class="line"><a name="l02538"></a><span class="lineno"> 2538</span>  $$ = NEW_LIST($1);</div><div class="line"><a name="l02539"></a><span class="lineno"> 2539</span> #endif</div><div class="line"><a name="l02540"></a><span class="lineno"> 2540</span>  $$ = arg_add(arg_new(), $1);</div><div class="line"><a name="l02541"></a><span class="lineno"> 2541</span> </div><div class="line"><a name="l02542"></a><span class="lineno"> 2542</span>  }</div><div class="line"><a name="l02543"></a><span class="lineno"> 2543</span>  | tSTAR arg_value</div><div class="line"><a name="l02544"></a><span class="lineno"> 2544</span>  {</div><div class="line"><a name="l02545"></a><span class="lineno"> 2545</span> #if 0</div><div class="line"><a name="l02546"></a><span class="lineno"> 2546</span>  $$ = NEW_SPLAT($2);</div><div class="line"><a name="l02547"></a><span class="lineno"> 2547</span> #endif</div><div class="line"><a name="l02548"></a><span class="lineno"> 2548</span>  $$ = arg_add_star(arg_new(), $2);</div><div class="line"><a name="l02549"></a><span class="lineno"> 2549</span> </div><div class="line"><a name="l02550"></a><span class="lineno"> 2550</span>  }</div><div class="line"><a name="l02551"></a><span class="lineno"> 2551</span>  | args ',' arg_value</div><div class="line"><a name="l02552"></a><span class="lineno"> 2552</span>  {</div><div class="line"><a name="l02553"></a><span class="lineno"> 2553</span> #if 0</div><div class="line"><a name="l02554"></a><span class="lineno"> 2554</span>  NODE *n1;</div><div class="line"><a name="l02555"></a><span class="lineno"> 2555</span>  if ((n1 = splat_array($1)) != 0) {</div><div class="line"><a name="l02556"></a><span class="lineno"> 2556</span>  $$ = list_append(n1, $3);</div><div class="line"><a name="l02557"></a><span class="lineno"> 2557</span>  }</div><div class="line"><a name="l02558"></a><span class="lineno"> 2558</span>  else {</div><div class="line"><a name="l02559"></a><span class="lineno"> 2559</span>  $$ = arg_append($1, $3);</div><div class="line"><a name="l02560"></a><span class="lineno"> 2560</span>  }</div><div class="line"><a name="l02561"></a><span class="lineno"> 2561</span> #endif</div><div class="line"><a name="l02562"></a><span class="lineno"> 2562</span>  $$ = arg_add($1, $3);</div><div class="line"><a name="l02563"></a><span class="lineno"> 2563</span> </div><div class="line"><a name="l02564"></a><span class="lineno"> 2564</span>  }</div><div class="line"><a name="l02565"></a><span class="lineno"> 2565</span>  | args ',' tSTAR arg_value</div><div class="line"><a name="l02566"></a><span class="lineno"> 2566</span>  {</div><div class="line"><a name="l02567"></a><span class="lineno"> 2567</span> #if 0</div><div class="line"><a name="l02568"></a><span class="lineno"> 2568</span>  NODE *n1;</div><div class="line"><a name="l02569"></a><span class="lineno"> 2569</span>  if ((nd_type($4) == NODE_ARRAY) && (n1 = splat_array($1)) != 0) {</div><div class="line"><a name="l02570"></a><span class="lineno"> 2570</span>  $$ = list_concat(n1, $4);</div><div class="line"><a name="l02571"></a><span class="lineno"> 2571</span>  }</div><div class="line"><a name="l02572"></a><span class="lineno"> 2572</span>  else {</div><div class="line"><a name="l02573"></a><span class="lineno"> 2573</span>  $$ = arg_concat($1, $4);</div><div class="line"><a name="l02574"></a><span class="lineno"> 2574</span>  }</div><div class="line"><a name="l02575"></a><span class="lineno"> 2575</span> #endif</div><div class="line"><a name="l02576"></a><span class="lineno"> 2576</span>  $$ = arg_add_star($1, $4);</div><div class="line"><a name="l02577"></a><span class="lineno"> 2577</span> </div><div class="line"><a name="l02578"></a><span class="lineno"> 2578</span>  }</div><div class="line"><a name="l02579"></a><span class="lineno"> 2579</span>  ;</div><div class="line"><a name="l02580"></a><span class="lineno"> 2580</span> </div><div class="line"><a name="l02581"></a><span class="lineno"> 2581</span> mrhs : args ',' arg_value</div><div class="line"><a name="l02582"></a><span class="lineno"> 2582</span>  {</div><div class="line"><a name="l02583"></a><span class="lineno"> 2583</span> #if 0</div><div class="line"><a name="l02584"></a><span class="lineno"> 2584</span>  NODE *n1;</div><div class="line"><a name="l02585"></a><span class="lineno"> 2585</span>  if ((n1 = splat_array($1)) != 0) {</div><div class="line"><a name="l02586"></a><span class="lineno"> 2586</span>  $$ = list_append(n1, $3);</div><div class="line"><a name="l02587"></a><span class="lineno"> 2587</span>  }</div><div class="line"><a name="l02588"></a><span class="lineno"> 2588</span>  else {</div><div class="line"><a name="l02589"></a><span class="lineno"> 2589</span>  $$ = arg_append($1, $3);</div><div class="line"><a name="l02590"></a><span class="lineno"> 2590</span>  }</div><div class="line"><a name="l02591"></a><span class="lineno"> 2591</span> #endif</div><div class="line"><a name="l02592"></a><span class="lineno"> 2592</span>  $$ = mrhs_add(args2mrhs($1), $3);</div><div class="line"><a name="l02593"></a><span class="lineno"> 2593</span> </div><div class="line"><a name="l02594"></a><span class="lineno"> 2594</span>  }</div><div class="line"><a name="l02595"></a><span class="lineno"> 2595</span>  | args ',' tSTAR arg_value</div><div class="line"><a name="l02596"></a><span class="lineno"> 2596</span>  {</div><div class="line"><a name="l02597"></a><span class="lineno"> 2597</span> #if 0</div><div class="line"><a name="l02598"></a><span class="lineno"> 2598</span>  NODE *n1;</div><div class="line"><a name="l02599"></a><span class="lineno"> 2599</span>  if (nd_type($4) == NODE_ARRAY &&</div><div class="line"><a name="l02600"></a><span class="lineno"> 2600</span>  (n1 = splat_array($1)) != 0) {</div><div class="line"><a name="l02601"></a><span class="lineno"> 2601</span>  $$ = list_concat(n1, $4);</div><div class="line"><a name="l02602"></a><span class="lineno"> 2602</span>  }</div><div class="line"><a name="l02603"></a><span class="lineno"> 2603</span>  else {</div><div class="line"><a name="l02604"></a><span class="lineno"> 2604</span>  $$ = arg_concat($1, $4);</div><div class="line"><a name="l02605"></a><span class="lineno"> 2605</span>  }</div><div class="line"><a name="l02606"></a><span class="lineno"> 2606</span> #endif</div><div class="line"><a name="l02607"></a><span class="lineno"> 2607</span>  $$ = mrhs_add_star(args2mrhs($1), $4);</div><div class="line"><a name="l02608"></a><span class="lineno"> 2608</span> </div><div class="line"><a name="l02609"></a><span class="lineno"> 2609</span>  }</div><div class="line"><a name="l02610"></a><span class="lineno"> 2610</span>  | tSTAR arg_value</div><div class="line"><a name="l02611"></a><span class="lineno"> 2611</span>  {</div><div class="line"><a name="l02612"></a><span class="lineno"> 2612</span> #if 0</div><div class="line"><a name="l02613"></a><span class="lineno"> 2613</span>  $$ = NEW_SPLAT($2);</div><div class="line"><a name="l02614"></a><span class="lineno"> 2614</span> #endif</div><div class="line"><a name="l02615"></a><span class="lineno"> 2615</span>  $$ = mrhs_add_star(mrhs_new(), $2);</div><div class="line"><a name="l02616"></a><span class="lineno"> 2616</span> </div><div class="line"><a name="l02617"></a><span class="lineno"> 2617</span>  }</div><div class="line"><a name="l02618"></a><span class="lineno"> 2618</span>  ;</div><div class="line"><a name="l02619"></a><span class="lineno"> 2619</span> </div><div class="line"><a name="l02620"></a><span class="lineno"> 2620</span> primary : literal</div><div class="line"><a name="l02621"></a><span class="lineno"> 2621</span>  | strings</div><div class="line"><a name="l02622"></a><span class="lineno"> 2622</span>  | xstring</div><div class="line"><a name="l02623"></a><span class="lineno"> 2623</span>  | regexp</div><div class="line"><a name="l02624"></a><span class="lineno"> 2624</span>  | words</div><div class="line"><a name="l02625"></a><span class="lineno"> 2625</span>  | qwords</div><div class="line"><a name="l02626"></a><span class="lineno"> 2626</span>  | var_ref</div><div class="line"><a name="l02627"></a><span class="lineno"> 2627</span>  | backref</div><div class="line"><a name="l02628"></a><span class="lineno"> 2628</span>  | tFID</div><div class="line"><a name="l02629"></a><span class="lineno"> 2629</span>  {</div><div class="line"><a name="l02630"></a><span class="lineno"> 2630</span> #if 0</div><div class="line"><a name="l02631"></a><span class="lineno"> 2631</span>  $$ = NEW_FCALL($1, 0);</div><div class="line"><a name="l02632"></a><span class="lineno"> 2632</span> #endif</div><div class="line"><a name="l02633"></a><span class="lineno"> 2633</span>  $$ = method_arg(dispatch1(fcall, $1), arg_new());</div><div class="line"><a name="l02634"></a><span class="lineno"> 2634</span> </div><div class="line"><a name="l02635"></a><span class="lineno"> 2635</span>  }</div><div class="line"><a name="l02636"></a><span class="lineno"> 2636</span>  | k_begin</div><div class="line"><a name="l02637"></a><span class="lineno"> 2637</span>  {</div><div class="line"><a name="l02638"></a><span class="lineno"> 2638</span> #if 0</div><div class="line"><a name="l02639"></a><span class="lineno"> 2639</span>  $<num>$ = ruby_sourceline;</div><div class="line"><a name="l02640"></a><span class="lineno"> 2640</span> #endif</div><div class="line"><a name="l02641"></a><span class="lineno"> 2641</span> </div><div class="line"><a name="l02642"></a><span class="lineno"> 2642</span>  }</div><div class="line"><a name="l02643"></a><span class="lineno"> 2643</span>  bodystmt</div><div class="line"><a name="l02644"></a><span class="lineno"> 2644</span>  k_end</div><div class="line"><a name="l02645"></a><span class="lineno"> 2645</span>  {</div><div class="line"><a name="l02646"></a><span class="lineno"> 2646</span> #if 0</div><div class="line"><a name="l02647"></a><span class="lineno"> 2647</span>  if ($3 == NULL) {</div><div class="line"><a name="l02648"></a><span class="lineno"> 2648</span>  $$ = NEW_NIL();</div><div class="line"><a name="l02649"></a><span class="lineno"> 2649</span>  }</div><div class="line"><a name="l02650"></a><span class="lineno"> 2650</span>  else {</div><div class="line"><a name="l02651"></a><span class="lineno"> 2651</span>  if (nd_type($3) == NODE_RESCUE ||</div><div class="line"><a name="l02652"></a><span class="lineno"> 2652</span>  nd_type($3) == NODE_ENSURE)</div><div class="line"><a name="l02653"></a><span class="lineno"> 2653</span>  nd_set_line($3, $<num>2);</div><div class="line"><a name="l02654"></a><span class="lineno"> 2654</span>  $$ = NEW_BEGIN($3);</div><div class="line"><a name="l02655"></a><span class="lineno"> 2655</span>  }</div><div class="line"><a name="l02656"></a><span class="lineno"> 2656</span>  nd_set_line($$, $<num>2);</div><div class="line"><a name="l02657"></a><span class="lineno"> 2657</span> #endif</div><div class="line"><a name="l02658"></a><span class="lineno"> 2658</span>  $$ = dispatch1(begin, $3);</div><div class="line"><a name="l02659"></a><span class="lineno"> 2659</span> </div><div class="line"><a name="l02660"></a><span class="lineno"> 2660</span>  }</div><div class="line"><a name="l02661"></a><span class="lineno"> 2661</span>  | tLPAREN_ARG expr {lex_state = EXPR_ENDARG;} rparen</div><div class="line"><a name="l02662"></a><span class="lineno"> 2662</span>  {</div><div class="line"><a name="l02663"></a><span class="lineno"> 2663</span>  rb_warning0("(...) interpreted as grouped expression");</div><div class="line"><a name="l02664"></a><span class="lineno"> 2664</span> #if 0</div><div class="line"><a name="l02665"></a><span class="lineno"> 2665</span>  $$ = $2;</div><div class="line"><a name="l02666"></a><span class="lineno"> 2666</span> #endif</div><div class="line"><a name="l02667"></a><span class="lineno"> 2667</span>  $$ = dispatch1(paren, $2);</div><div class="line"><a name="l02668"></a><span class="lineno"> 2668</span> </div><div class="line"><a name="l02669"></a><span class="lineno"> 2669</span>  }</div><div class="line"><a name="l02670"></a><span class="lineno"> 2670</span>  | tLPAREN compstmt ')'</div><div class="line"><a name="l02671"></a><span class="lineno"> 2671</span>  {</div><div class="line"><a name="l02672"></a><span class="lineno"> 2672</span> #if 0</div><div class="line"><a name="l02673"></a><span class="lineno"> 2673</span>  $$ = $2;</div><div class="line"><a name="l02674"></a><span class="lineno"> 2674</span> #endif</div><div class="line"><a name="l02675"></a><span class="lineno"> 2675</span>  $$ = dispatch1(paren, $2);</div><div class="line"><a name="l02676"></a><span class="lineno"> 2676</span> </div><div class="line"><a name="l02677"></a><span class="lineno"> 2677</span>  }</div><div class="line"><a name="l02678"></a><span class="lineno"> 2678</span>  | primary_value tCOLON2 tCONSTANT</div><div class="line"><a name="l02679"></a><span class="lineno"> 2679</span>  {</div><div class="line"><a name="l02680"></a><span class="lineno"> 2680</span> #if 0</div><div class="line"><a name="l02681"></a><span class="lineno"> 2681</span>  $$ = NEW_COLON2($1, $3);</div><div class="line"><a name="l02682"></a><span class="lineno"> 2682</span> #endif</div><div class="line"><a name="l02683"></a><span class="lineno"> 2683</span>  $$ = dispatch2(const_path_ref, $1, $3);</div><div class="line"><a name="l02684"></a><span class="lineno"> 2684</span> </div><div class="line"><a name="l02685"></a><span class="lineno"> 2685</span>  }</div><div class="line"><a name="l02686"></a><span class="lineno"> 2686</span>  | tCOLON3 tCONSTANT</div><div class="line"><a name="l02687"></a><span class="lineno"> 2687</span>  {</div><div class="line"><a name="l02688"></a><span class="lineno"> 2688</span> #if 0</div><div class="line"><a name="l02689"></a><span class="lineno"> 2689</span>  $$ = NEW_COLON3($2);</div><div class="line"><a name="l02690"></a><span class="lineno"> 2690</span> #endif</div><div class="line"><a name="l02691"></a><span class="lineno"> 2691</span>  $$ = dispatch1(top_const_ref, $2);</div><div class="line"><a name="l02692"></a><span class="lineno"> 2692</span> </div><div class="line"><a name="l02693"></a><span class="lineno"> 2693</span>  }</div><div class="line"><a name="l02694"></a><span class="lineno"> 2694</span>  | tLBRACK aref_args ']'</div><div class="line"><a name="l02695"></a><span class="lineno"> 2695</span>  {</div><div class="line"><a name="l02696"></a><span class="lineno"> 2696</span> #if 0</div><div class="line"><a name="l02697"></a><span class="lineno"> 2697</span>  if ($2 == 0) {</div><div class="line"><a name="l02698"></a><span class="lineno"> 2698</span>  $$ = NEW_ZARRAY(); /* zero length array*/</div><div class="line"><a name="l02699"></a><span class="lineno"> 2699</span>  }</div><div class="line"><a name="l02700"></a><span class="lineno"> 2700</span>  else {</div><div class="line"><a name="l02701"></a><span class="lineno"> 2701</span>  $$ = $2;</div><div class="line"><a name="l02702"></a><span class="lineno"> 2702</span>  }</div><div class="line"><a name="l02703"></a><span class="lineno"> 2703</span> #endif</div><div class="line"><a name="l02704"></a><span class="lineno"> 2704</span>  $$ = dispatch1(array, escape_Qundef($2));</div><div class="line"><a name="l02705"></a><span class="lineno"> 2705</span> </div><div class="line"><a name="l02706"></a><span class="lineno"> 2706</span>  }</div><div class="line"><a name="l02707"></a><span class="lineno"> 2707</span>  | tLBRACE assoc_list '}'</div><div class="line"><a name="l02708"></a><span class="lineno"> 2708</span>  {</div><div class="line"><a name="l02709"></a><span class="lineno"> 2709</span> #if 0</div><div class="line"><a name="l02710"></a><span class="lineno"> 2710</span>  $$ = NEW_HASH($2);</div><div class="line"><a name="l02711"></a><span class="lineno"> 2711</span> #endif</div><div class="line"><a name="l02712"></a><span class="lineno"> 2712</span>  $$ = dispatch1(hash, escape_Qundef($2));</div><div class="line"><a name="l02713"></a><span class="lineno"> 2713</span> </div><div class="line"><a name="l02714"></a><span class="lineno"> 2714</span>  }</div><div class="line"><a name="l02715"></a><span class="lineno"> 2715</span>  | keyword_return</div><div class="line"><a name="l02716"></a><span class="lineno"> 2716</span>  {</div><div class="line"><a name="l02717"></a><span class="lineno"> 2717</span> #if 0</div><div class="line"><a name="l02718"></a><span class="lineno"> 2718</span>  $$ = NEW_RETURN(0);</div><div class="line"><a name="l02719"></a><span class="lineno"> 2719</span> #endif</div><div class="line"><a name="l02720"></a><span class="lineno"> 2720</span>  $$ = dispatch0(return0);</div><div class="line"><a name="l02721"></a><span class="lineno"> 2721</span> </div><div class="line"><a name="l02722"></a><span class="lineno"> 2722</span>  }</div><div class="line"><a name="l02723"></a><span class="lineno"> 2723</span>  | keyword_yield '(' call_args rparen</div><div class="line"><a name="l02724"></a><span class="lineno"> 2724</span>  {</div><div class="line"><a name="l02725"></a><span class="lineno"> 2725</span> #if 0</div><div class="line"><a name="l02726"></a><span class="lineno"> 2726</span>  $$ = new_yield($3);</div><div class="line"><a name="l02727"></a><span class="lineno"> 2727</span> #endif</div><div class="line"><a name="l02728"></a><span class="lineno"> 2728</span>  $$ = dispatch1(yield, dispatch1(paren, $3));</div><div class="line"><a name="l02729"></a><span class="lineno"> 2729</span> </div><div class="line"><a name="l02730"></a><span class="lineno"> 2730</span>  }</div><div class="line"><a name="l02731"></a><span class="lineno"> 2731</span>  | keyword_yield '(' rparen</div><div class="line"><a name="l02732"></a><span class="lineno"> 2732</span>  {</div><div class="line"><a name="l02733"></a><span class="lineno"> 2733</span> #if 0</div><div class="line"><a name="l02734"></a><span class="lineno"> 2734</span>  $$ = NEW_YIELD(0, Qfalse);</div><div class="line"><a name="l02735"></a><span class="lineno"> 2735</span> #endif</div><div class="line"><a name="l02736"></a><span class="lineno"> 2736</span>  $$ = dispatch1(yield, dispatch1(paren, arg_new()));</div><div class="line"><a name="l02737"></a><span class="lineno"> 2737</span> </div><div class="line"><a name="l02738"></a><span class="lineno"> 2738</span>  }</div><div class="line"><a name="l02739"></a><span class="lineno"> 2739</span>  | keyword_yield</div><div class="line"><a name="l02740"></a><span class="lineno"> 2740</span>  {</div><div class="line"><a name="l02741"></a><span class="lineno"> 2741</span> #if 0</div><div class="line"><a name="l02742"></a><span class="lineno"> 2742</span>  $$ = NEW_YIELD(0, Qfalse);</div><div class="line"><a name="l02743"></a><span class="lineno"> 2743</span> #endif</div><div class="line"><a name="l02744"></a><span class="lineno"> 2744</span>  $$ = dispatch0(yield0);</div><div class="line"><a name="l02745"></a><span class="lineno"> 2745</span> </div><div class="line"><a name="l02746"></a><span class="lineno"> 2746</span>  }</div><div class="line"><a name="l02747"></a><span class="lineno"> 2747</span>  | keyword_defined opt_nl '(' {in_defined = 1;} expr rparen</div><div class="line"><a name="l02748"></a><span class="lineno"> 2748</span>  {</div><div class="line"><a name="l02749"></a><span class="lineno"> 2749</span> #if 0</div><div class="line"><a name="l02750"></a><span class="lineno"> 2750</span>  in_defined = 0;</div><div class="line"><a name="l02751"></a><span class="lineno"> 2751</span>  $$ = NEW_DEFINED($5);</div><div class="line"><a name="l02752"></a><span class="lineno"> 2752</span> #endif</div><div class="line"><a name="l02753"></a><span class="lineno"> 2753</span>  in_defined = 0;</div><div class="line"><a name="l02754"></a><span class="lineno"> 2754</span>  $$ = dispatch1(defined, $5);</div><div class="line"><a name="l02755"></a><span class="lineno"> 2755</span> </div><div class="line"><a name="l02756"></a><span class="lineno"> 2756</span>  }</div><div class="line"><a name="l02757"></a><span class="lineno"> 2757</span>  | keyword_not '(' expr rparen</div><div class="line"><a name="l02758"></a><span class="lineno"> 2758</span>  {</div><div class="line"><a name="l02759"></a><span class="lineno"> 2759</span> #if 0</div><div class="line"><a name="l02760"></a><span class="lineno"> 2760</span>  $$ = call_uni_op(cond($3), '!');</div><div class="line"><a name="l02761"></a><span class="lineno"> 2761</span> #endif</div><div class="line"><a name="l02762"></a><span class="lineno"> 2762</span>  $$ = dispatch2(unary, ripper_intern("not"), $3);</div><div class="line"><a name="l02763"></a><span class="lineno"> 2763</span> </div><div class="line"><a name="l02764"></a><span class="lineno"> 2764</span>  }</div><div class="line"><a name="l02765"></a><span class="lineno"> 2765</span>  | keyword_not '(' rparen</div><div class="line"><a name="l02766"></a><span class="lineno"> 2766</span>  {</div><div class="line"><a name="l02767"></a><span class="lineno"> 2767</span> #if 0</div><div class="line"><a name="l02768"></a><span class="lineno"> 2768</span>  $$ = call_uni_op(cond(NEW_NIL()), '!');</div><div class="line"><a name="l02769"></a><span class="lineno"> 2769</span> #endif</div><div class="line"><a name="l02770"></a><span class="lineno"> 2770</span>  $$ = dispatch2(unary, ripper_intern("not"), Qnil);</div><div class="line"><a name="l02771"></a><span class="lineno"> 2771</span> </div><div class="line"><a name="l02772"></a><span class="lineno"> 2772</span>  }</div><div class="line"><a name="l02773"></a><span class="lineno"> 2773</span>  | operation brace_block</div><div class="line"><a name="l02774"></a><span class="lineno"> 2774</span>  {</div><div class="line"><a name="l02775"></a><span class="lineno"> 2775</span> #if 0</div><div class="line"><a name="l02776"></a><span class="lineno"> 2776</span>  $2->nd_iter = NEW_FCALL($1, 0);</div><div class="line"><a name="l02777"></a><span class="lineno"> 2777</span>  $$ = $2;</div><div class="line"><a name="l02778"></a><span class="lineno"> 2778</span>  fixpos($2->nd_iter, $2);</div><div class="line"><a name="l02779"></a><span class="lineno"> 2779</span> #endif</div><div class="line"><a name="l02780"></a><span class="lineno"> 2780</span>  $$ = method_arg(dispatch1(fcall, $1), arg_new());</div><div class="line"><a name="l02781"></a><span class="lineno"> 2781</span>  $$ = method_add_block($$, $2);</div><div class="line"><a name="l02782"></a><span class="lineno"> 2782</span> </div><div class="line"><a name="l02783"></a><span class="lineno"> 2783</span>  }</div><div class="line"><a name="l02784"></a><span class="lineno"> 2784</span>  | method_call</div><div class="line"><a name="l02785"></a><span class="lineno"> 2785</span>  | method_call brace_block</div><div class="line"><a name="l02786"></a><span class="lineno"> 2786</span>  {</div><div class="line"><a name="l02787"></a><span class="lineno"> 2787</span> #if 0</div><div class="line"><a name="l02788"></a><span class="lineno"> 2788</span>  block_dup_check($1->nd_args, $2);</div><div class="line"><a name="l02789"></a><span class="lineno"> 2789</span>  $2->nd_iter = $1;</div><div class="line"><a name="l02790"></a><span class="lineno"> 2790</span>  $$ = $2;</div><div class="line"><a name="l02791"></a><span class="lineno"> 2791</span>  fixpos($$, $1);</div><div class="line"><a name="l02792"></a><span class="lineno"> 2792</span> #endif</div><div class="line"><a name="l02793"></a><span class="lineno"> 2793</span>  $$ = method_add_block($1, $2);</div><div class="line"><a name="l02794"></a><span class="lineno"> 2794</span> </div><div class="line"><a name="l02795"></a><span class="lineno"> 2795</span>  }</div><div class="line"><a name="l02796"></a><span class="lineno"> 2796</span>  | tLAMBDA lambda</div><div class="line"><a name="l02797"></a><span class="lineno"> 2797</span>  {</div><div class="line"><a name="l02798"></a><span class="lineno"> 2798</span>  $$ = $2;</div><div class="line"><a name="l02799"></a><span class="lineno"> 2799</span>  }</div><div class="line"><a name="l02800"></a><span class="lineno"> 2800</span>  | k_if expr_value then</div><div class="line"><a name="l02801"></a><span class="lineno"> 2801</span>  compstmt</div><div class="line"><a name="l02802"></a><span class="lineno"> 2802</span>  if_tail</div><div class="line"><a name="l02803"></a><span class="lineno"> 2803</span>  k_end</div><div class="line"><a name="l02804"></a><span class="lineno"> 2804</span>  {</div><div class="line"><a name="l02805"></a><span class="lineno"> 2805</span> #if 0</div><div class="line"><a name="l02806"></a><span class="lineno"> 2806</span>  $$ = NEW_IF(cond($2), $4, $5);</div><div class="line"><a name="l02807"></a><span class="lineno"> 2807</span>  fixpos($$, $2);</div><div class="line"><a name="l02808"></a><span class="lineno"> 2808</span> #endif</div><div class="line"><a name="l02809"></a><span class="lineno"> 2809</span>  $$ = dispatch3(if, $2, $4, escape_Qundef($5));</div><div class="line"><a name="l02810"></a><span class="lineno"> 2810</span> </div><div class="line"><a name="l02811"></a><span class="lineno"> 2811</span>  }</div><div class="line"><a name="l02812"></a><span class="lineno"> 2812</span>  | k_unless expr_value then</div><div class="line"><a name="l02813"></a><span class="lineno"> 2813</span>  compstmt</div><div class="line"><a name="l02814"></a><span class="lineno"> 2814</span>  opt_else</div><div class="line"><a name="l02815"></a><span class="lineno"> 2815</span>  k_end</div><div class="line"><a name="l02816"></a><span class="lineno"> 2816</span>  {</div><div class="line"><a name="l02817"></a><span class="lineno"> 2817</span> #if 0</div><div class="line"><a name="l02818"></a><span class="lineno"> 2818</span>  $$ = NEW_UNLESS(cond($2), $4, $5);</div><div class="line"><a name="l02819"></a><span class="lineno"> 2819</span>  fixpos($$, $2);</div><div class="line"><a name="l02820"></a><span class="lineno"> 2820</span> #endif</div><div class="line"><a name="l02821"></a><span class="lineno"> 2821</span>  $$ = dispatch3(unless, $2, $4, escape_Qundef($5));</div><div class="line"><a name="l02822"></a><span class="lineno"> 2822</span> </div><div class="line"><a name="l02823"></a><span class="lineno"> 2823</span>  }</div><div class="line"><a name="l02824"></a><span class="lineno"> 2824</span>  | k_while {COND_PUSH(1);} expr_value do {COND_POP();}</div><div class="line"><a name="l02825"></a><span class="lineno"> 2825</span>  compstmt</div><div class="line"><a name="l02826"></a><span class="lineno"> 2826</span>  k_end</div><div class="line"><a name="l02827"></a><span class="lineno"> 2827</span>  {</div><div class="line"><a name="l02828"></a><span class="lineno"> 2828</span> #if 0</div><div class="line"><a name="l02829"></a><span class="lineno"> 2829</span>  $$ = NEW_WHILE(cond($3), $6, 1);</div><div class="line"><a name="l02830"></a><span class="lineno"> 2830</span>  fixpos($$, $3);</div><div class="line"><a name="l02831"></a><span class="lineno"> 2831</span> #endif</div><div class="line"><a name="l02832"></a><span class="lineno"> 2832</span>  $$ = dispatch2(while, $3, $6);</div><div class="line"><a name="l02833"></a><span class="lineno"> 2833</span> </div><div class="line"><a name="l02834"></a><span class="lineno"> 2834</span>  }</div><div class="line"><a name="l02835"></a><span class="lineno"> 2835</span>  | k_until {COND_PUSH(1);} expr_value do {COND_POP();}</div><div class="line"><a name="l02836"></a><span class="lineno"> 2836</span>  compstmt</div><div class="line"><a name="l02837"></a><span class="lineno"> 2837</span>  k_end</div><div class="line"><a name="l02838"></a><span class="lineno"> 2838</span>  {</div><div class="line"><a name="l02839"></a><span class="lineno"> 2839</span> #if 0</div><div class="line"><a name="l02840"></a><span class="lineno"> 2840</span>  $$ = NEW_UNTIL(cond($3), $6, 1);</div><div class="line"><a name="l02841"></a><span class="lineno"> 2841</span>  fixpos($$, $3);</div><div class="line"><a name="l02842"></a><span class="lineno"> 2842</span> #endif</div><div class="line"><a name="l02843"></a><span class="lineno"> 2843</span>  $$ = dispatch2(until, $3, $6);</div><div class="line"><a name="l02844"></a><span class="lineno"> 2844</span> </div><div class="line"><a name="l02845"></a><span class="lineno"> 2845</span>  }</div><div class="line"><a name="l02846"></a><span class="lineno"> 2846</span>  | k_case expr_value opt_terms</div><div class="line"><a name="l02847"></a><span class="lineno"> 2847</span>  case_body</div><div class="line"><a name="l02848"></a><span class="lineno"> 2848</span>  k_end</div><div class="line"><a name="l02849"></a><span class="lineno"> 2849</span>  {</div><div class="line"><a name="l02850"></a><span class="lineno"> 2850</span> #if 0</div><div class="line"><a name="l02851"></a><span class="lineno"> 2851</span>  $$ = NEW_CASE($2, $4);</div><div class="line"><a name="l02852"></a><span class="lineno"> 2852</span>  fixpos($$, $2);</div><div class="line"><a name="l02853"></a><span class="lineno"> 2853</span> #endif</div><div class="line"><a name="l02854"></a><span class="lineno"> 2854</span>  $$ = dispatch2(case, $2, $4);</div><div class="line"><a name="l02855"></a><span class="lineno"> 2855</span> </div><div class="line"><a name="l02856"></a><span class="lineno"> 2856</span>  }</div><div class="line"><a name="l02857"></a><span class="lineno"> 2857</span>  | k_case opt_terms case_body k_end</div><div class="line"><a name="l02858"></a><span class="lineno"> 2858</span>  {</div><div class="line"><a name="l02859"></a><span class="lineno"> 2859</span> #if 0</div><div class="line"><a name="l02860"></a><span class="lineno"> 2860</span>  $$ = NEW_CASE(0, $3);</div><div class="line"><a name="l02861"></a><span class="lineno"> 2861</span> #endif</div><div class="line"><a name="l02862"></a><span class="lineno"> 2862</span>  $$ = dispatch2(case, Qnil, $3);</div><div class="line"><a name="l02863"></a><span class="lineno"> 2863</span> </div><div class="line"><a name="l02864"></a><span class="lineno"> 2864</span>  }</div><div class="line"><a name="l02865"></a><span class="lineno"> 2865</span>  | k_for for_var keyword_in</div><div class="line"><a name="l02866"></a><span class="lineno"> 2866</span>  {COND_PUSH(1);}</div><div class="line"><a name="l02867"></a><span class="lineno"> 2867</span>  expr_value do</div><div class="line"><a name="l02868"></a><span class="lineno"> 2868</span>  {COND_POP();}</div><div class="line"><a name="l02869"></a><span class="lineno"> 2869</span>  compstmt</div><div class="line"><a name="l02870"></a><span class="lineno"> 2870</span>  k_end</div><div class="line"><a name="l02871"></a><span class="lineno"> 2871</span>  {</div><div class="line"><a name="l02872"></a><span class="lineno"> 2872</span> #if 0</div><div class="line"><a name="l02873"></a><span class="lineno"> 2873</span>  /*</div><div class="line"><a name="l02874"></a><span class="lineno"> 2874</span>  * for a, b, c in e</div><div class="line"><a name="l02875"></a><span class="lineno"> 2875</span>  * #=></div><div class="line"><a name="l02876"></a><span class="lineno"> 2876</span>  * e.each{|*x| a, b, c = x</div><div class="line"><a name="l02877"></a><span class="lineno"> 2877</span>  *</div><div class="line"><a name="l02878"></a><span class="lineno"> 2878</span>  * for a in e</div><div class="line"><a name="l02879"></a><span class="lineno"> 2879</span>  * #=></div><div class="line"><a name="l02880"></a><span class="lineno"> 2880</span>  * e.each{|x| a, = x}</div><div class="line"><a name="l02881"></a><span class="lineno"> 2881</span>  */</div><div class="line"><a name="l02882"></a><span class="lineno"> 2882</span>  ID id = internal_id();</div><div class="line"><a name="l02883"></a><span class="lineno"> 2883</span>  ID *tbl = ALLOC_N(ID, 2);</div><div class="line"><a name="l02884"></a><span class="lineno"> 2884</span>  NODE *m = NEW_ARGS_AUX(0, 0);</div><div class="line"><a name="l02885"></a><span class="lineno"> 2885</span>  NODE *args, *scope;</div><div class="line"><a name="l02886"></a><span class="lineno"> 2886</span> </div><div class="line"><a name="l02887"></a><span class="lineno"> 2887</span>  if (nd_type($2) == NODE_MASGN) {</div><div class="line"><a name="l02888"></a><span class="lineno"> 2888</span>  /* if args.length == 1 && args[0].kind_of?(Array)</div><div class="line"><a name="l02889"></a><span class="lineno"> 2889</span>  * args = args[0]</div><div class="line"><a name="l02890"></a><span class="lineno"> 2890</span>  * end</div><div class="line"><a name="l02891"></a><span class="lineno"> 2891</span>  */</div><div class="line"><a name="l02892"></a><span class="lineno"> 2892</span>  NODE *one = NEW_LIST(NEW_LIT(INT2FIX(1)));</div><div class="line"><a name="l02893"></a><span class="lineno"> 2893</span>  NODE *zero = NEW_LIST(NEW_LIT(INT2FIX(0)));</div><div class="line"><a name="l02894"></a><span class="lineno"> 2894</span>  m->nd_next = block_append(</div><div class="line"><a name="l02895"></a><span class="lineno"> 2895</span>  NEW_IF(</div><div class="line"><a name="l02896"></a><span class="lineno"> 2896</span>  NEW_NODE(NODE_AND,</div><div class="line"><a name="l02897"></a><span class="lineno"> 2897</span>  NEW_CALL(NEW_CALL(NEW_DVAR(id), rb_intern("length"), 0),</div><div class="line"><a name="l02898"></a><span class="lineno"> 2898</span>  rb_intern("=="), one),</div><div class="line"><a name="l02899"></a><span class="lineno"> 2899</span>  NEW_CALL(NEW_CALL(NEW_DVAR(id), rb_intern("[]"), zero),</div><div class="line"><a name="l02900"></a><span class="lineno"> 2900</span>  rb_intern("kind_of?"), NEW_LIST(NEW_LIT(rb_cArray))),</div><div class="line"><a name="l02901"></a><span class="lineno"> 2901</span>  0),</div><div class="line"><a name="l02902"></a><span class="lineno"> 2902</span>  NEW_DASGN_CURR(id,</div><div class="line"><a name="l02903"></a><span class="lineno"> 2903</span>  NEW_CALL(NEW_DVAR(id), rb_intern("[]"), zero)),</div><div class="line"><a name="l02904"></a><span class="lineno"> 2904</span>  0),</div><div class="line"><a name="l02905"></a><span class="lineno"> 2905</span>  node_assign($2, NEW_DVAR(id)));</div><div class="line"><a name="l02906"></a><span class="lineno"> 2906</span> </div><div class="line"><a name="l02907"></a><span class="lineno"> 2907</span>  args = new_args(m, 0, id, 0, 0);</div><div class="line"><a name="l02908"></a><span class="lineno"> 2908</span>  }</div><div class="line"><a name="l02909"></a><span class="lineno"> 2909</span>  else {</div><div class="line"><a name="l02910"></a><span class="lineno"> 2910</span>  if (nd_type($2) == NODE_LASGN ||</div><div class="line"><a name="l02911"></a><span class="lineno"> 2911</span>  nd_type($2) == NODE_DASGN ||</div><div class="line"><a name="l02912"></a><span class="lineno"> 2912</span>  nd_type($2) == NODE_DASGN_CURR) {</div><div class="line"><a name="l02913"></a><span class="lineno"> 2913</span>  $2->nd_value = NEW_DVAR(id);</div><div class="line"><a name="l02914"></a><span class="lineno"> 2914</span>  m->nd_plen = 1;</div><div class="line"><a name="l02915"></a><span class="lineno"> 2915</span>  m->nd_next = $2;</div><div class="line"><a name="l02916"></a><span class="lineno"> 2916</span>  args = new_args(m, 0, 0, 0, 0);</div><div class="line"><a name="l02917"></a><span class="lineno"> 2917</span>  }</div><div class="line"><a name="l02918"></a><span class="lineno"> 2918</span>  else {</div><div class="line"><a name="l02919"></a><span class="lineno"> 2919</span>  m->nd_next = node_assign(NEW_MASGN(NEW_LIST($2), 0), NEW_DVAR(id));</div><div class="line"><a name="l02920"></a><span class="lineno"> 2920</span>  args = new_args(m, 0, id, 0, 0);</div><div class="line"><a name="l02921"></a><span class="lineno"> 2921</span>  }</div><div class="line"><a name="l02922"></a><span class="lineno"> 2922</span>  }</div><div class="line"><a name="l02923"></a><span class="lineno"> 2923</span>  scope = NEW_NODE(NODE_SCOPE, tbl, $8, args);</div><div class="line"><a name="l02924"></a><span class="lineno"> 2924</span>  tbl[0] = 1; tbl[1] = id;</div><div class="line"><a name="l02925"></a><span class="lineno"> 2925</span>  $$ = NEW_FOR(0, $5, scope);</div><div class="line"><a name="l02926"></a><span class="lineno"> 2926</span>  fixpos($$, $2);</div><div class="line"><a name="l02927"></a><span class="lineno"> 2927</span> #endif</div><div class="line"><a name="l02928"></a><span class="lineno"> 2928</span>  $$ = dispatch3(for, $2, $5, $8);</div><div class="line"><a name="l02929"></a><span class="lineno"> 2929</span> </div><div class="line"><a name="l02930"></a><span class="lineno"> 2930</span>  }</div><div class="line"><a name="l02931"></a><span class="lineno"> 2931</span>  | k_class cpath superclass</div><div class="line"><a name="l02932"></a><span class="lineno"> 2932</span>  {</div><div class="line"><a name="l02933"></a><span class="lineno"> 2933</span>  if (in_def || in_single)</div><div class="line"><a name="l02934"></a><span class="lineno"> 2934</span>  yyerror("class definition in method body");</div><div class="line"><a name="l02935"></a><span class="lineno"> 2935</span>  local_push(0);</div><div class="line"><a name="l02936"></a><span class="lineno"> 2936</span> #if 0</div><div class="line"><a name="l02937"></a><span class="lineno"> 2937</span>  $<num>$ = ruby_sourceline;</div><div class="line"><a name="l02938"></a><span class="lineno"> 2938</span> #endif</div><div class="line"><a name="l02939"></a><span class="lineno"> 2939</span> </div><div class="line"><a name="l02940"></a><span class="lineno"> 2940</span>  }</div><div class="line"><a name="l02941"></a><span class="lineno"> 2941</span>  bodystmt</div><div class="line"><a name="l02942"></a><span class="lineno"> 2942</span>  k_end</div><div class="line"><a name="l02943"></a><span class="lineno"> 2943</span>  {</div><div class="line"><a name="l02944"></a><span class="lineno"> 2944</span> #if 0</div><div class="line"><a name="l02945"></a><span class="lineno"> 2945</span>  $$ = NEW_CLASS($2, $5, $3);</div><div class="line"><a name="l02946"></a><span class="lineno"> 2946</span>  nd_set_line($$, $<num>4);</div><div class="line"><a name="l02947"></a><span class="lineno"> 2947</span> #endif</div><div class="line"><a name="l02948"></a><span class="lineno"> 2948</span>  $$ = dispatch3(class, $2, $3, $5);</div><div class="line"><a name="l02949"></a><span class="lineno"> 2949</span> </div><div class="line"><a name="l02950"></a><span class="lineno"> 2950</span>  local_pop();</div><div class="line"><a name="l02951"></a><span class="lineno"> 2951</span>  }</div><div class="line"><a name="l02952"></a><span class="lineno"> 2952</span>  | k_class tLSHFT expr</div><div class="line"><a name="l02953"></a><span class="lineno"> 2953</span>  {</div><div class="line"><a name="l02954"></a><span class="lineno"> 2954</span>  $<num>$ = in_def;</div><div class="line"><a name="l02955"></a><span class="lineno"> 2955</span>  in_def = 0;</div><div class="line"><a name="l02956"></a><span class="lineno"> 2956</span>  }</div><div class="line"><a name="l02957"></a><span class="lineno"> 2957</span>  term</div><div class="line"><a name="l02958"></a><span class="lineno"> 2958</span>  {</div><div class="line"><a name="l02959"></a><span class="lineno"> 2959</span>  $<num>$ = in_single;</div><div class="line"><a name="l02960"></a><span class="lineno"> 2960</span>  in_single = 0;</div><div class="line"><a name="l02961"></a><span class="lineno"> 2961</span>  local_push(0);</div><div class="line"><a name="l02962"></a><span class="lineno"> 2962</span>  }</div><div class="line"><a name="l02963"></a><span class="lineno"> 2963</span>  bodystmt</div><div class="line"><a name="l02964"></a><span class="lineno"> 2964</span>  k_end</div><div class="line"><a name="l02965"></a><span class="lineno"> 2965</span>  {</div><div class="line"><a name="l02966"></a><span class="lineno"> 2966</span> #if 0</div><div class="line"><a name="l02967"></a><span class="lineno"> 2967</span>  $$ = NEW_SCLASS($3, $7);</div><div class="line"><a name="l02968"></a><span class="lineno"> 2968</span>  fixpos($$, $3);</div><div class="line"><a name="l02969"></a><span class="lineno"> 2969</span> #endif</div><div class="line"><a name="l02970"></a><span class="lineno"> 2970</span>  $$ = dispatch2(sclass, $3, $7);</div><div class="line"><a name="l02971"></a><span class="lineno"> 2971</span> </div><div class="line"><a name="l02972"></a><span class="lineno"> 2972</span>  local_pop();</div><div class="line"><a name="l02973"></a><span class="lineno"> 2973</span>  in_def = $<num>4;</div><div class="line"><a name="l02974"></a><span class="lineno"> 2974</span>  in_single = $<num>6;</div><div class="line"><a name="l02975"></a><span class="lineno"> 2975</span>  }</div><div class="line"><a name="l02976"></a><span class="lineno"> 2976</span>  | k_module cpath</div><div class="line"><a name="l02977"></a><span class="lineno"> 2977</span>  {</div><div class="line"><a name="l02978"></a><span class="lineno"> 2978</span>  if (in_def || in_single)</div><div class="line"><a name="l02979"></a><span class="lineno"> 2979</span>  yyerror("module definition in method body");</div><div class="line"><a name="l02980"></a><span class="lineno"> 2980</span>  local_push(0);</div><div class="line"><a name="l02981"></a><span class="lineno"> 2981</span> #if 0</div><div class="line"><a name="l02982"></a><span class="lineno"> 2982</span>  $<num>$ = ruby_sourceline;</div><div class="line"><a name="l02983"></a><span class="lineno"> 2983</span> #endif</div><div class="line"><a name="l02984"></a><span class="lineno"> 2984</span> </div><div class="line"><a name="l02985"></a><span class="lineno"> 2985</span>  }</div><div class="line"><a name="l02986"></a><span class="lineno"> 2986</span>  bodystmt</div><div class="line"><a name="l02987"></a><span class="lineno"> 2987</span>  k_end</div><div class="line"><a name="l02988"></a><span class="lineno"> 2988</span>  {</div><div class="line"><a name="l02989"></a><span class="lineno"> 2989</span> #if 0</div><div class="line"><a name="l02990"></a><span class="lineno"> 2990</span>  $$ = NEW_MODULE($2, $4);</div><div class="line"><a name="l02991"></a><span class="lineno"> 2991</span>  nd_set_line($$, $<num>3);</div><div class="line"><a name="l02992"></a><span class="lineno"> 2992</span> #endif</div><div class="line"><a name="l02993"></a><span class="lineno"> 2993</span>  $$ = dispatch2(module, $2, $4);</div><div class="line"><a name="l02994"></a><span class="lineno"> 2994</span> </div><div class="line"><a name="l02995"></a><span class="lineno"> 2995</span>  local_pop();</div><div class="line"><a name="l02996"></a><span class="lineno"> 2996</span>  }</div><div class="line"><a name="l02997"></a><span class="lineno"> 2997</span>  | k_def fname</div><div class="line"><a name="l02998"></a><span class="lineno"> 2998</span>  {</div><div class="line"><a name="l02999"></a><span class="lineno"> 2999</span>  $<id>$ = cur_mid;</div><div class="line"><a name="l03000"></a><span class="lineno"> 3000</span>  cur_mid = $2;</div><div class="line"><a name="l03001"></a><span class="lineno"> 3001</span>  in_def++;</div><div class="line"><a name="l03002"></a><span class="lineno"> 3002</span>  local_push(0);</div><div class="line"><a name="l03003"></a><span class="lineno"> 3003</span>  }</div><div class="line"><a name="l03004"></a><span class="lineno"> 3004</span>  f_arglist</div><div class="line"><a name="l03005"></a><span class="lineno"> 3005</span>  bodystmt</div><div class="line"><a name="l03006"></a><span class="lineno"> 3006</span>  k_end</div><div class="line"><a name="l03007"></a><span class="lineno"> 3007</span>  {</div><div class="line"><a name="l03008"></a><span class="lineno"> 3008</span> #if 0</div><div class="line"><a name="l03009"></a><span class="lineno"> 3009</span>  NODE *body = remove_begin($5);</div><div class="line"><a name="l03010"></a><span class="lineno"> 3010</span>  reduce_nodes(&body);</div><div class="line"><a name="l03011"></a><span class="lineno"> 3011</span>  $$ = NEW_DEFN($2, $4, body, NOEX_PRIVATE);</div><div class="line"><a name="l03012"></a><span class="lineno"> 3012</span>  nd_set_line($$, $<num>1);</div><div class="line"><a name="l03013"></a><span class="lineno"> 3013</span> #endif</div><div class="line"><a name="l03014"></a><span class="lineno"> 3014</span>  $$ = dispatch3(def, $2, $4, $5);</div><div class="line"><a name="l03015"></a><span class="lineno"> 3015</span> </div><div class="line"><a name="l03016"></a><span class="lineno"> 3016</span>  local_pop();</div><div class="line"><a name="l03017"></a><span class="lineno"> 3017</span>  in_def--;</div><div class="line"><a name="l03018"></a><span class="lineno"> 3018</span>  cur_mid = $<id>3;</div><div class="line"><a name="l03019"></a><span class="lineno"> 3019</span>  }</div><div class="line"><a name="l03020"></a><span class="lineno"> 3020</span>  | k_def singleton dot_or_colon {lex_state = EXPR_FNAME;} fname</div><div class="line"><a name="l03021"></a><span class="lineno"> 3021</span>  {</div><div class="line"><a name="l03022"></a><span class="lineno"> 3022</span>  in_single++;</div><div class="line"><a name="l03023"></a><span class="lineno"> 3023</span>  lex_state = EXPR_ENDFN; /* force for args */</div><div class="line"><a name="l03024"></a><span class="lineno"> 3024</span>  local_push(0);</div><div class="line"><a name="l03025"></a><span class="lineno"> 3025</span>  }</div><div class="line"><a name="l03026"></a><span class="lineno"> 3026</span>  f_arglist</div><div class="line"><a name="l03027"></a><span class="lineno"> 3027</span>  bodystmt</div><div class="line"><a name="l03028"></a><span class="lineno"> 3028</span>  k_end</div><div class="line"><a name="l03029"></a><span class="lineno"> 3029</span>  {</div><div class="line"><a name="l03030"></a><span class="lineno"> 3030</span> #if 0</div><div class="line"><a name="l03031"></a><span class="lineno"> 3031</span>  NODE *body = remove_begin($8);</div><div class="line"><a name="l03032"></a><span class="lineno"> 3032</span>  reduce_nodes(&body);</div><div class="line"><a name="l03033"></a><span class="lineno"> 3033</span>  $$ = NEW_DEFS($2, $5, $7, body);</div><div class="line"><a name="l03034"></a><span class="lineno"> 3034</span>  nd_set_line($$, $<num>1);</div><div class="line"><a name="l03035"></a><span class="lineno"> 3035</span> #endif</div><div class="line"><a name="l03036"></a><span class="lineno"> 3036</span>  $$ = dispatch5(defs, $2, $3, $5, $7, $8);</div><div class="line"><a name="l03037"></a><span class="lineno"> 3037</span> </div><div class="line"><a name="l03038"></a><span class="lineno"> 3038</span>  local_pop();</div><div class="line"><a name="l03039"></a><span class="lineno"> 3039</span>  in_single--;</div><div class="line"><a name="l03040"></a><span class="lineno"> 3040</span>  }</div><div class="line"><a name="l03041"></a><span class="lineno"> 3041</span>  | keyword_break</div><div class="line"><a name="l03042"></a><span class="lineno"> 3042</span>  {</div><div class="line"><a name="l03043"></a><span class="lineno"> 3043</span> #if 0</div><div class="line"><a name="l03044"></a><span class="lineno"> 3044</span>  $$ = NEW_BREAK(0);</div><div class="line"><a name="l03045"></a><span class="lineno"> 3045</span> #endif</div><div class="line"><a name="l03046"></a><span class="lineno"> 3046</span>  $$ = dispatch1(break, arg_new());</div><div class="line"><a name="l03047"></a><span class="lineno"> 3047</span> </div><div class="line"><a name="l03048"></a><span class="lineno"> 3048</span>  }</div><div class="line"><a name="l03049"></a><span class="lineno"> 3049</span>  | keyword_next</div><div class="line"><a name="l03050"></a><span class="lineno"> 3050</span>  {</div><div class="line"><a name="l03051"></a><span class="lineno"> 3051</span> #if 0</div><div class="line"><a name="l03052"></a><span class="lineno"> 3052</span>  $$ = NEW_NEXT(0);</div><div class="line"><a name="l03053"></a><span class="lineno"> 3053</span> #endif</div><div class="line"><a name="l03054"></a><span class="lineno"> 3054</span>  $$ = dispatch1(next, arg_new());</div><div class="line"><a name="l03055"></a><span class="lineno"> 3055</span> </div><div class="line"><a name="l03056"></a><span class="lineno"> 3056</span>  }</div><div class="line"><a name="l03057"></a><span class="lineno"> 3057</span>  | keyword_redo</div><div class="line"><a name="l03058"></a><span class="lineno"> 3058</span>  {</div><div class="line"><a name="l03059"></a><span class="lineno"> 3059</span> #if 0</div><div class="line"><a name="l03060"></a><span class="lineno"> 3060</span>  $$ = NEW_REDO();</div><div class="line"><a name="l03061"></a><span class="lineno"> 3061</span> #endif</div><div class="line"><a name="l03062"></a><span class="lineno"> 3062</span>  $$ = dispatch0(redo);</div><div class="line"><a name="l03063"></a><span class="lineno"> 3063</span> </div><div class="line"><a name="l03064"></a><span class="lineno"> 3064</span>  }</div><div class="line"><a name="l03065"></a><span class="lineno"> 3065</span>  | keyword_retry</div><div class="line"><a name="l03066"></a><span class="lineno"> 3066</span>  {</div><div class="line"><a name="l03067"></a><span class="lineno"> 3067</span> #if 0</div><div class="line"><a name="l03068"></a><span class="lineno"> 3068</span>  $$ = NEW_RETRY();</div><div class="line"><a name="l03069"></a><span class="lineno"> 3069</span> #endif</div><div class="line"><a name="l03070"></a><span class="lineno"> 3070</span>  $$ = dispatch0(retry);</div><div class="line"><a name="l03071"></a><span class="lineno"> 3071</span> </div><div class="line"><a name="l03072"></a><span class="lineno"> 3072</span>  }</div><div class="line"><a name="l03073"></a><span class="lineno"> 3073</span>  ;</div><div class="line"><a name="l03074"></a><span class="lineno"> 3074</span> </div><div class="line"><a name="l03075"></a><span class="lineno"> 3075</span> primary_value : primary</div><div class="line"><a name="l03076"></a><span class="lineno"> 3076</span>  {</div><div class="line"><a name="l03077"></a><span class="lineno"> 3077</span> #if 0</div><div class="line"><a name="l03078"></a><span class="lineno"> 3078</span>  value_expr($1);</div><div class="line"><a name="l03079"></a><span class="lineno"> 3079</span>  $$ = $1;</div><div class="line"><a name="l03080"></a><span class="lineno"> 3080</span>  if (!$$) $$ = NEW_NIL();</div><div class="line"><a name="l03081"></a><span class="lineno"> 3081</span> #endif</div><div class="line"><a name="l03082"></a><span class="lineno"> 3082</span>  $$ = $1;</div><div class="line"><a name="l03083"></a><span class="lineno"> 3083</span> </div><div class="line"><a name="l03084"></a><span class="lineno"> 3084</span>  }</div><div class="line"><a name="l03085"></a><span class="lineno"> 3085</span>  ;</div><div class="line"><a name="l03086"></a><span class="lineno"> 3086</span> </div><div class="line"><a name="l03087"></a><span class="lineno"> 3087</span> k_begin : keyword_begin</div><div class="line"><a name="l03088"></a><span class="lineno"> 3088</span>  {</div><div class="line"><a name="l03089"></a><span class="lineno"> 3089</span>  token_info_push("begin");</div><div class="line"><a name="l03090"></a><span class="lineno"> 3090</span>  }</div><div class="line"><a name="l03091"></a><span class="lineno"> 3091</span>  ;</div><div class="line"><a name="l03092"></a><span class="lineno"> 3092</span> </div><div class="line"><a name="l03093"></a><span class="lineno"> 3093</span> k_if : keyword_if</div><div class="line"><a name="l03094"></a><span class="lineno"> 3094</span>  {</div><div class="line"><a name="l03095"></a><span class="lineno"> 3095</span>  token_info_push("if");</div><div class="line"><a name="l03096"></a><span class="lineno"> 3096</span>  }</div><div class="line"><a name="l03097"></a><span class="lineno"> 3097</span>  ;</div><div class="line"><a name="l03098"></a><span class="lineno"> 3098</span> </div><div class="line"><a name="l03099"></a><span class="lineno"> 3099</span> k_unless : keyword_unless</div><div class="line"><a name="l03100"></a><span class="lineno"> 3100</span>  {</div><div class="line"><a name="l03101"></a><span class="lineno"> 3101</span>  token_info_push("unless");</div><div class="line"><a name="l03102"></a><span class="lineno"> 3102</span>  }</div><div class="line"><a name="l03103"></a><span class="lineno"> 3103</span>  ;</div><div class="line"><a name="l03104"></a><span class="lineno"> 3104</span> </div><div class="line"><a name="l03105"></a><span class="lineno"> 3105</span> k_while : keyword_while</div><div class="line"><a name="l03106"></a><span class="lineno"> 3106</span>  {</div><div class="line"><a name="l03107"></a><span class="lineno"> 3107</span>  token_info_push("while");</div><div class="line"><a name="l03108"></a><span class="lineno"> 3108</span>  }</div><div class="line"><a name="l03109"></a><span class="lineno"> 3109</span>  ;</div><div class="line"><a name="l03110"></a><span class="lineno"> 3110</span> </div><div class="line"><a name="l03111"></a><span class="lineno"> 3111</span> k_until : keyword_until</div><div class="line"><a name="l03112"></a><span class="lineno"> 3112</span>  {</div><div class="line"><a name="l03113"></a><span class="lineno"> 3113</span>  token_info_push("until");</div><div class="line"><a name="l03114"></a><span class="lineno"> 3114</span>  }</div><div class="line"><a name="l03115"></a><span class="lineno"> 3115</span>  ;</div><div class="line"><a name="l03116"></a><span class="lineno"> 3116</span> </div><div class="line"><a name="l03117"></a><span class="lineno"> 3117</span> k_case : keyword_case</div><div class="line"><a name="l03118"></a><span class="lineno"> 3118</span>  {</div><div class="line"><a name="l03119"></a><span class="lineno"> 3119</span>  token_info_push("case");</div><div class="line"><a name="l03120"></a><span class="lineno"> 3120</span>  }</div><div class="line"><a name="l03121"></a><span class="lineno"> 3121</span>  ;</div><div class="line"><a name="l03122"></a><span class="lineno"> 3122</span> </div><div class="line"><a name="l03123"></a><span class="lineno"> 3123</span> k_for : keyword_for</div><div class="line"><a name="l03124"></a><span class="lineno"> 3124</span>  {</div><div class="line"><a name="l03125"></a><span class="lineno"> 3125</span>  token_info_push("for");</div><div class="line"><a name="l03126"></a><span class="lineno"> 3126</span>  }</div><div class="line"><a name="l03127"></a><span class="lineno"> 3127</span>  ;</div><div class="line"><a name="l03128"></a><span class="lineno"> 3128</span> </div><div class="line"><a name="l03129"></a><span class="lineno"> 3129</span> k_class : keyword_class</div><div class="line"><a name="l03130"></a><span class="lineno"> 3130</span>  {</div><div class="line"><a name="l03131"></a><span class="lineno"> 3131</span>  token_info_push("class");</div><div class="line"><a name="l03132"></a><span class="lineno"> 3132</span>  }</div><div class="line"><a name="l03133"></a><span class="lineno"> 3133</span>  ;</div><div class="line"><a name="l03134"></a><span class="lineno"> 3134</span> </div><div class="line"><a name="l03135"></a><span class="lineno"> 3135</span> k_module : keyword_module</div><div class="line"><a name="l03136"></a><span class="lineno"> 3136</span>  {</div><div class="line"><a name="l03137"></a><span class="lineno"> 3137</span>  token_info_push("module");</div><div class="line"><a name="l03138"></a><span class="lineno"> 3138</span>  }</div><div class="line"><a name="l03139"></a><span class="lineno"> 3139</span>  ;</div><div class="line"><a name="l03140"></a><span class="lineno"> 3140</span> </div><div class="line"><a name="l03141"></a><span class="lineno"> 3141</span> k_def : keyword_def</div><div class="line"><a name="l03142"></a><span class="lineno"> 3142</span>  {</div><div class="line"><a name="l03143"></a><span class="lineno"> 3143</span>  token_info_push("def");</div><div class="line"><a name="l03144"></a><span class="lineno"> 3144</span> #if 0</div><div class="line"><a name="l03145"></a><span class="lineno"> 3145</span>  $<num>$ = ruby_sourceline;</div><div class="line"><a name="l03146"></a><span class="lineno"> 3146</span> #endif</div><div class="line"><a name="l03147"></a><span class="lineno"> 3147</span> </div><div class="line"><a name="l03148"></a><span class="lineno"> 3148</span>  }</div><div class="line"><a name="l03149"></a><span class="lineno"> 3149</span>  ;</div><div class="line"><a name="l03150"></a><span class="lineno"> 3150</span> </div><div class="line"><a name="l03151"></a><span class="lineno"> 3151</span> k_end : keyword_end</div><div class="line"><a name="l03152"></a><span class="lineno"> 3152</span>  {</div><div class="line"><a name="l03153"></a><span class="lineno"> 3153</span>  token_info_pop("end");</div><div class="line"><a name="l03154"></a><span class="lineno"> 3154</span>  }</div><div class="line"><a name="l03155"></a><span class="lineno"> 3155</span>  ;</div><div class="line"><a name="l03156"></a><span class="lineno"> 3156</span> </div><div class="line"><a name="l03157"></a><span class="lineno"> 3157</span> then : term</div><div class="line"><a name="l03158"></a><span class="lineno"> 3158</span> /*</div><div class="line"><a name="l03159"></a><span class="lineno"> 3159</span> */</div><div class="line"><a name="l03160"></a><span class="lineno"> 3160</span>  { $$ = Qnil; }</div><div class="line"><a name="l03161"></a><span class="lineno"> 3161</span> </div><div class="line"><a name="l03162"></a><span class="lineno"> 3162</span>  | keyword_then</div><div class="line"><a name="l03163"></a><span class="lineno"> 3163</span>  | term keyword_then</div><div class="line"><a name="l03164"></a><span class="lineno"> 3164</span> /*</div><div class="line"><a name="l03165"></a><span class="lineno"> 3165</span> */</div><div class="line"><a name="l03166"></a><span class="lineno"> 3166</span>  { $$ = $2; }</div><div class="line"><a name="l03167"></a><span class="lineno"> 3167</span> </div><div class="line"><a name="l03168"></a><span class="lineno"> 3168</span>  ;</div><div class="line"><a name="l03169"></a><span class="lineno"> 3169</span> </div><div class="line"><a name="l03170"></a><span class="lineno"> 3170</span> do : term</div><div class="line"><a name="l03171"></a><span class="lineno"> 3171</span> /*</div><div class="line"><a name="l03172"></a><span class="lineno"> 3172</span> */</div><div class="line"><a name="l03173"></a><span class="lineno"> 3173</span>  { $$ = Qnil; }</div><div class="line"><a name="l03174"></a><span class="lineno"> 3174</span> </div><div class="line"><a name="l03175"></a><span class="lineno"> 3175</span>  | keyword_do_cond</div><div class="line"><a name="l03176"></a><span class="lineno"> 3176</span>  ;</div><div class="line"><a name="l03177"></a><span class="lineno"> 3177</span> </div><div class="line"><a name="l03178"></a><span class="lineno"> 3178</span> if_tail : opt_else</div><div class="line"><a name="l03179"></a><span class="lineno"> 3179</span>  | keyword_elsif expr_value then</div><div class="line"><a name="l03180"></a><span class="lineno"> 3180</span>  compstmt</div><div class="line"><a name="l03181"></a><span class="lineno"> 3181</span>  if_tail</div><div class="line"><a name="l03182"></a><span class="lineno"> 3182</span>  {</div><div class="line"><a name="l03183"></a><span class="lineno"> 3183</span> #if 0</div><div class="line"><a name="l03184"></a><span class="lineno"> 3184</span>  $$ = NEW_IF(cond($2), $4, $5);</div><div class="line"><a name="l03185"></a><span class="lineno"> 3185</span>  fixpos($$, $2);</div><div class="line"><a name="l03186"></a><span class="lineno"> 3186</span> #endif</div><div class="line"><a name="l03187"></a><span class="lineno"> 3187</span>  $$ = dispatch3(elsif, $2, $4, escape_Qundef($5));</div><div class="line"><a name="l03188"></a><span class="lineno"> 3188</span> </div><div class="line"><a name="l03189"></a><span class="lineno"> 3189</span>  }</div><div class="line"><a name="l03190"></a><span class="lineno"> 3190</span>  ;</div><div class="line"><a name="l03191"></a><span class="lineno"> 3191</span> </div><div class="line"><a name="l03192"></a><span class="lineno"> 3192</span> opt_else : none</div><div class="line"><a name="l03193"></a><span class="lineno"> 3193</span>  | keyword_else compstmt</div><div class="line"><a name="l03194"></a><span class="lineno"> 3194</span>  {</div><div class="line"><a name="l03195"></a><span class="lineno"> 3195</span> #if 0</div><div class="line"><a name="l03196"></a><span class="lineno"> 3196</span>  $$ = $2;</div><div class="line"><a name="l03197"></a><span class="lineno"> 3197</span> #endif</div><div class="line"><a name="l03198"></a><span class="lineno"> 3198</span>  $$ = dispatch1(else, $2);</div><div class="line"><a name="l03199"></a><span class="lineno"> 3199</span> </div><div class="line"><a name="l03200"></a><span class="lineno"> 3200</span>  }</div><div class="line"><a name="l03201"></a><span class="lineno"> 3201</span>  ;</div><div class="line"><a name="l03202"></a><span class="lineno"> 3202</span> </div><div class="line"><a name="l03203"></a><span class="lineno"> 3203</span> for_var : lhs</div><div class="line"><a name="l03204"></a><span class="lineno"> 3204</span>  | mlhs</div><div class="line"><a name="l03205"></a><span class="lineno"> 3205</span>  ;</div><div class="line"><a name="l03206"></a><span class="lineno"> 3206</span> </div><div class="line"><a name="l03207"></a><span class="lineno"> 3207</span> f_marg : f_norm_arg</div><div class="line"><a name="l03208"></a><span class="lineno"> 3208</span>  {</div><div class="line"><a name="l03209"></a><span class="lineno"> 3209</span>  $$ = assignable($1, 0);</div><div class="line"><a name="l03210"></a><span class="lineno"> 3210</span> #if 0</div><div class="line"><a name="l03211"></a><span class="lineno"> 3211</span> #endif</div><div class="line"><a name="l03212"></a><span class="lineno"> 3212</span>  $$ = dispatch1(mlhs_paren, $$);</div><div class="line"><a name="l03213"></a><span class="lineno"> 3213</span> </div><div class="line"><a name="l03214"></a><span class="lineno"> 3214</span>  }</div><div class="line"><a name="l03215"></a><span class="lineno"> 3215</span>  | tLPAREN f_margs rparen</div><div class="line"><a name="l03216"></a><span class="lineno"> 3216</span>  {</div><div class="line"><a name="l03217"></a><span class="lineno"> 3217</span> #if 0</div><div class="line"><a name="l03218"></a><span class="lineno"> 3218</span>  $$ = $2;</div><div class="line"><a name="l03219"></a><span class="lineno"> 3219</span> #endif</div><div class="line"><a name="l03220"></a><span class="lineno"> 3220</span>  $$ = dispatch1(mlhs_paren, $2);</div><div class="line"><a name="l03221"></a><span class="lineno"> 3221</span> </div><div class="line"><a name="l03222"></a><span class="lineno"> 3222</span>  }</div><div class="line"><a name="l03223"></a><span class="lineno"> 3223</span>  ;</div><div class="line"><a name="l03224"></a><span class="lineno"> 3224</span> </div><div class="line"><a name="l03225"></a><span class="lineno"> 3225</span> f_marg_list : f_marg</div><div class="line"><a name="l03226"></a><span class="lineno"> 3226</span>  {</div><div class="line"><a name="l03227"></a><span class="lineno"> 3227</span> #if 0</div><div class="line"><a name="l03228"></a><span class="lineno"> 3228</span>  $$ = NEW_LIST($1);</div><div class="line"><a name="l03229"></a><span class="lineno"> 3229</span> #endif</div><div class="line"><a name="l03230"></a><span class="lineno"> 3230</span>  $$ = mlhs_add(mlhs_new(), $1);</div><div class="line"><a name="l03231"></a><span class="lineno"> 3231</span> </div><div class="line"><a name="l03232"></a><span class="lineno"> 3232</span>  }</div><div class="line"><a name="l03233"></a><span class="lineno"> 3233</span>  | f_marg_list ',' f_marg</div><div class="line"><a name="l03234"></a><span class="lineno"> 3234</span>  {</div><div class="line"><a name="l03235"></a><span class="lineno"> 3235</span> #if 0</div><div class="line"><a name="l03236"></a><span class="lineno"> 3236</span>  $$ = list_append($1, $3);</div><div class="line"><a name="l03237"></a><span class="lineno"> 3237</span> #endif</div><div class="line"><a name="l03238"></a><span class="lineno"> 3238</span>  $$ = mlhs_add($1, $3);</div><div class="line"><a name="l03239"></a><span class="lineno"> 3239</span> </div><div class="line"><a name="l03240"></a><span class="lineno"> 3240</span>  }</div><div class="line"><a name="l03241"></a><span class="lineno"> 3241</span>  ;</div><div class="line"><a name="l03242"></a><span class="lineno"> 3242</span> </div><div class="line"><a name="l03243"></a><span class="lineno"> 3243</span> f_margs : f_marg_list</div><div class="line"><a name="l03244"></a><span class="lineno"> 3244</span>  {</div><div class="line"><a name="l03245"></a><span class="lineno"> 3245</span> #if 0</div><div class="line"><a name="l03246"></a><span class="lineno"> 3246</span>  $$ = NEW_MASGN($1, 0);</div><div class="line"><a name="l03247"></a><span class="lineno"> 3247</span> #endif</div><div class="line"><a name="l03248"></a><span class="lineno"> 3248</span>  $$ = $1;</div><div class="line"><a name="l03249"></a><span class="lineno"> 3249</span> </div><div class="line"><a name="l03250"></a><span class="lineno"> 3250</span>  }</div><div class="line"><a name="l03251"></a><span class="lineno"> 3251</span>  | f_marg_list ',' tSTAR f_norm_arg</div><div class="line"><a name="l03252"></a><span class="lineno"> 3252</span>  {</div><div class="line"><a name="l03253"></a><span class="lineno"> 3253</span>  $$ = assignable($4, 0);</div><div class="line"><a name="l03254"></a><span class="lineno"> 3254</span> #if 0</div><div class="line"><a name="l03255"></a><span class="lineno"> 3255</span>  $$ = NEW_MASGN($1, $$);</div><div class="line"><a name="l03256"></a><span class="lineno"> 3256</span> #endif</div><div class="line"><a name="l03257"></a><span class="lineno"> 3257</span>  $$ = mlhs_add_star($1, $$);</div><div class="line"><a name="l03258"></a><span class="lineno"> 3258</span> </div><div class="line"><a name="l03259"></a><span class="lineno"> 3259</span>  }</div><div class="line"><a name="l03260"></a><span class="lineno"> 3260</span>  | f_marg_list ',' tSTAR f_norm_arg ',' f_marg_list</div><div class="line"><a name="l03261"></a><span class="lineno"> 3261</span>  {</div><div class="line"><a name="l03262"></a><span class="lineno"> 3262</span>  $$ = assignable($4, 0);</div><div class="line"><a name="l03263"></a><span class="lineno"> 3263</span> #if 0</div><div class="line"><a name="l03264"></a><span class="lineno"> 3264</span>  $$ = NEW_MASGN($1, NEW_POSTARG($$, $6));</div><div class="line"><a name="l03265"></a><span class="lineno"> 3265</span> #endif</div><div class="line"><a name="l03266"></a><span class="lineno"> 3266</span>  $$ = mlhs_add_star($1, $$);</div><div class="line"><a name="l03267"></a><span class="lineno"> 3267</span> </div><div class="line"><a name="l03268"></a><span class="lineno"> 3268</span>  }</div><div class="line"><a name="l03269"></a><span class="lineno"> 3269</span>  | f_marg_list ',' tSTAR</div><div class="line"><a name="l03270"></a><span class="lineno"> 3270</span>  {</div><div class="line"><a name="l03271"></a><span class="lineno"> 3271</span> #if 0</div><div class="line"><a name="l03272"></a><span class="lineno"> 3272</span>  $$ = NEW_MASGN($1, -1);</div><div class="line"><a name="l03273"></a><span class="lineno"> 3273</span> #endif</div><div class="line"><a name="l03274"></a><span class="lineno"> 3274</span>  $$ = mlhs_add_star($1, Qnil);</div><div class="line"><a name="l03275"></a><span class="lineno"> 3275</span> </div><div class="line"><a name="l03276"></a><span class="lineno"> 3276</span>  }</div><div class="line"><a name="l03277"></a><span class="lineno"> 3277</span>  | f_marg_list ',' tSTAR ',' f_marg_list</div><div class="line"><a name="l03278"></a><span class="lineno"> 3278</span>  {</div><div class="line"><a name="l03279"></a><span class="lineno"> 3279</span> #if 0</div><div class="line"><a name="l03280"></a><span class="lineno"> 3280</span>  $$ = NEW_MASGN($1, NEW_POSTARG(-1, $5));</div><div class="line"><a name="l03281"></a><span class="lineno"> 3281</span> #endif</div><div class="line"><a name="l03282"></a><span class="lineno"> 3282</span>  $$ = mlhs_add_star($1, $5);</div><div class="line"><a name="l03283"></a><span class="lineno"> 3283</span> </div><div class="line"><a name="l03284"></a><span class="lineno"> 3284</span>  }</div><div class="line"><a name="l03285"></a><span class="lineno"> 3285</span>  | tSTAR f_norm_arg</div><div class="line"><a name="l03286"></a><span class="lineno"> 3286</span>  {</div><div class="line"><a name="l03287"></a><span class="lineno"> 3287</span>  $$ = assignable($2, 0);</div><div class="line"><a name="l03288"></a><span class="lineno"> 3288</span> #if 0</div><div class="line"><a name="l03289"></a><span class="lineno"> 3289</span>  $$ = NEW_MASGN(0, $$);</div><div class="line"><a name="l03290"></a><span class="lineno"> 3290</span> #endif</div><div class="line"><a name="l03291"></a><span class="lineno"> 3291</span>  $$ = mlhs_add_star(mlhs_new(), $$);</div><div class="line"><a name="l03292"></a><span class="lineno"> 3292</span> </div><div class="line"><a name="l03293"></a><span class="lineno"> 3293</span>  }</div><div class="line"><a name="l03294"></a><span class="lineno"> 3294</span>  | tSTAR f_norm_arg ',' f_marg_list</div><div class="line"><a name="l03295"></a><span class="lineno"> 3295</span>  {</div><div class="line"><a name="l03296"></a><span class="lineno"> 3296</span>  $$ = assignable($2, 0);</div><div class="line"><a name="l03297"></a><span class="lineno"> 3297</span> #if 0</div><div class="line"><a name="l03298"></a><span class="lineno"> 3298</span>  $$ = NEW_MASGN(0, NEW_POSTARG($$, $4));</div><div class="line"><a name="l03299"></a><span class="lineno"> 3299</span> #endif</div><div class="line"><a name="l03300"></a><span class="lineno"> 3300</span>  #if 0</div><div class="line"><a name="l03301"></a><span class="lineno"> 3301</span>  TODO: Check me</div><div class="line"><a name="l03302"></a><span class="lineno"> 3302</span>  #endif</div><div class="line"><a name="l03303"></a><span class="lineno"> 3303</span>  $$ = mlhs_add_star($$, $4);</div><div class="line"><a name="l03304"></a><span class="lineno"> 3304</span> </div><div class="line"><a name="l03305"></a><span class="lineno"> 3305</span>  }</div><div class="line"><a name="l03306"></a><span class="lineno"> 3306</span>  | tSTAR</div><div class="line"><a name="l03307"></a><span class="lineno"> 3307</span>  {</div><div class="line"><a name="l03308"></a><span class="lineno"> 3308</span> #if 0</div><div class="line"><a name="l03309"></a><span class="lineno"> 3309</span>  $$ = NEW_MASGN(0, -1);</div><div class="line"><a name="l03310"></a><span class="lineno"> 3310</span> #endif</div><div class="line"><a name="l03311"></a><span class="lineno"> 3311</span>  $$ = mlhs_add_star(mlhs_new(), Qnil);</div><div class="line"><a name="l03312"></a><span class="lineno"> 3312</span> </div><div class="line"><a name="l03313"></a><span class="lineno"> 3313</span>  }</div><div class="line"><a name="l03314"></a><span class="lineno"> 3314</span>  | tSTAR ',' f_marg_list</div><div class="line"><a name="l03315"></a><span class="lineno"> 3315</span>  {</div><div class="line"><a name="l03316"></a><span class="lineno"> 3316</span> #if 0</div><div class="line"><a name="l03317"></a><span class="lineno"> 3317</span>  $$ = NEW_MASGN(0, NEW_POSTARG(-1, $3));</div><div class="line"><a name="l03318"></a><span class="lineno"> 3318</span> #endif</div><div class="line"><a name="l03319"></a><span class="lineno"> 3319</span>  $$ = mlhs_add_star(mlhs_new(), Qnil);</div><div class="line"><a name="l03320"></a><span class="lineno"> 3320</span> </div><div class="line"><a name="l03321"></a><span class="lineno"> 3321</span>  }</div><div class="line"><a name="l03322"></a><span class="lineno"> 3322</span>  ;</div><div class="line"><a name="l03323"></a><span class="lineno"> 3323</span> </div><div class="line"><a name="l03324"></a><span class="lineno"> 3324</span> block_param : f_arg ',' f_block_optarg ',' f_rest_arg opt_f_block_arg</div><div class="line"><a name="l03325"></a><span class="lineno"> 3325</span>  {</div><div class="line"><a name="l03326"></a><span class="lineno"> 3326</span> #if 0</div><div class="line"><a name="l03327"></a><span class="lineno"> 3327</span>  $$ = new_args($1, $3, $5, 0, $6);</div><div class="line"><a name="l03328"></a><span class="lineno"> 3328</span> #endif</div><div class="line"><a name="l03329"></a><span class="lineno"> 3329</span>  $$ = params_new($1, $3, $5, Qnil, escape_Qundef($6));</div><div class="line"><a name="l03330"></a><span class="lineno"> 3330</span> </div><div class="line"><a name="l03331"></a><span class="lineno"> 3331</span>  }</div><div class="line"><a name="l03332"></a><span class="lineno"> 3332</span>  | f_arg ',' f_block_optarg ',' f_rest_arg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l03333"></a><span class="lineno"> 3333</span>  {</div><div class="line"><a name="l03334"></a><span class="lineno"> 3334</span> #if 0</div><div class="line"><a name="l03335"></a><span class="lineno"> 3335</span>  $$ = new_args($1, $3, $5, $7, $8);</div><div class="line"><a name="l03336"></a><span class="lineno"> 3336</span> #endif</div><div class="line"><a name="l03337"></a><span class="lineno"> 3337</span>  $$ = params_new($1, $3, $5, $7, escape_Qundef($8));</div><div class="line"><a name="l03338"></a><span class="lineno"> 3338</span> </div><div class="line"><a name="l03339"></a><span class="lineno"> 3339</span>  }</div><div class="line"><a name="l03340"></a><span class="lineno"> 3340</span>  | f_arg ',' f_block_optarg opt_f_block_arg</div><div class="line"><a name="l03341"></a><span class="lineno"> 3341</span>  {</div><div class="line"><a name="l03342"></a><span class="lineno"> 3342</span> #if 0</div><div class="line"><a name="l03343"></a><span class="lineno"> 3343</span>  $$ = new_args($1, $3, 0, 0, $4);</div><div class="line"><a name="l03344"></a><span class="lineno"> 3344</span> #endif</div><div class="line"><a name="l03345"></a><span class="lineno"> 3345</span>  $$ = params_new($1, $3, Qnil, Qnil, escape_Qundef($4));</div><div class="line"><a name="l03346"></a><span class="lineno"> 3346</span> </div><div class="line"><a name="l03347"></a><span class="lineno"> 3347</span>  }</div><div class="line"><a name="l03348"></a><span class="lineno"> 3348</span>  | f_arg ',' f_block_optarg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l03349"></a><span class="lineno"> 3349</span>  {</div><div class="line"><a name="l03350"></a><span class="lineno"> 3350</span> #if 0</div><div class="line"><a name="l03351"></a><span class="lineno"> 3351</span>  $$ = new_args($1, $3, 0, $5, $6);</div><div class="line"><a name="l03352"></a><span class="lineno"> 3352</span> #endif</div><div class="line"><a name="l03353"></a><span class="lineno"> 3353</span>  $$ = params_new($1, $3, Qnil, $5, escape_Qundef($6));</div><div class="line"><a name="l03354"></a><span class="lineno"> 3354</span> </div><div class="line"><a name="l03355"></a><span class="lineno"> 3355</span>  }</div><div class="line"><a name="l03356"></a><span class="lineno"> 3356</span>  | f_arg ',' f_rest_arg opt_f_block_arg</div><div class="line"><a name="l03357"></a><span class="lineno"> 3357</span>  {</div><div class="line"><a name="l03358"></a><span class="lineno"> 3358</span> #if 0</div><div class="line"><a name="l03359"></a><span class="lineno"> 3359</span>  $$ = new_args($1, 0, $3, 0, $4);</div><div class="line"><a name="l03360"></a><span class="lineno"> 3360</span> #endif</div><div class="line"><a name="l03361"></a><span class="lineno"> 3361</span>  $$ = params_new($1, Qnil, $3, Qnil, escape_Qundef($4));</div><div class="line"><a name="l03362"></a><span class="lineno"> 3362</span> </div><div class="line"><a name="l03363"></a><span class="lineno"> 3363</span>  }</div><div class="line"><a name="l03364"></a><span class="lineno"> 3364</span>  | f_arg ','</div><div class="line"><a name="l03365"></a><span class="lineno"> 3365</span>  {</div><div class="line"><a name="l03366"></a><span class="lineno"> 3366</span> #if 0</div><div class="line"><a name="l03367"></a><span class="lineno"> 3367</span>  $$ = new_args($1, 0, 1, 0, 0);</div><div class="line"><a name="l03368"></a><span class="lineno"> 3368</span> #endif</div><div class="line"><a name="l03369"></a><span class="lineno"> 3369</span>  $$ = params_new($1, Qnil, Qnil, Qnil, Qnil);</div><div class="line"><a name="l03370"></a><span class="lineno"> 3370</span>  dispatch1(excessed_comma, $$);</div><div class="line"><a name="l03371"></a><span class="lineno"> 3371</span> </div><div class="line"><a name="l03372"></a><span class="lineno"> 3372</span>  }</div><div class="line"><a name="l03373"></a><span class="lineno"> 3373</span>  | f_arg ',' f_rest_arg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l03374"></a><span class="lineno"> 3374</span>  {</div><div class="line"><a name="l03375"></a><span class="lineno"> 3375</span> #if 0</div><div class="line"><a name="l03376"></a><span class="lineno"> 3376</span>  $$ = new_args($1, 0, $3, $5, $6);</div><div class="line"><a name="l03377"></a><span class="lineno"> 3377</span> #endif</div><div class="line"><a name="l03378"></a><span class="lineno"> 3378</span>  $$ = params_new($1, Qnil, $3, $5, escape_Qundef($6));</div><div class="line"><a name="l03379"></a><span class="lineno"> 3379</span> </div><div class="line"><a name="l03380"></a><span class="lineno"> 3380</span>  }</div><div class="line"><a name="l03381"></a><span class="lineno"> 3381</span>  | f_arg opt_f_block_arg</div><div class="line"><a name="l03382"></a><span class="lineno"> 3382</span>  {</div><div class="line"><a name="l03383"></a><span class="lineno"> 3383</span> #if 0</div><div class="line"><a name="l03384"></a><span class="lineno"> 3384</span>  $$ = new_args($1, 0, 0, 0, $2);</div><div class="line"><a name="l03385"></a><span class="lineno"> 3385</span> #endif</div><div class="line"><a name="l03386"></a><span class="lineno"> 3386</span>  $$ = params_new($1, Qnil,Qnil, Qnil, escape_Qundef($2));</div><div class="line"><a name="l03387"></a><span class="lineno"> 3387</span> </div><div class="line"><a name="l03388"></a><span class="lineno"> 3388</span>  }</div><div class="line"><a name="l03389"></a><span class="lineno"> 3389</span>  | f_block_optarg ',' f_rest_arg opt_f_block_arg</div><div class="line"><a name="l03390"></a><span class="lineno"> 3390</span>  {</div><div class="line"><a name="l03391"></a><span class="lineno"> 3391</span> #if 0</div><div class="line"><a name="l03392"></a><span class="lineno"> 3392</span>  $$ = new_args(0, $1, $3, 0, $4);</div><div class="line"><a name="l03393"></a><span class="lineno"> 3393</span> #endif</div><div class="line"><a name="l03394"></a><span class="lineno"> 3394</span>  $$ = params_new(Qnil, $1, $3, Qnil, escape_Qundef($4));</div><div class="line"><a name="l03395"></a><span class="lineno"> 3395</span> </div><div class="line"><a name="l03396"></a><span class="lineno"> 3396</span>  }</div><div class="line"><a name="l03397"></a><span class="lineno"> 3397</span>  | f_block_optarg ',' f_rest_arg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l03398"></a><span class="lineno"> 3398</span>  {</div><div class="line"><a name="l03399"></a><span class="lineno"> 3399</span> #if 0</div><div class="line"><a name="l03400"></a><span class="lineno"> 3400</span>  $$ = new_args(0, $1, $3, $5, $6);</div><div class="line"><a name="l03401"></a><span class="lineno"> 3401</span> #endif</div><div class="line"><a name="l03402"></a><span class="lineno"> 3402</span>  $$ = params_new(Qnil, $1, $3, $5, escape_Qundef($6));</div><div class="line"><a name="l03403"></a><span class="lineno"> 3403</span> </div><div class="line"><a name="l03404"></a><span class="lineno"> 3404</span>  }</div><div class="line"><a name="l03405"></a><span class="lineno"> 3405</span>  | f_block_optarg opt_f_block_arg</div><div class="line"><a name="l03406"></a><span class="lineno"> 3406</span>  {</div><div class="line"><a name="l03407"></a><span class="lineno"> 3407</span> #if 0</div><div class="line"><a name="l03408"></a><span class="lineno"> 3408</span>  $$ = new_args(0, $1, 0, 0, $2);</div><div class="line"><a name="l03409"></a><span class="lineno"> 3409</span> #endif</div><div class="line"><a name="l03410"></a><span class="lineno"> 3410</span>  $$ = params_new(Qnil, $1, Qnil, Qnil,escape_Qundef($2));</div><div class="line"><a name="l03411"></a><span class="lineno"> 3411</span> </div><div class="line"><a name="l03412"></a><span class="lineno"> 3412</span>  }</div><div class="line"><a name="l03413"></a><span class="lineno"> 3413</span>  | f_block_optarg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l03414"></a><span class="lineno"> 3414</span>  {</div><div class="line"><a name="l03415"></a><span class="lineno"> 3415</span> #if 0</div><div class="line"><a name="l03416"></a><span class="lineno"> 3416</span>  $$ = new_args(0, $1, 0, $3, $4);</div><div class="line"><a name="l03417"></a><span class="lineno"> 3417</span> #endif</div><div class="line"><a name="l03418"></a><span class="lineno"> 3418</span>  $$ = params_new(Qnil, $1, Qnil, $3, escape_Qundef($4));</div><div class="line"><a name="l03419"></a><span class="lineno"> 3419</span> </div><div class="line"><a name="l03420"></a><span class="lineno"> 3420</span>  }</div><div class="line"><a name="l03421"></a><span class="lineno"> 3421</span>  | f_rest_arg opt_f_block_arg</div><div class="line"><a name="l03422"></a><span class="lineno"> 3422</span>  {</div><div class="line"><a name="l03423"></a><span class="lineno"> 3423</span> #if 0</div><div class="line"><a name="l03424"></a><span class="lineno"> 3424</span>  $$ = new_args(0, 0, $1, 0, $2);</div><div class="line"><a name="l03425"></a><span class="lineno"> 3425</span> #endif</div><div class="line"><a name="l03426"></a><span class="lineno"> 3426</span>  $$ = params_new(Qnil, Qnil, $1, Qnil, escape_Qundef($2));</div><div class="line"><a name="l03427"></a><span class="lineno"> 3427</span> </div><div class="line"><a name="l03428"></a><span class="lineno"> 3428</span>  }</div><div class="line"><a name="l03429"></a><span class="lineno"> 3429</span>  | f_rest_arg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l03430"></a><span class="lineno"> 3430</span>  {</div><div class="line"><a name="l03431"></a><span class="lineno"> 3431</span> #if 0</div><div class="line"><a name="l03432"></a><span class="lineno"> 3432</span>  $$ = new_args(0, 0, $1, $3, $4);</div><div class="line"><a name="l03433"></a><span class="lineno"> 3433</span> #endif</div><div class="line"><a name="l03434"></a><span class="lineno"> 3434</span>  $$ = params_new(Qnil, Qnil, $1, $3, escape_Qundef($4));</div><div class="line"><a name="l03435"></a><span class="lineno"> 3435</span> </div><div class="line"><a name="l03436"></a><span class="lineno"> 3436</span>  }</div><div class="line"><a name="l03437"></a><span class="lineno"> 3437</span>  | f_block_arg</div><div class="line"><a name="l03438"></a><span class="lineno"> 3438</span>  {</div><div class="line"><a name="l03439"></a><span class="lineno"> 3439</span> #if 0</div><div class="line"><a name="l03440"></a><span class="lineno"> 3440</span>  $$ = new_args(0, 0, 0, 0, $1);</div><div class="line"><a name="l03441"></a><span class="lineno"> 3441</span> #endif</div><div class="line"><a name="l03442"></a><span class="lineno"> 3442</span>  $$ = params_new(Qnil, Qnil, Qnil, Qnil, $1);</div><div class="line"><a name="l03443"></a><span class="lineno"> 3443</span> </div><div class="line"><a name="l03444"></a><span class="lineno"> 3444</span>  }</div><div class="line"><a name="l03445"></a><span class="lineno"> 3445</span>  ;</div><div class="line"><a name="l03446"></a><span class="lineno"> 3446</span> </div><div class="line"><a name="l03447"></a><span class="lineno"> 3447</span> opt_block_param : none</div><div class="line"><a name="l03448"></a><span class="lineno"> 3448</span>  | block_param_def</div><div class="line"><a name="l03449"></a><span class="lineno"> 3449</span>  {</div><div class="line"><a name="l03450"></a><span class="lineno"> 3450</span>  command_start = TRUE;</div><div class="line"><a name="l03451"></a><span class="lineno"> 3451</span>  }</div><div class="line"><a name="l03452"></a><span class="lineno"> 3452</span>  ;</div><div class="line"><a name="l03453"></a><span class="lineno"> 3453</span> </div><div class="line"><a name="l03454"></a><span class="lineno"> 3454</span> block_param_def : '|' opt_bv_decl '|'</div><div class="line"><a name="l03455"></a><span class="lineno"> 3455</span>  {</div><div class="line"><a name="l03456"></a><span class="lineno"> 3456</span> #if 0</div><div class="line"><a name="l03457"></a><span class="lineno"> 3457</span>  $$ = 0;</div><div class="line"><a name="l03458"></a><span class="lineno"> 3458</span> #endif</div><div class="line"><a name="l03459"></a><span class="lineno"> 3459</span>  $$ = blockvar_new(params_new(Qnil,Qnil,Qnil,Qnil,Qnil),</div><div class="line"><a name="l03460"></a><span class="lineno"> 3460</span>  escape_Qundef($2));</div><div class="line"><a name="l03461"></a><span class="lineno"> 3461</span> </div><div class="line"><a name="l03462"></a><span class="lineno"> 3462</span>  }</div><div class="line"><a name="l03463"></a><span class="lineno"> 3463</span>  | tOROP</div><div class="line"><a name="l03464"></a><span class="lineno"> 3464</span>  {</div><div class="line"><a name="l03465"></a><span class="lineno"> 3465</span> #if 0</div><div class="line"><a name="l03466"></a><span class="lineno"> 3466</span>  $$ = 0;</div><div class="line"><a name="l03467"></a><span class="lineno"> 3467</span> #endif</div><div class="line"><a name="l03468"></a><span class="lineno"> 3468</span>  $$ = blockvar_new(params_new(Qnil,Qnil,Qnil,Qnil,Qnil),</div><div class="line"><a name="l03469"></a><span class="lineno"> 3469</span>  Qnil);</div><div class="line"><a name="l03470"></a><span class="lineno"> 3470</span> </div><div class="line"><a name="l03471"></a><span class="lineno"> 3471</span>  }</div><div class="line"><a name="l03472"></a><span class="lineno"> 3472</span>  | '|' block_param opt_bv_decl '|'</div><div class="line"><a name="l03473"></a><span class="lineno"> 3473</span>  {</div><div class="line"><a name="l03474"></a><span class="lineno"> 3474</span> #if 0</div><div class="line"><a name="l03475"></a><span class="lineno"> 3475</span>  $$ = $2;</div><div class="line"><a name="l03476"></a><span class="lineno"> 3476</span> #endif</div><div class="line"><a name="l03477"></a><span class="lineno"> 3477</span>  $$ = blockvar_new(escape_Qundef($2), escape_Qundef($3));</div><div class="line"><a name="l03478"></a><span class="lineno"> 3478</span> </div><div class="line"><a name="l03479"></a><span class="lineno"> 3479</span>  }</div><div class="line"><a name="l03480"></a><span class="lineno"> 3480</span>  ;</div><div class="line"><a name="l03481"></a><span class="lineno"> 3481</span> </div><div class="line"><a name="l03482"></a><span class="lineno"> 3482</span> </div><div class="line"><a name="l03483"></a><span class="lineno"> 3483</span> opt_bv_decl : none</div><div class="line"><a name="l03484"></a><span class="lineno"> 3484</span>  | ';' bv_decls</div><div class="line"><a name="l03485"></a><span class="lineno"> 3485</span>  {</div><div class="line"><a name="l03486"></a><span class="lineno"> 3486</span> #if 0</div><div class="line"><a name="l03487"></a><span class="lineno"> 3487</span>  $$ = 0;</div><div class="line"><a name="l03488"></a><span class="lineno"> 3488</span> #endif</div><div class="line"><a name="l03489"></a><span class="lineno"> 3489</span>  $$ = $2;</div><div class="line"><a name="l03490"></a><span class="lineno"> 3490</span> </div><div class="line"><a name="l03491"></a><span class="lineno"> 3491</span>  }</div><div class="line"><a name="l03492"></a><span class="lineno"> 3492</span>  ;</div><div class="line"><a name="l03493"></a><span class="lineno"> 3493</span> </div><div class="line"><a name="l03494"></a><span class="lineno"> 3494</span> bv_decls : bvar</div><div class="line"><a name="l03495"></a><span class="lineno"> 3495</span> /*</div><div class="line"><a name="l03496"></a><span class="lineno"> 3496</span> */</div><div class="line"><a name="l03497"></a><span class="lineno"> 3497</span>  {</div><div class="line"><a name="l03498"></a><span class="lineno"> 3498</span>  $$ = rb_ary_new3(1, $1);</div><div class="line"><a name="l03499"></a><span class="lineno"> 3499</span>  }</div><div class="line"><a name="l03500"></a><span class="lineno"> 3500</span> </div><div class="line"><a name="l03501"></a><span class="lineno"> 3501</span>  | bv_decls ',' bvar</div><div class="line"><a name="l03502"></a><span class="lineno"> 3502</span> /*</div><div class="line"><a name="l03503"></a><span class="lineno"> 3503</span> */</div><div class="line"><a name="l03504"></a><span class="lineno"> 3504</span>  {</div><div class="line"><a name="l03505"></a><span class="lineno"> 3505</span>  rb_ary_push($$, $3);</div><div class="line"><a name="l03506"></a><span class="lineno"> 3506</span>  }</div><div class="line"><a name="l03507"></a><span class="lineno"> 3507</span> </div><div class="line"><a name="l03508"></a><span class="lineno"> 3508</span>  ;</div><div class="line"><a name="l03509"></a><span class="lineno"> 3509</span> </div><div class="line"><a name="l03510"></a><span class="lineno"> 3510</span> bvar : tIDENTIFIER</div><div class="line"><a name="l03511"></a><span class="lineno"> 3511</span>  {</div><div class="line"><a name="l03512"></a><span class="lineno"> 3512</span>  new_bv(get_id($1));</div><div class="line"><a name="l03513"></a><span class="lineno"> 3513</span> #if 0</div><div class="line"><a name="l03514"></a><span class="lineno"> 3514</span> #endif</div><div class="line"><a name="l03515"></a><span class="lineno"> 3515</span>  $$ = get_value($1);</div><div class="line"><a name="l03516"></a><span class="lineno"> 3516</span> </div><div class="line"><a name="l03517"></a><span class="lineno"> 3517</span>  }</div><div class="line"><a name="l03518"></a><span class="lineno"> 3518</span>  | f_bad_arg</div><div class="line"><a name="l03519"></a><span class="lineno"> 3519</span>  {</div><div class="line"><a name="l03520"></a><span class="lineno"> 3520</span>  $$ = 0;</div><div class="line"><a name="l03521"></a><span class="lineno"> 3521</span>  }</div><div class="line"><a name="l03522"></a><span class="lineno"> 3522</span>  ;</div><div class="line"><a name="l03523"></a><span class="lineno"> 3523</span> </div><div class="line"><a name="l03524"></a><span class="lineno"> 3524</span> lambda : {</div><div class="line"><a name="l03525"></a><span class="lineno"> 3525</span>  $<vars>$ = dyna_push();</div><div class="line"><a name="l03526"></a><span class="lineno"> 3526</span>  }</div><div class="line"><a name="l03527"></a><span class="lineno"> 3527</span>  {</div><div class="line"><a name="l03528"></a><span class="lineno"> 3528</span>  $<num>$ = lpar_beg;</div><div class="line"><a name="l03529"></a><span class="lineno"> 3529</span>  lpar_beg = ++paren_nest;</div><div class="line"><a name="l03530"></a><span class="lineno"> 3530</span>  }</div><div class="line"><a name="l03531"></a><span class="lineno"> 3531</span>  f_larglist</div><div class="line"><a name="l03532"></a><span class="lineno"> 3532</span>  lambda_body</div><div class="line"><a name="l03533"></a><span class="lineno"> 3533</span>  {</div><div class="line"><a name="l03534"></a><span class="lineno"> 3534</span>  lpar_beg = $<num>2;</div><div class="line"><a name="l03535"></a><span class="lineno"> 3535</span> #if 0</div><div class="line"><a name="l03536"></a><span class="lineno"> 3536</span>  $$ = $3;</div><div class="line"><a name="l03537"></a><span class="lineno"> 3537</span>  $$->nd_body = NEW_SCOPE($3->nd_head, $4);</div><div class="line"><a name="l03538"></a><span class="lineno"> 3538</span> #endif</div><div class="line"><a name="l03539"></a><span class="lineno"> 3539</span>  $$ = dispatch2(lambda, $3, $4);</div><div class="line"><a name="l03540"></a><span class="lineno"> 3540</span> </div><div class="line"><a name="l03541"></a><span class="lineno"> 3541</span>  dyna_pop($<vars>1);</div><div class="line"><a name="l03542"></a><span class="lineno"> 3542</span>  }</div><div class="line"><a name="l03543"></a><span class="lineno"> 3543</span>  ;</div><div class="line"><a name="l03544"></a><span class="lineno"> 3544</span> </div><div class="line"><a name="l03545"></a><span class="lineno"> 3545</span> f_larglist : '(' f_args opt_bv_decl rparen</div><div class="line"><a name="l03546"></a><span class="lineno"> 3546</span>  {</div><div class="line"><a name="l03547"></a><span class="lineno"> 3547</span> #if 0</div><div class="line"><a name="l03548"></a><span class="lineno"> 3548</span>  $$ = NEW_LAMBDA($2);</div><div class="line"><a name="l03549"></a><span class="lineno"> 3549</span> #endif</div><div class="line"><a name="l03550"></a><span class="lineno"> 3550</span>  $$ = dispatch1(paren, $2);</div><div class="line"><a name="l03551"></a><span class="lineno"> 3551</span> </div><div class="line"><a name="l03552"></a><span class="lineno"> 3552</span>  }</div><div class="line"><a name="l03553"></a><span class="lineno"> 3553</span>  | f_args</div><div class="line"><a name="l03554"></a><span class="lineno"> 3554</span>  {</div><div class="line"><a name="l03555"></a><span class="lineno"> 3555</span> #if 0</div><div class="line"><a name="l03556"></a><span class="lineno"> 3556</span>  $$ = NEW_LAMBDA($1);</div><div class="line"><a name="l03557"></a><span class="lineno"> 3557</span> #endif</div><div class="line"><a name="l03558"></a><span class="lineno"> 3558</span>  $$ = $1;</div><div class="line"><a name="l03559"></a><span class="lineno"> 3559</span> </div><div class="line"><a name="l03560"></a><span class="lineno"> 3560</span>  }</div><div class="line"><a name="l03561"></a><span class="lineno"> 3561</span>  ;</div><div class="line"><a name="l03562"></a><span class="lineno"> 3562</span> </div><div class="line"><a name="l03563"></a><span class="lineno"> 3563</span> lambda_body : tLAMBEG compstmt '}'</div><div class="line"><a name="l03564"></a><span class="lineno"> 3564</span>  {</div><div class="line"><a name="l03565"></a><span class="lineno"> 3565</span>  $$ = $2;</div><div class="line"><a name="l03566"></a><span class="lineno"> 3566</span>  }</div><div class="line"><a name="l03567"></a><span class="lineno"> 3567</span>  | keyword_do_LAMBDA compstmt keyword_end</div><div class="line"><a name="l03568"></a><span class="lineno"> 3568</span>  {</div><div class="line"><a name="l03569"></a><span class="lineno"> 3569</span>  $$ = $2;</div><div class="line"><a name="l03570"></a><span class="lineno"> 3570</span>  }</div><div class="line"><a name="l03571"></a><span class="lineno"> 3571</span>  ;</div><div class="line"><a name="l03572"></a><span class="lineno"> 3572</span> </div><div class="line"><a name="l03573"></a><span class="lineno"> 3573</span> do_block : keyword_do_block</div><div class="line"><a name="l03574"></a><span class="lineno"> 3574</span>  {</div><div class="line"><a name="l03575"></a><span class="lineno"> 3575</span>  $<vars>1 = dyna_push();</div><div class="line"><a name="l03576"></a><span class="lineno"> 3576</span> #if 0</div><div class="line"><a name="l03577"></a><span class="lineno"> 3577</span>  $<num>$ = ruby_sourceline;</div><div class="line"><a name="l03578"></a><span class="lineno"> 3578</span> #endif</div><div class="line"><a name="l03579"></a><span class="lineno"> 3579</span>  }</div><div class="line"><a name="l03580"></a><span class="lineno"> 3580</span>  opt_block_param</div><div class="line"><a name="l03581"></a><span class="lineno"> 3581</span>  compstmt</div><div class="line"><a name="l03582"></a><span class="lineno"> 3582</span>  keyword_end</div><div class="line"><a name="l03583"></a><span class="lineno"> 3583</span>  {</div><div class="line"><a name="l03584"></a><span class="lineno"> 3584</span> #if 0</div><div class="line"><a name="l03585"></a><span class="lineno"> 3585</span>  $$ = NEW_ITER($3,$4);</div><div class="line"><a name="l03586"></a><span class="lineno"> 3586</span>  nd_set_line($$, $<num>2);</div><div class="line"><a name="l03587"></a><span class="lineno"> 3587</span> #endif</div><div class="line"><a name="l03588"></a><span class="lineno"> 3588</span>  $$ = dispatch2(do_block, escape_Qundef($3), $4);</div><div class="line"><a name="l03589"></a><span class="lineno"> 3589</span> </div><div class="line"><a name="l03590"></a><span class="lineno"> 3590</span>  dyna_pop($<vars>1);</div><div class="line"><a name="l03591"></a><span class="lineno"> 3591</span>  }</div><div class="line"><a name="l03592"></a><span class="lineno"> 3592</span>  ;</div><div class="line"><a name="l03593"></a><span class="lineno"> 3593</span> </div><div class="line"><a name="l03594"></a><span class="lineno"> 3594</span> block_call : command do_block</div><div class="line"><a name="l03595"></a><span class="lineno"> 3595</span>  {</div><div class="line"><a name="l03596"></a><span class="lineno"> 3596</span> #if 0</div><div class="line"><a name="l03597"></a><span class="lineno"> 3597</span>  if (nd_type($1) == NODE_YIELD) {</div><div class="line"><a name="l03598"></a><span class="lineno"> 3598</span>  compile_error(PARSER_ARG "block given to yield");</div><div class="line"><a name="l03599"></a><span class="lineno"> 3599</span>  }</div><div class="line"><a name="l03600"></a><span class="lineno"> 3600</span>  else {</div><div class="line"><a name="l03601"></a><span class="lineno"> 3601</span>  block_dup_check($1->nd_args, $2);</div><div class="line"><a name="l03602"></a><span class="lineno"> 3602</span>  }</div><div class="line"><a name="l03603"></a><span class="lineno"> 3603</span>  $2->nd_iter = $1;</div><div class="line"><a name="l03604"></a><span class="lineno"> 3604</span>  $$ = $2;</div><div class="line"><a name="l03605"></a><span class="lineno"> 3605</span>  fixpos($$, $1);</div><div class="line"><a name="l03606"></a><span class="lineno"> 3606</span> #endif</div><div class="line"><a name="l03607"></a><span class="lineno"> 3607</span>  $$ = method_add_block($1, $2);</div><div class="line"><a name="l03608"></a><span class="lineno"> 3608</span> </div><div class="line"><a name="l03609"></a><span class="lineno"> 3609</span>  }</div><div class="line"><a name="l03610"></a><span class="lineno"> 3610</span>  | block_call '.' operation2 opt_paren_args</div><div class="line"><a name="l03611"></a><span class="lineno"> 3611</span>  {</div><div class="line"><a name="l03612"></a><span class="lineno"> 3612</span> #if 0</div><div class="line"><a name="l03613"></a><span class="lineno"> 3613</span>  $$ = NEW_CALL($1, $3, $4);</div><div class="line"><a name="l03614"></a><span class="lineno"> 3614</span> #endif</div><div class="line"><a name="l03615"></a><span class="lineno"> 3615</span>  $$ = dispatch3(call, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l03616"></a><span class="lineno"> 3616</span>  $$ = method_optarg($$, $4);</div><div class="line"><a name="l03617"></a><span class="lineno"> 3617</span> </div><div class="line"><a name="l03618"></a><span class="lineno"> 3618</span>  }</div><div class="line"><a name="l03619"></a><span class="lineno"> 3619</span>  | block_call tCOLON2 operation2 opt_paren_args</div><div class="line"><a name="l03620"></a><span class="lineno"> 3620</span>  {</div><div class="line"><a name="l03621"></a><span class="lineno"> 3621</span> #if 0</div><div class="line"><a name="l03622"></a><span class="lineno"> 3622</span>  $$ = NEW_CALL($1, $3, $4);</div><div class="line"><a name="l03623"></a><span class="lineno"> 3623</span> #endif</div><div class="line"><a name="l03624"></a><span class="lineno"> 3624</span>  $$ = dispatch3(call, $1, ripper_intern("::"), $3);</div><div class="line"><a name="l03625"></a><span class="lineno"> 3625</span>  $$ = method_optarg($$, $4);</div><div class="line"><a name="l03626"></a><span class="lineno"> 3626</span> </div><div class="line"><a name="l03627"></a><span class="lineno"> 3627</span>  }</div><div class="line"><a name="l03628"></a><span class="lineno"> 3628</span>  ;</div><div class="line"><a name="l03629"></a><span class="lineno"> 3629</span> </div><div class="line"><a name="l03630"></a><span class="lineno"> 3630</span> method_call : operation paren_args</div><div class="line"><a name="l03631"></a><span class="lineno"> 3631</span>  {</div><div class="line"><a name="l03632"></a><span class="lineno"> 3632</span> #if 0</div><div class="line"><a name="l03633"></a><span class="lineno"> 3633</span>  $$ = NEW_FCALL($1, $2);</div><div class="line"><a name="l03634"></a><span class="lineno"> 3634</span>  fixpos($$, $2);</div><div class="line"><a name="l03635"></a><span class="lineno"> 3635</span> #endif</div><div class="line"><a name="l03636"></a><span class="lineno"> 3636</span>  $$ = method_arg(dispatch1(fcall, $1), $2);</div><div class="line"><a name="l03637"></a><span class="lineno"> 3637</span> </div><div class="line"><a name="l03638"></a><span class="lineno"> 3638</span>  }</div><div class="line"><a name="l03639"></a><span class="lineno"> 3639</span>  | primary_value '.' operation2 opt_paren_args</div><div class="line"><a name="l03640"></a><span class="lineno"> 3640</span>  {</div><div class="line"><a name="l03641"></a><span class="lineno"> 3641</span> #if 0</div><div class="line"><a name="l03642"></a><span class="lineno"> 3642</span>  $$ = NEW_CALL($1, $3, $4);</div><div class="line"><a name="l03643"></a><span class="lineno"> 3643</span>  fixpos($$, $1);</div><div class="line"><a name="l03644"></a><span class="lineno"> 3644</span> #endif</div><div class="line"><a name="l03645"></a><span class="lineno"> 3645</span>  $$ = dispatch3(call, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l03646"></a><span class="lineno"> 3646</span>  $$ = method_optarg($$, $4);</div><div class="line"><a name="l03647"></a><span class="lineno"> 3647</span> </div><div class="line"><a name="l03648"></a><span class="lineno"> 3648</span>  }</div><div class="line"><a name="l03649"></a><span class="lineno"> 3649</span>  | primary_value tCOLON2 operation2 paren_args</div><div class="line"><a name="l03650"></a><span class="lineno"> 3650</span>  {</div><div class="line"><a name="l03651"></a><span class="lineno"> 3651</span> #if 0</div><div class="line"><a name="l03652"></a><span class="lineno"> 3652</span>  $$ = NEW_CALL($1, $3, $4);</div><div class="line"><a name="l03653"></a><span class="lineno"> 3653</span>  fixpos($$, $1);</div><div class="line"><a name="l03654"></a><span class="lineno"> 3654</span> #endif</div><div class="line"><a name="l03655"></a><span class="lineno"> 3655</span>  $$ = dispatch3(call, $1, ripper_id2sym('.'), $3);</div><div class="line"><a name="l03656"></a><span class="lineno"> 3656</span>  $$ = method_optarg($$, $4);</div><div class="line"><a name="l03657"></a><span class="lineno"> 3657</span> </div><div class="line"><a name="l03658"></a><span class="lineno"> 3658</span>  }</div><div class="line"><a name="l03659"></a><span class="lineno"> 3659</span>  | primary_value tCOLON2 operation3</div><div class="line"><a name="l03660"></a><span class="lineno"> 3660</span>  {</div><div class="line"><a name="l03661"></a><span class="lineno"> 3661</span> #if 0</div><div class="line"><a name="l03662"></a><span class="lineno"> 3662</span>  $$ = NEW_CALL($1, $3, 0);</div><div class="line"><a name="l03663"></a><span class="lineno"> 3663</span> #endif</div><div class="line"><a name="l03664"></a><span class="lineno"> 3664</span>  $$ = dispatch3(call, $1, ripper_intern("::"), $3);</div><div class="line"><a name="l03665"></a><span class="lineno"> 3665</span> </div><div class="line"><a name="l03666"></a><span class="lineno"> 3666</span>  }</div><div class="line"><a name="l03667"></a><span class="lineno"> 3667</span>  | primary_value '.' paren_args</div><div class="line"><a name="l03668"></a><span class="lineno"> 3668</span>  {</div><div class="line"><a name="l03669"></a><span class="lineno"> 3669</span> #if 0</div><div class="line"><a name="l03670"></a><span class="lineno"> 3670</span>  $$ = NEW_CALL($1, rb_intern("call"), $3);</div><div class="line"><a name="l03671"></a><span class="lineno"> 3671</span>  fixpos($$, $1);</div><div class="line"><a name="l03672"></a><span class="lineno"> 3672</span> #endif</div><div class="line"><a name="l03673"></a><span class="lineno"> 3673</span>  $$ = dispatch3(call, $1, ripper_id2sym('.'),</div><div class="line"><a name="l03674"></a><span class="lineno"> 3674</span>  ripper_intern("call"));</div><div class="line"><a name="l03675"></a><span class="lineno"> 3675</span>  $$ = method_optarg($$, $3);</div><div class="line"><a name="l03676"></a><span class="lineno"> 3676</span> </div><div class="line"><a name="l03677"></a><span class="lineno"> 3677</span>  }</div><div class="line"><a name="l03678"></a><span class="lineno"> 3678</span>  | primary_value tCOLON2 paren_args</div><div class="line"><a name="l03679"></a><span class="lineno"> 3679</span>  {</div><div class="line"><a name="l03680"></a><span class="lineno"> 3680</span> #if 0</div><div class="line"><a name="l03681"></a><span class="lineno"> 3681</span>  $$ = NEW_CALL($1, rb_intern("call"), $3);</div><div class="line"><a name="l03682"></a><span class="lineno"> 3682</span>  fixpos($$, $1);</div><div class="line"><a name="l03683"></a><span class="lineno"> 3683</span> #endif</div><div class="line"><a name="l03684"></a><span class="lineno"> 3684</span>  $$ = dispatch3(call, $1, ripper_intern("::"),</div><div class="line"><a name="l03685"></a><span class="lineno"> 3685</span>  ripper_intern("call"));</div><div class="line"><a name="l03686"></a><span class="lineno"> 3686</span>  $$ = method_optarg($$, $3);</div><div class="line"><a name="l03687"></a><span class="lineno"> 3687</span> </div><div class="line"><a name="l03688"></a><span class="lineno"> 3688</span>  }</div><div class="line"><a name="l03689"></a><span class="lineno"> 3689</span>  | keyword_super paren_args</div><div class="line"><a name="l03690"></a><span class="lineno"> 3690</span>  {</div><div class="line"><a name="l03691"></a><span class="lineno"> 3691</span> #if 0</div><div class="line"><a name="l03692"></a><span class="lineno"> 3692</span>  $$ = NEW_SUPER($2);</div><div class="line"><a name="l03693"></a><span class="lineno"> 3693</span> #endif</div><div class="line"><a name="l03694"></a><span class="lineno"> 3694</span>  $$ = dispatch1(super, $2);</div><div class="line"><a name="l03695"></a><span class="lineno"> 3695</span> </div><div class="line"><a name="l03696"></a><span class="lineno"> 3696</span>  }</div><div class="line"><a name="l03697"></a><span class="lineno"> 3697</span>  | keyword_super</div><div class="line"><a name="l03698"></a><span class="lineno"> 3698</span>  {</div><div class="line"><a name="l03699"></a><span class="lineno"> 3699</span> #if 0</div><div class="line"><a name="l03700"></a><span class="lineno"> 3700</span>  $$ = NEW_ZSUPER();</div><div class="line"><a name="l03701"></a><span class="lineno"> 3701</span> #endif</div><div class="line"><a name="l03702"></a><span class="lineno"> 3702</span>  $$ = dispatch0(zsuper);</div><div class="line"><a name="l03703"></a><span class="lineno"> 3703</span> </div><div class="line"><a name="l03704"></a><span class="lineno"> 3704</span>  }</div><div class="line"><a name="l03705"></a><span class="lineno"> 3705</span>  | primary_value '[' opt_call_args rbracket</div><div class="line"><a name="l03706"></a><span class="lineno"> 3706</span>  {</div><div class="line"><a name="l03707"></a><span class="lineno"> 3707</span> #if 0</div><div class="line"><a name="l03708"></a><span class="lineno"> 3708</span>  if ($1 && nd_type($1) == NODE_SELF)</div><div class="line"><a name="l03709"></a><span class="lineno"> 3709</span>  $$ = NEW_FCALL(tAREF, $3);</div><div class="line"><a name="l03710"></a><span class="lineno"> 3710</span>  else</div><div class="line"><a name="l03711"></a><span class="lineno"> 3711</span>  $$ = NEW_CALL($1, tAREF, $3);</div><div class="line"><a name="l03712"></a><span class="lineno"> 3712</span>  fixpos($$, $1);</div><div class="line"><a name="l03713"></a><span class="lineno"> 3713</span> #endif</div><div class="line"><a name="l03714"></a><span class="lineno"> 3714</span>  $$ = dispatch2(aref, $1, escape_Qundef($3));</div><div class="line"><a name="l03715"></a><span class="lineno"> 3715</span> </div><div class="line"><a name="l03716"></a><span class="lineno"> 3716</span>  }</div><div class="line"><a name="l03717"></a><span class="lineno"> 3717</span>  ;</div><div class="line"><a name="l03718"></a><span class="lineno"> 3718</span> </div><div class="line"><a name="l03719"></a><span class="lineno"> 3719</span> brace_block : '{'</div><div class="line"><a name="l03720"></a><span class="lineno"> 3720</span>  {</div><div class="line"><a name="l03721"></a><span class="lineno"> 3721</span>  $<vars>1 = dyna_push();</div><div class="line"><a name="l03722"></a><span class="lineno"> 3722</span> #if 0</div><div class="line"><a name="l03723"></a><span class="lineno"> 3723</span>  $<num>$ = ruby_sourceline;</div><div class="line"><a name="l03724"></a><span class="lineno"> 3724</span> #endif</div><div class="line"><a name="l03725"></a><span class="lineno"> 3725</span> </div><div class="line"><a name="l03726"></a><span class="lineno"> 3726</span>  }</div><div class="line"><a name="l03727"></a><span class="lineno"> 3727</span>  opt_block_param</div><div class="line"><a name="l03728"></a><span class="lineno"> 3728</span>  compstmt '}'</div><div class="line"><a name="l03729"></a><span class="lineno"> 3729</span>  {</div><div class="line"><a name="l03730"></a><span class="lineno"> 3730</span> #if 0</div><div class="line"><a name="l03731"></a><span class="lineno"> 3731</span>  $$ = NEW_ITER($3,$4);</div><div class="line"><a name="l03732"></a><span class="lineno"> 3732</span>  nd_set_line($$, $<num>2);</div><div class="line"><a name="l03733"></a><span class="lineno"> 3733</span> #endif</div><div class="line"><a name="l03734"></a><span class="lineno"> 3734</span>  $$ = dispatch2(brace_block, escape_Qundef($3), $4);</div><div class="line"><a name="l03735"></a><span class="lineno"> 3735</span> </div><div class="line"><a name="l03736"></a><span class="lineno"> 3736</span>  dyna_pop($<vars>1);</div><div class="line"><a name="l03737"></a><span class="lineno"> 3737</span>  }</div><div class="line"><a name="l03738"></a><span class="lineno"> 3738</span>  | keyword_do</div><div class="line"><a name="l03739"></a><span class="lineno"> 3739</span>  {</div><div class="line"><a name="l03740"></a><span class="lineno"> 3740</span>  $<vars>1 = dyna_push();</div><div class="line"><a name="l03741"></a><span class="lineno"> 3741</span> #if 0</div><div class="line"><a name="l03742"></a><span class="lineno"> 3742</span>  $<num>$ = ruby_sourceline;</div><div class="line"><a name="l03743"></a><span class="lineno"> 3743</span> #endif</div><div class="line"><a name="l03744"></a><span class="lineno"> 3744</span> </div><div class="line"><a name="l03745"></a><span class="lineno"> 3745</span>  }</div><div class="line"><a name="l03746"></a><span class="lineno"> 3746</span>  opt_block_param</div><div class="line"><a name="l03747"></a><span class="lineno"> 3747</span>  compstmt keyword_end</div><div class="line"><a name="l03748"></a><span class="lineno"> 3748</span>  {</div><div class="line"><a name="l03749"></a><span class="lineno"> 3749</span> #if 0</div><div class="line"><a name="l03750"></a><span class="lineno"> 3750</span>  $$ = NEW_ITER($3,$4);</div><div class="line"><a name="l03751"></a><span class="lineno"> 3751</span>  nd_set_line($$, $<num>2);</div><div class="line"><a name="l03752"></a><span class="lineno"> 3752</span> #endif</div><div class="line"><a name="l03753"></a><span class="lineno"> 3753</span>  $$ = dispatch2(do_block, escape_Qundef($3), $4);</div><div class="line"><a name="l03754"></a><span class="lineno"> 3754</span> </div><div class="line"><a name="l03755"></a><span class="lineno"> 3755</span>  dyna_pop($<vars>1);</div><div class="line"><a name="l03756"></a><span class="lineno"> 3756</span>  }</div><div class="line"><a name="l03757"></a><span class="lineno"> 3757</span>  ;</div><div class="line"><a name="l03758"></a><span class="lineno"> 3758</span> </div><div class="line"><a name="l03759"></a><span class="lineno"> 3759</span> case_body : keyword_when args then</div><div class="line"><a name="l03760"></a><span class="lineno"> 3760</span>  compstmt</div><div class="line"><a name="l03761"></a><span class="lineno"> 3761</span>  cases</div><div class="line"><a name="l03762"></a><span class="lineno"> 3762</span>  {</div><div class="line"><a name="l03763"></a><span class="lineno"> 3763</span> #if 0</div><div class="line"><a name="l03764"></a><span class="lineno"> 3764</span>  $$ = NEW_WHEN($2, $4, $5);</div><div class="line"><a name="l03765"></a><span class="lineno"> 3765</span> #endif</div><div class="line"><a name="l03766"></a><span class="lineno"> 3766</span>  $$ = dispatch3(when, $2, $4, escape_Qundef($5));</div><div class="line"><a name="l03767"></a><span class="lineno"> 3767</span> </div><div class="line"><a name="l03768"></a><span class="lineno"> 3768</span>  }</div><div class="line"><a name="l03769"></a><span class="lineno"> 3769</span>  ;</div><div class="line"><a name="l03770"></a><span class="lineno"> 3770</span> </div><div class="line"><a name="l03771"></a><span class="lineno"> 3771</span> cases : opt_else</div><div class="line"><a name="l03772"></a><span class="lineno"> 3772</span>  | case_body</div><div class="line"><a name="l03773"></a><span class="lineno"> 3773</span>  ;</div><div class="line"><a name="l03774"></a><span class="lineno"> 3774</span> </div><div class="line"><a name="l03775"></a><span class="lineno"> 3775</span> opt_rescue : keyword_rescue exc_list exc_var then</div><div class="line"><a name="l03776"></a><span class="lineno"> 3776</span>  compstmt</div><div class="line"><a name="l03777"></a><span class="lineno"> 3777</span>  opt_rescue</div><div class="line"><a name="l03778"></a><span class="lineno"> 3778</span>  {</div><div class="line"><a name="l03779"></a><span class="lineno"> 3779</span> #if 0</div><div class="line"><a name="l03780"></a><span class="lineno"> 3780</span>  if ($3) {</div><div class="line"><a name="l03781"></a><span class="lineno"> 3781</span>  $3 = node_assign($3, NEW_ERRINFO());</div><div class="line"><a name="l03782"></a><span class="lineno"> 3782</span>  $5 = block_append($3, $5);</div><div class="line"><a name="l03783"></a><span class="lineno"> 3783</span>  }</div><div class="line"><a name="l03784"></a><span class="lineno"> 3784</span>  $$ = NEW_RESBODY($2, $5, $6);</div><div class="line"><a name="l03785"></a><span class="lineno"> 3785</span>  fixpos($$, $2?$2:$5);</div><div class="line"><a name="l03786"></a><span class="lineno"> 3786</span> #endif</div><div class="line"><a name="l03787"></a><span class="lineno"> 3787</span>  $$ = dispatch4(rescue,</div><div class="line"><a name="l03788"></a><span class="lineno"> 3788</span>  escape_Qundef($2),</div><div class="line"><a name="l03789"></a><span class="lineno"> 3789</span>  escape_Qundef($3),</div><div class="line"><a name="l03790"></a><span class="lineno"> 3790</span>  escape_Qundef($5),</div><div class="line"><a name="l03791"></a><span class="lineno"> 3791</span>  escape_Qundef($6));</div><div class="line"><a name="l03792"></a><span class="lineno"> 3792</span> </div><div class="line"><a name="l03793"></a><span class="lineno"> 3793</span>  }</div><div class="line"><a name="l03794"></a><span class="lineno"> 3794</span>  | none</div><div class="line"><a name="l03795"></a><span class="lineno"> 3795</span>  ;</div><div class="line"><a name="l03796"></a><span class="lineno"> 3796</span> </div><div class="line"><a name="l03797"></a><span class="lineno"> 3797</span> exc_list : arg_value</div><div class="line"><a name="l03798"></a><span class="lineno"> 3798</span>  {</div><div class="line"><a name="l03799"></a><span class="lineno"> 3799</span> #if 0</div><div class="line"><a name="l03800"></a><span class="lineno"> 3800</span>  $$ = NEW_LIST($1);</div><div class="line"><a name="l03801"></a><span class="lineno"> 3801</span> #endif</div><div class="line"><a name="l03802"></a><span class="lineno"> 3802</span>  $$ = rb_ary_new3(1, $1);</div><div class="line"><a name="l03803"></a><span class="lineno"> 3803</span> </div><div class="line"><a name="l03804"></a><span class="lineno"> 3804</span>  }</div><div class="line"><a name="l03805"></a><span class="lineno"> 3805</span>  | mrhs</div><div class="line"><a name="l03806"></a><span class="lineno"> 3806</span>  {</div><div class="line"><a name="l03807"></a><span class="lineno"> 3807</span> #if 0</div><div class="line"><a name="l03808"></a><span class="lineno"> 3808</span>  if (!($$ = splat_array($1))) $$ = $1;</div><div class="line"><a name="l03809"></a><span class="lineno"> 3809</span> #endif</div><div class="line"><a name="l03810"></a><span class="lineno"> 3810</span>  $$ = $1;</div><div class="line"><a name="l03811"></a><span class="lineno"> 3811</span> </div><div class="line"><a name="l03812"></a><span class="lineno"> 3812</span>  }</div><div class="line"><a name="l03813"></a><span class="lineno"> 3813</span>  | none</div><div class="line"><a name="l03814"></a><span class="lineno"> 3814</span>  ;</div><div class="line"><a name="l03815"></a><span class="lineno"> 3815</span> </div><div class="line"><a name="l03816"></a><span class="lineno"> 3816</span> exc_var : tASSOC lhs</div><div class="line"><a name="l03817"></a><span class="lineno"> 3817</span>  {</div><div class="line"><a name="l03818"></a><span class="lineno"> 3818</span>  $$ = $2;</div><div class="line"><a name="l03819"></a><span class="lineno"> 3819</span>  }</div><div class="line"><a name="l03820"></a><span class="lineno"> 3820</span>  | none</div><div class="line"><a name="l03821"></a><span class="lineno"> 3821</span>  ;</div><div class="line"><a name="l03822"></a><span class="lineno"> 3822</span> </div><div class="line"><a name="l03823"></a><span class="lineno"> 3823</span> opt_ensure : keyword_ensure compstmt</div><div class="line"><a name="l03824"></a><span class="lineno"> 3824</span>  {</div><div class="line"><a name="l03825"></a><span class="lineno"> 3825</span> #if 0</div><div class="line"><a name="l03826"></a><span class="lineno"> 3826</span>  $$ = $2;</div><div class="line"><a name="l03827"></a><span class="lineno"> 3827</span> #endif</div><div class="line"><a name="l03828"></a><span class="lineno"> 3828</span>  $$ = dispatch1(ensure, $2);</div><div class="line"><a name="l03829"></a><span class="lineno"> 3829</span> </div><div class="line"><a name="l03830"></a><span class="lineno"> 3830</span>  }</div><div class="line"><a name="l03831"></a><span class="lineno"> 3831</span>  | none</div><div class="line"><a name="l03832"></a><span class="lineno"> 3832</span>  ;</div><div class="line"><a name="l03833"></a><span class="lineno"> 3833</span> </div><div class="line"><a name="l03834"></a><span class="lineno"> 3834</span> literal : numeric</div><div class="line"><a name="l03835"></a><span class="lineno"> 3835</span>  | symbol</div><div class="line"><a name="l03836"></a><span class="lineno"> 3836</span>  {</div><div class="line"><a name="l03837"></a><span class="lineno"> 3837</span> #if 0</div><div class="line"><a name="l03838"></a><span class="lineno"> 3838</span>  $$ = NEW_LIT(ID2SYM($1));</div><div class="line"><a name="l03839"></a><span class="lineno"> 3839</span> #endif</div><div class="line"><a name="l03840"></a><span class="lineno"> 3840</span>  $$ = dispatch1(symbol_literal, $1);</div><div class="line"><a name="l03841"></a><span class="lineno"> 3841</span> </div><div class="line"><a name="l03842"></a><span class="lineno"> 3842</span>  }</div><div class="line"><a name="l03843"></a><span class="lineno"> 3843</span>  | dsym</div><div class="line"><a name="l03844"></a><span class="lineno"> 3844</span>  ;</div><div class="line"><a name="l03845"></a><span class="lineno"> 3845</span> </div><div class="line"><a name="l03846"></a><span class="lineno"> 3846</span> strings : string</div><div class="line"><a name="l03847"></a><span class="lineno"> 3847</span>  {</div><div class="line"><a name="l03848"></a><span class="lineno"> 3848</span> #if 0</div><div class="line"><a name="l03849"></a><span class="lineno"> 3849</span>  NODE *node = $1;</div><div class="line"><a name="l03850"></a><span class="lineno"> 3850</span>  if (!node) {</div><div class="line"><a name="l03851"></a><span class="lineno"> 3851</span>  node = NEW_STR(STR_NEW0());</div><div class="line"><a name="l03852"></a><span class="lineno"> 3852</span>  }</div><div class="line"><a name="l03853"></a><span class="lineno"> 3853</span>  else {</div><div class="line"><a name="l03854"></a><span class="lineno"> 3854</span>  node = evstr2dstr(node);</div><div class="line"><a name="l03855"></a><span class="lineno"> 3855</span>  }</div><div class="line"><a name="l03856"></a><span class="lineno"> 3856</span>  $$ = node;</div><div class="line"><a name="l03857"></a><span class="lineno"> 3857</span> #endif</div><div class="line"><a name="l03858"></a><span class="lineno"> 3858</span>  $$ = $1;</div><div class="line"><a name="l03859"></a><span class="lineno"> 3859</span> </div><div class="line"><a name="l03860"></a><span class="lineno"> 3860</span>  }</div><div class="line"><a name="l03861"></a><span class="lineno"> 3861</span>  ;</div><div class="line"><a name="l03862"></a><span class="lineno"> 3862</span> </div><div class="line"><a name="l03863"></a><span class="lineno"> 3863</span> string : tCHAR</div><div class="line"><a name="l03864"></a><span class="lineno"> 3864</span>  | string1</div><div class="line"><a name="l03865"></a><span class="lineno"> 3865</span>  | string string1</div><div class="line"><a name="l03866"></a><span class="lineno"> 3866</span>  {</div><div class="line"><a name="l03867"></a><span class="lineno"> 3867</span> #if 0</div><div class="line"><a name="l03868"></a><span class="lineno"> 3868</span>  $$ = literal_concat($1, $2);</div><div class="line"><a name="l03869"></a><span class="lineno"> 3869</span> #endif</div><div class="line"><a name="l03870"></a><span class="lineno"> 3870</span>  $$ = dispatch2(string_concat, $1, $2);</div><div class="line"><a name="l03871"></a><span class="lineno"> 3871</span> </div><div class="line"><a name="l03872"></a><span class="lineno"> 3872</span>  }</div><div class="line"><a name="l03873"></a><span class="lineno"> 3873</span>  ;</div><div class="line"><a name="l03874"></a><span class="lineno"> 3874</span> </div><div class="line"><a name="l03875"></a><span class="lineno"> 3875</span> string1 : tSTRING_BEG string_contents tSTRING_END</div><div class="line"><a name="l03876"></a><span class="lineno"> 3876</span>  {</div><div class="line"><a name="l03877"></a><span class="lineno"> 3877</span> #if 0</div><div class="line"><a name="l03878"></a><span class="lineno"> 3878</span>  $$ = $2;</div><div class="line"><a name="l03879"></a><span class="lineno"> 3879</span> #endif</div><div class="line"><a name="l03880"></a><span class="lineno"> 3880</span>  $$ = dispatch1(string_literal, $2);</div><div class="line"><a name="l03881"></a><span class="lineno"> 3881</span> </div><div class="line"><a name="l03882"></a><span class="lineno"> 3882</span>  }</div><div class="line"><a name="l03883"></a><span class="lineno"> 3883</span>  ;</div><div class="line"><a name="l03884"></a><span class="lineno"> 3884</span> </div><div class="line"><a name="l03885"></a><span class="lineno"> 3885</span> xstring : tXSTRING_BEG xstring_contents tSTRING_END</div><div class="line"><a name="l03886"></a><span class="lineno"> 3886</span>  {</div><div class="line"><a name="l03887"></a><span class="lineno"> 3887</span> #if 0</div><div class="line"><a name="l03888"></a><span class="lineno"> 3888</span>  NODE *node = $2;</div><div class="line"><a name="l03889"></a><span class="lineno"> 3889</span>  if (!node) {</div><div class="line"><a name="l03890"></a><span class="lineno"> 3890</span>  node = NEW_XSTR(STR_NEW0());</div><div class="line"><a name="l03891"></a><span class="lineno"> 3891</span>  }</div><div class="line"><a name="l03892"></a><span class="lineno"> 3892</span>  else {</div><div class="line"><a name="l03893"></a><span class="lineno"> 3893</span>  switch (nd_type(node)) {</div><div class="line"><a name="l03894"></a><span class="lineno"> 3894</span>  case NODE_STR:</div><div class="line"><a name="l03895"></a><span class="lineno"> 3895</span>  nd_set_type(node, NODE_XSTR);</div><div class="line"><a name="l03896"></a><span class="lineno"> 3896</span>  break;</div><div class="line"><a name="l03897"></a><span class="lineno"> 3897</span>  case NODE_DSTR:</div><div class="line"><a name="l03898"></a><span class="lineno"> 3898</span>  nd_set_type(node, NODE_DXSTR);</div><div class="line"><a name="l03899"></a><span class="lineno"> 3899</span>  break;</div><div class="line"><a name="l03900"></a><span class="lineno"> 3900</span>  default:</div><div class="line"><a name="l03901"></a><span class="lineno"> 3901</span>  node = NEW_NODE(NODE_DXSTR, Qnil, 1, NEW_LIST(node));</div><div class="line"><a name="l03902"></a><span class="lineno"> 3902</span>  break;</div><div class="line"><a name="l03903"></a><span class="lineno"> 3903</span>  }</div><div class="line"><a name="l03904"></a><span class="lineno"> 3904</span>  }</div><div class="line"><a name="l03905"></a><span class="lineno"> 3905</span>  $$ = node;</div><div class="line"><a name="l03906"></a><span class="lineno"> 3906</span> #endif</div><div class="line"><a name="l03907"></a><span class="lineno"> 3907</span>  $$ = dispatch1(xstring_literal, $2);</div><div class="line"><a name="l03908"></a><span class="lineno"> 3908</span> </div><div class="line"><a name="l03909"></a><span class="lineno"> 3909</span>  }</div><div class="line"><a name="l03910"></a><span class="lineno"> 3910</span>  ;</div><div class="line"><a name="l03911"></a><span class="lineno"> 3911</span> </div><div class="line"><a name="l03912"></a><span class="lineno"> 3912</span> regexp : tREGEXP_BEG regexp_contents tREGEXP_END</div><div class="line"><a name="l03913"></a><span class="lineno"> 3913</span>  {</div><div class="line"><a name="l03914"></a><span class="lineno"> 3914</span> #if 0</div><div class="line"><a name="l03915"></a><span class="lineno"> 3915</span>  int options = $3;</div><div class="line"><a name="l03916"></a><span class="lineno"> 3916</span>  NODE *node = $2;</div><div class="line"><a name="l03917"></a><span class="lineno"> 3917</span>  NODE *list, *prev;</div><div class="line"><a name="l03918"></a><span class="lineno"> 3918</span>  if (!node) {</div><div class="line"><a name="l03919"></a><span class="lineno"> 3919</span>  node = NEW_LIT(reg_compile(STR_NEW0(), options));</div><div class="line"><a name="l03920"></a><span class="lineno"> 3920</span>  }</div><div class="line"><a name="l03921"></a><span class="lineno"> 3921</span>  else switch (nd_type(node)) {</div><div class="line"><a name="l03922"></a><span class="lineno"> 3922</span>  case NODE_STR:</div><div class="line"><a name="l03923"></a><span class="lineno"> 3923</span>  {</div><div class="line"><a name="l03924"></a><span class="lineno"> 3924</span>  VALUE src = node->nd_lit;</div><div class="line"><a name="l03925"></a><span class="lineno"> 3925</span>  nd_set_type(node, NODE_LIT);</div><div class="line"><a name="l03926"></a><span class="lineno"> 3926</span>  node->nd_lit = reg_compile(src, options);</div><div class="line"><a name="l03927"></a><span class="lineno"> 3927</span>  }</div><div class="line"><a name="l03928"></a><span class="lineno"> 3928</span>  break;</div><div class="line"><a name="l03929"></a><span class="lineno"> 3929</span>  default:</div><div class="line"><a name="l03930"></a><span class="lineno"> 3930</span>  node = NEW_NODE(NODE_DSTR, STR_NEW0(), 1, NEW_LIST(node));</div><div class="line"><a name="l03931"></a><span class="lineno"> 3931</span>  case NODE_DSTR:</div><div class="line"><a name="l03932"></a><span class="lineno"> 3932</span>  if (options & RE_OPTION_ONCE) {</div><div class="line"><a name="l03933"></a><span class="lineno"> 3933</span>  nd_set_type(node, NODE_DREGX_ONCE);</div><div class="line"><a name="l03934"></a><span class="lineno"> 3934</span>  }</div><div class="line"><a name="l03935"></a><span class="lineno"> 3935</span>  else {</div><div class="line"><a name="l03936"></a><span class="lineno"> 3936</span>  nd_set_type(node, NODE_DREGX);</div><div class="line"><a name="l03937"></a><span class="lineno"> 3937</span>  }</div><div class="line"><a name="l03938"></a><span class="lineno"> 3938</span>  node->nd_cflag = options & RE_OPTION_MASK;</div><div class="line"><a name="l03939"></a><span class="lineno"> 3939</span>  if (!NIL_P(node->nd_lit)) reg_fragment_check(node->nd_lit, options);</div><div class="line"><a name="l03940"></a><span class="lineno"> 3940</span>  for (list = (prev = node)->nd_next; list; list = list->nd_next) {</div><div class="line"><a name="l03941"></a><span class="lineno"> 3941</span>  if (nd_type(list->nd_head) == NODE_STR) {</div><div class="line"><a name="l03942"></a><span class="lineno"> 3942</span>  VALUE tail = list->nd_head->nd_lit;</div><div class="line"><a name="l03943"></a><span class="lineno"> 3943</span>  if (reg_fragment_check(tail, options) && prev && !NIL_P(prev->nd_lit)) {</div><div class="line"><a name="l03944"></a><span class="lineno"> 3944</span>  VALUE lit = prev == node ? prev->nd_lit : prev->nd_head->nd_lit;</div><div class="line"><a name="l03945"></a><span class="lineno"> 3945</span>  if (!literal_concat0(parser, lit, tail)) {</div><div class="line"><a name="l03946"></a><span class="lineno"> 3946</span>  node = 0;</div><div class="line"><a name="l03947"></a><span class="lineno"> 3947</span>  break;</div><div class="line"><a name="l03948"></a><span class="lineno"> 3948</span>  }</div><div class="line"><a name="l03949"></a><span class="lineno"> 3949</span>  rb_str_resize(tail, 0);</div><div class="line"><a name="l03950"></a><span class="lineno"> 3950</span>  prev->nd_next = list->nd_next;</div><div class="line"><a name="l03951"></a><span class="lineno"> 3951</span>  rb_gc_force_recycle((VALUE)list->nd_head);</div><div class="line"><a name="l03952"></a><span class="lineno"> 3952</span>  rb_gc_force_recycle((VALUE)list);</div><div class="line"><a name="l03953"></a><span class="lineno"> 3953</span>  list = prev;</div><div class="line"><a name="l03954"></a><span class="lineno"> 3954</span>  }</div><div class="line"><a name="l03955"></a><span class="lineno"> 3955</span>  else {</div><div class="line"><a name="l03956"></a><span class="lineno"> 3956</span>  prev = list;</div><div class="line"><a name="l03957"></a><span class="lineno"> 3957</span>  }</div><div class="line"><a name="l03958"></a><span class="lineno"> 3958</span>  }</div><div class="line"><a name="l03959"></a><span class="lineno"> 3959</span>  else {</div><div class="line"><a name="l03960"></a><span class="lineno"> 3960</span>  prev = 0;</div><div class="line"><a name="l03961"></a><span class="lineno"> 3961</span>  }</div><div class="line"><a name="l03962"></a><span class="lineno"> 3962</span>  }</div><div class="line"><a name="l03963"></a><span class="lineno"> 3963</span>  if (!node->nd_next) {</div><div class="line"><a name="l03964"></a><span class="lineno"> 3964</span>  VALUE src = node->nd_lit;</div><div class="line"><a name="l03965"></a><span class="lineno"> 3965</span>  nd_set_type(node, NODE_LIT);</div><div class="line"><a name="l03966"></a><span class="lineno"> 3966</span>  node->nd_lit = reg_compile(src, options);</div><div class="line"><a name="l03967"></a><span class="lineno"> 3967</span>  }</div><div class="line"><a name="l03968"></a><span class="lineno"> 3968</span>  break;</div><div class="line"><a name="l03969"></a><span class="lineno"> 3969</span>  }</div><div class="line"><a name="l03970"></a><span class="lineno"> 3970</span>  $$ = node;</div><div class="line"><a name="l03971"></a><span class="lineno"> 3971</span> #endif</div><div class="line"><a name="l03972"></a><span class="lineno"> 3972</span>  $$ = dispatch2(regexp_literal, $2, $3);</div><div class="line"><a name="l03973"></a><span class="lineno"> 3973</span> </div><div class="line"><a name="l03974"></a><span class="lineno"> 3974</span>  }</div><div class="line"><a name="l03975"></a><span class="lineno"> 3975</span>  ;</div><div class="line"><a name="l03976"></a><span class="lineno"> 3976</span> </div><div class="line"><a name="l03977"></a><span class="lineno"> 3977</span> words : tWORDS_BEG ' ' tSTRING_END</div><div class="line"><a name="l03978"></a><span class="lineno"> 3978</span>  {</div><div class="line"><a name="l03979"></a><span class="lineno"> 3979</span> #if 0</div><div class="line"><a name="l03980"></a><span class="lineno"> 3980</span>  $$ = NEW_ZARRAY();</div><div class="line"><a name="l03981"></a><span class="lineno"> 3981</span> #endif</div><div class="line"><a name="l03982"></a><span class="lineno"> 3982</span>  $$ = dispatch0(words_new);</div><div class="line"><a name="l03983"></a><span class="lineno"> 3983</span>  $$ = dispatch1(array, $$);</div><div class="line"><a name="l03984"></a><span class="lineno"> 3984</span> </div><div class="line"><a name="l03985"></a><span class="lineno"> 3985</span>  }</div><div class="line"><a name="l03986"></a><span class="lineno"> 3986</span>  | tWORDS_BEG word_list tSTRING_END</div><div class="line"><a name="l03987"></a><span class="lineno"> 3987</span>  {</div><div class="line"><a name="l03988"></a><span class="lineno"> 3988</span> #if 0</div><div class="line"><a name="l03989"></a><span class="lineno"> 3989</span>  $$ = $2;</div><div class="line"><a name="l03990"></a><span class="lineno"> 3990</span> #endif</div><div class="line"><a name="l03991"></a><span class="lineno"> 3991</span>  $$ = dispatch1(array, $2);</div><div class="line"><a name="l03992"></a><span class="lineno"> 3992</span> </div><div class="line"><a name="l03993"></a><span class="lineno"> 3993</span>  }</div><div class="line"><a name="l03994"></a><span class="lineno"> 3994</span>  ;</div><div class="line"><a name="l03995"></a><span class="lineno"> 3995</span> </div><div class="line"><a name="l03996"></a><span class="lineno"> 3996</span> word_list : /* none */</div><div class="line"><a name="l03997"></a><span class="lineno"> 3997</span>  {</div><div class="line"><a name="l03998"></a><span class="lineno"> 3998</span> #if 0</div><div class="line"><a name="l03999"></a><span class="lineno"> 3999</span>  $$ = 0;</div><div class="line"><a name="l04000"></a><span class="lineno"> 4000</span> #endif</div><div class="line"><a name="l04001"></a><span class="lineno"> 4001</span>  $$ = dispatch0(words_new);</div><div class="line"><a name="l04002"></a><span class="lineno"> 4002</span> </div><div class="line"><a name="l04003"></a><span class="lineno"> 4003</span>  }</div><div class="line"><a name="l04004"></a><span class="lineno"> 4004</span>  | word_list word ' '</div><div class="line"><a name="l04005"></a><span class="lineno"> 4005</span>  {</div><div class="line"><a name="l04006"></a><span class="lineno"> 4006</span> #if 0</div><div class="line"><a name="l04007"></a><span class="lineno"> 4007</span>  $$ = list_append($1, evstr2dstr($2));</div><div class="line"><a name="l04008"></a><span class="lineno"> 4008</span> #endif</div><div class="line"><a name="l04009"></a><span class="lineno"> 4009</span>  $$ = dispatch2(words_add, $1, $2);</div><div class="line"><a name="l04010"></a><span class="lineno"> 4010</span> </div><div class="line"><a name="l04011"></a><span class="lineno"> 4011</span>  }</div><div class="line"><a name="l04012"></a><span class="lineno"> 4012</span>  ;</div><div class="line"><a name="l04013"></a><span class="lineno"> 4013</span> </div><div class="line"><a name="l04014"></a><span class="lineno"> 4014</span> word : string_content</div><div class="line"><a name="l04015"></a><span class="lineno"> 4015</span> /*</div><div class="line"><a name="l04016"></a><span class="lineno"> 4016</span> */</div><div class="line"><a name="l04017"></a><span class="lineno"> 4017</span>  {</div><div class="line"><a name="l04018"></a><span class="lineno"> 4018</span>  $$ = dispatch0(word_new);</div><div class="line"><a name="l04019"></a><span class="lineno"> 4019</span>  $$ = dispatch2(word_add, $$, $1);</div><div class="line"><a name="l04020"></a><span class="lineno"> 4020</span>  }</div><div class="line"><a name="l04021"></a><span class="lineno"> 4021</span> </div><div class="line"><a name="l04022"></a><span class="lineno"> 4022</span>  | word string_content</div><div class="line"><a name="l04023"></a><span class="lineno"> 4023</span>  {</div><div class="line"><a name="l04024"></a><span class="lineno"> 4024</span> #if 0</div><div class="line"><a name="l04025"></a><span class="lineno"> 4025</span>  $$ = literal_concat($1, $2);</div><div class="line"><a name="l04026"></a><span class="lineno"> 4026</span> #endif</div><div class="line"><a name="l04027"></a><span class="lineno"> 4027</span>  $$ = dispatch2(word_add, $1, $2);</div><div class="line"><a name="l04028"></a><span class="lineno"> 4028</span> </div><div class="line"><a name="l04029"></a><span class="lineno"> 4029</span>  }</div><div class="line"><a name="l04030"></a><span class="lineno"> 4030</span>  ;</div><div class="line"><a name="l04031"></a><span class="lineno"> 4031</span> </div><div class="line"><a name="l04032"></a><span class="lineno"> 4032</span> qwords : tQWORDS_BEG ' ' tSTRING_END</div><div class="line"><a name="l04033"></a><span class="lineno"> 4033</span>  {</div><div class="line"><a name="l04034"></a><span class="lineno"> 4034</span> #if 0</div><div class="line"><a name="l04035"></a><span class="lineno"> 4035</span>  $$ = NEW_ZARRAY();</div><div class="line"><a name="l04036"></a><span class="lineno"> 4036</span> #endif</div><div class="line"><a name="l04037"></a><span class="lineno"> 4037</span>  $$ = dispatch0(qwords_new);</div><div class="line"><a name="l04038"></a><span class="lineno"> 4038</span>  $$ = dispatch1(array, $$);</div><div class="line"><a name="l04039"></a><span class="lineno"> 4039</span> </div><div class="line"><a name="l04040"></a><span class="lineno"> 4040</span>  }</div><div class="line"><a name="l04041"></a><span class="lineno"> 4041</span>  | tQWORDS_BEG qword_list tSTRING_END</div><div class="line"><a name="l04042"></a><span class="lineno"> 4042</span>  {</div><div class="line"><a name="l04043"></a><span class="lineno"> 4043</span> #if 0</div><div class="line"><a name="l04044"></a><span class="lineno"> 4044</span>  $$ = $2;</div><div class="line"><a name="l04045"></a><span class="lineno"> 4045</span> #endif</div><div class="line"><a name="l04046"></a><span class="lineno"> 4046</span>  $$ = dispatch1(array, $2);</div><div class="line"><a name="l04047"></a><span class="lineno"> 4047</span> </div><div class="line"><a name="l04048"></a><span class="lineno"> 4048</span>  }</div><div class="line"><a name="l04049"></a><span class="lineno"> 4049</span>  ;</div><div class="line"><a name="l04050"></a><span class="lineno"> 4050</span> </div><div class="line"><a name="l04051"></a><span class="lineno"> 4051</span> qword_list : /* none */</div><div class="line"><a name="l04052"></a><span class="lineno"> 4052</span>  {</div><div class="line"><a name="l04053"></a><span class="lineno"> 4053</span> #if 0</div><div class="line"><a name="l04054"></a><span class="lineno"> 4054</span>  $$ = 0;</div><div class="line"><a name="l04055"></a><span class="lineno"> 4055</span> #endif</div><div class="line"><a name="l04056"></a><span class="lineno"> 4056</span>  $$ = dispatch0(qwords_new);</div><div class="line"><a name="l04057"></a><span class="lineno"> 4057</span> </div><div class="line"><a name="l04058"></a><span class="lineno"> 4058</span>  }</div><div class="line"><a name="l04059"></a><span class="lineno"> 4059</span>  | qword_list tSTRING_CONTENT ' '</div><div class="line"><a name="l04060"></a><span class="lineno"> 4060</span>  {</div><div class="line"><a name="l04061"></a><span class="lineno"> 4061</span> #if 0</div><div class="line"><a name="l04062"></a><span class="lineno"> 4062</span>  $$ = list_append($1, $2);</div><div class="line"><a name="l04063"></a><span class="lineno"> 4063</span> #endif</div><div class="line"><a name="l04064"></a><span class="lineno"> 4064</span>  $$ = dispatch2(qwords_add, $1, $2);</div><div class="line"><a name="l04065"></a><span class="lineno"> 4065</span> </div><div class="line"><a name="l04066"></a><span class="lineno"> 4066</span>  }</div><div class="line"><a name="l04067"></a><span class="lineno"> 4067</span>  ;</div><div class="line"><a name="l04068"></a><span class="lineno"> 4068</span> </div><div class="line"><a name="l04069"></a><span class="lineno"> 4069</span> string_contents : /* none */</div><div class="line"><a name="l04070"></a><span class="lineno"> 4070</span>  {</div><div class="line"><a name="l04071"></a><span class="lineno"> 4071</span> #if 0</div><div class="line"><a name="l04072"></a><span class="lineno"> 4072</span>  $$ = 0;</div><div class="line"><a name="l04073"></a><span class="lineno"> 4073</span> #endif</div><div class="line"><a name="l04074"></a><span class="lineno"> 4074</span>  $$ = dispatch0(string_content);</div><div class="line"><a name="l04075"></a><span class="lineno"> 4075</span> </div><div class="line"><a name="l04076"></a><span class="lineno"> 4076</span>  }</div><div class="line"><a name="l04077"></a><span class="lineno"> 4077</span>  | string_contents string_content</div><div class="line"><a name="l04078"></a><span class="lineno"> 4078</span>  {</div><div class="line"><a name="l04079"></a><span class="lineno"> 4079</span> #if 0</div><div class="line"><a name="l04080"></a><span class="lineno"> 4080</span>  $$ = literal_concat($1, $2);</div><div class="line"><a name="l04081"></a><span class="lineno"> 4081</span> #endif</div><div class="line"><a name="l04082"></a><span class="lineno"> 4082</span>  $$ = dispatch2(string_add, $1, $2);</div><div class="line"><a name="l04083"></a><span class="lineno"> 4083</span> </div><div class="line"><a name="l04084"></a><span class="lineno"> 4084</span>  }</div><div class="line"><a name="l04085"></a><span class="lineno"> 4085</span>  ;</div><div class="line"><a name="l04086"></a><span class="lineno"> 4086</span> </div><div class="line"><a name="l04087"></a><span class="lineno"> 4087</span> xstring_contents: /* none */</div><div class="line"><a name="l04088"></a><span class="lineno"> 4088</span>  {</div><div class="line"><a name="l04089"></a><span class="lineno"> 4089</span> #if 0</div><div class="line"><a name="l04090"></a><span class="lineno"> 4090</span>  $$ = 0;</div><div class="line"><a name="l04091"></a><span class="lineno"> 4091</span> #endif</div><div class="line"><a name="l04092"></a><span class="lineno"> 4092</span>  $$ = dispatch0(xstring_new);</div><div class="line"><a name="l04093"></a><span class="lineno"> 4093</span> </div><div class="line"><a name="l04094"></a><span class="lineno"> 4094</span>  }</div><div class="line"><a name="l04095"></a><span class="lineno"> 4095</span>  | xstring_contents string_content</div><div class="line"><a name="l04096"></a><span class="lineno"> 4096</span>  {</div><div class="line"><a name="l04097"></a><span class="lineno"> 4097</span> #if 0</div><div class="line"><a name="l04098"></a><span class="lineno"> 4098</span>  $$ = literal_concat($1, $2);</div><div class="line"><a name="l04099"></a><span class="lineno"> 4099</span> #endif</div><div class="line"><a name="l04100"></a><span class="lineno"> 4100</span>  $$ = dispatch2(xstring_add, $1, $2);</div><div class="line"><a name="l04101"></a><span class="lineno"> 4101</span> </div><div class="line"><a name="l04102"></a><span class="lineno"> 4102</span>  }</div><div class="line"><a name="l04103"></a><span class="lineno"> 4103</span>  ;</div><div class="line"><a name="l04104"></a><span class="lineno"> 4104</span> </div><div class="line"><a name="l04105"></a><span class="lineno"> 4105</span> regexp_contents: /* none */</div><div class="line"><a name="l04106"></a><span class="lineno"> 4106</span>  {</div><div class="line"><a name="l04107"></a><span class="lineno"> 4107</span> #if 0</div><div class="line"><a name="l04108"></a><span class="lineno"> 4108</span>  $$ = 0;</div><div class="line"><a name="l04109"></a><span class="lineno"> 4109</span> #endif</div><div class="line"><a name="l04110"></a><span class="lineno"> 4110</span>  $$ = dispatch0(regexp_new);</div><div class="line"><a name="l04111"></a><span class="lineno"> 4111</span> </div><div class="line"><a name="l04112"></a><span class="lineno"> 4112</span>  }</div><div class="line"><a name="l04113"></a><span class="lineno"> 4113</span>  | regexp_contents string_content</div><div class="line"><a name="l04114"></a><span class="lineno"> 4114</span>  {</div><div class="line"><a name="l04115"></a><span class="lineno"> 4115</span> #if 0</div><div class="line"><a name="l04116"></a><span class="lineno"> 4116</span>  NODE *head = $1, *tail = $2;</div><div class="line"><a name="l04117"></a><span class="lineno"> 4117</span>  if (!head) {</div><div class="line"><a name="l04118"></a><span class="lineno"> 4118</span>  $$ = tail;</div><div class="line"><a name="l04119"></a><span class="lineno"> 4119</span>  }</div><div class="line"><a name="l04120"></a><span class="lineno"> 4120</span>  else if (!tail) {</div><div class="line"><a name="l04121"></a><span class="lineno"> 4121</span>  $$ = head;</div><div class="line"><a name="l04122"></a><span class="lineno"> 4122</span>  }</div><div class="line"><a name="l04123"></a><span class="lineno"> 4123</span>  else {</div><div class="line"><a name="l04124"></a><span class="lineno"> 4124</span>  switch (nd_type(head)) {</div><div class="line"><a name="l04125"></a><span class="lineno"> 4125</span>  case NODE_STR:</div><div class="line"><a name="l04126"></a><span class="lineno"> 4126</span>  nd_set_type(head, NODE_DSTR);</div><div class="line"><a name="l04127"></a><span class="lineno"> 4127</span>  break;</div><div class="line"><a name="l04128"></a><span class="lineno"> 4128</span>  case NODE_DSTR:</div><div class="line"><a name="l04129"></a><span class="lineno"> 4129</span>  break;</div><div class="line"><a name="l04130"></a><span class="lineno"> 4130</span>  default:</div><div class="line"><a name="l04131"></a><span class="lineno"> 4131</span>  head = list_append(NEW_DSTR(Qnil), head);</div><div class="line"><a name="l04132"></a><span class="lineno"> 4132</span>  break;</div><div class="line"><a name="l04133"></a><span class="lineno"> 4133</span>  }</div><div class="line"><a name="l04134"></a><span class="lineno"> 4134</span>  $$ = list_append(head, tail);</div><div class="line"><a name="l04135"></a><span class="lineno"> 4135</span>  }</div><div class="line"><a name="l04136"></a><span class="lineno"> 4136</span> #endif</div><div class="line"><a name="l04137"></a><span class="lineno"> 4137</span>  $$ = dispatch2(regexp_add, $1, $2);</div><div class="line"><a name="l04138"></a><span class="lineno"> 4138</span> </div><div class="line"><a name="l04139"></a><span class="lineno"> 4139</span>  }</div><div class="line"><a name="l04140"></a><span class="lineno"> 4140</span>  ;</div><div class="line"><a name="l04141"></a><span class="lineno"> 4141</span> </div><div class="line"><a name="l04142"></a><span class="lineno"> 4142</span> string_content : tSTRING_CONTENT</div><div class="line"><a name="l04143"></a><span class="lineno"> 4143</span>  | tSTRING_DVAR</div><div class="line"><a name="l04144"></a><span class="lineno"> 4144</span>  {</div><div class="line"><a name="l04145"></a><span class="lineno"> 4145</span>  $<node>$ = lex_strterm;</div><div class="line"><a name="l04146"></a><span class="lineno"> 4146</span>  lex_strterm = 0;</div><div class="line"><a name="l04147"></a><span class="lineno"> 4147</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l04148"></a><span class="lineno"> 4148</span>  }</div><div class="line"><a name="l04149"></a><span class="lineno"> 4149</span>  string_dvar</div><div class="line"><a name="l04150"></a><span class="lineno"> 4150</span>  {</div><div class="line"><a name="l04151"></a><span class="lineno"> 4151</span> #if 0</div><div class="line"><a name="l04152"></a><span class="lineno"> 4152</span>  lex_strterm = $<node>2;</div><div class="line"><a name="l04153"></a><span class="lineno"> 4153</span>  $$ = NEW_EVSTR($3);</div><div class="line"><a name="l04154"></a><span class="lineno"> 4154</span> #endif</div><div class="line"><a name="l04155"></a><span class="lineno"> 4155</span>  lex_strterm = $<node>2;</div><div class="line"><a name="l04156"></a><span class="lineno"> 4156</span>  $$ = dispatch1(string_dvar, $3);</div><div class="line"><a name="l04157"></a><span class="lineno"> 4157</span> </div><div class="line"><a name="l04158"></a><span class="lineno"> 4158</span>  }</div><div class="line"><a name="l04159"></a><span class="lineno"> 4159</span>  | tSTRING_DBEG</div><div class="line"><a name="l04160"></a><span class="lineno"> 4160</span>  {</div><div class="line"><a name="l04161"></a><span class="lineno"> 4161</span>  $<val>1 = cond_stack;</div><div class="line"><a name="l04162"></a><span class="lineno"> 4162</span>  $<val>$ = cmdarg_stack;</div><div class="line"><a name="l04163"></a><span class="lineno"> 4163</span>  cond_stack = 0;</div><div class="line"><a name="l04164"></a><span class="lineno"> 4164</span>  cmdarg_stack = 0;</div><div class="line"><a name="l04165"></a><span class="lineno"> 4165</span>  }</div><div class="line"><a name="l04166"></a><span class="lineno"> 4166</span>  {</div><div class="line"><a name="l04167"></a><span class="lineno"> 4167</span>  $<node>$ = lex_strterm;</div><div class="line"><a name="l04168"></a><span class="lineno"> 4168</span>  lex_strterm = 0;</div><div class="line"><a name="l04169"></a><span class="lineno"> 4169</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l04170"></a><span class="lineno"> 4170</span>  }</div><div class="line"><a name="l04171"></a><span class="lineno"> 4171</span>  compstmt '}'</div><div class="line"><a name="l04172"></a><span class="lineno"> 4172</span>  {</div><div class="line"><a name="l04173"></a><span class="lineno"> 4173</span>  cond_stack = $<val>1;</div><div class="line"><a name="l04174"></a><span class="lineno"> 4174</span>  cmdarg_stack = $<val>2;</div><div class="line"><a name="l04175"></a><span class="lineno"> 4175</span>  lex_strterm = $<node>3;</div><div class="line"><a name="l04176"></a><span class="lineno"> 4176</span> #if 0</div><div class="line"><a name="l04177"></a><span class="lineno"> 4177</span>  if ($4) $4->flags &= ~NODE_FL_NEWLINE;</div><div class="line"><a name="l04178"></a><span class="lineno"> 4178</span>  $$ = new_evstr($4);</div><div class="line"><a name="l04179"></a><span class="lineno"> 4179</span> #endif</div><div class="line"><a name="l04180"></a><span class="lineno"> 4180</span>  $$ = dispatch1(string_embexpr, $4);</div><div class="line"><a name="l04181"></a><span class="lineno"> 4181</span> </div><div class="line"><a name="l04182"></a><span class="lineno"> 4182</span>  }</div><div class="line"><a name="l04183"></a><span class="lineno"> 4183</span>  ;</div><div class="line"><a name="l04184"></a><span class="lineno"> 4184</span> </div><div class="line"><a name="l04185"></a><span class="lineno"> 4185</span> string_dvar : tGVAR</div><div class="line"><a name="l04186"></a><span class="lineno"> 4186</span>  {</div><div class="line"><a name="l04187"></a><span class="lineno"> 4187</span> #if 0</div><div class="line"><a name="l04188"></a><span class="lineno"> 4188</span>  $$ = NEW_GVAR($1);</div><div class="line"><a name="l04189"></a><span class="lineno"> 4189</span> #endif</div><div class="line"><a name="l04190"></a><span class="lineno"> 4190</span>  $$ = dispatch1(var_ref, $1);</div><div class="line"><a name="l04191"></a><span class="lineno"> 4191</span> </div><div class="line"><a name="l04192"></a><span class="lineno"> 4192</span>  }</div><div class="line"><a name="l04193"></a><span class="lineno"> 4193</span>  | tIVAR</div><div class="line"><a name="l04194"></a><span class="lineno"> 4194</span>  {</div><div class="line"><a name="l04195"></a><span class="lineno"> 4195</span> #if 0</div><div class="line"><a name="l04196"></a><span class="lineno"> 4196</span>  $$ = NEW_IVAR($1);</div><div class="line"><a name="l04197"></a><span class="lineno"> 4197</span> #endif</div><div class="line"><a name="l04198"></a><span class="lineno"> 4198</span>  $$ = dispatch1(var_ref, $1);</div><div class="line"><a name="l04199"></a><span class="lineno"> 4199</span> </div><div class="line"><a name="l04200"></a><span class="lineno"> 4200</span>  }</div><div class="line"><a name="l04201"></a><span class="lineno"> 4201</span>  | tCVAR</div><div class="line"><a name="l04202"></a><span class="lineno"> 4202</span>  {</div><div class="line"><a name="l04203"></a><span class="lineno"> 4203</span> #if 0</div><div class="line"><a name="l04204"></a><span class="lineno"> 4204</span>  $$ = NEW_CVAR($1);</div><div class="line"><a name="l04205"></a><span class="lineno"> 4205</span> #endif</div><div class="line"><a name="l04206"></a><span class="lineno"> 4206</span>  $$ = dispatch1(var_ref, $1);</div><div class="line"><a name="l04207"></a><span class="lineno"> 4207</span> </div><div class="line"><a name="l04208"></a><span class="lineno"> 4208</span>  }</div><div class="line"><a name="l04209"></a><span class="lineno"> 4209</span>  | backref</div><div class="line"><a name="l04210"></a><span class="lineno"> 4210</span>  ;</div><div class="line"><a name="l04211"></a><span class="lineno"> 4211</span> </div><div class="line"><a name="l04212"></a><span class="lineno"> 4212</span> symbol : tSYMBEG sym</div><div class="line"><a name="l04213"></a><span class="lineno"> 4213</span>  {</div><div class="line"><a name="l04214"></a><span class="lineno"> 4214</span>  lex_state = EXPR_END;</div><div class="line"><a name="l04215"></a><span class="lineno"> 4215</span> #if 0</div><div class="line"><a name="l04216"></a><span class="lineno"> 4216</span>  $$ = $2;</div><div class="line"><a name="l04217"></a><span class="lineno"> 4217</span> #endif</div><div class="line"><a name="l04218"></a><span class="lineno"> 4218</span>  $$ = dispatch1(symbol, $2);</div><div class="line"><a name="l04219"></a><span class="lineno"> 4219</span> </div><div class="line"><a name="l04220"></a><span class="lineno"> 4220</span>  }</div><div class="line"><a name="l04221"></a><span class="lineno"> 4221</span>  ;</div><div class="line"><a name="l04222"></a><span class="lineno"> 4222</span> </div><div class="line"><a name="l04223"></a><span class="lineno"> 4223</span> sym : fname</div><div class="line"><a name="l04224"></a><span class="lineno"> 4224</span>  | tIVAR</div><div class="line"><a name="l04225"></a><span class="lineno"> 4225</span>  | tGVAR</div><div class="line"><a name="l04226"></a><span class="lineno"> 4226</span>  | tCVAR</div><div class="line"><a name="l04227"></a><span class="lineno"> 4227</span>  ;</div><div class="line"><a name="l04228"></a><span class="lineno"> 4228</span> </div><div class="line"><a name="l04229"></a><span class="lineno"> 4229</span> dsym : tSYMBEG xstring_contents tSTRING_END</div><div class="line"><a name="l04230"></a><span class="lineno"> 4230</span>  {</div><div class="line"><a name="l04231"></a><span class="lineno"> 4231</span>  lex_state = EXPR_END;</div><div class="line"><a name="l04232"></a><span class="lineno"> 4232</span> #if 0</div><div class="line"><a name="l04233"></a><span class="lineno"> 4233</span>  if (!($$ = $2)) {</div><div class="line"><a name="l04234"></a><span class="lineno"> 4234</span>  $$ = NEW_LIT(ID2SYM(rb_intern("")));</div><div class="line"><a name="l04235"></a><span class="lineno"> 4235</span>  }</div><div class="line"><a name="l04236"></a><span class="lineno"> 4236</span>  else {</div><div class="line"><a name="l04237"></a><span class="lineno"> 4237</span>  VALUE lit;</div><div class="line"><a name="l04238"></a><span class="lineno"> 4238</span> </div><div class="line"><a name="l04239"></a><span class="lineno"> 4239</span>  switch (nd_type($$)) {</div><div class="line"><a name="l04240"></a><span class="lineno"> 4240</span>  case NODE_DSTR:</div><div class="line"><a name="l04241"></a><span class="lineno"> 4241</span>  nd_set_type($$, NODE_DSYM);</div><div class="line"><a name="l04242"></a><span class="lineno"> 4242</span>  break;</div><div class="line"><a name="l04243"></a><span class="lineno"> 4243</span>  case NODE_STR:</div><div class="line"><a name="l04244"></a><span class="lineno"> 4244</span>  lit = $$->nd_lit;</div><div class="line"><a name="l04245"></a><span class="lineno"> 4245</span>  $$->nd_lit = ID2SYM(rb_intern_str(lit));</div><div class="line"><a name="l04246"></a><span class="lineno"> 4246</span>  nd_set_type($$, NODE_LIT);</div><div class="line"><a name="l04247"></a><span class="lineno"> 4247</span>  break;</div><div class="line"><a name="l04248"></a><span class="lineno"> 4248</span>  default:</div><div class="line"><a name="l04249"></a><span class="lineno"> 4249</span>  $$ = NEW_NODE(NODE_DSYM, Qnil, 1, NEW_LIST($$));</div><div class="line"><a name="l04250"></a><span class="lineno"> 4250</span>  break;</div><div class="line"><a name="l04251"></a><span class="lineno"> 4251</span>  }</div><div class="line"><a name="l04252"></a><span class="lineno"> 4252</span>  }</div><div class="line"><a name="l04253"></a><span class="lineno"> 4253</span> #endif</div><div class="line"><a name="l04254"></a><span class="lineno"> 4254</span>  $$ = dispatch1(dyna_symbol, $2);</div><div class="line"><a name="l04255"></a><span class="lineno"> 4255</span> </div><div class="line"><a name="l04256"></a><span class="lineno"> 4256</span>  }</div><div class="line"><a name="l04257"></a><span class="lineno"> 4257</span>  ;</div><div class="line"><a name="l04258"></a><span class="lineno"> 4258</span> </div><div class="line"><a name="l04259"></a><span class="lineno"> 4259</span> numeric : tINTEGER</div><div class="line"><a name="l04260"></a><span class="lineno"> 4260</span>  | tFLOAT</div><div class="line"><a name="l04261"></a><span class="lineno"> 4261</span>  | tUMINUS_NUM tINTEGER %prec tLOWEST</div><div class="line"><a name="l04262"></a><span class="lineno"> 4262</span>  {</div><div class="line"><a name="l04263"></a><span class="lineno"> 4263</span> #if 0</div><div class="line"><a name="l04264"></a><span class="lineno"> 4264</span>  $$ = negate_lit($2);</div><div class="line"><a name="l04265"></a><span class="lineno"> 4265</span> #endif</div><div class="line"><a name="l04266"></a><span class="lineno"> 4266</span>  $$ = dispatch2(unary, ripper_intern("-@"), $2);</div><div class="line"><a name="l04267"></a><span class="lineno"> 4267</span> </div><div class="line"><a name="l04268"></a><span class="lineno"> 4268</span>  }</div><div class="line"><a name="l04269"></a><span class="lineno"> 4269</span>  | tUMINUS_NUM tFLOAT %prec tLOWEST</div><div class="line"><a name="l04270"></a><span class="lineno"> 4270</span>  {</div><div class="line"><a name="l04271"></a><span class="lineno"> 4271</span> #if 0</div><div class="line"><a name="l04272"></a><span class="lineno"> 4272</span>  $$ = negate_lit($2);</div><div class="line"><a name="l04273"></a><span class="lineno"> 4273</span> #endif</div><div class="line"><a name="l04274"></a><span class="lineno"> 4274</span>  $$ = dispatch2(unary, ripper_intern("-@"), $2);</div><div class="line"><a name="l04275"></a><span class="lineno"> 4275</span> </div><div class="line"><a name="l04276"></a><span class="lineno"> 4276</span>  }</div><div class="line"><a name="l04277"></a><span class="lineno"> 4277</span>  ;</div><div class="line"><a name="l04278"></a><span class="lineno"> 4278</span> </div><div class="line"><a name="l04279"></a><span class="lineno"> 4279</span> user_variable : tIDENTIFIER</div><div class="line"><a name="l04280"></a><span class="lineno"> 4280</span>  | tIVAR</div><div class="line"><a name="l04281"></a><span class="lineno"> 4281</span>  | tGVAR</div><div class="line"><a name="l04282"></a><span class="lineno"> 4282</span>  | tCONSTANT</div><div class="line"><a name="l04283"></a><span class="lineno"> 4283</span>  | tCVAR</div><div class="line"><a name="l04284"></a><span class="lineno"> 4284</span>  ;</div><div class="line"><a name="l04285"></a><span class="lineno"> 4285</span> </div><div class="line"><a name="l04286"></a><span class="lineno"> 4286</span> keyword_variable: keyword_nil {ifndef_ripper($$ = keyword_nil);}</div><div class="line"><a name="l04287"></a><span class="lineno"> 4287</span>  | keyword_self {ifndef_ripper($$ = keyword_self);}</div><div class="line"><a name="l04288"></a><span class="lineno"> 4288</span>  | keyword_true {ifndef_ripper($$ = keyword_true);}</div><div class="line"><a name="l04289"></a><span class="lineno"> 4289</span>  | keyword_false {ifndef_ripper($$ = keyword_false);}</div><div class="line"><a name="l04290"></a><span class="lineno"> 4290</span>  | keyword__FILE__ {ifndef_ripper($$ = keyword__FILE__);}</div><div class="line"><a name="l04291"></a><span class="lineno"> 4291</span>  | keyword__LINE__ {ifndef_ripper($$ = keyword__LINE__);}</div><div class="line"><a name="l04292"></a><span class="lineno"> 4292</span>  | keyword__ENCODING__ {ifndef_ripper($$ = keyword__ENCODING__);}</div><div class="line"><a name="l04293"></a><span class="lineno"> 4293</span>  ;</div><div class="line"><a name="l04294"></a><span class="lineno"> 4294</span> </div><div class="line"><a name="l04295"></a><span class="lineno"> 4295</span> var_ref : user_variable</div><div class="line"><a name="l04296"></a><span class="lineno"> 4296</span>  {</div><div class="line"><a name="l04297"></a><span class="lineno"> 4297</span> #if 0</div><div class="line"><a name="l04298"></a><span class="lineno"> 4298</span>  if (!($$ = gettable($1))) $$ = NEW_BEGIN(0);</div><div class="line"><a name="l04299"></a><span class="lineno"> 4299</span> #endif</div><div class="line"><a name="l04300"></a><span class="lineno"> 4300</span>  if (id_is_var(get_id($1))) {</div><div class="line"><a name="l04301"></a><span class="lineno"> 4301</span>  $$ = dispatch1(var_ref, $1);</div><div class="line"><a name="l04302"></a><span class="lineno"> 4302</span>  }</div><div class="line"><a name="l04303"></a><span class="lineno"> 4303</span>  else {</div><div class="line"><a name="l04304"></a><span class="lineno"> 4304</span>  $$ = dispatch1(vcall, $1);</div><div class="line"><a name="l04305"></a><span class="lineno"> 4305</span>  }</div><div class="line"><a name="l04306"></a><span class="lineno"> 4306</span> </div><div class="line"><a name="l04307"></a><span class="lineno"> 4307</span>  }</div><div class="line"><a name="l04308"></a><span class="lineno"> 4308</span>  | keyword_variable</div><div class="line"><a name="l04309"></a><span class="lineno"> 4309</span>  {</div><div class="line"><a name="l04310"></a><span class="lineno"> 4310</span> #if 0</div><div class="line"><a name="l04311"></a><span class="lineno"> 4311</span>  if (!($$ = gettable($1))) $$ = NEW_BEGIN(0);</div><div class="line"><a name="l04312"></a><span class="lineno"> 4312</span> #endif</div><div class="line"><a name="l04313"></a><span class="lineno"> 4313</span>  $$ = dispatch1(var_ref, $1);</div><div class="line"><a name="l04314"></a><span class="lineno"> 4314</span> </div><div class="line"><a name="l04315"></a><span class="lineno"> 4315</span>  }</div><div class="line"><a name="l04316"></a><span class="lineno"> 4316</span>  ;</div><div class="line"><a name="l04317"></a><span class="lineno"> 4317</span> </div><div class="line"><a name="l04318"></a><span class="lineno"> 4318</span> var_lhs : user_variable</div><div class="line"><a name="l04319"></a><span class="lineno"> 4319</span>  {</div><div class="line"><a name="l04320"></a><span class="lineno"> 4320</span>  $$ = assignable($1, 0);</div><div class="line"><a name="l04321"></a><span class="lineno"> 4321</span> #if 0</div><div class="line"><a name="l04322"></a><span class="lineno"> 4322</span> #endif</div><div class="line"><a name="l04323"></a><span class="lineno"> 4323</span>  $$ = dispatch1(var_field, $$);</div><div class="line"><a name="l04324"></a><span class="lineno"> 4324</span> </div><div class="line"><a name="l04325"></a><span class="lineno"> 4325</span>  }</div><div class="line"><a name="l04326"></a><span class="lineno"> 4326</span>  | keyword_variable</div><div class="line"><a name="l04327"></a><span class="lineno"> 4327</span>  {</div><div class="line"><a name="l04328"></a><span class="lineno"> 4328</span>  $$ = assignable($1, 0);</div><div class="line"><a name="l04329"></a><span class="lineno"> 4329</span> #if 0</div><div class="line"><a name="l04330"></a><span class="lineno"> 4330</span> #endif</div><div class="line"><a name="l04331"></a><span class="lineno"> 4331</span>  $$ = dispatch1(var_field, $$);</div><div class="line"><a name="l04332"></a><span class="lineno"> 4332</span> </div><div class="line"><a name="l04333"></a><span class="lineno"> 4333</span>  }</div><div class="line"><a name="l04334"></a><span class="lineno"> 4334</span>  ;</div><div class="line"><a name="l04335"></a><span class="lineno"> 4335</span> </div><div class="line"><a name="l04336"></a><span class="lineno"> 4336</span> backref : tNTH_REF</div><div class="line"><a name="l04337"></a><span class="lineno"> 4337</span>  | tBACK_REF</div><div class="line"><a name="l04338"></a><span class="lineno"> 4338</span>  ;</div><div class="line"><a name="l04339"></a><span class="lineno"> 4339</span> </div><div class="line"><a name="l04340"></a><span class="lineno"> 4340</span> superclass : term</div><div class="line"><a name="l04341"></a><span class="lineno"> 4341</span>  {</div><div class="line"><a name="l04342"></a><span class="lineno"> 4342</span> #if 0</div><div class="line"><a name="l04343"></a><span class="lineno"> 4343</span>  $$ = 0;</div><div class="line"><a name="l04344"></a><span class="lineno"> 4344</span> #endif</div><div class="line"><a name="l04345"></a><span class="lineno"> 4345</span>  $$ = Qnil;</div><div class="line"><a name="l04346"></a><span class="lineno"> 4346</span> </div><div class="line"><a name="l04347"></a><span class="lineno"> 4347</span>  }</div><div class="line"><a name="l04348"></a><span class="lineno"> 4348</span>  | '<'</div><div class="line"><a name="l04349"></a><span class="lineno"> 4349</span>  {</div><div class="line"><a name="l04350"></a><span class="lineno"> 4350</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l04351"></a><span class="lineno"> 4351</span>  }</div><div class="line"><a name="l04352"></a><span class="lineno"> 4352</span>  expr_value term</div><div class="line"><a name="l04353"></a><span class="lineno"> 4353</span>  {</div><div class="line"><a name="l04354"></a><span class="lineno"> 4354</span>  $$ = $3;</div><div class="line"><a name="l04355"></a><span class="lineno"> 4355</span>  }</div><div class="line"><a name="l04356"></a><span class="lineno"> 4356</span>  | error term</div><div class="line"><a name="l04357"></a><span class="lineno"> 4357</span>  {</div><div class="line"><a name="l04358"></a><span class="lineno"> 4358</span> #if 0</div><div class="line"><a name="l04359"></a><span class="lineno"> 4359</span>  yyerrok;</div><div class="line"><a name="l04360"></a><span class="lineno"> 4360</span>  $$ = 0;</div><div class="line"><a name="l04361"></a><span class="lineno"> 4361</span> #endif</div><div class="line"><a name="l04362"></a><span class="lineno"> 4362</span>  yyerrok;</div><div class="line"><a name="l04363"></a><span class="lineno"> 4363</span>  $$ = Qnil;</div><div class="line"><a name="l04364"></a><span class="lineno"> 4364</span> </div><div class="line"><a name="l04365"></a><span class="lineno"> 4365</span>  }</div><div class="line"><a name="l04366"></a><span class="lineno"> 4366</span>  ;</div><div class="line"><a name="l04367"></a><span class="lineno"> 4367</span> </div><div class="line"><a name="l04368"></a><span class="lineno"> 4368</span> f_arglist : '(' f_args rparen</div><div class="line"><a name="l04369"></a><span class="lineno"> 4369</span>  {</div><div class="line"><a name="l04370"></a><span class="lineno"> 4370</span> #if 0</div><div class="line"><a name="l04371"></a><span class="lineno"> 4371</span>  $$ = $2;</div><div class="line"><a name="l04372"></a><span class="lineno"> 4372</span> #endif</div><div class="line"><a name="l04373"></a><span class="lineno"> 4373</span>  $$ = dispatch1(paren, $2);</div><div class="line"><a name="l04374"></a><span class="lineno"> 4374</span> </div><div class="line"><a name="l04375"></a><span class="lineno"> 4375</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l04376"></a><span class="lineno"> 4376</span>  command_start = TRUE;</div><div class="line"><a name="l04377"></a><span class="lineno"> 4377</span>  }</div><div class="line"><a name="l04378"></a><span class="lineno"> 4378</span>  | f_args term</div><div class="line"><a name="l04379"></a><span class="lineno"> 4379</span>  {</div><div class="line"><a name="l04380"></a><span class="lineno"> 4380</span>  $$ = $1;</div><div class="line"><a name="l04381"></a><span class="lineno"> 4381</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l04382"></a><span class="lineno"> 4382</span>  command_start = TRUE;</div><div class="line"><a name="l04383"></a><span class="lineno"> 4383</span>  }</div><div class="line"><a name="l04384"></a><span class="lineno"> 4384</span>  ;</div><div class="line"><a name="l04385"></a><span class="lineno"> 4385</span> </div><div class="line"><a name="l04386"></a><span class="lineno"> 4386</span> f_args : f_arg ',' f_optarg ',' f_rest_arg opt_f_block_arg</div><div class="line"><a name="l04387"></a><span class="lineno"> 4387</span>  {</div><div class="line"><a name="l04388"></a><span class="lineno"> 4388</span> #if 0</div><div class="line"><a name="l04389"></a><span class="lineno"> 4389</span>  $$ = new_args($1, $3, $5, 0, $6);</div><div class="line"><a name="l04390"></a><span class="lineno"> 4390</span> #endif</div><div class="line"><a name="l04391"></a><span class="lineno"> 4391</span>  $$ = params_new($1, $3, $5, Qnil, escape_Qundef($6));</div><div class="line"><a name="l04392"></a><span class="lineno"> 4392</span> </div><div class="line"><a name="l04393"></a><span class="lineno"> 4393</span>  }</div><div class="line"><a name="l04394"></a><span class="lineno"> 4394</span>  | f_arg ',' f_optarg ',' f_rest_arg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l04395"></a><span class="lineno"> 4395</span>  {</div><div class="line"><a name="l04396"></a><span class="lineno"> 4396</span> #if 0</div><div class="line"><a name="l04397"></a><span class="lineno"> 4397</span>  $$ = new_args($1, $3, $5, $7, $8);</div><div class="line"><a name="l04398"></a><span class="lineno"> 4398</span> #endif</div><div class="line"><a name="l04399"></a><span class="lineno"> 4399</span>  $$ = params_new($1, $3, $5, $7, escape_Qundef($8));</div><div class="line"><a name="l04400"></a><span class="lineno"> 4400</span> </div><div class="line"><a name="l04401"></a><span class="lineno"> 4401</span>  }</div><div class="line"><a name="l04402"></a><span class="lineno"> 4402</span>  | f_arg ',' f_optarg opt_f_block_arg</div><div class="line"><a name="l04403"></a><span class="lineno"> 4403</span>  {</div><div class="line"><a name="l04404"></a><span class="lineno"> 4404</span> #if 0</div><div class="line"><a name="l04405"></a><span class="lineno"> 4405</span>  $$ = new_args($1, $3, 0, 0, $4);</div><div class="line"><a name="l04406"></a><span class="lineno"> 4406</span> #endif</div><div class="line"><a name="l04407"></a><span class="lineno"> 4407</span>  $$ = params_new($1, $3, Qnil, Qnil, escape_Qundef($4));</div><div class="line"><a name="l04408"></a><span class="lineno"> 4408</span> </div><div class="line"><a name="l04409"></a><span class="lineno"> 4409</span>  }</div><div class="line"><a name="l04410"></a><span class="lineno"> 4410</span>  | f_arg ',' f_optarg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l04411"></a><span class="lineno"> 4411</span>  {</div><div class="line"><a name="l04412"></a><span class="lineno"> 4412</span> #if 0</div><div class="line"><a name="l04413"></a><span class="lineno"> 4413</span>  $$ = new_args($1, $3, 0, $5, $6);</div><div class="line"><a name="l04414"></a><span class="lineno"> 4414</span> #endif</div><div class="line"><a name="l04415"></a><span class="lineno"> 4415</span>  $$ = params_new($1, $3, Qnil, $5, escape_Qundef($6));</div><div class="line"><a name="l04416"></a><span class="lineno"> 4416</span> </div><div class="line"><a name="l04417"></a><span class="lineno"> 4417</span>  }</div><div class="line"><a name="l04418"></a><span class="lineno"> 4418</span>  | f_arg ',' f_rest_arg opt_f_block_arg</div><div class="line"><a name="l04419"></a><span class="lineno"> 4419</span>  {</div><div class="line"><a name="l04420"></a><span class="lineno"> 4420</span> #if 0</div><div class="line"><a name="l04421"></a><span class="lineno"> 4421</span>  $$ = new_args($1, 0, $3, 0, $4);</div><div class="line"><a name="l04422"></a><span class="lineno"> 4422</span> #endif</div><div class="line"><a name="l04423"></a><span class="lineno"> 4423</span>  $$ = params_new($1, Qnil, $3, Qnil, escape_Qundef($4));</div><div class="line"><a name="l04424"></a><span class="lineno"> 4424</span> </div><div class="line"><a name="l04425"></a><span class="lineno"> 4425</span>  }</div><div class="line"><a name="l04426"></a><span class="lineno"> 4426</span>  | f_arg ',' f_rest_arg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l04427"></a><span class="lineno"> 4427</span>  {</div><div class="line"><a name="l04428"></a><span class="lineno"> 4428</span> #if 0</div><div class="line"><a name="l04429"></a><span class="lineno"> 4429</span>  $$ = new_args($1, 0, $3, $5, $6);</div><div class="line"><a name="l04430"></a><span class="lineno"> 4430</span> #endif</div><div class="line"><a name="l04431"></a><span class="lineno"> 4431</span>  $$ = params_new($1, Qnil, $3, $5, escape_Qundef($6));</div><div class="line"><a name="l04432"></a><span class="lineno"> 4432</span> </div><div class="line"><a name="l04433"></a><span class="lineno"> 4433</span>  }</div><div class="line"><a name="l04434"></a><span class="lineno"> 4434</span>  | f_arg opt_f_block_arg</div><div class="line"><a name="l04435"></a><span class="lineno"> 4435</span>  {</div><div class="line"><a name="l04436"></a><span class="lineno"> 4436</span> #if 0</div><div class="line"><a name="l04437"></a><span class="lineno"> 4437</span>  $$ = new_args($1, 0, 0, 0, $2);</div><div class="line"><a name="l04438"></a><span class="lineno"> 4438</span> #endif</div><div class="line"><a name="l04439"></a><span class="lineno"> 4439</span>  $$ = params_new($1, Qnil, Qnil, Qnil,escape_Qundef($2));</div><div class="line"><a name="l04440"></a><span class="lineno"> 4440</span> </div><div class="line"><a name="l04441"></a><span class="lineno"> 4441</span>  }</div><div class="line"><a name="l04442"></a><span class="lineno"> 4442</span>  | f_optarg ',' f_rest_arg opt_f_block_arg</div><div class="line"><a name="l04443"></a><span class="lineno"> 4443</span>  {</div><div class="line"><a name="l04444"></a><span class="lineno"> 4444</span> #if 0</div><div class="line"><a name="l04445"></a><span class="lineno"> 4445</span>  $$ = new_args(0, $1, $3, 0, $4);</div><div class="line"><a name="l04446"></a><span class="lineno"> 4446</span> #endif</div><div class="line"><a name="l04447"></a><span class="lineno"> 4447</span>  $$ = params_new(Qnil, $1, $3, Qnil, escape_Qundef($4));</div><div class="line"><a name="l04448"></a><span class="lineno"> 4448</span> </div><div class="line"><a name="l04449"></a><span class="lineno"> 4449</span>  }</div><div class="line"><a name="l04450"></a><span class="lineno"> 4450</span>  | f_optarg ',' f_rest_arg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l04451"></a><span class="lineno"> 4451</span>  {</div><div class="line"><a name="l04452"></a><span class="lineno"> 4452</span> #if 0</div><div class="line"><a name="l04453"></a><span class="lineno"> 4453</span>  $$ = new_args(0, $1, $3, $5, $6);</div><div class="line"><a name="l04454"></a><span class="lineno"> 4454</span> #endif</div><div class="line"><a name="l04455"></a><span class="lineno"> 4455</span>  $$ = params_new(Qnil, $1, $3, $5, escape_Qundef($6));</div><div class="line"><a name="l04456"></a><span class="lineno"> 4456</span> </div><div class="line"><a name="l04457"></a><span class="lineno"> 4457</span>  }</div><div class="line"><a name="l04458"></a><span class="lineno"> 4458</span>  | f_optarg opt_f_block_arg</div><div class="line"><a name="l04459"></a><span class="lineno"> 4459</span>  {</div><div class="line"><a name="l04460"></a><span class="lineno"> 4460</span> #if 0</div><div class="line"><a name="l04461"></a><span class="lineno"> 4461</span>  $$ = new_args(0, $1, 0, 0, $2);</div><div class="line"><a name="l04462"></a><span class="lineno"> 4462</span> #endif</div><div class="line"><a name="l04463"></a><span class="lineno"> 4463</span>  $$ = params_new(Qnil, $1, Qnil, Qnil,escape_Qundef($2));</div><div class="line"><a name="l04464"></a><span class="lineno"> 4464</span> </div><div class="line"><a name="l04465"></a><span class="lineno"> 4465</span>  }</div><div class="line"><a name="l04466"></a><span class="lineno"> 4466</span>  | f_optarg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l04467"></a><span class="lineno"> 4467</span>  {</div><div class="line"><a name="l04468"></a><span class="lineno"> 4468</span> #if 0</div><div class="line"><a name="l04469"></a><span class="lineno"> 4469</span>  $$ = new_args(0, $1, 0, $3, $4);</div><div class="line"><a name="l04470"></a><span class="lineno"> 4470</span> #endif</div><div class="line"><a name="l04471"></a><span class="lineno"> 4471</span>  $$ = params_new(Qnil, $1, Qnil, $3, escape_Qundef($4));</div><div class="line"><a name="l04472"></a><span class="lineno"> 4472</span> </div><div class="line"><a name="l04473"></a><span class="lineno"> 4473</span>  }</div><div class="line"><a name="l04474"></a><span class="lineno"> 4474</span>  | f_rest_arg opt_f_block_arg</div><div class="line"><a name="l04475"></a><span class="lineno"> 4475</span>  {</div><div class="line"><a name="l04476"></a><span class="lineno"> 4476</span> #if 0</div><div class="line"><a name="l04477"></a><span class="lineno"> 4477</span>  $$ = new_args(0, 0, $1, 0, $2);</div><div class="line"><a name="l04478"></a><span class="lineno"> 4478</span> #endif</div><div class="line"><a name="l04479"></a><span class="lineno"> 4479</span>  $$ = params_new(Qnil, Qnil, $1, Qnil,escape_Qundef($2));</div><div class="line"><a name="l04480"></a><span class="lineno"> 4480</span> </div><div class="line"><a name="l04481"></a><span class="lineno"> 4481</span>  }</div><div class="line"><a name="l04482"></a><span class="lineno"> 4482</span>  | f_rest_arg ',' f_arg opt_f_block_arg</div><div class="line"><a name="l04483"></a><span class="lineno"> 4483</span>  {</div><div class="line"><a name="l04484"></a><span class="lineno"> 4484</span> #if 0</div><div class="line"><a name="l04485"></a><span class="lineno"> 4485</span>  $$ = new_args(0, 0, $1, $3, $4);</div><div class="line"><a name="l04486"></a><span class="lineno"> 4486</span> #endif</div><div class="line"><a name="l04487"></a><span class="lineno"> 4487</span>  $$ = params_new(Qnil, Qnil, $1, $3, escape_Qundef($4));</div><div class="line"><a name="l04488"></a><span class="lineno"> 4488</span> </div><div class="line"><a name="l04489"></a><span class="lineno"> 4489</span>  }</div><div class="line"><a name="l04490"></a><span class="lineno"> 4490</span>  | f_block_arg</div><div class="line"><a name="l04491"></a><span class="lineno"> 4491</span>  {</div><div class="line"><a name="l04492"></a><span class="lineno"> 4492</span> #if 0</div><div class="line"><a name="l04493"></a><span class="lineno"> 4493</span>  $$ = new_args(0, 0, 0, 0, $1);</div><div class="line"><a name="l04494"></a><span class="lineno"> 4494</span> #endif</div><div class="line"><a name="l04495"></a><span class="lineno"> 4495</span>  $$ = params_new(Qnil, Qnil, Qnil, Qnil, $1);</div><div class="line"><a name="l04496"></a><span class="lineno"> 4496</span> </div><div class="line"><a name="l04497"></a><span class="lineno"> 4497</span>  }</div><div class="line"><a name="l04498"></a><span class="lineno"> 4498</span>  | /* none */</div><div class="line"><a name="l04499"></a><span class="lineno"> 4499</span>  {</div><div class="line"><a name="l04500"></a><span class="lineno"> 4500</span> #if 0</div><div class="line"><a name="l04501"></a><span class="lineno"> 4501</span>  $$ = new_args(0, 0, 0, 0, 0);</div><div class="line"><a name="l04502"></a><span class="lineno"> 4502</span> #endif</div><div class="line"><a name="l04503"></a><span class="lineno"> 4503</span>  $$ = params_new(Qnil, Qnil, Qnil, Qnil, Qnil);</div><div class="line"><a name="l04504"></a><span class="lineno"> 4504</span> </div><div class="line"><a name="l04505"></a><span class="lineno"> 4505</span>  }</div><div class="line"><a name="l04506"></a><span class="lineno"> 4506</span>  ;</div><div class="line"><a name="l04507"></a><span class="lineno"> 4507</span> </div><div class="line"><a name="l04508"></a><span class="lineno"> 4508</span> f_bad_arg : tCONSTANT</div><div class="line"><a name="l04509"></a><span class="lineno"> 4509</span>  {</div><div class="line"><a name="l04510"></a><span class="lineno"> 4510</span> #if 0</div><div class="line"><a name="l04511"></a><span class="lineno"> 4511</span>  yyerror("formal argument cannot be a constant");</div><div class="line"><a name="l04512"></a><span class="lineno"> 4512</span>  $$ = 0;</div><div class="line"><a name="l04513"></a><span class="lineno"> 4513</span> #endif</div><div class="line"><a name="l04514"></a><span class="lineno"> 4514</span>  $$ = dispatch1(param_error, $1);</div><div class="line"><a name="l04515"></a><span class="lineno"> 4515</span> </div><div class="line"><a name="l04516"></a><span class="lineno"> 4516</span>  }</div><div class="line"><a name="l04517"></a><span class="lineno"> 4517</span>  | tIVAR</div><div class="line"><a name="l04518"></a><span class="lineno"> 4518</span>  {</div><div class="line"><a name="l04519"></a><span class="lineno"> 4519</span> #if 0</div><div class="line"><a name="l04520"></a><span class="lineno"> 4520</span>  yyerror("formal argument cannot be an instance variable");</div><div class="line"><a name="l04521"></a><span class="lineno"> 4521</span>  $$ = 0;</div><div class="line"><a name="l04522"></a><span class="lineno"> 4522</span> #endif</div><div class="line"><a name="l04523"></a><span class="lineno"> 4523</span>  $$ = dispatch1(param_error, $1);</div><div class="line"><a name="l04524"></a><span class="lineno"> 4524</span> </div><div class="line"><a name="l04525"></a><span class="lineno"> 4525</span>  }</div><div class="line"><a name="l04526"></a><span class="lineno"> 4526</span>  | tGVAR</div><div class="line"><a name="l04527"></a><span class="lineno"> 4527</span>  {</div><div class="line"><a name="l04528"></a><span class="lineno"> 4528</span> #if 0</div><div class="line"><a name="l04529"></a><span class="lineno"> 4529</span>  yyerror("formal argument cannot be a global variable");</div><div class="line"><a name="l04530"></a><span class="lineno"> 4530</span>  $$ = 0;</div><div class="line"><a name="l04531"></a><span class="lineno"> 4531</span> #endif</div><div class="line"><a name="l04532"></a><span class="lineno"> 4532</span>  $$ = dispatch1(param_error, $1);</div><div class="line"><a name="l04533"></a><span class="lineno"> 4533</span> </div><div class="line"><a name="l04534"></a><span class="lineno"> 4534</span>  }</div><div class="line"><a name="l04535"></a><span class="lineno"> 4535</span>  | tCVAR</div><div class="line"><a name="l04536"></a><span class="lineno"> 4536</span>  {</div><div class="line"><a name="l04537"></a><span class="lineno"> 4537</span> #if 0</div><div class="line"><a name="l04538"></a><span class="lineno"> 4538</span>  yyerror("formal argument cannot be a class variable");</div><div class="line"><a name="l04539"></a><span class="lineno"> 4539</span>  $$ = 0;</div><div class="line"><a name="l04540"></a><span class="lineno"> 4540</span> #endif</div><div class="line"><a name="l04541"></a><span class="lineno"> 4541</span>  $$ = dispatch1(param_error, $1);</div><div class="line"><a name="l04542"></a><span class="lineno"> 4542</span> </div><div class="line"><a name="l04543"></a><span class="lineno"> 4543</span>  }</div><div class="line"><a name="l04544"></a><span class="lineno"> 4544</span>  ;</div><div class="line"><a name="l04545"></a><span class="lineno"> 4545</span> </div><div class="line"><a name="l04546"></a><span class="lineno"> 4546</span> f_norm_arg : f_bad_arg</div><div class="line"><a name="l04547"></a><span class="lineno"> 4547</span>  | tIDENTIFIER</div><div class="line"><a name="l04548"></a><span class="lineno"> 4548</span>  {</div><div class="line"><a name="l04549"></a><span class="lineno"> 4549</span>  formal_argument(get_id($1));</div><div class="line"><a name="l04550"></a><span class="lineno"> 4550</span>  $$ = $1;</div><div class="line"><a name="l04551"></a><span class="lineno"> 4551</span>  }</div><div class="line"><a name="l04552"></a><span class="lineno"> 4552</span>  ;</div><div class="line"><a name="l04553"></a><span class="lineno"> 4553</span> </div><div class="line"><a name="l04554"></a><span class="lineno"> 4554</span> f_arg_item : f_norm_arg</div><div class="line"><a name="l04555"></a><span class="lineno"> 4555</span>  {</div><div class="line"><a name="l04556"></a><span class="lineno"> 4556</span>  arg_var(get_id($1));</div><div class="line"><a name="l04557"></a><span class="lineno"> 4557</span> #if 0</div><div class="line"><a name="l04558"></a><span class="lineno"> 4558</span>  $$ = NEW_ARGS_AUX($1, 1);</div><div class="line"><a name="l04559"></a><span class="lineno"> 4559</span> #endif</div><div class="line"><a name="l04560"></a><span class="lineno"> 4560</span>  $$ = get_value($1);</div><div class="line"><a name="l04561"></a><span class="lineno"> 4561</span> </div><div class="line"><a name="l04562"></a><span class="lineno"> 4562</span>  }</div><div class="line"><a name="l04563"></a><span class="lineno"> 4563</span>  | tLPAREN f_margs rparen</div><div class="line"><a name="l04564"></a><span class="lineno"> 4564</span>  {</div><div class="line"><a name="l04565"></a><span class="lineno"> 4565</span>  ID tid = internal_id();</div><div class="line"><a name="l04566"></a><span class="lineno"> 4566</span>  arg_var(tid);</div><div class="line"><a name="l04567"></a><span class="lineno"> 4567</span> #if 0</div><div class="line"><a name="l04568"></a><span class="lineno"> 4568</span>  if (dyna_in_block()) {</div><div class="line"><a name="l04569"></a><span class="lineno"> 4569</span>  $2->nd_value = NEW_DVAR(tid);</div><div class="line"><a name="l04570"></a><span class="lineno"> 4570</span>  }</div><div class="line"><a name="l04571"></a><span class="lineno"> 4571</span>  else {</div><div class="line"><a name="l04572"></a><span class="lineno"> 4572</span>  $2->nd_value = NEW_LVAR(tid);</div><div class="line"><a name="l04573"></a><span class="lineno"> 4573</span>  }</div><div class="line"><a name="l04574"></a><span class="lineno"> 4574</span>  $$ = NEW_ARGS_AUX(tid, 1);</div><div class="line"><a name="l04575"></a><span class="lineno"> 4575</span>  $$->nd_next = $2;</div><div class="line"><a name="l04576"></a><span class="lineno"> 4576</span> #endif</div><div class="line"><a name="l04577"></a><span class="lineno"> 4577</span>  $$ = dispatch1(mlhs_paren, $2);</div><div class="line"><a name="l04578"></a><span class="lineno"> 4578</span> </div><div class="line"><a name="l04579"></a><span class="lineno"> 4579</span>  }</div><div class="line"><a name="l04580"></a><span class="lineno"> 4580</span>  ;</div><div class="line"><a name="l04581"></a><span class="lineno"> 4581</span> </div><div class="line"><a name="l04582"></a><span class="lineno"> 4582</span> f_arg : f_arg_item</div><div class="line"><a name="l04583"></a><span class="lineno"> 4583</span> /*</div><div class="line"><a name="l04584"></a><span class="lineno"> 4584</span> */</div><div class="line"><a name="l04585"></a><span class="lineno"> 4585</span>  {</div><div class="line"><a name="l04586"></a><span class="lineno"> 4586</span>  $$ = rb_ary_new3(1, $1);</div><div class="line"><a name="l04587"></a><span class="lineno"> 4587</span>  }</div><div class="line"><a name="l04588"></a><span class="lineno"> 4588</span> </div><div class="line"><a name="l04589"></a><span class="lineno"> 4589</span>  | f_arg ',' f_arg_item</div><div class="line"><a name="l04590"></a><span class="lineno"> 4590</span>  {</div><div class="line"><a name="l04591"></a><span class="lineno"> 4591</span> #if 0</div><div class="line"><a name="l04592"></a><span class="lineno"> 4592</span>  $$ = $1;</div><div class="line"><a name="l04593"></a><span class="lineno"> 4593</span>  $$->nd_plen++;</div><div class="line"><a name="l04594"></a><span class="lineno"> 4594</span>  $$->nd_next = block_append($$->nd_next, $3->nd_next);</div><div class="line"><a name="l04595"></a><span class="lineno"> 4595</span>  rb_gc_force_recycle((VALUE)$3);</div><div class="line"><a name="l04596"></a><span class="lineno"> 4596</span> #endif</div><div class="line"><a name="l04597"></a><span class="lineno"> 4597</span>  $$ = rb_ary_push($1, $3);</div><div class="line"><a name="l04598"></a><span class="lineno"> 4598</span> </div><div class="line"><a name="l04599"></a><span class="lineno"> 4599</span>  }</div><div class="line"><a name="l04600"></a><span class="lineno"> 4600</span>  ;</div><div class="line"><a name="l04601"></a><span class="lineno"> 4601</span> </div><div class="line"><a name="l04602"></a><span class="lineno"> 4602</span> f_opt : tIDENTIFIER '=' arg_value</div><div class="line"><a name="l04603"></a><span class="lineno"> 4603</span>  {</div><div class="line"><a name="l04604"></a><span class="lineno"> 4604</span>  arg_var(formal_argument(get_id($1)));</div><div class="line"><a name="l04605"></a><span class="lineno"> 4605</span>  $$ = assignable($1, $3);</div><div class="line"><a name="l04606"></a><span class="lineno"> 4606</span> #if 0</div><div class="line"><a name="l04607"></a><span class="lineno"> 4607</span>  $$ = NEW_OPT_ARG(0, $$);</div><div class="line"><a name="l04608"></a><span class="lineno"> 4608</span> #endif</div><div class="line"><a name="l04609"></a><span class="lineno"> 4609</span>  $$ = rb_assoc_new($$, $3);</div><div class="line"><a name="l04610"></a><span class="lineno"> 4610</span> </div><div class="line"><a name="l04611"></a><span class="lineno"> 4611</span>  }</div><div class="line"><a name="l04612"></a><span class="lineno"> 4612</span>  ;</div><div class="line"><a name="l04613"></a><span class="lineno"> 4613</span> </div><div class="line"><a name="l04614"></a><span class="lineno"> 4614</span> f_block_opt : tIDENTIFIER '=' primary_value</div><div class="line"><a name="l04615"></a><span class="lineno"> 4615</span>  {</div><div class="line"><a name="l04616"></a><span class="lineno"> 4616</span>  arg_var(formal_argument(get_id($1)));</div><div class="line"><a name="l04617"></a><span class="lineno"> 4617</span>  $$ = assignable($1, $3);</div><div class="line"><a name="l04618"></a><span class="lineno"> 4618</span> #if 0</div><div class="line"><a name="l04619"></a><span class="lineno"> 4619</span>  $$ = NEW_OPT_ARG(0, $$);</div><div class="line"><a name="l04620"></a><span class="lineno"> 4620</span> #endif</div><div class="line"><a name="l04621"></a><span class="lineno"> 4621</span>  $$ = rb_assoc_new($$, $3);</div><div class="line"><a name="l04622"></a><span class="lineno"> 4622</span> </div><div class="line"><a name="l04623"></a><span class="lineno"> 4623</span>  }</div><div class="line"><a name="l04624"></a><span class="lineno"> 4624</span>  ;</div><div class="line"><a name="l04625"></a><span class="lineno"> 4625</span> </div><div class="line"><a name="l04626"></a><span class="lineno"> 4626</span> f_block_optarg : f_block_opt</div><div class="line"><a name="l04627"></a><span class="lineno"> 4627</span>  {</div><div class="line"><a name="l04628"></a><span class="lineno"> 4628</span> #if 0</div><div class="line"><a name="l04629"></a><span class="lineno"> 4629</span>  $$ = $1;</div><div class="line"><a name="l04630"></a><span class="lineno"> 4630</span> #endif</div><div class="line"><a name="l04631"></a><span class="lineno"> 4631</span>  $$ = rb_ary_new3(1, $1);</div><div class="line"><a name="l04632"></a><span class="lineno"> 4632</span> </div><div class="line"><a name="l04633"></a><span class="lineno"> 4633</span>  }</div><div class="line"><a name="l04634"></a><span class="lineno"> 4634</span>  | f_block_optarg ',' f_block_opt</div><div class="line"><a name="l04635"></a><span class="lineno"> 4635</span>  {</div><div class="line"><a name="l04636"></a><span class="lineno"> 4636</span> #if 0</div><div class="line"><a name="l04637"></a><span class="lineno"> 4637</span>  NODE *opts = $1;</div><div class="line"><a name="l04638"></a><span class="lineno"> 4638</span> </div><div class="line"><a name="l04639"></a><span class="lineno"> 4639</span>  while (opts->nd_next) {</div><div class="line"><a name="l04640"></a><span class="lineno"> 4640</span>  opts = opts->nd_next;</div><div class="line"><a name="l04641"></a><span class="lineno"> 4641</span>  }</div><div class="line"><a name="l04642"></a><span class="lineno"> 4642</span>  opts->nd_next = $3;</div><div class="line"><a name="l04643"></a><span class="lineno"> 4643</span>  $$ = $1;</div><div class="line"><a name="l04644"></a><span class="lineno"> 4644</span> #endif</div><div class="line"><a name="l04645"></a><span class="lineno"> 4645</span>  $$ = rb_ary_push($1, $3);</div><div class="line"><a name="l04646"></a><span class="lineno"> 4646</span> </div><div class="line"><a name="l04647"></a><span class="lineno"> 4647</span>  }</div><div class="line"><a name="l04648"></a><span class="lineno"> 4648</span>  ;</div><div class="line"><a name="l04649"></a><span class="lineno"> 4649</span> </div><div class="line"><a name="l04650"></a><span class="lineno"> 4650</span> f_optarg : f_opt</div><div class="line"><a name="l04651"></a><span class="lineno"> 4651</span>  {</div><div class="line"><a name="l04652"></a><span class="lineno"> 4652</span> #if 0</div><div class="line"><a name="l04653"></a><span class="lineno"> 4653</span>  $$ = $1;</div><div class="line"><a name="l04654"></a><span class="lineno"> 4654</span> #endif</div><div class="line"><a name="l04655"></a><span class="lineno"> 4655</span>  $$ = rb_ary_new3(1, $1);</div><div class="line"><a name="l04656"></a><span class="lineno"> 4656</span> </div><div class="line"><a name="l04657"></a><span class="lineno"> 4657</span>  }</div><div class="line"><a name="l04658"></a><span class="lineno"> 4658</span>  | f_optarg ',' f_opt</div><div class="line"><a name="l04659"></a><span class="lineno"> 4659</span>  {</div><div class="line"><a name="l04660"></a><span class="lineno"> 4660</span> #if 0</div><div class="line"><a name="l04661"></a><span class="lineno"> 4661</span>  NODE *opts = $1;</div><div class="line"><a name="l04662"></a><span class="lineno"> 4662</span> </div><div class="line"><a name="l04663"></a><span class="lineno"> 4663</span>  while (opts->nd_next) {</div><div class="line"><a name="l04664"></a><span class="lineno"> 4664</span>  opts = opts->nd_next;</div><div class="line"><a name="l04665"></a><span class="lineno"> 4665</span>  }</div><div class="line"><a name="l04666"></a><span class="lineno"> 4666</span>  opts->nd_next = $3;</div><div class="line"><a name="l04667"></a><span class="lineno"> 4667</span>  $$ = $1;</div><div class="line"><a name="l04668"></a><span class="lineno"> 4668</span> #endif</div><div class="line"><a name="l04669"></a><span class="lineno"> 4669</span>  $$ = rb_ary_push($1, $3);</div><div class="line"><a name="l04670"></a><span class="lineno"> 4670</span> </div><div class="line"><a name="l04671"></a><span class="lineno"> 4671</span>  }</div><div class="line"><a name="l04672"></a><span class="lineno"> 4672</span>  ;</div><div class="line"><a name="l04673"></a><span class="lineno"> 4673</span> </div><div class="line"><a name="l04674"></a><span class="lineno"> 4674</span> restarg_mark : '*'</div><div class="line"><a name="l04675"></a><span class="lineno"> 4675</span>  | tSTAR</div><div class="line"><a name="l04676"></a><span class="lineno"> 4676</span>  ;</div><div class="line"><a name="l04677"></a><span class="lineno"> 4677</span> </div><div class="line"><a name="l04678"></a><span class="lineno"> 4678</span> f_rest_arg : restarg_mark tIDENTIFIER</div><div class="line"><a name="l04679"></a><span class="lineno"> 4679</span>  {</div><div class="line"><a name="l04680"></a><span class="lineno"> 4680</span> #if 0</div><div class="line"><a name="l04681"></a><span class="lineno"> 4681</span>  if (!is_local_id($2))</div><div class="line"><a name="l04682"></a><span class="lineno"> 4682</span>  yyerror("rest argument must be local variable");</div><div class="line"><a name="l04683"></a><span class="lineno"> 4683</span> #endif</div><div class="line"><a name="l04684"></a><span class="lineno"> 4684</span>  arg_var(shadowing_lvar(get_id($2)));</div><div class="line"><a name="l04685"></a><span class="lineno"> 4685</span> #if 0</div><div class="line"><a name="l04686"></a><span class="lineno"> 4686</span>  $$ = $2;</div><div class="line"><a name="l04687"></a><span class="lineno"> 4687</span> #endif</div><div class="line"><a name="l04688"></a><span class="lineno"> 4688</span>  $$ = dispatch1(rest_param, $2);</div><div class="line"><a name="l04689"></a><span class="lineno"> 4689</span> </div><div class="line"><a name="l04690"></a><span class="lineno"> 4690</span>  }</div><div class="line"><a name="l04691"></a><span class="lineno"> 4691</span>  | restarg_mark</div><div class="line"><a name="l04692"></a><span class="lineno"> 4692</span>  {</div><div class="line"><a name="l04693"></a><span class="lineno"> 4693</span> #if 0</div><div class="line"><a name="l04694"></a><span class="lineno"> 4694</span>  $$ = internal_id();</div><div class="line"><a name="l04695"></a><span class="lineno"> 4695</span>  arg_var($$);</div><div class="line"><a name="l04696"></a><span class="lineno"> 4696</span> #endif</div><div class="line"><a name="l04697"></a><span class="lineno"> 4697</span>  $$ = dispatch1(rest_param, Qnil);</div><div class="line"><a name="l04698"></a><span class="lineno"> 4698</span> </div><div class="line"><a name="l04699"></a><span class="lineno"> 4699</span>  }</div><div class="line"><a name="l04700"></a><span class="lineno"> 4700</span>  ;</div><div class="line"><a name="l04701"></a><span class="lineno"> 4701</span> </div><div class="line"><a name="l04702"></a><span class="lineno"> 4702</span> blkarg_mark : '&'</div><div class="line"><a name="l04703"></a><span class="lineno"> 4703</span>  | tAMPER</div><div class="line"><a name="l04704"></a><span class="lineno"> 4704</span>  ;</div><div class="line"><a name="l04705"></a><span class="lineno"> 4705</span> </div><div class="line"><a name="l04706"></a><span class="lineno"> 4706</span> f_block_arg : blkarg_mark tIDENTIFIER</div><div class="line"><a name="l04707"></a><span class="lineno"> 4707</span>  {</div><div class="line"><a name="l04708"></a><span class="lineno"> 4708</span> #if 0</div><div class="line"><a name="l04709"></a><span class="lineno"> 4709</span>  if (!is_local_id($2))</div><div class="line"><a name="l04710"></a><span class="lineno"> 4710</span>  yyerror("block argument must be local variable");</div><div class="line"><a name="l04711"></a><span class="lineno"> 4711</span>  else if (!dyna_in_block() && local_id($2))</div><div class="line"><a name="l04712"></a><span class="lineno"> 4712</span>  yyerror("duplicated block argument name");</div><div class="line"><a name="l04713"></a><span class="lineno"> 4713</span> #endif</div><div class="line"><a name="l04714"></a><span class="lineno"> 4714</span>  arg_var(shadowing_lvar(get_id($2)));</div><div class="line"><a name="l04715"></a><span class="lineno"> 4715</span> #if 0</div><div class="line"><a name="l04716"></a><span class="lineno"> 4716</span>  $$ = $2;</div><div class="line"><a name="l04717"></a><span class="lineno"> 4717</span> #endif</div><div class="line"><a name="l04718"></a><span class="lineno"> 4718</span>  $$ = dispatch1(blockarg, $2);</div><div class="line"><a name="l04719"></a><span class="lineno"> 4719</span> </div><div class="line"><a name="l04720"></a><span class="lineno"> 4720</span>  }</div><div class="line"><a name="l04721"></a><span class="lineno"> 4721</span>  ;</div><div class="line"><a name="l04722"></a><span class="lineno"> 4722</span> </div><div class="line"><a name="l04723"></a><span class="lineno"> 4723</span> opt_f_block_arg : ',' f_block_arg</div><div class="line"><a name="l04724"></a><span class="lineno"> 4724</span>  {</div><div class="line"><a name="l04725"></a><span class="lineno"> 4725</span>  $$ = $2;</div><div class="line"><a name="l04726"></a><span class="lineno"> 4726</span>  }</div><div class="line"><a name="l04727"></a><span class="lineno"> 4727</span>  | none</div><div class="line"><a name="l04728"></a><span class="lineno"> 4728</span>  {</div><div class="line"><a name="l04729"></a><span class="lineno"> 4729</span> #if 0</div><div class="line"><a name="l04730"></a><span class="lineno"> 4730</span>  $$ = 0;</div><div class="line"><a name="l04731"></a><span class="lineno"> 4731</span> #endif</div><div class="line"><a name="l04732"></a><span class="lineno"> 4732</span>  $$ = Qundef;</div><div class="line"><a name="l04733"></a><span class="lineno"> 4733</span> </div><div class="line"><a name="l04734"></a><span class="lineno"> 4734</span>  }</div><div class="line"><a name="l04735"></a><span class="lineno"> 4735</span>  ;</div><div class="line"><a name="l04736"></a><span class="lineno"> 4736</span> </div><div class="line"><a name="l04737"></a><span class="lineno"> 4737</span> singleton : var_ref</div><div class="line"><a name="l04738"></a><span class="lineno"> 4738</span>  {</div><div class="line"><a name="l04739"></a><span class="lineno"> 4739</span> #if 0</div><div class="line"><a name="l04740"></a><span class="lineno"> 4740</span>  value_expr($1);</div><div class="line"><a name="l04741"></a><span class="lineno"> 4741</span>  $$ = $1;</div><div class="line"><a name="l04742"></a><span class="lineno"> 4742</span>  if (!$$) $$ = NEW_NIL();</div><div class="line"><a name="l04743"></a><span class="lineno"> 4743</span> #endif</div><div class="line"><a name="l04744"></a><span class="lineno"> 4744</span>  $$ = $1;</div><div class="line"><a name="l04745"></a><span class="lineno"> 4745</span> </div><div class="line"><a name="l04746"></a><span class="lineno"> 4746</span>  }</div><div class="line"><a name="l04747"></a><span class="lineno"> 4747</span>  | '(' {lex_state = EXPR_BEG;} expr rparen</div><div class="line"><a name="l04748"></a><span class="lineno"> 4748</span>  {</div><div class="line"><a name="l04749"></a><span class="lineno"> 4749</span> #if 0</div><div class="line"><a name="l04750"></a><span class="lineno"> 4750</span>  if ($3 == 0) {</div><div class="line"><a name="l04751"></a><span class="lineno"> 4751</span>  yyerror("can't define singleton method for ().");</div><div class="line"><a name="l04752"></a><span class="lineno"> 4752</span>  }</div><div class="line"><a name="l04753"></a><span class="lineno"> 4753</span>  else {</div><div class="line"><a name="l04754"></a><span class="lineno"> 4754</span>  switch (nd_type($3)) {</div><div class="line"><a name="l04755"></a><span class="lineno"> 4755</span>  case NODE_STR:</div><div class="line"><a name="l04756"></a><span class="lineno"> 4756</span>  case NODE_DSTR:</div><div class="line"><a name="l04757"></a><span class="lineno"> 4757</span>  case NODE_XSTR:</div><div class="line"><a name="l04758"></a><span class="lineno"> 4758</span>  case NODE_DXSTR:</div><div class="line"><a name="l04759"></a><span class="lineno"> 4759</span>  case NODE_DREGX:</div><div class="line"><a name="l04760"></a><span class="lineno"> 4760</span>  case NODE_LIT:</div><div class="line"><a name="l04761"></a><span class="lineno"> 4761</span>  case NODE_ARRAY:</div><div class="line"><a name="l04762"></a><span class="lineno"> 4762</span>  case NODE_ZARRAY:</div><div class="line"><a name="l04763"></a><span class="lineno"> 4763</span>  yyerror("can't define singleton method for literals");</div><div class="line"><a name="l04764"></a><span class="lineno"> 4764</span>  default:</div><div class="line"><a name="l04765"></a><span class="lineno"> 4765</span>  value_expr($3);</div><div class="line"><a name="l04766"></a><span class="lineno"> 4766</span>  break;</div><div class="line"><a name="l04767"></a><span class="lineno"> 4767</span>  }</div><div class="line"><a name="l04768"></a><span class="lineno"> 4768</span>  }</div><div class="line"><a name="l04769"></a><span class="lineno"> 4769</span>  $$ = $3;</div><div class="line"><a name="l04770"></a><span class="lineno"> 4770</span> #endif</div><div class="line"><a name="l04771"></a><span class="lineno"> 4771</span>  $$ = dispatch1(paren, $3);</div><div class="line"><a name="l04772"></a><span class="lineno"> 4772</span> </div><div class="line"><a name="l04773"></a><span class="lineno"> 4773</span>  }</div><div class="line"><a name="l04774"></a><span class="lineno"> 4774</span>  ;</div><div class="line"><a name="l04775"></a><span class="lineno"> 4775</span> </div><div class="line"><a name="l04776"></a><span class="lineno"> 4776</span> assoc_list : none</div><div class="line"><a name="l04777"></a><span class="lineno"> 4777</span>  | assocs trailer</div><div class="line"><a name="l04778"></a><span class="lineno"> 4778</span>  {</div><div class="line"><a name="l04779"></a><span class="lineno"> 4779</span> #if 0</div><div class="line"><a name="l04780"></a><span class="lineno"> 4780</span>  $$ = $1;</div><div class="line"><a name="l04781"></a><span class="lineno"> 4781</span> #endif</div><div class="line"><a name="l04782"></a><span class="lineno"> 4782</span>  $$ = dispatch1(assoclist_from_args, $1);</div><div class="line"><a name="l04783"></a><span class="lineno"> 4783</span> </div><div class="line"><a name="l04784"></a><span class="lineno"> 4784</span>  }</div><div class="line"><a name="l04785"></a><span class="lineno"> 4785</span>  ;</div><div class="line"><a name="l04786"></a><span class="lineno"> 4786</span> </div><div class="line"><a name="l04787"></a><span class="lineno"> 4787</span> assocs : assoc</div><div class="line"><a name="l04788"></a><span class="lineno"> 4788</span> /*</div><div class="line"><a name="l04789"></a><span class="lineno"> 4789</span> */</div><div class="line"><a name="l04790"></a><span class="lineno"> 4790</span>  {</div><div class="line"><a name="l04791"></a><span class="lineno"> 4791</span>  $$ = rb_ary_new3(1, $1);</div><div class="line"><a name="l04792"></a><span class="lineno"> 4792</span>  }</div><div class="line"><a name="l04793"></a><span class="lineno"> 4793</span> </div><div class="line"><a name="l04794"></a><span class="lineno"> 4794</span>  | assocs ',' assoc</div><div class="line"><a name="l04795"></a><span class="lineno"> 4795</span>  {</div><div class="line"><a name="l04796"></a><span class="lineno"> 4796</span> #if 0</div><div class="line"><a name="l04797"></a><span class="lineno"> 4797</span>  $$ = list_concat($1, $3);</div><div class="line"><a name="l04798"></a><span class="lineno"> 4798</span> #endif</div><div class="line"><a name="l04799"></a><span class="lineno"> 4799</span>  $$ = rb_ary_push($1, $3);</div><div class="line"><a name="l04800"></a><span class="lineno"> 4800</span> </div><div class="line"><a name="l04801"></a><span class="lineno"> 4801</span>  }</div><div class="line"><a name="l04802"></a><span class="lineno"> 4802</span>  ;</div><div class="line"><a name="l04803"></a><span class="lineno"> 4803</span> </div><div class="line"><a name="l04804"></a><span class="lineno"> 4804</span> assoc : arg_value tASSOC arg_value</div><div class="line"><a name="l04805"></a><span class="lineno"> 4805</span>  {</div><div class="line"><a name="l04806"></a><span class="lineno"> 4806</span> #if 0</div><div class="line"><a name="l04807"></a><span class="lineno"> 4807</span>  $$ = list_append(NEW_LIST($1), $3);</div><div class="line"><a name="l04808"></a><span class="lineno"> 4808</span> #endif</div><div class="line"><a name="l04809"></a><span class="lineno"> 4809</span>  $$ = dispatch2(assoc_new, $1, $3);</div><div class="line"><a name="l04810"></a><span class="lineno"> 4810</span> </div><div class="line"><a name="l04811"></a><span class="lineno"> 4811</span>  }</div><div class="line"><a name="l04812"></a><span class="lineno"> 4812</span>  | tLABEL arg_value</div><div class="line"><a name="l04813"></a><span class="lineno"> 4813</span>  {</div><div class="line"><a name="l04814"></a><span class="lineno"> 4814</span> #if 0</div><div class="line"><a name="l04815"></a><span class="lineno"> 4815</span>  $$ = list_append(NEW_LIST(NEW_LIT(ID2SYM($1))), $2);</div><div class="line"><a name="l04816"></a><span class="lineno"> 4816</span> #endif</div><div class="line"><a name="l04817"></a><span class="lineno"> 4817</span>  $$ = dispatch2(assoc_new, $1, $2);</div><div class="line"><a name="l04818"></a><span class="lineno"> 4818</span> </div><div class="line"><a name="l04819"></a><span class="lineno"> 4819</span>  }</div><div class="line"><a name="l04820"></a><span class="lineno"> 4820</span>  ;</div><div class="line"><a name="l04821"></a><span class="lineno"> 4821</span> </div><div class="line"><a name="l04822"></a><span class="lineno"> 4822</span> operation : tIDENTIFIER</div><div class="line"><a name="l04823"></a><span class="lineno"> 4823</span>  | tCONSTANT</div><div class="line"><a name="l04824"></a><span class="lineno"> 4824</span>  | tFID</div><div class="line"><a name="l04825"></a><span class="lineno"> 4825</span>  ;</div><div class="line"><a name="l04826"></a><span class="lineno"> 4826</span> </div><div class="line"><a name="l04827"></a><span class="lineno"> 4827</span> operation2 : tIDENTIFIER</div><div class="line"><a name="l04828"></a><span class="lineno"> 4828</span>  | tCONSTANT</div><div class="line"><a name="l04829"></a><span class="lineno"> 4829</span>  | tFID</div><div class="line"><a name="l04830"></a><span class="lineno"> 4830</span>  | op</div><div class="line"><a name="l04831"></a><span class="lineno"> 4831</span>  ;</div><div class="line"><a name="l04832"></a><span class="lineno"> 4832</span> </div><div class="line"><a name="l04833"></a><span class="lineno"> 4833</span> operation3 : tIDENTIFIER</div><div class="line"><a name="l04834"></a><span class="lineno"> 4834</span>  | tFID</div><div class="line"><a name="l04835"></a><span class="lineno"> 4835</span>  | op</div><div class="line"><a name="l04836"></a><span class="lineno"> 4836</span>  ;</div><div class="line"><a name="l04837"></a><span class="lineno"> 4837</span> </div><div class="line"><a name="l04838"></a><span class="lineno"> 4838</span> dot_or_colon : '.'</div><div class="line"><a name="l04839"></a><span class="lineno"> 4839</span> /*</div><div class="line"><a name="l04840"></a><span class="lineno"> 4840</span> */</div><div class="line"><a name="l04841"></a><span class="lineno"> 4841</span>  { $$ = $<val>1; }</div><div class="line"><a name="l04842"></a><span class="lineno"> 4842</span> </div><div class="line"><a name="l04843"></a><span class="lineno"> 4843</span>  | tCOLON2</div><div class="line"><a name="l04844"></a><span class="lineno"> 4844</span> /*</div><div class="line"><a name="l04845"></a><span class="lineno"> 4845</span> */</div><div class="line"><a name="l04846"></a><span class="lineno"> 4846</span>  { $$ = $<val>1; }</div><div class="line"><a name="l04847"></a><span class="lineno"> 4847</span> </div><div class="line"><a name="l04848"></a><span class="lineno"> 4848</span>  ;</div><div class="line"><a name="l04849"></a><span class="lineno"> 4849</span> </div><div class="line"><a name="l04850"></a><span class="lineno"> 4850</span> opt_terms : /* none */</div><div class="line"><a name="l04851"></a><span class="lineno"> 4851</span>  | terms</div><div class="line"><a name="l04852"></a><span class="lineno"> 4852</span>  ;</div><div class="line"><a name="l04853"></a><span class="lineno"> 4853</span> </div><div class="line"><a name="l04854"></a><span class="lineno"> 4854</span> opt_nl : /* none */</div><div class="line"><a name="l04855"></a><span class="lineno"> 4855</span>  | '\n'</div><div class="line"><a name="l04856"></a><span class="lineno"> 4856</span>  ;</div><div class="line"><a name="l04857"></a><span class="lineno"> 4857</span> </div><div class="line"><a name="l04858"></a><span class="lineno"> 4858</span> rparen : opt_nl ')'</div><div class="line"><a name="l04859"></a><span class="lineno"> 4859</span>  ;</div><div class="line"><a name="l04860"></a><span class="lineno"> 4860</span> </div><div class="line"><a name="l04861"></a><span class="lineno"> 4861</span> rbracket : opt_nl ']'</div><div class="line"><a name="l04862"></a><span class="lineno"> 4862</span>  ;</div><div class="line"><a name="l04863"></a><span class="lineno"> 4863</span> </div><div class="line"><a name="l04864"></a><span class="lineno"> 4864</span> trailer : /* none */</div><div class="line"><a name="l04865"></a><span class="lineno"> 4865</span>  | '\n'</div><div class="line"><a name="l04866"></a><span class="lineno"> 4866</span>  | ','</div><div class="line"><a name="l04867"></a><span class="lineno"> 4867</span>  ;</div><div class="line"><a name="l04868"></a><span class="lineno"> 4868</span> </div><div class="line"><a name="l04869"></a><span class="lineno"> 4869</span> term : ';' {yyerrok;}</div><div class="line"><a name="l04870"></a><span class="lineno"> 4870</span>  | '\n'</div><div class="line"><a name="l04871"></a><span class="lineno"> 4871</span>  ;</div><div class="line"><a name="l04872"></a><span class="lineno"> 4872</span> </div><div class="line"><a name="l04873"></a><span class="lineno"> 4873</span> terms : term</div><div class="line"><a name="l04874"></a><span class="lineno"> 4874</span>  | terms ';' {yyerrok;}</div><div class="line"><a name="l04875"></a><span class="lineno"> 4875</span>  ;</div><div class="line"><a name="l04876"></a><span class="lineno"> 4876</span> </div><div class="line"><a name="l04877"></a><span class="lineno"> 4877</span> none : /* none */</div><div class="line"><a name="l04878"></a><span class="lineno"> 4878</span>  {</div><div class="line"><a name="l04879"></a><span class="lineno"> 4879</span> #if 0</div><div class="line"><a name="l04880"></a><span class="lineno"> 4880</span>  $$ = 0;</div><div class="line"><a name="l04881"></a><span class="lineno"> 4881</span> #endif</div><div class="line"><a name="l04882"></a><span class="lineno"> 4882</span>  $$ = Qundef;</div><div class="line"><a name="l04883"></a><span class="lineno"> 4883</span> </div><div class="line"><a name="l04884"></a><span class="lineno"> 4884</span>  }</div><div class="line"><a name="l04885"></a><span class="lineno"> 4885</span>  ;</div><div class="line"><a name="l04886"></a><span class="lineno"> 4886</span> %%</div><div class="line"><a name="l04887"></a><span class="lineno"> 4887</span> # undef parser</div><div class="line"><a name="l04888"></a><span class="lineno"> 4888</span> # undef yylex</div><div class="line"><a name="l04889"></a><span class="lineno"> 4889</span> # undef yylval</div><div class="line"><a name="l04890"></a><span class="lineno"> 4890</span> # define yylval (*((YYSTYPE*)(parser->parser_yylval)))</div><div class="line"><a name="l04891"></a><span class="lineno"> 4891</span> </div><div class="line"><a name="l04892"></a><span class="lineno"> 4892</span> static int parser_regx_options(struct parser_params*);</div><div class="line"><a name="l04893"></a><span class="lineno"> 4893</span> static int parser_tokadd_string(struct parser_params*,int,int,int,long*,rb_encoding**);</div><div class="line"><a name="l04894"></a><span class="lineno"> 4894</span> static void parser_tokaddmbc(struct parser_params *parser, int c, rb_encoding *enc);</div><div class="line"><a name="l04895"></a><span class="lineno"> 4895</span> static int parser_parse_string(struct parser_params*,NODE*);</div><div class="line"><a name="l04896"></a><span class="lineno"> 4896</span> static int parser_here_document(struct parser_params*,NODE*);</div><div class="line"><a name="l04897"></a><span class="lineno"> 4897</span> </div><div class="line"><a name="l04898"></a><span class="lineno"> 4898</span> </div><div class="line"><a name="l04899"></a><span class="lineno"> 4899</span> # define nextc() parser_nextc(parser)</div><div class="line"><a name="l04900"></a><span class="lineno"> 4900</span> # define pushback(c) parser_pushback(parser, (c))</div><div class="line"><a name="l04901"></a><span class="lineno"> 4901</span> # define newtok() parser_newtok(parser)</div><div class="line"><a name="l04902"></a><span class="lineno"> 4902</span> # define tokspace(n) parser_tokspace(parser, (n))</div><div class="line"><a name="l04903"></a><span class="lineno"> 4903</span> # define tokadd(c) parser_tokadd(parser, (c))</div><div class="line"><a name="l04904"></a><span class="lineno"> 4904</span> # define tok_hex(numlen) parser_tok_hex(parser, (numlen))</div><div class="line"><a name="l04905"></a><span class="lineno"> 4905</span> # define read_escape(flags,e) parser_read_escape(parser, (flags), (e))</div><div class="line"><a name="l04906"></a><span class="lineno"> 4906</span> # define tokadd_escape(e) parser_tokadd_escape(parser, (e))</div><div class="line"><a name="l04907"></a><span class="lineno"> 4907</span> # define regx_options() parser_regx_options(parser)</div><div class="line"><a name="l04908"></a><span class="lineno"> 4908</span> # define tokadd_string(f,t,p,n,e) parser_tokadd_string(parser,(f),(t),(p),(n),(e))</div><div class="line"><a name="l04909"></a><span class="lineno"> 4909</span> # define parse_string(n) parser_parse_string(parser,(n))</div><div class="line"><a name="l04910"></a><span class="lineno"> 4910</span> # define tokaddmbc(c, enc) parser_tokaddmbc(parser, (c), (enc))</div><div class="line"><a name="l04911"></a><span class="lineno"> 4911</span> # define here_document(n) parser_here_document(parser,(n))</div><div class="line"><a name="l04912"></a><span class="lineno"> 4912</span> # define heredoc_identifier() parser_heredoc_identifier(parser)</div><div class="line"><a name="l04913"></a><span class="lineno"> 4913</span> # define heredoc_restore(n) parser_heredoc_restore(parser,(n))</div><div class="line"><a name="l04914"></a><span class="lineno"> 4914</span> # define whole_match_p(e,l,i) parser_whole_match_p(parser,(e),(l),(i))</div><div class="line"><a name="l04915"></a><span class="lineno"> 4915</span> </div><div class="line"><a name="l04916"></a><span class="lineno"> 4916</span> #ifndef RIPPER</div><div class="line"><a name="l04917"></a><span class="lineno"> 4917</span> # define set_yylval_str(x) (yylval.node = NEW_STR(x))</div><div class="line"><a name="l04918"></a><span class="lineno"> 4918</span> # define set_yylval_num(x) (yylval.num = (x))</div><div class="line"><a name="l04919"></a><span class="lineno"> 4919</span> # define set_yylval_id(x) (yylval.id = (x))</div><div class="line"><a name="l04920"></a><span class="lineno"> 4920</span> # define set_yylval_name(x) (yylval.id = (x))</div><div class="line"><a name="l04921"></a><span class="lineno"> 4921</span> # define set_yylval_literal(x) (yylval.node = NEW_LIT(x))</div><div class="line"><a name="l04922"></a><span class="lineno"> 4922</span> # define set_yylval_node(x) (yylval.node = (x))</div><div class="line"><a name="l04923"></a><span class="lineno"> 4923</span> # define yylval_id() (yylval.id)</div><div class="line"><a name="l04924"></a><span class="lineno"> 4924</span> #else</div><div class="line"><a name="l04925"></a><span class="lineno"> 4925</span> static inline VALUE</div><div class="line"><a name="l04926"></a><span class="lineno"> 4926</span> ripper_yylval_id(ID x)</div><div class="line"><a name="l04927"></a><span class="lineno"> 4927</span> {</div><div class="line"><a name="l04928"></a><span class="lineno"> 4928</span>  return (VALUE)NEW_LASGN(x, ID2SYM(x));</div><div class="line"><a name="l04929"></a><span class="lineno"> 4929</span> }</div><div class="line"><a name="l04930"></a><span class="lineno"> 4930</span> # define set_yylval_str(x) (void)(x)</div><div class="line"><a name="l04931"></a><span class="lineno"> 4931</span> # define set_yylval_num(x) (void)(x)</div><div class="line"><a name="l04932"></a><span class="lineno"> 4932</span> # define set_yylval_id(x) (void)(x)</div><div class="line"><a name="l04933"></a><span class="lineno"> 4933</span> # define set_yylval_name(x) (void)(yylval.val = ripper_yylval_id(x))</div><div class="line"><a name="l04934"></a><span class="lineno"> 4934</span> # define set_yylval_literal(x) (void)(x)</div><div class="line"><a name="l04935"></a><span class="lineno"> 4935</span> # define set_yylval_node(x) (void)(x)</div><div class="line"><a name="l04936"></a><span class="lineno"> 4936</span> # define yylval_id() yylval.id</div><div class="line"><a name="l04937"></a><span class="lineno"> 4937</span> #endif</div><div class="line"><a name="l04938"></a><span class="lineno"> 4938</span> </div><div class="line"><a name="l04939"></a><span class="lineno"> 4939</span> #ifndef RIPPER</div><div class="line"><a name="l04940"></a><span class="lineno"> 4940</span> #define ripper_flush(p) (void)(p)</div><div class="line"><a name="l04941"></a><span class="lineno"> 4941</span> #else</div><div class="line"><a name="l04942"></a><span class="lineno"> 4942</span> #define ripper_flush(p) ((p)->tokp = (p)->parser_lex_p)</div><div class="line"><a name="l04943"></a><span class="lineno"> 4943</span> </div><div class="line"><a name="l04944"></a><span class="lineno"> 4944</span> #define yylval_rval (*(RB_TYPE_P(yylval.val, T_NODE) ? &yylval.node->nd_rval : &yylval.val))</div><div class="line"><a name="l04945"></a><span class="lineno"> 4945</span> </div><div class="line"><a name="l04946"></a><span class="lineno"> 4946</span> static int</div><div class="line"><a name="l04947"></a><span class="lineno"> 4947</span> ripper_has_scan_event(struct parser_params *parser)</div><div class="line"><a name="l04948"></a><span class="lineno"> 4948</span> {</div><div class="line"><a name="l04949"></a><span class="lineno"> 4949</span> </div><div class="line"><a name="l04950"></a><span class="lineno"> 4950</span>  if (lex_p < parser->tokp) rb_raise(rb_eRuntimeError, "lex_p < tokp");</div><div class="line"><a name="l04951"></a><span class="lineno"> 4951</span>  return lex_p > parser->tokp;</div><div class="line"><a name="l04952"></a><span class="lineno"> 4952</span> }</div><div class="line"><a name="l04953"></a><span class="lineno"> 4953</span> </div><div class="line"><a name="l04954"></a><span class="lineno"> 4954</span> static VALUE</div><div class="line"><a name="l04955"></a><span class="lineno"> 4955</span> ripper_scan_event_val(struct parser_params *parser, int t)</div><div class="line"><a name="l04956"></a><span class="lineno"> 4956</span> {</div><div class="line"><a name="l04957"></a><span class="lineno"> 4957</span>  VALUE str = STR_NEW(parser->tokp, lex_p - parser->tokp);</div><div class="line"><a name="l04958"></a><span class="lineno"> 4958</span>  VALUE rval = ripper_dispatch1(parser, ripper_token2eventid(t), str);</div><div class="line"><a name="l04959"></a><span class="lineno"> 4959</span>  ripper_flush(parser);</div><div class="line"><a name="l04960"></a><span class="lineno"> 4960</span>  return rval;</div><div class="line"><a name="l04961"></a><span class="lineno"> 4961</span> }</div><div class="line"><a name="l04962"></a><span class="lineno"> 4962</span> </div><div class="line"><a name="l04963"></a><span class="lineno"> 4963</span> static void</div><div class="line"><a name="l04964"></a><span class="lineno"> 4964</span> ripper_dispatch_scan_event(struct parser_params *parser, int t)</div><div class="line"><a name="l04965"></a><span class="lineno"> 4965</span> {</div><div class="line"><a name="l04966"></a><span class="lineno"> 4966</span>  if (!ripper_has_scan_event(parser)) return;</div><div class="line"><a name="l04967"></a><span class="lineno"> 4967</span>  yylval_rval = ripper_scan_event_val(parser, t);</div><div class="line"><a name="l04968"></a><span class="lineno"> 4968</span> }</div><div class="line"><a name="l04969"></a><span class="lineno"> 4969</span> </div><div class="line"><a name="l04970"></a><span class="lineno"> 4970</span> static void</div><div class="line"><a name="l04971"></a><span class="lineno"> 4971</span> ripper_dispatch_ignored_scan_event(struct parser_params *parser, int t)</div><div class="line"><a name="l04972"></a><span class="lineno"> 4972</span> {</div><div class="line"><a name="l04973"></a><span class="lineno"> 4973</span>  if (!ripper_has_scan_event(parser)) return;</div><div class="line"><a name="l04974"></a><span class="lineno"> 4974</span>  (void)ripper_scan_event_val(parser, t);</div><div class="line"><a name="l04975"></a><span class="lineno"> 4975</span> }</div><div class="line"><a name="l04976"></a><span class="lineno"> 4976</span> </div><div class="line"><a name="l04977"></a><span class="lineno"> 4977</span> static void</div><div class="line"><a name="l04978"></a><span class="lineno"> 4978</span> ripper_dispatch_delayed_token(struct parser_params *parser, int t)</div><div class="line"><a name="l04979"></a><span class="lineno"> 4979</span> {</div><div class="line"><a name="l04980"></a><span class="lineno"> 4980</span>  int saved_line = ruby_sourceline;</div><div class="line"><a name="l04981"></a><span class="lineno"> 4981</span>  const char *saved_tokp = parser->tokp;</div><div class="line"><a name="l04982"></a><span class="lineno"> 4982</span> </div><div class="line"><a name="l04983"></a><span class="lineno"> 4983</span>  ruby_sourceline = parser->delayed_line;</div><div class="line"><a name="l04984"></a><span class="lineno"> 4984</span>  parser->tokp = lex_pbeg + parser->delayed_col;</div><div class="line"><a name="l04985"></a><span class="lineno"> 4985</span>  yylval_rval = ripper_dispatch1(parser, ripper_token2eventid(t), parser->delayed);</div><div class="line"><a name="l04986"></a><span class="lineno"> 4986</span>  parser->delayed = Qnil;</div><div class="line"><a name="l04987"></a><span class="lineno"> 4987</span>  ruby_sourceline = saved_line;</div><div class="line"><a name="l04988"></a><span class="lineno"> 4988</span>  parser->tokp = saved_tokp;</div><div class="line"><a name="l04989"></a><span class="lineno"> 4989</span> }</div><div class="line"><a name="l04990"></a><span class="lineno"> 4990</span> #endif /* RIPPER */</div><div class="line"><a name="l04991"></a><span class="lineno"> 4991</span> </div><div class="line"><a name="l04992"></a><span class="lineno"> 4992</span> #include "ruby/regex.h"</div><div class="line"><a name="l04993"></a><span class="lineno"> 4993</span> #include "ruby/util.h"</div><div class="line"><a name="l04994"></a><span class="lineno"> 4994</span> </div><div class="line"><a name="l04995"></a><span class="lineno"> 4995</span> /* We remove any previous definition of `SIGN_EXTEND_CHAR',</div><div class="line"><a name="l04996"></a><span class="lineno"> 4996</span>  since ours (we hope) works properly with all combinations of</div><div class="line"><a name="l04997"></a><span class="lineno"> 4997</span>  machines, compilers, `char' and `unsigned char' argument types.</div><div class="line"><a name="l04998"></a><span class="lineno"> 4998</span>  (Per Bothner suggested the basic approach.) */</div><div class="line"><a name="l04999"></a><span class="lineno"> 4999</span> #undef SIGN_EXTEND_CHAR</div><div class="line"><a name="l05000"></a><span class="lineno"> 5000</span> #if __STDC__</div><div class="line"><a name="l05001"></a><span class="lineno"> 5001</span> # define SIGN_EXTEND_CHAR(c) ((signed char)(c))</div><div class="line"><a name="l05002"></a><span class="lineno"> 5002</span> #else /* not __STDC__ */</div><div class="line"><a name="l05003"></a><span class="lineno"> 5003</span> /* As in Harbison and Steele. */</div><div class="line"><a name="l05004"></a><span class="lineno"> 5004</span> # define SIGN_EXTEND_CHAR(c) ((((unsigned char)(c)) ^ 128) - 128)</div><div class="line"><a name="l05005"></a><span class="lineno"> 5005</span> #endif</div><div class="line"><a name="l05006"></a><span class="lineno"> 5006</span> </div><div class="line"><a name="l05007"></a><span class="lineno"> 5007</span> #define parser_encoding_name() (parser->enc->name)</div><div class="line"><a name="l05008"></a><span class="lineno"> 5008</span> #define parser_mbclen() mbclen((lex_p-1),lex_pend,parser->enc)</div><div class="line"><a name="l05009"></a><span class="lineno"> 5009</span> #define parser_precise_mbclen() rb_enc_precise_mbclen((lex_p-1),lex_pend,parser->enc)</div><div class="line"><a name="l05010"></a><span class="lineno"> 5010</span> #define is_identchar(p,e,enc) (rb_enc_isalnum(*(p),(enc)) || (*(p)) == '_' || !ISASCII(*(p)))</div><div class="line"><a name="l05011"></a><span class="lineno"> 5011</span> #define parser_is_identchar() (!parser->eofp && is_identchar((lex_p-1),lex_pend,parser->enc))</div><div class="line"><a name="l05012"></a><span class="lineno"> 5012</span> </div><div class="line"><a name="l05013"></a><span class="lineno"> 5013</span> #define parser_isascii() ISASCII(*(lex_p-1))</div><div class="line"><a name="l05014"></a><span class="lineno"> 5014</span> </div><div class="line"><a name="l05015"></a><span class="lineno"> 5015</span> #ifndef RIPPER</div><div class="line"><a name="l05016"></a><span class="lineno"> 5016</span> static int</div><div class="line"><a name="l05017"></a><span class="lineno"> 5017</span> token_info_get_column(struct parser_params *parser, const char *token)</div><div class="line"><a name="l05018"></a><span class="lineno"> 5018</span> {</div><div class="line"><a name="l05019"></a><span class="lineno"> 5019</span>  int column = 1;</div><div class="line"><a name="l05020"></a><span class="lineno"> 5020</span>  const char *p, *pend = lex_p - strlen(token);</div><div class="line"><a name="l05021"></a><span class="lineno"> 5021</span>  for (p = lex_pbeg; p < pend; p++) {</div><div class="line"><a name="l05022"></a><span class="lineno"> 5022</span>  if (*p == '\t') {</div><div class="line"><a name="l05023"></a><span class="lineno"> 5023</span>  column = (((column - 1) / 8) + 1) * 8;</div><div class="line"><a name="l05024"></a><span class="lineno"> 5024</span>  }</div><div class="line"><a name="l05025"></a><span class="lineno"> 5025</span>  column++;</div><div class="line"><a name="l05026"></a><span class="lineno"> 5026</span>  }</div><div class="line"><a name="l05027"></a><span class="lineno"> 5027</span>  return column;</div><div class="line"><a name="l05028"></a><span class="lineno"> 5028</span> }</div><div class="line"><a name="l05029"></a><span class="lineno"> 5029</span> </div><div class="line"><a name="l05030"></a><span class="lineno"> 5030</span> static int</div><div class="line"><a name="l05031"></a><span class="lineno"> 5031</span> token_info_has_nonspaces(struct parser_params *parser, const char *token)</div><div class="line"><a name="l05032"></a><span class="lineno"> 5032</span> {</div><div class="line"><a name="l05033"></a><span class="lineno"> 5033</span>  const char *p, *pend = lex_p - strlen(token);</div><div class="line"><a name="l05034"></a><span class="lineno"> 5034</span>  for (p = lex_pbeg; p < pend; p++) {</div><div class="line"><a name="l05035"></a><span class="lineno"> 5035</span>  if (*p != ' ' && *p != '\t') {</div><div class="line"><a name="l05036"></a><span class="lineno"> 5036</span>  return 1;</div><div class="line"><a name="l05037"></a><span class="lineno"> 5037</span>  }</div><div class="line"><a name="l05038"></a><span class="lineno"> 5038</span>  }</div><div class="line"><a name="l05039"></a><span class="lineno"> 5039</span>  return 0;</div><div class="line"><a name="l05040"></a><span class="lineno"> 5040</span> }</div><div class="line"><a name="l05041"></a><span class="lineno"> 5041</span> </div><div class="line"><a name="l05042"></a><span class="lineno"> 5042</span> #undef token_info_push</div><div class="line"><a name="l05043"></a><span class="lineno"> 5043</span> static void</div><div class="line"><a name="l05044"></a><span class="lineno"> 5044</span> token_info_push(struct parser_params *parser, const char *token)</div><div class="line"><a name="l05045"></a><span class="lineno"> 5045</span> {</div><div class="line"><a name="l05046"></a><span class="lineno"> 5046</span>  token_info *ptinfo;</div><div class="line"><a name="l05047"></a><span class="lineno"> 5047</span> </div><div class="line"><a name="l05048"></a><span class="lineno"> 5048</span>  if (!parser->parser_token_info_enabled) return;</div><div class="line"><a name="l05049"></a><span class="lineno"> 5049</span>  ptinfo = ALLOC(token_info);</div><div class="line"><a name="l05050"></a><span class="lineno"> 5050</span>  ptinfo->token = token;</div><div class="line"><a name="l05051"></a><span class="lineno"> 5051</span>  ptinfo->linenum = ruby_sourceline;</div><div class="line"><a name="l05052"></a><span class="lineno"> 5052</span>  ptinfo->column = token_info_get_column(parser, token);</div><div class="line"><a name="l05053"></a><span class="lineno"> 5053</span>  ptinfo->nonspc = token_info_has_nonspaces(parser, token);</div><div class="line"><a name="l05054"></a><span class="lineno"> 5054</span>  ptinfo->next = parser->parser_token_info;</div><div class="line"><a name="l05055"></a><span class="lineno"> 5055</span> </div><div class="line"><a name="l05056"></a><span class="lineno"> 5056</span>  parser->parser_token_info = ptinfo;</div><div class="line"><a name="l05057"></a><span class="lineno"> 5057</span> }</div><div class="line"><a name="l05058"></a><span class="lineno"> 5058</span> </div><div class="line"><a name="l05059"></a><span class="lineno"> 5059</span> #undef token_info_pop</div><div class="line"><a name="l05060"></a><span class="lineno"> 5060</span> static void</div><div class="line"><a name="l05061"></a><span class="lineno"> 5061</span> token_info_pop(struct parser_params *parser, const char *token)</div><div class="line"><a name="l05062"></a><span class="lineno"> 5062</span> {</div><div class="line"><a name="l05063"></a><span class="lineno"> 5063</span>  int linenum;</div><div class="line"><a name="l05064"></a><span class="lineno"> 5064</span>  token_info *ptinfo = parser->parser_token_info;</div><div class="line"><a name="l05065"></a><span class="lineno"> 5065</span> </div><div class="line"><a name="l05066"></a><span class="lineno"> 5066</span>  if (!ptinfo) return;</div><div class="line"><a name="l05067"></a><span class="lineno"> 5067</span>  parser->parser_token_info = ptinfo->next;</div><div class="line"><a name="l05068"></a><span class="lineno"> 5068</span>  if (token_info_get_column(parser, token) == ptinfo->column) { /* OK */</div><div class="line"><a name="l05069"></a><span class="lineno"> 5069</span>  goto finish;</div><div class="line"><a name="l05070"></a><span class="lineno"> 5070</span>  }</div><div class="line"><a name="l05071"></a><span class="lineno"> 5071</span>  linenum = ruby_sourceline;</div><div class="line"><a name="l05072"></a><span class="lineno"> 5072</span>  if (linenum == ptinfo->linenum) { /* SKIP */</div><div class="line"><a name="l05073"></a><span class="lineno"> 5073</span>  goto finish;</div><div class="line"><a name="l05074"></a><span class="lineno"> 5074</span>  }</div><div class="line"><a name="l05075"></a><span class="lineno"> 5075</span>  if (token_info_has_nonspaces(parser, token) || ptinfo->nonspc) { /* SKIP */</div><div class="line"><a name="l05076"></a><span class="lineno"> 5076</span>  goto finish;</div><div class="line"><a name="l05077"></a><span class="lineno"> 5077</span>  }</div><div class="line"><a name="l05078"></a><span class="lineno"> 5078</span>  if (parser->parser_token_info_enabled) {</div><div class="line"><a name="l05079"></a><span class="lineno"> 5079</span>  rb_compile_warn(ruby_sourcefile, linenum,</div><div class="line"><a name="l05080"></a><span class="lineno"> 5080</span>  "mismatched indentations at '%s' with '%s' at %d",</div><div class="line"><a name="l05081"></a><span class="lineno"> 5081</span>  token, ptinfo->token, ptinfo->linenum);</div><div class="line"><a name="l05082"></a><span class="lineno"> 5082</span>  }</div><div class="line"><a name="l05083"></a><span class="lineno"> 5083</span> </div><div class="line"><a name="l05084"></a><span class="lineno"> 5084</span>  finish:</div><div class="line"><a name="l05085"></a><span class="lineno"> 5085</span>  xfree(ptinfo);</div><div class="line"><a name="l05086"></a><span class="lineno"> 5086</span> }</div><div class="line"><a name="l05087"></a><span class="lineno"> 5087</span> #endif /* RIPPER */</div><div class="line"><a name="l05088"></a><span class="lineno"> 5088</span> </div><div class="line"><a name="l05089"></a><span class="lineno"> 5089</span> static int</div><div class="line"><a name="l05090"></a><span class="lineno"> 5090</span> parser_yyerror(struct parser_params *parser, const char *msg)</div><div class="line"><a name="l05091"></a><span class="lineno"> 5091</span> {</div><div class="line"><a name="l05092"></a><span class="lineno"> 5092</span> #ifndef RIPPER</div><div class="line"><a name="l05093"></a><span class="lineno"> 5093</span>  const int max_line_margin = 30;</div><div class="line"><a name="l05094"></a><span class="lineno"> 5094</span>  const char *p, *pe;</div><div class="line"><a name="l05095"></a><span class="lineno"> 5095</span>  char *buf;</div><div class="line"><a name="l05096"></a><span class="lineno"> 5096</span>  long len;</div><div class="line"><a name="l05097"></a><span class="lineno"> 5097</span>  int i;</div><div class="line"><a name="l05098"></a><span class="lineno"> 5098</span> </div><div class="line"><a name="l05099"></a><span class="lineno"> 5099</span>  compile_error(PARSER_ARG "%s", msg);</div><div class="line"><a name="l05100"></a><span class="lineno"> 5100</span>  p = lex_p;</div><div class="line"><a name="l05101"></a><span class="lineno"> 5101</span>  while (lex_pbeg <= p) {</div><div class="line"><a name="l05102"></a><span class="lineno"> 5102</span>  if (*p == '\n') break;</div><div class="line"><a name="l05103"></a><span class="lineno"> 5103</span>  p--;</div><div class="line"><a name="l05104"></a><span class="lineno"> 5104</span>  }</div><div class="line"><a name="l05105"></a><span class="lineno"> 5105</span>  p++;</div><div class="line"><a name="l05106"></a><span class="lineno"> 5106</span> </div><div class="line"><a name="l05107"></a><span class="lineno"> 5107</span>  pe = lex_p;</div><div class="line"><a name="l05108"></a><span class="lineno"> 5108</span>  while (pe < lex_pend) {</div><div class="line"><a name="l05109"></a><span class="lineno"> 5109</span>  if (*pe == '\n') break;</div><div class="line"><a name="l05110"></a><span class="lineno"> 5110</span>  pe++;</div><div class="line"><a name="l05111"></a><span class="lineno"> 5111</span>  }</div><div class="line"><a name="l05112"></a><span class="lineno"> 5112</span> </div><div class="line"><a name="l05113"></a><span class="lineno"> 5113</span>  len = pe - p;</div><div class="line"><a name="l05114"></a><span class="lineno"> 5114</span>  if (len > 4) {</div><div class="line"><a name="l05115"></a><span class="lineno"> 5115</span>  char *p2;</div><div class="line"><a name="l05116"></a><span class="lineno"> 5116</span>  const char *pre = "", *post = "";</div><div class="line"><a name="l05117"></a><span class="lineno"> 5117</span> </div><div class="line"><a name="l05118"></a><span class="lineno"> 5118</span>  if (len > max_line_margin * 2 + 10) {</div><div class="line"><a name="l05119"></a><span class="lineno"> 5119</span>  if (lex_p - p > max_line_margin) {</div><div class="line"><a name="l05120"></a><span class="lineno"> 5120</span>  p = rb_enc_prev_char(p, lex_p - max_line_margin, pe, rb_enc_get(lex_lastline));</div><div class="line"><a name="l05121"></a><span class="lineno"> 5121</span>  pre = "...";</div><div class="line"><a name="l05122"></a><span class="lineno"> 5122</span>  }</div><div class="line"><a name="l05123"></a><span class="lineno"> 5123</span>  if (pe - lex_p > max_line_margin) {</div><div class="line"><a name="l05124"></a><span class="lineno"> 5124</span>  pe = rb_enc_prev_char(lex_p, lex_p + max_line_margin, pe, rb_enc_get(lex_lastline));</div><div class="line"><a name="l05125"></a><span class="lineno"> 5125</span>  post = "...";</div><div class="line"><a name="l05126"></a><span class="lineno"> 5126</span>  }</div><div class="line"><a name="l05127"></a><span class="lineno"> 5127</span>  len = pe - p;</div><div class="line"><a name="l05128"></a><span class="lineno"> 5128</span>  }</div><div class="line"><a name="l05129"></a><span class="lineno"> 5129</span>  buf = ALLOCA_N(char, len+2);</div><div class="line"><a name="l05130"></a><span class="lineno"> 5130</span>  MEMCPY(buf, p, char, len);</div><div class="line"><a name="l05131"></a><span class="lineno"> 5131</span>  buf[len] = '\0';</div><div class="line"><a name="l05132"></a><span class="lineno"> 5132</span>  rb_compile_error_append("%s%s%s", pre, buf, post);</div><div class="line"><a name="l05133"></a><span class="lineno"> 5133</span> </div><div class="line"><a name="l05134"></a><span class="lineno"> 5134</span>  i = (int)(lex_p - p);</div><div class="line"><a name="l05135"></a><span class="lineno"> 5135</span>  p2 = buf; pe = buf + len;</div><div class="line"><a name="l05136"></a><span class="lineno"> 5136</span> </div><div class="line"><a name="l05137"></a><span class="lineno"> 5137</span>  while (p2 < pe) {</div><div class="line"><a name="l05138"></a><span class="lineno"> 5138</span>  if (*p2 != '\t') *p2 = ' ';</div><div class="line"><a name="l05139"></a><span class="lineno"> 5139</span>  p2++;</div><div class="line"><a name="l05140"></a><span class="lineno"> 5140</span>  }</div><div class="line"><a name="l05141"></a><span class="lineno"> 5141</span>  buf[i] = '^';</div><div class="line"><a name="l05142"></a><span class="lineno"> 5142</span>  buf[i+1] = '\0';</div><div class="line"><a name="l05143"></a><span class="lineno"> 5143</span>  rb_compile_error_append("%s%s", pre, buf);</div><div class="line"><a name="l05144"></a><span class="lineno"> 5144</span>  }</div><div class="line"><a name="l05145"></a><span class="lineno"> 5145</span> #else</div><div class="line"><a name="l05146"></a><span class="lineno"> 5146</span>  dispatch1(parse_error, STR_NEW2(msg));</div><div class="line"><a name="l05147"></a><span class="lineno"> 5147</span> #endif /* !RIPPER */</div><div class="line"><a name="l05148"></a><span class="lineno"> 5148</span>  return 0;</div><div class="line"><a name="l05149"></a><span class="lineno"> 5149</span> }</div><div class="line"><a name="l05150"></a><span class="lineno"> 5150</span> </div><div class="line"><a name="l05151"></a><span class="lineno"> 5151</span> static void parser_prepare(struct parser_params *parser);</div><div class="line"><a name="l05152"></a><span class="lineno"> 5152</span> </div><div class="line"><a name="l05153"></a><span class="lineno"> 5153</span> #ifndef RIPPER</div><div class="line"><a name="l05154"></a><span class="lineno"> 5154</span> static VALUE</div><div class="line"><a name="l05155"></a><span class="lineno"> 5155</span> debug_lines(const char *f)</div><div class="line"><a name="l05156"></a><span class="lineno"> 5156</span> {</div><div class="line"><a name="l05157"></a><span class="lineno"> 5157</span>  ID script_lines;</div><div class="line"><a name="l05158"></a><span class="lineno"> 5158</span>  CONST_ID(script_lines, "SCRIPT_LINES__");</div><div class="line"><a name="l05159"></a><span class="lineno"> 5159</span>  if (rb_const_defined_at(rb_cObject, script_lines)) {</div><div class="line"><a name="l05160"></a><span class="lineno"> 5160</span>  VALUE hash = rb_const_get_at(rb_cObject, script_lines);</div><div class="line"><a name="l05161"></a><span class="lineno"> 5161</span>  if (TYPE(hash) == T_HASH) {</div><div class="line"><a name="l05162"></a><span class="lineno"> 5162</span>  VALUE fname = rb_external_str_new_with_enc(f, strlen(f), rb_filesystem_encoding());</div><div class="line"><a name="l05163"></a><span class="lineno"> 5163</span>  VALUE lines = rb_ary_new();</div><div class="line"><a name="l05164"></a><span class="lineno"> 5164</span>  rb_hash_aset(hash, fname, lines);</div><div class="line"><a name="l05165"></a><span class="lineno"> 5165</span>  return lines;</div><div class="line"><a name="l05166"></a><span class="lineno"> 5166</span>  }</div><div class="line"><a name="l05167"></a><span class="lineno"> 5167</span>  }</div><div class="line"><a name="l05168"></a><span class="lineno"> 5168</span>  return 0;</div><div class="line"><a name="l05169"></a><span class="lineno"> 5169</span> }</div><div class="line"><a name="l05170"></a><span class="lineno"> 5170</span> </div><div class="line"><a name="l05171"></a><span class="lineno"> 5171</span> static VALUE</div><div class="line"><a name="l05172"></a><span class="lineno"> 5172</span> coverage(const char *f, int n)</div><div class="line"><a name="l05173"></a><span class="lineno"> 5173</span> {</div><div class="line"><a name="l05174"></a><span class="lineno"> 5174</span>  VALUE coverages = rb_get_coverages();</div><div class="line"><a name="l05175"></a><span class="lineno"> 5175</span>  if (RTEST(coverages) && RBASIC(coverages)->klass == 0) {</div><div class="line"><a name="l05176"></a><span class="lineno"> 5176</span>  VALUE fname = rb_external_str_new_with_enc(f, strlen(f), rb_filesystem_encoding());</div><div class="line"><a name="l05177"></a><span class="lineno"> 5177</span>  VALUE lines = rb_ary_new2(n);</div><div class="line"><a name="l05178"></a><span class="lineno"> 5178</span>  int i;</div><div class="line"><a name="l05179"></a><span class="lineno"> 5179</span>  RBASIC(lines)->klass = 0;</div><div class="line"><a name="l05180"></a><span class="lineno"> 5180</span>  for (i = 0; i < n; i++) RARRAY_PTR(lines)[i] = Qnil;</div><div class="line"><a name="l05181"></a><span class="lineno"> 5181</span>  RARRAY(lines)->as.heap.len = n;</div><div class="line"><a name="l05182"></a><span class="lineno"> 5182</span>  rb_hash_aset(coverages, fname, lines);</div><div class="line"><a name="l05183"></a><span class="lineno"> 5183</span>  return lines;</div><div class="line"><a name="l05184"></a><span class="lineno"> 5184</span>  }</div><div class="line"><a name="l05185"></a><span class="lineno"> 5185</span>  return 0;</div><div class="line"><a name="l05186"></a><span class="lineno"> 5186</span> }</div><div class="line"><a name="l05187"></a><span class="lineno"> 5187</span> </div><div class="line"><a name="l05188"></a><span class="lineno"> 5188</span> static int</div><div class="line"><a name="l05189"></a><span class="lineno"> 5189</span> e_option_supplied(struct parser_params *parser)</div><div class="line"><a name="l05190"></a><span class="lineno"> 5190</span> {</div><div class="line"><a name="l05191"></a><span class="lineno"> 5191</span>  return strcmp(ruby_sourcefile, "-e") == 0;</div><div class="line"><a name="l05192"></a><span class="lineno"> 5192</span> }</div><div class="line"><a name="l05193"></a><span class="lineno"> 5193</span> </div><div class="line"><a name="l05194"></a><span class="lineno"> 5194</span> static VALUE</div><div class="line"><a name="l05195"></a><span class="lineno"> 5195</span> yycompile0(VALUE arg, int tracing)</div><div class="line"><a name="l05196"></a><span class="lineno"> 5196</span> {</div><div class="line"><a name="l05197"></a><span class="lineno"> 5197</span>  int n;</div><div class="line"><a name="l05198"></a><span class="lineno"> 5198</span>  NODE *tree;</div><div class="line"><a name="l05199"></a><span class="lineno"> 5199</span>  struct parser_params *parser = (struct parser_params *)arg;</div><div class="line"><a name="l05200"></a><span class="lineno"> 5200</span> </div><div class="line"><a name="l05201"></a><span class="lineno"> 5201</span>  if (!compile_for_eval && rb_safe_level() == 0) {</div><div class="line"><a name="l05202"></a><span class="lineno"> 5202</span>  ruby_debug_lines = debug_lines(ruby_sourcefile);</div><div class="line"><a name="l05203"></a><span class="lineno"> 5203</span>  if (ruby_debug_lines && ruby_sourceline > 0) {</div><div class="line"><a name="l05204"></a><span class="lineno"> 5204</span>  VALUE str = STR_NEW0();</div><div class="line"><a name="l05205"></a><span class="lineno"> 5205</span>  n = ruby_sourceline;</div><div class="line"><a name="l05206"></a><span class="lineno"> 5206</span>  do {</div><div class="line"><a name="l05207"></a><span class="lineno"> 5207</span>  rb_ary_push(ruby_debug_lines, str);</div><div class="line"><a name="l05208"></a><span class="lineno"> 5208</span>  } while (--n);</div><div class="line"><a name="l05209"></a><span class="lineno"> 5209</span>  }</div><div class="line"><a name="l05210"></a><span class="lineno"> 5210</span> </div><div class="line"><a name="l05211"></a><span class="lineno"> 5211</span>  if (!e_option_supplied(parser)) {</div><div class="line"><a name="l05212"></a><span class="lineno"> 5212</span>  ruby_coverage = coverage(ruby_sourcefile, ruby_sourceline);</div><div class="line"><a name="l05213"></a><span class="lineno"> 5213</span>  }</div><div class="line"><a name="l05214"></a><span class="lineno"> 5214</span>  }</div><div class="line"><a name="l05215"></a><span class="lineno"> 5215</span> </div><div class="line"><a name="l05216"></a><span class="lineno"> 5216</span>  parser_prepare(parser);</div><div class="line"><a name="l05217"></a><span class="lineno"> 5217</span>  deferred_nodes = 0;</div><div class="line"><a name="l05218"></a><span class="lineno"> 5218</span> #ifndef RIPPER</div><div class="line"><a name="l05219"></a><span class="lineno"> 5219</span>  parser->parser_token_info_enabled = !compile_for_eval && RTEST(ruby_verbose);</div><div class="line"><a name="l05220"></a><span class="lineno"> 5220</span> #endif</div><div class="line"><a name="l05221"></a><span class="lineno"> 5221</span>  n = yyparse((void*)parser);</div><div class="line"><a name="l05222"></a><span class="lineno"> 5222</span>  ruby_debug_lines = 0;</div><div class="line"><a name="l05223"></a><span class="lineno"> 5223</span>  ruby_coverage = 0;</div><div class="line"><a name="l05224"></a><span class="lineno"> 5224</span>  compile_for_eval = 0;</div><div class="line"><a name="l05225"></a><span class="lineno"> 5225</span> </div><div class="line"><a name="l05226"></a><span class="lineno"> 5226</span>  lex_strterm = 0;</div><div class="line"><a name="l05227"></a><span class="lineno"> 5227</span>  lex_p = lex_pbeg = lex_pend = 0;</div><div class="line"><a name="l05228"></a><span class="lineno"> 5228</span>  lex_lastline = lex_nextline = 0;</div><div class="line"><a name="l05229"></a><span class="lineno"> 5229</span>  if (parser->nerr) {</div><div class="line"><a name="l05230"></a><span class="lineno"> 5230</span>  return 0;</div><div class="line"><a name="l05231"></a><span class="lineno"> 5231</span>  }</div><div class="line"><a name="l05232"></a><span class="lineno"> 5232</span>  tree = ruby_eval_tree;</div><div class="line"><a name="l05233"></a><span class="lineno"> 5233</span>  if (!tree) {</div><div class="line"><a name="l05234"></a><span class="lineno"> 5234</span>  tree = NEW_NIL();</div><div class="line"><a name="l05235"></a><span class="lineno"> 5235</span>  }</div><div class="line"><a name="l05236"></a><span class="lineno"> 5236</span>  else if (ruby_eval_tree_begin) {</div><div class="line"><a name="l05237"></a><span class="lineno"> 5237</span>  tree->nd_body = NEW_PRELUDE(ruby_eval_tree_begin, tree->nd_body);</div><div class="line"><a name="l05238"></a><span class="lineno"> 5238</span>  }</div><div class="line"><a name="l05239"></a><span class="lineno"> 5239</span>  return (VALUE)tree;</div><div class="line"><a name="l05240"></a><span class="lineno"> 5240</span> }</div><div class="line"><a name="l05241"></a><span class="lineno"> 5241</span> </div><div class="line"><a name="l05242"></a><span class="lineno"> 5242</span> static NODE*</div><div class="line"><a name="l05243"></a><span class="lineno"> 5243</span> yycompile(struct parser_params *parser, const char *f, int line)</div><div class="line"><a name="l05244"></a><span class="lineno"> 5244</span> {</div><div class="line"><a name="l05245"></a><span class="lineno"> 5245</span>  ruby_sourcefile = ruby_strdup(f);</div><div class="line"><a name="l05246"></a><span class="lineno"> 5246</span>  ruby_sourceline = line - 1;</div><div class="line"><a name="l05247"></a><span class="lineno"> 5247</span>  return (NODE *)ruby_suppress_tracing(yycompile0, (VALUE)parser, TRUE);</div><div class="line"><a name="l05248"></a><span class="lineno"> 5248</span> }</div><div class="line"><a name="l05249"></a><span class="lineno"> 5249</span> #endif /* !RIPPER */</div><div class="line"><a name="l05250"></a><span class="lineno"> 5250</span> </div><div class="line"><a name="l05251"></a><span class="lineno"> 5251</span> static rb_encoding *</div><div class="line"><a name="l05252"></a><span class="lineno"> 5252</span> must_be_ascii_compatible(VALUE s)</div><div class="line"><a name="l05253"></a><span class="lineno"> 5253</span> {</div><div class="line"><a name="l05254"></a><span class="lineno"> 5254</span>  rb_encoding *enc = rb_enc_get(s);</div><div class="line"><a name="l05255"></a><span class="lineno"> 5255</span>  if (!rb_enc_asciicompat(enc)) {</div><div class="line"><a name="l05256"></a><span class="lineno"> 5256</span>  rb_raise(rb_eArgError, "invalid source encoding");</div><div class="line"><a name="l05257"></a><span class="lineno"> 5257</span>  }</div><div class="line"><a name="l05258"></a><span class="lineno"> 5258</span>  return enc;</div><div class="line"><a name="l05259"></a><span class="lineno"> 5259</span> }</div><div class="line"><a name="l05260"></a><span class="lineno"> 5260</span> </div><div class="line"><a name="l05261"></a><span class="lineno"> 5261</span> static VALUE</div><div class="line"><a name="l05262"></a><span class="lineno"> 5262</span> lex_get_str(struct parser_params *parser, VALUE s)</div><div class="line"><a name="l05263"></a><span class="lineno"> 5263</span> {</div><div class="line"><a name="l05264"></a><span class="lineno"> 5264</span>  char *beg, *end, *pend;</div><div class="line"><a name="l05265"></a><span class="lineno"> 5265</span>  rb_encoding *enc = must_be_ascii_compatible(s);</div><div class="line"><a name="l05266"></a><span class="lineno"> 5266</span> </div><div class="line"><a name="l05267"></a><span class="lineno"> 5267</span>  beg = RSTRING_PTR(s);</div><div class="line"><a name="l05268"></a><span class="lineno"> 5268</span>  if (lex_gets_ptr) {</div><div class="line"><a name="l05269"></a><span class="lineno"> 5269</span>  if (RSTRING_LEN(s) == lex_gets_ptr) return Qnil;</div><div class="line"><a name="l05270"></a><span class="lineno"> 5270</span>  beg += lex_gets_ptr;</div><div class="line"><a name="l05271"></a><span class="lineno"> 5271</span>  }</div><div class="line"><a name="l05272"></a><span class="lineno"> 5272</span>  pend = RSTRING_PTR(s) + RSTRING_LEN(s);</div><div class="line"><a name="l05273"></a><span class="lineno"> 5273</span>  end = beg;</div><div class="line"><a name="l05274"></a><span class="lineno"> 5274</span>  while (end < pend) {</div><div class="line"><a name="l05275"></a><span class="lineno"> 5275</span>  if (*end++ == '\n') break;</div><div class="line"><a name="l05276"></a><span class="lineno"> 5276</span>  }</div><div class="line"><a name="l05277"></a><span class="lineno"> 5277</span>  lex_gets_ptr = end - RSTRING_PTR(s);</div><div class="line"><a name="l05278"></a><span class="lineno"> 5278</span>  return rb_enc_str_new(beg, end - beg, enc);</div><div class="line"><a name="l05279"></a><span class="lineno"> 5279</span> }</div><div class="line"><a name="l05280"></a><span class="lineno"> 5280</span> </div><div class="line"><a name="l05281"></a><span class="lineno"> 5281</span> static VALUE</div><div class="line"><a name="l05282"></a><span class="lineno"> 5282</span> lex_getline(struct parser_params *parser)</div><div class="line"><a name="l05283"></a><span class="lineno"> 5283</span> {</div><div class="line"><a name="l05284"></a><span class="lineno"> 5284</span>  VALUE line = (*parser->parser_lex_gets)(parser, parser->parser_lex_input);</div><div class="line"><a name="l05285"></a><span class="lineno"> 5285</span>  if (NIL_P(line)) return line;</div><div class="line"><a name="l05286"></a><span class="lineno"> 5286</span>  must_be_ascii_compatible(line);</div><div class="line"><a name="l05287"></a><span class="lineno"> 5287</span> #ifndef RIPPER</div><div class="line"><a name="l05288"></a><span class="lineno"> 5288</span>  if (ruby_debug_lines) {</div><div class="line"><a name="l05289"></a><span class="lineno"> 5289</span>  rb_enc_associate(line, parser->enc);</div><div class="line"><a name="l05290"></a><span class="lineno"> 5290</span>  rb_ary_push(ruby_debug_lines, line);</div><div class="line"><a name="l05291"></a><span class="lineno"> 5291</span>  }</div><div class="line"><a name="l05292"></a><span class="lineno"> 5292</span>  if (ruby_coverage) {</div><div class="line"><a name="l05293"></a><span class="lineno"> 5293</span>  rb_ary_push(ruby_coverage, Qnil);</div><div class="line"><a name="l05294"></a><span class="lineno"> 5294</span>  }</div><div class="line"><a name="l05295"></a><span class="lineno"> 5295</span> #endif</div><div class="line"><a name="l05296"></a><span class="lineno"> 5296</span>  return line;</div><div class="line"><a name="l05297"></a><span class="lineno"> 5297</span> }</div><div class="line"><a name="l05298"></a><span class="lineno"> 5298</span> </div><div class="line"><a name="l05299"></a><span class="lineno"> 5299</span> #ifdef RIPPER</div><div class="line"><a name="l05300"></a><span class="lineno"> 5300</span> static rb_data_type_t parser_data_type;</div><div class="line"><a name="l05301"></a><span class="lineno"> 5301</span> #else</div><div class="line"><a name="l05302"></a><span class="lineno"> 5302</span> static const rb_data_type_t parser_data_type;</div><div class="line"><a name="l05303"></a><span class="lineno"> 5303</span> </div><div class="line"><a name="l05304"></a><span class="lineno"> 5304</span> static NODE*</div><div class="line"><a name="l05305"></a><span class="lineno"> 5305</span> parser_compile_string(volatile VALUE vparser, const char *f, VALUE s, int line)</div><div class="line"><a name="l05306"></a><span class="lineno"> 5306</span> {</div><div class="line"><a name="l05307"></a><span class="lineno"> 5307</span>  struct parser_params *parser;</div><div class="line"><a name="l05308"></a><span class="lineno"> 5308</span>  NODE *node;</div><div class="line"><a name="l05309"></a><span class="lineno"> 5309</span>  volatile VALUE tmp;</div><div class="line"><a name="l05310"></a><span class="lineno"> 5310</span> </div><div class="line"><a name="l05311"></a><span class="lineno"> 5311</span>  TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l05312"></a><span class="lineno"> 5312</span>  lex_gets = lex_get_str;</div><div class="line"><a name="l05313"></a><span class="lineno"> 5313</span>  lex_gets_ptr = 0;</div><div class="line"><a name="l05314"></a><span class="lineno"> 5314</span>  lex_input = s;</div><div class="line"><a name="l05315"></a><span class="lineno"> 5315</span>  lex_pbeg = lex_p = lex_pend = 0;</div><div class="line"><a name="l05316"></a><span class="lineno"> 5316</span>  compile_for_eval = rb_parse_in_eval();</div><div class="line"><a name="l05317"></a><span class="lineno"> 5317</span> </div><div class="line"><a name="l05318"></a><span class="lineno"> 5318</span>  node = yycompile(parser, f, line);</div><div class="line"><a name="l05319"></a><span class="lineno"> 5319</span>  tmp = vparser; /* prohibit tail call optimization */</div><div class="line"><a name="l05320"></a><span class="lineno"> 5320</span> </div><div class="line"><a name="l05321"></a><span class="lineno"> 5321</span>  return node;</div><div class="line"><a name="l05322"></a><span class="lineno"> 5322</span> }</div><div class="line"><a name="l05323"></a><span class="lineno"> 5323</span> </div><div class="line"><a name="l05324"></a><span class="lineno"> 5324</span> NODE*</div><div class="line"><a name="l05325"></a><span class="lineno"> 5325</span> rb_compile_string(const char *f, VALUE s, int line)</div><div class="line"><a name="l05326"></a><span class="lineno"> 5326</span> {</div><div class="line"><a name="l05327"></a><span class="lineno"> 5327</span>  must_be_ascii_compatible(s);</div><div class="line"><a name="l05328"></a><span class="lineno"> 5328</span>  return parser_compile_string(rb_parser_new(), f, s, line);</div><div class="line"><a name="l05329"></a><span class="lineno"> 5329</span> }</div><div class="line"><a name="l05330"></a><span class="lineno"> 5330</span> </div><div class="line"><a name="l05331"></a><span class="lineno"> 5331</span> NODE*</div><div class="line"><a name="l05332"></a><span class="lineno"> 5332</span> rb_parser_compile_string(volatile VALUE vparser, const char *f, VALUE s, int line)</div><div class="line"><a name="l05333"></a><span class="lineno"> 5333</span> {</div><div class="line"><a name="l05334"></a><span class="lineno"> 5334</span>  must_be_ascii_compatible(s);</div><div class="line"><a name="l05335"></a><span class="lineno"> 5335</span>  return parser_compile_string(vparser, f, s, line);</div><div class="line"><a name="l05336"></a><span class="lineno"> 5336</span> }</div><div class="line"><a name="l05337"></a><span class="lineno"> 5337</span> </div><div class="line"><a name="l05338"></a><span class="lineno"> 5338</span> NODE*</div><div class="line"><a name="l05339"></a><span class="lineno"> 5339</span> rb_compile_cstr(const char *f, const char *s, int len, int line)</div><div class="line"><a name="l05340"></a><span class="lineno"> 5340</span> {</div><div class="line"><a name="l05341"></a><span class="lineno"> 5341</span>  VALUE str = rb_str_new(s, len);</div><div class="line"><a name="l05342"></a><span class="lineno"> 5342</span>  return parser_compile_string(rb_parser_new(), f, str, line);</div><div class="line"><a name="l05343"></a><span class="lineno"> 5343</span> }</div><div class="line"><a name="l05344"></a><span class="lineno"> 5344</span> </div><div class="line"><a name="l05345"></a><span class="lineno"> 5345</span> NODE*</div><div class="line"><a name="l05346"></a><span class="lineno"> 5346</span> rb_parser_compile_cstr(volatile VALUE vparser, const char *f, const char *s, int len, int line)</div><div class="line"><a name="l05347"></a><span class="lineno"> 5347</span> {</div><div class="line"><a name="l05348"></a><span class="lineno"> 5348</span>  VALUE str = rb_str_new(s, len);</div><div class="line"><a name="l05349"></a><span class="lineno"> 5349</span>  return parser_compile_string(vparser, f, str, line);</div><div class="line"><a name="l05350"></a><span class="lineno"> 5350</span> }</div><div class="line"><a name="l05351"></a><span class="lineno"> 5351</span> </div><div class="line"><a name="l05352"></a><span class="lineno"> 5352</span> static VALUE</div><div class="line"><a name="l05353"></a><span class="lineno"> 5353</span> lex_io_gets(struct parser_params *parser, VALUE io)</div><div class="line"><a name="l05354"></a><span class="lineno"> 5354</span> {</div><div class="line"><a name="l05355"></a><span class="lineno"> 5355</span>  return rb_io_gets(io);</div><div class="line"><a name="l05356"></a><span class="lineno"> 5356</span> }</div><div class="line"><a name="l05357"></a><span class="lineno"> 5357</span> </div><div class="line"><a name="l05358"></a><span class="lineno"> 5358</span> NODE*</div><div class="line"><a name="l05359"></a><span class="lineno"> 5359</span> rb_compile_file(const char *f, VALUE file, int start)</div><div class="line"><a name="l05360"></a><span class="lineno"> 5360</span> {</div><div class="line"><a name="l05361"></a><span class="lineno"> 5361</span>  VALUE volatile vparser = rb_parser_new();</div><div class="line"><a name="l05362"></a><span class="lineno"> 5362</span> </div><div class="line"><a name="l05363"></a><span class="lineno"> 5363</span>  return rb_parser_compile_file(vparser, f, file, start);</div><div class="line"><a name="l05364"></a><span class="lineno"> 5364</span> }</div><div class="line"><a name="l05365"></a><span class="lineno"> 5365</span> </div><div class="line"><a name="l05366"></a><span class="lineno"> 5366</span> NODE*</div><div class="line"><a name="l05367"></a><span class="lineno"> 5367</span> rb_parser_compile_file(volatile VALUE vparser, const char *f, VALUE file, int start)</div><div class="line"><a name="l05368"></a><span class="lineno"> 5368</span> {</div><div class="line"><a name="l05369"></a><span class="lineno"> 5369</span>  struct parser_params *parser;</div><div class="line"><a name="l05370"></a><span class="lineno"> 5370</span>  volatile VALUE tmp;</div><div class="line"><a name="l05371"></a><span class="lineno"> 5371</span>  NODE *node;</div><div class="line"><a name="l05372"></a><span class="lineno"> 5372</span> </div><div class="line"><a name="l05373"></a><span class="lineno"> 5373</span>  TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l05374"></a><span class="lineno"> 5374</span>  lex_gets = lex_io_gets;</div><div class="line"><a name="l05375"></a><span class="lineno"> 5375</span>  lex_input = file;</div><div class="line"><a name="l05376"></a><span class="lineno"> 5376</span>  lex_pbeg = lex_p = lex_pend = 0;</div><div class="line"><a name="l05377"></a><span class="lineno"> 5377</span>  compile_for_eval = rb_parse_in_eval();</div><div class="line"><a name="l05378"></a><span class="lineno"> 5378</span> </div><div class="line"><a name="l05379"></a><span class="lineno"> 5379</span>  node = yycompile(parser, f, start);</div><div class="line"><a name="l05380"></a><span class="lineno"> 5380</span>  tmp = vparser; /* prohibit tail call optimization */</div><div class="line"><a name="l05381"></a><span class="lineno"> 5381</span> </div><div class="line"><a name="l05382"></a><span class="lineno"> 5382</span>  return node;</div><div class="line"><a name="l05383"></a><span class="lineno"> 5383</span> }</div><div class="line"><a name="l05384"></a><span class="lineno"> 5384</span> #endif /* !RIPPER */</div><div class="line"><a name="l05385"></a><span class="lineno"> 5385</span> </div><div class="line"><a name="l05386"></a><span class="lineno"> 5386</span> #define STR_FUNC_ESCAPE 0x01</div><div class="line"><a name="l05387"></a><span class="lineno"> 5387</span> #define STR_FUNC_EXPAND 0x02</div><div class="line"><a name="l05388"></a><span class="lineno"> 5388</span> #define STR_FUNC_REGEXP 0x04</div><div class="line"><a name="l05389"></a><span class="lineno"> 5389</span> #define STR_FUNC_QWORDS 0x08</div><div class="line"><a name="l05390"></a><span class="lineno"> 5390</span> #define STR_FUNC_SYMBOL 0x10</div><div class="line"><a name="l05391"></a><span class="lineno"> 5391</span> #define STR_FUNC_INDENT 0x20</div><div class="line"><a name="l05392"></a><span class="lineno"> 5392</span> </div><div class="line"><a name="l05393"></a><span class="lineno"> 5393</span> enum string_type {</div><div class="line"><a name="l05394"></a><span class="lineno"> 5394</span>  str_squote = (0),</div><div class="line"><a name="l05395"></a><span class="lineno"> 5395</span>  str_dquote = (STR_FUNC_EXPAND),</div><div class="line"><a name="l05396"></a><span class="lineno"> 5396</span>  str_xquote = (STR_FUNC_EXPAND),</div><div class="line"><a name="l05397"></a><span class="lineno"> 5397</span>  str_regexp = (STR_FUNC_REGEXP|STR_FUNC_ESCAPE|STR_FUNC_EXPAND),</div><div class="line"><a name="l05398"></a><span class="lineno"> 5398</span>  str_sword = (STR_FUNC_QWORDS),</div><div class="line"><a name="l05399"></a><span class="lineno"> 5399</span>  str_dword = (STR_FUNC_QWORDS|STR_FUNC_EXPAND),</div><div class="line"><a name="l05400"></a><span class="lineno"> 5400</span>  str_ssym = (STR_FUNC_SYMBOL),</div><div class="line"><a name="l05401"></a><span class="lineno"> 5401</span>  str_dsym = (STR_FUNC_SYMBOL|STR_FUNC_EXPAND)</div><div class="line"><a name="l05402"></a><span class="lineno"> 5402</span> };</div><div class="line"><a name="l05403"></a><span class="lineno"> 5403</span> </div><div class="line"><a name="l05404"></a><span class="lineno"> 5404</span> static VALUE</div><div class="line"><a name="l05405"></a><span class="lineno"> 5405</span> parser_str_new(const char *p, long n, rb_encoding *enc, int func, rb_encoding *enc0)</div><div class="line"><a name="l05406"></a><span class="lineno"> 5406</span> {</div><div class="line"><a name="l05407"></a><span class="lineno"> 5407</span>  VALUE str;</div><div class="line"><a name="l05408"></a><span class="lineno"> 5408</span> </div><div class="line"><a name="l05409"></a><span class="lineno"> 5409</span>  str = rb_enc_str_new(p, n, enc);</div><div class="line"><a name="l05410"></a><span class="lineno"> 5410</span>  if (!(func & STR_FUNC_REGEXP) && rb_enc_asciicompat(enc)) {</div><div class="line"><a name="l05411"></a><span class="lineno"> 5411</span>  if (rb_enc_str_coderange(str) == ENC_CODERANGE_7BIT) {</div><div class="line"><a name="l05412"></a><span class="lineno"> 5412</span>  }</div><div class="line"><a name="l05413"></a><span class="lineno"> 5413</span>  else if (enc0 == rb_usascii_encoding() && enc != rb_utf8_encoding()) {</div><div class="line"><a name="l05414"></a><span class="lineno"> 5414</span>  rb_enc_associate(str, rb_ascii8bit_encoding());</div><div class="line"><a name="l05415"></a><span class="lineno"> 5415</span>  }</div><div class="line"><a name="l05416"></a><span class="lineno"> 5416</span>  }</div><div class="line"><a name="l05417"></a><span class="lineno"> 5417</span> </div><div class="line"><a name="l05418"></a><span class="lineno"> 5418</span>  return str;</div><div class="line"><a name="l05419"></a><span class="lineno"> 5419</span> }</div><div class="line"><a name="l05420"></a><span class="lineno"> 5420</span> </div><div class="line"><a name="l05421"></a><span class="lineno"> 5421</span> #define lex_goto_eol(parser) ((parser)->parser_lex_p = (parser)->parser_lex_pend)</div><div class="line"><a name="l05422"></a><span class="lineno"> 5422</span> #define lex_eol_p() (lex_p >= lex_pend)</div><div class="line"><a name="l05423"></a><span class="lineno"> 5423</span> #define peek(c) peek_n((c), 0)</div><div class="line"><a name="l05424"></a><span class="lineno"> 5424</span> #define peek_n(c,n) (lex_p+(n) < lex_pend && (c) == (unsigned char)lex_p[n])</div><div class="line"><a name="l05425"></a><span class="lineno"> 5425</span> </div><div class="line"><a name="l05426"></a><span class="lineno"> 5426</span> static inline int</div><div class="line"><a name="l05427"></a><span class="lineno"> 5427</span> parser_nextc(struct parser_params *parser)</div><div class="line"><a name="l05428"></a><span class="lineno"> 5428</span> {</div><div class="line"><a name="l05429"></a><span class="lineno"> 5429</span>  int c;</div><div class="line"><a name="l05430"></a><span class="lineno"> 5430</span> </div><div class="line"><a name="l05431"></a><span class="lineno"> 5431</span>  if (lex_p == lex_pend) {</div><div class="line"><a name="l05432"></a><span class="lineno"> 5432</span>  VALUE v = lex_nextline;</div><div class="line"><a name="l05433"></a><span class="lineno"> 5433</span>  lex_nextline = 0;</div><div class="line"><a name="l05434"></a><span class="lineno"> 5434</span>  if (!v) {</div><div class="line"><a name="l05435"></a><span class="lineno"> 5435</span>  if (parser->eofp)</div><div class="line"><a name="l05436"></a><span class="lineno"> 5436</span>  return -1;</div><div class="line"><a name="l05437"></a><span class="lineno"> 5437</span> </div><div class="line"><a name="l05438"></a><span class="lineno"> 5438</span>  if (!lex_input || NIL_P(v = lex_getline(parser))) {</div><div class="line"><a name="l05439"></a><span class="lineno"> 5439</span>  parser->eofp = Qtrue;</div><div class="line"><a name="l05440"></a><span class="lineno"> 5440</span>  lex_goto_eol(parser);</div><div class="line"><a name="l05441"></a><span class="lineno"> 5441</span>  return -1;</div><div class="line"><a name="l05442"></a><span class="lineno"> 5442</span>  }</div><div class="line"><a name="l05443"></a><span class="lineno"> 5443</span>  }</div><div class="line"><a name="l05444"></a><span class="lineno"> 5444</span>  {</div><div class="line"><a name="l05445"></a><span class="lineno"> 5445</span> #ifdef RIPPER</div><div class="line"><a name="l05446"></a><span class="lineno"> 5446</span>  if (parser->tokp < lex_pend) {</div><div class="line"><a name="l05447"></a><span class="lineno"> 5447</span>  if (NIL_P(parser->delayed)) {</div><div class="line"><a name="l05448"></a><span class="lineno"> 5448</span>  parser->delayed = rb_str_buf_new(1024);</div><div class="line"><a name="l05449"></a><span class="lineno"> 5449</span>  rb_enc_associate(parser->delayed, parser->enc);</div><div class="line"><a name="l05450"></a><span class="lineno"> 5450</span>  rb_str_buf_cat(parser->delayed,</div><div class="line"><a name="l05451"></a><span class="lineno"> 5451</span>  parser->tokp, lex_pend - parser->tokp);</div><div class="line"><a name="l05452"></a><span class="lineno"> 5452</span>  parser->delayed_line = ruby_sourceline;</div><div class="line"><a name="l05453"></a><span class="lineno"> 5453</span>  parser->delayed_col = (int)(parser->tokp - lex_pbeg);</div><div class="line"><a name="l05454"></a><span class="lineno"> 5454</span>  }</div><div class="line"><a name="l05455"></a><span class="lineno"> 5455</span>  else {</div><div class="line"><a name="l05456"></a><span class="lineno"> 5456</span>  rb_str_buf_cat(parser->delayed,</div><div class="line"><a name="l05457"></a><span class="lineno"> 5457</span>  parser->tokp, lex_pend - parser->tokp);</div><div class="line"><a name="l05458"></a><span class="lineno"> 5458</span>  }</div><div class="line"><a name="l05459"></a><span class="lineno"> 5459</span>  }</div><div class="line"><a name="l05460"></a><span class="lineno"> 5460</span> #endif</div><div class="line"><a name="l05461"></a><span class="lineno"> 5461</span>  if (heredoc_end > 0) {</div><div class="line"><a name="l05462"></a><span class="lineno"> 5462</span>  ruby_sourceline = heredoc_end;</div><div class="line"><a name="l05463"></a><span class="lineno"> 5463</span>  heredoc_end = 0;</div><div class="line"><a name="l05464"></a><span class="lineno"> 5464</span>  }</div><div class="line"><a name="l05465"></a><span class="lineno"> 5465</span>  ruby_sourceline++;</div><div class="line"><a name="l05466"></a><span class="lineno"> 5466</span>  parser->line_count++;</div><div class="line"><a name="l05467"></a><span class="lineno"> 5467</span>  lex_pbeg = lex_p = RSTRING_PTR(v);</div><div class="line"><a name="l05468"></a><span class="lineno"> 5468</span>  lex_pend = lex_p + RSTRING_LEN(v);</div><div class="line"><a name="l05469"></a><span class="lineno"> 5469</span>  ripper_flush(parser);</div><div class="line"><a name="l05470"></a><span class="lineno"> 5470</span>  lex_lastline = v;</div><div class="line"><a name="l05471"></a><span class="lineno"> 5471</span>  }</div><div class="line"><a name="l05472"></a><span class="lineno"> 5472</span>  }</div><div class="line"><a name="l05473"></a><span class="lineno"> 5473</span>  c = (unsigned char)*lex_p++;</div><div class="line"><a name="l05474"></a><span class="lineno"> 5474</span>  if (c == '\r' && peek('\n')) {</div><div class="line"><a name="l05475"></a><span class="lineno"> 5475</span>  lex_p++;</div><div class="line"><a name="l05476"></a><span class="lineno"> 5476</span>  c = '\n';</div><div class="line"><a name="l05477"></a><span class="lineno"> 5477</span>  }</div><div class="line"><a name="l05478"></a><span class="lineno"> 5478</span> </div><div class="line"><a name="l05479"></a><span class="lineno"> 5479</span>  return c;</div><div class="line"><a name="l05480"></a><span class="lineno"> 5480</span> }</div><div class="line"><a name="l05481"></a><span class="lineno"> 5481</span> </div><div class="line"><a name="l05482"></a><span class="lineno"> 5482</span> static void</div><div class="line"><a name="l05483"></a><span class="lineno"> 5483</span> parser_pushback(struct parser_params *parser, int c)</div><div class="line"><a name="l05484"></a><span class="lineno"> 5484</span> {</div><div class="line"><a name="l05485"></a><span class="lineno"> 5485</span>  if (c == -1) return;</div><div class="line"><a name="l05486"></a><span class="lineno"> 5486</span>  lex_p--;</div><div class="line"><a name="l05487"></a><span class="lineno"> 5487</span>  if (lex_p > lex_pbeg && lex_p[0] == '\n' && lex_p[-1] == '\r') {</div><div class="line"><a name="l05488"></a><span class="lineno"> 5488</span>  lex_p--;</div><div class="line"><a name="l05489"></a><span class="lineno"> 5489</span>  }</div><div class="line"><a name="l05490"></a><span class="lineno"> 5490</span> }</div><div class="line"><a name="l05491"></a><span class="lineno"> 5491</span> </div><div class="line"><a name="l05492"></a><span class="lineno"> 5492</span> #define was_bol() (lex_p == lex_pbeg + 1)</div><div class="line"><a name="l05493"></a><span class="lineno"> 5493</span> </div><div class="line"><a name="l05494"></a><span class="lineno"> 5494</span> #define tokfix() (tokenbuf[tokidx]='\0')</div><div class="line"><a name="l05495"></a><span class="lineno"> 5495</span> #define tok() tokenbuf</div><div class="line"><a name="l05496"></a><span class="lineno"> 5496</span> #define toklen() tokidx</div><div class="line"><a name="l05497"></a><span class="lineno"> 5497</span> #define toklast() (tokidx>0?tokenbuf[tokidx-1]:0)</div><div class="line"><a name="l05498"></a><span class="lineno"> 5498</span> </div><div class="line"><a name="l05499"></a><span class="lineno"> 5499</span> static char*</div><div class="line"><a name="l05500"></a><span class="lineno"> 5500</span> parser_newtok(struct parser_params *parser)</div><div class="line"><a name="l05501"></a><span class="lineno"> 5501</span> {</div><div class="line"><a name="l05502"></a><span class="lineno"> 5502</span>  tokidx = 0;</div><div class="line"><a name="l05503"></a><span class="lineno"> 5503</span>  if (!tokenbuf) {</div><div class="line"><a name="l05504"></a><span class="lineno"> 5504</span>  toksiz = 60;</div><div class="line"><a name="l05505"></a><span class="lineno"> 5505</span>  tokenbuf = ALLOC_N(char, 60);</div><div class="line"><a name="l05506"></a><span class="lineno"> 5506</span>  }</div><div class="line"><a name="l05507"></a><span class="lineno"> 5507</span>  if (toksiz > 4096) {</div><div class="line"><a name="l05508"></a><span class="lineno"> 5508</span>  toksiz = 60;</div><div class="line"><a name="l05509"></a><span class="lineno"> 5509</span>  REALLOC_N(tokenbuf, char, 60);</div><div class="line"><a name="l05510"></a><span class="lineno"> 5510</span>  }</div><div class="line"><a name="l05511"></a><span class="lineno"> 5511</span>  return tokenbuf;</div><div class="line"><a name="l05512"></a><span class="lineno"> 5512</span> }</div><div class="line"><a name="l05513"></a><span class="lineno"> 5513</span> </div><div class="line"><a name="l05514"></a><span class="lineno"> 5514</span> static char *</div><div class="line"><a name="l05515"></a><span class="lineno"> 5515</span> parser_tokspace(struct parser_params *parser, int n)</div><div class="line"><a name="l05516"></a><span class="lineno"> 5516</span> {</div><div class="line"><a name="l05517"></a><span class="lineno"> 5517</span>  tokidx += n;</div><div class="line"><a name="l05518"></a><span class="lineno"> 5518</span> </div><div class="line"><a name="l05519"></a><span class="lineno"> 5519</span>  if (tokidx >= toksiz) {</div><div class="line"><a name="l05520"></a><span class="lineno"> 5520</span>  do {toksiz *= 2;} while (toksiz < tokidx);</div><div class="line"><a name="l05521"></a><span class="lineno"> 5521</span>  REALLOC_N(tokenbuf, char, toksiz);</div><div class="line"><a name="l05522"></a><span class="lineno"> 5522</span>  }</div><div class="line"><a name="l05523"></a><span class="lineno"> 5523</span>  return &tokenbuf[tokidx-n];</div><div class="line"><a name="l05524"></a><span class="lineno"> 5524</span> }</div><div class="line"><a name="l05525"></a><span class="lineno"> 5525</span> </div><div class="line"><a name="l05526"></a><span class="lineno"> 5526</span> static void</div><div class="line"><a name="l05527"></a><span class="lineno"> 5527</span> parser_tokadd(struct parser_params *parser, int c)</div><div class="line"><a name="l05528"></a><span class="lineno"> 5528</span> {</div><div class="line"><a name="l05529"></a><span class="lineno"> 5529</span>  tokenbuf[tokidx++] = (char)c;</div><div class="line"><a name="l05530"></a><span class="lineno"> 5530</span>  if (tokidx >= toksiz) {</div><div class="line"><a name="l05531"></a><span class="lineno"> 5531</span>  toksiz *= 2;</div><div class="line"><a name="l05532"></a><span class="lineno"> 5532</span>  REALLOC_N(tokenbuf, char, toksiz);</div><div class="line"><a name="l05533"></a><span class="lineno"> 5533</span>  }</div><div class="line"><a name="l05534"></a><span class="lineno"> 5534</span> }</div><div class="line"><a name="l05535"></a><span class="lineno"> 5535</span> </div><div class="line"><a name="l05536"></a><span class="lineno"> 5536</span> static int</div><div class="line"><a name="l05537"></a><span class="lineno"> 5537</span> parser_tok_hex(struct parser_params *parser, size_t *numlen)</div><div class="line"><a name="l05538"></a><span class="lineno"> 5538</span> {</div><div class="line"><a name="l05539"></a><span class="lineno"> 5539</span>  int c;</div><div class="line"><a name="l05540"></a><span class="lineno"> 5540</span> </div><div class="line"><a name="l05541"></a><span class="lineno"> 5541</span>  c = scan_hex(lex_p, 2, numlen);</div><div class="line"><a name="l05542"></a><span class="lineno"> 5542</span>  if (!*numlen) {</div><div class="line"><a name="l05543"></a><span class="lineno"> 5543</span>  yyerror("invalid hex escape");</div><div class="line"><a name="l05544"></a><span class="lineno"> 5544</span>  return 0;</div><div class="line"><a name="l05545"></a><span class="lineno"> 5545</span>  }</div><div class="line"><a name="l05546"></a><span class="lineno"> 5546</span>  lex_p += *numlen;</div><div class="line"><a name="l05547"></a><span class="lineno"> 5547</span>  return c;</div><div class="line"><a name="l05548"></a><span class="lineno"> 5548</span> }</div><div class="line"><a name="l05549"></a><span class="lineno"> 5549</span> </div><div class="line"><a name="l05550"></a><span class="lineno"> 5550</span> #define tokcopy(n) memcpy(tokspace(n), lex_p - (n), (n))</div><div class="line"><a name="l05551"></a><span class="lineno"> 5551</span> </div><div class="line"><a name="l05552"></a><span class="lineno"> 5552</span> static int</div><div class="line"><a name="l05553"></a><span class="lineno"> 5553</span> parser_tokadd_utf8(struct parser_params *parser, rb_encoding **encp,</div><div class="line"><a name="l05554"></a><span class="lineno"> 5554</span>  int string_literal, int symbol_literal, int regexp_literal)</div><div class="line"><a name="l05555"></a><span class="lineno"> 5555</span> {</div><div class="line"><a name="l05556"></a><span class="lineno"> 5556</span>  /*</div><div class="line"><a name="l05557"></a><span class="lineno"> 5557</span>  * If string_literal is true, then we allow multiple codepoints</div><div class="line"><a name="l05558"></a><span class="lineno"> 5558</span>  * in \u{}, and add the codepoints to the current token.</div><div class="line"><a name="l05559"></a><span class="lineno"> 5559</span>  * Otherwise we're parsing a character literal and return a single</div><div class="line"><a name="l05560"></a><span class="lineno"> 5560</span>  * codepoint without adding it</div><div class="line"><a name="l05561"></a><span class="lineno"> 5561</span>  */</div><div class="line"><a name="l05562"></a><span class="lineno"> 5562</span> </div><div class="line"><a name="l05563"></a><span class="lineno"> 5563</span>  int codepoint;</div><div class="line"><a name="l05564"></a><span class="lineno"> 5564</span>  size_t numlen;</div><div class="line"><a name="l05565"></a><span class="lineno"> 5565</span> </div><div class="line"><a name="l05566"></a><span class="lineno"> 5566</span>  if (regexp_literal) { tokadd('\\'); tokadd('u'); }</div><div class="line"><a name="l05567"></a><span class="lineno"> 5567</span> </div><div class="line"><a name="l05568"></a><span class="lineno"> 5568</span>  if (peek('{')) { /* handle \u{...} form */</div><div class="line"><a name="l05569"></a><span class="lineno"> 5569</span>  do {</div><div class="line"><a name="l05570"></a><span class="lineno"> 5570</span>  if (regexp_literal) { tokadd(*lex_p); }</div><div class="line"><a name="l05571"></a><span class="lineno"> 5571</span>  nextc();</div><div class="line"><a name="l05572"></a><span class="lineno"> 5572</span>  codepoint = scan_hex(lex_p, 6, &numlen);</div><div class="line"><a name="l05573"></a><span class="lineno"> 5573</span>  if (numlen == 0) {</div><div class="line"><a name="l05574"></a><span class="lineno"> 5574</span>  yyerror("invalid Unicode escape");</div><div class="line"><a name="l05575"></a><span class="lineno"> 5575</span>  return 0;</div><div class="line"><a name="l05576"></a><span class="lineno"> 5576</span>  }</div><div class="line"><a name="l05577"></a><span class="lineno"> 5577</span>  if (codepoint > 0x10ffff) {</div><div class="line"><a name="l05578"></a><span class="lineno"> 5578</span>  yyerror("invalid Unicode codepoint (too large)");</div><div class="line"><a name="l05579"></a><span class="lineno"> 5579</span>  return 0;</div><div class="line"><a name="l05580"></a><span class="lineno"> 5580</span>  }</div><div class="line"><a name="l05581"></a><span class="lineno"> 5581</span>  lex_p += numlen;</div><div class="line"><a name="l05582"></a><span class="lineno"> 5582</span>  if (regexp_literal) {</div><div class="line"><a name="l05583"></a><span class="lineno"> 5583</span>  tokcopy((int)numlen);</div><div class="line"><a name="l05584"></a><span class="lineno"> 5584</span>  }</div><div class="line"><a name="l05585"></a><span class="lineno"> 5585</span>  else if (codepoint >= 0x80) {</div><div class="line"><a name="l05586"></a><span class="lineno"> 5586</span>  *encp = UTF8_ENC();</div><div class="line"><a name="l05587"></a><span class="lineno"> 5587</span>  if (string_literal) tokaddmbc(codepoint, *encp);</div><div class="line"><a name="l05588"></a><span class="lineno"> 5588</span>  }</div><div class="line"><a name="l05589"></a><span class="lineno"> 5589</span>  else if (string_literal) {</div><div class="line"><a name="l05590"></a><span class="lineno"> 5590</span>  tokadd(codepoint);</div><div class="line"><a name="l05591"></a><span class="lineno"> 5591</span>  }</div><div class="line"><a name="l05592"></a><span class="lineno"> 5592</span>  } while (string_literal && (peek(' ') || peek('\t')));</div><div class="line"><a name="l05593"></a><span class="lineno"> 5593</span> </div><div class="line"><a name="l05594"></a><span class="lineno"> 5594</span>  if (!peek('}')) {</div><div class="line"><a name="l05595"></a><span class="lineno"> 5595</span>  yyerror("unterminated Unicode escape");</div><div class="line"><a name="l05596"></a><span class="lineno"> 5596</span>  return 0;</div><div class="line"><a name="l05597"></a><span class="lineno"> 5597</span>  }</div><div class="line"><a name="l05598"></a><span class="lineno"> 5598</span> </div><div class="line"><a name="l05599"></a><span class="lineno"> 5599</span>  if (regexp_literal) { tokadd('}'); }</div><div class="line"><a name="l05600"></a><span class="lineno"> 5600</span>  nextc();</div><div class="line"><a name="l05601"></a><span class="lineno"> 5601</span>  }</div><div class="line"><a name="l05602"></a><span class="lineno"> 5602</span>  else { /* handle \uxxxx form */</div><div class="line"><a name="l05603"></a><span class="lineno"> 5603</span>  codepoint = scan_hex(lex_p, 4, &numlen);</div><div class="line"><a name="l05604"></a><span class="lineno"> 5604</span>  if (numlen < 4) {</div><div class="line"><a name="l05605"></a><span class="lineno"> 5605</span>  yyerror("invalid Unicode escape");</div><div class="line"><a name="l05606"></a><span class="lineno"> 5606</span>  return 0;</div><div class="line"><a name="l05607"></a><span class="lineno"> 5607</span>  }</div><div class="line"><a name="l05608"></a><span class="lineno"> 5608</span>  lex_p += 4;</div><div class="line"><a name="l05609"></a><span class="lineno"> 5609</span>  if (regexp_literal) {</div><div class="line"><a name="l05610"></a><span class="lineno"> 5610</span>  tokcopy(4);</div><div class="line"><a name="l05611"></a><span class="lineno"> 5611</span>  }</div><div class="line"><a name="l05612"></a><span class="lineno"> 5612</span>  else if (codepoint >= 0x80) {</div><div class="line"><a name="l05613"></a><span class="lineno"> 5613</span>  *encp = UTF8_ENC();</div><div class="line"><a name="l05614"></a><span class="lineno"> 5614</span>  if (string_literal) tokaddmbc(codepoint, *encp);</div><div class="line"><a name="l05615"></a><span class="lineno"> 5615</span>  }</div><div class="line"><a name="l05616"></a><span class="lineno"> 5616</span>  else if (string_literal) {</div><div class="line"><a name="l05617"></a><span class="lineno"> 5617</span>  tokadd(codepoint);</div><div class="line"><a name="l05618"></a><span class="lineno"> 5618</span>  }</div><div class="line"><a name="l05619"></a><span class="lineno"> 5619</span>  }</div><div class="line"><a name="l05620"></a><span class="lineno"> 5620</span> </div><div class="line"><a name="l05621"></a><span class="lineno"> 5621</span>  return codepoint;</div><div class="line"><a name="l05622"></a><span class="lineno"> 5622</span> }</div><div class="line"><a name="l05623"></a><span class="lineno"> 5623</span> </div><div class="line"><a name="l05624"></a><span class="lineno"> 5624</span> #define ESCAPE_CONTROL 1</div><div class="line"><a name="l05625"></a><span class="lineno"> 5625</span> #define ESCAPE_META 2</div><div class="line"><a name="l05626"></a><span class="lineno"> 5626</span> </div><div class="line"><a name="l05627"></a><span class="lineno"> 5627</span> static int</div><div class="line"><a name="l05628"></a><span class="lineno"> 5628</span> parser_read_escape(struct parser_params *parser, int flags,</div><div class="line"><a name="l05629"></a><span class="lineno"> 5629</span>  rb_encoding **encp)</div><div class="line"><a name="l05630"></a><span class="lineno"> 5630</span> {</div><div class="line"><a name="l05631"></a><span class="lineno"> 5631</span>  int c;</div><div class="line"><a name="l05632"></a><span class="lineno"> 5632</span>  size_t numlen;</div><div class="line"><a name="l05633"></a><span class="lineno"> 5633</span> </div><div class="line"><a name="l05634"></a><span class="lineno"> 5634</span>  switch (c = nextc()) {</div><div class="line"><a name="l05635"></a><span class="lineno"> 5635</span>  case '\\': /* Backslash */</div><div class="line"><a name="l05636"></a><span class="lineno"> 5636</span>  return c;</div><div class="line"><a name="l05637"></a><span class="lineno"> 5637</span> </div><div class="line"><a name="l05638"></a><span class="lineno"> 5638</span>  case 'n': /* newline */</div><div class="line"><a name="l05639"></a><span class="lineno"> 5639</span>  return '\n';</div><div class="line"><a name="l05640"></a><span class="lineno"> 5640</span> </div><div class="line"><a name="l05641"></a><span class="lineno"> 5641</span>  case 't': /* horizontal tab */</div><div class="line"><a name="l05642"></a><span class="lineno"> 5642</span>  return '\t';</div><div class="line"><a name="l05643"></a><span class="lineno"> 5643</span> </div><div class="line"><a name="l05644"></a><span class="lineno"> 5644</span>  case 'r': /* carriage-return */</div><div class="line"><a name="l05645"></a><span class="lineno"> 5645</span>  return '\r';</div><div class="line"><a name="l05646"></a><span class="lineno"> 5646</span> </div><div class="line"><a name="l05647"></a><span class="lineno"> 5647</span>  case 'f': /* form-feed */</div><div class="line"><a name="l05648"></a><span class="lineno"> 5648</span>  return '\f';</div><div class="line"><a name="l05649"></a><span class="lineno"> 5649</span> </div><div class="line"><a name="l05650"></a><span class="lineno"> 5650</span>  case 'v': /* vertical tab */</div><div class="line"><a name="l05651"></a><span class="lineno"> 5651</span>  return '\13';</div><div class="line"><a name="l05652"></a><span class="lineno"> 5652</span> </div><div class="line"><a name="l05653"></a><span class="lineno"> 5653</span>  case 'a': /* alarm(bell) */</div><div class="line"><a name="l05654"></a><span class="lineno"> 5654</span>  return '\007';</div><div class="line"><a name="l05655"></a><span class="lineno"> 5655</span> </div><div class="line"><a name="l05656"></a><span class="lineno"> 5656</span>  case 'e': /* escape */</div><div class="line"><a name="l05657"></a><span class="lineno"> 5657</span>  return 033;</div><div class="line"><a name="l05658"></a><span class="lineno"> 5658</span> </div><div class="line"><a name="l05659"></a><span class="lineno"> 5659</span>  case '0': case '1': case '2': case '3': /* octal constant */</div><div class="line"><a name="l05660"></a><span class="lineno"> 5660</span>  case '4': case '5': case '6': case '7':</div><div class="line"><a name="l05661"></a><span class="lineno"> 5661</span>  pushback(c);</div><div class="line"><a name="l05662"></a><span class="lineno"> 5662</span>  c = scan_oct(lex_p, 3, &numlen);</div><div class="line"><a name="l05663"></a><span class="lineno"> 5663</span>  lex_p += numlen;</div><div class="line"><a name="l05664"></a><span class="lineno"> 5664</span>  return c;</div><div class="line"><a name="l05665"></a><span class="lineno"> 5665</span> </div><div class="line"><a name="l05666"></a><span class="lineno"> 5666</span>  case 'x': /* hex constant */</div><div class="line"><a name="l05667"></a><span class="lineno"> 5667</span>  c = tok_hex(&numlen);</div><div class="line"><a name="l05668"></a><span class="lineno"> 5668</span>  if (numlen == 0) return 0;</div><div class="line"><a name="l05669"></a><span class="lineno"> 5669</span>  return c;</div><div class="line"><a name="l05670"></a><span class="lineno"> 5670</span> </div><div class="line"><a name="l05671"></a><span class="lineno"> 5671</span>  case 'b': /* backspace */</div><div class="line"><a name="l05672"></a><span class="lineno"> 5672</span>  return '\010';</div><div class="line"><a name="l05673"></a><span class="lineno"> 5673</span> </div><div class="line"><a name="l05674"></a><span class="lineno"> 5674</span>  case 's': /* space */</div><div class="line"><a name="l05675"></a><span class="lineno"> 5675</span>  return ' ';</div><div class="line"><a name="l05676"></a><span class="lineno"> 5676</span> </div><div class="line"><a name="l05677"></a><span class="lineno"> 5677</span>  case 'M':</div><div class="line"><a name="l05678"></a><span class="lineno"> 5678</span>  if (flags & ESCAPE_META) goto eof;</div><div class="line"><a name="l05679"></a><span class="lineno"> 5679</span>  if ((c = nextc()) != '-') {</div><div class="line"><a name="l05680"></a><span class="lineno"> 5680</span>  pushback(c);</div><div class="line"><a name="l05681"></a><span class="lineno"> 5681</span>  goto eof;</div><div class="line"><a name="l05682"></a><span class="lineno"> 5682</span>  }</div><div class="line"><a name="l05683"></a><span class="lineno"> 5683</span>  if ((c = nextc()) == '\\') {</div><div class="line"><a name="l05684"></a><span class="lineno"> 5684</span>  if (peek('u')) goto eof;</div><div class="line"><a name="l05685"></a><span class="lineno"> 5685</span>  return read_escape(flags|ESCAPE_META, encp) | 0x80;</div><div class="line"><a name="l05686"></a><span class="lineno"> 5686</span>  }</div><div class="line"><a name="l05687"></a><span class="lineno"> 5687</span>  else if (c == -1 || !ISASCII(c)) goto eof;</div><div class="line"><a name="l05688"></a><span class="lineno"> 5688</span>  else {</div><div class="line"><a name="l05689"></a><span class="lineno"> 5689</span>  return ((c & 0xff) | 0x80);</div><div class="line"><a name="l05690"></a><span class="lineno"> 5690</span>  }</div><div class="line"><a name="l05691"></a><span class="lineno"> 5691</span> </div><div class="line"><a name="l05692"></a><span class="lineno"> 5692</span>  case 'C':</div><div class="line"><a name="l05693"></a><span class="lineno"> 5693</span>  if ((c = nextc()) != '-') {</div><div class="line"><a name="l05694"></a><span class="lineno"> 5694</span>  pushback(c);</div><div class="line"><a name="l05695"></a><span class="lineno"> 5695</span>  goto eof;</div><div class="line"><a name="l05696"></a><span class="lineno"> 5696</span>  }</div><div class="line"><a name="l05697"></a><span class="lineno"> 5697</span>  case 'c':</div><div class="line"><a name="l05698"></a><span class="lineno"> 5698</span>  if (flags & ESCAPE_CONTROL) goto eof;</div><div class="line"><a name="l05699"></a><span class="lineno"> 5699</span>  if ((c = nextc())== '\\') {</div><div class="line"><a name="l05700"></a><span class="lineno"> 5700</span>  if (peek('u')) goto eof;</div><div class="line"><a name="l05701"></a><span class="lineno"> 5701</span>  c = read_escape(flags|ESCAPE_CONTROL, encp);</div><div class="line"><a name="l05702"></a><span class="lineno"> 5702</span>  }</div><div class="line"><a name="l05703"></a><span class="lineno"> 5703</span>  else if (c == '?')</div><div class="line"><a name="l05704"></a><span class="lineno"> 5704</span>  return 0177;</div><div class="line"><a name="l05705"></a><span class="lineno"> 5705</span>  else if (c == -1 || !ISASCII(c)) goto eof;</div><div class="line"><a name="l05706"></a><span class="lineno"> 5706</span>  return c & 0x9f;</div><div class="line"><a name="l05707"></a><span class="lineno"> 5707</span> </div><div class="line"><a name="l05708"></a><span class="lineno"> 5708</span>  eof:</div><div class="line"><a name="l05709"></a><span class="lineno"> 5709</span>  case -1:</div><div class="line"><a name="l05710"></a><span class="lineno"> 5710</span>  yyerror("Invalid escape character syntax");</div><div class="line"><a name="l05711"></a><span class="lineno"> 5711</span>  return '\0';</div><div class="line"><a name="l05712"></a><span class="lineno"> 5712</span> </div><div class="line"><a name="l05713"></a><span class="lineno"> 5713</span>  default:</div><div class="line"><a name="l05714"></a><span class="lineno"> 5714</span>  return c;</div><div class="line"><a name="l05715"></a><span class="lineno"> 5715</span>  }</div><div class="line"><a name="l05716"></a><span class="lineno"> 5716</span> }</div><div class="line"><a name="l05717"></a><span class="lineno"> 5717</span> </div><div class="line"><a name="l05718"></a><span class="lineno"> 5718</span> static void</div><div class="line"><a name="l05719"></a><span class="lineno"> 5719</span> parser_tokaddmbc(struct parser_params *parser, int c, rb_encoding *enc)</div><div class="line"><a name="l05720"></a><span class="lineno"> 5720</span> {</div><div class="line"><a name="l05721"></a><span class="lineno"> 5721</span>  int len = rb_enc_codelen(c, enc);</div><div class="line"><a name="l05722"></a><span class="lineno"> 5722</span>  rb_enc_mbcput(c, tokspace(len), enc);</div><div class="line"><a name="l05723"></a><span class="lineno"> 5723</span> }</div><div class="line"><a name="l05724"></a><span class="lineno"> 5724</span> </div><div class="line"><a name="l05725"></a><span class="lineno"> 5725</span> static int</div><div class="line"><a name="l05726"></a><span class="lineno"> 5726</span> parser_tokadd_escape(struct parser_params *parser, rb_encoding **encp)</div><div class="line"><a name="l05727"></a><span class="lineno"> 5727</span> {</div><div class="line"><a name="l05728"></a><span class="lineno"> 5728</span>  int c;</div><div class="line"><a name="l05729"></a><span class="lineno"> 5729</span>  int flags = 0;</div><div class="line"><a name="l05730"></a><span class="lineno"> 5730</span>  size_t numlen;</div><div class="line"><a name="l05731"></a><span class="lineno"> 5731</span> </div><div class="line"><a name="l05732"></a><span class="lineno"> 5732</span>  first:</div><div class="line"><a name="l05733"></a><span class="lineno"> 5733</span>  switch (c = nextc()) {</div><div class="line"><a name="l05734"></a><span class="lineno"> 5734</span>  case '\n':</div><div class="line"><a name="l05735"></a><span class="lineno"> 5735</span>  return 0; /* just ignore */</div><div class="line"><a name="l05736"></a><span class="lineno"> 5736</span> </div><div class="line"><a name="l05737"></a><span class="lineno"> 5737</span>  case '0': case '1': case '2': case '3': /* octal constant */</div><div class="line"><a name="l05738"></a><span class="lineno"> 5738</span>  case '4': case '5': case '6': case '7':</div><div class="line"><a name="l05739"></a><span class="lineno"> 5739</span>  {</div><div class="line"><a name="l05740"></a><span class="lineno"> 5740</span>  ruby_scan_oct(--lex_p, 3, &numlen);</div><div class="line"><a name="l05741"></a><span class="lineno"> 5741</span>  if (numlen == 0) goto eof;</div><div class="line"><a name="l05742"></a><span class="lineno"> 5742</span>  lex_p += numlen;</div><div class="line"><a name="l05743"></a><span class="lineno"> 5743</span>  tokcopy((int)numlen + 1);</div><div class="line"><a name="l05744"></a><span class="lineno"> 5744</span>  }</div><div class="line"><a name="l05745"></a><span class="lineno"> 5745</span>  return 0;</div><div class="line"><a name="l05746"></a><span class="lineno"> 5746</span> </div><div class="line"><a name="l05747"></a><span class="lineno"> 5747</span>  case 'x': /* hex constant */</div><div class="line"><a name="l05748"></a><span class="lineno"> 5748</span>  {</div><div class="line"><a name="l05749"></a><span class="lineno"> 5749</span>  tok_hex(&numlen);</div><div class="line"><a name="l05750"></a><span class="lineno"> 5750</span>  if (numlen == 0) return -1;</div><div class="line"><a name="l05751"></a><span class="lineno"> 5751</span>  tokcopy((int)numlen + 2);</div><div class="line"><a name="l05752"></a><span class="lineno"> 5752</span>  }</div><div class="line"><a name="l05753"></a><span class="lineno"> 5753</span>  return 0;</div><div class="line"><a name="l05754"></a><span class="lineno"> 5754</span> </div><div class="line"><a name="l05755"></a><span class="lineno"> 5755</span>  case 'M':</div><div class="line"><a name="l05756"></a><span class="lineno"> 5756</span>  if (flags & ESCAPE_META) goto eof;</div><div class="line"><a name="l05757"></a><span class="lineno"> 5757</span>  if ((c = nextc()) != '-') {</div><div class="line"><a name="l05758"></a><span class="lineno"> 5758</span>  pushback(c);</div><div class="line"><a name="l05759"></a><span class="lineno"> 5759</span>  goto eof;</div><div class="line"><a name="l05760"></a><span class="lineno"> 5760</span>  }</div><div class="line"><a name="l05761"></a><span class="lineno"> 5761</span>  tokcopy(3);</div><div class="line"><a name="l05762"></a><span class="lineno"> 5762</span>  flags |= ESCAPE_META;</div><div class="line"><a name="l05763"></a><span class="lineno"> 5763</span>  goto escaped;</div><div class="line"><a name="l05764"></a><span class="lineno"> 5764</span> </div><div class="line"><a name="l05765"></a><span class="lineno"> 5765</span>  case 'C':</div><div class="line"><a name="l05766"></a><span class="lineno"> 5766</span>  if (flags & ESCAPE_CONTROL) goto eof;</div><div class="line"><a name="l05767"></a><span class="lineno"> 5767</span>  if ((c = nextc()) != '-') {</div><div class="line"><a name="l05768"></a><span class="lineno"> 5768</span>  pushback(c);</div><div class="line"><a name="l05769"></a><span class="lineno"> 5769</span>  goto eof;</div><div class="line"><a name="l05770"></a><span class="lineno"> 5770</span>  }</div><div class="line"><a name="l05771"></a><span class="lineno"> 5771</span>  tokcopy(3);</div><div class="line"><a name="l05772"></a><span class="lineno"> 5772</span>  goto escaped;</div><div class="line"><a name="l05773"></a><span class="lineno"> 5773</span> </div><div class="line"><a name="l05774"></a><span class="lineno"> 5774</span>  case 'c':</div><div class="line"><a name="l05775"></a><span class="lineno"> 5775</span>  if (flags & ESCAPE_CONTROL) goto eof;</div><div class="line"><a name="l05776"></a><span class="lineno"> 5776</span>  tokcopy(2);</div><div class="line"><a name="l05777"></a><span class="lineno"> 5777</span>  flags |= ESCAPE_CONTROL;</div><div class="line"><a name="l05778"></a><span class="lineno"> 5778</span>  escaped:</div><div class="line"><a name="l05779"></a><span class="lineno"> 5779</span>  if ((c = nextc()) == '\\') {</div><div class="line"><a name="l05780"></a><span class="lineno"> 5780</span>  goto first;</div><div class="line"><a name="l05781"></a><span class="lineno"> 5781</span>  }</div><div class="line"><a name="l05782"></a><span class="lineno"> 5782</span>  else if (c == -1) goto eof;</div><div class="line"><a name="l05783"></a><span class="lineno"> 5783</span>  tokadd(c);</div><div class="line"><a name="l05784"></a><span class="lineno"> 5784</span>  return 0;</div><div class="line"><a name="l05785"></a><span class="lineno"> 5785</span> </div><div class="line"><a name="l05786"></a><span class="lineno"> 5786</span>  eof:</div><div class="line"><a name="l05787"></a><span class="lineno"> 5787</span>  case -1:</div><div class="line"><a name="l05788"></a><span class="lineno"> 5788</span>  yyerror("Invalid escape character syntax");</div><div class="line"><a name="l05789"></a><span class="lineno"> 5789</span>  return -1;</div><div class="line"><a name="l05790"></a><span class="lineno"> 5790</span> </div><div class="line"><a name="l05791"></a><span class="lineno"> 5791</span>  default:</div><div class="line"><a name="l05792"></a><span class="lineno"> 5792</span>  tokadd('\\');</div><div class="line"><a name="l05793"></a><span class="lineno"> 5793</span>  tokadd(c);</div><div class="line"><a name="l05794"></a><span class="lineno"> 5794</span>  }</div><div class="line"><a name="l05795"></a><span class="lineno"> 5795</span>  return 0;</div><div class="line"><a name="l05796"></a><span class="lineno"> 5796</span> }</div><div class="line"><a name="l05797"></a><span class="lineno"> 5797</span> </div><div class="line"><a name="l05798"></a><span class="lineno"> 5798</span> static int</div><div class="line"><a name="l05799"></a><span class="lineno"> 5799</span> parser_regx_options(struct parser_params *parser)</div><div class="line"><a name="l05800"></a><span class="lineno"> 5800</span> {</div><div class="line"><a name="l05801"></a><span class="lineno"> 5801</span>  int kcode = 0;</div><div class="line"><a name="l05802"></a><span class="lineno"> 5802</span>  int kopt = 0;</div><div class="line"><a name="l05803"></a><span class="lineno"> 5803</span>  int options = 0;</div><div class="line"><a name="l05804"></a><span class="lineno"> 5804</span>  int c, opt, kc;</div><div class="line"><a name="l05805"></a><span class="lineno"> 5805</span> </div><div class="line"><a name="l05806"></a><span class="lineno"> 5806</span>  newtok();</div><div class="line"><a name="l05807"></a><span class="lineno"> 5807</span>  while (c = nextc(), ISALPHA(c)) {</div><div class="line"><a name="l05808"></a><span class="lineno"> 5808</span>  if (c == 'o') {</div><div class="line"><a name="l05809"></a><span class="lineno"> 5809</span>  options |= RE_OPTION_ONCE;</div><div class="line"><a name="l05810"></a><span class="lineno"> 5810</span>  }</div><div class="line"><a name="l05811"></a><span class="lineno"> 5811</span>  else if (rb_char_to_option_kcode(c, &opt, &kc)) {</div><div class="line"><a name="l05812"></a><span class="lineno"> 5812</span>  if (kc >= 0) {</div><div class="line"><a name="l05813"></a><span class="lineno"> 5813</span>  if (kc != rb_ascii8bit_encindex()) kcode = c;</div><div class="line"><a name="l05814"></a><span class="lineno"> 5814</span>  kopt = opt;</div><div class="line"><a name="l05815"></a><span class="lineno"> 5815</span>  }</div><div class="line"><a name="l05816"></a><span class="lineno"> 5816</span>  else {</div><div class="line"><a name="l05817"></a><span class="lineno"> 5817</span>  options |= opt;</div><div class="line"><a name="l05818"></a><span class="lineno"> 5818</span>  }</div><div class="line"><a name="l05819"></a><span class="lineno"> 5819</span>  }</div><div class="line"><a name="l05820"></a><span class="lineno"> 5820</span>  else {</div><div class="line"><a name="l05821"></a><span class="lineno"> 5821</span>  tokadd(c);</div><div class="line"><a name="l05822"></a><span class="lineno"> 5822</span>  }</div><div class="line"><a name="l05823"></a><span class="lineno"> 5823</span>  }</div><div class="line"><a name="l05824"></a><span class="lineno"> 5824</span>  options |= kopt;</div><div class="line"><a name="l05825"></a><span class="lineno"> 5825</span>  pushback(c);</div><div class="line"><a name="l05826"></a><span class="lineno"> 5826</span>  if (toklen()) {</div><div class="line"><a name="l05827"></a><span class="lineno"> 5827</span>  tokfix();</div><div class="line"><a name="l05828"></a><span class="lineno"> 5828</span>  compile_error(PARSER_ARG "unknown regexp option%s - %s",</div><div class="line"><a name="l05829"></a><span class="lineno"> 5829</span>  toklen() > 1 ? "s" : "", tok());</div><div class="line"><a name="l05830"></a><span class="lineno"> 5830</span>  }</div><div class="line"><a name="l05831"></a><span class="lineno"> 5831</span>  return options | RE_OPTION_ENCODING(kcode);</div><div class="line"><a name="l05832"></a><span class="lineno"> 5832</span> }</div><div class="line"><a name="l05833"></a><span class="lineno"> 5833</span> </div><div class="line"><a name="l05834"></a><span class="lineno"> 5834</span> static void</div><div class="line"><a name="l05835"></a><span class="lineno"> 5835</span> dispose_string(VALUE str)</div><div class="line"><a name="l05836"></a><span class="lineno"> 5836</span> {</div><div class="line"><a name="l05837"></a><span class="lineno"> 5837</span>  /* TODO: should use another API? */</div><div class="line"><a name="l05838"></a><span class="lineno"> 5838</span>  if (RBASIC(str)->flags & RSTRING_NOEMBED)</div><div class="line"><a name="l05839"></a><span class="lineno"> 5839</span>  xfree(RSTRING_PTR(str));</div><div class="line"><a name="l05840"></a><span class="lineno"> 5840</span>  rb_gc_force_recycle(str);</div><div class="line"><a name="l05841"></a><span class="lineno"> 5841</span> }</div><div class="line"><a name="l05842"></a><span class="lineno"> 5842</span> </div><div class="line"><a name="l05843"></a><span class="lineno"> 5843</span> static int</div><div class="line"><a name="l05844"></a><span class="lineno"> 5844</span> parser_tokadd_mbchar(struct parser_params *parser, int c)</div><div class="line"><a name="l05845"></a><span class="lineno"> 5845</span> {</div><div class="line"><a name="l05846"></a><span class="lineno"> 5846</span>  int len = parser_precise_mbclen();</div><div class="line"><a name="l05847"></a><span class="lineno"> 5847</span>  if (!MBCLEN_CHARFOUND_P(len)) {</div><div class="line"><a name="l05848"></a><span class="lineno"> 5848</span>  compile_error(PARSER_ARG "invalid multibyte char (%s)", parser_encoding_name());</div><div class="line"><a name="l05849"></a><span class="lineno"> 5849</span>  return -1;</div><div class="line"><a name="l05850"></a><span class="lineno"> 5850</span>  }</div><div class="line"><a name="l05851"></a><span class="lineno"> 5851</span>  tokadd(c);</div><div class="line"><a name="l05852"></a><span class="lineno"> 5852</span>  lex_p += --len;</div><div class="line"><a name="l05853"></a><span class="lineno"> 5853</span>  if (len > 0) tokcopy(len);</div><div class="line"><a name="l05854"></a><span class="lineno"> 5854</span>  return c;</div><div class="line"><a name="l05855"></a><span class="lineno"> 5855</span> }</div><div class="line"><a name="l05856"></a><span class="lineno"> 5856</span> </div><div class="line"><a name="l05857"></a><span class="lineno"> 5857</span> #define tokadd_mbchar(c) parser_tokadd_mbchar(parser, (c))</div><div class="line"><a name="l05858"></a><span class="lineno"> 5858</span> </div><div class="line"><a name="l05859"></a><span class="lineno"> 5859</span> static int</div><div class="line"><a name="l05860"></a><span class="lineno"> 5860</span> parser_tokadd_string(struct parser_params *parser,</div><div class="line"><a name="l05861"></a><span class="lineno"> 5861</span>  int func, int term, int paren, long *nest,</div><div class="line"><a name="l05862"></a><span class="lineno"> 5862</span>  rb_encoding **encp)</div><div class="line"><a name="l05863"></a><span class="lineno"> 5863</span> {</div><div class="line"><a name="l05864"></a><span class="lineno"> 5864</span>  int c;</div><div class="line"><a name="l05865"></a><span class="lineno"> 5865</span>  int has_nonascii = 0;</div><div class="line"><a name="l05866"></a><span class="lineno"> 5866</span>  rb_encoding *enc = *encp;</div><div class="line"><a name="l05867"></a><span class="lineno"> 5867</span>  char *errbuf = 0;</div><div class="line"><a name="l05868"></a><span class="lineno"> 5868</span>  static const char mixed_msg[] = "%s mixed within %s source";</div><div class="line"><a name="l05869"></a><span class="lineno"> 5869</span> </div><div class="line"><a name="l05870"></a><span class="lineno"> 5870</span> #define mixed_error(enc1, enc2) if (!errbuf) { \</div><div class="line"><a name="l05871"></a><span class="lineno"> 5871</span>  size_t len = sizeof(mixed_msg) - 4; \</div><div class="line"><a name="l05872"></a><span class="lineno"> 5872</span>  len += strlen(rb_enc_name(enc1)); \</div><div class="line"><a name="l05873"></a><span class="lineno"> 5873</span>  len += strlen(rb_enc_name(enc2)); \</div><div class="line"><a name="l05874"></a><span class="lineno"> 5874</span>  errbuf = ALLOCA_N(char, len); \</div><div class="line"><a name="l05875"></a><span class="lineno"> 5875</span>  snprintf(errbuf, len, mixed_msg, \</div><div class="line"><a name="l05876"></a><span class="lineno"> 5876</span>  rb_enc_name(enc1), \</div><div class="line"><a name="l05877"></a><span class="lineno"> 5877</span>  rb_enc_name(enc2)); \</div><div class="line"><a name="l05878"></a><span class="lineno"> 5878</span>  yyerror(errbuf); \</div><div class="line"><a name="l05879"></a><span class="lineno"> 5879</span>  }</div><div class="line"><a name="l05880"></a><span class="lineno"> 5880</span> #define mixed_escape(beg, enc1, enc2) do { \</div><div class="line"><a name="l05881"></a><span class="lineno"> 5881</span>  const char *pos = lex_p; \</div><div class="line"><a name="l05882"></a><span class="lineno"> 5882</span>  lex_p = (beg); \</div><div class="line"><a name="l05883"></a><span class="lineno"> 5883</span>  mixed_error((enc1), (enc2)); \</div><div class="line"><a name="l05884"></a><span class="lineno"> 5884</span>  lex_p = pos; \</div><div class="line"><a name="l05885"></a><span class="lineno"> 5885</span>  } while (0)</div><div class="line"><a name="l05886"></a><span class="lineno"> 5886</span> </div><div class="line"><a name="l05887"></a><span class="lineno"> 5887</span>  while ((c = nextc()) != -1) {</div><div class="line"><a name="l05888"></a><span class="lineno"> 5888</span>  if (paren && c == paren) {</div><div class="line"><a name="l05889"></a><span class="lineno"> 5889</span>  ++*nest;</div><div class="line"><a name="l05890"></a><span class="lineno"> 5890</span>  }</div><div class="line"><a name="l05891"></a><span class="lineno"> 5891</span>  else if (c == term) {</div><div class="line"><a name="l05892"></a><span class="lineno"> 5892</span>  if (!nest || !*nest) {</div><div class="line"><a name="l05893"></a><span class="lineno"> 5893</span>  pushback(c);</div><div class="line"><a name="l05894"></a><span class="lineno"> 5894</span>  break;</div><div class="line"><a name="l05895"></a><span class="lineno"> 5895</span>  }</div><div class="line"><a name="l05896"></a><span class="lineno"> 5896</span>  --*nest;</div><div class="line"><a name="l05897"></a><span class="lineno"> 5897</span>  }</div><div class="line"><a name="l05898"></a><span class="lineno"> 5898</span>  else if ((func & STR_FUNC_EXPAND) && c == '#' && lex_p < lex_pend) {</div><div class="line"><a name="l05899"></a><span class="lineno"> 5899</span>  int c2 = *lex_p;</div><div class="line"><a name="l05900"></a><span class="lineno"> 5900</span>  if (c2 == '$' || c2 == '@' || c2 == '{') {</div><div class="line"><a name="l05901"></a><span class="lineno"> 5901</span>  pushback(c);</div><div class="line"><a name="l05902"></a><span class="lineno"> 5902</span>  break;</div><div class="line"><a name="l05903"></a><span class="lineno"> 5903</span>  }</div><div class="line"><a name="l05904"></a><span class="lineno"> 5904</span>  }</div><div class="line"><a name="l05905"></a><span class="lineno"> 5905</span>  else if (c == '\\') {</div><div class="line"><a name="l05906"></a><span class="lineno"> 5906</span>  const char *beg = lex_p - 1;</div><div class="line"><a name="l05907"></a><span class="lineno"> 5907</span>  c = nextc();</div><div class="line"><a name="l05908"></a><span class="lineno"> 5908</span>  switch (c) {</div><div class="line"><a name="l05909"></a><span class="lineno"> 5909</span>  case '\n':</div><div class="line"><a name="l05910"></a><span class="lineno"> 5910</span>  if (func & STR_FUNC_QWORDS) break;</div><div class="line"><a name="l05911"></a><span class="lineno"> 5911</span>  if (func & STR_FUNC_EXPAND) continue;</div><div class="line"><a name="l05912"></a><span class="lineno"> 5912</span>  tokadd('\\');</div><div class="line"><a name="l05913"></a><span class="lineno"> 5913</span>  break;</div><div class="line"><a name="l05914"></a><span class="lineno"> 5914</span> </div><div class="line"><a name="l05915"></a><span class="lineno"> 5915</span>  case '\\':</div><div class="line"><a name="l05916"></a><span class="lineno"> 5916</span>  if (func & STR_FUNC_ESCAPE) tokadd(c);</div><div class="line"><a name="l05917"></a><span class="lineno"> 5917</span>  break;</div><div class="line"><a name="l05918"></a><span class="lineno"> 5918</span> </div><div class="line"><a name="l05919"></a><span class="lineno"> 5919</span>  case 'u':</div><div class="line"><a name="l05920"></a><span class="lineno"> 5920</span>  if ((func & STR_FUNC_EXPAND) == 0) {</div><div class="line"><a name="l05921"></a><span class="lineno"> 5921</span>  tokadd('\\');</div><div class="line"><a name="l05922"></a><span class="lineno"> 5922</span>  break;</div><div class="line"><a name="l05923"></a><span class="lineno"> 5923</span>  }</div><div class="line"><a name="l05924"></a><span class="lineno"> 5924</span>  parser_tokadd_utf8(parser, &enc, 1,</div><div class="line"><a name="l05925"></a><span class="lineno"> 5925</span>  func & STR_FUNC_SYMBOL,</div><div class="line"><a name="l05926"></a><span class="lineno"> 5926</span>  func & STR_FUNC_REGEXP);</div><div class="line"><a name="l05927"></a><span class="lineno"> 5927</span>  if (has_nonascii && enc != *encp) {</div><div class="line"><a name="l05928"></a><span class="lineno"> 5928</span>  mixed_escape(beg, enc, *encp);</div><div class="line"><a name="l05929"></a><span class="lineno"> 5929</span>  }</div><div class="line"><a name="l05930"></a><span class="lineno"> 5930</span>  continue;</div><div class="line"><a name="l05931"></a><span class="lineno"> 5931</span> </div><div class="line"><a name="l05932"></a><span class="lineno"> 5932</span>  default:</div><div class="line"><a name="l05933"></a><span class="lineno"> 5933</span>  if (c == -1) return -1;</div><div class="line"><a name="l05934"></a><span class="lineno"> 5934</span>  if (!ISASCII(c)) {</div><div class="line"><a name="l05935"></a><span class="lineno"> 5935</span>  if ((func & STR_FUNC_EXPAND) == 0) tokadd('\\');</div><div class="line"><a name="l05936"></a><span class="lineno"> 5936</span>  goto non_ascii;</div><div class="line"><a name="l05937"></a><span class="lineno"> 5937</span>  }</div><div class="line"><a name="l05938"></a><span class="lineno"> 5938</span>  if (func & STR_FUNC_REGEXP) {</div><div class="line"><a name="l05939"></a><span class="lineno"> 5939</span>  pushback(c);</div><div class="line"><a name="l05940"></a><span class="lineno"> 5940</span>  if ((c = tokadd_escape(&enc)) < 0)</div><div class="line"><a name="l05941"></a><span class="lineno"> 5941</span>  return -1;</div><div class="line"><a name="l05942"></a><span class="lineno"> 5942</span>  if (has_nonascii && enc != *encp) {</div><div class="line"><a name="l05943"></a><span class="lineno"> 5943</span>  mixed_escape(beg, enc, *encp);</div><div class="line"><a name="l05944"></a><span class="lineno"> 5944</span>  }</div><div class="line"><a name="l05945"></a><span class="lineno"> 5945</span>  continue;</div><div class="line"><a name="l05946"></a><span class="lineno"> 5946</span>  }</div><div class="line"><a name="l05947"></a><span class="lineno"> 5947</span>  else if (func & STR_FUNC_EXPAND) {</div><div class="line"><a name="l05948"></a><span class="lineno"> 5948</span>  pushback(c);</div><div class="line"><a name="l05949"></a><span class="lineno"> 5949</span>  if (func & STR_FUNC_ESCAPE) tokadd('\\');</div><div class="line"><a name="l05950"></a><span class="lineno"> 5950</span>  c = read_escape(0, &enc);</div><div class="line"><a name="l05951"></a><span class="lineno"> 5951</span>  }</div><div class="line"><a name="l05952"></a><span class="lineno"> 5952</span>  else if ((func & STR_FUNC_QWORDS) && ISSPACE(c)) {</div><div class="line"><a name="l05953"></a><span class="lineno"> 5953</span>  /* ignore backslashed spaces in %w */</div><div class="line"><a name="l05954"></a><span class="lineno"> 5954</span>  }</div><div class="line"><a name="l05955"></a><span class="lineno"> 5955</span>  else if (c != term && !(paren && c == paren)) {</div><div class="line"><a name="l05956"></a><span class="lineno"> 5956</span>  tokadd('\\');</div><div class="line"><a name="l05957"></a><span class="lineno"> 5957</span>  pushback(c);</div><div class="line"><a name="l05958"></a><span class="lineno"> 5958</span>  continue;</div><div class="line"><a name="l05959"></a><span class="lineno"> 5959</span>  }</div><div class="line"><a name="l05960"></a><span class="lineno"> 5960</span>  }</div><div class="line"><a name="l05961"></a><span class="lineno"> 5961</span>  }</div><div class="line"><a name="l05962"></a><span class="lineno"> 5962</span>  else if (!parser_isascii()) {</div><div class="line"><a name="l05963"></a><span class="lineno"> 5963</span>  non_ascii:</div><div class="line"><a name="l05964"></a><span class="lineno"> 5964</span>  has_nonascii = 1;</div><div class="line"><a name="l05965"></a><span class="lineno"> 5965</span>  if (enc != *encp) {</div><div class="line"><a name="l05966"></a><span class="lineno"> 5966</span>  mixed_error(enc, *encp);</div><div class="line"><a name="l05967"></a><span class="lineno"> 5967</span>  continue;</div><div class="line"><a name="l05968"></a><span class="lineno"> 5968</span>  }</div><div class="line"><a name="l05969"></a><span class="lineno"> 5969</span>  if (tokadd_mbchar(c) == -1) return -1;</div><div class="line"><a name="l05970"></a><span class="lineno"> 5970</span>  continue;</div><div class="line"><a name="l05971"></a><span class="lineno"> 5971</span>  }</div><div class="line"><a name="l05972"></a><span class="lineno"> 5972</span>  else if ((func & STR_FUNC_QWORDS) && ISSPACE(c)) {</div><div class="line"><a name="l05973"></a><span class="lineno"> 5973</span>  pushback(c);</div><div class="line"><a name="l05974"></a><span class="lineno"> 5974</span>  break;</div><div class="line"><a name="l05975"></a><span class="lineno"> 5975</span>  }</div><div class="line"><a name="l05976"></a><span class="lineno"> 5976</span>  if (c & 0x80) {</div><div class="line"><a name="l05977"></a><span class="lineno"> 5977</span>  has_nonascii = 1;</div><div class="line"><a name="l05978"></a><span class="lineno"> 5978</span>  if (enc != *encp) {</div><div class="line"><a name="l05979"></a><span class="lineno"> 5979</span>  mixed_error(enc, *encp);</div><div class="line"><a name="l05980"></a><span class="lineno"> 5980</span>  continue;</div><div class="line"><a name="l05981"></a><span class="lineno"> 5981</span>  }</div><div class="line"><a name="l05982"></a><span class="lineno"> 5982</span>  }</div><div class="line"><a name="l05983"></a><span class="lineno"> 5983</span>  tokadd(c);</div><div class="line"><a name="l05984"></a><span class="lineno"> 5984</span>  }</div><div class="line"><a name="l05985"></a><span class="lineno"> 5985</span>  *encp = enc;</div><div class="line"><a name="l05986"></a><span class="lineno"> 5986</span>  return c;</div><div class="line"><a name="l05987"></a><span class="lineno"> 5987</span> }</div><div class="line"><a name="l05988"></a><span class="lineno"> 5988</span> </div><div class="line"><a name="l05989"></a><span class="lineno"> 5989</span> #define NEW_STRTERM(func, term, paren) \</div><div class="line"><a name="l05990"></a><span class="lineno"> 5990</span>  rb_node_newnode(NODE_STRTERM, (func), (term) | ((paren) << (CHAR_BIT * 2)), 0)</div><div class="line"><a name="l05991"></a><span class="lineno"> 5991</span> </div><div class="line"><a name="l05992"></a><span class="lineno"> 5992</span> #ifdef RIPPER</div><div class="line"><a name="l05993"></a><span class="lineno"> 5993</span> static void</div><div class="line"><a name="l05994"></a><span class="lineno"> 5994</span> ripper_flush_string_content(struct parser_params *parser, rb_encoding *enc)</div><div class="line"><a name="l05995"></a><span class="lineno"> 5995</span> {</div><div class="line"><a name="l05996"></a><span class="lineno"> 5996</span>  if (!NIL_P(parser->delayed)) {</div><div class="line"><a name="l05997"></a><span class="lineno"> 5997</span>  ptrdiff_t len = lex_p - parser->tokp;</div><div class="line"><a name="l05998"></a><span class="lineno"> 5998</span>  if (len > 0) {</div><div class="line"><a name="l05999"></a><span class="lineno"> 5999</span>  rb_enc_str_buf_cat(parser->delayed, parser->tokp, len, enc);</div><div class="line"><a name="l06000"></a><span class="lineno"> 6000</span>  }</div><div class="line"><a name="l06001"></a><span class="lineno"> 6001</span>  ripper_dispatch_delayed_token(parser, tSTRING_CONTENT);</div><div class="line"><a name="l06002"></a><span class="lineno"> 6002</span>  parser->tokp = lex_p;</div><div class="line"><a name="l06003"></a><span class="lineno"> 6003</span>  }</div><div class="line"><a name="l06004"></a><span class="lineno"> 6004</span> }</div><div class="line"><a name="l06005"></a><span class="lineno"> 6005</span> </div><div class="line"><a name="l06006"></a><span class="lineno"> 6006</span> #define flush_string_content(enc) ripper_flush_string_content(parser, (enc))</div><div class="line"><a name="l06007"></a><span class="lineno"> 6007</span> #else</div><div class="line"><a name="l06008"></a><span class="lineno"> 6008</span> #define flush_string_content(enc) ((void)(enc))</div><div class="line"><a name="l06009"></a><span class="lineno"> 6009</span> #endif</div><div class="line"><a name="l06010"></a><span class="lineno"> 6010</span> </div><div class="line"><a name="l06011"></a><span class="lineno"> 6011</span> RUBY_FUNC_EXPORTED const unsigned int ruby_global_name_punct_bits[(0x7e - 0x20 + 31) / 32];</div><div class="line"><a name="l06012"></a><span class="lineno"> 6012</span> /* this can be shared with ripper, since it's independent from struct</div><div class="line"><a name="l06013"></a><span class="lineno"> 6013</span>  * parser_params. */</div><div class="line"><a name="l06014"></a><span class="lineno"> 6014</span> #ifndef RIPPER</div><div class="line"><a name="l06015"></a><span class="lineno"> 6015</span> #define BIT(c, idx) (((c) / 32 - 1 == idx) ? (1U << ((c) % 32)) : 0)</div><div class="line"><a name="l06016"></a><span class="lineno"> 6016</span> #define SPECIAL_PUNCT(idx) ( \</div><div class="line"><a name="l06017"></a><span class="lineno"> 6017</span>  BIT('~', idx) | BIT('*', idx) | BIT('$', idx) | BIT('?', idx) | \</div><div class="line"><a name="l06018"></a><span class="lineno"> 6018</span>  BIT('!', idx) | BIT('@', idx) | BIT('/', idx) | BIT('\\', idx) | \</div><div class="line"><a name="l06019"></a><span class="lineno"> 6019</span>  BIT(';', idx) | BIT(',', idx) | BIT('.', idx) | BIT('=', idx) | \</div><div class="line"><a name="l06020"></a><span class="lineno"> 6020</span>  BIT(':', idx) | BIT('<', idx) | BIT('>', idx) | BIT('\"', idx) | \</div><div class="line"><a name="l06021"></a><span class="lineno"> 6021</span>  BIT('&', idx) | BIT('`', idx) | BIT('\'', idx) | BIT('+', idx) | \</div><div class="line"><a name="l06022"></a><span class="lineno"> 6022</span>  BIT('0', idx))</div><div class="line"><a name="l06023"></a><span class="lineno"> 6023</span> const unsigned int ruby_global_name_punct_bits[] = {</div><div class="line"><a name="l06024"></a><span class="lineno"> 6024</span>  SPECIAL_PUNCT(0),</div><div class="line"><a name="l06025"></a><span class="lineno"> 6025</span>  SPECIAL_PUNCT(1),</div><div class="line"><a name="l06026"></a><span class="lineno"> 6026</span>  SPECIAL_PUNCT(2),</div><div class="line"><a name="l06027"></a><span class="lineno"> 6027</span> };</div><div class="line"><a name="l06028"></a><span class="lineno"> 6028</span> #undef BIT</div><div class="line"><a name="l06029"></a><span class="lineno"> 6029</span> #undef SPECIAL_PUNCT</div><div class="line"><a name="l06030"></a><span class="lineno"> 6030</span> #endif</div><div class="line"><a name="l06031"></a><span class="lineno"> 6031</span> </div><div class="line"><a name="l06032"></a><span class="lineno"> 6032</span> static inline int</div><div class="line"><a name="l06033"></a><span class="lineno"> 6033</span> is_global_name_punct(const char c)</div><div class="line"><a name="l06034"></a><span class="lineno"> 6034</span> {</div><div class="line"><a name="l06035"></a><span class="lineno"> 6035</span>  if (c <= 0x20 || 0x7e < c) return 0;</div><div class="line"><a name="l06036"></a><span class="lineno"> 6036</span>  return (ruby_global_name_punct_bits[(c - 0x20) / 32] >> (c % 32)) & 1;</div><div class="line"><a name="l06037"></a><span class="lineno"> 6037</span> }</div><div class="line"><a name="l06038"></a><span class="lineno"> 6038</span> </div><div class="line"><a name="l06039"></a><span class="lineno"> 6039</span> static int</div><div class="line"><a name="l06040"></a><span class="lineno"> 6040</span> parser_peek_variable_name(struct parser_params *parser)</div><div class="line"><a name="l06041"></a><span class="lineno"> 6041</span> {</div><div class="line"><a name="l06042"></a><span class="lineno"> 6042</span>  int c;</div><div class="line"><a name="l06043"></a><span class="lineno"> 6043</span>  const char *p = lex_p;</div><div class="line"><a name="l06044"></a><span class="lineno"> 6044</span> </div><div class="line"><a name="l06045"></a><span class="lineno"> 6045</span>  if (p + 1 >= lex_pend) return 0;</div><div class="line"><a name="l06046"></a><span class="lineno"> 6046</span>  c = *p++;</div><div class="line"><a name="l06047"></a><span class="lineno"> 6047</span>  switch (c) {</div><div class="line"><a name="l06048"></a><span class="lineno"> 6048</span>  case '$':</div><div class="line"><a name="l06049"></a><span class="lineno"> 6049</span>  if ((c = *p) == '-') {</div><div class="line"><a name="l06050"></a><span class="lineno"> 6050</span>  if (++p >= lex_pend) return 0;</div><div class="line"><a name="l06051"></a><span class="lineno"> 6051</span>  c = *p;</div><div class="line"><a name="l06052"></a><span class="lineno"> 6052</span>  }</div><div class="line"><a name="l06053"></a><span class="lineno"> 6053</span>  else if (is_global_name_punct(c) || ISDIGIT(c)) {</div><div class="line"><a name="l06054"></a><span class="lineno"> 6054</span>  return tSTRING_DVAR;</div><div class="line"><a name="l06055"></a><span class="lineno"> 6055</span>  }</div><div class="line"><a name="l06056"></a><span class="lineno"> 6056</span>  break;</div><div class="line"><a name="l06057"></a><span class="lineno"> 6057</span>  case '@':</div><div class="line"><a name="l06058"></a><span class="lineno"> 6058</span>  if ((c = *p) == '@') {</div><div class="line"><a name="l06059"></a><span class="lineno"> 6059</span>  if (++p >= lex_pend) return 0;</div><div class="line"><a name="l06060"></a><span class="lineno"> 6060</span>  c = *p;</div><div class="line"><a name="l06061"></a><span class="lineno"> 6061</span>  }</div><div class="line"><a name="l06062"></a><span class="lineno"> 6062</span>  break;</div><div class="line"><a name="l06063"></a><span class="lineno"> 6063</span>  case '{':</div><div class="line"><a name="l06064"></a><span class="lineno"> 6064</span>  lex_p = p;</div><div class="line"><a name="l06065"></a><span class="lineno"> 6065</span>  command_start = TRUE;</div><div class="line"><a name="l06066"></a><span class="lineno"> 6066</span>  return tSTRING_DBEG;</div><div class="line"><a name="l06067"></a><span class="lineno"> 6067</span>  default:</div><div class="line"><a name="l06068"></a><span class="lineno"> 6068</span>  return 0;</div><div class="line"><a name="l06069"></a><span class="lineno"> 6069</span>  }</div><div class="line"><a name="l06070"></a><span class="lineno"> 6070</span>  if (!ISASCII(c) || c == '_' || ISALPHA(c))</div><div class="line"><a name="l06071"></a><span class="lineno"> 6071</span>  return tSTRING_DVAR;</div><div class="line"><a name="l06072"></a><span class="lineno"> 6072</span>  return 0;</div><div class="line"><a name="l06073"></a><span class="lineno"> 6073</span> }</div><div class="line"><a name="l06074"></a><span class="lineno"> 6074</span> </div><div class="line"><a name="l06075"></a><span class="lineno"> 6075</span> static int</div><div class="line"><a name="l06076"></a><span class="lineno"> 6076</span> parser_parse_string(struct parser_params *parser, NODE *quote)</div><div class="line"><a name="l06077"></a><span class="lineno"> 6077</span> {</div><div class="line"><a name="l06078"></a><span class="lineno"> 6078</span>  int func = (int)quote->nd_func;</div><div class="line"><a name="l06079"></a><span class="lineno"> 6079</span>  int term = nd_term(quote);</div><div class="line"><a name="l06080"></a><span class="lineno"> 6080</span>  int paren = nd_paren(quote);</div><div class="line"><a name="l06081"></a><span class="lineno"> 6081</span>  int c, space = 0;</div><div class="line"><a name="l06082"></a><span class="lineno"> 6082</span>  rb_encoding *enc = parser->enc;</div><div class="line"><a name="l06083"></a><span class="lineno"> 6083</span> </div><div class="line"><a name="l06084"></a><span class="lineno"> 6084</span>  if (func == -1) return tSTRING_END;</div><div class="line"><a name="l06085"></a><span class="lineno"> 6085</span>  c = nextc();</div><div class="line"><a name="l06086"></a><span class="lineno"> 6086</span>  if ((func & STR_FUNC_QWORDS) && ISSPACE(c)) {</div><div class="line"><a name="l06087"></a><span class="lineno"> 6087</span>  do {c = nextc();} while (ISSPACE(c));</div><div class="line"><a name="l06088"></a><span class="lineno"> 6088</span>  space = 1;</div><div class="line"><a name="l06089"></a><span class="lineno"> 6089</span>  }</div><div class="line"><a name="l06090"></a><span class="lineno"> 6090</span>  if (c == term && !quote->nd_nest) {</div><div class="line"><a name="l06091"></a><span class="lineno"> 6091</span>  if (func & STR_FUNC_QWORDS) {</div><div class="line"><a name="l06092"></a><span class="lineno"> 6092</span>  quote->nd_func = -1;</div><div class="line"><a name="l06093"></a><span class="lineno"> 6093</span>  return ' ';</div><div class="line"><a name="l06094"></a><span class="lineno"> 6094</span>  }</div><div class="line"><a name="l06095"></a><span class="lineno"> 6095</span>  if (!(func & STR_FUNC_REGEXP)) return tSTRING_END;</div><div class="line"><a name="l06096"></a><span class="lineno"> 6096</span>  set_yylval_num(regx_options());</div><div class="line"><a name="l06097"></a><span class="lineno"> 6097</span>  return tREGEXP_END;</div><div class="line"><a name="l06098"></a><span class="lineno"> 6098</span>  }</div><div class="line"><a name="l06099"></a><span class="lineno"> 6099</span>  if (space) {</div><div class="line"><a name="l06100"></a><span class="lineno"> 6100</span>  pushback(c);</div><div class="line"><a name="l06101"></a><span class="lineno"> 6101</span>  return ' ';</div><div class="line"><a name="l06102"></a><span class="lineno"> 6102</span>  }</div><div class="line"><a name="l06103"></a><span class="lineno"> 6103</span>  newtok();</div><div class="line"><a name="l06104"></a><span class="lineno"> 6104</span>  if ((func & STR_FUNC_EXPAND) && c == '#') {</div><div class="line"><a name="l06105"></a><span class="lineno"> 6105</span>  int t = parser_peek_variable_name(parser);</div><div class="line"><a name="l06106"></a><span class="lineno"> 6106</span>  if (t) return t;</div><div class="line"><a name="l06107"></a><span class="lineno"> 6107</span>  tokadd('#');</div><div class="line"><a name="l06108"></a><span class="lineno"> 6108</span>  c = nextc();</div><div class="line"><a name="l06109"></a><span class="lineno"> 6109</span>  }</div><div class="line"><a name="l06110"></a><span class="lineno"> 6110</span>  pushback(c);</div><div class="line"><a name="l06111"></a><span class="lineno"> 6111</span>  if (tokadd_string(func, term, paren, &quote->nd_nest,</div><div class="line"><a name="l06112"></a><span class="lineno"> 6112</span>  &enc) == -1) {</div><div class="line"><a name="l06113"></a><span class="lineno"> 6113</span>  ruby_sourceline = nd_line(quote);</div><div class="line"><a name="l06114"></a><span class="lineno"> 6114</span>  if (func & STR_FUNC_REGEXP) {</div><div class="line"><a name="l06115"></a><span class="lineno"> 6115</span>  if (parser->eofp)</div><div class="line"><a name="l06116"></a><span class="lineno"> 6116</span>  compile_error(PARSER_ARG "unterminated regexp meets end of file");</div><div class="line"><a name="l06117"></a><span class="lineno"> 6117</span>  return tREGEXP_END;</div><div class="line"><a name="l06118"></a><span class="lineno"> 6118</span>  }</div><div class="line"><a name="l06119"></a><span class="lineno"> 6119</span>  else {</div><div class="line"><a name="l06120"></a><span class="lineno"> 6120</span>  if (parser->eofp)</div><div class="line"><a name="l06121"></a><span class="lineno"> 6121</span>  compile_error(PARSER_ARG "unterminated string meets end of file");</div><div class="line"><a name="l06122"></a><span class="lineno"> 6122</span>  return tSTRING_END;</div><div class="line"><a name="l06123"></a><span class="lineno"> 6123</span>  }</div><div class="line"><a name="l06124"></a><span class="lineno"> 6124</span>  }</div><div class="line"><a name="l06125"></a><span class="lineno"> 6125</span> </div><div class="line"><a name="l06126"></a><span class="lineno"> 6126</span>  tokfix();</div><div class="line"><a name="l06127"></a><span class="lineno"> 6127</span>  set_yylval_str(STR_NEW3(tok(), toklen(), enc, func));</div><div class="line"><a name="l06128"></a><span class="lineno"> 6128</span>  flush_string_content(enc);</div><div class="line"><a name="l06129"></a><span class="lineno"> 6129</span> </div><div class="line"><a name="l06130"></a><span class="lineno"> 6130</span>  return tSTRING_CONTENT;</div><div class="line"><a name="l06131"></a><span class="lineno"> 6131</span> }</div><div class="line"><a name="l06132"></a><span class="lineno"> 6132</span> </div><div class="line"><a name="l06133"></a><span class="lineno"> 6133</span> static int</div><div class="line"><a name="l06134"></a><span class="lineno"> 6134</span> parser_heredoc_identifier(struct parser_params *parser)</div><div class="line"><a name="l06135"></a><span class="lineno"> 6135</span> {</div><div class="line"><a name="l06136"></a><span class="lineno"> 6136</span>  int c = nextc(), term, func = 0;</div><div class="line"><a name="l06137"></a><span class="lineno"> 6137</span>  long len;</div><div class="line"><a name="l06138"></a><span class="lineno"> 6138</span> </div><div class="line"><a name="l06139"></a><span class="lineno"> 6139</span>  if (c == '-') {</div><div class="line"><a name="l06140"></a><span class="lineno"> 6140</span>  c = nextc();</div><div class="line"><a name="l06141"></a><span class="lineno"> 6141</span>  func = STR_FUNC_INDENT;</div><div class="line"><a name="l06142"></a><span class="lineno"> 6142</span>  }</div><div class="line"><a name="l06143"></a><span class="lineno"> 6143</span>  switch (c) {</div><div class="line"><a name="l06144"></a><span class="lineno"> 6144</span>  case '\'':</div><div class="line"><a name="l06145"></a><span class="lineno"> 6145</span>  func |= str_squote; goto quoted;</div><div class="line"><a name="l06146"></a><span class="lineno"> 6146</span>  case '"':</div><div class="line"><a name="l06147"></a><span class="lineno"> 6147</span>  func |= str_dquote; goto quoted;</div><div class="line"><a name="l06148"></a><span class="lineno"> 6148</span>  case '`':</div><div class="line"><a name="l06149"></a><span class="lineno"> 6149</span>  func |= str_xquote;</div><div class="line"><a name="l06150"></a><span class="lineno"> 6150</span>  quoted:</div><div class="line"><a name="l06151"></a><span class="lineno"> 6151</span>  newtok();</div><div class="line"><a name="l06152"></a><span class="lineno"> 6152</span>  tokadd(func);</div><div class="line"><a name="l06153"></a><span class="lineno"> 6153</span>  term = c;</div><div class="line"><a name="l06154"></a><span class="lineno"> 6154</span>  while ((c = nextc()) != -1 && c != term) {</div><div class="line"><a name="l06155"></a><span class="lineno"> 6155</span>  if (tokadd_mbchar(c) == -1) return 0;</div><div class="line"><a name="l06156"></a><span class="lineno"> 6156</span>  }</div><div class="line"><a name="l06157"></a><span class="lineno"> 6157</span>  if (c == -1) {</div><div class="line"><a name="l06158"></a><span class="lineno"> 6158</span>  compile_error(PARSER_ARG "unterminated here document identifier");</div><div class="line"><a name="l06159"></a><span class="lineno"> 6159</span>  return 0;</div><div class="line"><a name="l06160"></a><span class="lineno"> 6160</span>  }</div><div class="line"><a name="l06161"></a><span class="lineno"> 6161</span>  break;</div><div class="line"><a name="l06162"></a><span class="lineno"> 6162</span> </div><div class="line"><a name="l06163"></a><span class="lineno"> 6163</span>  default:</div><div class="line"><a name="l06164"></a><span class="lineno"> 6164</span>  if (!parser_is_identchar()) {</div><div class="line"><a name="l06165"></a><span class="lineno"> 6165</span>  pushback(c);</div><div class="line"><a name="l06166"></a><span class="lineno"> 6166</span>  if (func & STR_FUNC_INDENT) {</div><div class="line"><a name="l06167"></a><span class="lineno"> 6167</span>  pushback('-');</div><div class="line"><a name="l06168"></a><span class="lineno"> 6168</span>  }</div><div class="line"><a name="l06169"></a><span class="lineno"> 6169</span>  return 0;</div><div class="line"><a name="l06170"></a><span class="lineno"> 6170</span>  }</div><div class="line"><a name="l06171"></a><span class="lineno"> 6171</span>  newtok();</div><div class="line"><a name="l06172"></a><span class="lineno"> 6172</span>  term = '"';</div><div class="line"><a name="l06173"></a><span class="lineno"> 6173</span>  tokadd(func |= str_dquote);</div><div class="line"><a name="l06174"></a><span class="lineno"> 6174</span>  do {</div><div class="line"><a name="l06175"></a><span class="lineno"> 6175</span>  if (tokadd_mbchar(c) == -1) return 0;</div><div class="line"><a name="l06176"></a><span class="lineno"> 6176</span>  } while ((c = nextc()) != -1 && parser_is_identchar());</div><div class="line"><a name="l06177"></a><span class="lineno"> 6177</span>  pushback(c);</div><div class="line"><a name="l06178"></a><span class="lineno"> 6178</span>  break;</div><div class="line"><a name="l06179"></a><span class="lineno"> 6179</span>  }</div><div class="line"><a name="l06180"></a><span class="lineno"> 6180</span> </div><div class="line"><a name="l06181"></a><span class="lineno"> 6181</span>  tokfix();</div><div class="line"><a name="l06182"></a><span class="lineno"> 6182</span> #ifdef RIPPER</div><div class="line"><a name="l06183"></a><span class="lineno"> 6183</span>  ripper_dispatch_scan_event(parser, tHEREDOC_BEG);</div><div class="line"><a name="l06184"></a><span class="lineno"> 6184</span> #endif</div><div class="line"><a name="l06185"></a><span class="lineno"> 6185</span>  len = lex_p - lex_pbeg;</div><div class="line"><a name="l06186"></a><span class="lineno"> 6186</span>  lex_goto_eol(parser);</div><div class="line"><a name="l06187"></a><span class="lineno"> 6187</span>  lex_strterm = rb_node_newnode(NODE_HEREDOC,</div><div class="line"><a name="l06188"></a><span class="lineno"> 6188</span>  STR_NEW(tok(), toklen()), /* nd_lit */</div><div class="line"><a name="l06189"></a><span class="lineno"> 6189</span>  len, /* nd_nth */</div><div class="line"><a name="l06190"></a><span class="lineno"> 6190</span>  lex_lastline); /* nd_orig */</div><div class="line"><a name="l06191"></a><span class="lineno"> 6191</span>  nd_set_line(lex_strterm, ruby_sourceline);</div><div class="line"><a name="l06192"></a><span class="lineno"> 6192</span>  ripper_flush(parser);</div><div class="line"><a name="l06193"></a><span class="lineno"> 6193</span>  return term == '`' ? tXSTRING_BEG : tSTRING_BEG;</div><div class="line"><a name="l06194"></a><span class="lineno"> 6194</span> }</div><div class="line"><a name="l06195"></a><span class="lineno"> 6195</span> </div><div class="line"><a name="l06196"></a><span class="lineno"> 6196</span> static void</div><div class="line"><a name="l06197"></a><span class="lineno"> 6197</span> parser_heredoc_restore(struct parser_params *parser, NODE *here)</div><div class="line"><a name="l06198"></a><span class="lineno"> 6198</span> {</div><div class="line"><a name="l06199"></a><span class="lineno"> 6199</span>  VALUE line;</div><div class="line"><a name="l06200"></a><span class="lineno"> 6200</span> </div><div class="line"><a name="l06201"></a><span class="lineno"> 6201</span>  line = here->nd_orig;</div><div class="line"><a name="l06202"></a><span class="lineno"> 6202</span>  lex_lastline = line;</div><div class="line"><a name="l06203"></a><span class="lineno"> 6203</span>  lex_pbeg = RSTRING_PTR(line);</div><div class="line"><a name="l06204"></a><span class="lineno"> 6204</span>  lex_pend = lex_pbeg + RSTRING_LEN(line);</div><div class="line"><a name="l06205"></a><span class="lineno"> 6205</span>  lex_p = lex_pbeg + here->nd_nth;</div><div class="line"><a name="l06206"></a><span class="lineno"> 6206</span>  heredoc_end = ruby_sourceline;</div><div class="line"><a name="l06207"></a><span class="lineno"> 6207</span>  ruby_sourceline = nd_line(here);</div><div class="line"><a name="l06208"></a><span class="lineno"> 6208</span>  dispose_string(here->nd_lit);</div><div class="line"><a name="l06209"></a><span class="lineno"> 6209</span>  rb_gc_force_recycle((VALUE)here);</div><div class="line"><a name="l06210"></a><span class="lineno"> 6210</span>  ripper_flush(parser);</div><div class="line"><a name="l06211"></a><span class="lineno"> 6211</span> }</div><div class="line"><a name="l06212"></a><span class="lineno"> 6212</span> </div><div class="line"><a name="l06213"></a><span class="lineno"> 6213</span> static int</div><div class="line"><a name="l06214"></a><span class="lineno"> 6214</span> parser_whole_match_p(struct parser_params *parser,</div><div class="line"><a name="l06215"></a><span class="lineno"> 6215</span>  const char *eos, long len, int indent)</div><div class="line"><a name="l06216"></a><span class="lineno"> 6216</span> {</div><div class="line"><a name="l06217"></a><span class="lineno"> 6217</span>  const char *p = lex_pbeg;</div><div class="line"><a name="l06218"></a><span class="lineno"> 6218</span>  long n;</div><div class="line"><a name="l06219"></a><span class="lineno"> 6219</span> </div><div class="line"><a name="l06220"></a><span class="lineno"> 6220</span>  if (indent) {</div><div class="line"><a name="l06221"></a><span class="lineno"> 6221</span>  while (*p && ISSPACE(*p)) p++;</div><div class="line"><a name="l06222"></a><span class="lineno"> 6222</span>  }</div><div class="line"><a name="l06223"></a><span class="lineno"> 6223</span>  n = lex_pend - (p + len);</div><div class="line"><a name="l06224"></a><span class="lineno"> 6224</span>  if (n < 0 || (n > 0 && p[len] != '\n' && p[len] != '\r')) return FALSE;</div><div class="line"><a name="l06225"></a><span class="lineno"> 6225</span>  return strncmp(eos, p, len) == 0;</div><div class="line"><a name="l06226"></a><span class="lineno"> 6226</span> }</div><div class="line"><a name="l06227"></a><span class="lineno"> 6227</span> </div><div class="line"><a name="l06228"></a><span class="lineno"> 6228</span> #ifdef RIPPER</div><div class="line"><a name="l06229"></a><span class="lineno"> 6229</span> static void</div><div class="line"><a name="l06230"></a><span class="lineno"> 6230</span> ripper_dispatch_heredoc_end(struct parser_params *parser)</div><div class="line"><a name="l06231"></a><span class="lineno"> 6231</span> {</div><div class="line"><a name="l06232"></a><span class="lineno"> 6232</span>  if (!NIL_P(parser->delayed))</div><div class="line"><a name="l06233"></a><span class="lineno"> 6233</span>  ripper_dispatch_delayed_token(parser, tSTRING_CONTENT);</div><div class="line"><a name="l06234"></a><span class="lineno"> 6234</span>  lex_goto_eol(parser);</div><div class="line"><a name="l06235"></a><span class="lineno"> 6235</span>  ripper_dispatch_ignored_scan_event(parser, tHEREDOC_END);</div><div class="line"><a name="l06236"></a><span class="lineno"> 6236</span> }</div><div class="line"><a name="l06237"></a><span class="lineno"> 6237</span> </div><div class="line"><a name="l06238"></a><span class="lineno"> 6238</span> #define dispatch_heredoc_end() ripper_dispatch_heredoc_end(parser)</div><div class="line"><a name="l06239"></a><span class="lineno"> 6239</span> #else</div><div class="line"><a name="l06240"></a><span class="lineno"> 6240</span> #define dispatch_heredoc_end() ((void)0)</div><div class="line"><a name="l06241"></a><span class="lineno"> 6241</span> #endif</div><div class="line"><a name="l06242"></a><span class="lineno"> 6242</span> </div><div class="line"><a name="l06243"></a><span class="lineno"> 6243</span> static int</div><div class="line"><a name="l06244"></a><span class="lineno"> 6244</span> parser_here_document(struct parser_params *parser, NODE *here)</div><div class="line"><a name="l06245"></a><span class="lineno"> 6245</span> {</div><div class="line"><a name="l06246"></a><span class="lineno"> 6246</span>  int c, func, indent = 0;</div><div class="line"><a name="l06247"></a><span class="lineno"> 6247</span>  const char *eos, *p, *pend;</div><div class="line"><a name="l06248"></a><span class="lineno"> 6248</span>  long len;</div><div class="line"><a name="l06249"></a><span class="lineno"> 6249</span>  VALUE str = 0;</div><div class="line"><a name="l06250"></a><span class="lineno"> 6250</span>  rb_encoding *enc = parser->enc;</div><div class="line"><a name="l06251"></a><span class="lineno"> 6251</span> </div><div class="line"><a name="l06252"></a><span class="lineno"> 6252</span>  eos = RSTRING_PTR(here->nd_lit);</div><div class="line"><a name="l06253"></a><span class="lineno"> 6253</span>  len = RSTRING_LEN(here->nd_lit) - 1;</div><div class="line"><a name="l06254"></a><span class="lineno"> 6254</span>  indent = (func = *eos++) & STR_FUNC_INDENT;</div><div class="line"><a name="l06255"></a><span class="lineno"> 6255</span> </div><div class="line"><a name="l06256"></a><span class="lineno"> 6256</span>  if ((c = nextc()) == -1) {</div><div class="line"><a name="l06257"></a><span class="lineno"> 6257</span>  error:</div><div class="line"><a name="l06258"></a><span class="lineno"> 6258</span>  compile_error(PARSER_ARG "can't find string \"%s\" anywhere before EOF", eos);</div><div class="line"><a name="l06259"></a><span class="lineno"> 6259</span> #ifdef RIPPER</div><div class="line"><a name="l06260"></a><span class="lineno"> 6260</span>  if (NIL_P(parser->delayed)) {</div><div class="line"><a name="l06261"></a><span class="lineno"> 6261</span>  ripper_dispatch_scan_event(parser, tSTRING_CONTENT);</div><div class="line"><a name="l06262"></a><span class="lineno"> 6262</span>  }</div><div class="line"><a name="l06263"></a><span class="lineno"> 6263</span>  else {</div><div class="line"><a name="l06264"></a><span class="lineno"> 6264</span>  if (str ||</div><div class="line"><a name="l06265"></a><span class="lineno"> 6265</span>  ((len = lex_p - parser->tokp) > 0 &&</div><div class="line"><a name="l06266"></a><span class="lineno"> 6266</span>  (str = STR_NEW3(parser->tokp, len, enc, func), 1))) {</div><div class="line"><a name="l06267"></a><span class="lineno"> 6267</span>  rb_str_append(parser->delayed, str);</div><div class="line"><a name="l06268"></a><span class="lineno"> 6268</span>  }</div><div class="line"><a name="l06269"></a><span class="lineno"> 6269</span>  ripper_dispatch_delayed_token(parser, tSTRING_CONTENT);</div><div class="line"><a name="l06270"></a><span class="lineno"> 6270</span>  }</div><div class="line"><a name="l06271"></a><span class="lineno"> 6271</span>  lex_goto_eol(parser);</div><div class="line"><a name="l06272"></a><span class="lineno"> 6272</span> #endif</div><div class="line"><a name="l06273"></a><span class="lineno"> 6273</span>  restore:</div><div class="line"><a name="l06274"></a><span class="lineno"> 6274</span>  heredoc_restore(lex_strterm);</div><div class="line"><a name="l06275"></a><span class="lineno"> 6275</span>  lex_strterm = 0;</div><div class="line"><a name="l06276"></a><span class="lineno"> 6276</span>  return 0;</div><div class="line"><a name="l06277"></a><span class="lineno"> 6277</span>  }</div><div class="line"><a name="l06278"></a><span class="lineno"> 6278</span>  if (was_bol() && whole_match_p(eos, len, indent)) {</div><div class="line"><a name="l06279"></a><span class="lineno"> 6279</span>  dispatch_heredoc_end();</div><div class="line"><a name="l06280"></a><span class="lineno"> 6280</span>  heredoc_restore(lex_strterm);</div><div class="line"><a name="l06281"></a><span class="lineno"> 6281</span>  return tSTRING_END;</div><div class="line"><a name="l06282"></a><span class="lineno"> 6282</span>  }</div><div class="line"><a name="l06283"></a><span class="lineno"> 6283</span> </div><div class="line"><a name="l06284"></a><span class="lineno"> 6284</span>  if (!(func & STR_FUNC_EXPAND)) {</div><div class="line"><a name="l06285"></a><span class="lineno"> 6285</span>  do {</div><div class="line"><a name="l06286"></a><span class="lineno"> 6286</span>  p = RSTRING_PTR(lex_lastline);</div><div class="line"><a name="l06287"></a><span class="lineno"> 6287</span>  pend = lex_pend;</div><div class="line"><a name="l06288"></a><span class="lineno"> 6288</span>  if (pend > p) {</div><div class="line"><a name="l06289"></a><span class="lineno"> 6289</span>  switch (pend[-1]) {</div><div class="line"><a name="l06290"></a><span class="lineno"> 6290</span>  case '\n':</div><div class="line"><a name="l06291"></a><span class="lineno"> 6291</span>  if (--pend == p || pend[-1] != '\r') {</div><div class="line"><a name="l06292"></a><span class="lineno"> 6292</span>  pend++;</div><div class="line"><a name="l06293"></a><span class="lineno"> 6293</span>  break;</div><div class="line"><a name="l06294"></a><span class="lineno"> 6294</span>  }</div><div class="line"><a name="l06295"></a><span class="lineno"> 6295</span>  case '\r':</div><div class="line"><a name="l06296"></a><span class="lineno"> 6296</span>  --pend;</div><div class="line"><a name="l06297"></a><span class="lineno"> 6297</span>  }</div><div class="line"><a name="l06298"></a><span class="lineno"> 6298</span>  }</div><div class="line"><a name="l06299"></a><span class="lineno"> 6299</span>  if (str)</div><div class="line"><a name="l06300"></a><span class="lineno"> 6300</span>  rb_str_cat(str, p, pend - p);</div><div class="line"><a name="l06301"></a><span class="lineno"> 6301</span>  else</div><div class="line"><a name="l06302"></a><span class="lineno"> 6302</span>  str = STR_NEW(p, pend - p);</div><div class="line"><a name="l06303"></a><span class="lineno"> 6303</span>  if (pend < lex_pend) rb_str_cat(str, "\n", 1);</div><div class="line"><a name="l06304"></a><span class="lineno"> 6304</span>  lex_goto_eol(parser);</div><div class="line"><a name="l06305"></a><span class="lineno"> 6305</span>  if (nextc() == -1) {</div><div class="line"><a name="l06306"></a><span class="lineno"> 6306</span>  if (str) dispose_string(str);</div><div class="line"><a name="l06307"></a><span class="lineno"> 6307</span>  goto error;</div><div class="line"><a name="l06308"></a><span class="lineno"> 6308</span>  }</div><div class="line"><a name="l06309"></a><span class="lineno"> 6309</span>  } while (!whole_match_p(eos, len, indent));</div><div class="line"><a name="l06310"></a><span class="lineno"> 6310</span>  }</div><div class="line"><a name="l06311"></a><span class="lineno"> 6311</span>  else {</div><div class="line"><a name="l06312"></a><span class="lineno"> 6312</span>  /* int mb = ENC_CODERANGE_7BIT, *mbp = &mb;*/</div><div class="line"><a name="l06313"></a><span class="lineno"> 6313</span>  newtok();</div><div class="line"><a name="l06314"></a><span class="lineno"> 6314</span>  if (c == '#') {</div><div class="line"><a name="l06315"></a><span class="lineno"> 6315</span>  int t = parser_peek_variable_name(parser);</div><div class="line"><a name="l06316"></a><span class="lineno"> 6316</span>  if (t) return t;</div><div class="line"><a name="l06317"></a><span class="lineno"> 6317</span>  tokadd('#');</div><div class="line"><a name="l06318"></a><span class="lineno"> 6318</span>  c = nextc();</div><div class="line"><a name="l06319"></a><span class="lineno"> 6319</span>  }</div><div class="line"><a name="l06320"></a><span class="lineno"> 6320</span>  do {</div><div class="line"><a name="l06321"></a><span class="lineno"> 6321</span>  pushback(c);</div><div class="line"><a name="l06322"></a><span class="lineno"> 6322</span>  if ((c = tokadd_string(func, '\n', 0, NULL, &enc)) == -1) {</div><div class="line"><a name="l06323"></a><span class="lineno"> 6323</span>  if (parser->eofp) goto error;</div><div class="line"><a name="l06324"></a><span class="lineno"> 6324</span>  goto restore;</div><div class="line"><a name="l06325"></a><span class="lineno"> 6325</span>  }</div><div class="line"><a name="l06326"></a><span class="lineno"> 6326</span>  if (c != '\n') {</div><div class="line"><a name="l06327"></a><span class="lineno"> 6327</span>  set_yylval_str(STR_NEW3(tok(), toklen(), enc, func));</div><div class="line"><a name="l06328"></a><span class="lineno"> 6328</span>  flush_string_content(enc);</div><div class="line"><a name="l06329"></a><span class="lineno"> 6329</span>  return tSTRING_CONTENT;</div><div class="line"><a name="l06330"></a><span class="lineno"> 6330</span>  }</div><div class="line"><a name="l06331"></a><span class="lineno"> 6331</span>  tokadd(nextc());</div><div class="line"><a name="l06332"></a><span class="lineno"> 6332</span>  /* if (mbp && mb == ENC_CODERANGE_UNKNOWN) mbp = 0;*/</div><div class="line"><a name="l06333"></a><span class="lineno"> 6333</span>  if ((c = nextc()) == -1) goto error;</div><div class="line"><a name="l06334"></a><span class="lineno"> 6334</span>  } while (!whole_match_p(eos, len, indent));</div><div class="line"><a name="l06335"></a><span class="lineno"> 6335</span>  str = STR_NEW3(tok(), toklen(), enc, func);</div><div class="line"><a name="l06336"></a><span class="lineno"> 6336</span>  }</div><div class="line"><a name="l06337"></a><span class="lineno"> 6337</span>  dispatch_heredoc_end();</div><div class="line"><a name="l06338"></a><span class="lineno"> 6338</span>  heredoc_restore(lex_strterm);</div><div class="line"><a name="l06339"></a><span class="lineno"> 6339</span>  lex_strterm = NEW_STRTERM(-1, 0, 0);</div><div class="line"><a name="l06340"></a><span class="lineno"> 6340</span>  set_yylval_str(str);</div><div class="line"><a name="l06341"></a><span class="lineno"> 6341</span>  return tSTRING_CONTENT;</div><div class="line"><a name="l06342"></a><span class="lineno"> 6342</span> }</div><div class="line"><a name="l06343"></a><span class="lineno"> 6343</span> </div><div class="line"><a name="l06344"></a><span class="lineno"> 6344</span> #include "lex.c"</div><div class="line"><a name="l06345"></a><span class="lineno"> 6345</span> </div><div class="line"><a name="l06346"></a><span class="lineno"> 6346</span> static void</div><div class="line"><a name="l06347"></a><span class="lineno"> 6347</span> arg_ambiguous_gen(struct parser_params *parser)</div><div class="line"><a name="l06348"></a><span class="lineno"> 6348</span> {</div><div class="line"><a name="l06349"></a><span class="lineno"> 6349</span> #ifndef RIPPER</div><div class="line"><a name="l06350"></a><span class="lineno"> 6350</span>  rb_warning0("ambiguous first argument; put parentheses or even spaces");</div><div class="line"><a name="l06351"></a><span class="lineno"> 6351</span> #else</div><div class="line"><a name="l06352"></a><span class="lineno"> 6352</span>  dispatch0(arg_ambiguous);</div><div class="line"><a name="l06353"></a><span class="lineno"> 6353</span> #endif</div><div class="line"><a name="l06354"></a><span class="lineno"> 6354</span> }</div><div class="line"><a name="l06355"></a><span class="lineno"> 6355</span> #define arg_ambiguous() (arg_ambiguous_gen(parser), 1)</div><div class="line"><a name="l06356"></a><span class="lineno"> 6356</span> </div><div class="line"><a name="l06357"></a><span class="lineno"> 6357</span> static ID</div><div class="line"><a name="l06358"></a><span class="lineno"> 6358</span> formal_argument_gen(struct parser_params *parser, ID lhs)</div><div class="line"><a name="l06359"></a><span class="lineno"> 6359</span> {</div><div class="line"><a name="l06360"></a><span class="lineno"> 6360</span> #ifndef RIPPER</div><div class="line"><a name="l06361"></a><span class="lineno"> 6361</span>  if (!is_local_id(lhs))</div><div class="line"><a name="l06362"></a><span class="lineno"> 6362</span>  yyerror("formal argument must be local variable");</div><div class="line"><a name="l06363"></a><span class="lineno"> 6363</span> #endif</div><div class="line"><a name="l06364"></a><span class="lineno"> 6364</span>  shadowing_lvar(lhs);</div><div class="line"><a name="l06365"></a><span class="lineno"> 6365</span>  return lhs;</div><div class="line"><a name="l06366"></a><span class="lineno"> 6366</span> }</div><div class="line"><a name="l06367"></a><span class="lineno"> 6367</span> </div><div class="line"><a name="l06368"></a><span class="lineno"> 6368</span> static int</div><div class="line"><a name="l06369"></a><span class="lineno"> 6369</span> lvar_defined_gen(struct parser_params *parser, ID id)</div><div class="line"><a name="l06370"></a><span class="lineno"> 6370</span> {</div><div class="line"><a name="l06371"></a><span class="lineno"> 6371</span>  return (dyna_in_block() && dvar_defined_get(id)) || local_id(id);</div><div class="line"><a name="l06372"></a><span class="lineno"> 6372</span> }</div><div class="line"><a name="l06373"></a><span class="lineno"> 6373</span> </div><div class="line"><a name="l06374"></a><span class="lineno"> 6374</span> /* emacsen -*- hack */</div><div class="line"><a name="l06375"></a><span class="lineno"> 6375</span> static long</div><div class="line"><a name="l06376"></a><span class="lineno"> 6376</span> parser_encode_length(struct parser_params *parser, const char *name, long len)</div><div class="line"><a name="l06377"></a><span class="lineno"> 6377</span> {</div><div class="line"><a name="l06378"></a><span class="lineno"> 6378</span>  long nlen;</div><div class="line"><a name="l06379"></a><span class="lineno"> 6379</span> </div><div class="line"><a name="l06380"></a><span class="lineno"> 6380</span>  if (len > 5 && name[nlen = len - 5] == '-') {</div><div class="line"><a name="l06381"></a><span class="lineno"> 6381</span>  if (rb_memcicmp(name + nlen + 1, "unix", 4) == 0)</div><div class="line"><a name="l06382"></a><span class="lineno"> 6382</span>  return nlen;</div><div class="line"><a name="l06383"></a><span class="lineno"> 6383</span>  }</div><div class="line"><a name="l06384"></a><span class="lineno"> 6384</span>  if (len > 4 && name[nlen = len - 4] == '-') {</div><div class="line"><a name="l06385"></a><span class="lineno"> 6385</span>  if (rb_memcicmp(name + nlen + 1, "dos", 3) == 0)</div><div class="line"><a name="l06386"></a><span class="lineno"> 6386</span>  return nlen;</div><div class="line"><a name="l06387"></a><span class="lineno"> 6387</span>  if (rb_memcicmp(name + nlen + 1, "mac", 3) == 0 &&</div><div class="line"><a name="l06388"></a><span class="lineno"> 6388</span>  !(len == 8 && rb_memcicmp(name, "utf8-mac", len) == 0))</div><div class="line"><a name="l06389"></a><span class="lineno"> 6389</span>  /* exclude UTF8-MAC because the encoding named "UTF8" doesn't exist in Ruby */</div><div class="line"><a name="l06390"></a><span class="lineno"> 6390</span>  return nlen;</div><div class="line"><a name="l06391"></a><span class="lineno"> 6391</span>  }</div><div class="line"><a name="l06392"></a><span class="lineno"> 6392</span>  return len;</div><div class="line"><a name="l06393"></a><span class="lineno"> 6393</span> }</div><div class="line"><a name="l06394"></a><span class="lineno"> 6394</span> </div><div class="line"><a name="l06395"></a><span class="lineno"> 6395</span> static void</div><div class="line"><a name="l06396"></a><span class="lineno"> 6396</span> parser_set_encode(struct parser_params *parser, const char *name)</div><div class="line"><a name="l06397"></a><span class="lineno"> 6397</span> {</div><div class="line"><a name="l06398"></a><span class="lineno"> 6398</span>  int idx = rb_enc_find_index(name);</div><div class="line"><a name="l06399"></a><span class="lineno"> 6399</span>  rb_encoding *enc;</div><div class="line"><a name="l06400"></a><span class="lineno"> 6400</span>  VALUE excargs[3];</div><div class="line"><a name="l06401"></a><span class="lineno"> 6401</span> </div><div class="line"><a name="l06402"></a><span class="lineno"> 6402</span>  if (idx < 0) {</div><div class="line"><a name="l06403"></a><span class="lineno"> 6403</span>  excargs[1] = rb_sprintf("unknown encoding name: %s", name);</div><div class="line"><a name="l06404"></a><span class="lineno"> 6404</span>  error:</div><div class="line"><a name="l06405"></a><span class="lineno"> 6405</span>  excargs[0] = rb_eArgError;</div><div class="line"><a name="l06406"></a><span class="lineno"> 6406</span>  excargs[2] = rb_make_backtrace();</div><div class="line"><a name="l06407"></a><span class="lineno"> 6407</span>  rb_ary_unshift(excargs[2], rb_sprintf("%s:%d", ruby_sourcefile, ruby_sourceline));</div><div class="line"><a name="l06408"></a><span class="lineno"> 6408</span>  rb_exc_raise(rb_make_exception(3, excargs));</div><div class="line"><a name="l06409"></a><span class="lineno"> 6409</span>  }</div><div class="line"><a name="l06410"></a><span class="lineno"> 6410</span>  enc = rb_enc_from_index(idx);</div><div class="line"><a name="l06411"></a><span class="lineno"> 6411</span>  if (!rb_enc_asciicompat(enc)) {</div><div class="line"><a name="l06412"></a><span class="lineno"> 6412</span>  excargs[1] = rb_sprintf("%s is not ASCII compatible", rb_enc_name(enc));</div><div class="line"><a name="l06413"></a><span class="lineno"> 6413</span>  goto error;</div><div class="line"><a name="l06414"></a><span class="lineno"> 6414</span>  }</div><div class="line"><a name="l06415"></a><span class="lineno"> 6415</span>  parser->enc = enc;</div><div class="line"><a name="l06416"></a><span class="lineno"> 6416</span> #ifndef RIPPER</div><div class="line"><a name="l06417"></a><span class="lineno"> 6417</span>  if (ruby_debug_lines) {</div><div class="line"><a name="l06418"></a><span class="lineno"> 6418</span>  long i, n = RARRAY_LEN(ruby_debug_lines);</div><div class="line"><a name="l06419"></a><span class="lineno"> 6419</span>  const VALUE *p = RARRAY_PTR(ruby_debug_lines);</div><div class="line"><a name="l06420"></a><span class="lineno"> 6420</span>  for (i = 0; i < n; ++i) {</div><div class="line"><a name="l06421"></a><span class="lineno"> 6421</span>  rb_enc_associate_index(*p, idx);</div><div class="line"><a name="l06422"></a><span class="lineno"> 6422</span>  }</div><div class="line"><a name="l06423"></a><span class="lineno"> 6423</span>  }</div><div class="line"><a name="l06424"></a><span class="lineno"> 6424</span> #endif</div><div class="line"><a name="l06425"></a><span class="lineno"> 6425</span> }</div><div class="line"><a name="l06426"></a><span class="lineno"> 6426</span> </div><div class="line"><a name="l06427"></a><span class="lineno"> 6427</span> static int</div><div class="line"><a name="l06428"></a><span class="lineno"> 6428</span> comment_at_top(struct parser_params *parser)</div><div class="line"><a name="l06429"></a><span class="lineno"> 6429</span> {</div><div class="line"><a name="l06430"></a><span class="lineno"> 6430</span>  const char *p = lex_pbeg, *pend = lex_p - 1;</div><div class="line"><a name="l06431"></a><span class="lineno"> 6431</span>  if (parser->line_count != (parser->has_shebang ? 2 : 1)) return 0;</div><div class="line"><a name="l06432"></a><span class="lineno"> 6432</span>  while (p < pend) {</div><div class="line"><a name="l06433"></a><span class="lineno"> 6433</span>  if (!ISSPACE(*p)) return 0;</div><div class="line"><a name="l06434"></a><span class="lineno"> 6434</span>  p++;</div><div class="line"><a name="l06435"></a><span class="lineno"> 6435</span>  }</div><div class="line"><a name="l06436"></a><span class="lineno"> 6436</span>  return 1;</div><div class="line"><a name="l06437"></a><span class="lineno"> 6437</span> }</div><div class="line"><a name="l06438"></a><span class="lineno"> 6438</span> </div><div class="line"><a name="l06439"></a><span class="lineno"> 6439</span> #ifndef RIPPER</div><div class="line"><a name="l06440"></a><span class="lineno"> 6440</span> typedef long (*rb_magic_comment_length_t)(struct parser_params *parser, const char *name, long len);</div><div class="line"><a name="l06441"></a><span class="lineno"> 6441</span> typedef void (*rb_magic_comment_setter_t)(struct parser_params *parser, const char *name, const char *val);</div><div class="line"><a name="l06442"></a><span class="lineno"> 6442</span> </div><div class="line"><a name="l06443"></a><span class="lineno"> 6443</span> static void</div><div class="line"><a name="l06444"></a><span class="lineno"> 6444</span> magic_comment_encoding(struct parser_params *parser, const char *name, const char *val)</div><div class="line"><a name="l06445"></a><span class="lineno"> 6445</span> {</div><div class="line"><a name="l06446"></a><span class="lineno"> 6446</span>  if (!comment_at_top(parser)) {</div><div class="line"><a name="l06447"></a><span class="lineno"> 6447</span>  return;</div><div class="line"><a name="l06448"></a><span class="lineno"> 6448</span>  }</div><div class="line"><a name="l06449"></a><span class="lineno"> 6449</span>  parser_set_encode(parser, val);</div><div class="line"><a name="l06450"></a><span class="lineno"> 6450</span> }</div><div class="line"><a name="l06451"></a><span class="lineno"> 6451</span> </div><div class="line"><a name="l06452"></a><span class="lineno"> 6452</span> static void</div><div class="line"><a name="l06453"></a><span class="lineno"> 6453</span> parser_set_token_info(struct parser_params *parser, const char *name, const char *val)</div><div class="line"><a name="l06454"></a><span class="lineno"> 6454</span> {</div><div class="line"><a name="l06455"></a><span class="lineno"> 6455</span>  int *p = &parser->parser_token_info_enabled;</div><div class="line"><a name="l06456"></a><span class="lineno"> 6456</span> </div><div class="line"><a name="l06457"></a><span class="lineno"> 6457</span>  switch (*val) {</div><div class="line"><a name="l06458"></a><span class="lineno"> 6458</span>  case 't': case 'T':</div><div class="line"><a name="l06459"></a><span class="lineno"> 6459</span>  if (strcasecmp(val, "true") == 0) {</div><div class="line"><a name="l06460"></a><span class="lineno"> 6460</span>  *p = TRUE;</div><div class="line"><a name="l06461"></a><span class="lineno"> 6461</span>  return;</div><div class="line"><a name="l06462"></a><span class="lineno"> 6462</span>  }</div><div class="line"><a name="l06463"></a><span class="lineno"> 6463</span>  break;</div><div class="line"><a name="l06464"></a><span class="lineno"> 6464</span>  case 'f': case 'F':</div><div class="line"><a name="l06465"></a><span class="lineno"> 6465</span>  if (strcasecmp(val, "false") == 0) {</div><div class="line"><a name="l06466"></a><span class="lineno"> 6466</span>  *p = FALSE;</div><div class="line"><a name="l06467"></a><span class="lineno"> 6467</span>  return;</div><div class="line"><a name="l06468"></a><span class="lineno"> 6468</span>  }</div><div class="line"><a name="l06469"></a><span class="lineno"> 6469</span>  break;</div><div class="line"><a name="l06470"></a><span class="lineno"> 6470</span>  }</div><div class="line"><a name="l06471"></a><span class="lineno"> 6471</span>  rb_compile_warning(ruby_sourcefile, ruby_sourceline, "invalid value for %s: %s", name, val);</div><div class="line"><a name="l06472"></a><span class="lineno"> 6472</span> }</div><div class="line"><a name="l06473"></a><span class="lineno"> 6473</span> </div><div class="line"><a name="l06474"></a><span class="lineno"> 6474</span> struct magic_comment {</div><div class="line"><a name="l06475"></a><span class="lineno"> 6475</span>  const char *name;</div><div class="line"><a name="l06476"></a><span class="lineno"> 6476</span>  rb_magic_comment_setter_t func;</div><div class="line"><a name="l06477"></a><span class="lineno"> 6477</span>  rb_magic_comment_length_t length;</div><div class="line"><a name="l06478"></a><span class="lineno"> 6478</span> };</div><div class="line"><a name="l06479"></a><span class="lineno"> 6479</span> </div><div class="line"><a name="l06480"></a><span class="lineno"> 6480</span> static const struct magic_comment magic_comments[] = {</div><div class="line"><a name="l06481"></a><span class="lineno"> 6481</span>  {"coding", magic_comment_encoding, parser_encode_length},</div><div class="line"><a name="l06482"></a><span class="lineno"> 6482</span>  {"encoding", magic_comment_encoding, parser_encode_length},</div><div class="line"><a name="l06483"></a><span class="lineno"> 6483</span>  {"warn_indent", parser_set_token_info},</div><div class="line"><a name="l06484"></a><span class="lineno"> 6484</span> };</div><div class="line"><a name="l06485"></a><span class="lineno"> 6485</span> #endif</div><div class="line"><a name="l06486"></a><span class="lineno"> 6486</span> </div><div class="line"><a name="l06487"></a><span class="lineno"> 6487</span> static const char *</div><div class="line"><a name="l06488"></a><span class="lineno"> 6488</span> magic_comment_marker(const char *str, long len)</div><div class="line"><a name="l06489"></a><span class="lineno"> 6489</span> {</div><div class="line"><a name="l06490"></a><span class="lineno"> 6490</span>  long i = 2;</div><div class="line"><a name="l06491"></a><span class="lineno"> 6491</span> </div><div class="line"><a name="l06492"></a><span class="lineno"> 6492</span>  while (i < len) {</div><div class="line"><a name="l06493"></a><span class="lineno"> 6493</span>  switch (str[i]) {</div><div class="line"><a name="l06494"></a><span class="lineno"> 6494</span>  case '-':</div><div class="line"><a name="l06495"></a><span class="lineno"> 6495</span>  if (str[i-1] == '*' && str[i-2] == '-') {</div><div class="line"><a name="l06496"></a><span class="lineno"> 6496</span>  return str + i + 1;</div><div class="line"><a name="l06497"></a><span class="lineno"> 6497</span>  }</div><div class="line"><a name="l06498"></a><span class="lineno"> 6498</span>  i += 2;</div><div class="line"><a name="l06499"></a><span class="lineno"> 6499</span>  break;</div><div class="line"><a name="l06500"></a><span class="lineno"> 6500</span>  case '*':</div><div class="line"><a name="l06501"></a><span class="lineno"> 6501</span>  if (i + 1 >= len) return 0;</div><div class="line"><a name="l06502"></a><span class="lineno"> 6502</span>  if (str[i+1] != '-') {</div><div class="line"><a name="l06503"></a><span class="lineno"> 6503</span>  i += 4;</div><div class="line"><a name="l06504"></a><span class="lineno"> 6504</span>  }</div><div class="line"><a name="l06505"></a><span class="lineno"> 6505</span>  else if (str[i-1] != '-') {</div><div class="line"><a name="l06506"></a><span class="lineno"> 6506</span>  i += 2;</div><div class="line"><a name="l06507"></a><span class="lineno"> 6507</span>  }</div><div class="line"><a name="l06508"></a><span class="lineno"> 6508</span>  else {</div><div class="line"><a name="l06509"></a><span class="lineno"> 6509</span>  return str + i + 2;</div><div class="line"><a name="l06510"></a><span class="lineno"> 6510</span>  }</div><div class="line"><a name="l06511"></a><span class="lineno"> 6511</span>  break;</div><div class="line"><a name="l06512"></a><span class="lineno"> 6512</span>  default:</div><div class="line"><a name="l06513"></a><span class="lineno"> 6513</span>  i += 3;</div><div class="line"><a name="l06514"></a><span class="lineno"> 6514</span>  break;</div><div class="line"><a name="l06515"></a><span class="lineno"> 6515</span>  }</div><div class="line"><a name="l06516"></a><span class="lineno"> 6516</span>  }</div><div class="line"><a name="l06517"></a><span class="lineno"> 6517</span>  return 0;</div><div class="line"><a name="l06518"></a><span class="lineno"> 6518</span> }</div><div class="line"><a name="l06519"></a><span class="lineno"> 6519</span> </div><div class="line"><a name="l06520"></a><span class="lineno"> 6520</span> static int</div><div class="line"><a name="l06521"></a><span class="lineno"> 6521</span> parser_magic_comment(struct parser_params *parser, const char *str, long len)</div><div class="line"><a name="l06522"></a><span class="lineno"> 6522</span> {</div><div class="line"><a name="l06523"></a><span class="lineno"> 6523</span>  VALUE name = 0, val = 0;</div><div class="line"><a name="l06524"></a><span class="lineno"> 6524</span>  const char *beg, *end, *vbeg, *vend;</div><div class="line"><a name="l06525"></a><span class="lineno"> 6525</span> #define str_copy(_s, _p, _n) ((_s) \</div><div class="line"><a name="l06526"></a><span class="lineno"> 6526</span>  ? (void)(rb_str_resize((_s), (_n)), \</div><div class="line"><a name="l06527"></a><span class="lineno"> 6527</span>  MEMCPY(RSTRING_PTR(_s), (_p), char, (_n)), (_s)) \</div><div class="line"><a name="l06528"></a><span class="lineno"> 6528</span>  : (void)((_s) = STR_NEW((_p), (_n))))</div><div class="line"><a name="l06529"></a><span class="lineno"> 6529</span> </div><div class="line"><a name="l06530"></a><span class="lineno"> 6530</span>  if (len <= 7) return FALSE;</div><div class="line"><a name="l06531"></a><span class="lineno"> 6531</span>  if (!(beg = magic_comment_marker(str, len))) return FALSE;</div><div class="line"><a name="l06532"></a><span class="lineno"> 6532</span>  if (!(end = magic_comment_marker(beg, str + len - beg))) return FALSE;</div><div class="line"><a name="l06533"></a><span class="lineno"> 6533</span>  str = beg;</div><div class="line"><a name="l06534"></a><span class="lineno"> 6534</span>  len = end - beg - 3;</div><div class="line"><a name="l06535"></a><span class="lineno"> 6535</span> </div><div class="line"><a name="l06536"></a><span class="lineno"> 6536</span>  /* %r"([^\\s\'\":;]+)\\s*:\\s*(\"(?:\\\\.|[^\"])*\"|[^\"\\s;]+)[\\s;]*" */</div><div class="line"><a name="l06537"></a><span class="lineno"> 6537</span>  while (len > 0) {</div><div class="line"><a name="l06538"></a><span class="lineno"> 6538</span> #ifndef RIPPER</div><div class="line"><a name="l06539"></a><span class="lineno"> 6539</span>  const struct magic_comment *p = magic_comments;</div><div class="line"><a name="l06540"></a><span class="lineno"> 6540</span> #endif</div><div class="line"><a name="l06541"></a><span class="lineno"> 6541</span>  char *s;</div><div class="line"><a name="l06542"></a><span class="lineno"> 6542</span>  int i;</div><div class="line"><a name="l06543"></a><span class="lineno"> 6543</span>  long n = 0;</div><div class="line"><a name="l06544"></a><span class="lineno"> 6544</span> </div><div class="line"><a name="l06545"></a><span class="lineno"> 6545</span>  for (; len > 0 && *str; str++, --len) {</div><div class="line"><a name="l06546"></a><span class="lineno"> 6546</span>  switch (*str) {</div><div class="line"><a name="l06547"></a><span class="lineno"> 6547</span>  case '\'': case '"': case ':': case ';':</div><div class="line"><a name="l06548"></a><span class="lineno"> 6548</span>  continue;</div><div class="line"><a name="l06549"></a><span class="lineno"> 6549</span>  }</div><div class="line"><a name="l06550"></a><span class="lineno"> 6550</span>  if (!ISSPACE(*str)) break;</div><div class="line"><a name="l06551"></a><span class="lineno"> 6551</span>  }</div><div class="line"><a name="l06552"></a><span class="lineno"> 6552</span>  for (beg = str; len > 0; str++, --len) {</div><div class="line"><a name="l06553"></a><span class="lineno"> 6553</span>  switch (*str) {</div><div class="line"><a name="l06554"></a><span class="lineno"> 6554</span>  case '\'': case '"': case ':': case ';':</div><div class="line"><a name="l06555"></a><span class="lineno"> 6555</span>  break;</div><div class="line"><a name="l06556"></a><span class="lineno"> 6556</span>  default:</div><div class="line"><a name="l06557"></a><span class="lineno"> 6557</span>  if (ISSPACE(*str)) break;</div><div class="line"><a name="l06558"></a><span class="lineno"> 6558</span>  continue;</div><div class="line"><a name="l06559"></a><span class="lineno"> 6559</span>  }</div><div class="line"><a name="l06560"></a><span class="lineno"> 6560</span>  break;</div><div class="line"><a name="l06561"></a><span class="lineno"> 6561</span>  }</div><div class="line"><a name="l06562"></a><span class="lineno"> 6562</span>  for (end = str; len > 0 && ISSPACE(*str); str++, --len);</div><div class="line"><a name="l06563"></a><span class="lineno"> 6563</span>  if (!len) break;</div><div class="line"><a name="l06564"></a><span class="lineno"> 6564</span>  if (*str != ':') continue;</div><div class="line"><a name="l06565"></a><span class="lineno"> 6565</span> </div><div class="line"><a name="l06566"></a><span class="lineno"> 6566</span>  do str++; while (--len > 0 && ISSPACE(*str));</div><div class="line"><a name="l06567"></a><span class="lineno"> 6567</span>  if (!len) break;</div><div class="line"><a name="l06568"></a><span class="lineno"> 6568</span>  if (*str == '"') {</div><div class="line"><a name="l06569"></a><span class="lineno"> 6569</span>  for (vbeg = ++str; --len > 0 && *str != '"'; str++) {</div><div class="line"><a name="l06570"></a><span class="lineno"> 6570</span>  if (*str == '\\') {</div><div class="line"><a name="l06571"></a><span class="lineno"> 6571</span>  --len;</div><div class="line"><a name="l06572"></a><span class="lineno"> 6572</span>  ++str;</div><div class="line"><a name="l06573"></a><span class="lineno"> 6573</span>  }</div><div class="line"><a name="l06574"></a><span class="lineno"> 6574</span>  }</div><div class="line"><a name="l06575"></a><span class="lineno"> 6575</span>  vend = str;</div><div class="line"><a name="l06576"></a><span class="lineno"> 6576</span>  if (len) {</div><div class="line"><a name="l06577"></a><span class="lineno"> 6577</span>  --len;</div><div class="line"><a name="l06578"></a><span class="lineno"> 6578</span>  ++str;</div><div class="line"><a name="l06579"></a><span class="lineno"> 6579</span>  }</div><div class="line"><a name="l06580"></a><span class="lineno"> 6580</span>  }</div><div class="line"><a name="l06581"></a><span class="lineno"> 6581</span>  else {</div><div class="line"><a name="l06582"></a><span class="lineno"> 6582</span>  for (vbeg = str; len > 0 && *str != '"' && *str != ';' && !ISSPACE(*str); --len, str++);</div><div class="line"><a name="l06583"></a><span class="lineno"> 6583</span>  vend = str;</div><div class="line"><a name="l06584"></a><span class="lineno"> 6584</span>  }</div><div class="line"><a name="l06585"></a><span class="lineno"> 6585</span>  while (len > 0 && (*str == ';' || ISSPACE(*str))) --len, str++;</div><div class="line"><a name="l06586"></a><span class="lineno"> 6586</span> </div><div class="line"><a name="l06587"></a><span class="lineno"> 6587</span>  n = end - beg;</div><div class="line"><a name="l06588"></a><span class="lineno"> 6588</span>  str_copy(name, beg, n);</div><div class="line"><a name="l06589"></a><span class="lineno"> 6589</span>  s = RSTRING_PTR(name);</div><div class="line"><a name="l06590"></a><span class="lineno"> 6590</span>  for (i = 0; i < n; ++i) {</div><div class="line"><a name="l06591"></a><span class="lineno"> 6591</span>  if (s[i] == '-') s[i] = '_';</div><div class="line"><a name="l06592"></a><span class="lineno"> 6592</span>  }</div><div class="line"><a name="l06593"></a><span class="lineno"> 6593</span> #ifndef RIPPER</div><div class="line"><a name="l06594"></a><span class="lineno"> 6594</span>  do {</div><div class="line"><a name="l06595"></a><span class="lineno"> 6595</span>  if (STRNCASECMP(p->name, s, n) == 0) {</div><div class="line"><a name="l06596"></a><span class="lineno"> 6596</span>  n = vend - vbeg;</div><div class="line"><a name="l06597"></a><span class="lineno"> 6597</span>  if (p->length) {</div><div class="line"><a name="l06598"></a><span class="lineno"> 6598</span>  n = (*p->length)(parser, vbeg, n);</div><div class="line"><a name="l06599"></a><span class="lineno"> 6599</span>  }</div><div class="line"><a name="l06600"></a><span class="lineno"> 6600</span>  str_copy(val, vbeg, n);</div><div class="line"><a name="l06601"></a><span class="lineno"> 6601</span>  (*p->func)(parser, s, RSTRING_PTR(val));</div><div class="line"><a name="l06602"></a><span class="lineno"> 6602</span>  break;</div><div class="line"><a name="l06603"></a><span class="lineno"> 6603</span>  }</div><div class="line"><a name="l06604"></a><span class="lineno"> 6604</span>  } while (++p < magic_comments + numberof(magic_comments));</div><div class="line"><a name="l06605"></a><span class="lineno"> 6605</span> #else</div><div class="line"><a name="l06606"></a><span class="lineno"> 6606</span>  str_copy(val, vbeg, vend - vbeg);</div><div class="line"><a name="l06607"></a><span class="lineno"> 6607</span>  dispatch2(magic_comment, name, val);</div><div class="line"><a name="l06608"></a><span class="lineno"> 6608</span> #endif</div><div class="line"><a name="l06609"></a><span class="lineno"> 6609</span>  }</div><div class="line"><a name="l06610"></a><span class="lineno"> 6610</span> </div><div class="line"><a name="l06611"></a><span class="lineno"> 6611</span>  return TRUE;</div><div class="line"><a name="l06612"></a><span class="lineno"> 6612</span> }</div><div class="line"><a name="l06613"></a><span class="lineno"> 6613</span> </div><div class="line"><a name="l06614"></a><span class="lineno"> 6614</span> static void</div><div class="line"><a name="l06615"></a><span class="lineno"> 6615</span> set_file_encoding(struct parser_params *parser, const char *str, const char *send)</div><div class="line"><a name="l06616"></a><span class="lineno"> 6616</span> {</div><div class="line"><a name="l06617"></a><span class="lineno"> 6617</span>  int sep = 0;</div><div class="line"><a name="l06618"></a><span class="lineno"> 6618</span>  const char *beg = str;</div><div class="line"><a name="l06619"></a><span class="lineno"> 6619</span>  VALUE s;</div><div class="line"><a name="l06620"></a><span class="lineno"> 6620</span> </div><div class="line"><a name="l06621"></a><span class="lineno"> 6621</span>  for (;;) {</div><div class="line"><a name="l06622"></a><span class="lineno"> 6622</span>  if (send - str <= 6) return;</div><div class="line"><a name="l06623"></a><span class="lineno"> 6623</span>  switch (str[6]) {</div><div class="line"><a name="l06624"></a><span class="lineno"> 6624</span>  case 'C': case 'c': str += 6; continue;</div><div class="line"><a name="l06625"></a><span class="lineno"> 6625</span>  case 'O': case 'o': str += 5; continue;</div><div class="line"><a name="l06626"></a><span class="lineno"> 6626</span>  case 'D': case 'd': str += 4; continue;</div><div class="line"><a name="l06627"></a><span class="lineno"> 6627</span>  case 'I': case 'i': str += 3; continue;</div><div class="line"><a name="l06628"></a><span class="lineno"> 6628</span>  case 'N': case 'n': str += 2; continue;</div><div class="line"><a name="l06629"></a><span class="lineno"> 6629</span>  case 'G': case 'g': str += 1; continue;</div><div class="line"><a name="l06630"></a><span class="lineno"> 6630</span>  case '=': case ':':</div><div class="line"><a name="l06631"></a><span class="lineno"> 6631</span>  sep = 1;</div><div class="line"><a name="l06632"></a><span class="lineno"> 6632</span>  str += 6;</div><div class="line"><a name="l06633"></a><span class="lineno"> 6633</span>  break;</div><div class="line"><a name="l06634"></a><span class="lineno"> 6634</span>  default:</div><div class="line"><a name="l06635"></a><span class="lineno"> 6635</span>  str += 6;</div><div class="line"><a name="l06636"></a><span class="lineno"> 6636</span>  if (ISSPACE(*str)) break;</div><div class="line"><a name="l06637"></a><span class="lineno"> 6637</span>  continue;</div><div class="line"><a name="l06638"></a><span class="lineno"> 6638</span>  }</div><div class="line"><a name="l06639"></a><span class="lineno"> 6639</span>  if (STRNCASECMP(str-6, "coding", 6) == 0) break;</div><div class="line"><a name="l06640"></a><span class="lineno"> 6640</span>  }</div><div class="line"><a name="l06641"></a><span class="lineno"> 6641</span>  for (;;) {</div><div class="line"><a name="l06642"></a><span class="lineno"> 6642</span>  do {</div><div class="line"><a name="l06643"></a><span class="lineno"> 6643</span>  if (++str >= send) return;</div><div class="line"><a name="l06644"></a><span class="lineno"> 6644</span>  } while (ISSPACE(*str));</div><div class="line"><a name="l06645"></a><span class="lineno"> 6645</span>  if (sep) break;</div><div class="line"><a name="l06646"></a><span class="lineno"> 6646</span>  if (*str != '=' && *str != ':') return;</div><div class="line"><a name="l06647"></a><span class="lineno"> 6647</span>  sep = 1;</div><div class="line"><a name="l06648"></a><span class="lineno"> 6648</span>  str++;</div><div class="line"><a name="l06649"></a><span class="lineno"> 6649</span>  }</div><div class="line"><a name="l06650"></a><span class="lineno"> 6650</span>  beg = str;</div><div class="line"><a name="l06651"></a><span class="lineno"> 6651</span>  while ((*str == '-' || *str == '_' || ISALNUM(*str)) && ++str < send);</div><div class="line"><a name="l06652"></a><span class="lineno"> 6652</span>  s = rb_str_new(beg, parser_encode_length(parser, beg, str - beg));</div><div class="line"><a name="l06653"></a><span class="lineno"> 6653</span>  parser_set_encode(parser, RSTRING_PTR(s));</div><div class="line"><a name="l06654"></a><span class="lineno"> 6654</span>  rb_str_resize(s, 0);</div><div class="line"><a name="l06655"></a><span class="lineno"> 6655</span> }</div><div class="line"><a name="l06656"></a><span class="lineno"> 6656</span> </div><div class="line"><a name="l06657"></a><span class="lineno"> 6657</span> static void</div><div class="line"><a name="l06658"></a><span class="lineno"> 6658</span> parser_prepare(struct parser_params *parser)</div><div class="line"><a name="l06659"></a><span class="lineno"> 6659</span> {</div><div class="line"><a name="l06660"></a><span class="lineno"> 6660</span>  int c = nextc();</div><div class="line"><a name="l06661"></a><span class="lineno"> 6661</span>  switch (c) {</div><div class="line"><a name="l06662"></a><span class="lineno"> 6662</span>  case '#':</div><div class="line"><a name="l06663"></a><span class="lineno"> 6663</span>  if (peek('!')) parser->has_shebang = 1;</div><div class="line"><a name="l06664"></a><span class="lineno"> 6664</span>  break;</div><div class="line"><a name="l06665"></a><span class="lineno"> 6665</span>  case 0xef: /* UTF-8 BOM marker */</div><div class="line"><a name="l06666"></a><span class="lineno"> 6666</span>  if (lex_pend - lex_p >= 2 &&</div><div class="line"><a name="l06667"></a><span class="lineno"> 6667</span>  (unsigned char)lex_p[0] == 0xbb &&</div><div class="line"><a name="l06668"></a><span class="lineno"> 6668</span>  (unsigned char)lex_p[1] == 0xbf) {</div><div class="line"><a name="l06669"></a><span class="lineno"> 6669</span>  parser->enc = rb_utf8_encoding();</div><div class="line"><a name="l06670"></a><span class="lineno"> 6670</span>  lex_p += 2;</div><div class="line"><a name="l06671"></a><span class="lineno"> 6671</span>  lex_pbeg = lex_p;</div><div class="line"><a name="l06672"></a><span class="lineno"> 6672</span>  return;</div><div class="line"><a name="l06673"></a><span class="lineno"> 6673</span>  }</div><div class="line"><a name="l06674"></a><span class="lineno"> 6674</span>  break;</div><div class="line"><a name="l06675"></a><span class="lineno"> 6675</span>  case EOF:</div><div class="line"><a name="l06676"></a><span class="lineno"> 6676</span>  return;</div><div class="line"><a name="l06677"></a><span class="lineno"> 6677</span>  }</div><div class="line"><a name="l06678"></a><span class="lineno"> 6678</span>  pushback(c);</div><div class="line"><a name="l06679"></a><span class="lineno"> 6679</span>  parser->enc = rb_enc_get(lex_lastline);</div><div class="line"><a name="l06680"></a><span class="lineno"> 6680</span> }</div><div class="line"><a name="l06681"></a><span class="lineno"> 6681</span> </div><div class="line"><a name="l06682"></a><span class="lineno"> 6682</span> #define IS_ARG() (lex_state == EXPR_ARG || lex_state == EXPR_CMDARG)</div><div class="line"><a name="l06683"></a><span class="lineno"> 6683</span> #define IS_END() (lex_state == EXPR_END || lex_state == EXPR_ENDARG || lex_state == EXPR_ENDFN)</div><div class="line"><a name="l06684"></a><span class="lineno"> 6684</span> #define IS_BEG() (lex_state == EXPR_BEG || lex_state == EXPR_MID || lex_state == EXPR_VALUE || lex_state == EXPR_CLASS)</div><div class="line"><a name="l06685"></a><span class="lineno"> 6685</span> #define IS_SPCARG(c) (IS_ARG() && space_seen && !ISSPACE(c))</div><div class="line"><a name="l06686"></a><span class="lineno"> 6686</span> #define IS_LABEL_POSSIBLE() ((lex_state == EXPR_BEG && !cmd_state) || IS_ARG())</div><div class="line"><a name="l06687"></a><span class="lineno"> 6687</span> #define IS_LABEL_SUFFIX(n) (peek_n(':',(n)) && !peek_n(':', (n)+1))</div><div class="line"><a name="l06688"></a><span class="lineno"> 6688</span> </div><div class="line"><a name="l06689"></a><span class="lineno"> 6689</span> #ifndef RIPPER</div><div class="line"><a name="l06690"></a><span class="lineno"> 6690</span> #define ambiguous_operator(op, syn) ( \</div><div class="line"><a name="l06691"></a><span class="lineno"> 6691</span>  rb_warning0("`"op"' after local variable is interpreted as binary operator"), \</div><div class="line"><a name="l06692"></a><span class="lineno"> 6692</span>  rb_warning0("even though it seems like "syn""))</div><div class="line"><a name="l06693"></a><span class="lineno"> 6693</span> #else</div><div class="line"><a name="l06694"></a><span class="lineno"> 6694</span> #define ambiguous_operator(op, syn) dispatch2(operator_ambiguous, ripper_intern(op), rb_str_new_cstr(syn))</div><div class="line"><a name="l06695"></a><span class="lineno"> 6695</span> #endif</div><div class="line"><a name="l06696"></a><span class="lineno"> 6696</span> #define warn_balanced(op, syn) ((void) \</div><div class="line"><a name="l06697"></a><span class="lineno"> 6697</span>  (last_state != EXPR_CLASS && last_state != EXPR_DOT && \</div><div class="line"><a name="l06698"></a><span class="lineno"> 6698</span>  last_state != EXPR_FNAME && last_state != EXPR_ENDFN && \</div><div class="line"><a name="l06699"></a><span class="lineno"> 6699</span>  last_state != EXPR_ENDARG && \</div><div class="line"><a name="l06700"></a><span class="lineno"> 6700</span>  space_seen && !ISSPACE(c) && \</div><div class="line"><a name="l06701"></a><span class="lineno"> 6701</span>  (ambiguous_operator(op, syn), 0)))</div><div class="line"><a name="l06702"></a><span class="lineno"> 6702</span> </div><div class="line"><a name="l06703"></a><span class="lineno"> 6703</span> static int</div><div class="line"><a name="l06704"></a><span class="lineno"> 6704</span> parser_yylex(struct parser_params *parser)</div><div class="line"><a name="l06705"></a><span class="lineno"> 6705</span> {</div><div class="line"><a name="l06706"></a><span class="lineno"> 6706</span>  register int c;</div><div class="line"><a name="l06707"></a><span class="lineno"> 6707</span>  int space_seen = 0;</div><div class="line"><a name="l06708"></a><span class="lineno"> 6708</span>  int cmd_state;</div><div class="line"><a name="l06709"></a><span class="lineno"> 6709</span>  enum lex_state_e last_state;</div><div class="line"><a name="l06710"></a><span class="lineno"> 6710</span>  rb_encoding *enc;</div><div class="line"><a name="l06711"></a><span class="lineno"> 6711</span>  int mb;</div><div class="line"><a name="l06712"></a><span class="lineno"> 6712</span> #ifdef RIPPER</div><div class="line"><a name="l06713"></a><span class="lineno"> 6713</span>  int fallthru = FALSE;</div><div class="line"><a name="l06714"></a><span class="lineno"> 6714</span> #endif</div><div class="line"><a name="l06715"></a><span class="lineno"> 6715</span> </div><div class="line"><a name="l06716"></a><span class="lineno"> 6716</span>  if (lex_strterm) {</div><div class="line"><a name="l06717"></a><span class="lineno"> 6717</span>  int token;</div><div class="line"><a name="l06718"></a><span class="lineno"> 6718</span>  if (nd_type(lex_strterm) == NODE_HEREDOC) {</div><div class="line"><a name="l06719"></a><span class="lineno"> 6719</span>  token = here_document(lex_strterm);</div><div class="line"><a name="l06720"></a><span class="lineno"> 6720</span>  if (token == tSTRING_END) {</div><div class="line"><a name="l06721"></a><span class="lineno"> 6721</span>  lex_strterm = 0;</div><div class="line"><a name="l06722"></a><span class="lineno"> 6722</span>  lex_state = EXPR_END;</div><div class="line"><a name="l06723"></a><span class="lineno"> 6723</span>  }</div><div class="line"><a name="l06724"></a><span class="lineno"> 6724</span>  }</div><div class="line"><a name="l06725"></a><span class="lineno"> 6725</span>  else {</div><div class="line"><a name="l06726"></a><span class="lineno"> 6726</span>  token = parse_string(lex_strterm);</div><div class="line"><a name="l06727"></a><span class="lineno"> 6727</span>  if (token == tSTRING_END || token == tREGEXP_END) {</div><div class="line"><a name="l06728"></a><span class="lineno"> 6728</span>  rb_gc_force_recycle((VALUE)lex_strterm);</div><div class="line"><a name="l06729"></a><span class="lineno"> 6729</span>  lex_strterm = 0;</div><div class="line"><a name="l06730"></a><span class="lineno"> 6730</span>  lex_state = EXPR_END;</div><div class="line"><a name="l06731"></a><span class="lineno"> 6731</span>  }</div><div class="line"><a name="l06732"></a><span class="lineno"> 6732</span>  }</div><div class="line"><a name="l06733"></a><span class="lineno"> 6733</span>  return token;</div><div class="line"><a name="l06734"></a><span class="lineno"> 6734</span>  }</div><div class="line"><a name="l06735"></a><span class="lineno"> 6735</span>  cmd_state = command_start;</div><div class="line"><a name="l06736"></a><span class="lineno"> 6736</span>  command_start = FALSE;</div><div class="line"><a name="l06737"></a><span class="lineno"> 6737</span>  retry:</div><div class="line"><a name="l06738"></a><span class="lineno"> 6738</span>  last_state = lex_state;</div><div class="line"><a name="l06739"></a><span class="lineno"> 6739</span>  switch (c = nextc()) {</div><div class="line"><a name="l06740"></a><span class="lineno"> 6740</span>  case '\0': /* NUL */</div><div class="line"><a name="l06741"></a><span class="lineno"> 6741</span>  case '\004': /* ^D */</div><div class="line"><a name="l06742"></a><span class="lineno"> 6742</span>  case '\032': /* ^Z */</div><div class="line"><a name="l06743"></a><span class="lineno"> 6743</span>  case -1: /* end of script. */</div><div class="line"><a name="l06744"></a><span class="lineno"> 6744</span>  return 0;</div><div class="line"><a name="l06745"></a><span class="lineno"> 6745</span> </div><div class="line"><a name="l06746"></a><span class="lineno"> 6746</span>  /* white spaces */</div><div class="line"><a name="l06747"></a><span class="lineno"> 6747</span>  case ' ': case '\t': case '\f': case '\r':</div><div class="line"><a name="l06748"></a><span class="lineno"> 6748</span>  case '\13': /* '\v' */</div><div class="line"><a name="l06749"></a><span class="lineno"> 6749</span>  space_seen = 1;</div><div class="line"><a name="l06750"></a><span class="lineno"> 6750</span> #ifdef RIPPER</div><div class="line"><a name="l06751"></a><span class="lineno"> 6751</span>  while ((c = nextc())) {</div><div class="line"><a name="l06752"></a><span class="lineno"> 6752</span>  switch (c) {</div><div class="line"><a name="l06753"></a><span class="lineno"> 6753</span>  case ' ': case '\t': case '\f': case '\r':</div><div class="line"><a name="l06754"></a><span class="lineno"> 6754</span>  case '\13': /* '\v' */</div><div class="line"><a name="l06755"></a><span class="lineno"> 6755</span>  break;</div><div class="line"><a name="l06756"></a><span class="lineno"> 6756</span>  default:</div><div class="line"><a name="l06757"></a><span class="lineno"> 6757</span>  goto outofloop;</div><div class="line"><a name="l06758"></a><span class="lineno"> 6758</span>  }</div><div class="line"><a name="l06759"></a><span class="lineno"> 6759</span>  }</div><div class="line"><a name="l06760"></a><span class="lineno"> 6760</span>  outofloop:</div><div class="line"><a name="l06761"></a><span class="lineno"> 6761</span>  pushback(c);</div><div class="line"><a name="l06762"></a><span class="lineno"> 6762</span>  ripper_dispatch_scan_event(parser, tSP);</div><div class="line"><a name="l06763"></a><span class="lineno"> 6763</span> #endif</div><div class="line"><a name="l06764"></a><span class="lineno"> 6764</span>  goto retry;</div><div class="line"><a name="l06765"></a><span class="lineno"> 6765</span> </div><div class="line"><a name="l06766"></a><span class="lineno"> 6766</span>  case '#': /* it's a comment */</div><div class="line"><a name="l06767"></a><span class="lineno"> 6767</span>  /* no magic_comment in shebang line */</div><div class="line"><a name="l06768"></a><span class="lineno"> 6768</span>  if (!parser_magic_comment(parser, lex_p, lex_pend - lex_p)) {</div><div class="line"><a name="l06769"></a><span class="lineno"> 6769</span>  if (comment_at_top(parser)) {</div><div class="line"><a name="l06770"></a><span class="lineno"> 6770</span>  set_file_encoding(parser, lex_p, lex_pend);</div><div class="line"><a name="l06771"></a><span class="lineno"> 6771</span>  }</div><div class="line"><a name="l06772"></a><span class="lineno"> 6772</span>  }</div><div class="line"><a name="l06773"></a><span class="lineno"> 6773</span>  lex_p = lex_pend;</div><div class="line"><a name="l06774"></a><span class="lineno"> 6774</span> #ifdef RIPPER</div><div class="line"><a name="l06775"></a><span class="lineno"> 6775</span>  ripper_dispatch_scan_event(parser, tCOMMENT);</div><div class="line"><a name="l06776"></a><span class="lineno"> 6776</span>  fallthru = TRUE;</div><div class="line"><a name="l06777"></a><span class="lineno"> 6777</span> #endif</div><div class="line"><a name="l06778"></a><span class="lineno"> 6778</span>  /* fall through */</div><div class="line"><a name="l06779"></a><span class="lineno"> 6779</span>  case '\n':</div><div class="line"><a name="l06780"></a><span class="lineno"> 6780</span>  switch (lex_state) {</div><div class="line"><a name="l06781"></a><span class="lineno"> 6781</span>  case EXPR_BEG:</div><div class="line"><a name="l06782"></a><span class="lineno"> 6782</span>  case EXPR_FNAME:</div><div class="line"><a name="l06783"></a><span class="lineno"> 6783</span>  case EXPR_DOT:</div><div class="line"><a name="l06784"></a><span class="lineno"> 6784</span>  case EXPR_CLASS:</div><div class="line"><a name="l06785"></a><span class="lineno"> 6785</span>  case EXPR_VALUE:</div><div class="line"><a name="l06786"></a><span class="lineno"> 6786</span> #ifdef RIPPER</div><div class="line"><a name="l06787"></a><span class="lineno"> 6787</span>  if (!fallthru) {</div><div class="line"><a name="l06788"></a><span class="lineno"> 6788</span>  ripper_dispatch_scan_event(parser, tIGNORED_NL);</div><div class="line"><a name="l06789"></a><span class="lineno"> 6789</span>  }</div><div class="line"><a name="l06790"></a><span class="lineno"> 6790</span>  fallthru = FALSE;</div><div class="line"><a name="l06791"></a><span class="lineno"> 6791</span> #endif</div><div class="line"><a name="l06792"></a><span class="lineno"> 6792</span>  goto retry;</div><div class="line"><a name="l06793"></a><span class="lineno"> 6793</span>  default:</div><div class="line"><a name="l06794"></a><span class="lineno"> 6794</span>  break;</div><div class="line"><a name="l06795"></a><span class="lineno"> 6795</span>  }</div><div class="line"><a name="l06796"></a><span class="lineno"> 6796</span>  while ((c = nextc())) {</div><div class="line"><a name="l06797"></a><span class="lineno"> 6797</span>  switch (c) {</div><div class="line"><a name="l06798"></a><span class="lineno"> 6798</span>  case ' ': case '\t': case '\f': case '\r':</div><div class="line"><a name="l06799"></a><span class="lineno"> 6799</span>  case '\13': /* '\v' */</div><div class="line"><a name="l06800"></a><span class="lineno"> 6800</span>  space_seen = 1;</div><div class="line"><a name="l06801"></a><span class="lineno"> 6801</span>  break;</div><div class="line"><a name="l06802"></a><span class="lineno"> 6802</span>  case '.': {</div><div class="line"><a name="l06803"></a><span class="lineno"> 6803</span>  if ((c = nextc()) != '.') {</div><div class="line"><a name="l06804"></a><span class="lineno"> 6804</span>  pushback(c);</div><div class="line"><a name="l06805"></a><span class="lineno"> 6805</span>  pushback('.');</div><div class="line"><a name="l06806"></a><span class="lineno"> 6806</span>  goto retry;</div><div class="line"><a name="l06807"></a><span class="lineno"> 6807</span>  }</div><div class="line"><a name="l06808"></a><span class="lineno"> 6808</span>  }</div><div class="line"><a name="l06809"></a><span class="lineno"> 6809</span>  default:</div><div class="line"><a name="l06810"></a><span class="lineno"> 6810</span>  --ruby_sourceline;</div><div class="line"><a name="l06811"></a><span class="lineno"> 6811</span>  lex_nextline = lex_lastline;</div><div class="line"><a name="l06812"></a><span class="lineno"> 6812</span>  case -1: /* EOF no decrement*/</div><div class="line"><a name="l06813"></a><span class="lineno"> 6813</span>  lex_goto_eol(parser);</div><div class="line"><a name="l06814"></a><span class="lineno"> 6814</span> #ifdef RIPPER</div><div class="line"><a name="l06815"></a><span class="lineno"> 6815</span>  if (c != -1) {</div><div class="line"><a name="l06816"></a><span class="lineno"> 6816</span>  parser->tokp = lex_p;</div><div class="line"><a name="l06817"></a><span class="lineno"> 6817</span>  }</div><div class="line"><a name="l06818"></a><span class="lineno"> 6818</span> #endif</div><div class="line"><a name="l06819"></a><span class="lineno"> 6819</span>  goto normal_newline;</div><div class="line"><a name="l06820"></a><span class="lineno"> 6820</span>  }</div><div class="line"><a name="l06821"></a><span class="lineno"> 6821</span>  }</div><div class="line"><a name="l06822"></a><span class="lineno"> 6822</span>  normal_newline:</div><div class="line"><a name="l06823"></a><span class="lineno"> 6823</span>  command_start = TRUE;</div><div class="line"><a name="l06824"></a><span class="lineno"> 6824</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l06825"></a><span class="lineno"> 6825</span>  return '\n';</div><div class="line"><a name="l06826"></a><span class="lineno"> 6826</span> </div><div class="line"><a name="l06827"></a><span class="lineno"> 6827</span>  case '*':</div><div class="line"><a name="l06828"></a><span class="lineno"> 6828</span>  if ((c = nextc()) == '*') {</div><div class="line"><a name="l06829"></a><span class="lineno"> 6829</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l06830"></a><span class="lineno"> 6830</span>  set_yylval_id(tPOW);</div><div class="line"><a name="l06831"></a><span class="lineno"> 6831</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l06832"></a><span class="lineno"> 6832</span>  return tOP_ASGN;</div><div class="line"><a name="l06833"></a><span class="lineno"> 6833</span>  }</div><div class="line"><a name="l06834"></a><span class="lineno"> 6834</span>  pushback(c);</div><div class="line"><a name="l06835"></a><span class="lineno"> 6835</span>  c = tPOW;</div><div class="line"><a name="l06836"></a><span class="lineno"> 6836</span>  }</div><div class="line"><a name="l06837"></a><span class="lineno"> 6837</span>  else {</div><div class="line"><a name="l06838"></a><span class="lineno"> 6838</span>  if (c == '=') {</div><div class="line"><a name="l06839"></a><span class="lineno"> 6839</span>  set_yylval_id('*');</div><div class="line"><a name="l06840"></a><span class="lineno"> 6840</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l06841"></a><span class="lineno"> 6841</span>  return tOP_ASGN;</div><div class="line"><a name="l06842"></a><span class="lineno"> 6842</span>  }</div><div class="line"><a name="l06843"></a><span class="lineno"> 6843</span>  pushback(c);</div><div class="line"><a name="l06844"></a><span class="lineno"> 6844</span>  if (IS_SPCARG(c)) {</div><div class="line"><a name="l06845"></a><span class="lineno"> 6845</span>  rb_warning0("`*' interpreted as argument prefix");</div><div class="line"><a name="l06846"></a><span class="lineno"> 6846</span>  c = tSTAR;</div><div class="line"><a name="l06847"></a><span class="lineno"> 6847</span>  }</div><div class="line"><a name="l06848"></a><span class="lineno"> 6848</span>  else if (IS_BEG()) {</div><div class="line"><a name="l06849"></a><span class="lineno"> 6849</span>  c = tSTAR;</div><div class="line"><a name="l06850"></a><span class="lineno"> 6850</span>  }</div><div class="line"><a name="l06851"></a><span class="lineno"> 6851</span>  else {</div><div class="line"><a name="l06852"></a><span class="lineno"> 6852</span>  warn_balanced("*", "argument prefix");</div><div class="line"><a name="l06853"></a><span class="lineno"> 6853</span>  c = '*';</div><div class="line"><a name="l06854"></a><span class="lineno"> 6854</span>  }</div><div class="line"><a name="l06855"></a><span class="lineno"> 6855</span>  }</div><div class="line"><a name="l06856"></a><span class="lineno"> 6856</span>  switch (lex_state) {</div><div class="line"><a name="l06857"></a><span class="lineno"> 6857</span>  case EXPR_FNAME: case EXPR_DOT:</div><div class="line"><a name="l06858"></a><span class="lineno"> 6858</span>  lex_state = EXPR_ARG; break;</div><div class="line"><a name="l06859"></a><span class="lineno"> 6859</span>  default:</div><div class="line"><a name="l06860"></a><span class="lineno"> 6860</span>  lex_state = EXPR_BEG; break;</div><div class="line"><a name="l06861"></a><span class="lineno"> 6861</span>  }</div><div class="line"><a name="l06862"></a><span class="lineno"> 6862</span>  return c;</div><div class="line"><a name="l06863"></a><span class="lineno"> 6863</span> </div><div class="line"><a name="l06864"></a><span class="lineno"> 6864</span>  case '!':</div><div class="line"><a name="l06865"></a><span class="lineno"> 6865</span>  c = nextc();</div><div class="line"><a name="l06866"></a><span class="lineno"> 6866</span>  if (lex_state == EXPR_FNAME || lex_state == EXPR_DOT) {</div><div class="line"><a name="l06867"></a><span class="lineno"> 6867</span>  lex_state = EXPR_ARG;</div><div class="line"><a name="l06868"></a><span class="lineno"> 6868</span>  if (c == '@') {</div><div class="line"><a name="l06869"></a><span class="lineno"> 6869</span>  return '!';</div><div class="line"><a name="l06870"></a><span class="lineno"> 6870</span>  }</div><div class="line"><a name="l06871"></a><span class="lineno"> 6871</span>  }</div><div class="line"><a name="l06872"></a><span class="lineno"> 6872</span>  else {</div><div class="line"><a name="l06873"></a><span class="lineno"> 6873</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l06874"></a><span class="lineno"> 6874</span>  }</div><div class="line"><a name="l06875"></a><span class="lineno"> 6875</span>  if (c == '=') {</div><div class="line"><a name="l06876"></a><span class="lineno"> 6876</span>  return tNEQ;</div><div class="line"><a name="l06877"></a><span class="lineno"> 6877</span>  }</div><div class="line"><a name="l06878"></a><span class="lineno"> 6878</span>  if (c == '~') {</div><div class="line"><a name="l06879"></a><span class="lineno"> 6879</span>  return tNMATCH;</div><div class="line"><a name="l06880"></a><span class="lineno"> 6880</span>  }</div><div class="line"><a name="l06881"></a><span class="lineno"> 6881</span>  pushback(c);</div><div class="line"><a name="l06882"></a><span class="lineno"> 6882</span>  return '!';</div><div class="line"><a name="l06883"></a><span class="lineno"> 6883</span> </div><div class="line"><a name="l06884"></a><span class="lineno"> 6884</span>  case '=':</div><div class="line"><a name="l06885"></a><span class="lineno"> 6885</span>  if (was_bol()) {</div><div class="line"><a name="l06886"></a><span class="lineno"> 6886</span>  /* skip embedded rd document */</div><div class="line"><a name="l06887"></a><span class="lineno"> 6887</span>  if (strncmp(lex_p, "begin", 5) == 0 && ISSPACE(lex_p[5])) {</div><div class="line"><a name="l06888"></a><span class="lineno"> 6888</span> #ifdef RIPPER</div><div class="line"><a name="l06889"></a><span class="lineno"> 6889</span>  int first_p = TRUE;</div><div class="line"><a name="l06890"></a><span class="lineno"> 6890</span> </div><div class="line"><a name="l06891"></a><span class="lineno"> 6891</span>  lex_goto_eol(parser);</div><div class="line"><a name="l06892"></a><span class="lineno"> 6892</span>  ripper_dispatch_scan_event(parser, tEMBDOC_BEG);</div><div class="line"><a name="l06893"></a><span class="lineno"> 6893</span> #endif</div><div class="line"><a name="l06894"></a><span class="lineno"> 6894</span>  for (;;) {</div><div class="line"><a name="l06895"></a><span class="lineno"> 6895</span>  lex_goto_eol(parser);</div><div class="line"><a name="l06896"></a><span class="lineno"> 6896</span> #ifdef RIPPER</div><div class="line"><a name="l06897"></a><span class="lineno"> 6897</span>  if (!first_p) {</div><div class="line"><a name="l06898"></a><span class="lineno"> 6898</span>  ripper_dispatch_scan_event(parser, tEMBDOC);</div><div class="line"><a name="l06899"></a><span class="lineno"> 6899</span>  }</div><div class="line"><a name="l06900"></a><span class="lineno"> 6900</span>  first_p = FALSE;</div><div class="line"><a name="l06901"></a><span class="lineno"> 6901</span> #endif</div><div class="line"><a name="l06902"></a><span class="lineno"> 6902</span>  c = nextc();</div><div class="line"><a name="l06903"></a><span class="lineno"> 6903</span>  if (c == -1) {</div><div class="line"><a name="l06904"></a><span class="lineno"> 6904</span>  compile_error(PARSER_ARG "embedded document meets end of file");</div><div class="line"><a name="l06905"></a><span class="lineno"> 6905</span>  return 0;</div><div class="line"><a name="l06906"></a><span class="lineno"> 6906</span>  }</div><div class="line"><a name="l06907"></a><span class="lineno"> 6907</span>  if (c != '=') continue;</div><div class="line"><a name="l06908"></a><span class="lineno"> 6908</span>  if (strncmp(lex_p, "end", 3) == 0 &&</div><div class="line"><a name="l06909"></a><span class="lineno"> 6909</span>  (lex_p + 3 == lex_pend || ISSPACE(lex_p[3]))) {</div><div class="line"><a name="l06910"></a><span class="lineno"> 6910</span>  break;</div><div class="line"><a name="l06911"></a><span class="lineno"> 6911</span>  }</div><div class="line"><a name="l06912"></a><span class="lineno"> 6912</span>  }</div><div class="line"><a name="l06913"></a><span class="lineno"> 6913</span>  lex_goto_eol(parser);</div><div class="line"><a name="l06914"></a><span class="lineno"> 6914</span> #ifdef RIPPER</div><div class="line"><a name="l06915"></a><span class="lineno"> 6915</span>  ripper_dispatch_scan_event(parser, tEMBDOC_END);</div><div class="line"><a name="l06916"></a><span class="lineno"> 6916</span> #endif</div><div class="line"><a name="l06917"></a><span class="lineno"> 6917</span>  goto retry;</div><div class="line"><a name="l06918"></a><span class="lineno"> 6918</span>  }</div><div class="line"><a name="l06919"></a><span class="lineno"> 6919</span>  }</div><div class="line"><a name="l06920"></a><span class="lineno"> 6920</span> </div><div class="line"><a name="l06921"></a><span class="lineno"> 6921</span>  switch (lex_state) {</div><div class="line"><a name="l06922"></a><span class="lineno"> 6922</span>  case EXPR_FNAME: case EXPR_DOT:</div><div class="line"><a name="l06923"></a><span class="lineno"> 6923</span>  lex_state = EXPR_ARG; break;</div><div class="line"><a name="l06924"></a><span class="lineno"> 6924</span>  default:</div><div class="line"><a name="l06925"></a><span class="lineno"> 6925</span>  lex_state = EXPR_BEG; break;</div><div class="line"><a name="l06926"></a><span class="lineno"> 6926</span>  }</div><div class="line"><a name="l06927"></a><span class="lineno"> 6927</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l06928"></a><span class="lineno"> 6928</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l06929"></a><span class="lineno"> 6929</span>  return tEQQ;</div><div class="line"><a name="l06930"></a><span class="lineno"> 6930</span>  }</div><div class="line"><a name="l06931"></a><span class="lineno"> 6931</span>  pushback(c);</div><div class="line"><a name="l06932"></a><span class="lineno"> 6932</span>  return tEQ;</div><div class="line"><a name="l06933"></a><span class="lineno"> 6933</span>  }</div><div class="line"><a name="l06934"></a><span class="lineno"> 6934</span>  if (c == '~') {</div><div class="line"><a name="l06935"></a><span class="lineno"> 6935</span>  return tMATCH;</div><div class="line"><a name="l06936"></a><span class="lineno"> 6936</span>  }</div><div class="line"><a name="l06937"></a><span class="lineno"> 6937</span>  else if (c == '>') {</div><div class="line"><a name="l06938"></a><span class="lineno"> 6938</span>  return tASSOC;</div><div class="line"><a name="l06939"></a><span class="lineno"> 6939</span>  }</div><div class="line"><a name="l06940"></a><span class="lineno"> 6940</span>  pushback(c);</div><div class="line"><a name="l06941"></a><span class="lineno"> 6941</span>  return '=';</div><div class="line"><a name="l06942"></a><span class="lineno"> 6942</span> </div><div class="line"><a name="l06943"></a><span class="lineno"> 6943</span>  case '<':</div><div class="line"><a name="l06944"></a><span class="lineno"> 6944</span>  last_state = lex_state;</div><div class="line"><a name="l06945"></a><span class="lineno"> 6945</span>  c = nextc();</div><div class="line"><a name="l06946"></a><span class="lineno"> 6946</span>  if (c == '<' &&</div><div class="line"><a name="l06947"></a><span class="lineno"> 6947</span>  lex_state != EXPR_DOT &&</div><div class="line"><a name="l06948"></a><span class="lineno"> 6948</span>  lex_state != EXPR_CLASS &&</div><div class="line"><a name="l06949"></a><span class="lineno"> 6949</span>  !IS_END() &&</div><div class="line"><a name="l06950"></a><span class="lineno"> 6950</span>  (!IS_ARG() || space_seen)) {</div><div class="line"><a name="l06951"></a><span class="lineno"> 6951</span>  int token = heredoc_identifier();</div><div class="line"><a name="l06952"></a><span class="lineno"> 6952</span>  if (token) return token;</div><div class="line"><a name="l06953"></a><span class="lineno"> 6953</span>  }</div><div class="line"><a name="l06954"></a><span class="lineno"> 6954</span>  switch (lex_state) {</div><div class="line"><a name="l06955"></a><span class="lineno"> 6955</span>  case EXPR_FNAME: case EXPR_DOT:</div><div class="line"><a name="l06956"></a><span class="lineno"> 6956</span>  lex_state = EXPR_ARG; break;</div><div class="line"><a name="l06957"></a><span class="lineno"> 6957</span>  default:</div><div class="line"><a name="l06958"></a><span class="lineno"> 6958</span>  lex_state = EXPR_BEG; break;</div><div class="line"><a name="l06959"></a><span class="lineno"> 6959</span>  }</div><div class="line"><a name="l06960"></a><span class="lineno"> 6960</span>  if (c == '=') {</div><div class="line"><a name="l06961"></a><span class="lineno"> 6961</span>  if ((c = nextc()) == '>') {</div><div class="line"><a name="l06962"></a><span class="lineno"> 6962</span>  return tCMP;</div><div class="line"><a name="l06963"></a><span class="lineno"> 6963</span>  }</div><div class="line"><a name="l06964"></a><span class="lineno"> 6964</span>  pushback(c);</div><div class="line"><a name="l06965"></a><span class="lineno"> 6965</span>  return tLEQ;</div><div class="line"><a name="l06966"></a><span class="lineno"> 6966</span>  }</div><div class="line"><a name="l06967"></a><span class="lineno"> 6967</span>  if (c == '<') {</div><div class="line"><a name="l06968"></a><span class="lineno"> 6968</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l06969"></a><span class="lineno"> 6969</span>  set_yylval_id(tLSHFT);</div><div class="line"><a name="l06970"></a><span class="lineno"> 6970</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l06971"></a><span class="lineno"> 6971</span>  return tOP_ASGN;</div><div class="line"><a name="l06972"></a><span class="lineno"> 6972</span>  }</div><div class="line"><a name="l06973"></a><span class="lineno"> 6973</span>  pushback(c);</div><div class="line"><a name="l06974"></a><span class="lineno"> 6974</span>  warn_balanced("<<", "here document");</div><div class="line"><a name="l06975"></a><span class="lineno"> 6975</span>  return tLSHFT;</div><div class="line"><a name="l06976"></a><span class="lineno"> 6976</span>  }</div><div class="line"><a name="l06977"></a><span class="lineno"> 6977</span>  pushback(c);</div><div class="line"><a name="l06978"></a><span class="lineno"> 6978</span>  return '<';</div><div class="line"><a name="l06979"></a><span class="lineno"> 6979</span> </div><div class="line"><a name="l06980"></a><span class="lineno"> 6980</span>  case '>':</div><div class="line"><a name="l06981"></a><span class="lineno"> 6981</span>  switch (lex_state) {</div><div class="line"><a name="l06982"></a><span class="lineno"> 6982</span>  case EXPR_FNAME: case EXPR_DOT:</div><div class="line"><a name="l06983"></a><span class="lineno"> 6983</span>  lex_state = EXPR_ARG; break;</div><div class="line"><a name="l06984"></a><span class="lineno"> 6984</span>  default:</div><div class="line"><a name="l06985"></a><span class="lineno"> 6985</span>  lex_state = EXPR_BEG; break;</div><div class="line"><a name="l06986"></a><span class="lineno"> 6986</span>  }</div><div class="line"><a name="l06987"></a><span class="lineno"> 6987</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l06988"></a><span class="lineno"> 6988</span>  return tGEQ;</div><div class="line"><a name="l06989"></a><span class="lineno"> 6989</span>  }</div><div class="line"><a name="l06990"></a><span class="lineno"> 6990</span>  if (c == '>') {</div><div class="line"><a name="l06991"></a><span class="lineno"> 6991</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l06992"></a><span class="lineno"> 6992</span>  set_yylval_id(tRSHFT);</div><div class="line"><a name="l06993"></a><span class="lineno"> 6993</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l06994"></a><span class="lineno"> 6994</span>  return tOP_ASGN;</div><div class="line"><a name="l06995"></a><span class="lineno"> 6995</span>  }</div><div class="line"><a name="l06996"></a><span class="lineno"> 6996</span>  pushback(c);</div><div class="line"><a name="l06997"></a><span class="lineno"> 6997</span>  return tRSHFT;</div><div class="line"><a name="l06998"></a><span class="lineno"> 6998</span>  }</div><div class="line"><a name="l06999"></a><span class="lineno"> 6999</span>  pushback(c);</div><div class="line"><a name="l07000"></a><span class="lineno"> 7000</span>  return '>';</div><div class="line"><a name="l07001"></a><span class="lineno"> 7001</span> </div><div class="line"><a name="l07002"></a><span class="lineno"> 7002</span>  case '"':</div><div class="line"><a name="l07003"></a><span class="lineno"> 7003</span>  lex_strterm = NEW_STRTERM(str_dquote, '"', 0);</div><div class="line"><a name="l07004"></a><span class="lineno"> 7004</span>  return tSTRING_BEG;</div><div class="line"><a name="l07005"></a><span class="lineno"> 7005</span> </div><div class="line"><a name="l07006"></a><span class="lineno"> 7006</span>  case '`':</div><div class="line"><a name="l07007"></a><span class="lineno"> 7007</span>  if (lex_state == EXPR_FNAME) {</div><div class="line"><a name="l07008"></a><span class="lineno"> 7008</span>  lex_state = EXPR_ENDFN;</div><div class="line"><a name="l07009"></a><span class="lineno"> 7009</span>  return c;</div><div class="line"><a name="l07010"></a><span class="lineno"> 7010</span>  }</div><div class="line"><a name="l07011"></a><span class="lineno"> 7011</span>  if (lex_state == EXPR_DOT) {</div><div class="line"><a name="l07012"></a><span class="lineno"> 7012</span>  if (cmd_state)</div><div class="line"><a name="l07013"></a><span class="lineno"> 7013</span>  lex_state = EXPR_CMDARG;</div><div class="line"><a name="l07014"></a><span class="lineno"> 7014</span>  else</div><div class="line"><a name="l07015"></a><span class="lineno"> 7015</span>  lex_state = EXPR_ARG;</div><div class="line"><a name="l07016"></a><span class="lineno"> 7016</span>  return c;</div><div class="line"><a name="l07017"></a><span class="lineno"> 7017</span>  }</div><div class="line"><a name="l07018"></a><span class="lineno"> 7018</span>  lex_strterm = NEW_STRTERM(str_xquote, '`', 0);</div><div class="line"><a name="l07019"></a><span class="lineno"> 7019</span>  return tXSTRING_BEG;</div><div class="line"><a name="l07020"></a><span class="lineno"> 7020</span> </div><div class="line"><a name="l07021"></a><span class="lineno"> 7021</span>  case '\'':</div><div class="line"><a name="l07022"></a><span class="lineno"> 7022</span>  lex_strterm = NEW_STRTERM(str_squote, '\'', 0);</div><div class="line"><a name="l07023"></a><span class="lineno"> 7023</span>  return tSTRING_BEG;</div><div class="line"><a name="l07024"></a><span class="lineno"> 7024</span> </div><div class="line"><a name="l07025"></a><span class="lineno"> 7025</span>  case '?':</div><div class="line"><a name="l07026"></a><span class="lineno"> 7026</span>  if (IS_END()) {</div><div class="line"><a name="l07027"></a><span class="lineno"> 7027</span>  lex_state = EXPR_VALUE;</div><div class="line"><a name="l07028"></a><span class="lineno"> 7028</span>  return '?';</div><div class="line"><a name="l07029"></a><span class="lineno"> 7029</span>  }</div><div class="line"><a name="l07030"></a><span class="lineno"> 7030</span>  c = nextc();</div><div class="line"><a name="l07031"></a><span class="lineno"> 7031</span>  if (c == -1) {</div><div class="line"><a name="l07032"></a><span class="lineno"> 7032</span>  compile_error(PARSER_ARG "incomplete character syntax");</div><div class="line"><a name="l07033"></a><span class="lineno"> 7033</span>  return 0;</div><div class="line"><a name="l07034"></a><span class="lineno"> 7034</span>  }</div><div class="line"><a name="l07035"></a><span class="lineno"> 7035</span>  if (rb_enc_isspace(c, parser->enc)) {</div><div class="line"><a name="l07036"></a><span class="lineno"> 7036</span>  if (!IS_ARG()) {</div><div class="line"><a name="l07037"></a><span class="lineno"> 7037</span>  int c2 = 0;</div><div class="line"><a name="l07038"></a><span class="lineno"> 7038</span>  switch (c) {</div><div class="line"><a name="l07039"></a><span class="lineno"> 7039</span>  case ' ':</div><div class="line"><a name="l07040"></a><span class="lineno"> 7040</span>  c2 = 's';</div><div class="line"><a name="l07041"></a><span class="lineno"> 7041</span>  break;</div><div class="line"><a name="l07042"></a><span class="lineno"> 7042</span>  case '\n':</div><div class="line"><a name="l07043"></a><span class="lineno"> 7043</span>  c2 = 'n';</div><div class="line"><a name="l07044"></a><span class="lineno"> 7044</span>  break;</div><div class="line"><a name="l07045"></a><span class="lineno"> 7045</span>  case '\t':</div><div class="line"><a name="l07046"></a><span class="lineno"> 7046</span>  c2 = 't';</div><div class="line"><a name="l07047"></a><span class="lineno"> 7047</span>  break;</div><div class="line"><a name="l07048"></a><span class="lineno"> 7048</span>  case '\v':</div><div class="line"><a name="l07049"></a><span class="lineno"> 7049</span>  c2 = 'v';</div><div class="line"><a name="l07050"></a><span class="lineno"> 7050</span>  break;</div><div class="line"><a name="l07051"></a><span class="lineno"> 7051</span>  case '\r':</div><div class="line"><a name="l07052"></a><span class="lineno"> 7052</span>  c2 = 'r';</div><div class="line"><a name="l07053"></a><span class="lineno"> 7053</span>  break;</div><div class="line"><a name="l07054"></a><span class="lineno"> 7054</span>  case '\f':</div><div class="line"><a name="l07055"></a><span class="lineno"> 7055</span>  c2 = 'f';</div><div class="line"><a name="l07056"></a><span class="lineno"> 7056</span>  break;</div><div class="line"><a name="l07057"></a><span class="lineno"> 7057</span>  }</div><div class="line"><a name="l07058"></a><span class="lineno"> 7058</span>  if (c2) {</div><div class="line"><a name="l07059"></a><span class="lineno"> 7059</span>  rb_warnI("invalid character syntax; use ?\\%c", c2);</div><div class="line"><a name="l07060"></a><span class="lineno"> 7060</span>  }</div><div class="line"><a name="l07061"></a><span class="lineno"> 7061</span>  }</div><div class="line"><a name="l07062"></a><span class="lineno"> 7062</span>  ternary:</div><div class="line"><a name="l07063"></a><span class="lineno"> 7063</span>  pushback(c);</div><div class="line"><a name="l07064"></a><span class="lineno"> 7064</span>  lex_state = EXPR_VALUE;</div><div class="line"><a name="l07065"></a><span class="lineno"> 7065</span>  return '?';</div><div class="line"><a name="l07066"></a><span class="lineno"> 7066</span>  }</div><div class="line"><a name="l07067"></a><span class="lineno"> 7067</span>  newtok();</div><div class="line"><a name="l07068"></a><span class="lineno"> 7068</span>  enc = parser->enc;</div><div class="line"><a name="l07069"></a><span class="lineno"> 7069</span>  if (!parser_isascii()) {</div><div class="line"><a name="l07070"></a><span class="lineno"> 7070</span>  if (tokadd_mbchar(c) == -1) return 0;</div><div class="line"><a name="l07071"></a><span class="lineno"> 7071</span>  }</div><div class="line"><a name="l07072"></a><span class="lineno"> 7072</span>  else if ((rb_enc_isalnum(c, parser->enc) || c == '_') &&</div><div class="line"><a name="l07073"></a><span class="lineno"> 7073</span>  lex_p < lex_pend && is_identchar(lex_p, lex_pend, parser->enc)) {</div><div class="line"><a name="l07074"></a><span class="lineno"> 7074</span>  goto ternary;</div><div class="line"><a name="l07075"></a><span class="lineno"> 7075</span>  }</div><div class="line"><a name="l07076"></a><span class="lineno"> 7076</span>  else if (c == '\\') {</div><div class="line"><a name="l07077"></a><span class="lineno"> 7077</span>  if (peek('u')) {</div><div class="line"><a name="l07078"></a><span class="lineno"> 7078</span>  nextc();</div><div class="line"><a name="l07079"></a><span class="lineno"> 7079</span>  c = parser_tokadd_utf8(parser, &enc, 0, 0, 0);</div><div class="line"><a name="l07080"></a><span class="lineno"> 7080</span>  if (0x80 <= c) {</div><div class="line"><a name="l07081"></a><span class="lineno"> 7081</span>  tokaddmbc(c, enc);</div><div class="line"><a name="l07082"></a><span class="lineno"> 7082</span>  }</div><div class="line"><a name="l07083"></a><span class="lineno"> 7083</span>  else {</div><div class="line"><a name="l07084"></a><span class="lineno"> 7084</span>  tokadd(c);</div><div class="line"><a name="l07085"></a><span class="lineno"> 7085</span>  }</div><div class="line"><a name="l07086"></a><span class="lineno"> 7086</span>  }</div><div class="line"><a name="l07087"></a><span class="lineno"> 7087</span>  else if (!lex_eol_p() && !(c = *lex_p, ISASCII(c))) {</div><div class="line"><a name="l07088"></a><span class="lineno"> 7088</span>  nextc();</div><div class="line"><a name="l07089"></a><span class="lineno"> 7089</span>  if (tokadd_mbchar(c) == -1) return 0;</div><div class="line"><a name="l07090"></a><span class="lineno"> 7090</span>  }</div><div class="line"><a name="l07091"></a><span class="lineno"> 7091</span>  else {</div><div class="line"><a name="l07092"></a><span class="lineno"> 7092</span>  c = read_escape(0, &enc);</div><div class="line"><a name="l07093"></a><span class="lineno"> 7093</span>  tokadd(c);</div><div class="line"><a name="l07094"></a><span class="lineno"> 7094</span>  }</div><div class="line"><a name="l07095"></a><span class="lineno"> 7095</span>  }</div><div class="line"><a name="l07096"></a><span class="lineno"> 7096</span>  else {</div><div class="line"><a name="l07097"></a><span class="lineno"> 7097</span>  tokadd(c);</div><div class="line"><a name="l07098"></a><span class="lineno"> 7098</span>  }</div><div class="line"><a name="l07099"></a><span class="lineno"> 7099</span>  tokfix();</div><div class="line"><a name="l07100"></a><span class="lineno"> 7100</span>  set_yylval_str(STR_NEW3(tok(), toklen(), enc, 0));</div><div class="line"><a name="l07101"></a><span class="lineno"> 7101</span>  lex_state = EXPR_END;</div><div class="line"><a name="l07102"></a><span class="lineno"> 7102</span>  return tCHAR;</div><div class="line"><a name="l07103"></a><span class="lineno"> 7103</span> </div><div class="line"><a name="l07104"></a><span class="lineno"> 7104</span>  case '&':</div><div class="line"><a name="l07105"></a><span class="lineno"> 7105</span>  if ((c = nextc()) == '&') {</div><div class="line"><a name="l07106"></a><span class="lineno"> 7106</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07107"></a><span class="lineno"> 7107</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l07108"></a><span class="lineno"> 7108</span>  set_yylval_id(tANDOP);</div><div class="line"><a name="l07109"></a><span class="lineno"> 7109</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07110"></a><span class="lineno"> 7110</span>  return tOP_ASGN;</div><div class="line"><a name="l07111"></a><span class="lineno"> 7111</span>  }</div><div class="line"><a name="l07112"></a><span class="lineno"> 7112</span>  pushback(c);</div><div class="line"><a name="l07113"></a><span class="lineno"> 7113</span>  return tANDOP;</div><div class="line"><a name="l07114"></a><span class="lineno"> 7114</span>  }</div><div class="line"><a name="l07115"></a><span class="lineno"> 7115</span>  else if (c == '=') {</div><div class="line"><a name="l07116"></a><span class="lineno"> 7116</span>  set_yylval_id('&');</div><div class="line"><a name="l07117"></a><span class="lineno"> 7117</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07118"></a><span class="lineno"> 7118</span>  return tOP_ASGN;</div><div class="line"><a name="l07119"></a><span class="lineno"> 7119</span>  }</div><div class="line"><a name="l07120"></a><span class="lineno"> 7120</span>  pushback(c);</div><div class="line"><a name="l07121"></a><span class="lineno"> 7121</span>  if (IS_SPCARG(c)) {</div><div class="line"><a name="l07122"></a><span class="lineno"> 7122</span>  rb_warning0("`&' interpreted as argument prefix");</div><div class="line"><a name="l07123"></a><span class="lineno"> 7123</span>  c = tAMPER;</div><div class="line"><a name="l07124"></a><span class="lineno"> 7124</span>  }</div><div class="line"><a name="l07125"></a><span class="lineno"> 7125</span>  else if (IS_BEG()) {</div><div class="line"><a name="l07126"></a><span class="lineno"> 7126</span>  c = tAMPER;</div><div class="line"><a name="l07127"></a><span class="lineno"> 7127</span>  }</div><div class="line"><a name="l07128"></a><span class="lineno"> 7128</span>  else {</div><div class="line"><a name="l07129"></a><span class="lineno"> 7129</span>  warn_balanced("&", "argument prefix");</div><div class="line"><a name="l07130"></a><span class="lineno"> 7130</span>  c = '&';</div><div class="line"><a name="l07131"></a><span class="lineno"> 7131</span>  }</div><div class="line"><a name="l07132"></a><span class="lineno"> 7132</span>  switch (lex_state) {</div><div class="line"><a name="l07133"></a><span class="lineno"> 7133</span>  case EXPR_FNAME: case EXPR_DOT:</div><div class="line"><a name="l07134"></a><span class="lineno"> 7134</span>  lex_state = EXPR_ARG; break;</div><div class="line"><a name="l07135"></a><span class="lineno"> 7135</span>  default:</div><div class="line"><a name="l07136"></a><span class="lineno"> 7136</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07137"></a><span class="lineno"> 7137</span>  }</div><div class="line"><a name="l07138"></a><span class="lineno"> 7138</span>  return c;</div><div class="line"><a name="l07139"></a><span class="lineno"> 7139</span> </div><div class="line"><a name="l07140"></a><span class="lineno"> 7140</span>  case '|':</div><div class="line"><a name="l07141"></a><span class="lineno"> 7141</span>  if ((c = nextc()) == '|') {</div><div class="line"><a name="l07142"></a><span class="lineno"> 7142</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07143"></a><span class="lineno"> 7143</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l07144"></a><span class="lineno"> 7144</span>  set_yylval_id(tOROP);</div><div class="line"><a name="l07145"></a><span class="lineno"> 7145</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07146"></a><span class="lineno"> 7146</span>  return tOP_ASGN;</div><div class="line"><a name="l07147"></a><span class="lineno"> 7147</span>  }</div><div class="line"><a name="l07148"></a><span class="lineno"> 7148</span>  pushback(c);</div><div class="line"><a name="l07149"></a><span class="lineno"> 7149</span>  return tOROP;</div><div class="line"><a name="l07150"></a><span class="lineno"> 7150</span>  }</div><div class="line"><a name="l07151"></a><span class="lineno"> 7151</span>  if (c == '=') {</div><div class="line"><a name="l07152"></a><span class="lineno"> 7152</span>  set_yylval_id('|');</div><div class="line"><a name="l07153"></a><span class="lineno"> 7153</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07154"></a><span class="lineno"> 7154</span>  return tOP_ASGN;</div><div class="line"><a name="l07155"></a><span class="lineno"> 7155</span>  }</div><div class="line"><a name="l07156"></a><span class="lineno"> 7156</span>  if (lex_state == EXPR_FNAME || lex_state == EXPR_DOT) {</div><div class="line"><a name="l07157"></a><span class="lineno"> 7157</span>  lex_state = EXPR_ARG;</div><div class="line"><a name="l07158"></a><span class="lineno"> 7158</span>  }</div><div class="line"><a name="l07159"></a><span class="lineno"> 7159</span>  else {</div><div class="line"><a name="l07160"></a><span class="lineno"> 7160</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07161"></a><span class="lineno"> 7161</span>  }</div><div class="line"><a name="l07162"></a><span class="lineno"> 7162</span>  pushback(c);</div><div class="line"><a name="l07163"></a><span class="lineno"> 7163</span>  return '|';</div><div class="line"><a name="l07164"></a><span class="lineno"> 7164</span> </div><div class="line"><a name="l07165"></a><span class="lineno"> 7165</span>  case '+':</div><div class="line"><a name="l07166"></a><span class="lineno"> 7166</span>  c = nextc();</div><div class="line"><a name="l07167"></a><span class="lineno"> 7167</span>  if (lex_state == EXPR_FNAME || lex_state == EXPR_DOT) {</div><div class="line"><a name="l07168"></a><span class="lineno"> 7168</span>  lex_state = EXPR_ARG;</div><div class="line"><a name="l07169"></a><span class="lineno"> 7169</span>  if (c == '@') {</div><div class="line"><a name="l07170"></a><span class="lineno"> 7170</span>  return tUPLUS;</div><div class="line"><a name="l07171"></a><span class="lineno"> 7171</span>  }</div><div class="line"><a name="l07172"></a><span class="lineno"> 7172</span>  pushback(c);</div><div class="line"><a name="l07173"></a><span class="lineno"> 7173</span>  return '+';</div><div class="line"><a name="l07174"></a><span class="lineno"> 7174</span>  }</div><div class="line"><a name="l07175"></a><span class="lineno"> 7175</span>  if (c == '=') {</div><div class="line"><a name="l07176"></a><span class="lineno"> 7176</span>  set_yylval_id('+');</div><div class="line"><a name="l07177"></a><span class="lineno"> 7177</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07178"></a><span class="lineno"> 7178</span>  return tOP_ASGN;</div><div class="line"><a name="l07179"></a><span class="lineno"> 7179</span>  }</div><div class="line"><a name="l07180"></a><span class="lineno"> 7180</span>  if (IS_BEG() || (IS_SPCARG(c) && arg_ambiguous())) {</div><div class="line"><a name="l07181"></a><span class="lineno"> 7181</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07182"></a><span class="lineno"> 7182</span>  pushback(c);</div><div class="line"><a name="l07183"></a><span class="lineno"> 7183</span>  if (c != -1 && ISDIGIT(c)) {</div><div class="line"><a name="l07184"></a><span class="lineno"> 7184</span>  c = '+';</div><div class="line"><a name="l07185"></a><span class="lineno"> 7185</span>  goto start_num;</div><div class="line"><a name="l07186"></a><span class="lineno"> 7186</span>  }</div><div class="line"><a name="l07187"></a><span class="lineno"> 7187</span>  return tUPLUS;</div><div class="line"><a name="l07188"></a><span class="lineno"> 7188</span>  }</div><div class="line"><a name="l07189"></a><span class="lineno"> 7189</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07190"></a><span class="lineno"> 7190</span>  pushback(c);</div><div class="line"><a name="l07191"></a><span class="lineno"> 7191</span>  warn_balanced("+", "unary operator");</div><div class="line"><a name="l07192"></a><span class="lineno"> 7192</span>  return '+';</div><div class="line"><a name="l07193"></a><span class="lineno"> 7193</span> </div><div class="line"><a name="l07194"></a><span class="lineno"> 7194</span>  case '-':</div><div class="line"><a name="l07195"></a><span class="lineno"> 7195</span>  c = nextc();</div><div class="line"><a name="l07196"></a><span class="lineno"> 7196</span>  if (lex_state == EXPR_FNAME || lex_state == EXPR_DOT) {</div><div class="line"><a name="l07197"></a><span class="lineno"> 7197</span>  lex_state = EXPR_ARG;</div><div class="line"><a name="l07198"></a><span class="lineno"> 7198</span>  if (c == '@') {</div><div class="line"><a name="l07199"></a><span class="lineno"> 7199</span>  return tUMINUS;</div><div class="line"><a name="l07200"></a><span class="lineno"> 7200</span>  }</div><div class="line"><a name="l07201"></a><span class="lineno"> 7201</span>  pushback(c);</div><div class="line"><a name="l07202"></a><span class="lineno"> 7202</span>  return '-';</div><div class="line"><a name="l07203"></a><span class="lineno"> 7203</span>  }</div><div class="line"><a name="l07204"></a><span class="lineno"> 7204</span>  if (c == '=') {</div><div class="line"><a name="l07205"></a><span class="lineno"> 7205</span>  set_yylval_id('-');</div><div class="line"><a name="l07206"></a><span class="lineno"> 7206</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07207"></a><span class="lineno"> 7207</span>  return tOP_ASGN;</div><div class="line"><a name="l07208"></a><span class="lineno"> 7208</span>  }</div><div class="line"><a name="l07209"></a><span class="lineno"> 7209</span>  if (c == '>') {</div><div class="line"><a name="l07210"></a><span class="lineno"> 7210</span>  lex_state = EXPR_ARG;</div><div class="line"><a name="l07211"></a><span class="lineno"> 7211</span>  return tLAMBDA;</div><div class="line"><a name="l07212"></a><span class="lineno"> 7212</span>  }</div><div class="line"><a name="l07213"></a><span class="lineno"> 7213</span>  if (IS_BEG() || (IS_SPCARG(c) && arg_ambiguous())) {</div><div class="line"><a name="l07214"></a><span class="lineno"> 7214</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07215"></a><span class="lineno"> 7215</span>  pushback(c);</div><div class="line"><a name="l07216"></a><span class="lineno"> 7216</span>  if (c != -1 && ISDIGIT(c)) {</div><div class="line"><a name="l07217"></a><span class="lineno"> 7217</span>  return tUMINUS_NUM;</div><div class="line"><a name="l07218"></a><span class="lineno"> 7218</span>  }</div><div class="line"><a name="l07219"></a><span class="lineno"> 7219</span>  return tUMINUS;</div><div class="line"><a name="l07220"></a><span class="lineno"> 7220</span>  }</div><div class="line"><a name="l07221"></a><span class="lineno"> 7221</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07222"></a><span class="lineno"> 7222</span>  pushback(c);</div><div class="line"><a name="l07223"></a><span class="lineno"> 7223</span>  warn_balanced("-", "unary operator");</div><div class="line"><a name="l07224"></a><span class="lineno"> 7224</span>  return '-';</div><div class="line"><a name="l07225"></a><span class="lineno"> 7225</span> </div><div class="line"><a name="l07226"></a><span class="lineno"> 7226</span>  case '.':</div><div class="line"><a name="l07227"></a><span class="lineno"> 7227</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07228"></a><span class="lineno"> 7228</span>  if ((c = nextc()) == '.') {</div><div class="line"><a name="l07229"></a><span class="lineno"> 7229</span>  if ((c = nextc()) == '.') {</div><div class="line"><a name="l07230"></a><span class="lineno"> 7230</span>  return tDOT3;</div><div class="line"><a name="l07231"></a><span class="lineno"> 7231</span>  }</div><div class="line"><a name="l07232"></a><span class="lineno"> 7232</span>  pushback(c);</div><div class="line"><a name="l07233"></a><span class="lineno"> 7233</span>  return tDOT2;</div><div class="line"><a name="l07234"></a><span class="lineno"> 7234</span>  }</div><div class="line"><a name="l07235"></a><span class="lineno"> 7235</span>  pushback(c);</div><div class="line"><a name="l07236"></a><span class="lineno"> 7236</span>  if (c != -1 && ISDIGIT(c)) {</div><div class="line"><a name="l07237"></a><span class="lineno"> 7237</span>  yyerror("no .<digit> floating literal anymore; put 0 before dot");</div><div class="line"><a name="l07238"></a><span class="lineno"> 7238</span>  }</div><div class="line"><a name="l07239"></a><span class="lineno"> 7239</span>  lex_state = EXPR_DOT;</div><div class="line"><a name="l07240"></a><span class="lineno"> 7240</span>  return '.';</div><div class="line"><a name="l07241"></a><span class="lineno"> 7241</span> </div><div class="line"><a name="l07242"></a><span class="lineno"> 7242</span>  start_num:</div><div class="line"><a name="l07243"></a><span class="lineno"> 7243</span>  case '0': case '1': case '2': case '3': case '4':</div><div class="line"><a name="l07244"></a><span class="lineno"> 7244</span>  case '5': case '6': case '7': case '8': case '9':</div><div class="line"><a name="l07245"></a><span class="lineno"> 7245</span>  {</div><div class="line"><a name="l07246"></a><span class="lineno"> 7246</span>  int is_float, seen_point, seen_e, nondigit;</div><div class="line"><a name="l07247"></a><span class="lineno"> 7247</span> </div><div class="line"><a name="l07248"></a><span class="lineno"> 7248</span>  is_float = seen_point = seen_e = nondigit = 0;</div><div class="line"><a name="l07249"></a><span class="lineno"> 7249</span>  lex_state = EXPR_END;</div><div class="line"><a name="l07250"></a><span class="lineno"> 7250</span>  newtok();</div><div class="line"><a name="l07251"></a><span class="lineno"> 7251</span>  if (c == '-' || c == '+') {</div><div class="line"><a name="l07252"></a><span class="lineno"> 7252</span>  tokadd(c);</div><div class="line"><a name="l07253"></a><span class="lineno"> 7253</span>  c = nextc();</div><div class="line"><a name="l07254"></a><span class="lineno"> 7254</span>  }</div><div class="line"><a name="l07255"></a><span class="lineno"> 7255</span>  if (c == '0') {</div><div class="line"><a name="l07256"></a><span class="lineno"> 7256</span> #define no_digits() do {yyerror("numeric literal without digits"); return 0;} while (0)</div><div class="line"><a name="l07257"></a><span class="lineno"> 7257</span>  int start = toklen();</div><div class="line"><a name="l07258"></a><span class="lineno"> 7258</span>  c = nextc();</div><div class="line"><a name="l07259"></a><span class="lineno"> 7259</span>  if (c == 'x' || c == 'X') {</div><div class="line"><a name="l07260"></a><span class="lineno"> 7260</span>  /* hexadecimal */</div><div class="line"><a name="l07261"></a><span class="lineno"> 7261</span>  c = nextc();</div><div class="line"><a name="l07262"></a><span class="lineno"> 7262</span>  if (c != -1 && ISXDIGIT(c)) {</div><div class="line"><a name="l07263"></a><span class="lineno"> 7263</span>  do {</div><div class="line"><a name="l07264"></a><span class="lineno"> 7264</span>  if (c == '_') {</div><div class="line"><a name="l07265"></a><span class="lineno"> 7265</span>  if (nondigit) break;</div><div class="line"><a name="l07266"></a><span class="lineno"> 7266</span>  nondigit = c;</div><div class="line"><a name="l07267"></a><span class="lineno"> 7267</span>  continue;</div><div class="line"><a name="l07268"></a><span class="lineno"> 7268</span>  }</div><div class="line"><a name="l07269"></a><span class="lineno"> 7269</span>  if (!ISXDIGIT(c)) break;</div><div class="line"><a name="l07270"></a><span class="lineno"> 7270</span>  nondigit = 0;</div><div class="line"><a name="l07271"></a><span class="lineno"> 7271</span>  tokadd(c);</div><div class="line"><a name="l07272"></a><span class="lineno"> 7272</span>  } while ((c = nextc()) != -1);</div><div class="line"><a name="l07273"></a><span class="lineno"> 7273</span>  }</div><div class="line"><a name="l07274"></a><span class="lineno"> 7274</span>  pushback(c);</div><div class="line"><a name="l07275"></a><span class="lineno"> 7275</span>  tokfix();</div><div class="line"><a name="l07276"></a><span class="lineno"> 7276</span>  if (toklen() == start) {</div><div class="line"><a name="l07277"></a><span class="lineno"> 7277</span>  no_digits();</div><div class="line"><a name="l07278"></a><span class="lineno"> 7278</span>  }</div><div class="line"><a name="l07279"></a><span class="lineno"> 7279</span>  else if (nondigit) goto trailing_uc;</div><div class="line"><a name="l07280"></a><span class="lineno"> 7280</span>  set_yylval_literal(rb_cstr_to_inum(tok(), 16, FALSE));</div><div class="line"><a name="l07281"></a><span class="lineno"> 7281</span>  return tINTEGER;</div><div class="line"><a name="l07282"></a><span class="lineno"> 7282</span>  }</div><div class="line"><a name="l07283"></a><span class="lineno"> 7283</span>  if (c == 'b' || c == 'B') {</div><div class="line"><a name="l07284"></a><span class="lineno"> 7284</span>  /* binary */</div><div class="line"><a name="l07285"></a><span class="lineno"> 7285</span>  c = nextc();</div><div class="line"><a name="l07286"></a><span class="lineno"> 7286</span>  if (c == '0' || c == '1') {</div><div class="line"><a name="l07287"></a><span class="lineno"> 7287</span>  do {</div><div class="line"><a name="l07288"></a><span class="lineno"> 7288</span>  if (c == '_') {</div><div class="line"><a name="l07289"></a><span class="lineno"> 7289</span>  if (nondigit) break;</div><div class="line"><a name="l07290"></a><span class="lineno"> 7290</span>  nondigit = c;</div><div class="line"><a name="l07291"></a><span class="lineno"> 7291</span>  continue;</div><div class="line"><a name="l07292"></a><span class="lineno"> 7292</span>  }</div><div class="line"><a name="l07293"></a><span class="lineno"> 7293</span>  if (c != '0' && c != '1') break;</div><div class="line"><a name="l07294"></a><span class="lineno"> 7294</span>  nondigit = 0;</div><div class="line"><a name="l07295"></a><span class="lineno"> 7295</span>  tokadd(c);</div><div class="line"><a name="l07296"></a><span class="lineno"> 7296</span>  } while ((c = nextc()) != -1);</div><div class="line"><a name="l07297"></a><span class="lineno"> 7297</span>  }</div><div class="line"><a name="l07298"></a><span class="lineno"> 7298</span>  pushback(c);</div><div class="line"><a name="l07299"></a><span class="lineno"> 7299</span>  tokfix();</div><div class="line"><a name="l07300"></a><span class="lineno"> 7300</span>  if (toklen() == start) {</div><div class="line"><a name="l07301"></a><span class="lineno"> 7301</span>  no_digits();</div><div class="line"><a name="l07302"></a><span class="lineno"> 7302</span>  }</div><div class="line"><a name="l07303"></a><span class="lineno"> 7303</span>  else if (nondigit) goto trailing_uc;</div><div class="line"><a name="l07304"></a><span class="lineno"> 7304</span>  set_yylval_literal(rb_cstr_to_inum(tok(), 2, FALSE));</div><div class="line"><a name="l07305"></a><span class="lineno"> 7305</span>  return tINTEGER;</div><div class="line"><a name="l07306"></a><span class="lineno"> 7306</span>  }</div><div class="line"><a name="l07307"></a><span class="lineno"> 7307</span>  if (c == 'd' || c == 'D') {</div><div class="line"><a name="l07308"></a><span class="lineno"> 7308</span>  /* decimal */</div><div class="line"><a name="l07309"></a><span class="lineno"> 7309</span>  c = nextc();</div><div class="line"><a name="l07310"></a><span class="lineno"> 7310</span>  if (c != -1 && ISDIGIT(c)) {</div><div class="line"><a name="l07311"></a><span class="lineno"> 7311</span>  do {</div><div class="line"><a name="l07312"></a><span class="lineno"> 7312</span>  if (c == '_') {</div><div class="line"><a name="l07313"></a><span class="lineno"> 7313</span>  if (nondigit) break;</div><div class="line"><a name="l07314"></a><span class="lineno"> 7314</span>  nondigit = c;</div><div class="line"><a name="l07315"></a><span class="lineno"> 7315</span>  continue;</div><div class="line"><a name="l07316"></a><span class="lineno"> 7316</span>  }</div><div class="line"><a name="l07317"></a><span class="lineno"> 7317</span>  if (!ISDIGIT(c)) break;</div><div class="line"><a name="l07318"></a><span class="lineno"> 7318</span>  nondigit = 0;</div><div class="line"><a name="l07319"></a><span class="lineno"> 7319</span>  tokadd(c);</div><div class="line"><a name="l07320"></a><span class="lineno"> 7320</span>  } while ((c = nextc()) != -1);</div><div class="line"><a name="l07321"></a><span class="lineno"> 7321</span>  }</div><div class="line"><a name="l07322"></a><span class="lineno"> 7322</span>  pushback(c);</div><div class="line"><a name="l07323"></a><span class="lineno"> 7323</span>  tokfix();</div><div class="line"><a name="l07324"></a><span class="lineno"> 7324</span>  if (toklen() == start) {</div><div class="line"><a name="l07325"></a><span class="lineno"> 7325</span>  no_digits();</div><div class="line"><a name="l07326"></a><span class="lineno"> 7326</span>  }</div><div class="line"><a name="l07327"></a><span class="lineno"> 7327</span>  else if (nondigit) goto trailing_uc;</div><div class="line"><a name="l07328"></a><span class="lineno"> 7328</span>  set_yylval_literal(rb_cstr_to_inum(tok(), 10, FALSE));</div><div class="line"><a name="l07329"></a><span class="lineno"> 7329</span>  return tINTEGER;</div><div class="line"><a name="l07330"></a><span class="lineno"> 7330</span>  }</div><div class="line"><a name="l07331"></a><span class="lineno"> 7331</span>  if (c == '_') {</div><div class="line"><a name="l07332"></a><span class="lineno"> 7332</span>  /* 0_0 */</div><div class="line"><a name="l07333"></a><span class="lineno"> 7333</span>  goto octal_number;</div><div class="line"><a name="l07334"></a><span class="lineno"> 7334</span>  }</div><div class="line"><a name="l07335"></a><span class="lineno"> 7335</span>  if (c == 'o' || c == 'O') {</div><div class="line"><a name="l07336"></a><span class="lineno"> 7336</span>  /* prefixed octal */</div><div class="line"><a name="l07337"></a><span class="lineno"> 7337</span>  c = nextc();</div><div class="line"><a name="l07338"></a><span class="lineno"> 7338</span>  if (c == -1 || c == '_' || !ISDIGIT(c)) {</div><div class="line"><a name="l07339"></a><span class="lineno"> 7339</span>  no_digits();</div><div class="line"><a name="l07340"></a><span class="lineno"> 7340</span>  }</div><div class="line"><a name="l07341"></a><span class="lineno"> 7341</span>  }</div><div class="line"><a name="l07342"></a><span class="lineno"> 7342</span>  if (c >= '0' && c <= '7') {</div><div class="line"><a name="l07343"></a><span class="lineno"> 7343</span>  /* octal */</div><div class="line"><a name="l07344"></a><span class="lineno"> 7344</span>  octal_number:</div><div class="line"><a name="l07345"></a><span class="lineno"> 7345</span>  do {</div><div class="line"><a name="l07346"></a><span class="lineno"> 7346</span>  if (c == '_') {</div><div class="line"><a name="l07347"></a><span class="lineno"> 7347</span>  if (nondigit) break;</div><div class="line"><a name="l07348"></a><span class="lineno"> 7348</span>  nondigit = c;</div><div class="line"><a name="l07349"></a><span class="lineno"> 7349</span>  continue;</div><div class="line"><a name="l07350"></a><span class="lineno"> 7350</span>  }</div><div class="line"><a name="l07351"></a><span class="lineno"> 7351</span>  if (c < '0' || c > '9') break;</div><div class="line"><a name="l07352"></a><span class="lineno"> 7352</span>  if (c > '7') goto invalid_octal;</div><div class="line"><a name="l07353"></a><span class="lineno"> 7353</span>  nondigit = 0;</div><div class="line"><a name="l07354"></a><span class="lineno"> 7354</span>  tokadd(c);</div><div class="line"><a name="l07355"></a><span class="lineno"> 7355</span>  } while ((c = nextc()) != -1);</div><div class="line"><a name="l07356"></a><span class="lineno"> 7356</span>  if (toklen() > start) {</div><div class="line"><a name="l07357"></a><span class="lineno"> 7357</span>  pushback(c);</div><div class="line"><a name="l07358"></a><span class="lineno"> 7358</span>  tokfix();</div><div class="line"><a name="l07359"></a><span class="lineno"> 7359</span>  if (nondigit) goto trailing_uc;</div><div class="line"><a name="l07360"></a><span class="lineno"> 7360</span>  set_yylval_literal(rb_cstr_to_inum(tok(), 8, FALSE));</div><div class="line"><a name="l07361"></a><span class="lineno"> 7361</span>  return tINTEGER;</div><div class="line"><a name="l07362"></a><span class="lineno"> 7362</span>  }</div><div class="line"><a name="l07363"></a><span class="lineno"> 7363</span>  if (nondigit) {</div><div class="line"><a name="l07364"></a><span class="lineno"> 7364</span>  pushback(c);</div><div class="line"><a name="l07365"></a><span class="lineno"> 7365</span>  goto trailing_uc;</div><div class="line"><a name="l07366"></a><span class="lineno"> 7366</span>  }</div><div class="line"><a name="l07367"></a><span class="lineno"> 7367</span>  }</div><div class="line"><a name="l07368"></a><span class="lineno"> 7368</span>  if (c > '7' && c <= '9') {</div><div class="line"><a name="l07369"></a><span class="lineno"> 7369</span>  invalid_octal:</div><div class="line"><a name="l07370"></a><span class="lineno"> 7370</span>  yyerror("Invalid octal digit");</div><div class="line"><a name="l07371"></a><span class="lineno"> 7371</span>  }</div><div class="line"><a name="l07372"></a><span class="lineno"> 7372</span>  else if (c == '.' || c == 'e' || c == 'E') {</div><div class="line"><a name="l07373"></a><span class="lineno"> 7373</span>  tokadd('0');</div><div class="line"><a name="l07374"></a><span class="lineno"> 7374</span>  }</div><div class="line"><a name="l07375"></a><span class="lineno"> 7375</span>  else {</div><div class="line"><a name="l07376"></a><span class="lineno"> 7376</span>  pushback(c);</div><div class="line"><a name="l07377"></a><span class="lineno"> 7377</span>  set_yylval_literal(INT2FIX(0));</div><div class="line"><a name="l07378"></a><span class="lineno"> 7378</span>  return tINTEGER;</div><div class="line"><a name="l07379"></a><span class="lineno"> 7379</span>  }</div><div class="line"><a name="l07380"></a><span class="lineno"> 7380</span>  }</div><div class="line"><a name="l07381"></a><span class="lineno"> 7381</span> </div><div class="line"><a name="l07382"></a><span class="lineno"> 7382</span>  for (;;) {</div><div class="line"><a name="l07383"></a><span class="lineno"> 7383</span>  switch (c) {</div><div class="line"><a name="l07384"></a><span class="lineno"> 7384</span>  case '0': case '1': case '2': case '3': case '4':</div><div class="line"><a name="l07385"></a><span class="lineno"> 7385</span>  case '5': case '6': case '7': case '8': case '9':</div><div class="line"><a name="l07386"></a><span class="lineno"> 7386</span>  nondigit = 0;</div><div class="line"><a name="l07387"></a><span class="lineno"> 7387</span>  tokadd(c);</div><div class="line"><a name="l07388"></a><span class="lineno"> 7388</span>  break;</div><div class="line"><a name="l07389"></a><span class="lineno"> 7389</span> </div><div class="line"><a name="l07390"></a><span class="lineno"> 7390</span>  case '.':</div><div class="line"><a name="l07391"></a><span class="lineno"> 7391</span>  if (nondigit) goto trailing_uc;</div><div class="line"><a name="l07392"></a><span class="lineno"> 7392</span>  if (seen_point || seen_e) {</div><div class="line"><a name="l07393"></a><span class="lineno"> 7393</span>  goto decode_num;</div><div class="line"><a name="l07394"></a><span class="lineno"> 7394</span>  }</div><div class="line"><a name="l07395"></a><span class="lineno"> 7395</span>  else {</div><div class="line"><a name="l07396"></a><span class="lineno"> 7396</span>  int c0 = nextc();</div><div class="line"><a name="l07397"></a><span class="lineno"> 7397</span>  if (c0 == -1 || !ISDIGIT(c0)) {</div><div class="line"><a name="l07398"></a><span class="lineno"> 7398</span>  pushback(c0);</div><div class="line"><a name="l07399"></a><span class="lineno"> 7399</span>  goto decode_num;</div><div class="line"><a name="l07400"></a><span class="lineno"> 7400</span>  }</div><div class="line"><a name="l07401"></a><span class="lineno"> 7401</span>  c = c0;</div><div class="line"><a name="l07402"></a><span class="lineno"> 7402</span>  }</div><div class="line"><a name="l07403"></a><span class="lineno"> 7403</span>  tokadd('.');</div><div class="line"><a name="l07404"></a><span class="lineno"> 7404</span>  tokadd(c);</div><div class="line"><a name="l07405"></a><span class="lineno"> 7405</span>  is_float++;</div><div class="line"><a name="l07406"></a><span class="lineno"> 7406</span>  seen_point++;</div><div class="line"><a name="l07407"></a><span class="lineno"> 7407</span>  nondigit = 0;</div><div class="line"><a name="l07408"></a><span class="lineno"> 7408</span>  break;</div><div class="line"><a name="l07409"></a><span class="lineno"> 7409</span> </div><div class="line"><a name="l07410"></a><span class="lineno"> 7410</span>  case 'e':</div><div class="line"><a name="l07411"></a><span class="lineno"> 7411</span>  case 'E':</div><div class="line"><a name="l07412"></a><span class="lineno"> 7412</span>  if (nondigit) {</div><div class="line"><a name="l07413"></a><span class="lineno"> 7413</span>  pushback(c);</div><div class="line"><a name="l07414"></a><span class="lineno"> 7414</span>  c = nondigit;</div><div class="line"><a name="l07415"></a><span class="lineno"> 7415</span>  goto decode_num;</div><div class="line"><a name="l07416"></a><span class="lineno"> 7416</span>  }</div><div class="line"><a name="l07417"></a><span class="lineno"> 7417</span>  if (seen_e) {</div><div class="line"><a name="l07418"></a><span class="lineno"> 7418</span>  goto decode_num;</div><div class="line"><a name="l07419"></a><span class="lineno"> 7419</span>  }</div><div class="line"><a name="l07420"></a><span class="lineno"> 7420</span>  tokadd(c);</div><div class="line"><a name="l07421"></a><span class="lineno"> 7421</span>  seen_e++;</div><div class="line"><a name="l07422"></a><span class="lineno"> 7422</span>  is_float++;</div><div class="line"><a name="l07423"></a><span class="lineno"> 7423</span>  nondigit = c;</div><div class="line"><a name="l07424"></a><span class="lineno"> 7424</span>  c = nextc();</div><div class="line"><a name="l07425"></a><span class="lineno"> 7425</span>  if (c != '-' && c != '+') continue;</div><div class="line"><a name="l07426"></a><span class="lineno"> 7426</span>  tokadd(c);</div><div class="line"><a name="l07427"></a><span class="lineno"> 7427</span>  nondigit = c;</div><div class="line"><a name="l07428"></a><span class="lineno"> 7428</span>  break;</div><div class="line"><a name="l07429"></a><span class="lineno"> 7429</span> </div><div class="line"><a name="l07430"></a><span class="lineno"> 7430</span>  case '_': /* `_' in number just ignored */</div><div class="line"><a name="l07431"></a><span class="lineno"> 7431</span>  if (nondigit) goto decode_num;</div><div class="line"><a name="l07432"></a><span class="lineno"> 7432</span>  nondigit = c;</div><div class="line"><a name="l07433"></a><span class="lineno"> 7433</span>  break;</div><div class="line"><a name="l07434"></a><span class="lineno"> 7434</span> </div><div class="line"><a name="l07435"></a><span class="lineno"> 7435</span>  default:</div><div class="line"><a name="l07436"></a><span class="lineno"> 7436</span>  goto decode_num;</div><div class="line"><a name="l07437"></a><span class="lineno"> 7437</span>  }</div><div class="line"><a name="l07438"></a><span class="lineno"> 7438</span>  c = nextc();</div><div class="line"><a name="l07439"></a><span class="lineno"> 7439</span>  }</div><div class="line"><a name="l07440"></a><span class="lineno"> 7440</span> </div><div class="line"><a name="l07441"></a><span class="lineno"> 7441</span>  decode_num:</div><div class="line"><a name="l07442"></a><span class="lineno"> 7442</span>  pushback(c);</div><div class="line"><a name="l07443"></a><span class="lineno"> 7443</span>  if (nondigit) {</div><div class="line"><a name="l07444"></a><span class="lineno"> 7444</span>  char tmp[30];</div><div class="line"><a name="l07445"></a><span class="lineno"> 7445</span>  trailing_uc:</div><div class="line"><a name="l07446"></a><span class="lineno"> 7446</span>  snprintf(tmp, sizeof(tmp), "trailing `%c' in number", nondigit);</div><div class="line"><a name="l07447"></a><span class="lineno"> 7447</span>  yyerror(tmp);</div><div class="line"><a name="l07448"></a><span class="lineno"> 7448</span>  }</div><div class="line"><a name="l07449"></a><span class="lineno"> 7449</span>  tokfix();</div><div class="line"><a name="l07450"></a><span class="lineno"> 7450</span>  if (is_float) {</div><div class="line"><a name="l07451"></a><span class="lineno"> 7451</span>  double d = strtod(tok(), 0);</div><div class="line"><a name="l07452"></a><span class="lineno"> 7452</span>  if (errno == ERANGE) {</div><div class="line"><a name="l07453"></a><span class="lineno"> 7453</span>  rb_warningS("Float %s out of range", tok());</div><div class="line"><a name="l07454"></a><span class="lineno"> 7454</span>  errno = 0;</div><div class="line"><a name="l07455"></a><span class="lineno"> 7455</span>  }</div><div class="line"><a name="l07456"></a><span class="lineno"> 7456</span>  set_yylval_literal(DBL2NUM(d));</div><div class="line"><a name="l07457"></a><span class="lineno"> 7457</span>  return tFLOAT;</div><div class="line"><a name="l07458"></a><span class="lineno"> 7458</span>  }</div><div class="line"><a name="l07459"></a><span class="lineno"> 7459</span>  set_yylval_literal(rb_cstr_to_inum(tok(), 10, FALSE));</div><div class="line"><a name="l07460"></a><span class="lineno"> 7460</span>  return tINTEGER;</div><div class="line"><a name="l07461"></a><span class="lineno"> 7461</span>  }</div><div class="line"><a name="l07462"></a><span class="lineno"> 7462</span> </div><div class="line"><a name="l07463"></a><span class="lineno"> 7463</span>  case ')':</div><div class="line"><a name="l07464"></a><span class="lineno"> 7464</span>  case ']':</div><div class="line"><a name="l07465"></a><span class="lineno"> 7465</span>  paren_nest--;</div><div class="line"><a name="l07466"></a><span class="lineno"> 7466</span>  case '}':</div><div class="line"><a name="l07467"></a><span class="lineno"> 7467</span>  COND_LEXPOP();</div><div class="line"><a name="l07468"></a><span class="lineno"> 7468</span>  CMDARG_LEXPOP();</div><div class="line"><a name="l07469"></a><span class="lineno"> 7469</span>  if (c == ')')</div><div class="line"><a name="l07470"></a><span class="lineno"> 7470</span>  lex_state = EXPR_ENDFN;</div><div class="line"><a name="l07471"></a><span class="lineno"> 7471</span>  else</div><div class="line"><a name="l07472"></a><span class="lineno"> 7472</span>  lex_state = EXPR_ENDARG;</div><div class="line"><a name="l07473"></a><span class="lineno"> 7473</span>  return c;</div><div class="line"><a name="l07474"></a><span class="lineno"> 7474</span> </div><div class="line"><a name="l07475"></a><span class="lineno"> 7475</span>  case ':':</div><div class="line"><a name="l07476"></a><span class="lineno"> 7476</span>  c = nextc();</div><div class="line"><a name="l07477"></a><span class="lineno"> 7477</span>  if (c == ':') {</div><div class="line"><a name="l07478"></a><span class="lineno"> 7478</span>  if (IS_BEG() || lex_state == EXPR_CLASS || IS_SPCARG(-1)) {</div><div class="line"><a name="l07479"></a><span class="lineno"> 7479</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07480"></a><span class="lineno"> 7480</span>  return tCOLON3;</div><div class="line"><a name="l07481"></a><span class="lineno"> 7481</span>  }</div><div class="line"><a name="l07482"></a><span class="lineno"> 7482</span>  lex_state = EXPR_DOT;</div><div class="line"><a name="l07483"></a><span class="lineno"> 7483</span>  return tCOLON2;</div><div class="line"><a name="l07484"></a><span class="lineno"> 7484</span>  }</div><div class="line"><a name="l07485"></a><span class="lineno"> 7485</span>  if (IS_END() || ISSPACE(c)) {</div><div class="line"><a name="l07486"></a><span class="lineno"> 7486</span>  pushback(c);</div><div class="line"><a name="l07487"></a><span class="lineno"> 7487</span>  warn_balanced(":", "symbol literal");</div><div class="line"><a name="l07488"></a><span class="lineno"> 7488</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07489"></a><span class="lineno"> 7489</span>  return ':';</div><div class="line"><a name="l07490"></a><span class="lineno"> 7490</span>  }</div><div class="line"><a name="l07491"></a><span class="lineno"> 7491</span>  switch (c) {</div><div class="line"><a name="l07492"></a><span class="lineno"> 7492</span>  case '\'':</div><div class="line"><a name="l07493"></a><span class="lineno"> 7493</span>  lex_strterm = NEW_STRTERM(str_ssym, c, 0);</div><div class="line"><a name="l07494"></a><span class="lineno"> 7494</span>  break;</div><div class="line"><a name="l07495"></a><span class="lineno"> 7495</span>  case '"':</div><div class="line"><a name="l07496"></a><span class="lineno"> 7496</span>  lex_strterm = NEW_STRTERM(str_dsym, c, 0);</div><div class="line"><a name="l07497"></a><span class="lineno"> 7497</span>  break;</div><div class="line"><a name="l07498"></a><span class="lineno"> 7498</span>  default:</div><div class="line"><a name="l07499"></a><span class="lineno"> 7499</span>  pushback(c);</div><div class="line"><a name="l07500"></a><span class="lineno"> 7500</span>  break;</div><div class="line"><a name="l07501"></a><span class="lineno"> 7501</span>  }</div><div class="line"><a name="l07502"></a><span class="lineno"> 7502</span>  lex_state = EXPR_FNAME;</div><div class="line"><a name="l07503"></a><span class="lineno"> 7503</span>  return tSYMBEG;</div><div class="line"><a name="l07504"></a><span class="lineno"> 7504</span> </div><div class="line"><a name="l07505"></a><span class="lineno"> 7505</span>  case '/':</div><div class="line"><a name="l07506"></a><span class="lineno"> 7506</span>  if (IS_BEG()) {</div><div class="line"><a name="l07507"></a><span class="lineno"> 7507</span>  lex_strterm = NEW_STRTERM(str_regexp, '/', 0);</div><div class="line"><a name="l07508"></a><span class="lineno"> 7508</span>  return tREGEXP_BEG;</div><div class="line"><a name="l07509"></a><span class="lineno"> 7509</span>  }</div><div class="line"><a name="l07510"></a><span class="lineno"> 7510</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l07511"></a><span class="lineno"> 7511</span>  set_yylval_id('/');</div><div class="line"><a name="l07512"></a><span class="lineno"> 7512</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07513"></a><span class="lineno"> 7513</span>  return tOP_ASGN;</div><div class="line"><a name="l07514"></a><span class="lineno"> 7514</span>  }</div><div class="line"><a name="l07515"></a><span class="lineno"> 7515</span>  pushback(c);</div><div class="line"><a name="l07516"></a><span class="lineno"> 7516</span>  if (IS_SPCARG(c)) {</div><div class="line"><a name="l07517"></a><span class="lineno"> 7517</span>  (void)arg_ambiguous();</div><div class="line"><a name="l07518"></a><span class="lineno"> 7518</span>  lex_strterm = NEW_STRTERM(str_regexp, '/', 0);</div><div class="line"><a name="l07519"></a><span class="lineno"> 7519</span>  return tREGEXP_BEG;</div><div class="line"><a name="l07520"></a><span class="lineno"> 7520</span>  }</div><div class="line"><a name="l07521"></a><span class="lineno"> 7521</span>  switch (lex_state) {</div><div class="line"><a name="l07522"></a><span class="lineno"> 7522</span>  case EXPR_FNAME: case EXPR_DOT:</div><div class="line"><a name="l07523"></a><span class="lineno"> 7523</span>  lex_state = EXPR_ARG; break;</div><div class="line"><a name="l07524"></a><span class="lineno"> 7524</span>  default:</div><div class="line"><a name="l07525"></a><span class="lineno"> 7525</span>  lex_state = EXPR_BEG; break;</div><div class="line"><a name="l07526"></a><span class="lineno"> 7526</span>  }</div><div class="line"><a name="l07527"></a><span class="lineno"> 7527</span>  warn_balanced("/", "regexp literal");</div><div class="line"><a name="l07528"></a><span class="lineno"> 7528</span>  return '/';</div><div class="line"><a name="l07529"></a><span class="lineno"> 7529</span> </div><div class="line"><a name="l07530"></a><span class="lineno"> 7530</span>  case '^':</div><div class="line"><a name="l07531"></a><span class="lineno"> 7531</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l07532"></a><span class="lineno"> 7532</span>  set_yylval_id('^');</div><div class="line"><a name="l07533"></a><span class="lineno"> 7533</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07534"></a><span class="lineno"> 7534</span>  return tOP_ASGN;</div><div class="line"><a name="l07535"></a><span class="lineno"> 7535</span>  }</div><div class="line"><a name="l07536"></a><span class="lineno"> 7536</span>  switch (lex_state) {</div><div class="line"><a name="l07537"></a><span class="lineno"> 7537</span>  case EXPR_FNAME: case EXPR_DOT:</div><div class="line"><a name="l07538"></a><span class="lineno"> 7538</span>  lex_state = EXPR_ARG; break;</div><div class="line"><a name="l07539"></a><span class="lineno"> 7539</span>  default:</div><div class="line"><a name="l07540"></a><span class="lineno"> 7540</span>  lex_state = EXPR_BEG; break;</div><div class="line"><a name="l07541"></a><span class="lineno"> 7541</span>  }</div><div class="line"><a name="l07542"></a><span class="lineno"> 7542</span>  pushback(c);</div><div class="line"><a name="l07543"></a><span class="lineno"> 7543</span>  return '^';</div><div class="line"><a name="l07544"></a><span class="lineno"> 7544</span> </div><div class="line"><a name="l07545"></a><span class="lineno"> 7545</span>  case ';':</div><div class="line"><a name="l07546"></a><span class="lineno"> 7546</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07547"></a><span class="lineno"> 7547</span>  command_start = TRUE;</div><div class="line"><a name="l07548"></a><span class="lineno"> 7548</span>  return ';';</div><div class="line"><a name="l07549"></a><span class="lineno"> 7549</span> </div><div class="line"><a name="l07550"></a><span class="lineno"> 7550</span>  case ',':</div><div class="line"><a name="l07551"></a><span class="lineno"> 7551</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07552"></a><span class="lineno"> 7552</span>  return ',';</div><div class="line"><a name="l07553"></a><span class="lineno"> 7553</span> </div><div class="line"><a name="l07554"></a><span class="lineno"> 7554</span>  case '~':</div><div class="line"><a name="l07555"></a><span class="lineno"> 7555</span>  if (lex_state == EXPR_FNAME || lex_state == EXPR_DOT) {</div><div class="line"><a name="l07556"></a><span class="lineno"> 7556</span>  if ((c = nextc()) != '@') {</div><div class="line"><a name="l07557"></a><span class="lineno"> 7557</span>  pushback(c);</div><div class="line"><a name="l07558"></a><span class="lineno"> 7558</span>  }</div><div class="line"><a name="l07559"></a><span class="lineno"> 7559</span>  lex_state = EXPR_ARG;</div><div class="line"><a name="l07560"></a><span class="lineno"> 7560</span>  }</div><div class="line"><a name="l07561"></a><span class="lineno"> 7561</span>  else {</div><div class="line"><a name="l07562"></a><span class="lineno"> 7562</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07563"></a><span class="lineno"> 7563</span>  }</div><div class="line"><a name="l07564"></a><span class="lineno"> 7564</span>  return '~';</div><div class="line"><a name="l07565"></a><span class="lineno"> 7565</span> </div><div class="line"><a name="l07566"></a><span class="lineno"> 7566</span>  case '(':</div><div class="line"><a name="l07567"></a><span class="lineno"> 7567</span>  if (IS_BEG()) {</div><div class="line"><a name="l07568"></a><span class="lineno"> 7568</span>  c = tLPAREN;</div><div class="line"><a name="l07569"></a><span class="lineno"> 7569</span>  }</div><div class="line"><a name="l07570"></a><span class="lineno"> 7570</span>  else if (IS_SPCARG(-1)) {</div><div class="line"><a name="l07571"></a><span class="lineno"> 7571</span>  c = tLPAREN_ARG;</div><div class="line"><a name="l07572"></a><span class="lineno"> 7572</span>  }</div><div class="line"><a name="l07573"></a><span class="lineno"> 7573</span>  paren_nest++;</div><div class="line"><a name="l07574"></a><span class="lineno"> 7574</span>  COND_PUSH(0);</div><div class="line"><a name="l07575"></a><span class="lineno"> 7575</span>  CMDARG_PUSH(0);</div><div class="line"><a name="l07576"></a><span class="lineno"> 7576</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07577"></a><span class="lineno"> 7577</span>  return c;</div><div class="line"><a name="l07578"></a><span class="lineno"> 7578</span> </div><div class="line"><a name="l07579"></a><span class="lineno"> 7579</span>  case '[':</div><div class="line"><a name="l07580"></a><span class="lineno"> 7580</span>  paren_nest++;</div><div class="line"><a name="l07581"></a><span class="lineno"> 7581</span>  if (lex_state == EXPR_FNAME || lex_state == EXPR_DOT) {</div><div class="line"><a name="l07582"></a><span class="lineno"> 7582</span>  lex_state = EXPR_ARG;</div><div class="line"><a name="l07583"></a><span class="lineno"> 7583</span>  if ((c = nextc()) == ']') {</div><div class="line"><a name="l07584"></a><span class="lineno"> 7584</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l07585"></a><span class="lineno"> 7585</span>  return tASET;</div><div class="line"><a name="l07586"></a><span class="lineno"> 7586</span>  }</div><div class="line"><a name="l07587"></a><span class="lineno"> 7587</span>  pushback(c);</div><div class="line"><a name="l07588"></a><span class="lineno"> 7588</span>  return tAREF;</div><div class="line"><a name="l07589"></a><span class="lineno"> 7589</span>  }</div><div class="line"><a name="l07590"></a><span class="lineno"> 7590</span>  pushback(c);</div><div class="line"><a name="l07591"></a><span class="lineno"> 7591</span>  return '[';</div><div class="line"><a name="l07592"></a><span class="lineno"> 7592</span>  }</div><div class="line"><a name="l07593"></a><span class="lineno"> 7593</span>  else if (IS_BEG()) {</div><div class="line"><a name="l07594"></a><span class="lineno"> 7594</span>  c = tLBRACK;</div><div class="line"><a name="l07595"></a><span class="lineno"> 7595</span>  }</div><div class="line"><a name="l07596"></a><span class="lineno"> 7596</span>  else if (IS_ARG() && space_seen) {</div><div class="line"><a name="l07597"></a><span class="lineno"> 7597</span>  c = tLBRACK;</div><div class="line"><a name="l07598"></a><span class="lineno"> 7598</span>  }</div><div class="line"><a name="l07599"></a><span class="lineno"> 7599</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07600"></a><span class="lineno"> 7600</span>  COND_PUSH(0);</div><div class="line"><a name="l07601"></a><span class="lineno"> 7601</span>  CMDARG_PUSH(0);</div><div class="line"><a name="l07602"></a><span class="lineno"> 7602</span>  return c;</div><div class="line"><a name="l07603"></a><span class="lineno"> 7603</span> </div><div class="line"><a name="l07604"></a><span class="lineno"> 7604</span>  case '{':</div><div class="line"><a name="l07605"></a><span class="lineno"> 7605</span>  if (lpar_beg && lpar_beg == paren_nest) {</div><div class="line"><a name="l07606"></a><span class="lineno"> 7606</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07607"></a><span class="lineno"> 7607</span>  lpar_beg = 0;</div><div class="line"><a name="l07608"></a><span class="lineno"> 7608</span>  --paren_nest;</div><div class="line"><a name="l07609"></a><span class="lineno"> 7609</span>  COND_PUSH(0);</div><div class="line"><a name="l07610"></a><span class="lineno"> 7610</span>  CMDARG_PUSH(0);</div><div class="line"><a name="l07611"></a><span class="lineno"> 7611</span>  return tLAMBEG;</div><div class="line"><a name="l07612"></a><span class="lineno"> 7612</span>  }</div><div class="line"><a name="l07613"></a><span class="lineno"> 7613</span>  if (IS_ARG() || lex_state == EXPR_END || lex_state == EXPR_ENDFN)</div><div class="line"><a name="l07614"></a><span class="lineno"> 7614</span>  c = '{'; /* block (primary) */</div><div class="line"><a name="l07615"></a><span class="lineno"> 7615</span>  else if (lex_state == EXPR_ENDARG)</div><div class="line"><a name="l07616"></a><span class="lineno"> 7616</span>  c = tLBRACE_ARG; /* block (expr) */</div><div class="line"><a name="l07617"></a><span class="lineno"> 7617</span>  else</div><div class="line"><a name="l07618"></a><span class="lineno"> 7618</span>  c = tLBRACE; /* hash */</div><div class="line"><a name="l07619"></a><span class="lineno"> 7619</span>  COND_PUSH(0);</div><div class="line"><a name="l07620"></a><span class="lineno"> 7620</span>  CMDARG_PUSH(0);</div><div class="line"><a name="l07621"></a><span class="lineno"> 7621</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07622"></a><span class="lineno"> 7622</span>  if (c != tLBRACE) command_start = TRUE;</div><div class="line"><a name="l07623"></a><span class="lineno"> 7623</span>  return c;</div><div class="line"><a name="l07624"></a><span class="lineno"> 7624</span> </div><div class="line"><a name="l07625"></a><span class="lineno"> 7625</span>  case '\\':</div><div class="line"><a name="l07626"></a><span class="lineno"> 7626</span>  c = nextc();</div><div class="line"><a name="l07627"></a><span class="lineno"> 7627</span>  if (c == '\n') {</div><div class="line"><a name="l07628"></a><span class="lineno"> 7628</span>  space_seen = 1;</div><div class="line"><a name="l07629"></a><span class="lineno"> 7629</span> #ifdef RIPPER</div><div class="line"><a name="l07630"></a><span class="lineno"> 7630</span>  ripper_dispatch_scan_event(parser, tSP);</div><div class="line"><a name="l07631"></a><span class="lineno"> 7631</span> #endif</div><div class="line"><a name="l07632"></a><span class="lineno"> 7632</span>  goto retry; /* skip \\n */</div><div class="line"><a name="l07633"></a><span class="lineno"> 7633</span>  }</div><div class="line"><a name="l07634"></a><span class="lineno"> 7634</span>  pushback(c);</div><div class="line"><a name="l07635"></a><span class="lineno"> 7635</span>  return '\\';</div><div class="line"><a name="l07636"></a><span class="lineno"> 7636</span> </div><div class="line"><a name="l07637"></a><span class="lineno"> 7637</span>  case '%':</div><div class="line"><a name="l07638"></a><span class="lineno"> 7638</span>  if (IS_BEG()) {</div><div class="line"><a name="l07639"></a><span class="lineno"> 7639</span>  int term;</div><div class="line"><a name="l07640"></a><span class="lineno"> 7640</span>  int paren;</div><div class="line"><a name="l07641"></a><span class="lineno"> 7641</span> </div><div class="line"><a name="l07642"></a><span class="lineno"> 7642</span>  c = nextc();</div><div class="line"><a name="l07643"></a><span class="lineno"> 7643</span>  quotation:</div><div class="line"><a name="l07644"></a><span class="lineno"> 7644</span>  if (c == -1 || !ISALNUM(c)) {</div><div class="line"><a name="l07645"></a><span class="lineno"> 7645</span>  term = c;</div><div class="line"><a name="l07646"></a><span class="lineno"> 7646</span>  c = 'Q';</div><div class="line"><a name="l07647"></a><span class="lineno"> 7647</span>  }</div><div class="line"><a name="l07648"></a><span class="lineno"> 7648</span>  else {</div><div class="line"><a name="l07649"></a><span class="lineno"> 7649</span>  term = nextc();</div><div class="line"><a name="l07650"></a><span class="lineno"> 7650</span>  if (rb_enc_isalnum(term, parser->enc) || !parser_isascii()) {</div><div class="line"><a name="l07651"></a><span class="lineno"> 7651</span>  yyerror("unknown type of %string");</div><div class="line"><a name="l07652"></a><span class="lineno"> 7652</span>  return 0;</div><div class="line"><a name="l07653"></a><span class="lineno"> 7653</span>  }</div><div class="line"><a name="l07654"></a><span class="lineno"> 7654</span>  }</div><div class="line"><a name="l07655"></a><span class="lineno"> 7655</span>  if (c == -1 || term == -1) {</div><div class="line"><a name="l07656"></a><span class="lineno"> 7656</span>  compile_error(PARSER_ARG "unterminated quoted string meets end of file");</div><div class="line"><a name="l07657"></a><span class="lineno"> 7657</span>  return 0;</div><div class="line"><a name="l07658"></a><span class="lineno"> 7658</span>  }</div><div class="line"><a name="l07659"></a><span class="lineno"> 7659</span>  paren = term;</div><div class="line"><a name="l07660"></a><span class="lineno"> 7660</span>  if (term == '(') term = ')';</div><div class="line"><a name="l07661"></a><span class="lineno"> 7661</span>  else if (term == '[') term = ']';</div><div class="line"><a name="l07662"></a><span class="lineno"> 7662</span>  else if (term == '{') term = '}';</div><div class="line"><a name="l07663"></a><span class="lineno"> 7663</span>  else if (term == '<') term = '>';</div><div class="line"><a name="l07664"></a><span class="lineno"> 7664</span>  else paren = 0;</div><div class="line"><a name="l07665"></a><span class="lineno"> 7665</span> </div><div class="line"><a name="l07666"></a><span class="lineno"> 7666</span>  switch (c) {</div><div class="line"><a name="l07667"></a><span class="lineno"> 7667</span>  case 'Q':</div><div class="line"><a name="l07668"></a><span class="lineno"> 7668</span>  lex_strterm = NEW_STRTERM(str_dquote, term, paren);</div><div class="line"><a name="l07669"></a><span class="lineno"> 7669</span>  return tSTRING_BEG;</div><div class="line"><a name="l07670"></a><span class="lineno"> 7670</span> </div><div class="line"><a name="l07671"></a><span class="lineno"> 7671</span>  case 'q':</div><div class="line"><a name="l07672"></a><span class="lineno"> 7672</span>  lex_strterm = NEW_STRTERM(str_squote, term, paren);</div><div class="line"><a name="l07673"></a><span class="lineno"> 7673</span>  return tSTRING_BEG;</div><div class="line"><a name="l07674"></a><span class="lineno"> 7674</span> </div><div class="line"><a name="l07675"></a><span class="lineno"> 7675</span>  case 'W':</div><div class="line"><a name="l07676"></a><span class="lineno"> 7676</span>  lex_strterm = NEW_STRTERM(str_dword, term, paren);</div><div class="line"><a name="l07677"></a><span class="lineno"> 7677</span>  do {c = nextc();} while (ISSPACE(c));</div><div class="line"><a name="l07678"></a><span class="lineno"> 7678</span>  pushback(c);</div><div class="line"><a name="l07679"></a><span class="lineno"> 7679</span>  return tWORDS_BEG;</div><div class="line"><a name="l07680"></a><span class="lineno"> 7680</span> </div><div class="line"><a name="l07681"></a><span class="lineno"> 7681</span>  case 'w':</div><div class="line"><a name="l07682"></a><span class="lineno"> 7682</span>  lex_strterm = NEW_STRTERM(str_sword, term, paren);</div><div class="line"><a name="l07683"></a><span class="lineno"> 7683</span>  do {c = nextc();} while (ISSPACE(c));</div><div class="line"><a name="l07684"></a><span class="lineno"> 7684</span>  pushback(c);</div><div class="line"><a name="l07685"></a><span class="lineno"> 7685</span>  return tQWORDS_BEG;</div><div class="line"><a name="l07686"></a><span class="lineno"> 7686</span> </div><div class="line"><a name="l07687"></a><span class="lineno"> 7687</span>  case 'x':</div><div class="line"><a name="l07688"></a><span class="lineno"> 7688</span>  lex_strterm = NEW_STRTERM(str_xquote, term, paren);</div><div class="line"><a name="l07689"></a><span class="lineno"> 7689</span>  return tXSTRING_BEG;</div><div class="line"><a name="l07690"></a><span class="lineno"> 7690</span> </div><div class="line"><a name="l07691"></a><span class="lineno"> 7691</span>  case 'r':</div><div class="line"><a name="l07692"></a><span class="lineno"> 7692</span>  lex_strterm = NEW_STRTERM(str_regexp, term, paren);</div><div class="line"><a name="l07693"></a><span class="lineno"> 7693</span>  return tREGEXP_BEG;</div><div class="line"><a name="l07694"></a><span class="lineno"> 7694</span> </div><div class="line"><a name="l07695"></a><span class="lineno"> 7695</span>  case 's':</div><div class="line"><a name="l07696"></a><span class="lineno"> 7696</span>  lex_strterm = NEW_STRTERM(str_ssym, term, paren);</div><div class="line"><a name="l07697"></a><span class="lineno"> 7697</span>  lex_state = EXPR_FNAME;</div><div class="line"><a name="l07698"></a><span class="lineno"> 7698</span>  return tSYMBEG;</div><div class="line"><a name="l07699"></a><span class="lineno"> 7699</span> </div><div class="line"><a name="l07700"></a><span class="lineno"> 7700</span>  default:</div><div class="line"><a name="l07701"></a><span class="lineno"> 7701</span>  yyerror("unknown type of %string");</div><div class="line"><a name="l07702"></a><span class="lineno"> 7702</span>  return 0;</div><div class="line"><a name="l07703"></a><span class="lineno"> 7703</span>  }</div><div class="line"><a name="l07704"></a><span class="lineno"> 7704</span>  }</div><div class="line"><a name="l07705"></a><span class="lineno"> 7705</span>  if ((c = nextc()) == '=') {</div><div class="line"><a name="l07706"></a><span class="lineno"> 7706</span>  set_yylval_id('%');</div><div class="line"><a name="l07707"></a><span class="lineno"> 7707</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07708"></a><span class="lineno"> 7708</span>  return tOP_ASGN;</div><div class="line"><a name="l07709"></a><span class="lineno"> 7709</span>  }</div><div class="line"><a name="l07710"></a><span class="lineno"> 7710</span>  if (IS_SPCARG(c)) {</div><div class="line"><a name="l07711"></a><span class="lineno"> 7711</span>  goto quotation;</div><div class="line"><a name="l07712"></a><span class="lineno"> 7712</span>  }</div><div class="line"><a name="l07713"></a><span class="lineno"> 7713</span>  switch (lex_state) {</div><div class="line"><a name="l07714"></a><span class="lineno"> 7714</span>  case EXPR_FNAME: case EXPR_DOT:</div><div class="line"><a name="l07715"></a><span class="lineno"> 7715</span>  lex_state = EXPR_ARG; break;</div><div class="line"><a name="l07716"></a><span class="lineno"> 7716</span>  default:</div><div class="line"><a name="l07717"></a><span class="lineno"> 7717</span>  lex_state = EXPR_BEG; break;</div><div class="line"><a name="l07718"></a><span class="lineno"> 7718</span>  }</div><div class="line"><a name="l07719"></a><span class="lineno"> 7719</span>  pushback(c);</div><div class="line"><a name="l07720"></a><span class="lineno"> 7720</span>  warn_balanced("%%", "string literal");</div><div class="line"><a name="l07721"></a><span class="lineno"> 7721</span>  return '%';</div><div class="line"><a name="l07722"></a><span class="lineno"> 7722</span> </div><div class="line"><a name="l07723"></a><span class="lineno"> 7723</span>  case '$':</div><div class="line"><a name="l07724"></a><span class="lineno"> 7724</span>  lex_state = EXPR_END;</div><div class="line"><a name="l07725"></a><span class="lineno"> 7725</span>  newtok();</div><div class="line"><a name="l07726"></a><span class="lineno"> 7726</span>  c = nextc();</div><div class="line"><a name="l07727"></a><span class="lineno"> 7727</span>  switch (c) {</div><div class="line"><a name="l07728"></a><span class="lineno"> 7728</span>  case '_': /* $_: last read line string */</div><div class="line"><a name="l07729"></a><span class="lineno"> 7729</span>  c = nextc();</div><div class="line"><a name="l07730"></a><span class="lineno"> 7730</span>  if (parser_is_identchar()) {</div><div class="line"><a name="l07731"></a><span class="lineno"> 7731</span>  tokadd('$');</div><div class="line"><a name="l07732"></a><span class="lineno"> 7732</span>  tokadd('_');</div><div class="line"><a name="l07733"></a><span class="lineno"> 7733</span>  break;</div><div class="line"><a name="l07734"></a><span class="lineno"> 7734</span>  }</div><div class="line"><a name="l07735"></a><span class="lineno"> 7735</span>  pushback(c);</div><div class="line"><a name="l07736"></a><span class="lineno"> 7736</span>  c = '_';</div><div class="line"><a name="l07737"></a><span class="lineno"> 7737</span>  /* fall through */</div><div class="line"><a name="l07738"></a><span class="lineno"> 7738</span>  case '~': /* $~: match-data */</div><div class="line"><a name="l07739"></a><span class="lineno"> 7739</span>  case '*': /* $*: argv */</div><div class="line"><a name="l07740"></a><span class="lineno"> 7740</span>  case '$': /* $$: pid */</div><div class="line"><a name="l07741"></a><span class="lineno"> 7741</span>  case '?': /* $?: last status */</div><div class="line"><a name="l07742"></a><span class="lineno"> 7742</span>  case '!': /* $!: error string */</div><div class="line"><a name="l07743"></a><span class="lineno"> 7743</span>  case '@': /* $@: error position */</div><div class="line"><a name="l07744"></a><span class="lineno"> 7744</span>  case '/': /* $/: input record separator */</div><div class="line"><a name="l07745"></a><span class="lineno"> 7745</span>  case '\\': /* $\: output record separator */</div><div class="line"><a name="l07746"></a><span class="lineno"> 7746</span>  case ';': /* $;: field separator */</div><div class="line"><a name="l07747"></a><span class="lineno"> 7747</span>  case ',': /* $,: output field separator */</div><div class="line"><a name="l07748"></a><span class="lineno"> 7748</span>  case '.': /* $.: last read line number */</div><div class="line"><a name="l07749"></a><span class="lineno"> 7749</span>  case '=': /* $=: ignorecase */</div><div class="line"><a name="l07750"></a><span class="lineno"> 7750</span>  case ':': /* $:: load path */</div><div class="line"><a name="l07751"></a><span class="lineno"> 7751</span>  case '<': /* $<: reading filename */</div><div class="line"><a name="l07752"></a><span class="lineno"> 7752</span>  case '>': /* $>: default output handle */</div><div class="line"><a name="l07753"></a><span class="lineno"> 7753</span>  case '\"': /* $": already loaded files */</div><div class="line"><a name="l07754"></a><span class="lineno"> 7754</span>  tokadd('$');</div><div class="line"><a name="l07755"></a><span class="lineno"> 7755</span>  tokadd(c);</div><div class="line"><a name="l07756"></a><span class="lineno"> 7756</span>  tokfix();</div><div class="line"><a name="l07757"></a><span class="lineno"> 7757</span>  set_yylval_name(rb_intern(tok()));</div><div class="line"><a name="l07758"></a><span class="lineno"> 7758</span>  return tGVAR;</div><div class="line"><a name="l07759"></a><span class="lineno"> 7759</span> </div><div class="line"><a name="l07760"></a><span class="lineno"> 7760</span>  case '-':</div><div class="line"><a name="l07761"></a><span class="lineno"> 7761</span>  tokadd('$');</div><div class="line"><a name="l07762"></a><span class="lineno"> 7762</span>  tokadd(c);</div><div class="line"><a name="l07763"></a><span class="lineno"> 7763</span>  c = nextc();</div><div class="line"><a name="l07764"></a><span class="lineno"> 7764</span>  if (parser_is_identchar()) {</div><div class="line"><a name="l07765"></a><span class="lineno"> 7765</span>  if (tokadd_mbchar(c) == -1) return 0;</div><div class="line"><a name="l07766"></a><span class="lineno"> 7766</span>  }</div><div class="line"><a name="l07767"></a><span class="lineno"> 7767</span>  else {</div><div class="line"><a name="l07768"></a><span class="lineno"> 7768</span>  pushback(c);</div><div class="line"><a name="l07769"></a><span class="lineno"> 7769</span>  }</div><div class="line"><a name="l07770"></a><span class="lineno"> 7770</span>  gvar:</div><div class="line"><a name="l07771"></a><span class="lineno"> 7771</span>  tokfix();</div><div class="line"><a name="l07772"></a><span class="lineno"> 7772</span>  set_yylval_name(rb_intern(tok()));</div><div class="line"><a name="l07773"></a><span class="lineno"> 7773</span>  return tGVAR;</div><div class="line"><a name="l07774"></a><span class="lineno"> 7774</span> </div><div class="line"><a name="l07775"></a><span class="lineno"> 7775</span>  case '&': /* $&: last match */</div><div class="line"><a name="l07776"></a><span class="lineno"> 7776</span>  case '`': /* $`: string before last match */</div><div class="line"><a name="l07777"></a><span class="lineno"> 7777</span>  case '\'': /* $': string after last match */</div><div class="line"><a name="l07778"></a><span class="lineno"> 7778</span>  case '+': /* $+: string matches last paren. */</div><div class="line"><a name="l07779"></a><span class="lineno"> 7779</span>  if (last_state == EXPR_FNAME) {</div><div class="line"><a name="l07780"></a><span class="lineno"> 7780</span>  tokadd('$');</div><div class="line"><a name="l07781"></a><span class="lineno"> 7781</span>  tokadd(c);</div><div class="line"><a name="l07782"></a><span class="lineno"> 7782</span>  goto gvar;</div><div class="line"><a name="l07783"></a><span class="lineno"> 7783</span>  }</div><div class="line"><a name="l07784"></a><span class="lineno"> 7784</span>  set_yylval_node(NEW_BACK_REF(c));</div><div class="line"><a name="l07785"></a><span class="lineno"> 7785</span>  return tBACK_REF;</div><div class="line"><a name="l07786"></a><span class="lineno"> 7786</span> </div><div class="line"><a name="l07787"></a><span class="lineno"> 7787</span>  case '1': case '2': case '3':</div><div class="line"><a name="l07788"></a><span class="lineno"> 7788</span>  case '4': case '5': case '6':</div><div class="line"><a name="l07789"></a><span class="lineno"> 7789</span>  case '7': case '8': case '9':</div><div class="line"><a name="l07790"></a><span class="lineno"> 7790</span>  tokadd('$');</div><div class="line"><a name="l07791"></a><span class="lineno"> 7791</span>  do {</div><div class="line"><a name="l07792"></a><span class="lineno"> 7792</span>  tokadd(c);</div><div class="line"><a name="l07793"></a><span class="lineno"> 7793</span>  c = nextc();</div><div class="line"><a name="l07794"></a><span class="lineno"> 7794</span>  } while (c != -1 && ISDIGIT(c));</div><div class="line"><a name="l07795"></a><span class="lineno"> 7795</span>  pushback(c);</div><div class="line"><a name="l07796"></a><span class="lineno"> 7796</span>  if (last_state == EXPR_FNAME) goto gvar;</div><div class="line"><a name="l07797"></a><span class="lineno"> 7797</span>  tokfix();</div><div class="line"><a name="l07798"></a><span class="lineno"> 7798</span>  set_yylval_node(NEW_NTH_REF(atoi(tok()+1)));</div><div class="line"><a name="l07799"></a><span class="lineno"> 7799</span>  return tNTH_REF;</div><div class="line"><a name="l07800"></a><span class="lineno"> 7800</span> </div><div class="line"><a name="l07801"></a><span class="lineno"> 7801</span>  default:</div><div class="line"><a name="l07802"></a><span class="lineno"> 7802</span>  if (!parser_is_identchar()) {</div><div class="line"><a name="l07803"></a><span class="lineno"> 7803</span>  pushback(c);</div><div class="line"><a name="l07804"></a><span class="lineno"> 7804</span>  compile_error(PARSER_ARG "`$%c' is not allowed as a global variable name", c);</div><div class="line"><a name="l07805"></a><span class="lineno"> 7805</span>  return 0;</div><div class="line"><a name="l07806"></a><span class="lineno"> 7806</span>  }</div><div class="line"><a name="l07807"></a><span class="lineno"> 7807</span>  case '0':</div><div class="line"><a name="l07808"></a><span class="lineno"> 7808</span>  tokadd('$');</div><div class="line"><a name="l07809"></a><span class="lineno"> 7809</span>  }</div><div class="line"><a name="l07810"></a><span class="lineno"> 7810</span>  break;</div><div class="line"><a name="l07811"></a><span class="lineno"> 7811</span> </div><div class="line"><a name="l07812"></a><span class="lineno"> 7812</span>  case '@':</div><div class="line"><a name="l07813"></a><span class="lineno"> 7813</span>  c = nextc();</div><div class="line"><a name="l07814"></a><span class="lineno"> 7814</span>  newtok();</div><div class="line"><a name="l07815"></a><span class="lineno"> 7815</span>  tokadd('@');</div><div class="line"><a name="l07816"></a><span class="lineno"> 7816</span>  if (c == '@') {</div><div class="line"><a name="l07817"></a><span class="lineno"> 7817</span>  tokadd('@');</div><div class="line"><a name="l07818"></a><span class="lineno"> 7818</span>  c = nextc();</div><div class="line"><a name="l07819"></a><span class="lineno"> 7819</span>  }</div><div class="line"><a name="l07820"></a><span class="lineno"> 7820</span>  if (c != -1 && (ISDIGIT(c) || !parser_is_identchar())) {</div><div class="line"><a name="l07821"></a><span class="lineno"> 7821</span>  pushback(c);</div><div class="line"><a name="l07822"></a><span class="lineno"> 7822</span>  if (tokidx == 1) {</div><div class="line"><a name="l07823"></a><span class="lineno"> 7823</span>  compile_error(PARSER_ARG "`@%c' is not allowed as an instance variable name", c);</div><div class="line"><a name="l07824"></a><span class="lineno"> 7824</span>  }</div><div class="line"><a name="l07825"></a><span class="lineno"> 7825</span>  else {</div><div class="line"><a name="l07826"></a><span class="lineno"> 7826</span>  compile_error(PARSER_ARG "`@@%c' is not allowed as a class variable name", c);</div><div class="line"><a name="l07827"></a><span class="lineno"> 7827</span>  }</div><div class="line"><a name="l07828"></a><span class="lineno"> 7828</span>  return 0;</div><div class="line"><a name="l07829"></a><span class="lineno"> 7829</span>  }</div><div class="line"><a name="l07830"></a><span class="lineno"> 7830</span>  break;</div><div class="line"><a name="l07831"></a><span class="lineno"> 7831</span> </div><div class="line"><a name="l07832"></a><span class="lineno"> 7832</span>  case '_':</div><div class="line"><a name="l07833"></a><span class="lineno"> 7833</span>  if (was_bol() && whole_match_p("__END__", 7, 0)) {</div><div class="line"><a name="l07834"></a><span class="lineno"> 7834</span>  ruby__end__seen = 1;</div><div class="line"><a name="l07835"></a><span class="lineno"> 7835</span>  parser->eofp = Qtrue;</div><div class="line"><a name="l07836"></a><span class="lineno"> 7836</span> #ifndef RIPPER</div><div class="line"><a name="l07837"></a><span class="lineno"> 7837</span>  return -1;</div><div class="line"><a name="l07838"></a><span class="lineno"> 7838</span> #else</div><div class="line"><a name="l07839"></a><span class="lineno"> 7839</span>  lex_goto_eol(parser);</div><div class="line"><a name="l07840"></a><span class="lineno"> 7840</span>  ripper_dispatch_scan_event(parser, k__END__);</div><div class="line"><a name="l07841"></a><span class="lineno"> 7841</span>  return 0;</div><div class="line"><a name="l07842"></a><span class="lineno"> 7842</span> #endif</div><div class="line"><a name="l07843"></a><span class="lineno"> 7843</span>  }</div><div class="line"><a name="l07844"></a><span class="lineno"> 7844</span>  newtok();</div><div class="line"><a name="l07845"></a><span class="lineno"> 7845</span>  break;</div><div class="line"><a name="l07846"></a><span class="lineno"> 7846</span> </div><div class="line"><a name="l07847"></a><span class="lineno"> 7847</span>  default:</div><div class="line"><a name="l07848"></a><span class="lineno"> 7848</span>  if (!parser_is_identchar()) {</div><div class="line"><a name="l07849"></a><span class="lineno"> 7849</span>  rb_compile_error(PARSER_ARG "Invalid char `\\x%02X' in expression", c);</div><div class="line"><a name="l07850"></a><span class="lineno"> 7850</span>  goto retry;</div><div class="line"><a name="l07851"></a><span class="lineno"> 7851</span>  }</div><div class="line"><a name="l07852"></a><span class="lineno"> 7852</span> </div><div class="line"><a name="l07853"></a><span class="lineno"> 7853</span>  newtok();</div><div class="line"><a name="l07854"></a><span class="lineno"> 7854</span>  break;</div><div class="line"><a name="l07855"></a><span class="lineno"> 7855</span>  }</div><div class="line"><a name="l07856"></a><span class="lineno"> 7856</span> </div><div class="line"><a name="l07857"></a><span class="lineno"> 7857</span>  mb = ENC_CODERANGE_7BIT;</div><div class="line"><a name="l07858"></a><span class="lineno"> 7858</span>  do {</div><div class="line"><a name="l07859"></a><span class="lineno"> 7859</span>  if (!ISASCII(c)) mb = ENC_CODERANGE_UNKNOWN;</div><div class="line"><a name="l07860"></a><span class="lineno"> 7860</span>  if (tokadd_mbchar(c) == -1) return 0;</div><div class="line"><a name="l07861"></a><span class="lineno"> 7861</span>  c = nextc();</div><div class="line"><a name="l07862"></a><span class="lineno"> 7862</span>  } while (parser_is_identchar());</div><div class="line"><a name="l07863"></a><span class="lineno"> 7863</span>  switch (tok()[0]) {</div><div class="line"><a name="l07864"></a><span class="lineno"> 7864</span>  case '@': case '$':</div><div class="line"><a name="l07865"></a><span class="lineno"> 7865</span>  pushback(c);</div><div class="line"><a name="l07866"></a><span class="lineno"> 7866</span>  break;</div><div class="line"><a name="l07867"></a><span class="lineno"> 7867</span>  default:</div><div class="line"><a name="l07868"></a><span class="lineno"> 7868</span>  if ((c == '!' || c == '?') && !peek('=')) {</div><div class="line"><a name="l07869"></a><span class="lineno"> 7869</span>  tokadd(c);</div><div class="line"><a name="l07870"></a><span class="lineno"> 7870</span>  }</div><div class="line"><a name="l07871"></a><span class="lineno"> 7871</span>  else {</div><div class="line"><a name="l07872"></a><span class="lineno"> 7872</span>  pushback(c);</div><div class="line"><a name="l07873"></a><span class="lineno"> 7873</span>  }</div><div class="line"><a name="l07874"></a><span class="lineno"> 7874</span>  }</div><div class="line"><a name="l07875"></a><span class="lineno"> 7875</span>  tokfix();</div><div class="line"><a name="l07876"></a><span class="lineno"> 7876</span> </div><div class="line"><a name="l07877"></a><span class="lineno"> 7877</span>  {</div><div class="line"><a name="l07878"></a><span class="lineno"> 7878</span>  int result = 0;</div><div class="line"><a name="l07879"></a><span class="lineno"> 7879</span> </div><div class="line"><a name="l07880"></a><span class="lineno"> 7880</span>  last_state = lex_state;</div><div class="line"><a name="l07881"></a><span class="lineno"> 7881</span>  switch (tok()[0]) {</div><div class="line"><a name="l07882"></a><span class="lineno"> 7882</span>  case '$':</div><div class="line"><a name="l07883"></a><span class="lineno"> 7883</span>  lex_state = EXPR_END;</div><div class="line"><a name="l07884"></a><span class="lineno"> 7884</span>  result = tGVAR;</div><div class="line"><a name="l07885"></a><span class="lineno"> 7885</span>  break;</div><div class="line"><a name="l07886"></a><span class="lineno"> 7886</span>  case '@':</div><div class="line"><a name="l07887"></a><span class="lineno"> 7887</span>  lex_state = EXPR_END;</div><div class="line"><a name="l07888"></a><span class="lineno"> 7888</span>  if (tok()[1] == '@')</div><div class="line"><a name="l07889"></a><span class="lineno"> 7889</span>  result = tCVAR;</div><div class="line"><a name="l07890"></a><span class="lineno"> 7890</span>  else</div><div class="line"><a name="l07891"></a><span class="lineno"> 7891</span>  result = tIVAR;</div><div class="line"><a name="l07892"></a><span class="lineno"> 7892</span>  break;</div><div class="line"><a name="l07893"></a><span class="lineno"> 7893</span> </div><div class="line"><a name="l07894"></a><span class="lineno"> 7894</span>  default:</div><div class="line"><a name="l07895"></a><span class="lineno"> 7895</span>  if (toklast() == '!' || toklast() == '?') {</div><div class="line"><a name="l07896"></a><span class="lineno"> 7896</span>  result = tFID;</div><div class="line"><a name="l07897"></a><span class="lineno"> 7897</span>  }</div><div class="line"><a name="l07898"></a><span class="lineno"> 7898</span>  else {</div><div class="line"><a name="l07899"></a><span class="lineno"> 7899</span>  if (lex_state == EXPR_FNAME) {</div><div class="line"><a name="l07900"></a><span class="lineno"> 7900</span>  if ((c = nextc()) == '=' && !peek('~') && !peek('>') &&</div><div class="line"><a name="l07901"></a><span class="lineno"> 7901</span>  (!peek('=') || (peek_n('>', 1)))) {</div><div class="line"><a name="l07902"></a><span class="lineno"> 7902</span>  result = tIDENTIFIER;</div><div class="line"><a name="l07903"></a><span class="lineno"> 7903</span>  tokadd(c);</div><div class="line"><a name="l07904"></a><span class="lineno"> 7904</span>  tokfix();</div><div class="line"><a name="l07905"></a><span class="lineno"> 7905</span>  }</div><div class="line"><a name="l07906"></a><span class="lineno"> 7906</span>  else {</div><div class="line"><a name="l07907"></a><span class="lineno"> 7907</span>  pushback(c);</div><div class="line"><a name="l07908"></a><span class="lineno"> 7908</span>  }</div><div class="line"><a name="l07909"></a><span class="lineno"> 7909</span>  }</div><div class="line"><a name="l07910"></a><span class="lineno"> 7910</span>  if (result == 0 && ISUPPER(tok()[0])) {</div><div class="line"><a name="l07911"></a><span class="lineno"> 7911</span>  result = tCONSTANT;</div><div class="line"><a name="l07912"></a><span class="lineno"> 7912</span>  }</div><div class="line"><a name="l07913"></a><span class="lineno"> 7913</span>  else {</div><div class="line"><a name="l07914"></a><span class="lineno"> 7914</span>  result = tIDENTIFIER;</div><div class="line"><a name="l07915"></a><span class="lineno"> 7915</span>  }</div><div class="line"><a name="l07916"></a><span class="lineno"> 7916</span>  }</div><div class="line"><a name="l07917"></a><span class="lineno"> 7917</span> </div><div class="line"><a name="l07918"></a><span class="lineno"> 7918</span>  if (IS_LABEL_POSSIBLE()) {</div><div class="line"><a name="l07919"></a><span class="lineno"> 7919</span>  if (IS_LABEL_SUFFIX(0)) {</div><div class="line"><a name="l07920"></a><span class="lineno"> 7920</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07921"></a><span class="lineno"> 7921</span>  nextc();</div><div class="line"><a name="l07922"></a><span class="lineno"> 7922</span>  set_yylval_name(TOK_INTERN(!ENC_SINGLE(mb)));</div><div class="line"><a name="l07923"></a><span class="lineno"> 7923</span>  return tLABEL;</div><div class="line"><a name="l07924"></a><span class="lineno"> 7924</span>  }</div><div class="line"><a name="l07925"></a><span class="lineno"> 7925</span>  }</div><div class="line"><a name="l07926"></a><span class="lineno"> 7926</span>  if (mb == ENC_CODERANGE_7BIT && lex_state != EXPR_DOT) {</div><div class="line"><a name="l07927"></a><span class="lineno"> 7927</span>  const struct kwtable *kw;</div><div class="line"><a name="l07928"></a><span class="lineno"> 7928</span> </div><div class="line"><a name="l07929"></a><span class="lineno"> 7929</span>  /* See if it is a reserved word. */</div><div class="line"><a name="l07930"></a><span class="lineno"> 7930</span>  kw = rb_reserved_word(tok(), toklen());</div><div class="line"><a name="l07931"></a><span class="lineno"> 7931</span>  if (kw) {</div><div class="line"><a name="l07932"></a><span class="lineno"> 7932</span>  enum lex_state_e state = lex_state;</div><div class="line"><a name="l07933"></a><span class="lineno"> 7933</span>  lex_state = kw->state;</div><div class="line"><a name="l07934"></a><span class="lineno"> 7934</span>  if (state == EXPR_FNAME) {</div><div class="line"><a name="l07935"></a><span class="lineno"> 7935</span>  set_yylval_name(rb_intern(kw->name));</div><div class="line"><a name="l07936"></a><span class="lineno"> 7936</span>  return kw->id[0];</div><div class="line"><a name="l07937"></a><span class="lineno"> 7937</span>  }</div><div class="line"><a name="l07938"></a><span class="lineno"> 7938</span>  if (kw->id[0] == keyword_do) {</div><div class="line"><a name="l07939"></a><span class="lineno"> 7939</span>  command_start = TRUE;</div><div class="line"><a name="l07940"></a><span class="lineno"> 7940</span>  if (lpar_beg && lpar_beg == paren_nest) {</div><div class="line"><a name="l07941"></a><span class="lineno"> 7941</span>  lpar_beg = 0;</div><div class="line"><a name="l07942"></a><span class="lineno"> 7942</span>  --paren_nest;</div><div class="line"><a name="l07943"></a><span class="lineno"> 7943</span>  return keyword_do_LAMBDA;</div><div class="line"><a name="l07944"></a><span class="lineno"> 7944</span>  }</div><div class="line"><a name="l07945"></a><span class="lineno"> 7945</span>  if (COND_P()) return keyword_do_cond;</div><div class="line"><a name="l07946"></a><span class="lineno"> 7946</span>  if (CMDARG_P() && state != EXPR_CMDARG)</div><div class="line"><a name="l07947"></a><span class="lineno"> 7947</span>  return keyword_do_block;</div><div class="line"><a name="l07948"></a><span class="lineno"> 7948</span>  if (state == EXPR_ENDARG || state == EXPR_BEG)</div><div class="line"><a name="l07949"></a><span class="lineno"> 7949</span>  return keyword_do_block;</div><div class="line"><a name="l07950"></a><span class="lineno"> 7950</span>  return keyword_do;</div><div class="line"><a name="l07951"></a><span class="lineno"> 7951</span>  }</div><div class="line"><a name="l07952"></a><span class="lineno"> 7952</span>  if (state == EXPR_BEG || state == EXPR_VALUE)</div><div class="line"><a name="l07953"></a><span class="lineno"> 7953</span>  return kw->id[0];</div><div class="line"><a name="l07954"></a><span class="lineno"> 7954</span>  else {</div><div class="line"><a name="l07955"></a><span class="lineno"> 7955</span>  if (kw->id[0] != kw->id[1])</div><div class="line"><a name="l07956"></a><span class="lineno"> 7956</span>  lex_state = EXPR_BEG;</div><div class="line"><a name="l07957"></a><span class="lineno"> 7957</span>  return kw->id[1];</div><div class="line"><a name="l07958"></a><span class="lineno"> 7958</span>  }</div><div class="line"><a name="l07959"></a><span class="lineno"> 7959</span>  }</div><div class="line"><a name="l07960"></a><span class="lineno"> 7960</span>  }</div><div class="line"><a name="l07961"></a><span class="lineno"> 7961</span> </div><div class="line"><a name="l07962"></a><span class="lineno"> 7962</span>  if (IS_BEG() ||</div><div class="line"><a name="l07963"></a><span class="lineno"> 7963</span>  lex_state == EXPR_DOT ||</div><div class="line"><a name="l07964"></a><span class="lineno"> 7964</span>  IS_ARG()) {</div><div class="line"><a name="l07965"></a><span class="lineno"> 7965</span>  if (cmd_state) {</div><div class="line"><a name="l07966"></a><span class="lineno"> 7966</span>  lex_state = EXPR_CMDARG;</div><div class="line"><a name="l07967"></a><span class="lineno"> 7967</span>  }</div><div class="line"><a name="l07968"></a><span class="lineno"> 7968</span>  else {</div><div class="line"><a name="l07969"></a><span class="lineno"> 7969</span>  lex_state = EXPR_ARG;</div><div class="line"><a name="l07970"></a><span class="lineno"> 7970</span>  }</div><div class="line"><a name="l07971"></a><span class="lineno"> 7971</span>  }</div><div class="line"><a name="l07972"></a><span class="lineno"> 7972</span>  else if (lex_state == EXPR_FNAME) {</div><div class="line"><a name="l07973"></a><span class="lineno"> 7973</span>  lex_state = EXPR_ENDFN;</div><div class="line"><a name="l07974"></a><span class="lineno"> 7974</span>  }</div><div class="line"><a name="l07975"></a><span class="lineno"> 7975</span>  else {</div><div class="line"><a name="l07976"></a><span class="lineno"> 7976</span>  lex_state = EXPR_END;</div><div class="line"><a name="l07977"></a><span class="lineno"> 7977</span>  }</div><div class="line"><a name="l07978"></a><span class="lineno"> 7978</span>  }</div><div class="line"><a name="l07979"></a><span class="lineno"> 7979</span>  {</div><div class="line"><a name="l07980"></a><span class="lineno"> 7980</span>  ID ident = TOK_INTERN(!ENC_SINGLE(mb));</div><div class="line"><a name="l07981"></a><span class="lineno"> 7981</span> </div><div class="line"><a name="l07982"></a><span class="lineno"> 7982</span>  set_yylval_name(ident);</div><div class="line"><a name="l07983"></a><span class="lineno"> 7983</span>  if (last_state != EXPR_DOT && last_state != EXPR_FNAME &&</div><div class="line"><a name="l07984"></a><span class="lineno"> 7984</span>  is_local_id(ident) && lvar_defined(ident)) {</div><div class="line"><a name="l07985"></a><span class="lineno"> 7985</span>  lex_state = EXPR_END;</div><div class="line"><a name="l07986"></a><span class="lineno"> 7986</span>  }</div><div class="line"><a name="l07987"></a><span class="lineno"> 7987</span>  }</div><div class="line"><a name="l07988"></a><span class="lineno"> 7988</span>  return result;</div><div class="line"><a name="l07989"></a><span class="lineno"> 7989</span>  }</div><div class="line"><a name="l07990"></a><span class="lineno"> 7990</span> }</div><div class="line"><a name="l07991"></a><span class="lineno"> 7991</span> </div><div class="line"><a name="l07992"></a><span class="lineno"> 7992</span> #if YYPURE</div><div class="line"><a name="l07993"></a><span class="lineno"> 7993</span> static int</div><div class="line"><a name="l07994"></a><span class="lineno"> 7994</span> yylex(void *lval, void *p)</div><div class="line"><a name="l07995"></a><span class="lineno"> 7995</span> #else</div><div class="line"><a name="l07996"></a><span class="lineno"> 7996</span> yylex(void *p)</div><div class="line"><a name="l07997"></a><span class="lineno"> 7997</span> #endif</div><div class="line"><a name="l07998"></a><span class="lineno"> 7998</span> {</div><div class="line"><a name="l07999"></a><span class="lineno"> 7999</span>  struct parser_params *parser = (struct parser_params*)p;</div><div class="line"><a name="l08000"></a><span class="lineno"> 8000</span>  int t;</div><div class="line"><a name="l08001"></a><span class="lineno"> 8001</span> </div><div class="line"><a name="l08002"></a><span class="lineno"> 8002</span> #if YYPURE</div><div class="line"><a name="l08003"></a><span class="lineno"> 8003</span>  parser->parser_yylval = lval;</div><div class="line"><a name="l08004"></a><span class="lineno"> 8004</span>  parser->parser_yylval->val = Qundef;</div><div class="line"><a name="l08005"></a><span class="lineno"> 8005</span> #endif</div><div class="line"><a name="l08006"></a><span class="lineno"> 8006</span>  t = parser_yylex(parser);</div><div class="line"><a name="l08007"></a><span class="lineno"> 8007</span> #ifdef RIPPER</div><div class="line"><a name="l08008"></a><span class="lineno"> 8008</span>  if (!NIL_P(parser->delayed)) {</div><div class="line"><a name="l08009"></a><span class="lineno"> 8009</span>  ripper_dispatch_delayed_token(parser, t);</div><div class="line"><a name="l08010"></a><span class="lineno"> 8010</span>  return t;</div><div class="line"><a name="l08011"></a><span class="lineno"> 8011</span>  }</div><div class="line"><a name="l08012"></a><span class="lineno"> 8012</span>  if (t != 0)</div><div class="line"><a name="l08013"></a><span class="lineno"> 8013</span>  ripper_dispatch_scan_event(parser, t);</div><div class="line"><a name="l08014"></a><span class="lineno"> 8014</span> #endif</div><div class="line"><a name="l08015"></a><span class="lineno"> 8015</span> </div><div class="line"><a name="l08016"></a><span class="lineno"> 8016</span>  return t;</div><div class="line"><a name="l08017"></a><span class="lineno"> 8017</span> }</div><div class="line"><a name="l08018"></a><span class="lineno"> 8018</span> </div><div class="line"><a name="l08019"></a><span class="lineno"> 8019</span> #ifndef RIPPER</div><div class="line"><a name="l08020"></a><span class="lineno"> 8020</span> static NODE*</div><div class="line"><a name="l08021"></a><span class="lineno"> 8021</span> node_newnode(struct parser_params *parser, enum node_type type, VALUE a0, VALUE a1, VALUE a2)</div><div class="line"><a name="l08022"></a><span class="lineno"> 8022</span> {</div><div class="line"><a name="l08023"></a><span class="lineno"> 8023</span>  NODE *n = (rb_node_newnode)(type, a0, a1, a2);</div><div class="line"><a name="l08024"></a><span class="lineno"> 8024</span>  nd_set_line(n, ruby_sourceline);</div><div class="line"><a name="l08025"></a><span class="lineno"> 8025</span>  return n;</div><div class="line"><a name="l08026"></a><span class="lineno"> 8026</span> }</div><div class="line"><a name="l08027"></a><span class="lineno"> 8027</span> </div><div class="line"><a name="l08028"></a><span class="lineno"> 8028</span> enum node_type</div><div class="line"><a name="l08029"></a><span class="lineno"> 8029</span> nodetype(NODE *node) /* for debug */</div><div class="line"><a name="l08030"></a><span class="lineno"> 8030</span> {</div><div class="line"><a name="l08031"></a><span class="lineno"> 8031</span>  return (enum node_type)nd_type(node);</div><div class="line"><a name="l08032"></a><span class="lineno"> 8032</span> }</div><div class="line"><a name="l08033"></a><span class="lineno"> 8033</span> </div><div class="line"><a name="l08034"></a><span class="lineno"> 8034</span> int</div><div class="line"><a name="l08035"></a><span class="lineno"> 8035</span> nodeline(NODE *node)</div><div class="line"><a name="l08036"></a><span class="lineno"> 8036</span> {</div><div class="line"><a name="l08037"></a><span class="lineno"> 8037</span>  return nd_line(node);</div><div class="line"><a name="l08038"></a><span class="lineno"> 8038</span> }</div><div class="line"><a name="l08039"></a><span class="lineno"> 8039</span> </div><div class="line"><a name="l08040"></a><span class="lineno"> 8040</span> static NODE*</div><div class="line"><a name="l08041"></a><span class="lineno"> 8041</span> newline_node(NODE *node)</div><div class="line"><a name="l08042"></a><span class="lineno"> 8042</span> {</div><div class="line"><a name="l08043"></a><span class="lineno"> 8043</span>  if (node) {</div><div class="line"><a name="l08044"></a><span class="lineno"> 8044</span>  node = remove_begin(node);</div><div class="line"><a name="l08045"></a><span class="lineno"> 8045</span>  node->flags |= NODE_FL_NEWLINE;</div><div class="line"><a name="l08046"></a><span class="lineno"> 8046</span>  }</div><div class="line"><a name="l08047"></a><span class="lineno"> 8047</span>  return node;</div><div class="line"><a name="l08048"></a><span class="lineno"> 8048</span> }</div><div class="line"><a name="l08049"></a><span class="lineno"> 8049</span> </div><div class="line"><a name="l08050"></a><span class="lineno"> 8050</span> static void</div><div class="line"><a name="l08051"></a><span class="lineno"> 8051</span> fixpos(NODE *node, NODE *orig)</div><div class="line"><a name="l08052"></a><span class="lineno"> 8052</span> {</div><div class="line"><a name="l08053"></a><span class="lineno"> 8053</span>  if (!node) return;</div><div class="line"><a name="l08054"></a><span class="lineno"> 8054</span>  if (!orig) return;</div><div class="line"><a name="l08055"></a><span class="lineno"> 8055</span>  if (orig == (NODE*)1) return;</div><div class="line"><a name="l08056"></a><span class="lineno"> 8056</span>  nd_set_line(node, nd_line(orig));</div><div class="line"><a name="l08057"></a><span class="lineno"> 8057</span> }</div><div class="line"><a name="l08058"></a><span class="lineno"> 8058</span> </div><div class="line"><a name="l08059"></a><span class="lineno"> 8059</span> static void</div><div class="line"><a name="l08060"></a><span class="lineno"> 8060</span> parser_warning(struct parser_params *parser, NODE *node, const char *mesg)</div><div class="line"><a name="l08061"></a><span class="lineno"> 8061</span> {</div><div class="line"><a name="l08062"></a><span class="lineno"> 8062</span>  rb_compile_warning(ruby_sourcefile, nd_line(node), "%s", mesg);</div><div class="line"><a name="l08063"></a><span class="lineno"> 8063</span> }</div><div class="line"><a name="l08064"></a><span class="lineno"> 8064</span> #define parser_warning(node, mesg) parser_warning(parser, (node), (mesg))</div><div class="line"><a name="l08065"></a><span class="lineno"> 8065</span> </div><div class="line"><a name="l08066"></a><span class="lineno"> 8066</span> static void</div><div class="line"><a name="l08067"></a><span class="lineno"> 8067</span> parser_warn(struct parser_params *parser, NODE *node, const char *mesg)</div><div class="line"><a name="l08068"></a><span class="lineno"> 8068</span> {</div><div class="line"><a name="l08069"></a><span class="lineno"> 8069</span>  rb_compile_warn(ruby_sourcefile, nd_line(node), "%s", mesg);</div><div class="line"><a name="l08070"></a><span class="lineno"> 8070</span> }</div><div class="line"><a name="l08071"></a><span class="lineno"> 8071</span> #define parser_warn(node, mesg) parser_warn(parser, (node), (mesg))</div><div class="line"><a name="l08072"></a><span class="lineno"> 8072</span> </div><div class="line"><a name="l08073"></a><span class="lineno"> 8073</span> static NODE*</div><div class="line"><a name="l08074"></a><span class="lineno"> 8074</span> block_append_gen(struct parser_params *parser, NODE *head, NODE *tail)</div><div class="line"><a name="l08075"></a><span class="lineno"> 8075</span> {</div><div class="line"><a name="l08076"></a><span class="lineno"> 8076</span>  NODE *end, *h = head, *nd;</div><div class="line"><a name="l08077"></a><span class="lineno"> 8077</span> </div><div class="line"><a name="l08078"></a><span class="lineno"> 8078</span>  if (tail == 0) return head;</div><div class="line"><a name="l08079"></a><span class="lineno"> 8079</span> </div><div class="line"><a name="l08080"></a><span class="lineno"> 8080</span>  if (h == 0) return tail;</div><div class="line"><a name="l08081"></a><span class="lineno"> 8081</span>  switch (nd_type(h)) {</div><div class="line"><a name="l08082"></a><span class="lineno"> 8082</span>  case NODE_LIT:</div><div class="line"><a name="l08083"></a><span class="lineno"> 8083</span>  case NODE_STR:</div><div class="line"><a name="l08084"></a><span class="lineno"> 8084</span>  case NODE_SELF:</div><div class="line"><a name="l08085"></a><span class="lineno"> 8085</span>  case NODE_TRUE:</div><div class="line"><a name="l08086"></a><span class="lineno"> 8086</span>  case NODE_FALSE:</div><div class="line"><a name="l08087"></a><span class="lineno"> 8087</span>  case NODE_NIL:</div><div class="line"><a name="l08088"></a><span class="lineno"> 8088</span>  parser_warning(h, "unused literal ignored");</div><div class="line"><a name="l08089"></a><span class="lineno"> 8089</span>  return tail;</div><div class="line"><a name="l08090"></a><span class="lineno"> 8090</span>  default:</div><div class="line"><a name="l08091"></a><span class="lineno"> 8091</span>  h = end = NEW_BLOCK(head);</div><div class="line"><a name="l08092"></a><span class="lineno"> 8092</span>  end->nd_end = end;</div><div class="line"><a name="l08093"></a><span class="lineno"> 8093</span>  fixpos(end, head);</div><div class="line"><a name="l08094"></a><span class="lineno"> 8094</span>  head = end;</div><div class="line"><a name="l08095"></a><span class="lineno"> 8095</span>  break;</div><div class="line"><a name="l08096"></a><span class="lineno"> 8096</span>  case NODE_BLOCK:</div><div class="line"><a name="l08097"></a><span class="lineno"> 8097</span>  end = h->nd_end;</div><div class="line"><a name="l08098"></a><span class="lineno"> 8098</span>  break;</div><div class="line"><a name="l08099"></a><span class="lineno"> 8099</span>  }</div><div class="line"><a name="l08100"></a><span class="lineno"> 8100</span> </div><div class="line"><a name="l08101"></a><span class="lineno"> 8101</span>  nd = end->nd_head;</div><div class="line"><a name="l08102"></a><span class="lineno"> 8102</span>  switch (nd_type(nd)) {</div><div class="line"><a name="l08103"></a><span class="lineno"> 8103</span>  case NODE_RETURN:</div><div class="line"><a name="l08104"></a><span class="lineno"> 8104</span>  case NODE_BREAK:</div><div class="line"><a name="l08105"></a><span class="lineno"> 8105</span>  case NODE_NEXT:</div><div class="line"><a name="l08106"></a><span class="lineno"> 8106</span>  case NODE_REDO:</div><div class="line"><a name="l08107"></a><span class="lineno"> 8107</span>  case NODE_RETRY:</div><div class="line"><a name="l08108"></a><span class="lineno"> 8108</span>  if (RTEST(ruby_verbose)) {</div><div class="line"><a name="l08109"></a><span class="lineno"> 8109</span>  parser_warning(nd, "statement not reached");</div><div class="line"><a name="l08110"></a><span class="lineno"> 8110</span>  }</div><div class="line"><a name="l08111"></a><span class="lineno"> 8111</span>  break;</div><div class="line"><a name="l08112"></a><span class="lineno"> 8112</span> </div><div class="line"><a name="l08113"></a><span class="lineno"> 8113</span>  default:</div><div class="line"><a name="l08114"></a><span class="lineno"> 8114</span>  break;</div><div class="line"><a name="l08115"></a><span class="lineno"> 8115</span>  }</div><div class="line"><a name="l08116"></a><span class="lineno"> 8116</span> </div><div class="line"><a name="l08117"></a><span class="lineno"> 8117</span>  if (nd_type(tail) != NODE_BLOCK) {</div><div class="line"><a name="l08118"></a><span class="lineno"> 8118</span>  tail = NEW_BLOCK(tail);</div><div class="line"><a name="l08119"></a><span class="lineno"> 8119</span>  tail->nd_end = tail;</div><div class="line"><a name="l08120"></a><span class="lineno"> 8120</span>  }</div><div class="line"><a name="l08121"></a><span class="lineno"> 8121</span>  end->nd_next = tail;</div><div class="line"><a name="l08122"></a><span class="lineno"> 8122</span>  h->nd_end = tail->nd_end;</div><div class="line"><a name="l08123"></a><span class="lineno"> 8123</span>  return head;</div><div class="line"><a name="l08124"></a><span class="lineno"> 8124</span> }</div><div class="line"><a name="l08125"></a><span class="lineno"> 8125</span> </div><div class="line"><a name="l08126"></a><span class="lineno"> 8126</span> /* append item to the list */</div><div class="line"><a name="l08127"></a><span class="lineno"> 8127</span> static NODE*</div><div class="line"><a name="l08128"></a><span class="lineno"> 8128</span> list_append_gen(struct parser_params *parser, NODE *list, NODE *item)</div><div class="line"><a name="l08129"></a><span class="lineno"> 8129</span> {</div><div class="line"><a name="l08130"></a><span class="lineno"> 8130</span>  NODE *last;</div><div class="line"><a name="l08131"></a><span class="lineno"> 8131</span> </div><div class="line"><a name="l08132"></a><span class="lineno"> 8132</span>  if (list == 0) return NEW_LIST(item);</div><div class="line"><a name="l08133"></a><span class="lineno"> 8133</span>  if (list->nd_next) {</div><div class="line"><a name="l08134"></a><span class="lineno"> 8134</span>  last = list->nd_next->nd_end;</div><div class="line"><a name="l08135"></a><span class="lineno"> 8135</span>  }</div><div class="line"><a name="l08136"></a><span class="lineno"> 8136</span>  else {</div><div class="line"><a name="l08137"></a><span class="lineno"> 8137</span>  last = list;</div><div class="line"><a name="l08138"></a><span class="lineno"> 8138</span>  }</div><div class="line"><a name="l08139"></a><span class="lineno"> 8139</span> </div><div class="line"><a name="l08140"></a><span class="lineno"> 8140</span>  list->nd_alen += 1;</div><div class="line"><a name="l08141"></a><span class="lineno"> 8141</span>  last->nd_next = NEW_LIST(item);</div><div class="line"><a name="l08142"></a><span class="lineno"> 8142</span>  list->nd_next->nd_end = last->nd_next;</div><div class="line"><a name="l08143"></a><span class="lineno"> 8143</span>  return list;</div><div class="line"><a name="l08144"></a><span class="lineno"> 8144</span> }</div><div class="line"><a name="l08145"></a><span class="lineno"> 8145</span> </div><div class="line"><a name="l08146"></a><span class="lineno"> 8146</span> /* concat two lists */</div><div class="line"><a name="l08147"></a><span class="lineno"> 8147</span> static NODE*</div><div class="line"><a name="l08148"></a><span class="lineno"> 8148</span> list_concat_gen(struct parser_params *parser, NODE *head, NODE *tail)</div><div class="line"><a name="l08149"></a><span class="lineno"> 8149</span> {</div><div class="line"><a name="l08150"></a><span class="lineno"> 8150</span>  NODE *last;</div><div class="line"><a name="l08151"></a><span class="lineno"> 8151</span> </div><div class="line"><a name="l08152"></a><span class="lineno"> 8152</span>  if (head->nd_next) {</div><div class="line"><a name="l08153"></a><span class="lineno"> 8153</span>  last = head->nd_next->nd_end;</div><div class="line"><a name="l08154"></a><span class="lineno"> 8154</span>  }</div><div class="line"><a name="l08155"></a><span class="lineno"> 8155</span>  else {</div><div class="line"><a name="l08156"></a><span class="lineno"> 8156</span>  last = head;</div><div class="line"><a name="l08157"></a><span class="lineno"> 8157</span>  }</div><div class="line"><a name="l08158"></a><span class="lineno"> 8158</span> </div><div class="line"><a name="l08159"></a><span class="lineno"> 8159</span>  head->nd_alen += tail->nd_alen;</div><div class="line"><a name="l08160"></a><span class="lineno"> 8160</span>  last->nd_next = tail;</div><div class="line"><a name="l08161"></a><span class="lineno"> 8161</span>  if (tail->nd_next) {</div><div class="line"><a name="l08162"></a><span class="lineno"> 8162</span>  head->nd_next->nd_end = tail->nd_next->nd_end;</div><div class="line"><a name="l08163"></a><span class="lineno"> 8163</span>  }</div><div class="line"><a name="l08164"></a><span class="lineno"> 8164</span>  else {</div><div class="line"><a name="l08165"></a><span class="lineno"> 8165</span>  head->nd_next->nd_end = tail;</div><div class="line"><a name="l08166"></a><span class="lineno"> 8166</span>  }</div><div class="line"><a name="l08167"></a><span class="lineno"> 8167</span> </div><div class="line"><a name="l08168"></a><span class="lineno"> 8168</span>  return head;</div><div class="line"><a name="l08169"></a><span class="lineno"> 8169</span> }</div><div class="line"><a name="l08170"></a><span class="lineno"> 8170</span> </div><div class="line"><a name="l08171"></a><span class="lineno"> 8171</span> static int</div><div class="line"><a name="l08172"></a><span class="lineno"> 8172</span> literal_concat0(struct parser_params *parser, VALUE head, VALUE tail)</div><div class="line"><a name="l08173"></a><span class="lineno"> 8173</span> {</div><div class="line"><a name="l08174"></a><span class="lineno"> 8174</span>  if (NIL_P(tail)) return 1;</div><div class="line"><a name="l08175"></a><span class="lineno"> 8175</span>  if (!rb_enc_compatible(head, tail)) {</div><div class="line"><a name="l08176"></a><span class="lineno"> 8176</span>  compile_error(PARSER_ARG "string literal encodings differ (%s / %s)",</div><div class="line"><a name="l08177"></a><span class="lineno"> 8177</span>  rb_enc_name(rb_enc_get(head)),</div><div class="line"><a name="l08178"></a><span class="lineno"> 8178</span>  rb_enc_name(rb_enc_get(tail)));</div><div class="line"><a name="l08179"></a><span class="lineno"> 8179</span>  rb_str_resize(head, 0);</div><div class="line"><a name="l08180"></a><span class="lineno"> 8180</span>  rb_str_resize(tail, 0);</div><div class="line"><a name="l08181"></a><span class="lineno"> 8181</span>  return 0;</div><div class="line"><a name="l08182"></a><span class="lineno"> 8182</span>  }</div><div class="line"><a name="l08183"></a><span class="lineno"> 8183</span>  rb_str_buf_append(head, tail);</div><div class="line"><a name="l08184"></a><span class="lineno"> 8184</span>  return 1;</div><div class="line"><a name="l08185"></a><span class="lineno"> 8185</span> }</div><div class="line"><a name="l08186"></a><span class="lineno"> 8186</span> </div><div class="line"><a name="l08187"></a><span class="lineno"> 8187</span> /* concat two string literals */</div><div class="line"><a name="l08188"></a><span class="lineno"> 8188</span> static NODE *</div><div class="line"><a name="l08189"></a><span class="lineno"> 8189</span> literal_concat_gen(struct parser_params *parser, NODE *head, NODE *tail)</div><div class="line"><a name="l08190"></a><span class="lineno"> 8190</span> {</div><div class="line"><a name="l08191"></a><span class="lineno"> 8191</span>  enum node_type htype;</div><div class="line"><a name="l08192"></a><span class="lineno"> 8192</span> </div><div class="line"><a name="l08193"></a><span class="lineno"> 8193</span>  if (!head) return tail;</div><div class="line"><a name="l08194"></a><span class="lineno"> 8194</span>  if (!tail) return head;</div><div class="line"><a name="l08195"></a><span class="lineno"> 8195</span> </div><div class="line"><a name="l08196"></a><span class="lineno"> 8196</span>  htype = nd_type(head);</div><div class="line"><a name="l08197"></a><span class="lineno"> 8197</span>  if (htype == NODE_EVSTR) {</div><div class="line"><a name="l08198"></a><span class="lineno"> 8198</span>  NODE *node = NEW_DSTR(Qnil);</div><div class="line"><a name="l08199"></a><span class="lineno"> 8199</span>  head = list_append(node, head);</div><div class="line"><a name="l08200"></a><span class="lineno"> 8200</span>  }</div><div class="line"><a name="l08201"></a><span class="lineno"> 8201</span>  switch (nd_type(tail)) {</div><div class="line"><a name="l08202"></a><span class="lineno"> 8202</span>  case NODE_STR:</div><div class="line"><a name="l08203"></a><span class="lineno"> 8203</span>  if (htype == NODE_STR) {</div><div class="line"><a name="l08204"></a><span class="lineno"> 8204</span>  if (!literal_concat0(parser, head->nd_lit, tail->nd_lit)) {</div><div class="line"><a name="l08205"></a><span class="lineno"> 8205</span>  error:</div><div class="line"><a name="l08206"></a><span class="lineno"> 8206</span>  rb_gc_force_recycle((VALUE)head);</div><div class="line"><a name="l08207"></a><span class="lineno"> 8207</span>  rb_gc_force_recycle((VALUE)tail);</div><div class="line"><a name="l08208"></a><span class="lineno"> 8208</span>  return 0;</div><div class="line"><a name="l08209"></a><span class="lineno"> 8209</span>  }</div><div class="line"><a name="l08210"></a><span class="lineno"> 8210</span>  rb_gc_force_recycle((VALUE)tail);</div><div class="line"><a name="l08211"></a><span class="lineno"> 8211</span>  }</div><div class="line"><a name="l08212"></a><span class="lineno"> 8212</span>  else {</div><div class="line"><a name="l08213"></a><span class="lineno"> 8213</span>  list_append(head, tail);</div><div class="line"><a name="l08214"></a><span class="lineno"> 8214</span>  }</div><div class="line"><a name="l08215"></a><span class="lineno"> 8215</span>  break;</div><div class="line"><a name="l08216"></a><span class="lineno"> 8216</span> </div><div class="line"><a name="l08217"></a><span class="lineno"> 8217</span>  case NODE_DSTR:</div><div class="line"><a name="l08218"></a><span class="lineno"> 8218</span>  if (htype == NODE_STR) {</div><div class="line"><a name="l08219"></a><span class="lineno"> 8219</span>  if (!literal_concat0(parser, head->nd_lit, tail->nd_lit))</div><div class="line"><a name="l08220"></a><span class="lineno"> 8220</span>  goto error;</div><div class="line"><a name="l08221"></a><span class="lineno"> 8221</span>  tail->nd_lit = head->nd_lit;</div><div class="line"><a name="l08222"></a><span class="lineno"> 8222</span>  rb_gc_force_recycle((VALUE)head);</div><div class="line"><a name="l08223"></a><span class="lineno"> 8223</span>  head = tail;</div><div class="line"><a name="l08224"></a><span class="lineno"> 8224</span>  }</div><div class="line"><a name="l08225"></a><span class="lineno"> 8225</span>  else if (NIL_P(tail->nd_lit)) {</div><div class="line"><a name="l08226"></a><span class="lineno"> 8226</span>  head->nd_alen += tail->nd_alen - 1;</div><div class="line"><a name="l08227"></a><span class="lineno"> 8227</span>  head->nd_next->nd_end->nd_next = tail->nd_next;</div><div class="line"><a name="l08228"></a><span class="lineno"> 8228</span>  head->nd_next->nd_end = tail->nd_next->nd_end;</div><div class="line"><a name="l08229"></a><span class="lineno"> 8229</span>  rb_gc_force_recycle((VALUE)tail);</div><div class="line"><a name="l08230"></a><span class="lineno"> 8230</span>  }</div><div class="line"><a name="l08231"></a><span class="lineno"> 8231</span>  else {</div><div class="line"><a name="l08232"></a><span class="lineno"> 8232</span>  nd_set_type(tail, NODE_ARRAY);</div><div class="line"><a name="l08233"></a><span class="lineno"> 8233</span>  tail->nd_head = NEW_STR(tail->nd_lit);</div><div class="line"><a name="l08234"></a><span class="lineno"> 8234</span>  list_concat(head, tail);</div><div class="line"><a name="l08235"></a><span class="lineno"> 8235</span>  }</div><div class="line"><a name="l08236"></a><span class="lineno"> 8236</span>  break;</div><div class="line"><a name="l08237"></a><span class="lineno"> 8237</span> </div><div class="line"><a name="l08238"></a><span class="lineno"> 8238</span>  case NODE_EVSTR:</div><div class="line"><a name="l08239"></a><span class="lineno"> 8239</span>  if (htype == NODE_STR) {</div><div class="line"><a name="l08240"></a><span class="lineno"> 8240</span>  nd_set_type(head, NODE_DSTR);</div><div class="line"><a name="l08241"></a><span class="lineno"> 8241</span>  head->nd_alen = 1;</div><div class="line"><a name="l08242"></a><span class="lineno"> 8242</span>  }</div><div class="line"><a name="l08243"></a><span class="lineno"> 8243</span>  list_append(head, tail);</div><div class="line"><a name="l08244"></a><span class="lineno"> 8244</span>  break;</div><div class="line"><a name="l08245"></a><span class="lineno"> 8245</span>  }</div><div class="line"><a name="l08246"></a><span class="lineno"> 8246</span>  return head;</div><div class="line"><a name="l08247"></a><span class="lineno"> 8247</span> }</div><div class="line"><a name="l08248"></a><span class="lineno"> 8248</span> </div><div class="line"><a name="l08249"></a><span class="lineno"> 8249</span> static NODE *</div><div class="line"><a name="l08250"></a><span class="lineno"> 8250</span> evstr2dstr_gen(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l08251"></a><span class="lineno"> 8251</span> {</div><div class="line"><a name="l08252"></a><span class="lineno"> 8252</span>  if (nd_type(node) == NODE_EVSTR) {</div><div class="line"><a name="l08253"></a><span class="lineno"> 8253</span>  node = list_append(NEW_DSTR(Qnil), node);</div><div class="line"><a name="l08254"></a><span class="lineno"> 8254</span>  }</div><div class="line"><a name="l08255"></a><span class="lineno"> 8255</span>  return node;</div><div class="line"><a name="l08256"></a><span class="lineno"> 8256</span> }</div><div class="line"><a name="l08257"></a><span class="lineno"> 8257</span> </div><div class="line"><a name="l08258"></a><span class="lineno"> 8258</span> static NODE *</div><div class="line"><a name="l08259"></a><span class="lineno"> 8259</span> new_evstr_gen(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l08260"></a><span class="lineno"> 8260</span> {</div><div class="line"><a name="l08261"></a><span class="lineno"> 8261</span>  NODE *head = node;</div><div class="line"><a name="l08262"></a><span class="lineno"> 8262</span> </div><div class="line"><a name="l08263"></a><span class="lineno"> 8263</span>  if (node) {</div><div class="line"><a name="l08264"></a><span class="lineno"> 8264</span>  switch (nd_type(node)) {</div><div class="line"><a name="l08265"></a><span class="lineno"> 8265</span>  case NODE_STR: case NODE_DSTR: case NODE_EVSTR:</div><div class="line"><a name="l08266"></a><span class="lineno"> 8266</span>  return node;</div><div class="line"><a name="l08267"></a><span class="lineno"> 8267</span>  }</div><div class="line"><a name="l08268"></a><span class="lineno"> 8268</span>  }</div><div class="line"><a name="l08269"></a><span class="lineno"> 8269</span>  return NEW_EVSTR(head);</div><div class="line"><a name="l08270"></a><span class="lineno"> 8270</span> }</div><div class="line"><a name="l08271"></a><span class="lineno"> 8271</span> </div><div class="line"><a name="l08272"></a><span class="lineno"> 8272</span> static NODE *</div><div class="line"><a name="l08273"></a><span class="lineno"> 8273</span> call_bin_op_gen(struct parser_params *parser, NODE *recv, ID id, NODE *arg1)</div><div class="line"><a name="l08274"></a><span class="lineno"> 8274</span> {</div><div class="line"><a name="l08275"></a><span class="lineno"> 8275</span>  value_expr(recv);</div><div class="line"><a name="l08276"></a><span class="lineno"> 8276</span>  value_expr(arg1);</div><div class="line"><a name="l08277"></a><span class="lineno"> 8277</span>  return NEW_CALL(recv, id, NEW_LIST(arg1));</div><div class="line"><a name="l08278"></a><span class="lineno"> 8278</span> }</div><div class="line"><a name="l08279"></a><span class="lineno"> 8279</span> </div><div class="line"><a name="l08280"></a><span class="lineno"> 8280</span> static NODE *</div><div class="line"><a name="l08281"></a><span class="lineno"> 8281</span> call_uni_op_gen(struct parser_params *parser, NODE *recv, ID id)</div><div class="line"><a name="l08282"></a><span class="lineno"> 8282</span> {</div><div class="line"><a name="l08283"></a><span class="lineno"> 8283</span>  value_expr(recv);</div><div class="line"><a name="l08284"></a><span class="lineno"> 8284</span>  return NEW_CALL(recv, id, 0);</div><div class="line"><a name="l08285"></a><span class="lineno"> 8285</span> }</div><div class="line"><a name="l08286"></a><span class="lineno"> 8286</span> </div><div class="line"><a name="l08287"></a><span class="lineno"> 8287</span> static NODE*</div><div class="line"><a name="l08288"></a><span class="lineno"> 8288</span> match_op_gen(struct parser_params *parser, NODE *node1, NODE *node2)</div><div class="line"><a name="l08289"></a><span class="lineno"> 8289</span> {</div><div class="line"><a name="l08290"></a><span class="lineno"> 8290</span>  value_expr(node1);</div><div class="line"><a name="l08291"></a><span class="lineno"> 8291</span>  value_expr(node2);</div><div class="line"><a name="l08292"></a><span class="lineno"> 8292</span>  if (node1) {</div><div class="line"><a name="l08293"></a><span class="lineno"> 8293</span>  switch (nd_type(node1)) {</div><div class="line"><a name="l08294"></a><span class="lineno"> 8294</span>  case NODE_DREGX:</div><div class="line"><a name="l08295"></a><span class="lineno"> 8295</span>  case NODE_DREGX_ONCE:</div><div class="line"><a name="l08296"></a><span class="lineno"> 8296</span>  return NEW_MATCH2(node1, node2);</div><div class="line"><a name="l08297"></a><span class="lineno"> 8297</span> </div><div class="line"><a name="l08298"></a><span class="lineno"> 8298</span>  case NODE_LIT:</div><div class="line"><a name="l08299"></a><span class="lineno"> 8299</span>  if (TYPE(node1->nd_lit) == T_REGEXP) {</div><div class="line"><a name="l08300"></a><span class="lineno"> 8300</span>  return NEW_MATCH2(node1, node2);</div><div class="line"><a name="l08301"></a><span class="lineno"> 8301</span>  }</div><div class="line"><a name="l08302"></a><span class="lineno"> 8302</span>  }</div><div class="line"><a name="l08303"></a><span class="lineno"> 8303</span>  }</div><div class="line"><a name="l08304"></a><span class="lineno"> 8304</span> </div><div class="line"><a name="l08305"></a><span class="lineno"> 8305</span>  if (node2) {</div><div class="line"><a name="l08306"></a><span class="lineno"> 8306</span>  switch (nd_type(node2)) {</div><div class="line"><a name="l08307"></a><span class="lineno"> 8307</span>  case NODE_DREGX:</div><div class="line"><a name="l08308"></a><span class="lineno"> 8308</span>  case NODE_DREGX_ONCE:</div><div class="line"><a name="l08309"></a><span class="lineno"> 8309</span>  return NEW_MATCH3(node2, node1);</div><div class="line"><a name="l08310"></a><span class="lineno"> 8310</span> </div><div class="line"><a name="l08311"></a><span class="lineno"> 8311</span>  case NODE_LIT:</div><div class="line"><a name="l08312"></a><span class="lineno"> 8312</span>  if (TYPE(node2->nd_lit) == T_REGEXP) {</div><div class="line"><a name="l08313"></a><span class="lineno"> 8313</span>  return NEW_MATCH3(node2, node1);</div><div class="line"><a name="l08314"></a><span class="lineno"> 8314</span>  }</div><div class="line"><a name="l08315"></a><span class="lineno"> 8315</span>  }</div><div class="line"><a name="l08316"></a><span class="lineno"> 8316</span>  }</div><div class="line"><a name="l08317"></a><span class="lineno"> 8317</span> </div><div class="line"><a name="l08318"></a><span class="lineno"> 8318</span>  return NEW_CALL(node1, tMATCH, NEW_LIST(node2));</div><div class="line"><a name="l08319"></a><span class="lineno"> 8319</span> }</div><div class="line"><a name="l08320"></a><span class="lineno"> 8320</span> </div><div class="line"><a name="l08321"></a><span class="lineno"> 8321</span> static NODE*</div><div class="line"><a name="l08322"></a><span class="lineno"> 8322</span> gettable_gen(struct parser_params *parser, ID id)</div><div class="line"><a name="l08323"></a><span class="lineno"> 8323</span> {</div><div class="line"><a name="l08324"></a><span class="lineno"> 8324</span>  if (id == keyword_self) {</div><div class="line"><a name="l08325"></a><span class="lineno"> 8325</span>  return NEW_SELF();</div><div class="line"><a name="l08326"></a><span class="lineno"> 8326</span>  }</div><div class="line"><a name="l08327"></a><span class="lineno"> 8327</span>  else if (id == keyword_nil) {</div><div class="line"><a name="l08328"></a><span class="lineno"> 8328</span>  return NEW_NIL();</div><div class="line"><a name="l08329"></a><span class="lineno"> 8329</span>  }</div><div class="line"><a name="l08330"></a><span class="lineno"> 8330</span>  else if (id == keyword_true) {</div><div class="line"><a name="l08331"></a><span class="lineno"> 8331</span>  return NEW_TRUE();</div><div class="line"><a name="l08332"></a><span class="lineno"> 8332</span>  }</div><div class="line"><a name="l08333"></a><span class="lineno"> 8333</span>  else if (id == keyword_false) {</div><div class="line"><a name="l08334"></a><span class="lineno"> 8334</span>  return NEW_FALSE();</div><div class="line"><a name="l08335"></a><span class="lineno"> 8335</span>  }</div><div class="line"><a name="l08336"></a><span class="lineno"> 8336</span>  else if (id == keyword__FILE__) {</div><div class="line"><a name="l08337"></a><span class="lineno"> 8337</span>  return NEW_STR(rb_external_str_new_with_enc(ruby_sourcefile, strlen(ruby_sourcefile),</div><div class="line"><a name="l08338"></a><span class="lineno"> 8338</span>  rb_filesystem_encoding()));</div><div class="line"><a name="l08339"></a><span class="lineno"> 8339</span>  }</div><div class="line"><a name="l08340"></a><span class="lineno"> 8340</span>  else if (id == keyword__LINE__) {</div><div class="line"><a name="l08341"></a><span class="lineno"> 8341</span>  return NEW_LIT(INT2FIX(ruby_sourceline));</div><div class="line"><a name="l08342"></a><span class="lineno"> 8342</span>  }</div><div class="line"><a name="l08343"></a><span class="lineno"> 8343</span>  else if (id == keyword__ENCODING__) {</div><div class="line"><a name="l08344"></a><span class="lineno"> 8344</span>  return NEW_LIT(rb_enc_from_encoding(parser->enc));</div><div class="line"><a name="l08345"></a><span class="lineno"> 8345</span>  }</div><div class="line"><a name="l08346"></a><span class="lineno"> 8346</span>  else if (is_local_id(id)) {</div><div class="line"><a name="l08347"></a><span class="lineno"> 8347</span>  if (dyna_in_block() && dvar_defined(id)) return NEW_DVAR(id);</div><div class="line"><a name="l08348"></a><span class="lineno"> 8348</span>  if (local_id(id)) return NEW_LVAR(id);</div><div class="line"><a name="l08349"></a><span class="lineno"> 8349</span>  /* method call without arguments */</div><div class="line"><a name="l08350"></a><span class="lineno"> 8350</span>  return NEW_VCALL(id);</div><div class="line"><a name="l08351"></a><span class="lineno"> 8351</span>  }</div><div class="line"><a name="l08352"></a><span class="lineno"> 8352</span>  else if (is_global_id(id)) {</div><div class="line"><a name="l08353"></a><span class="lineno"> 8353</span>  return NEW_GVAR(id);</div><div class="line"><a name="l08354"></a><span class="lineno"> 8354</span>  }</div><div class="line"><a name="l08355"></a><span class="lineno"> 8355</span>  else if (is_instance_id(id)) {</div><div class="line"><a name="l08356"></a><span class="lineno"> 8356</span>  return NEW_IVAR(id);</div><div class="line"><a name="l08357"></a><span class="lineno"> 8357</span>  }</div><div class="line"><a name="l08358"></a><span class="lineno"> 8358</span>  else if (is_const_id(id)) {</div><div class="line"><a name="l08359"></a><span class="lineno"> 8359</span>  return NEW_CONST(id);</div><div class="line"><a name="l08360"></a><span class="lineno"> 8360</span>  }</div><div class="line"><a name="l08361"></a><span class="lineno"> 8361</span>  else if (is_class_id(id)) {</div><div class="line"><a name="l08362"></a><span class="lineno"> 8362</span>  return NEW_CVAR(id);</div><div class="line"><a name="l08363"></a><span class="lineno"> 8363</span>  }</div><div class="line"><a name="l08364"></a><span class="lineno"> 8364</span>  compile_error(PARSER_ARG "identifier %s is not valid to get", rb_id2name(id));</div><div class="line"><a name="l08365"></a><span class="lineno"> 8365</span>  return 0;</div><div class="line"><a name="l08366"></a><span class="lineno"> 8366</span> }</div><div class="line"><a name="l08367"></a><span class="lineno"> 8367</span> #else /* !RIPPER */</div><div class="line"><a name="l08368"></a><span class="lineno"> 8368</span> static int</div><div class="line"><a name="l08369"></a><span class="lineno"> 8369</span> id_is_var_gen(struct parser_params *parser, ID id)</div><div class="line"><a name="l08370"></a><span class="lineno"> 8370</span> {</div><div class="line"><a name="l08371"></a><span class="lineno"> 8371</span>  if (is_notop_id(id)) {</div><div class="line"><a name="l08372"></a><span class="lineno"> 8372</span>  switch (id & ID_SCOPE_MASK) {</div><div class="line"><a name="l08373"></a><span class="lineno"> 8373</span>  case ID_GLOBAL: case ID_INSTANCE: case ID_CONST: case ID_CLASS:</div><div class="line"><a name="l08374"></a><span class="lineno"> 8374</span>  return 1;</div><div class="line"><a name="l08375"></a><span class="lineno"> 8375</span>  case ID_LOCAL:</div><div class="line"><a name="l08376"></a><span class="lineno"> 8376</span>  if (dyna_in_block() && dvar_defined(id)) return 1;</div><div class="line"><a name="l08377"></a><span class="lineno"> 8377</span>  if (local_id(id)) return 1;</div><div class="line"><a name="l08378"></a><span class="lineno"> 8378</span>  /* method call without arguments */</div><div class="line"><a name="l08379"></a><span class="lineno"> 8379</span>  return 0;</div><div class="line"><a name="l08380"></a><span class="lineno"> 8380</span>  }</div><div class="line"><a name="l08381"></a><span class="lineno"> 8381</span>  }</div><div class="line"><a name="l08382"></a><span class="lineno"> 8382</span>  compile_error(PARSER_ARG "identifier %s is not valid to get", rb_id2name(id));</div><div class="line"><a name="l08383"></a><span class="lineno"> 8383</span>  return 0;</div><div class="line"><a name="l08384"></a><span class="lineno"> 8384</span> }</div><div class="line"><a name="l08385"></a><span class="lineno"> 8385</span> #endif /* !RIPPER */</div><div class="line"><a name="l08386"></a><span class="lineno"> 8386</span> </div><div class="line"><a name="l08387"></a><span class="lineno"> 8387</span> #ifdef RIPPER</div><div class="line"><a name="l08388"></a><span class="lineno"> 8388</span> static VALUE</div><div class="line"><a name="l08389"></a><span class="lineno"> 8389</span> assignable_gen(struct parser_params *parser, VALUE lhs)</div><div class="line"><a name="l08390"></a><span class="lineno"> 8390</span> #else</div><div class="line"><a name="l08391"></a><span class="lineno"> 8391</span> static NODE*</div><div class="line"><a name="l08392"></a><span class="lineno"> 8392</span> assignable_gen(struct parser_params *parser, ID id, NODE *val)</div><div class="line"><a name="l08393"></a><span class="lineno"> 8393</span> #endif</div><div class="line"><a name="l08394"></a><span class="lineno"> 8394</span> {</div><div class="line"><a name="l08395"></a><span class="lineno"> 8395</span> #ifdef RIPPER</div><div class="line"><a name="l08396"></a><span class="lineno"> 8396</span>  ID id = get_id(lhs);</div><div class="line"><a name="l08397"></a><span class="lineno"> 8397</span> # define assignable_result(x) get_value(lhs)</div><div class="line"><a name="l08398"></a><span class="lineno"> 8398</span> # define parser_yyerror(parser, x) dispatch1(assign_error, lhs)</div><div class="line"><a name="l08399"></a><span class="lineno"> 8399</span> #else</div><div class="line"><a name="l08400"></a><span class="lineno"> 8400</span> # define assignable_result(x) (x)</div><div class="line"><a name="l08401"></a><span class="lineno"> 8401</span> #endif</div><div class="line"><a name="l08402"></a><span class="lineno"> 8402</span>  if (!id) return assignable_result(0);</div><div class="line"><a name="l08403"></a><span class="lineno"> 8403</span>  if (id == keyword_self) {</div><div class="line"><a name="l08404"></a><span class="lineno"> 8404</span>  yyerror("Can't change the value of self");</div><div class="line"><a name="l08405"></a><span class="lineno"> 8405</span>  }</div><div class="line"><a name="l08406"></a><span class="lineno"> 8406</span>  else if (id == keyword_nil) {</div><div class="line"><a name="l08407"></a><span class="lineno"> 8407</span>  yyerror("Can't assign to nil");</div><div class="line"><a name="l08408"></a><span class="lineno"> 8408</span>  }</div><div class="line"><a name="l08409"></a><span class="lineno"> 8409</span>  else if (id == keyword_true) {</div><div class="line"><a name="l08410"></a><span class="lineno"> 8410</span>  yyerror("Can't assign to true");</div><div class="line"><a name="l08411"></a><span class="lineno"> 8411</span>  }</div><div class="line"><a name="l08412"></a><span class="lineno"> 8412</span>  else if (id == keyword_false) {</div><div class="line"><a name="l08413"></a><span class="lineno"> 8413</span>  yyerror("Can't assign to false");</div><div class="line"><a name="l08414"></a><span class="lineno"> 8414</span>  }</div><div class="line"><a name="l08415"></a><span class="lineno"> 8415</span>  else if (id == keyword__FILE__) {</div><div class="line"><a name="l08416"></a><span class="lineno"> 8416</span>  yyerror("Can't assign to __FILE__");</div><div class="line"><a name="l08417"></a><span class="lineno"> 8417</span>  }</div><div class="line"><a name="l08418"></a><span class="lineno"> 8418</span>  else if (id == keyword__LINE__) {</div><div class="line"><a name="l08419"></a><span class="lineno"> 8419</span>  yyerror("Can't assign to __LINE__");</div><div class="line"><a name="l08420"></a><span class="lineno"> 8420</span>  }</div><div class="line"><a name="l08421"></a><span class="lineno"> 8421</span>  else if (id == keyword__ENCODING__) {</div><div class="line"><a name="l08422"></a><span class="lineno"> 8422</span>  yyerror("Can't assign to __ENCODING__");</div><div class="line"><a name="l08423"></a><span class="lineno"> 8423</span>  }</div><div class="line"><a name="l08424"></a><span class="lineno"> 8424</span>  else if (is_local_id(id)) {</div><div class="line"><a name="l08425"></a><span class="lineno"> 8425</span>  if (dyna_in_block()) {</div><div class="line"><a name="l08426"></a><span class="lineno"> 8426</span>  if (dvar_curr(id)) {</div><div class="line"><a name="l08427"></a><span class="lineno"> 8427</span>  return assignable_result(NEW_DASGN_CURR(id, val));</div><div class="line"><a name="l08428"></a><span class="lineno"> 8428</span>  }</div><div class="line"><a name="l08429"></a><span class="lineno"> 8429</span>  else if (dvar_defined(id)) {</div><div class="line"><a name="l08430"></a><span class="lineno"> 8430</span>  return assignable_result(NEW_DASGN(id, val));</div><div class="line"><a name="l08431"></a><span class="lineno"> 8431</span>  }</div><div class="line"><a name="l08432"></a><span class="lineno"> 8432</span>  else if (local_id(id)) {</div><div class="line"><a name="l08433"></a><span class="lineno"> 8433</span>  return assignable_result(NEW_LASGN(id, val));</div><div class="line"><a name="l08434"></a><span class="lineno"> 8434</span>  }</div><div class="line"><a name="l08435"></a><span class="lineno"> 8435</span>  else {</div><div class="line"><a name="l08436"></a><span class="lineno"> 8436</span>  dyna_var(id);</div><div class="line"><a name="l08437"></a><span class="lineno"> 8437</span>  return assignable_result(NEW_DASGN_CURR(id, val));</div><div class="line"><a name="l08438"></a><span class="lineno"> 8438</span>  }</div><div class="line"><a name="l08439"></a><span class="lineno"> 8439</span>  }</div><div class="line"><a name="l08440"></a><span class="lineno"> 8440</span>  else {</div><div class="line"><a name="l08441"></a><span class="lineno"> 8441</span>  if (!local_id(id)) {</div><div class="line"><a name="l08442"></a><span class="lineno"> 8442</span>  local_var(id);</div><div class="line"><a name="l08443"></a><span class="lineno"> 8443</span>  }</div><div class="line"><a name="l08444"></a><span class="lineno"> 8444</span>  return assignable_result(NEW_LASGN(id, val));</div><div class="line"><a name="l08445"></a><span class="lineno"> 8445</span>  }</div><div class="line"><a name="l08446"></a><span class="lineno"> 8446</span>  }</div><div class="line"><a name="l08447"></a><span class="lineno"> 8447</span>  else if (is_global_id(id)) {</div><div class="line"><a name="l08448"></a><span class="lineno"> 8448</span>  return assignable_result(NEW_GASGN(id, val));</div><div class="line"><a name="l08449"></a><span class="lineno"> 8449</span>  }</div><div class="line"><a name="l08450"></a><span class="lineno"> 8450</span>  else if (is_instance_id(id)) {</div><div class="line"><a name="l08451"></a><span class="lineno"> 8451</span>  return assignable_result(NEW_IASGN(id, val));</div><div class="line"><a name="l08452"></a><span class="lineno"> 8452</span>  }</div><div class="line"><a name="l08453"></a><span class="lineno"> 8453</span>  else if (is_const_id(id)) {</div><div class="line"><a name="l08454"></a><span class="lineno"> 8454</span>  if (!in_def && !in_single)</div><div class="line"><a name="l08455"></a><span class="lineno"> 8455</span>  return assignable_result(NEW_CDECL(id, val, 0));</div><div class="line"><a name="l08456"></a><span class="lineno"> 8456</span>  yyerror("dynamic constant assignment");</div><div class="line"><a name="l08457"></a><span class="lineno"> 8457</span>  }</div><div class="line"><a name="l08458"></a><span class="lineno"> 8458</span>  else if (is_class_id(id)) {</div><div class="line"><a name="l08459"></a><span class="lineno"> 8459</span>  return assignable_result(NEW_CVASGN(id, val));</div><div class="line"><a name="l08460"></a><span class="lineno"> 8460</span>  }</div><div class="line"><a name="l08461"></a><span class="lineno"> 8461</span>  else {</div><div class="line"><a name="l08462"></a><span class="lineno"> 8462</span>  compile_error(PARSER_ARG "identifier %s is not valid to set", rb_id2name(id));</div><div class="line"><a name="l08463"></a><span class="lineno"> 8463</span>  }</div><div class="line"><a name="l08464"></a><span class="lineno"> 8464</span>  return assignable_result(0);</div><div class="line"><a name="l08465"></a><span class="lineno"> 8465</span> #undef assignable_result</div><div class="line"><a name="l08466"></a><span class="lineno"> 8466</span> #undef parser_yyerror</div><div class="line"><a name="l08467"></a><span class="lineno"> 8467</span> }</div><div class="line"><a name="l08468"></a><span class="lineno"> 8468</span> </div><div class="line"><a name="l08469"></a><span class="lineno"> 8469</span> #define LVAR_USED ((int)1 << (sizeof(int) * CHAR_BIT - 1))</div><div class="line"><a name="l08470"></a><span class="lineno"> 8470</span> </div><div class="line"><a name="l08471"></a><span class="lineno"> 8471</span> static ID</div><div class="line"><a name="l08472"></a><span class="lineno"> 8472</span> shadowing_lvar_gen(struct parser_params *parser, ID name)</div><div class="line"><a name="l08473"></a><span class="lineno"> 8473</span> {</div><div class="line"><a name="l08474"></a><span class="lineno"> 8474</span>  if (idUScore == name) return name;</div><div class="line"><a name="l08475"></a><span class="lineno"> 8475</span>  if (dyna_in_block()) {</div><div class="line"><a name="l08476"></a><span class="lineno"> 8476</span>  if (dvar_curr(name)) {</div><div class="line"><a name="l08477"></a><span class="lineno"> 8477</span>  yyerror("duplicated argument name");</div><div class="line"><a name="l08478"></a><span class="lineno"> 8478</span>  }</div><div class="line"><a name="l08479"></a><span class="lineno"> 8479</span>  else if (dvar_defined_get(name) || local_id(name)) {</div><div class="line"><a name="l08480"></a><span class="lineno"> 8480</span>  rb_warningS("shadowing outer local variable - %s", rb_id2name(name));</div><div class="line"><a name="l08481"></a><span class="lineno"> 8481</span>  vtable_add(lvtbl->vars, name);</div><div class="line"><a name="l08482"></a><span class="lineno"> 8482</span>  if (lvtbl->used) {</div><div class="line"><a name="l08483"></a><span class="lineno"> 8483</span>  vtable_add(lvtbl->used, (ID)ruby_sourceline | LVAR_USED);</div><div class="line"><a name="l08484"></a><span class="lineno"> 8484</span>  }</div><div class="line"><a name="l08485"></a><span class="lineno"> 8485</span>  }</div><div class="line"><a name="l08486"></a><span class="lineno"> 8486</span>  }</div><div class="line"><a name="l08487"></a><span class="lineno"> 8487</span>  else {</div><div class="line"><a name="l08488"></a><span class="lineno"> 8488</span>  if (local_id(name)) {</div><div class="line"><a name="l08489"></a><span class="lineno"> 8489</span>  yyerror("duplicated argument name");</div><div class="line"><a name="l08490"></a><span class="lineno"> 8490</span>  }</div><div class="line"><a name="l08491"></a><span class="lineno"> 8491</span>  }</div><div class="line"><a name="l08492"></a><span class="lineno"> 8492</span>  return name;</div><div class="line"><a name="l08493"></a><span class="lineno"> 8493</span> }</div><div class="line"><a name="l08494"></a><span class="lineno"> 8494</span> </div><div class="line"><a name="l08495"></a><span class="lineno"> 8495</span> static void</div><div class="line"><a name="l08496"></a><span class="lineno"> 8496</span> new_bv_gen(struct parser_params *parser, ID name)</div><div class="line"><a name="l08497"></a><span class="lineno"> 8497</span> {</div><div class="line"><a name="l08498"></a><span class="lineno"> 8498</span>  if (!name) return;</div><div class="line"><a name="l08499"></a><span class="lineno"> 8499</span>  if (!is_local_id(name)) {</div><div class="line"><a name="l08500"></a><span class="lineno"> 8500</span>  compile_error(PARSER_ARG "invalid local variable - %s",</div><div class="line"><a name="l08501"></a><span class="lineno"> 8501</span>  rb_id2name(name));</div><div class="line"><a name="l08502"></a><span class="lineno"> 8502</span>  return;</div><div class="line"><a name="l08503"></a><span class="lineno"> 8503</span>  }</div><div class="line"><a name="l08504"></a><span class="lineno"> 8504</span>  shadowing_lvar(name);</div><div class="line"><a name="l08505"></a><span class="lineno"> 8505</span>  dyna_var(name);</div><div class="line"><a name="l08506"></a><span class="lineno"> 8506</span> }</div><div class="line"><a name="l08507"></a><span class="lineno"> 8507</span> </div><div class="line"><a name="l08508"></a><span class="lineno"> 8508</span> #ifndef RIPPER</div><div class="line"><a name="l08509"></a><span class="lineno"> 8509</span> static NODE *</div><div class="line"><a name="l08510"></a><span class="lineno"> 8510</span> aryset_gen(struct parser_params *parser, NODE *recv, NODE *idx)</div><div class="line"><a name="l08511"></a><span class="lineno"> 8511</span> {</div><div class="line"><a name="l08512"></a><span class="lineno"> 8512</span>  if (recv && nd_type(recv) == NODE_SELF)</div><div class="line"><a name="l08513"></a><span class="lineno"> 8513</span>  recv = (NODE *)1;</div><div class="line"><a name="l08514"></a><span class="lineno"> 8514</span>  return NEW_ATTRASGN(recv, tASET, idx);</div><div class="line"><a name="l08515"></a><span class="lineno"> 8515</span> }</div><div class="line"><a name="l08516"></a><span class="lineno"> 8516</span> </div><div class="line"><a name="l08517"></a><span class="lineno"> 8517</span> static void</div><div class="line"><a name="l08518"></a><span class="lineno"> 8518</span> block_dup_check_gen(struct parser_params *parser, NODE *node1, NODE *node2)</div><div class="line"><a name="l08519"></a><span class="lineno"> 8519</span> {</div><div class="line"><a name="l08520"></a><span class="lineno"> 8520</span>  if (node2 && node1 && nd_type(node1) == NODE_BLOCK_PASS) {</div><div class="line"><a name="l08521"></a><span class="lineno"> 8521</span>  compile_error(PARSER_ARG "both block arg and actual block given");</div><div class="line"><a name="l08522"></a><span class="lineno"> 8522</span>  }</div><div class="line"><a name="l08523"></a><span class="lineno"> 8523</span> }</div><div class="line"><a name="l08524"></a><span class="lineno"> 8524</span> </div><div class="line"><a name="l08525"></a><span class="lineno"> 8525</span> ID</div><div class="line"><a name="l08526"></a><span class="lineno"> 8526</span> rb_id_attrset(ID id)</div><div class="line"><a name="l08527"></a><span class="lineno"> 8527</span> {</div><div class="line"><a name="l08528"></a><span class="lineno"> 8528</span>  id &= ~ID_SCOPE_MASK;</div><div class="line"><a name="l08529"></a><span class="lineno"> 8529</span>  id |= ID_ATTRSET;</div><div class="line"><a name="l08530"></a><span class="lineno"> 8530</span>  return id;</div><div class="line"><a name="l08531"></a><span class="lineno"> 8531</span> }</div><div class="line"><a name="l08532"></a><span class="lineno"> 8532</span> </div><div class="line"><a name="l08533"></a><span class="lineno"> 8533</span> static NODE *</div><div class="line"><a name="l08534"></a><span class="lineno"> 8534</span> attrset_gen(struct parser_params *parser, NODE *recv, ID id)</div><div class="line"><a name="l08535"></a><span class="lineno"> 8535</span> {</div><div class="line"><a name="l08536"></a><span class="lineno"> 8536</span>  if (recv && nd_type(recv) == NODE_SELF)</div><div class="line"><a name="l08537"></a><span class="lineno"> 8537</span>  recv = (NODE *)1;</div><div class="line"><a name="l08538"></a><span class="lineno"> 8538</span>  return NEW_ATTRASGN(recv, rb_id_attrset(id), 0);</div><div class="line"><a name="l08539"></a><span class="lineno"> 8539</span> }</div><div class="line"><a name="l08540"></a><span class="lineno"> 8540</span> </div><div class="line"><a name="l08541"></a><span class="lineno"> 8541</span> static void</div><div class="line"><a name="l08542"></a><span class="lineno"> 8542</span> rb_backref_error_gen(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l08543"></a><span class="lineno"> 8543</span> {</div><div class="line"><a name="l08544"></a><span class="lineno"> 8544</span>  switch (nd_type(node)) {</div><div class="line"><a name="l08545"></a><span class="lineno"> 8545</span>  case NODE_NTH_REF:</div><div class="line"><a name="l08546"></a><span class="lineno"> 8546</span>  compile_error(PARSER_ARG "Can't set variable $%ld", node->nd_nth);</div><div class="line"><a name="l08547"></a><span class="lineno"> 8547</span>  break;</div><div class="line"><a name="l08548"></a><span class="lineno"> 8548</span>  case NODE_BACK_REF:</div><div class="line"><a name="l08549"></a><span class="lineno"> 8549</span>  compile_error(PARSER_ARG "Can't set variable $%c", (int)node->nd_nth);</div><div class="line"><a name="l08550"></a><span class="lineno"> 8550</span>  break;</div><div class="line"><a name="l08551"></a><span class="lineno"> 8551</span>  }</div><div class="line"><a name="l08552"></a><span class="lineno"> 8552</span> }</div><div class="line"><a name="l08553"></a><span class="lineno"> 8553</span> </div><div class="line"><a name="l08554"></a><span class="lineno"> 8554</span> static NODE *</div><div class="line"><a name="l08555"></a><span class="lineno"> 8555</span> arg_concat_gen(struct parser_params *parser, NODE *node1, NODE *node2)</div><div class="line"><a name="l08556"></a><span class="lineno"> 8556</span> {</div><div class="line"><a name="l08557"></a><span class="lineno"> 8557</span>  if (!node2) return node1;</div><div class="line"><a name="l08558"></a><span class="lineno"> 8558</span>  switch (nd_type(node1)) {</div><div class="line"><a name="l08559"></a><span class="lineno"> 8559</span>  case NODE_BLOCK_PASS:</div><div class="line"><a name="l08560"></a><span class="lineno"> 8560</span>  if (node1->nd_head)</div><div class="line"><a name="l08561"></a><span class="lineno"> 8561</span>  node1->nd_head = arg_concat(node1->nd_head, node2);</div><div class="line"><a name="l08562"></a><span class="lineno"> 8562</span>  else</div><div class="line"><a name="l08563"></a><span class="lineno"> 8563</span>  node1->nd_head = NEW_LIST(node2);</div><div class="line"><a name="l08564"></a><span class="lineno"> 8564</span>  return node1;</div><div class="line"><a name="l08565"></a><span class="lineno"> 8565</span>  case NODE_ARGSPUSH:</div><div class="line"><a name="l08566"></a><span class="lineno"> 8566</span>  if (nd_type(node2) != NODE_ARRAY) break;</div><div class="line"><a name="l08567"></a><span class="lineno"> 8567</span>  node1->nd_body = list_concat(NEW_LIST(node1->nd_body), node2);</div><div class="line"><a name="l08568"></a><span class="lineno"> 8568</span>  nd_set_type(node1, NODE_ARGSCAT);</div><div class="line"><a name="l08569"></a><span class="lineno"> 8569</span>  return node1;</div><div class="line"><a name="l08570"></a><span class="lineno"> 8570</span>  case NODE_ARGSCAT:</div><div class="line"><a name="l08571"></a><span class="lineno"> 8571</span>  if (nd_type(node2) != NODE_ARRAY ||</div><div class="line"><a name="l08572"></a><span class="lineno"> 8572</span>  nd_type(node1->nd_body) != NODE_ARRAY) break;</div><div class="line"><a name="l08573"></a><span class="lineno"> 8573</span>  node1->nd_body = list_concat(node1->nd_body, node2);</div><div class="line"><a name="l08574"></a><span class="lineno"> 8574</span>  return node1;</div><div class="line"><a name="l08575"></a><span class="lineno"> 8575</span>  }</div><div class="line"><a name="l08576"></a><span class="lineno"> 8576</span>  return NEW_ARGSCAT(node1, node2);</div><div class="line"><a name="l08577"></a><span class="lineno"> 8577</span> }</div><div class="line"><a name="l08578"></a><span class="lineno"> 8578</span> </div><div class="line"><a name="l08579"></a><span class="lineno"> 8579</span> static NODE *</div><div class="line"><a name="l08580"></a><span class="lineno"> 8580</span> arg_append_gen(struct parser_params *parser, NODE *node1, NODE *node2)</div><div class="line"><a name="l08581"></a><span class="lineno"> 8581</span> {</div><div class="line"><a name="l08582"></a><span class="lineno"> 8582</span>  if (!node1) return NEW_LIST(node2);</div><div class="line"><a name="l08583"></a><span class="lineno"> 8583</span>  switch (nd_type(node1)) {</div><div class="line"><a name="l08584"></a><span class="lineno"> 8584</span>  case NODE_ARRAY:</div><div class="line"><a name="l08585"></a><span class="lineno"> 8585</span>  return list_append(node1, node2);</div><div class="line"><a name="l08586"></a><span class="lineno"> 8586</span>  case NODE_BLOCK_PASS:</div><div class="line"><a name="l08587"></a><span class="lineno"> 8587</span>  node1->nd_head = arg_append(node1->nd_head, node2);</div><div class="line"><a name="l08588"></a><span class="lineno"> 8588</span>  return node1;</div><div class="line"><a name="l08589"></a><span class="lineno"> 8589</span>  case NODE_ARGSPUSH:</div><div class="line"><a name="l08590"></a><span class="lineno"> 8590</span>  node1->nd_body = list_append(NEW_LIST(node1->nd_body), node2);</div><div class="line"><a name="l08591"></a><span class="lineno"> 8591</span>  nd_set_type(node1, NODE_ARGSCAT);</div><div class="line"><a name="l08592"></a><span class="lineno"> 8592</span>  return node1;</div><div class="line"><a name="l08593"></a><span class="lineno"> 8593</span>  }</div><div class="line"><a name="l08594"></a><span class="lineno"> 8594</span>  return NEW_ARGSPUSH(node1, node2);</div><div class="line"><a name="l08595"></a><span class="lineno"> 8595</span> }</div><div class="line"><a name="l08596"></a><span class="lineno"> 8596</span> </div><div class="line"><a name="l08597"></a><span class="lineno"> 8597</span> static NODE *</div><div class="line"><a name="l08598"></a><span class="lineno"> 8598</span> splat_array(NODE* node)</div><div class="line"><a name="l08599"></a><span class="lineno"> 8599</span> {</div><div class="line"><a name="l08600"></a><span class="lineno"> 8600</span>  if (nd_type(node) == NODE_SPLAT) node = node->nd_head;</div><div class="line"><a name="l08601"></a><span class="lineno"> 8601</span>  if (nd_type(node) == NODE_ARRAY) return node;</div><div class="line"><a name="l08602"></a><span class="lineno"> 8602</span>  return 0;</div><div class="line"><a name="l08603"></a><span class="lineno"> 8603</span> }</div><div class="line"><a name="l08604"></a><span class="lineno"> 8604</span> </div><div class="line"><a name="l08605"></a><span class="lineno"> 8605</span> static NODE *</div><div class="line"><a name="l08606"></a><span class="lineno"> 8606</span> node_assign_gen(struct parser_params *parser, NODE *lhs, NODE *rhs)</div><div class="line"><a name="l08607"></a><span class="lineno"> 8607</span> {</div><div class="line"><a name="l08608"></a><span class="lineno"> 8608</span>  if (!lhs) return 0;</div><div class="line"><a name="l08609"></a><span class="lineno"> 8609</span> </div><div class="line"><a name="l08610"></a><span class="lineno"> 8610</span>  switch (nd_type(lhs)) {</div><div class="line"><a name="l08611"></a><span class="lineno"> 8611</span>  case NODE_GASGN:</div><div class="line"><a name="l08612"></a><span class="lineno"> 8612</span>  case NODE_IASGN:</div><div class="line"><a name="l08613"></a><span class="lineno"> 8613</span>  case NODE_IASGN2:</div><div class="line"><a name="l08614"></a><span class="lineno"> 8614</span>  case NODE_LASGN:</div><div class="line"><a name="l08615"></a><span class="lineno"> 8615</span>  case NODE_DASGN:</div><div class="line"><a name="l08616"></a><span class="lineno"> 8616</span>  case NODE_DASGN_CURR:</div><div class="line"><a name="l08617"></a><span class="lineno"> 8617</span>  case NODE_MASGN:</div><div class="line"><a name="l08618"></a><span class="lineno"> 8618</span>  case NODE_CDECL:</div><div class="line"><a name="l08619"></a><span class="lineno"> 8619</span>  case NODE_CVASGN:</div><div class="line"><a name="l08620"></a><span class="lineno"> 8620</span>  lhs->nd_value = rhs;</div><div class="line"><a name="l08621"></a><span class="lineno"> 8621</span>  break;</div><div class="line"><a name="l08622"></a><span class="lineno"> 8622</span> </div><div class="line"><a name="l08623"></a><span class="lineno"> 8623</span>  case NODE_ATTRASGN:</div><div class="line"><a name="l08624"></a><span class="lineno"> 8624</span>  case NODE_CALL:</div><div class="line"><a name="l08625"></a><span class="lineno"> 8625</span>  lhs->nd_args = arg_append(lhs->nd_args, rhs);</div><div class="line"><a name="l08626"></a><span class="lineno"> 8626</span>  break;</div><div class="line"><a name="l08627"></a><span class="lineno"> 8627</span> </div><div class="line"><a name="l08628"></a><span class="lineno"> 8628</span>  default:</div><div class="line"><a name="l08629"></a><span class="lineno"> 8629</span>  /* should not happen */</div><div class="line"><a name="l08630"></a><span class="lineno"> 8630</span>  break;</div><div class="line"><a name="l08631"></a><span class="lineno"> 8631</span>  }</div><div class="line"><a name="l08632"></a><span class="lineno"> 8632</span> </div><div class="line"><a name="l08633"></a><span class="lineno"> 8633</span>  return lhs;</div><div class="line"><a name="l08634"></a><span class="lineno"> 8634</span> }</div><div class="line"><a name="l08635"></a><span class="lineno"> 8635</span> </div><div class="line"><a name="l08636"></a><span class="lineno"> 8636</span> static int</div><div class="line"><a name="l08637"></a><span class="lineno"> 8637</span> value_expr_gen(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l08638"></a><span class="lineno"> 8638</span> {</div><div class="line"><a name="l08639"></a><span class="lineno"> 8639</span>  int cond = 0;</div><div class="line"><a name="l08640"></a><span class="lineno"> 8640</span> </div><div class="line"><a name="l08641"></a><span class="lineno"> 8641</span>  if (!node) {</div><div class="line"><a name="l08642"></a><span class="lineno"> 8642</span>  rb_warning0("empty expression");</div><div class="line"><a name="l08643"></a><span class="lineno"> 8643</span>  }</div><div class="line"><a name="l08644"></a><span class="lineno"> 8644</span>  while (node) {</div><div class="line"><a name="l08645"></a><span class="lineno"> 8645</span>  switch (nd_type(node)) {</div><div class="line"><a name="l08646"></a><span class="lineno"> 8646</span>  case NODE_DEFN:</div><div class="line"><a name="l08647"></a><span class="lineno"> 8647</span>  case NODE_DEFS:</div><div class="line"><a name="l08648"></a><span class="lineno"> 8648</span>  parser_warning(node, "void value expression");</div><div class="line"><a name="l08649"></a><span class="lineno"> 8649</span>  return FALSE;</div><div class="line"><a name="l08650"></a><span class="lineno"> 8650</span> </div><div class="line"><a name="l08651"></a><span class="lineno"> 8651</span>  case NODE_RETURN:</div><div class="line"><a name="l08652"></a><span class="lineno"> 8652</span>  case NODE_BREAK:</div><div class="line"><a name="l08653"></a><span class="lineno"> 8653</span>  case NODE_NEXT:</div><div class="line"><a name="l08654"></a><span class="lineno"> 8654</span>  case NODE_REDO:</div><div class="line"><a name="l08655"></a><span class="lineno"> 8655</span>  case NODE_RETRY:</div><div class="line"><a name="l08656"></a><span class="lineno"> 8656</span>  if (!cond) yyerror("void value expression");</div><div class="line"><a name="l08657"></a><span class="lineno"> 8657</span>  /* or "control never reach"? */</div><div class="line"><a name="l08658"></a><span class="lineno"> 8658</span>  return FALSE;</div><div class="line"><a name="l08659"></a><span class="lineno"> 8659</span> </div><div class="line"><a name="l08660"></a><span class="lineno"> 8660</span>  case NODE_BLOCK:</div><div class="line"><a name="l08661"></a><span class="lineno"> 8661</span>  while (node->nd_next) {</div><div class="line"><a name="l08662"></a><span class="lineno"> 8662</span>  node = node->nd_next;</div><div class="line"><a name="l08663"></a><span class="lineno"> 8663</span>  }</div><div class="line"><a name="l08664"></a><span class="lineno"> 8664</span>  node = node->nd_head;</div><div class="line"><a name="l08665"></a><span class="lineno"> 8665</span>  break;</div><div class="line"><a name="l08666"></a><span class="lineno"> 8666</span> </div><div class="line"><a name="l08667"></a><span class="lineno"> 8667</span>  case NODE_BEGIN:</div><div class="line"><a name="l08668"></a><span class="lineno"> 8668</span>  node = node->nd_body;</div><div class="line"><a name="l08669"></a><span class="lineno"> 8669</span>  break;</div><div class="line"><a name="l08670"></a><span class="lineno"> 8670</span> </div><div class="line"><a name="l08671"></a><span class="lineno"> 8671</span>  case NODE_IF:</div><div class="line"><a name="l08672"></a><span class="lineno"> 8672</span>  if (!node->nd_body) {</div><div class="line"><a name="l08673"></a><span class="lineno"> 8673</span>  node = node->nd_else;</div><div class="line"><a name="l08674"></a><span class="lineno"> 8674</span>  break;</div><div class="line"><a name="l08675"></a><span class="lineno"> 8675</span>  }</div><div class="line"><a name="l08676"></a><span class="lineno"> 8676</span>  else if (!node->nd_else) {</div><div class="line"><a name="l08677"></a><span class="lineno"> 8677</span>  node = node->nd_body;</div><div class="line"><a name="l08678"></a><span class="lineno"> 8678</span>  break;</div><div class="line"><a name="l08679"></a><span class="lineno"> 8679</span>  }</div><div class="line"><a name="l08680"></a><span class="lineno"> 8680</span>  if (!value_expr(node->nd_body)) return FALSE;</div><div class="line"><a name="l08681"></a><span class="lineno"> 8681</span>  node = node->nd_else;</div><div class="line"><a name="l08682"></a><span class="lineno"> 8682</span>  break;</div><div class="line"><a name="l08683"></a><span class="lineno"> 8683</span> </div><div class="line"><a name="l08684"></a><span class="lineno"> 8684</span>  case NODE_AND:</div><div class="line"><a name="l08685"></a><span class="lineno"> 8685</span>  case NODE_OR:</div><div class="line"><a name="l08686"></a><span class="lineno"> 8686</span>  cond = 1;</div><div class="line"><a name="l08687"></a><span class="lineno"> 8687</span>  node = node->nd_2nd;</div><div class="line"><a name="l08688"></a><span class="lineno"> 8688</span>  break;</div><div class="line"><a name="l08689"></a><span class="lineno"> 8689</span> </div><div class="line"><a name="l08690"></a><span class="lineno"> 8690</span>  default:</div><div class="line"><a name="l08691"></a><span class="lineno"> 8691</span>  return TRUE;</div><div class="line"><a name="l08692"></a><span class="lineno"> 8692</span>  }</div><div class="line"><a name="l08693"></a><span class="lineno"> 8693</span>  }</div><div class="line"><a name="l08694"></a><span class="lineno"> 8694</span> </div><div class="line"><a name="l08695"></a><span class="lineno"> 8695</span>  return TRUE;</div><div class="line"><a name="l08696"></a><span class="lineno"> 8696</span> }</div><div class="line"><a name="l08697"></a><span class="lineno"> 8697</span> </div><div class="line"><a name="l08698"></a><span class="lineno"> 8698</span> static void</div><div class="line"><a name="l08699"></a><span class="lineno"> 8699</span> void_expr_gen(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l08700"></a><span class="lineno"> 8700</span> {</div><div class="line"><a name="l08701"></a><span class="lineno"> 8701</span>  const char *useless = 0;</div><div class="line"><a name="l08702"></a><span class="lineno"> 8702</span> </div><div class="line"><a name="l08703"></a><span class="lineno"> 8703</span>  if (!RTEST(ruby_verbose)) return;</div><div class="line"><a name="l08704"></a><span class="lineno"> 8704</span> </div><div class="line"><a name="l08705"></a><span class="lineno"> 8705</span>  if (!node) return;</div><div class="line"><a name="l08706"></a><span class="lineno"> 8706</span>  switch (nd_type(node)) {</div><div class="line"><a name="l08707"></a><span class="lineno"> 8707</span>  case NODE_CALL:</div><div class="line"><a name="l08708"></a><span class="lineno"> 8708</span>  switch (node->nd_mid) {</div><div class="line"><a name="l08709"></a><span class="lineno"> 8709</span>  case '+':</div><div class="line"><a name="l08710"></a><span class="lineno"> 8710</span>  case '-':</div><div class="line"><a name="l08711"></a><span class="lineno"> 8711</span>  case '*':</div><div class="line"><a name="l08712"></a><span class="lineno"> 8712</span>  case '/':</div><div class="line"><a name="l08713"></a><span class="lineno"> 8713</span>  case '%':</div><div class="line"><a name="l08714"></a><span class="lineno"> 8714</span>  case tPOW:</div><div class="line"><a name="l08715"></a><span class="lineno"> 8715</span>  case tUPLUS:</div><div class="line"><a name="l08716"></a><span class="lineno"> 8716</span>  case tUMINUS:</div><div class="line"><a name="l08717"></a><span class="lineno"> 8717</span>  case '|':</div><div class="line"><a name="l08718"></a><span class="lineno"> 8718</span>  case '^':</div><div class="line"><a name="l08719"></a><span class="lineno"> 8719</span>  case '&':</div><div class="line"><a name="l08720"></a><span class="lineno"> 8720</span>  case tCMP:</div><div class="line"><a name="l08721"></a><span class="lineno"> 8721</span>  case '>':</div><div class="line"><a name="l08722"></a><span class="lineno"> 8722</span>  case tGEQ:</div><div class="line"><a name="l08723"></a><span class="lineno"> 8723</span>  case '<':</div><div class="line"><a name="l08724"></a><span class="lineno"> 8724</span>  case tLEQ:</div><div class="line"><a name="l08725"></a><span class="lineno"> 8725</span>  case tEQ:</div><div class="line"><a name="l08726"></a><span class="lineno"> 8726</span>  case tNEQ:</div><div class="line"><a name="l08727"></a><span class="lineno"> 8727</span>  useless = rb_id2name(node->nd_mid);</div><div class="line"><a name="l08728"></a><span class="lineno"> 8728</span>  break;</div><div class="line"><a name="l08729"></a><span class="lineno"> 8729</span>  }</div><div class="line"><a name="l08730"></a><span class="lineno"> 8730</span>  break;</div><div class="line"><a name="l08731"></a><span class="lineno"> 8731</span> </div><div class="line"><a name="l08732"></a><span class="lineno"> 8732</span>  case NODE_LVAR:</div><div class="line"><a name="l08733"></a><span class="lineno"> 8733</span>  case NODE_DVAR:</div><div class="line"><a name="l08734"></a><span class="lineno"> 8734</span>  case NODE_GVAR:</div><div class="line"><a name="l08735"></a><span class="lineno"> 8735</span>  case NODE_IVAR:</div><div class="line"><a name="l08736"></a><span class="lineno"> 8736</span>  case NODE_CVAR:</div><div class="line"><a name="l08737"></a><span class="lineno"> 8737</span>  case NODE_NTH_REF:</div><div class="line"><a name="l08738"></a><span class="lineno"> 8738</span>  case NODE_BACK_REF:</div><div class="line"><a name="l08739"></a><span class="lineno"> 8739</span>  useless = "a variable";</div><div class="line"><a name="l08740"></a><span class="lineno"> 8740</span>  break;</div><div class="line"><a name="l08741"></a><span class="lineno"> 8741</span>  case NODE_CONST:</div><div class="line"><a name="l08742"></a><span class="lineno"> 8742</span>  useless = "a constant";</div><div class="line"><a name="l08743"></a><span class="lineno"> 8743</span>  break;</div><div class="line"><a name="l08744"></a><span class="lineno"> 8744</span>  case NODE_LIT:</div><div class="line"><a name="l08745"></a><span class="lineno"> 8745</span>  case NODE_STR:</div><div class="line"><a name="l08746"></a><span class="lineno"> 8746</span>  case NODE_DSTR:</div><div class="line"><a name="l08747"></a><span class="lineno"> 8747</span>  case NODE_DREGX:</div><div class="line"><a name="l08748"></a><span class="lineno"> 8748</span>  case NODE_DREGX_ONCE:</div><div class="line"><a name="l08749"></a><span class="lineno"> 8749</span>  useless = "a literal";</div><div class="line"><a name="l08750"></a><span class="lineno"> 8750</span>  break;</div><div class="line"><a name="l08751"></a><span class="lineno"> 8751</span>  case NODE_COLON2:</div><div class="line"><a name="l08752"></a><span class="lineno"> 8752</span>  case NODE_COLON3:</div><div class="line"><a name="l08753"></a><span class="lineno"> 8753</span>  useless = "::";</div><div class="line"><a name="l08754"></a><span class="lineno"> 8754</span>  break;</div><div class="line"><a name="l08755"></a><span class="lineno"> 8755</span>  case NODE_DOT2:</div><div class="line"><a name="l08756"></a><span class="lineno"> 8756</span>  useless = "..";</div><div class="line"><a name="l08757"></a><span class="lineno"> 8757</span>  break;</div><div class="line"><a name="l08758"></a><span class="lineno"> 8758</span>  case NODE_DOT3:</div><div class="line"><a name="l08759"></a><span class="lineno"> 8759</span>  useless = "...";</div><div class="line"><a name="l08760"></a><span class="lineno"> 8760</span>  break;</div><div class="line"><a name="l08761"></a><span class="lineno"> 8761</span>  case NODE_SELF:</div><div class="line"><a name="l08762"></a><span class="lineno"> 8762</span>  useless = "self";</div><div class="line"><a name="l08763"></a><span class="lineno"> 8763</span>  break;</div><div class="line"><a name="l08764"></a><span class="lineno"> 8764</span>  case NODE_NIL:</div><div class="line"><a name="l08765"></a><span class="lineno"> 8765</span>  useless = "nil";</div><div class="line"><a name="l08766"></a><span class="lineno"> 8766</span>  break;</div><div class="line"><a name="l08767"></a><span class="lineno"> 8767</span>  case NODE_TRUE:</div><div class="line"><a name="l08768"></a><span class="lineno"> 8768</span>  useless = "true";</div><div class="line"><a name="l08769"></a><span class="lineno"> 8769</span>  break;</div><div class="line"><a name="l08770"></a><span class="lineno"> 8770</span>  case NODE_FALSE:</div><div class="line"><a name="l08771"></a><span class="lineno"> 8771</span>  useless = "false";</div><div class="line"><a name="l08772"></a><span class="lineno"> 8772</span>  break;</div><div class="line"><a name="l08773"></a><span class="lineno"> 8773</span>  case NODE_DEFINED:</div><div class="line"><a name="l08774"></a><span class="lineno"> 8774</span>  useless = "defined?";</div><div class="line"><a name="l08775"></a><span class="lineno"> 8775</span>  break;</div><div class="line"><a name="l08776"></a><span class="lineno"> 8776</span>  }</div><div class="line"><a name="l08777"></a><span class="lineno"> 8777</span> </div><div class="line"><a name="l08778"></a><span class="lineno"> 8778</span>  if (useless) {</div><div class="line"><a name="l08779"></a><span class="lineno"> 8779</span>  int line = ruby_sourceline;</div><div class="line"><a name="l08780"></a><span class="lineno"> 8780</span> </div><div class="line"><a name="l08781"></a><span class="lineno"> 8781</span>  ruby_sourceline = nd_line(node);</div><div class="line"><a name="l08782"></a><span class="lineno"> 8782</span>  rb_warnS("possibly useless use of %s in void context", useless);</div><div class="line"><a name="l08783"></a><span class="lineno"> 8783</span>  ruby_sourceline = line;</div><div class="line"><a name="l08784"></a><span class="lineno"> 8784</span>  }</div><div class="line"><a name="l08785"></a><span class="lineno"> 8785</span> }</div><div class="line"><a name="l08786"></a><span class="lineno"> 8786</span> </div><div class="line"><a name="l08787"></a><span class="lineno"> 8787</span> static void</div><div class="line"><a name="l08788"></a><span class="lineno"> 8788</span> void_stmts_gen(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l08789"></a><span class="lineno"> 8789</span> {</div><div class="line"><a name="l08790"></a><span class="lineno"> 8790</span>  if (!RTEST(ruby_verbose)) return;</div><div class="line"><a name="l08791"></a><span class="lineno"> 8791</span>  if (!node) return;</div><div class="line"><a name="l08792"></a><span class="lineno"> 8792</span>  if (nd_type(node) != NODE_BLOCK) return;</div><div class="line"><a name="l08793"></a><span class="lineno"> 8793</span> </div><div class="line"><a name="l08794"></a><span class="lineno"> 8794</span>  for (;;) {</div><div class="line"><a name="l08795"></a><span class="lineno"> 8795</span>  if (!node->nd_next) return;</div><div class="line"><a name="l08796"></a><span class="lineno"> 8796</span>  void_expr0(node->nd_head);</div><div class="line"><a name="l08797"></a><span class="lineno"> 8797</span>  node = node->nd_next;</div><div class="line"><a name="l08798"></a><span class="lineno"> 8798</span>  }</div><div class="line"><a name="l08799"></a><span class="lineno"> 8799</span> }</div><div class="line"><a name="l08800"></a><span class="lineno"> 8800</span> </div><div class="line"><a name="l08801"></a><span class="lineno"> 8801</span> static NODE *</div><div class="line"><a name="l08802"></a><span class="lineno"> 8802</span> remove_begin(NODE *node)</div><div class="line"><a name="l08803"></a><span class="lineno"> 8803</span> {</div><div class="line"><a name="l08804"></a><span class="lineno"> 8804</span>  NODE **n = &node, *n1 = node;</div><div class="line"><a name="l08805"></a><span class="lineno"> 8805</span>  while (n1 && nd_type(n1) == NODE_BEGIN && n1->nd_body) {</div><div class="line"><a name="l08806"></a><span class="lineno"> 8806</span>  *n = n1 = n1->nd_body;</div><div class="line"><a name="l08807"></a><span class="lineno"> 8807</span>  }</div><div class="line"><a name="l08808"></a><span class="lineno"> 8808</span>  return node;</div><div class="line"><a name="l08809"></a><span class="lineno"> 8809</span> }</div><div class="line"><a name="l08810"></a><span class="lineno"> 8810</span> </div><div class="line"><a name="l08811"></a><span class="lineno"> 8811</span> static void</div><div class="line"><a name="l08812"></a><span class="lineno"> 8812</span> reduce_nodes_gen(struct parser_params *parser, NODE **body)</div><div class="line"><a name="l08813"></a><span class="lineno"> 8813</span> {</div><div class="line"><a name="l08814"></a><span class="lineno"> 8814</span>  NODE *node = *body;</div><div class="line"><a name="l08815"></a><span class="lineno"> 8815</span> </div><div class="line"><a name="l08816"></a><span class="lineno"> 8816</span>  if (!node) {</div><div class="line"><a name="l08817"></a><span class="lineno"> 8817</span>  *body = NEW_NIL();</div><div class="line"><a name="l08818"></a><span class="lineno"> 8818</span>  return;</div><div class="line"><a name="l08819"></a><span class="lineno"> 8819</span>  }</div><div class="line"><a name="l08820"></a><span class="lineno"> 8820</span> #define subnodes(n1, n2) \</div><div class="line"><a name="l08821"></a><span class="lineno"> 8821</span>  ((!node->n1) ? (node->n2 ? (body = &node->n2, 1) : 0) : \</div><div class="line"><a name="l08822"></a><span class="lineno"> 8822</span>  (!node->n2) ? (body = &node->n1, 1) : \</div><div class="line"><a name="l08823"></a><span class="lineno"> 8823</span>  (reduce_nodes(&node->n1), body = &node->n2, 1))</div><div class="line"><a name="l08824"></a><span class="lineno"> 8824</span> </div><div class="line"><a name="l08825"></a><span class="lineno"> 8825</span>  while (node) {</div><div class="line"><a name="l08826"></a><span class="lineno"> 8826</span>  int newline = (int)(node->flags & NODE_FL_NEWLINE);</div><div class="line"><a name="l08827"></a><span class="lineno"> 8827</span>  switch (nd_type(node)) {</div><div class="line"><a name="l08828"></a><span class="lineno"> 8828</span>  end:</div><div class="line"><a name="l08829"></a><span class="lineno"> 8829</span>  case NODE_NIL:</div><div class="line"><a name="l08830"></a><span class="lineno"> 8830</span>  *body = 0;</div><div class="line"><a name="l08831"></a><span class="lineno"> 8831</span>  return;</div><div class="line"><a name="l08832"></a><span class="lineno"> 8832</span>  case NODE_RETURN:</div><div class="line"><a name="l08833"></a><span class="lineno"> 8833</span>  *body = node = node->nd_stts;</div><div class="line"><a name="l08834"></a><span class="lineno"> 8834</span>  if (newline && node) node->flags |= NODE_FL_NEWLINE;</div><div class="line"><a name="l08835"></a><span class="lineno"> 8835</span>  continue;</div><div class="line"><a name="l08836"></a><span class="lineno"> 8836</span>  case NODE_BEGIN:</div><div class="line"><a name="l08837"></a><span class="lineno"> 8837</span>  *body = node = node->nd_body;</div><div class="line"><a name="l08838"></a><span class="lineno"> 8838</span>  if (newline && node) node->flags |= NODE_FL_NEWLINE;</div><div class="line"><a name="l08839"></a><span class="lineno"> 8839</span>  continue;</div><div class="line"><a name="l08840"></a><span class="lineno"> 8840</span>  case NODE_BLOCK:</div><div class="line"><a name="l08841"></a><span class="lineno"> 8841</span>  body = &node->nd_end->nd_head;</div><div class="line"><a name="l08842"></a><span class="lineno"> 8842</span>  break;</div><div class="line"><a name="l08843"></a><span class="lineno"> 8843</span>  case NODE_IF:</div><div class="line"><a name="l08844"></a><span class="lineno"> 8844</span>  if (subnodes(nd_body, nd_else)) break;</div><div class="line"><a name="l08845"></a><span class="lineno"> 8845</span>  return;</div><div class="line"><a name="l08846"></a><span class="lineno"> 8846</span>  case NODE_CASE:</div><div class="line"><a name="l08847"></a><span class="lineno"> 8847</span>  body = &node->nd_body;</div><div class="line"><a name="l08848"></a><span class="lineno"> 8848</span>  break;</div><div class="line"><a name="l08849"></a><span class="lineno"> 8849</span>  case NODE_WHEN:</div><div class="line"><a name="l08850"></a><span class="lineno"> 8850</span>  if (!subnodes(nd_body, nd_next)) goto end;</div><div class="line"><a name="l08851"></a><span class="lineno"> 8851</span>  break;</div><div class="line"><a name="l08852"></a><span class="lineno"> 8852</span>  case NODE_ENSURE:</div><div class="line"><a name="l08853"></a><span class="lineno"> 8853</span>  if (!subnodes(nd_head, nd_resq)) goto end;</div><div class="line"><a name="l08854"></a><span class="lineno"> 8854</span>  break;</div><div class="line"><a name="l08855"></a><span class="lineno"> 8855</span>  case NODE_RESCUE:</div><div class="line"><a name="l08856"></a><span class="lineno"> 8856</span>  if (node->nd_else) {</div><div class="line"><a name="l08857"></a><span class="lineno"> 8857</span>  body = &node->nd_resq;</div><div class="line"><a name="l08858"></a><span class="lineno"> 8858</span>  break;</div><div class="line"><a name="l08859"></a><span class="lineno"> 8859</span>  }</div><div class="line"><a name="l08860"></a><span class="lineno"> 8860</span>  if (!subnodes(nd_head, nd_resq)) goto end;</div><div class="line"><a name="l08861"></a><span class="lineno"> 8861</span>  break;</div><div class="line"><a name="l08862"></a><span class="lineno"> 8862</span>  default:</div><div class="line"><a name="l08863"></a><span class="lineno"> 8863</span>  return;</div><div class="line"><a name="l08864"></a><span class="lineno"> 8864</span>  }</div><div class="line"><a name="l08865"></a><span class="lineno"> 8865</span>  node = *body;</div><div class="line"><a name="l08866"></a><span class="lineno"> 8866</span>  if (newline && node) node->flags |= NODE_FL_NEWLINE;</div><div class="line"><a name="l08867"></a><span class="lineno"> 8867</span>  }</div><div class="line"><a name="l08868"></a><span class="lineno"> 8868</span> </div><div class="line"><a name="l08869"></a><span class="lineno"> 8869</span> #undef subnodes</div><div class="line"><a name="l08870"></a><span class="lineno"> 8870</span> }</div><div class="line"><a name="l08871"></a><span class="lineno"> 8871</span> </div><div class="line"><a name="l08872"></a><span class="lineno"> 8872</span> static int</div><div class="line"><a name="l08873"></a><span class="lineno"> 8873</span> assign_in_cond(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l08874"></a><span class="lineno"> 8874</span> {</div><div class="line"><a name="l08875"></a><span class="lineno"> 8875</span>  switch (nd_type(node)) {</div><div class="line"><a name="l08876"></a><span class="lineno"> 8876</span>  case NODE_MASGN:</div><div class="line"><a name="l08877"></a><span class="lineno"> 8877</span>  yyerror("multiple assignment in conditional");</div><div class="line"><a name="l08878"></a><span class="lineno"> 8878</span>  return 1;</div><div class="line"><a name="l08879"></a><span class="lineno"> 8879</span> </div><div class="line"><a name="l08880"></a><span class="lineno"> 8880</span>  case NODE_LASGN:</div><div class="line"><a name="l08881"></a><span class="lineno"> 8881</span>  case NODE_DASGN:</div><div class="line"><a name="l08882"></a><span class="lineno"> 8882</span>  case NODE_DASGN_CURR:</div><div class="line"><a name="l08883"></a><span class="lineno"> 8883</span>  case NODE_GASGN:</div><div class="line"><a name="l08884"></a><span class="lineno"> 8884</span>  case NODE_IASGN:</div><div class="line"><a name="l08885"></a><span class="lineno"> 8885</span>  break;</div><div class="line"><a name="l08886"></a><span class="lineno"> 8886</span> </div><div class="line"><a name="l08887"></a><span class="lineno"> 8887</span>  default:</div><div class="line"><a name="l08888"></a><span class="lineno"> 8888</span>  return 0;</div><div class="line"><a name="l08889"></a><span class="lineno"> 8889</span>  }</div><div class="line"><a name="l08890"></a><span class="lineno"> 8890</span> </div><div class="line"><a name="l08891"></a><span class="lineno"> 8891</span>  if (!node->nd_value) return 1;</div><div class="line"><a name="l08892"></a><span class="lineno"> 8892</span>  switch (nd_type(node->nd_value)) {</div><div class="line"><a name="l08893"></a><span class="lineno"> 8893</span>  case NODE_LIT:</div><div class="line"><a name="l08894"></a><span class="lineno"> 8894</span>  case NODE_STR:</div><div class="line"><a name="l08895"></a><span class="lineno"> 8895</span>  case NODE_NIL:</div><div class="line"><a name="l08896"></a><span class="lineno"> 8896</span>  case NODE_TRUE:</div><div class="line"><a name="l08897"></a><span class="lineno"> 8897</span>  case NODE_FALSE:</div><div class="line"><a name="l08898"></a><span class="lineno"> 8898</span>  /* reports always */</div><div class="line"><a name="l08899"></a><span class="lineno"> 8899</span>  parser_warn(node->nd_value, "found = in conditional, should be ==");</div><div class="line"><a name="l08900"></a><span class="lineno"> 8900</span>  return 1;</div><div class="line"><a name="l08901"></a><span class="lineno"> 8901</span> </div><div class="line"><a name="l08902"></a><span class="lineno"> 8902</span>  case NODE_DSTR:</div><div class="line"><a name="l08903"></a><span class="lineno"> 8903</span>  case NODE_XSTR:</div><div class="line"><a name="l08904"></a><span class="lineno"> 8904</span>  case NODE_DXSTR:</div><div class="line"><a name="l08905"></a><span class="lineno"> 8905</span>  case NODE_EVSTR:</div><div class="line"><a name="l08906"></a><span class="lineno"> 8906</span>  case NODE_DREGX:</div><div class="line"><a name="l08907"></a><span class="lineno"> 8907</span>  default:</div><div class="line"><a name="l08908"></a><span class="lineno"> 8908</span>  break;</div><div class="line"><a name="l08909"></a><span class="lineno"> 8909</span>  }</div><div class="line"><a name="l08910"></a><span class="lineno"> 8910</span>  return 1;</div><div class="line"><a name="l08911"></a><span class="lineno"> 8911</span> }</div><div class="line"><a name="l08912"></a><span class="lineno"> 8912</span> </div><div class="line"><a name="l08913"></a><span class="lineno"> 8913</span> static void</div><div class="line"><a name="l08914"></a><span class="lineno"> 8914</span> warn_unless_e_option(struct parser_params *parser, NODE *node, const char *str)</div><div class="line"><a name="l08915"></a><span class="lineno"> 8915</span> {</div><div class="line"><a name="l08916"></a><span class="lineno"> 8916</span>  if (!e_option_supplied(parser)) parser_warn(node, str);</div><div class="line"><a name="l08917"></a><span class="lineno"> 8917</span> }</div><div class="line"><a name="l08918"></a><span class="lineno"> 8918</span> </div><div class="line"><a name="l08919"></a><span class="lineno"> 8919</span> static void</div><div class="line"><a name="l08920"></a><span class="lineno"> 8920</span> warning_unless_e_option(struct parser_params *parser, NODE *node, const char *str)</div><div class="line"><a name="l08921"></a><span class="lineno"> 8921</span> {</div><div class="line"><a name="l08922"></a><span class="lineno"> 8922</span>  if (!e_option_supplied(parser)) parser_warning(node, str);</div><div class="line"><a name="l08923"></a><span class="lineno"> 8923</span> }</div><div class="line"><a name="l08924"></a><span class="lineno"> 8924</span> </div><div class="line"><a name="l08925"></a><span class="lineno"> 8925</span> static void</div><div class="line"><a name="l08926"></a><span class="lineno"> 8926</span> fixup_nodes(NODE **rootnode)</div><div class="line"><a name="l08927"></a><span class="lineno"> 8927</span> {</div><div class="line"><a name="l08928"></a><span class="lineno"> 8928</span>  NODE *node, *next, *head;</div><div class="line"><a name="l08929"></a><span class="lineno"> 8929</span> </div><div class="line"><a name="l08930"></a><span class="lineno"> 8930</span>  for (node = *rootnode; node; node = next) {</div><div class="line"><a name="l08931"></a><span class="lineno"> 8931</span>  enum node_type type;</div><div class="line"><a name="l08932"></a><span class="lineno"> 8932</span>  VALUE val;</div><div class="line"><a name="l08933"></a><span class="lineno"> 8933</span> </div><div class="line"><a name="l08934"></a><span class="lineno"> 8934</span>  next = node->nd_next;</div><div class="line"><a name="l08935"></a><span class="lineno"> 8935</span>  head = node->nd_head;</div><div class="line"><a name="l08936"></a><span class="lineno"> 8936</span>  rb_gc_force_recycle((VALUE)node);</div><div class="line"><a name="l08937"></a><span class="lineno"> 8937</span>  *rootnode = next;</div><div class="line"><a name="l08938"></a><span class="lineno"> 8938</span>  switch (type = nd_type(head)) {</div><div class="line"><a name="l08939"></a><span class="lineno"> 8939</span>  case NODE_DOT2:</div><div class="line"><a name="l08940"></a><span class="lineno"> 8940</span>  case NODE_DOT3:</div><div class="line"><a name="l08941"></a><span class="lineno"> 8941</span>  val = rb_range_new(head->nd_beg->nd_lit, head->nd_end->nd_lit,</div><div class="line"><a name="l08942"></a><span class="lineno"> 8942</span>  type == NODE_DOT3);</div><div class="line"><a name="l08943"></a><span class="lineno"> 8943</span>  rb_gc_force_recycle((VALUE)head->nd_beg);</div><div class="line"><a name="l08944"></a><span class="lineno"> 8944</span>  rb_gc_force_recycle((VALUE)head->nd_end);</div><div class="line"><a name="l08945"></a><span class="lineno"> 8945</span>  nd_set_type(head, NODE_LIT);</div><div class="line"><a name="l08946"></a><span class="lineno"> 8946</span>  head->nd_lit = val;</div><div class="line"><a name="l08947"></a><span class="lineno"> 8947</span>  break;</div><div class="line"><a name="l08948"></a><span class="lineno"> 8948</span>  default:</div><div class="line"><a name="l08949"></a><span class="lineno"> 8949</span>  break;</div><div class="line"><a name="l08950"></a><span class="lineno"> 8950</span>  }</div><div class="line"><a name="l08951"></a><span class="lineno"> 8951</span>  }</div><div class="line"><a name="l08952"></a><span class="lineno"> 8952</span> }</div><div class="line"><a name="l08953"></a><span class="lineno"> 8953</span> </div><div class="line"><a name="l08954"></a><span class="lineno"> 8954</span> static NODE *cond0(struct parser_params*,NODE*);</div><div class="line"><a name="l08955"></a><span class="lineno"> 8955</span> </div><div class="line"><a name="l08956"></a><span class="lineno"> 8956</span> static NODE*</div><div class="line"><a name="l08957"></a><span class="lineno"> 8957</span> range_op(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l08958"></a><span class="lineno"> 8958</span> {</div><div class="line"><a name="l08959"></a><span class="lineno"> 8959</span>  enum node_type type;</div><div class="line"><a name="l08960"></a><span class="lineno"> 8960</span> </div><div class="line"><a name="l08961"></a><span class="lineno"> 8961</span>  if (node == 0) return 0;</div><div class="line"><a name="l08962"></a><span class="lineno"> 8962</span> </div><div class="line"><a name="l08963"></a><span class="lineno"> 8963</span>  type = nd_type(node);</div><div class="line"><a name="l08964"></a><span class="lineno"> 8964</span>  value_expr(node);</div><div class="line"><a name="l08965"></a><span class="lineno"> 8965</span>  if (type == NODE_LIT && FIXNUM_P(node->nd_lit)) {</div><div class="line"><a name="l08966"></a><span class="lineno"> 8966</span>  warn_unless_e_option(parser, node, "integer literal in conditional range");</div><div class="line"><a name="l08967"></a><span class="lineno"> 8967</span>  return NEW_CALL(node, tEQ, NEW_LIST(NEW_GVAR(rb_intern("$."))));</div><div class="line"><a name="l08968"></a><span class="lineno"> 8968</span>  }</div><div class="line"><a name="l08969"></a><span class="lineno"> 8969</span>  return cond0(parser, node);</div><div class="line"><a name="l08970"></a><span class="lineno"> 8970</span> }</div><div class="line"><a name="l08971"></a><span class="lineno"> 8971</span> </div><div class="line"><a name="l08972"></a><span class="lineno"> 8972</span> static int</div><div class="line"><a name="l08973"></a><span class="lineno"> 8973</span> literal_node(NODE *node)</div><div class="line"><a name="l08974"></a><span class="lineno"> 8974</span> {</div><div class="line"><a name="l08975"></a><span class="lineno"> 8975</span>  if (!node) return 1; /* same as NODE_NIL */</div><div class="line"><a name="l08976"></a><span class="lineno"> 8976</span>  switch (nd_type(node)) {</div><div class="line"><a name="l08977"></a><span class="lineno"> 8977</span>  case NODE_LIT:</div><div class="line"><a name="l08978"></a><span class="lineno"> 8978</span>  case NODE_STR:</div><div class="line"><a name="l08979"></a><span class="lineno"> 8979</span>  case NODE_DSTR:</div><div class="line"><a name="l08980"></a><span class="lineno"> 8980</span>  case NODE_EVSTR:</div><div class="line"><a name="l08981"></a><span class="lineno"> 8981</span>  case NODE_DREGX:</div><div class="line"><a name="l08982"></a><span class="lineno"> 8982</span>  case NODE_DREGX_ONCE:</div><div class="line"><a name="l08983"></a><span class="lineno"> 8983</span>  case NODE_DSYM:</div><div class="line"><a name="l08984"></a><span class="lineno"> 8984</span>  return 2;</div><div class="line"><a name="l08985"></a><span class="lineno"> 8985</span>  case NODE_TRUE:</div><div class="line"><a name="l08986"></a><span class="lineno"> 8986</span>  case NODE_FALSE:</div><div class="line"><a name="l08987"></a><span class="lineno"> 8987</span>  case NODE_NIL:</div><div class="line"><a name="l08988"></a><span class="lineno"> 8988</span>  return 1;</div><div class="line"><a name="l08989"></a><span class="lineno"> 8989</span>  }</div><div class="line"><a name="l08990"></a><span class="lineno"> 8990</span>  return 0;</div><div class="line"><a name="l08991"></a><span class="lineno"> 8991</span> }</div><div class="line"><a name="l08992"></a><span class="lineno"> 8992</span> </div><div class="line"><a name="l08993"></a><span class="lineno"> 8993</span> static NODE*</div><div class="line"><a name="l08994"></a><span class="lineno"> 8994</span> cond0(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l08995"></a><span class="lineno"> 8995</span> {</div><div class="line"><a name="l08996"></a><span class="lineno"> 8996</span>  if (node == 0) return 0;</div><div class="line"><a name="l08997"></a><span class="lineno"> 8997</span>  assign_in_cond(parser, node);</div><div class="line"><a name="l08998"></a><span class="lineno"> 8998</span> </div><div class="line"><a name="l08999"></a><span class="lineno"> 8999</span>  switch (nd_type(node)) {</div><div class="line"><a name="l09000"></a><span class="lineno"> 9000</span>  case NODE_DSTR:</div><div class="line"><a name="l09001"></a><span class="lineno"> 9001</span>  case NODE_EVSTR:</div><div class="line"><a name="l09002"></a><span class="lineno"> 9002</span>  case NODE_STR:</div><div class="line"><a name="l09003"></a><span class="lineno"> 9003</span>  rb_warn0("string literal in condition");</div><div class="line"><a name="l09004"></a><span class="lineno"> 9004</span>  break;</div><div class="line"><a name="l09005"></a><span class="lineno"> 9005</span> </div><div class="line"><a name="l09006"></a><span class="lineno"> 9006</span>  case NODE_DREGX:</div><div class="line"><a name="l09007"></a><span class="lineno"> 9007</span>  case NODE_DREGX_ONCE:</div><div class="line"><a name="l09008"></a><span class="lineno"> 9008</span>  warning_unless_e_option(parser, node, "regex literal in condition");</div><div class="line"><a name="l09009"></a><span class="lineno"> 9009</span>  return NEW_MATCH2(node, NEW_GVAR(rb_intern("$_")));</div><div class="line"><a name="l09010"></a><span class="lineno"> 9010</span> </div><div class="line"><a name="l09011"></a><span class="lineno"> 9011</span>  case NODE_AND:</div><div class="line"><a name="l09012"></a><span class="lineno"> 9012</span>  case NODE_OR:</div><div class="line"><a name="l09013"></a><span class="lineno"> 9013</span>  node->nd_1st = cond0(parser, node->nd_1st);</div><div class="line"><a name="l09014"></a><span class="lineno"> 9014</span>  node->nd_2nd = cond0(parser, node->nd_2nd);</div><div class="line"><a name="l09015"></a><span class="lineno"> 9015</span>  break;</div><div class="line"><a name="l09016"></a><span class="lineno"> 9016</span> </div><div class="line"><a name="l09017"></a><span class="lineno"> 9017</span>  case NODE_DOT2:</div><div class="line"><a name="l09018"></a><span class="lineno"> 9018</span>  case NODE_DOT3:</div><div class="line"><a name="l09019"></a><span class="lineno"> 9019</span>  node->nd_beg = range_op(parser, node->nd_beg);</div><div class="line"><a name="l09020"></a><span class="lineno"> 9020</span>  node->nd_end = range_op(parser, node->nd_end);</div><div class="line"><a name="l09021"></a><span class="lineno"> 9021</span>  if (nd_type(node) == NODE_DOT2) nd_set_type(node,NODE_FLIP2);</div><div class="line"><a name="l09022"></a><span class="lineno"> 9022</span>  else if (nd_type(node) == NODE_DOT3) nd_set_type(node, NODE_FLIP3);</div><div class="line"><a name="l09023"></a><span class="lineno"> 9023</span>  if (!e_option_supplied(parser)) {</div><div class="line"><a name="l09024"></a><span class="lineno"> 9024</span>  int b = literal_node(node->nd_beg);</div><div class="line"><a name="l09025"></a><span class="lineno"> 9025</span>  int e = literal_node(node->nd_end);</div><div class="line"><a name="l09026"></a><span class="lineno"> 9026</span>  if ((b == 1 && e == 1) || (b + e >= 2 && RTEST(ruby_verbose))) {</div><div class="line"><a name="l09027"></a><span class="lineno"> 9027</span>  parser_warn(node, "range literal in condition");</div><div class="line"><a name="l09028"></a><span class="lineno"> 9028</span>  }</div><div class="line"><a name="l09029"></a><span class="lineno"> 9029</span>  }</div><div class="line"><a name="l09030"></a><span class="lineno"> 9030</span>  break;</div><div class="line"><a name="l09031"></a><span class="lineno"> 9031</span> </div><div class="line"><a name="l09032"></a><span class="lineno"> 9032</span>  case NODE_DSYM:</div><div class="line"><a name="l09033"></a><span class="lineno"> 9033</span>  parser_warning(node, "literal in condition");</div><div class="line"><a name="l09034"></a><span class="lineno"> 9034</span>  break;</div><div class="line"><a name="l09035"></a><span class="lineno"> 9035</span> </div><div class="line"><a name="l09036"></a><span class="lineno"> 9036</span>  case NODE_LIT:</div><div class="line"><a name="l09037"></a><span class="lineno"> 9037</span>  if (TYPE(node->nd_lit) == T_REGEXP) {</div><div class="line"><a name="l09038"></a><span class="lineno"> 9038</span>  warn_unless_e_option(parser, node, "regex literal in condition");</div><div class="line"><a name="l09039"></a><span class="lineno"> 9039</span>  nd_set_type(node, NODE_MATCH);</div><div class="line"><a name="l09040"></a><span class="lineno"> 9040</span>  }</div><div class="line"><a name="l09041"></a><span class="lineno"> 9041</span>  else {</div><div class="line"><a name="l09042"></a><span class="lineno"> 9042</span>  parser_warning(node, "literal in condition");</div><div class="line"><a name="l09043"></a><span class="lineno"> 9043</span>  }</div><div class="line"><a name="l09044"></a><span class="lineno"> 9044</span>  default:</div><div class="line"><a name="l09045"></a><span class="lineno"> 9045</span>  break;</div><div class="line"><a name="l09046"></a><span class="lineno"> 9046</span>  }</div><div class="line"><a name="l09047"></a><span class="lineno"> 9047</span>  return node;</div><div class="line"><a name="l09048"></a><span class="lineno"> 9048</span> }</div><div class="line"><a name="l09049"></a><span class="lineno"> 9049</span> </div><div class="line"><a name="l09050"></a><span class="lineno"> 9050</span> static NODE*</div><div class="line"><a name="l09051"></a><span class="lineno"> 9051</span> cond_gen(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l09052"></a><span class="lineno"> 9052</span> {</div><div class="line"><a name="l09053"></a><span class="lineno"> 9053</span>  if (node == 0) return 0;</div><div class="line"><a name="l09054"></a><span class="lineno"> 9054</span>  return cond0(parser, node);</div><div class="line"><a name="l09055"></a><span class="lineno"> 9055</span> }</div><div class="line"><a name="l09056"></a><span class="lineno"> 9056</span> </div><div class="line"><a name="l09057"></a><span class="lineno"> 9057</span> static NODE*</div><div class="line"><a name="l09058"></a><span class="lineno"> 9058</span> logop_gen(struct parser_params *parser, enum node_type type, NODE *left, NODE *right)</div><div class="line"><a name="l09059"></a><span class="lineno"> 9059</span> {</div><div class="line"><a name="l09060"></a><span class="lineno"> 9060</span>  value_expr(left);</div><div class="line"><a name="l09061"></a><span class="lineno"> 9061</span>  if (left && (enum node_type)nd_type(left) == type) {</div><div class="line"><a name="l09062"></a><span class="lineno"> 9062</span>  NODE *node = left, *second;</div><div class="line"><a name="l09063"></a><span class="lineno"> 9063</span>  while ((second = node->nd_2nd) != 0 && (enum node_type)nd_type(second) == type) {</div><div class="line"><a name="l09064"></a><span class="lineno"> 9064</span>  node = second;</div><div class="line"><a name="l09065"></a><span class="lineno"> 9065</span>  }</div><div class="line"><a name="l09066"></a><span class="lineno"> 9066</span>  node->nd_2nd = NEW_NODE(type, second, right, 0);</div><div class="line"><a name="l09067"></a><span class="lineno"> 9067</span>  return left;</div><div class="line"><a name="l09068"></a><span class="lineno"> 9068</span>  }</div><div class="line"><a name="l09069"></a><span class="lineno"> 9069</span>  return NEW_NODE(type, left, right, 0);</div><div class="line"><a name="l09070"></a><span class="lineno"> 9070</span> }</div><div class="line"><a name="l09071"></a><span class="lineno"> 9071</span> </div><div class="line"><a name="l09072"></a><span class="lineno"> 9072</span> static void</div><div class="line"><a name="l09073"></a><span class="lineno"> 9073</span> no_blockarg(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l09074"></a><span class="lineno"> 9074</span> {</div><div class="line"><a name="l09075"></a><span class="lineno"> 9075</span>  if (node && nd_type(node) == NODE_BLOCK_PASS) {</div><div class="line"><a name="l09076"></a><span class="lineno"> 9076</span>  compile_error(PARSER_ARG "block argument should not be given");</div><div class="line"><a name="l09077"></a><span class="lineno"> 9077</span>  }</div><div class="line"><a name="l09078"></a><span class="lineno"> 9078</span> }</div><div class="line"><a name="l09079"></a><span class="lineno"> 9079</span> </div><div class="line"><a name="l09080"></a><span class="lineno"> 9080</span> static NODE *</div><div class="line"><a name="l09081"></a><span class="lineno"> 9081</span> ret_args_gen(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l09082"></a><span class="lineno"> 9082</span> {</div><div class="line"><a name="l09083"></a><span class="lineno"> 9083</span>  if (node) {</div><div class="line"><a name="l09084"></a><span class="lineno"> 9084</span>  no_blockarg(parser, node);</div><div class="line"><a name="l09085"></a><span class="lineno"> 9085</span>  if (nd_type(node) == NODE_ARRAY) {</div><div class="line"><a name="l09086"></a><span class="lineno"> 9086</span>  if (node->nd_next == 0) {</div><div class="line"><a name="l09087"></a><span class="lineno"> 9087</span>  node = node->nd_head;</div><div class="line"><a name="l09088"></a><span class="lineno"> 9088</span>  }</div><div class="line"><a name="l09089"></a><span class="lineno"> 9089</span>  else {</div><div class="line"><a name="l09090"></a><span class="lineno"> 9090</span>  nd_set_type(node, NODE_VALUES);</div><div class="line"><a name="l09091"></a><span class="lineno"> 9091</span>  }</div><div class="line"><a name="l09092"></a><span class="lineno"> 9092</span>  }</div><div class="line"><a name="l09093"></a><span class="lineno"> 9093</span>  }</div><div class="line"><a name="l09094"></a><span class="lineno"> 9094</span>  return node;</div><div class="line"><a name="l09095"></a><span class="lineno"> 9095</span> }</div><div class="line"><a name="l09096"></a><span class="lineno"> 9096</span> </div><div class="line"><a name="l09097"></a><span class="lineno"> 9097</span> static NODE *</div><div class="line"><a name="l09098"></a><span class="lineno"> 9098</span> new_yield_gen(struct parser_params *parser, NODE *node)</div><div class="line"><a name="l09099"></a><span class="lineno"> 9099</span> {</div><div class="line"><a name="l09100"></a><span class="lineno"> 9100</span>  long state = Qtrue;</div><div class="line"><a name="l09101"></a><span class="lineno"> 9101</span> </div><div class="line"><a name="l09102"></a><span class="lineno"> 9102</span>  if (node) {</div><div class="line"><a name="l09103"></a><span class="lineno"> 9103</span>  no_blockarg(parser, node);</div><div class="line"><a name="l09104"></a><span class="lineno"> 9104</span>  if (node && nd_type(node) == NODE_SPLAT) {</div><div class="line"><a name="l09105"></a><span class="lineno"> 9105</span>  state = Qtrue;</div><div class="line"><a name="l09106"></a><span class="lineno"> 9106</span>  }</div><div class="line"><a name="l09107"></a><span class="lineno"> 9107</span>  }</div><div class="line"><a name="l09108"></a><span class="lineno"> 9108</span>  else {</div><div class="line"><a name="l09109"></a><span class="lineno"> 9109</span>  state = Qfalse;</div><div class="line"><a name="l09110"></a><span class="lineno"> 9110</span>  }</div><div class="line"><a name="l09111"></a><span class="lineno"> 9111</span>  return NEW_YIELD(node, state);</div><div class="line"><a name="l09112"></a><span class="lineno"> 9112</span> }</div><div class="line"><a name="l09113"></a><span class="lineno"> 9113</span> </div><div class="line"><a name="l09114"></a><span class="lineno"> 9114</span> static NODE*</div><div class="line"><a name="l09115"></a><span class="lineno"> 9115</span> negate_lit(NODE *node)</div><div class="line"><a name="l09116"></a><span class="lineno"> 9116</span> {</div><div class="line"><a name="l09117"></a><span class="lineno"> 9117</span>  switch (TYPE(node->nd_lit)) {</div><div class="line"><a name="l09118"></a><span class="lineno"> 9118</span>  case T_FIXNUM:</div><div class="line"><a name="l09119"></a><span class="lineno"> 9119</span>  node->nd_lit = LONG2FIX(-FIX2LONG(node->nd_lit));</div><div class="line"><a name="l09120"></a><span class="lineno"> 9120</span>  break;</div><div class="line"><a name="l09121"></a><span class="lineno"> 9121</span>  case T_BIGNUM:</div><div class="line"><a name="l09122"></a><span class="lineno"> 9122</span>  node->nd_lit = rb_funcall(node->nd_lit,tUMINUS,0,0);</div><div class="line"><a name="l09123"></a><span class="lineno"> 9123</span>  break;</div><div class="line"><a name="l09124"></a><span class="lineno"> 9124</span>  case T_FLOAT:</div><div class="line"><a name="l09125"></a><span class="lineno"> 9125</span>  RFLOAT(node->nd_lit)->float_value = -RFLOAT_VALUE(node->nd_lit);</div><div class="line"><a name="l09126"></a><span class="lineno"> 9126</span>  break;</div><div class="line"><a name="l09127"></a><span class="lineno"> 9127</span>  default:</div><div class="line"><a name="l09128"></a><span class="lineno"> 9128</span>  break;</div><div class="line"><a name="l09129"></a><span class="lineno"> 9129</span>  }</div><div class="line"><a name="l09130"></a><span class="lineno"> 9130</span>  return node;</div><div class="line"><a name="l09131"></a><span class="lineno"> 9131</span> }</div><div class="line"><a name="l09132"></a><span class="lineno"> 9132</span> </div><div class="line"><a name="l09133"></a><span class="lineno"> 9133</span> static NODE *</div><div class="line"><a name="l09134"></a><span class="lineno"> 9134</span> arg_blk_pass(NODE *node1, NODE *node2)</div><div class="line"><a name="l09135"></a><span class="lineno"> 9135</span> {</div><div class="line"><a name="l09136"></a><span class="lineno"> 9136</span>  if (node2) {</div><div class="line"><a name="l09137"></a><span class="lineno"> 9137</span>  node2->nd_head = node1;</div><div class="line"><a name="l09138"></a><span class="lineno"> 9138</span>  return node2;</div><div class="line"><a name="l09139"></a><span class="lineno"> 9139</span>  }</div><div class="line"><a name="l09140"></a><span class="lineno"> 9140</span>  return node1;</div><div class="line"><a name="l09141"></a><span class="lineno"> 9141</span> }</div><div class="line"><a name="l09142"></a><span class="lineno"> 9142</span> </div><div class="line"><a name="l09143"></a><span class="lineno"> 9143</span> static NODE*</div><div class="line"><a name="l09144"></a><span class="lineno"> 9144</span> new_args_gen(struct parser_params *parser, NODE *m, NODE *o, ID r, NODE *p, ID b)</div><div class="line"><a name="l09145"></a><span class="lineno"> 9145</span> {</div><div class="line"><a name="l09146"></a><span class="lineno"> 9146</span>  int saved_line = ruby_sourceline;</div><div class="line"><a name="l09147"></a><span class="lineno"> 9147</span>  NODE *node;</div><div class="line"><a name="l09148"></a><span class="lineno"> 9148</span>  NODE *i1, *i2 = 0;</div><div class="line"><a name="l09149"></a><span class="lineno"> 9149</span> </div><div class="line"><a name="l09150"></a><span class="lineno"> 9150</span>  node = NEW_ARGS(m ? m->nd_plen : 0, o);</div><div class="line"><a name="l09151"></a><span class="lineno"> 9151</span>  i1 = m ? m->nd_next : 0;</div><div class="line"><a name="l09152"></a><span class="lineno"> 9152</span>  node->nd_next = NEW_ARGS_AUX(r, b);</div><div class="line"><a name="l09153"></a><span class="lineno"> 9153</span> </div><div class="line"><a name="l09154"></a><span class="lineno"> 9154</span>  if (p) {</div><div class="line"><a name="l09155"></a><span class="lineno"> 9155</span>  i2 = p->nd_next;</div><div class="line"><a name="l09156"></a><span class="lineno"> 9156</span>  node->nd_next->nd_next = NEW_ARGS_AUX(p->nd_pid, p->nd_plen);</div><div class="line"><a name="l09157"></a><span class="lineno"> 9157</span>  }</div><div class="line"><a name="l09158"></a><span class="lineno"> 9158</span>  else if (i1) {</div><div class="line"><a name="l09159"></a><span class="lineno"> 9159</span>  node->nd_next->nd_next = NEW_ARGS_AUX(0, 0);</div><div class="line"><a name="l09160"></a><span class="lineno"> 9160</span>  }</div><div class="line"><a name="l09161"></a><span class="lineno"> 9161</span>  if (i1 || i2) {</div><div class="line"><a name="l09162"></a><span class="lineno"> 9162</span>  node->nd_next->nd_next->nd_next = NEW_NODE(NODE_AND, i1, i2, 0);</div><div class="line"><a name="l09163"></a><span class="lineno"> 9163</span>  }</div><div class="line"><a name="l09164"></a><span class="lineno"> 9164</span>  ruby_sourceline = saved_line;</div><div class="line"><a name="l09165"></a><span class="lineno"> 9165</span>  return node;</div><div class="line"><a name="l09166"></a><span class="lineno"> 9166</span> }</div><div class="line"><a name="l09167"></a><span class="lineno"> 9167</span> #endif /* !RIPPER */</div><div class="line"><a name="l09168"></a><span class="lineno"> 9168</span> </div><div class="line"><a name="l09169"></a><span class="lineno"> 9169</span> static void</div><div class="line"><a name="l09170"></a><span class="lineno"> 9170</span> warn_unused_var(struct parser_params *parser, struct local_vars *local)</div><div class="line"><a name="l09171"></a><span class="lineno"> 9171</span> {</div><div class="line"><a name="l09172"></a><span class="lineno"> 9172</span>  int i, cnt;</div><div class="line"><a name="l09173"></a><span class="lineno"> 9173</span>  ID *v, *u;</div><div class="line"><a name="l09174"></a><span class="lineno"> 9174</span> </div><div class="line"><a name="l09175"></a><span class="lineno"> 9175</span>  if (!local->used) return;</div><div class="line"><a name="l09176"></a><span class="lineno"> 9176</span>  v = local->vars->tbl;</div><div class="line"><a name="l09177"></a><span class="lineno"> 9177</span>  u = local->used->tbl;</div><div class="line"><a name="l09178"></a><span class="lineno"> 9178</span>  cnt = local->used->pos;</div><div class="line"><a name="l09179"></a><span class="lineno"> 9179</span>  if (cnt != local->vars->pos) {</div><div class="line"><a name="l09180"></a><span class="lineno"> 9180</span>  rb_bug("local->used->pos != local->vars->pos");</div><div class="line"><a name="l09181"></a><span class="lineno"> 9181</span>  }</div><div class="line"><a name="l09182"></a><span class="lineno"> 9182</span>  for (i = 0; i < cnt; ++i) {</div><div class="line"><a name="l09183"></a><span class="lineno"> 9183</span>  if (!v[i] || (u[i] & LVAR_USED)) continue;</div><div class="line"><a name="l09184"></a><span class="lineno"> 9184</span>  if (idUScore == v[i]) continue;</div><div class="line"><a name="l09185"></a><span class="lineno"> 9185</span>  rb_compile_warn(ruby_sourcefile, (int)u[i], "assigned but unused variable - %s", rb_id2name(v[i]));</div><div class="line"><a name="l09186"></a><span class="lineno"> 9186</span>  }</div><div class="line"><a name="l09187"></a><span class="lineno"> 9187</span> }</div><div class="line"><a name="l09188"></a><span class="lineno"> 9188</span> </div><div class="line"><a name="l09189"></a><span class="lineno"> 9189</span> static void</div><div class="line"><a name="l09190"></a><span class="lineno"> 9190</span> local_push_gen(struct parser_params *parser, int inherit_dvars)</div><div class="line"><a name="l09191"></a><span class="lineno"> 9191</span> {</div><div class="line"><a name="l09192"></a><span class="lineno"> 9192</span>  struct local_vars *local;</div><div class="line"><a name="l09193"></a><span class="lineno"> 9193</span> </div><div class="line"><a name="l09194"></a><span class="lineno"> 9194</span>  local = ALLOC(struct local_vars);</div><div class="line"><a name="l09195"></a><span class="lineno"> 9195</span>  local->prev = lvtbl;</div><div class="line"><a name="l09196"></a><span class="lineno"> 9196</span>  local->args = vtable_alloc(0);</div><div class="line"><a name="l09197"></a><span class="lineno"> 9197</span>  local->vars = vtable_alloc(inherit_dvars ? DVARS_INHERIT : DVARS_TOPSCOPE);</div><div class="line"><a name="l09198"></a><span class="lineno"> 9198</span>  local->used = !inherit_dvars && RTEST(ruby_verbose) ? vtable_alloc(0) : 0;</div><div class="line"><a name="l09199"></a><span class="lineno"> 9199</span>  local->cmdargs = cmdarg_stack;</div><div class="line"><a name="l09200"></a><span class="lineno"> 9200</span>  cmdarg_stack = 0;</div><div class="line"><a name="l09201"></a><span class="lineno"> 9201</span>  lvtbl = local;</div><div class="line"><a name="l09202"></a><span class="lineno"> 9202</span> }</div><div class="line"><a name="l09203"></a><span class="lineno"> 9203</span> </div><div class="line"><a name="l09204"></a><span class="lineno"> 9204</span> static void</div><div class="line"><a name="l09205"></a><span class="lineno"> 9205</span> local_pop_gen(struct parser_params *parser)</div><div class="line"><a name="l09206"></a><span class="lineno"> 9206</span> {</div><div class="line"><a name="l09207"></a><span class="lineno"> 9207</span>  struct local_vars *local = lvtbl->prev;</div><div class="line"><a name="l09208"></a><span class="lineno"> 9208</span>  if (lvtbl->used) {</div><div class="line"><a name="l09209"></a><span class="lineno"> 9209</span>  warn_unused_var(parser, lvtbl);</div><div class="line"><a name="l09210"></a><span class="lineno"> 9210</span>  vtable_free(lvtbl->used);</div><div class="line"><a name="l09211"></a><span class="lineno"> 9211</span>  }</div><div class="line"><a name="l09212"></a><span class="lineno"> 9212</span>  vtable_free(lvtbl->args);</div><div class="line"><a name="l09213"></a><span class="lineno"> 9213</span>  vtable_free(lvtbl->vars);</div><div class="line"><a name="l09214"></a><span class="lineno"> 9214</span>  cmdarg_stack = lvtbl->cmdargs;</div><div class="line"><a name="l09215"></a><span class="lineno"> 9215</span>  xfree(lvtbl);</div><div class="line"><a name="l09216"></a><span class="lineno"> 9216</span>  lvtbl = local;</div><div class="line"><a name="l09217"></a><span class="lineno"> 9217</span> }</div><div class="line"><a name="l09218"></a><span class="lineno"> 9218</span> </div><div class="line"><a name="l09219"></a><span class="lineno"> 9219</span> #ifndef RIPPER</div><div class="line"><a name="l09220"></a><span class="lineno"> 9220</span> static ID*</div><div class="line"><a name="l09221"></a><span class="lineno"> 9221</span> vtable_tblcpy(ID *buf, const struct vtable *src)</div><div class="line"><a name="l09222"></a><span class="lineno"> 9222</span> {</div><div class="line"><a name="l09223"></a><span class="lineno"> 9223</span>  int i, cnt = vtable_size(src);</div><div class="line"><a name="l09224"></a><span class="lineno"> 9224</span> </div><div class="line"><a name="l09225"></a><span class="lineno"> 9225</span>  if (cnt > 0) {</div><div class="line"><a name="l09226"></a><span class="lineno"> 9226</span>  buf[0] = cnt;</div><div class="line"><a name="l09227"></a><span class="lineno"> 9227</span>  for (i = 0; i < cnt; i++) {</div><div class="line"><a name="l09228"></a><span class="lineno"> 9228</span>  buf[i] = src->tbl[i];</div><div class="line"><a name="l09229"></a><span class="lineno"> 9229</span>  }</div><div class="line"><a name="l09230"></a><span class="lineno"> 9230</span>  return buf;</div><div class="line"><a name="l09231"></a><span class="lineno"> 9231</span>  }</div><div class="line"><a name="l09232"></a><span class="lineno"> 9232</span>  return 0;</div><div class="line"><a name="l09233"></a><span class="lineno"> 9233</span> }</div><div class="line"><a name="l09234"></a><span class="lineno"> 9234</span> </div><div class="line"><a name="l09235"></a><span class="lineno"> 9235</span> static ID*</div><div class="line"><a name="l09236"></a><span class="lineno"> 9236</span> local_tbl_gen(struct parser_params *parser)</div><div class="line"><a name="l09237"></a><span class="lineno"> 9237</span> {</div><div class="line"><a name="l09238"></a><span class="lineno"> 9238</span>  int cnt = vtable_size(lvtbl->args) + vtable_size(lvtbl->vars);</div><div class="line"><a name="l09239"></a><span class="lineno"> 9239</span>  ID *buf;</div><div class="line"><a name="l09240"></a><span class="lineno"> 9240</span> </div><div class="line"><a name="l09241"></a><span class="lineno"> 9241</span>  if (cnt <= 0) return 0;</div><div class="line"><a name="l09242"></a><span class="lineno"> 9242</span>  buf = ALLOC_N(ID, cnt + 1);</div><div class="line"><a name="l09243"></a><span class="lineno"> 9243</span>  vtable_tblcpy(buf+1, lvtbl->args);</div><div class="line"><a name="l09244"></a><span class="lineno"> 9244</span>  vtable_tblcpy(buf+vtable_size(lvtbl->args)+1, lvtbl->vars);</div><div class="line"><a name="l09245"></a><span class="lineno"> 9245</span>  buf[0] = cnt;</div><div class="line"><a name="l09246"></a><span class="lineno"> 9246</span>  return buf;</div><div class="line"><a name="l09247"></a><span class="lineno"> 9247</span> }</div><div class="line"><a name="l09248"></a><span class="lineno"> 9248</span> #endif</div><div class="line"><a name="l09249"></a><span class="lineno"> 9249</span> </div><div class="line"><a name="l09250"></a><span class="lineno"> 9250</span> static int</div><div class="line"><a name="l09251"></a><span class="lineno"> 9251</span> arg_var_gen(struct parser_params *parser, ID id)</div><div class="line"><a name="l09252"></a><span class="lineno"> 9252</span> {</div><div class="line"><a name="l09253"></a><span class="lineno"> 9253</span>  vtable_add(lvtbl->args, id);</div><div class="line"><a name="l09254"></a><span class="lineno"> 9254</span>  return vtable_size(lvtbl->args) - 1;</div><div class="line"><a name="l09255"></a><span class="lineno"> 9255</span> }</div><div class="line"><a name="l09256"></a><span class="lineno"> 9256</span> </div><div class="line"><a name="l09257"></a><span class="lineno"> 9257</span> static int</div><div class="line"><a name="l09258"></a><span class="lineno"> 9258</span> local_var_gen(struct parser_params *parser, ID id)</div><div class="line"><a name="l09259"></a><span class="lineno"> 9259</span> {</div><div class="line"><a name="l09260"></a><span class="lineno"> 9260</span>  vtable_add(lvtbl->vars, id);</div><div class="line"><a name="l09261"></a><span class="lineno"> 9261</span>  if (lvtbl->used) {</div><div class="line"><a name="l09262"></a><span class="lineno"> 9262</span>  vtable_add(lvtbl->used, (ID)ruby_sourceline);</div><div class="line"><a name="l09263"></a><span class="lineno"> 9263</span>  }</div><div class="line"><a name="l09264"></a><span class="lineno"> 9264</span>  return vtable_size(lvtbl->vars) - 1;</div><div class="line"><a name="l09265"></a><span class="lineno"> 9265</span> }</div><div class="line"><a name="l09266"></a><span class="lineno"> 9266</span> </div><div class="line"><a name="l09267"></a><span class="lineno"> 9267</span> static int</div><div class="line"><a name="l09268"></a><span class="lineno"> 9268</span> local_id_gen(struct parser_params *parser, ID id)</div><div class="line"><a name="l09269"></a><span class="lineno"> 9269</span> {</div><div class="line"><a name="l09270"></a><span class="lineno"> 9270</span>  struct vtable *vars, *args, *used;</div><div class="line"><a name="l09271"></a><span class="lineno"> 9271</span> </div><div class="line"><a name="l09272"></a><span class="lineno"> 9272</span>  vars = lvtbl->vars;</div><div class="line"><a name="l09273"></a><span class="lineno"> 9273</span>  args = lvtbl->args;</div><div class="line"><a name="l09274"></a><span class="lineno"> 9274</span>  used = lvtbl->used;</div><div class="line"><a name="l09275"></a><span class="lineno"> 9275</span> </div><div class="line"><a name="l09276"></a><span class="lineno"> 9276</span>  while (vars && POINTER_P(vars->prev)) {</div><div class="line"><a name="l09277"></a><span class="lineno"> 9277</span>  vars = vars->prev;</div><div class="line"><a name="l09278"></a><span class="lineno"> 9278</span>  args = args->prev;</div><div class="line"><a name="l09279"></a><span class="lineno"> 9279</span>  if (used) used = used->prev;</div><div class="line"><a name="l09280"></a><span class="lineno"> 9280</span>  }</div><div class="line"><a name="l09281"></a><span class="lineno"> 9281</span> </div><div class="line"><a name="l09282"></a><span class="lineno"> 9282</span>  if (vars && vars->prev == DVARS_INHERIT) {</div><div class="line"><a name="l09283"></a><span class="lineno"> 9283</span>  return rb_local_defined(id);</div><div class="line"><a name="l09284"></a><span class="lineno"> 9284</span>  }</div><div class="line"><a name="l09285"></a><span class="lineno"> 9285</span>  else if (vtable_included(args, id)) {</div><div class="line"><a name="l09286"></a><span class="lineno"> 9286</span>  return 1;</div><div class="line"><a name="l09287"></a><span class="lineno"> 9287</span>  }</div><div class="line"><a name="l09288"></a><span class="lineno"> 9288</span>  else {</div><div class="line"><a name="l09289"></a><span class="lineno"> 9289</span>  int i = vtable_included(vars, id);</div><div class="line"><a name="l09290"></a><span class="lineno"> 9290</span>  if (i && used) used->tbl[i-1] |= LVAR_USED;</div><div class="line"><a name="l09291"></a><span class="lineno"> 9291</span>  return i != 0;</div><div class="line"><a name="l09292"></a><span class="lineno"> 9292</span>  }</div><div class="line"><a name="l09293"></a><span class="lineno"> 9293</span> }</div><div class="line"><a name="l09294"></a><span class="lineno"> 9294</span> </div><div class="line"><a name="l09295"></a><span class="lineno"> 9295</span> static const struct vtable *</div><div class="line"><a name="l09296"></a><span class="lineno"> 9296</span> dyna_push_gen(struct parser_params *parser)</div><div class="line"><a name="l09297"></a><span class="lineno"> 9297</span> {</div><div class="line"><a name="l09298"></a><span class="lineno"> 9298</span>  lvtbl->args = vtable_alloc(lvtbl->args);</div><div class="line"><a name="l09299"></a><span class="lineno"> 9299</span>  lvtbl->vars = vtable_alloc(lvtbl->vars);</div><div class="line"><a name="l09300"></a><span class="lineno"> 9300</span>  if (lvtbl->used) {</div><div class="line"><a name="l09301"></a><span class="lineno"> 9301</span>  lvtbl->used = vtable_alloc(lvtbl->used);</div><div class="line"><a name="l09302"></a><span class="lineno"> 9302</span>  }</div><div class="line"><a name="l09303"></a><span class="lineno"> 9303</span>  return lvtbl->args;</div><div class="line"><a name="l09304"></a><span class="lineno"> 9304</span> }</div><div class="line"><a name="l09305"></a><span class="lineno"> 9305</span> </div><div class="line"><a name="l09306"></a><span class="lineno"> 9306</span> static void</div><div class="line"><a name="l09307"></a><span class="lineno"> 9307</span> dyna_pop_1(struct parser_params *parser)</div><div class="line"><a name="l09308"></a><span class="lineno"> 9308</span> {</div><div class="line"><a name="l09309"></a><span class="lineno"> 9309</span>  struct vtable *tmp;</div><div class="line"><a name="l09310"></a><span class="lineno"> 9310</span> </div><div class="line"><a name="l09311"></a><span class="lineno"> 9311</span>  if ((tmp = lvtbl->used) != 0) {</div><div class="line"><a name="l09312"></a><span class="lineno"> 9312</span>  warn_unused_var(parser, lvtbl);</div><div class="line"><a name="l09313"></a><span class="lineno"> 9313</span>  lvtbl->used = lvtbl->used->prev;</div><div class="line"><a name="l09314"></a><span class="lineno"> 9314</span>  vtable_free(tmp);</div><div class="line"><a name="l09315"></a><span class="lineno"> 9315</span>  }</div><div class="line"><a name="l09316"></a><span class="lineno"> 9316</span>  tmp = lvtbl->args;</div><div class="line"><a name="l09317"></a><span class="lineno"> 9317</span>  lvtbl->args = lvtbl->args->prev;</div><div class="line"><a name="l09318"></a><span class="lineno"> 9318</span>  vtable_free(tmp);</div><div class="line"><a name="l09319"></a><span class="lineno"> 9319</span>  tmp = lvtbl->vars;</div><div class="line"><a name="l09320"></a><span class="lineno"> 9320</span>  lvtbl->vars = lvtbl->vars->prev;</div><div class="line"><a name="l09321"></a><span class="lineno"> 9321</span>  vtable_free(tmp);</div><div class="line"><a name="l09322"></a><span class="lineno"> 9322</span> }</div><div class="line"><a name="l09323"></a><span class="lineno"> 9323</span> </div><div class="line"><a name="l09324"></a><span class="lineno"> 9324</span> static void</div><div class="line"><a name="l09325"></a><span class="lineno"> 9325</span> dyna_pop_gen(struct parser_params *parser, const struct vtable *lvargs)</div><div class="line"><a name="l09326"></a><span class="lineno"> 9326</span> {</div><div class="line"><a name="l09327"></a><span class="lineno"> 9327</span>  while (lvtbl->args != lvargs) {</div><div class="line"><a name="l09328"></a><span class="lineno"> 9328</span>  dyna_pop_1(parser);</div><div class="line"><a name="l09329"></a><span class="lineno"> 9329</span>  if (!lvtbl->args) {</div><div class="line"><a name="l09330"></a><span class="lineno"> 9330</span>  struct local_vars *local = lvtbl->prev;</div><div class="line"><a name="l09331"></a><span class="lineno"> 9331</span>  xfree(lvtbl);</div><div class="line"><a name="l09332"></a><span class="lineno"> 9332</span>  lvtbl = local;</div><div class="line"><a name="l09333"></a><span class="lineno"> 9333</span>  }</div><div class="line"><a name="l09334"></a><span class="lineno"> 9334</span>  }</div><div class="line"><a name="l09335"></a><span class="lineno"> 9335</span>  dyna_pop_1(parser);</div><div class="line"><a name="l09336"></a><span class="lineno"> 9336</span> }</div><div class="line"><a name="l09337"></a><span class="lineno"> 9337</span> </div><div class="line"><a name="l09338"></a><span class="lineno"> 9338</span> static int</div><div class="line"><a name="l09339"></a><span class="lineno"> 9339</span> dyna_in_block_gen(struct parser_params *parser)</div><div class="line"><a name="l09340"></a><span class="lineno"> 9340</span> {</div><div class="line"><a name="l09341"></a><span class="lineno"> 9341</span>  return POINTER_P(lvtbl->vars) && lvtbl->vars->prev != DVARS_TOPSCOPE;</div><div class="line"><a name="l09342"></a><span class="lineno"> 9342</span> }</div><div class="line"><a name="l09343"></a><span class="lineno"> 9343</span> </div><div class="line"><a name="l09344"></a><span class="lineno"> 9344</span> static int</div><div class="line"><a name="l09345"></a><span class="lineno"> 9345</span> dvar_defined_gen(struct parser_params *parser, ID id, int get)</div><div class="line"><a name="l09346"></a><span class="lineno"> 9346</span> {</div><div class="line"><a name="l09347"></a><span class="lineno"> 9347</span>  struct vtable *vars, *args, *used;</div><div class="line"><a name="l09348"></a><span class="lineno"> 9348</span>  int i;</div><div class="line"><a name="l09349"></a><span class="lineno"> 9349</span> </div><div class="line"><a name="l09350"></a><span class="lineno"> 9350</span>  args = lvtbl->args;</div><div class="line"><a name="l09351"></a><span class="lineno"> 9351</span>  vars = lvtbl->vars;</div><div class="line"><a name="l09352"></a><span class="lineno"> 9352</span>  used = lvtbl->used;</div><div class="line"><a name="l09353"></a><span class="lineno"> 9353</span> </div><div class="line"><a name="l09354"></a><span class="lineno"> 9354</span>  while (POINTER_P(vars)) {</div><div class="line"><a name="l09355"></a><span class="lineno"> 9355</span>  if (vtable_included(args, id)) {</div><div class="line"><a name="l09356"></a><span class="lineno"> 9356</span>  return 1;</div><div class="line"><a name="l09357"></a><span class="lineno"> 9357</span>  }</div><div class="line"><a name="l09358"></a><span class="lineno"> 9358</span>  if ((i = vtable_included(vars, id)) != 0) {</div><div class="line"><a name="l09359"></a><span class="lineno"> 9359</span>  if (used) used->tbl[i-1] |= LVAR_USED;</div><div class="line"><a name="l09360"></a><span class="lineno"> 9360</span>  return 1;</div><div class="line"><a name="l09361"></a><span class="lineno"> 9361</span>  }</div><div class="line"><a name="l09362"></a><span class="lineno"> 9362</span>  args = args->prev;</div><div class="line"><a name="l09363"></a><span class="lineno"> 9363</span>  vars = vars->prev;</div><div class="line"><a name="l09364"></a><span class="lineno"> 9364</span>  if (get) used = 0;</div><div class="line"><a name="l09365"></a><span class="lineno"> 9365</span>  if (used) used = used->prev;</div><div class="line"><a name="l09366"></a><span class="lineno"> 9366</span>  }</div><div class="line"><a name="l09367"></a><span class="lineno"> 9367</span> </div><div class="line"><a name="l09368"></a><span class="lineno"> 9368</span>  if (vars == DVARS_INHERIT) {</div><div class="line"><a name="l09369"></a><span class="lineno"> 9369</span>  return rb_dvar_defined(id);</div><div class="line"><a name="l09370"></a><span class="lineno"> 9370</span>  }</div><div class="line"><a name="l09371"></a><span class="lineno"> 9371</span> </div><div class="line"><a name="l09372"></a><span class="lineno"> 9372</span>  return 0;</div><div class="line"><a name="l09373"></a><span class="lineno"> 9373</span> }</div><div class="line"><a name="l09374"></a><span class="lineno"> 9374</span> </div><div class="line"><a name="l09375"></a><span class="lineno"> 9375</span> static int</div><div class="line"><a name="l09376"></a><span class="lineno"> 9376</span> dvar_curr_gen(struct parser_params *parser, ID id)</div><div class="line"><a name="l09377"></a><span class="lineno"> 9377</span> {</div><div class="line"><a name="l09378"></a><span class="lineno"> 9378</span>  return (vtable_included(lvtbl->args, id) ||</div><div class="line"><a name="l09379"></a><span class="lineno"> 9379</span>  vtable_included(lvtbl->vars, id));</div><div class="line"><a name="l09380"></a><span class="lineno"> 9380</span> }</div><div class="line"><a name="l09381"></a><span class="lineno"> 9381</span> </div><div class="line"><a name="l09382"></a><span class="lineno"> 9382</span> #ifndef RIPPER</div><div class="line"><a name="l09383"></a><span class="lineno"> 9383</span> static void</div><div class="line"><a name="l09384"></a><span class="lineno"> 9384</span> reg_fragment_setenc_gen(struct parser_params* parser, VALUE str, int options)</div><div class="line"><a name="l09385"></a><span class="lineno"> 9385</span> {</div><div class="line"><a name="l09386"></a><span class="lineno"> 9386</span>  int c = RE_OPTION_ENCODING_IDX(options);</div><div class="line"><a name="l09387"></a><span class="lineno"> 9387</span> </div><div class="line"><a name="l09388"></a><span class="lineno"> 9388</span>  if (c) {</div><div class="line"><a name="l09389"></a><span class="lineno"> 9389</span>  int opt, idx;</div><div class="line"><a name="l09390"></a><span class="lineno"> 9390</span>  rb_char_to_option_kcode(c, &opt, &idx);</div><div class="line"><a name="l09391"></a><span class="lineno"> 9391</span>  if (idx != ENCODING_GET(str) &&</div><div class="line"><a name="l09392"></a><span class="lineno"> 9392</span>  rb_enc_str_coderange(str) != ENC_CODERANGE_7BIT) {</div><div class="line"><a name="l09393"></a><span class="lineno"> 9393</span>  goto error;</div><div class="line"><a name="l09394"></a><span class="lineno"> 9394</span>  }</div><div class="line"><a name="l09395"></a><span class="lineno"> 9395</span>  ENCODING_SET(str, idx);</div><div class="line"><a name="l09396"></a><span class="lineno"> 9396</span>  }</div><div class="line"><a name="l09397"></a><span class="lineno"> 9397</span>  else if (RE_OPTION_ENCODING_NONE(options)) {</div><div class="line"><a name="l09398"></a><span class="lineno"> 9398</span>  if (!ENCODING_IS_ASCII8BIT(str) &&</div><div class="line"><a name="l09399"></a><span class="lineno"> 9399</span>  rb_enc_str_coderange(str) != ENC_CODERANGE_7BIT) {</div><div class="line"><a name="l09400"></a><span class="lineno"> 9400</span>  c = 'n';</div><div class="line"><a name="l09401"></a><span class="lineno"> 9401</span>  goto error;</div><div class="line"><a name="l09402"></a><span class="lineno"> 9402</span>  }</div><div class="line"><a name="l09403"></a><span class="lineno"> 9403</span>  rb_enc_associate(str, rb_ascii8bit_encoding());</div><div class="line"><a name="l09404"></a><span class="lineno"> 9404</span>  }</div><div class="line"><a name="l09405"></a><span class="lineno"> 9405</span>  else if (parser->enc == rb_usascii_encoding()) {</div><div class="line"><a name="l09406"></a><span class="lineno"> 9406</span>  if (rb_enc_str_coderange(str) != ENC_CODERANGE_7BIT) {</div><div class="line"><a name="l09407"></a><span class="lineno"> 9407</span>  /* raise in re.c */</div><div class="line"><a name="l09408"></a><span class="lineno"> 9408</span>  rb_enc_associate(str, rb_usascii_encoding());</div><div class="line"><a name="l09409"></a><span class="lineno"> 9409</span>  }</div><div class="line"><a name="l09410"></a><span class="lineno"> 9410</span>  else {</div><div class="line"><a name="l09411"></a><span class="lineno"> 9411</span>  rb_enc_associate(str, rb_ascii8bit_encoding());</div><div class="line"><a name="l09412"></a><span class="lineno"> 9412</span>  }</div><div class="line"><a name="l09413"></a><span class="lineno"> 9413</span>  }</div><div class="line"><a name="l09414"></a><span class="lineno"> 9414</span>  return;</div><div class="line"><a name="l09415"></a><span class="lineno"> 9415</span> </div><div class="line"><a name="l09416"></a><span class="lineno"> 9416</span>  error:</div><div class="line"><a name="l09417"></a><span class="lineno"> 9417</span>  compile_error(PARSER_ARG</div><div class="line"><a name="l09418"></a><span class="lineno"> 9418</span>  "regexp encoding option '%c' differs from source encoding '%s'",</div><div class="line"><a name="l09419"></a><span class="lineno"> 9419</span>  c, rb_enc_name(rb_enc_get(str)));</div><div class="line"><a name="l09420"></a><span class="lineno"> 9420</span> }</div><div class="line"><a name="l09421"></a><span class="lineno"> 9421</span> </div><div class="line"><a name="l09422"></a><span class="lineno"> 9422</span> static int</div><div class="line"><a name="l09423"></a><span class="lineno"> 9423</span> reg_fragment_check_gen(struct parser_params* parser, VALUE str, int options)</div><div class="line"><a name="l09424"></a><span class="lineno"> 9424</span> {</div><div class="line"><a name="l09425"></a><span class="lineno"> 9425</span>  VALUE err;</div><div class="line"><a name="l09426"></a><span class="lineno"> 9426</span>  reg_fragment_setenc(str, options);</div><div class="line"><a name="l09427"></a><span class="lineno"> 9427</span>  err = rb_reg_check_preprocess(str);</div><div class="line"><a name="l09428"></a><span class="lineno"> 9428</span>  if (err != Qnil) {</div><div class="line"><a name="l09429"></a><span class="lineno"> 9429</span>  err = rb_obj_as_string(err);</div><div class="line"><a name="l09430"></a><span class="lineno"> 9430</span>  compile_error(PARSER_ARG "%s", RSTRING_PTR(err));</div><div class="line"><a name="l09431"></a><span class="lineno"> 9431</span>  RB_GC_GUARD(err);</div><div class="line"><a name="l09432"></a><span class="lineno"> 9432</span>  return 0;</div><div class="line"><a name="l09433"></a><span class="lineno"> 9433</span>  }</div><div class="line"><a name="l09434"></a><span class="lineno"> 9434</span>  return 1;</div><div class="line"><a name="l09435"></a><span class="lineno"> 9435</span> }</div><div class="line"><a name="l09436"></a><span class="lineno"> 9436</span> </div><div class="line"><a name="l09437"></a><span class="lineno"> 9437</span> typedef struct {</div><div class="line"><a name="l09438"></a><span class="lineno"> 9438</span>  struct parser_params* parser;</div><div class="line"><a name="l09439"></a><span class="lineno"> 9439</span>  rb_encoding *enc;</div><div class="line"><a name="l09440"></a><span class="lineno"> 9440</span>  NODE *succ_block;</div><div class="line"><a name="l09441"></a><span class="lineno"> 9441</span>  NODE *fail_block;</div><div class="line"><a name="l09442"></a><span class="lineno"> 9442</span>  int num;</div><div class="line"><a name="l09443"></a><span class="lineno"> 9443</span> } reg_named_capture_assign_t;</div><div class="line"><a name="l09444"></a><span class="lineno"> 9444</span> </div><div class="line"><a name="l09445"></a><span class="lineno"> 9445</span> static int</div><div class="line"><a name="l09446"></a><span class="lineno"> 9446</span> reg_named_capture_assign_iter(const OnigUChar *name, const OnigUChar *name_end,</div><div class="line"><a name="l09447"></a><span class="lineno"> 9447</span>  int back_num, int *back_refs, OnigRegex regex, void *arg0)</div><div class="line"><a name="l09448"></a><span class="lineno"> 9448</span> {</div><div class="line"><a name="l09449"></a><span class="lineno"> 9449</span>  reg_named_capture_assign_t *arg = (reg_named_capture_assign_t*)arg0;</div><div class="line"><a name="l09450"></a><span class="lineno"> 9450</span>  struct parser_params* parser = arg->parser;</div><div class="line"><a name="l09451"></a><span class="lineno"> 9451</span>  rb_encoding *enc = arg->enc;</div><div class="line"><a name="l09452"></a><span class="lineno"> 9452</span>  long len = name_end - name;</div><div class="line"><a name="l09453"></a><span class="lineno"> 9453</span>  const char *s = (const char *)name;</div><div class="line"><a name="l09454"></a><span class="lineno"> 9454</span>  ID var;</div><div class="line"><a name="l09455"></a><span class="lineno"> 9455</span> </div><div class="line"><a name="l09456"></a><span class="lineno"> 9456</span>  arg->num++;</div><div class="line"><a name="l09457"></a><span class="lineno"> 9457</span> </div><div class="line"><a name="l09458"></a><span class="lineno"> 9458</span>  if (arg->succ_block == 0) {</div><div class="line"><a name="l09459"></a><span class="lineno"> 9459</span>  arg->succ_block = NEW_BEGIN(0);</div><div class="line"><a name="l09460"></a><span class="lineno"> 9460</span>  arg->fail_block = NEW_BEGIN(0);</div><div class="line"><a name="l09461"></a><span class="lineno"> 9461</span>  }</div><div class="line"><a name="l09462"></a><span class="lineno"> 9462</span> </div><div class="line"><a name="l09463"></a><span class="lineno"> 9463</span>  if (!len || (*name != '_' && ISASCII(*name) && !rb_enc_islower(*name, enc)) ||</div><div class="line"><a name="l09464"></a><span class="lineno"> 9464</span>  (len < MAX_WORD_LENGTH && rb_reserved_word(s, (int)len)) ||</div><div class="line"><a name="l09465"></a><span class="lineno"> 9465</span>  !rb_enc_symname2_p(s, len, enc)) {</div><div class="line"><a name="l09466"></a><span class="lineno"> 9466</span>  return ST_CONTINUE;</div><div class="line"><a name="l09467"></a><span class="lineno"> 9467</span>  }</div><div class="line"><a name="l09468"></a><span class="lineno"> 9468</span>  var = rb_intern3(s, len, enc);</div><div class="line"><a name="l09469"></a><span class="lineno"> 9469</span>  if (dvar_defined(var) || local_id(var)) {</div><div class="line"><a name="l09470"></a><span class="lineno"> 9470</span>  rb_warningS("named capture conflicts a local variable - %s",</div><div class="line"><a name="l09471"></a><span class="lineno"> 9471</span>  rb_id2name(var));</div><div class="line"><a name="l09472"></a><span class="lineno"> 9472</span>  }</div><div class="line"><a name="l09473"></a><span class="lineno"> 9473</span>  arg->succ_block = block_append(arg->succ_block,</div><div class="line"><a name="l09474"></a><span class="lineno"> 9474</span>  newline_node(node_assign(assignable(var,0),</div><div class="line"><a name="l09475"></a><span class="lineno"> 9475</span>  NEW_CALL(</div><div class="line"><a name="l09476"></a><span class="lineno"> 9476</span>  gettable(rb_intern("$~")),</div><div class="line"><a name="l09477"></a><span class="lineno"> 9477</span>  idAREF,</div><div class="line"><a name="l09478"></a><span class="lineno"> 9478</span>  NEW_LIST(NEW_LIT(ID2SYM(var))))</div><div class="line"><a name="l09479"></a><span class="lineno"> 9479</span>  )));</div><div class="line"><a name="l09480"></a><span class="lineno"> 9480</span>  arg->fail_block = block_append(arg->fail_block,</div><div class="line"><a name="l09481"></a><span class="lineno"> 9481</span>  newline_node(node_assign(assignable(var,0), NEW_LIT(Qnil))));</div><div class="line"><a name="l09482"></a><span class="lineno"> 9482</span>  return ST_CONTINUE;</div><div class="line"><a name="l09483"></a><span class="lineno"> 9483</span> }</div><div class="line"><a name="l09484"></a><span class="lineno"> 9484</span> </div><div class="line"><a name="l09485"></a><span class="lineno"> 9485</span> static NODE *</div><div class="line"><a name="l09486"></a><span class="lineno"> 9486</span> reg_named_capture_assign_gen(struct parser_params* parser, VALUE regexp, NODE *match)</div><div class="line"><a name="l09487"></a><span class="lineno"> 9487</span> {</div><div class="line"><a name="l09488"></a><span class="lineno"> 9488</span>  reg_named_capture_assign_t arg;</div><div class="line"><a name="l09489"></a><span class="lineno"> 9489</span> </div><div class="line"><a name="l09490"></a><span class="lineno"> 9490</span>  arg.parser = parser;</div><div class="line"><a name="l09491"></a><span class="lineno"> 9491</span>  arg.enc = rb_enc_get(regexp);</div><div class="line"><a name="l09492"></a><span class="lineno"> 9492</span>  arg.succ_block = 0;</div><div class="line"><a name="l09493"></a><span class="lineno"> 9493</span>  arg.fail_block = 0;</div><div class="line"><a name="l09494"></a><span class="lineno"> 9494</span>  arg.num = 0;</div><div class="line"><a name="l09495"></a><span class="lineno"> 9495</span>  onig_foreach_name(RREGEXP(regexp)->ptr, reg_named_capture_assign_iter, (void*)&arg);</div><div class="line"><a name="l09496"></a><span class="lineno"> 9496</span> </div><div class="line"><a name="l09497"></a><span class="lineno"> 9497</span>  if (arg.num == 0)</div><div class="line"><a name="l09498"></a><span class="lineno"> 9498</span>  return match;</div><div class="line"><a name="l09499"></a><span class="lineno"> 9499</span> </div><div class="line"><a name="l09500"></a><span class="lineno"> 9500</span>  return</div><div class="line"><a name="l09501"></a><span class="lineno"> 9501</span>  block_append(</div><div class="line"><a name="l09502"></a><span class="lineno"> 9502</span>  newline_node(match),</div><div class="line"><a name="l09503"></a><span class="lineno"> 9503</span>  NEW_IF(gettable(rb_intern("$~")),</div><div class="line"><a name="l09504"></a><span class="lineno"> 9504</span>  block_append(</div><div class="line"><a name="l09505"></a><span class="lineno"> 9505</span>  newline_node(arg.succ_block),</div><div class="line"><a name="l09506"></a><span class="lineno"> 9506</span>  newline_node(</div><div class="line"><a name="l09507"></a><span class="lineno"> 9507</span>  NEW_CALL(</div><div class="line"><a name="l09508"></a><span class="lineno"> 9508</span>  gettable(rb_intern("$~")),</div><div class="line"><a name="l09509"></a><span class="lineno"> 9509</span>  rb_intern("begin"),</div><div class="line"><a name="l09510"></a><span class="lineno"> 9510</span>  NEW_LIST(NEW_LIT(INT2FIX(0)))))),</div><div class="line"><a name="l09511"></a><span class="lineno"> 9511</span>  block_append(</div><div class="line"><a name="l09512"></a><span class="lineno"> 9512</span>  newline_node(arg.fail_block),</div><div class="line"><a name="l09513"></a><span class="lineno"> 9513</span>  newline_node(</div><div class="line"><a name="l09514"></a><span class="lineno"> 9514</span>  NEW_LIT(Qnil)))));</div><div class="line"><a name="l09515"></a><span class="lineno"> 9515</span> }</div><div class="line"><a name="l09516"></a><span class="lineno"> 9516</span> </div><div class="line"><a name="l09517"></a><span class="lineno"> 9517</span> static VALUE</div><div class="line"><a name="l09518"></a><span class="lineno"> 9518</span> reg_compile_gen(struct parser_params* parser, VALUE str, int options)</div><div class="line"><a name="l09519"></a><span class="lineno"> 9519</span> {</div><div class="line"><a name="l09520"></a><span class="lineno"> 9520</span>  VALUE re;</div><div class="line"><a name="l09521"></a><span class="lineno"> 9521</span>  VALUE err;</div><div class="line"><a name="l09522"></a><span class="lineno"> 9522</span> </div><div class="line"><a name="l09523"></a><span class="lineno"> 9523</span>  reg_fragment_setenc(str, options);</div><div class="line"><a name="l09524"></a><span class="lineno"> 9524</span>  err = rb_errinfo();</div><div class="line"><a name="l09525"></a><span class="lineno"> 9525</span>  re = rb_reg_compile(str, options & RE_OPTION_MASK, ruby_sourcefile, ruby_sourceline);</div><div class="line"><a name="l09526"></a><span class="lineno"> 9526</span>  if (NIL_P(re)) {</div><div class="line"><a name="l09527"></a><span class="lineno"> 9527</span>  ID mesg = rb_intern("mesg");</div><div class="line"><a name="l09528"></a><span class="lineno"> 9528</span>  VALUE m = rb_attr_get(rb_errinfo(), mesg);</div><div class="line"><a name="l09529"></a><span class="lineno"> 9529</span>  rb_set_errinfo(err);</div><div class="line"><a name="l09530"></a><span class="lineno"> 9530</span>  if (!NIL_P(err)) {</div><div class="line"><a name="l09531"></a><span class="lineno"> 9531</span>  rb_str_append(rb_str_cat(rb_attr_get(err, mesg), "\n", 1), m);</div><div class="line"><a name="l09532"></a><span class="lineno"> 9532</span>  }</div><div class="line"><a name="l09533"></a><span class="lineno"> 9533</span>  else {</div><div class="line"><a name="l09534"></a><span class="lineno"> 9534</span>  compile_error(PARSER_ARG "%s", RSTRING_PTR(m));</div><div class="line"><a name="l09535"></a><span class="lineno"> 9535</span>  }</div><div class="line"><a name="l09536"></a><span class="lineno"> 9536</span>  return Qnil;</div><div class="line"><a name="l09537"></a><span class="lineno"> 9537</span>  }</div><div class="line"><a name="l09538"></a><span class="lineno"> 9538</span>  return re;</div><div class="line"><a name="l09539"></a><span class="lineno"> 9539</span> }</div><div class="line"><a name="l09540"></a><span class="lineno"> 9540</span> </div><div class="line"><a name="l09541"></a><span class="lineno"> 9541</span> void</div><div class="line"><a name="l09542"></a><span class="lineno"> 9542</span> rb_gc_mark_parser(void)</div><div class="line"><a name="l09543"></a><span class="lineno"> 9543</span> {</div><div class="line"><a name="l09544"></a><span class="lineno"> 9544</span> }</div><div class="line"><a name="l09545"></a><span class="lineno"> 9545</span> </div><div class="line"><a name="l09546"></a><span class="lineno"> 9546</span> NODE*</div><div class="line"><a name="l09547"></a><span class="lineno"> 9547</span> rb_parser_append_print(VALUE vparser, NODE *node)</div><div class="line"><a name="l09548"></a><span class="lineno"> 9548</span> {</div><div class="line"><a name="l09549"></a><span class="lineno"> 9549</span>  NODE *prelude = 0;</div><div class="line"><a name="l09550"></a><span class="lineno"> 9550</span>  NODE *scope = node;</div><div class="line"><a name="l09551"></a><span class="lineno"> 9551</span>  struct parser_params *parser;</div><div class="line"><a name="l09552"></a><span class="lineno"> 9552</span> </div><div class="line"><a name="l09553"></a><span class="lineno"> 9553</span>  if (!node) return node;</div><div class="line"><a name="l09554"></a><span class="lineno"> 9554</span> </div><div class="line"><a name="l09555"></a><span class="lineno"> 9555</span>  TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l09556"></a><span class="lineno"> 9556</span> </div><div class="line"><a name="l09557"></a><span class="lineno"> 9557</span>  node = node->nd_body;</div><div class="line"><a name="l09558"></a><span class="lineno"> 9558</span> </div><div class="line"><a name="l09559"></a><span class="lineno"> 9559</span>  if (nd_type(node) == NODE_PRELUDE) {</div><div class="line"><a name="l09560"></a><span class="lineno"> 9560</span>  prelude = node;</div><div class="line"><a name="l09561"></a><span class="lineno"> 9561</span>  node = node->nd_body;</div><div class="line"><a name="l09562"></a><span class="lineno"> 9562</span>  }</div><div class="line"><a name="l09563"></a><span class="lineno"> 9563</span> </div><div class="line"><a name="l09564"></a><span class="lineno"> 9564</span>  node = block_append(node,</div><div class="line"><a name="l09565"></a><span class="lineno"> 9565</span>  NEW_FCALL(rb_intern("print"),</div><div class="line"><a name="l09566"></a><span class="lineno"> 9566</span>  NEW_ARRAY(NEW_GVAR(rb_intern("$_")))));</div><div class="line"><a name="l09567"></a><span class="lineno"> 9567</span>  if (prelude) {</div><div class="line"><a name="l09568"></a><span class="lineno"> 9568</span>  prelude->nd_body = node;</div><div class="line"><a name="l09569"></a><span class="lineno"> 9569</span>  scope->nd_body = prelude;</div><div class="line"><a name="l09570"></a><span class="lineno"> 9570</span>  }</div><div class="line"><a name="l09571"></a><span class="lineno"> 9571</span>  else {</div><div class="line"><a name="l09572"></a><span class="lineno"> 9572</span>  scope->nd_body = node;</div><div class="line"><a name="l09573"></a><span class="lineno"> 9573</span>  }</div><div class="line"><a name="l09574"></a><span class="lineno"> 9574</span> </div><div class="line"><a name="l09575"></a><span class="lineno"> 9575</span>  return scope;</div><div class="line"><a name="l09576"></a><span class="lineno"> 9576</span> }</div><div class="line"><a name="l09577"></a><span class="lineno"> 9577</span> </div><div class="line"><a name="l09578"></a><span class="lineno"> 9578</span> NODE *</div><div class="line"><a name="l09579"></a><span class="lineno"> 9579</span> rb_parser_while_loop(VALUE vparser, NODE *node, int chop, int split)</div><div class="line"><a name="l09580"></a><span class="lineno"> 9580</span> {</div><div class="line"><a name="l09581"></a><span class="lineno"> 9581</span>  NODE *prelude = 0;</div><div class="line"><a name="l09582"></a><span class="lineno"> 9582</span>  NODE *scope = node;</div><div class="line"><a name="l09583"></a><span class="lineno"> 9583</span>  struct parser_params *parser;</div><div class="line"><a name="l09584"></a><span class="lineno"> 9584</span> </div><div class="line"><a name="l09585"></a><span class="lineno"> 9585</span>  if (!node) return node;</div><div class="line"><a name="l09586"></a><span class="lineno"> 9586</span> </div><div class="line"><a name="l09587"></a><span class="lineno"> 9587</span>  TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l09588"></a><span class="lineno"> 9588</span> </div><div class="line"><a name="l09589"></a><span class="lineno"> 9589</span>  node = node->nd_body;</div><div class="line"><a name="l09590"></a><span class="lineno"> 9590</span> </div><div class="line"><a name="l09591"></a><span class="lineno"> 9591</span>  if (nd_type(node) == NODE_PRELUDE) {</div><div class="line"><a name="l09592"></a><span class="lineno"> 9592</span>  prelude = node;</div><div class="line"><a name="l09593"></a><span class="lineno"> 9593</span>  node = node->nd_body;</div><div class="line"><a name="l09594"></a><span class="lineno"> 9594</span>  }</div><div class="line"><a name="l09595"></a><span class="lineno"> 9595</span>  if (split) {</div><div class="line"><a name="l09596"></a><span class="lineno"> 9596</span>  node = block_append(NEW_GASGN(rb_intern("$F"),</div><div class="line"><a name="l09597"></a><span class="lineno"> 9597</span>  NEW_CALL(NEW_GVAR(rb_intern("$_")),</div><div class="line"><a name="l09598"></a><span class="lineno"> 9598</span>  rb_intern("split"), 0)),</div><div class="line"><a name="l09599"></a><span class="lineno"> 9599</span>  node);</div><div class="line"><a name="l09600"></a><span class="lineno"> 9600</span>  }</div><div class="line"><a name="l09601"></a><span class="lineno"> 9601</span>  if (chop) {</div><div class="line"><a name="l09602"></a><span class="lineno"> 9602</span>  node = block_append(NEW_CALL(NEW_GVAR(rb_intern("$_")),</div><div class="line"><a name="l09603"></a><span class="lineno"> 9603</span>  rb_intern("chop!"), 0), node);</div><div class="line"><a name="l09604"></a><span class="lineno"> 9604</span>  }</div><div class="line"><a name="l09605"></a><span class="lineno"> 9605</span> </div><div class="line"><a name="l09606"></a><span class="lineno"> 9606</span>  node = NEW_OPT_N(node);</div><div class="line"><a name="l09607"></a><span class="lineno"> 9607</span> </div><div class="line"><a name="l09608"></a><span class="lineno"> 9608</span>  if (prelude) {</div><div class="line"><a name="l09609"></a><span class="lineno"> 9609</span>  prelude->nd_body = node;</div><div class="line"><a name="l09610"></a><span class="lineno"> 9610</span>  scope->nd_body = prelude;</div><div class="line"><a name="l09611"></a><span class="lineno"> 9611</span>  }</div><div class="line"><a name="l09612"></a><span class="lineno"> 9612</span>  else {</div><div class="line"><a name="l09613"></a><span class="lineno"> 9613</span>  scope->nd_body = node;</div><div class="line"><a name="l09614"></a><span class="lineno"> 9614</span>  }</div><div class="line"><a name="l09615"></a><span class="lineno"> 9615</span> </div><div class="line"><a name="l09616"></a><span class="lineno"> 9616</span>  return scope;</div><div class="line"><a name="l09617"></a><span class="lineno"> 9617</span> }</div><div class="line"><a name="l09618"></a><span class="lineno"> 9618</span> </div><div class="line"><a name="l09619"></a><span class="lineno"> 9619</span> static const struct {</div><div class="line"><a name="l09620"></a><span class="lineno"> 9620</span>  ID token;</div><div class="line"><a name="l09621"></a><span class="lineno"> 9621</span>  const char *name;</div><div class="line"><a name="l09622"></a><span class="lineno"> 9622</span> } op_tbl[] = {</div><div class="line"><a name="l09623"></a><span class="lineno"> 9623</span>  {tDOT2, ".."},</div><div class="line"><a name="l09624"></a><span class="lineno"> 9624</span>  {tDOT3, "..."},</div><div class="line"><a name="l09625"></a><span class="lineno"> 9625</span>  {tPOW, "**"},</div><div class="line"><a name="l09626"></a><span class="lineno"> 9626</span>  {tUPLUS, "+@"},</div><div class="line"><a name="l09627"></a><span class="lineno"> 9627</span>  {tUMINUS, "-@"},</div><div class="line"><a name="l09628"></a><span class="lineno"> 9628</span>  {tCMP, "<=>"},</div><div class="line"><a name="l09629"></a><span class="lineno"> 9629</span>  {tGEQ, ">="},</div><div class="line"><a name="l09630"></a><span class="lineno"> 9630</span>  {tLEQ, "<="},</div><div class="line"><a name="l09631"></a><span class="lineno"> 9631</span>  {tEQ, "=="},</div><div class="line"><a name="l09632"></a><span class="lineno"> 9632</span>  {tEQQ, "==="},</div><div class="line"><a name="l09633"></a><span class="lineno"> 9633</span>  {tNEQ, "!="},</div><div class="line"><a name="l09634"></a><span class="lineno"> 9634</span>  {tMATCH, "=~"},</div><div class="line"><a name="l09635"></a><span class="lineno"> 9635</span>  {tNMATCH, "!~"},</div><div class="line"><a name="l09636"></a><span class="lineno"> 9636</span>  {tAREF, "[]"},</div><div class="line"><a name="l09637"></a><span class="lineno"> 9637</span>  {tASET, "[]="},</div><div class="line"><a name="l09638"></a><span class="lineno"> 9638</span>  {tLSHFT, "<<"},</div><div class="line"><a name="l09639"></a><span class="lineno"> 9639</span>  {tRSHFT, ">>"},</div><div class="line"><a name="l09640"></a><span class="lineno"> 9640</span>  {tCOLON2, "::"},</div><div class="line"><a name="l09641"></a><span class="lineno"> 9641</span> };</div><div class="line"><a name="l09642"></a><span class="lineno"> 9642</span> </div><div class="line"><a name="l09643"></a><span class="lineno"> 9643</span> #define op_tbl_count numberof(op_tbl)</div><div class="line"><a name="l09644"></a><span class="lineno"> 9644</span> </div><div class="line"><a name="l09645"></a><span class="lineno"> 9645</span> #ifndef ENABLE_SELECTOR_NAMESPACE</div><div class="line"><a name="l09646"></a><span class="lineno"> 9646</span> #define ENABLE_SELECTOR_NAMESPACE 0</div><div class="line"><a name="l09647"></a><span class="lineno"> 9647</span> #endif</div><div class="line"><a name="l09648"></a><span class="lineno"> 9648</span> </div><div class="line"><a name="l09649"></a><span class="lineno"> 9649</span> static struct symbols {</div><div class="line"><a name="l09650"></a><span class="lineno"> 9650</span>  ID last_id;</div><div class="line"><a name="l09651"></a><span class="lineno"> 9651</span>  st_table *sym_id;</div><div class="line"><a name="l09652"></a><span class="lineno"> 9652</span>  st_table *id_str;</div><div class="line"><a name="l09653"></a><span class="lineno"> 9653</span> #if ENABLE_SELECTOR_NAMESPACE</div><div class="line"><a name="l09654"></a><span class="lineno"> 9654</span>  st_table *ivar2_id;</div><div class="line"><a name="l09655"></a><span class="lineno"> 9655</span>  st_table *id_ivar2;</div><div class="line"><a name="l09656"></a><span class="lineno"> 9656</span> #endif</div><div class="line"><a name="l09657"></a><span class="lineno"> 9657</span>  VALUE op_sym[tLAST_TOKEN];</div><div class="line"><a name="l09658"></a><span class="lineno"> 9658</span> } global_symbols = {tLAST_ID};</div><div class="line"><a name="l09659"></a><span class="lineno"> 9659</span> </div><div class="line"><a name="l09660"></a><span class="lineno"> 9660</span> static const struct st_hash_type symhash = {</div><div class="line"><a name="l09661"></a><span class="lineno"> 9661</span>  rb_str_hash_cmp,</div><div class="line"><a name="l09662"></a><span class="lineno"> 9662</span>  rb_str_hash,</div><div class="line"><a name="l09663"></a><span class="lineno"> 9663</span> };</div><div class="line"><a name="l09664"></a><span class="lineno"> 9664</span> </div><div class="line"><a name="l09665"></a><span class="lineno"> 9665</span> #if ENABLE_SELECTOR_NAMESPACE</div><div class="line"><a name="l09666"></a><span class="lineno"> 9666</span> struct ivar2_key {</div><div class="line"><a name="l09667"></a><span class="lineno"> 9667</span>  ID id;</div><div class="line"><a name="l09668"></a><span class="lineno"> 9668</span>  VALUE klass;</div><div class="line"><a name="l09669"></a><span class="lineno"> 9669</span> };</div><div class="line"><a name="l09670"></a><span class="lineno"> 9670</span> </div><div class="line"><a name="l09671"></a><span class="lineno"> 9671</span> static int</div><div class="line"><a name="l09672"></a><span class="lineno"> 9672</span> ivar2_cmp(struct ivar2_key *key1, struct ivar2_key *key2)</div><div class="line"><a name="l09673"></a><span class="lineno"> 9673</span> {</div><div class="line"><a name="l09674"></a><span class="lineno"> 9674</span>  if (key1->id == key2->id && key1->klass == key2->klass) {</div><div class="line"><a name="l09675"></a><span class="lineno"> 9675</span>  return 0;</div><div class="line"><a name="l09676"></a><span class="lineno"> 9676</span>  }</div><div class="line"><a name="l09677"></a><span class="lineno"> 9677</span>  return 1;</div><div class="line"><a name="l09678"></a><span class="lineno"> 9678</span> }</div><div class="line"><a name="l09679"></a><span class="lineno"> 9679</span> </div><div class="line"><a name="l09680"></a><span class="lineno"> 9680</span> static int</div><div class="line"><a name="l09681"></a><span class="lineno"> 9681</span> ivar2_hash(struct ivar2_key *key)</div><div class="line"><a name="l09682"></a><span class="lineno"> 9682</span> {</div><div class="line"><a name="l09683"></a><span class="lineno"> 9683</span>  return (key->id << 8) ^ (key->klass >> 2);</div><div class="line"><a name="l09684"></a><span class="lineno"> 9684</span> }</div><div class="line"><a name="l09685"></a><span class="lineno"> 9685</span> </div><div class="line"><a name="l09686"></a><span class="lineno"> 9686</span> static const struct st_hash_type ivar2_hash_type = {</div><div class="line"><a name="l09687"></a><span class="lineno"> 9687</span>  ivar2_cmp,</div><div class="line"><a name="l09688"></a><span class="lineno"> 9688</span>  ivar2_hash,</div><div class="line"><a name="l09689"></a><span class="lineno"> 9689</span> };</div><div class="line"><a name="l09690"></a><span class="lineno"> 9690</span> #endif</div><div class="line"><a name="l09691"></a><span class="lineno"> 9691</span> </div><div class="line"><a name="l09692"></a><span class="lineno"> 9692</span> void</div><div class="line"><a name="l09693"></a><span class="lineno"> 9693</span> Init_sym(void)</div><div class="line"><a name="l09694"></a><span class="lineno"> 9694</span> {</div><div class="line"><a name="l09695"></a><span class="lineno"> 9695</span>  global_symbols.sym_id = st_init_table_with_size(&symhash, 1000);</div><div class="line"><a name="l09696"></a><span class="lineno"> 9696</span>  global_symbols.id_str = st_init_numtable_with_size(1000);</div><div class="line"><a name="l09697"></a><span class="lineno"> 9697</span> #if ENABLE_SELECTOR_NAMESPACE</div><div class="line"><a name="l09698"></a><span class="lineno"> 9698</span>  global_symbols.ivar2_id = st_init_table_with_size(&ivar2_hash_type, 1000);</div><div class="line"><a name="l09699"></a><span class="lineno"> 9699</span>  global_symbols.id_ivar2 = st_init_numtable_with_size(1000);</div><div class="line"><a name="l09700"></a><span class="lineno"> 9700</span> #endif</div><div class="line"><a name="l09701"></a><span class="lineno"> 9701</span> </div><div class="line"><a name="l09702"></a><span class="lineno"> 9702</span>  Init_id();</div><div class="line"><a name="l09703"></a><span class="lineno"> 9703</span> }</div><div class="line"><a name="l09704"></a><span class="lineno"> 9704</span> </div><div class="line"><a name="l09705"></a><span class="lineno"> 9705</span> void</div><div class="line"><a name="l09706"></a><span class="lineno"> 9706</span> rb_gc_mark_symbols(void)</div><div class="line"><a name="l09707"></a><span class="lineno"> 9707</span> {</div><div class="line"><a name="l09708"></a><span class="lineno"> 9708</span>  rb_mark_tbl(global_symbols.id_str);</div><div class="line"><a name="l09709"></a><span class="lineno"> 9709</span>  rb_gc_mark_locations(global_symbols.op_sym,</div><div class="line"><a name="l09710"></a><span class="lineno"> 9710</span>  global_symbols.op_sym + tLAST_TOKEN);</div><div class="line"><a name="l09711"></a><span class="lineno"> 9711</span> }</div><div class="line"><a name="l09712"></a><span class="lineno"> 9712</span> #endif /* !RIPPER */</div><div class="line"><a name="l09713"></a><span class="lineno"> 9713</span> </div><div class="line"><a name="l09714"></a><span class="lineno"> 9714</span> static ID</div><div class="line"><a name="l09715"></a><span class="lineno"> 9715</span> internal_id_gen(struct parser_params *parser)</div><div class="line"><a name="l09716"></a><span class="lineno"> 9716</span> {</div><div class="line"><a name="l09717"></a><span class="lineno"> 9717</span>  ID id = (ID)vtable_size(lvtbl->args) + (ID)vtable_size(lvtbl->vars);</div><div class="line"><a name="l09718"></a><span class="lineno"> 9718</span>  id += ((tLAST_TOKEN - ID_INTERNAL) >> ID_SCOPE_SHIFT) + 1;</div><div class="line"><a name="l09719"></a><span class="lineno"> 9719</span>  return ID_INTERNAL | (id << ID_SCOPE_SHIFT);</div><div class="line"><a name="l09720"></a><span class="lineno"> 9720</span> }</div><div class="line"><a name="l09721"></a><span class="lineno"> 9721</span> </div><div class="line"><a name="l09722"></a><span class="lineno"> 9722</span> #ifndef RIPPER</div><div class="line"><a name="l09723"></a><span class="lineno"> 9723</span> static int</div><div class="line"><a name="l09724"></a><span class="lineno"> 9724</span> is_special_global_name(const char *m, const char *e, rb_encoding *enc)</div><div class="line"><a name="l09725"></a><span class="lineno"> 9725</span> {</div><div class="line"><a name="l09726"></a><span class="lineno"> 9726</span>  int mb = 0;</div><div class="line"><a name="l09727"></a><span class="lineno"> 9727</span> </div><div class="line"><a name="l09728"></a><span class="lineno"> 9728</span>  if (m >= e) return 0;</div><div class="line"><a name="l09729"></a><span class="lineno"> 9729</span>  if (is_global_name_punct(*m)) {</div><div class="line"><a name="l09730"></a><span class="lineno"> 9730</span>  ++m;</div><div class="line"><a name="l09731"></a><span class="lineno"> 9731</span>  }</div><div class="line"><a name="l09732"></a><span class="lineno"> 9732</span>  else if (*m == '-') {</div><div class="line"><a name="l09733"></a><span class="lineno"> 9733</span>  ++m;</div><div class="line"><a name="l09734"></a><span class="lineno"> 9734</span>  if (m < e && is_identchar(m, e, enc)) {</div><div class="line"><a name="l09735"></a><span class="lineno"> 9735</span>  if (!ISASCII(*m)) mb = 1;</div><div class="line"><a name="l09736"></a><span class="lineno"> 9736</span>  m += rb_enc_mbclen(m, e, enc);</div><div class="line"><a name="l09737"></a><span class="lineno"> 9737</span>  }</div><div class="line"><a name="l09738"></a><span class="lineno"> 9738</span>  }</div><div class="line"><a name="l09739"></a><span class="lineno"> 9739</span>  else {</div><div class="line"><a name="l09740"></a><span class="lineno"> 9740</span>  if (!rb_enc_isdigit(*m, enc)) return 0;</div><div class="line"><a name="l09741"></a><span class="lineno"> 9741</span>  do {</div><div class="line"><a name="l09742"></a><span class="lineno"> 9742</span>  if (!ISASCII(*m)) mb = 1;</div><div class="line"><a name="l09743"></a><span class="lineno"> 9743</span>  ++m;</div><div class="line"><a name="l09744"></a><span class="lineno"> 9744</span>  } while (m < e && rb_enc_isdigit(*m, enc));</div><div class="line"><a name="l09745"></a><span class="lineno"> 9745</span>  }</div><div class="line"><a name="l09746"></a><span class="lineno"> 9746</span>  return m == e ? mb + 1 : 0;</div><div class="line"><a name="l09747"></a><span class="lineno"> 9747</span> }</div><div class="line"><a name="l09748"></a><span class="lineno"> 9748</span> </div><div class="line"><a name="l09749"></a><span class="lineno"> 9749</span> int</div><div class="line"><a name="l09750"></a><span class="lineno"> 9750</span> rb_symname_p(const char *name)</div><div class="line"><a name="l09751"></a><span class="lineno"> 9751</span> {</div><div class="line"><a name="l09752"></a><span class="lineno"> 9752</span>  return rb_enc_symname_p(name, rb_ascii8bit_encoding());</div><div class="line"><a name="l09753"></a><span class="lineno"> 9753</span> }</div><div class="line"><a name="l09754"></a><span class="lineno"> 9754</span> </div><div class="line"><a name="l09755"></a><span class="lineno"> 9755</span> int</div><div class="line"><a name="l09756"></a><span class="lineno"> 9756</span> rb_enc_symname_p(const char *name, rb_encoding *enc)</div><div class="line"><a name="l09757"></a><span class="lineno"> 9757</span> {</div><div class="line"><a name="l09758"></a><span class="lineno"> 9758</span>  return rb_enc_symname2_p(name, strlen(name), enc);</div><div class="line"><a name="l09759"></a><span class="lineno"> 9759</span> }</div><div class="line"><a name="l09760"></a><span class="lineno"> 9760</span> </div><div class="line"><a name="l09761"></a><span class="lineno"> 9761</span> int</div><div class="line"><a name="l09762"></a><span class="lineno"> 9762</span> rb_enc_symname2_p(const char *name, long len, rb_encoding *enc)</div><div class="line"><a name="l09763"></a><span class="lineno"> 9763</span> {</div><div class="line"><a name="l09764"></a><span class="lineno"> 9764</span>  const char *m = name;</div><div class="line"><a name="l09765"></a><span class="lineno"> 9765</span>  const char *e = m + len;</div><div class="line"><a name="l09766"></a><span class="lineno"> 9766</span>  int localid = FALSE;</div><div class="line"><a name="l09767"></a><span class="lineno"> 9767</span> </div><div class="line"><a name="l09768"></a><span class="lineno"> 9768</span>  if (!m || len <= 0) return FALSE;</div><div class="line"><a name="l09769"></a><span class="lineno"> 9769</span>  switch (*m) {</div><div class="line"><a name="l09770"></a><span class="lineno"> 9770</span>  case '\0':</div><div class="line"><a name="l09771"></a><span class="lineno"> 9771</span>  return FALSE;</div><div class="line"><a name="l09772"></a><span class="lineno"> 9772</span> </div><div class="line"><a name="l09773"></a><span class="lineno"> 9773</span>  case '$':</div><div class="line"><a name="l09774"></a><span class="lineno"> 9774</span>  if (is_special_global_name(++m, e, enc)) return TRUE;</div><div class="line"><a name="l09775"></a><span class="lineno"> 9775</span>  goto id;</div><div class="line"><a name="l09776"></a><span class="lineno"> 9776</span> </div><div class="line"><a name="l09777"></a><span class="lineno"> 9777</span>  case '@':</div><div class="line"><a name="l09778"></a><span class="lineno"> 9778</span>  if (*++m == '@') ++m;</div><div class="line"><a name="l09779"></a><span class="lineno"> 9779</span>  goto id;</div><div class="line"><a name="l09780"></a><span class="lineno"> 9780</span> </div><div class="line"><a name="l09781"></a><span class="lineno"> 9781</span>  case '<':</div><div class="line"><a name="l09782"></a><span class="lineno"> 9782</span>  switch (*++m) {</div><div class="line"><a name="l09783"></a><span class="lineno"> 9783</span>  case '<': ++m; break;</div><div class="line"><a name="l09784"></a><span class="lineno"> 9784</span>  case '=': if (*++m == '>') ++m; break;</div><div class="line"><a name="l09785"></a><span class="lineno"> 9785</span>  default: break;</div><div class="line"><a name="l09786"></a><span class="lineno"> 9786</span>  }</div><div class="line"><a name="l09787"></a><span class="lineno"> 9787</span>  break;</div><div class="line"><a name="l09788"></a><span class="lineno"> 9788</span> </div><div class="line"><a name="l09789"></a><span class="lineno"> 9789</span>  case '>':</div><div class="line"><a name="l09790"></a><span class="lineno"> 9790</span>  switch (*++m) {</div><div class="line"><a name="l09791"></a><span class="lineno"> 9791</span>  case '>': case '=': ++m; break;</div><div class="line"><a name="l09792"></a><span class="lineno"> 9792</span>  }</div><div class="line"><a name="l09793"></a><span class="lineno"> 9793</span>  break;</div><div class="line"><a name="l09794"></a><span class="lineno"> 9794</span> </div><div class="line"><a name="l09795"></a><span class="lineno"> 9795</span>  case '=':</div><div class="line"><a name="l09796"></a><span class="lineno"> 9796</span>  switch (*++m) {</div><div class="line"><a name="l09797"></a><span class="lineno"> 9797</span>  case '~': ++m; break;</div><div class="line"><a name="l09798"></a><span class="lineno"> 9798</span>  case '=': if (*++m == '=') ++m; break;</div><div class="line"><a name="l09799"></a><span class="lineno"> 9799</span>  default: return FALSE;</div><div class="line"><a name="l09800"></a><span class="lineno"> 9800</span>  }</div><div class="line"><a name="l09801"></a><span class="lineno"> 9801</span>  break;</div><div class="line"><a name="l09802"></a><span class="lineno"> 9802</span> </div><div class="line"><a name="l09803"></a><span class="lineno"> 9803</span>  case '*':</div><div class="line"><a name="l09804"></a><span class="lineno"> 9804</span>  if (*++m == '*') ++m;</div><div class="line"><a name="l09805"></a><span class="lineno"> 9805</span>  break;</div><div class="line"><a name="l09806"></a><span class="lineno"> 9806</span> </div><div class="line"><a name="l09807"></a><span class="lineno"> 9807</span>  case '+': case '-':</div><div class="line"><a name="l09808"></a><span class="lineno"> 9808</span>  if (*++m == '@') ++m;</div><div class="line"><a name="l09809"></a><span class="lineno"> 9809</span>  break;</div><div class="line"><a name="l09810"></a><span class="lineno"> 9810</span> </div><div class="line"><a name="l09811"></a><span class="lineno"> 9811</span>  case '|': case '^': case '&': case '/': case '%': case '~': case '`':</div><div class="line"><a name="l09812"></a><span class="lineno"> 9812</span>  ++m;</div><div class="line"><a name="l09813"></a><span class="lineno"> 9813</span>  break;</div><div class="line"><a name="l09814"></a><span class="lineno"> 9814</span> </div><div class="line"><a name="l09815"></a><span class="lineno"> 9815</span>  case '[':</div><div class="line"><a name="l09816"></a><span class="lineno"> 9816</span>  if (*++m != ']') return FALSE;</div><div class="line"><a name="l09817"></a><span class="lineno"> 9817</span>  if (*++m == '=') ++m;</div><div class="line"><a name="l09818"></a><span class="lineno"> 9818</span>  break;</div><div class="line"><a name="l09819"></a><span class="lineno"> 9819</span> </div><div class="line"><a name="l09820"></a><span class="lineno"> 9820</span>  case '!':</div><div class="line"><a name="l09821"></a><span class="lineno"> 9821</span>  if (len == 1) return TRUE;</div><div class="line"><a name="l09822"></a><span class="lineno"> 9822</span>  switch (*++m) {</div><div class="line"><a name="l09823"></a><span class="lineno"> 9823</span>  case '=': case '~': ++m; break;</div><div class="line"><a name="l09824"></a><span class="lineno"> 9824</span>  default: return FALSE;</div><div class="line"><a name="l09825"></a><span class="lineno"> 9825</span>  }</div><div class="line"><a name="l09826"></a><span class="lineno"> 9826</span>  break;</div><div class="line"><a name="l09827"></a><span class="lineno"> 9827</span> </div><div class="line"><a name="l09828"></a><span class="lineno"> 9828</span>  default:</div><div class="line"><a name="l09829"></a><span class="lineno"> 9829</span>  localid = !rb_enc_isupper(*m, enc);</div><div class="line"><a name="l09830"></a><span class="lineno"> 9830</span>  id:</div><div class="line"><a name="l09831"></a><span class="lineno"> 9831</span>  if (m >= e || (*m != '_' && !rb_enc_isalpha(*m, enc) && ISASCII(*m)))</div><div class="line"><a name="l09832"></a><span class="lineno"> 9832</span>  return FALSE;</div><div class="line"><a name="l09833"></a><span class="lineno"> 9833</span>  while (m < e && is_identchar(m, e, enc)) m += rb_enc_mbclen(m, e, enc);</div><div class="line"><a name="l09834"></a><span class="lineno"> 9834</span>  if (localid) {</div><div class="line"><a name="l09835"></a><span class="lineno"> 9835</span>  switch (*m) {</div><div class="line"><a name="l09836"></a><span class="lineno"> 9836</span>  case '!': case '?': case '=': ++m;</div><div class="line"><a name="l09837"></a><span class="lineno"> 9837</span>  }</div><div class="line"><a name="l09838"></a><span class="lineno"> 9838</span>  }</div><div class="line"><a name="l09839"></a><span class="lineno"> 9839</span>  break;</div><div class="line"><a name="l09840"></a><span class="lineno"> 9840</span>  }</div><div class="line"><a name="l09841"></a><span class="lineno"> 9841</span>  return m == e;</div><div class="line"><a name="l09842"></a><span class="lineno"> 9842</span> }</div><div class="line"><a name="l09843"></a><span class="lineno"> 9843</span> </div><div class="line"><a name="l09844"></a><span class="lineno"> 9844</span> static ID</div><div class="line"><a name="l09845"></a><span class="lineno"> 9845</span> register_symid(ID id, const char *name, long len, rb_encoding *enc)</div><div class="line"><a name="l09846"></a><span class="lineno"> 9846</span> {</div><div class="line"><a name="l09847"></a><span class="lineno"> 9847</span>  VALUE str = rb_enc_str_new(name, len, enc);</div><div class="line"><a name="l09848"></a><span class="lineno"> 9848</span>  OBJ_FREEZE(str);</div><div class="line"><a name="l09849"></a><span class="lineno"> 9849</span>  st_add_direct(global_symbols.sym_id, (st_data_t)str, id);</div><div class="line"><a name="l09850"></a><span class="lineno"> 9850</span>  st_add_direct(global_symbols.id_str, id, (st_data_t)str);</div><div class="line"><a name="l09851"></a><span class="lineno"> 9851</span>  return id;</div><div class="line"><a name="l09852"></a><span class="lineno"> 9852</span> }</div><div class="line"><a name="l09853"></a><span class="lineno"> 9853</span> </div><div class="line"><a name="l09854"></a><span class="lineno"> 9854</span> ID</div><div class="line"><a name="l09855"></a><span class="lineno"> 9855</span> rb_intern3(const char *name, long len, rb_encoding *enc)</div><div class="line"><a name="l09856"></a><span class="lineno"> 9856</span> {</div><div class="line"><a name="l09857"></a><span class="lineno"> 9857</span>  const char *m = name;</div><div class="line"><a name="l09858"></a><span class="lineno"> 9858</span>  const char *e = m + len;</div><div class="line"><a name="l09859"></a><span class="lineno"> 9859</span>  unsigned char c;</div><div class="line"><a name="l09860"></a><span class="lineno"> 9860</span>  VALUE str;</div><div class="line"><a name="l09861"></a><span class="lineno"> 9861</span>  ID id;</div><div class="line"><a name="l09862"></a><span class="lineno"> 9862</span>  long last;</div><div class="line"><a name="l09863"></a><span class="lineno"> 9863</span>  int mb;</div><div class="line"><a name="l09864"></a><span class="lineno"> 9864</span>  st_data_t data;</div><div class="line"><a name="l09865"></a><span class="lineno"> 9865</span>  struct RString fake_str;</div><div class="line"><a name="l09866"></a><span class="lineno"> 9866</span>  fake_str.basic.flags = T_STRING|RSTRING_NOEMBED;</div><div class="line"><a name="l09867"></a><span class="lineno"> 9867</span>  fake_str.basic.klass = rb_cString;</div><div class="line"><a name="l09868"></a><span class="lineno"> 9868</span>  fake_str.as.heap.len = len;</div><div class="line"><a name="l09869"></a><span class="lineno"> 9869</span>  fake_str.as.heap.ptr = (char *)name;</div><div class="line"><a name="l09870"></a><span class="lineno"> 9870</span>  fake_str.as.heap.aux.capa = len;</div><div class="line"><a name="l09871"></a><span class="lineno"> 9871</span>  str = (VALUE)&fake_str;</div><div class="line"><a name="l09872"></a><span class="lineno"> 9872</span>  rb_enc_associate(str, enc);</div><div class="line"><a name="l09873"></a><span class="lineno"> 9873</span>  OBJ_FREEZE(str);</div><div class="line"><a name="l09874"></a><span class="lineno"> 9874</span> </div><div class="line"><a name="l09875"></a><span class="lineno"> 9875</span>  if (rb_enc_str_coderange(str) == ENC_CODERANGE_BROKEN) {</div><div class="line"><a name="l09876"></a><span class="lineno"> 9876</span>  rb_raise(rb_eEncodingError, "invalid encoding symbol");</div><div class="line"><a name="l09877"></a><span class="lineno"> 9877</span>  }</div><div class="line"><a name="l09878"></a><span class="lineno"> 9878</span> </div><div class="line"><a name="l09879"></a><span class="lineno"> 9879</span>  if (st_lookup(global_symbols.sym_id, str, &data))</div><div class="line"><a name="l09880"></a><span class="lineno"> 9880</span>  return (ID)data;</div><div class="line"><a name="l09881"></a><span class="lineno"> 9881</span> </div><div class="line"><a name="l09882"></a><span class="lineno"> 9882</span>  if (rb_cString && !rb_enc_asciicompat(enc)) {</div><div class="line"><a name="l09883"></a><span class="lineno"> 9883</span>  id = ID_JUNK;</div><div class="line"><a name="l09884"></a><span class="lineno"> 9884</span>  goto new_id;</div><div class="line"><a name="l09885"></a><span class="lineno"> 9885</span>  }</div><div class="line"><a name="l09886"></a><span class="lineno"> 9886</span>  last = len-1;</div><div class="line"><a name="l09887"></a><span class="lineno"> 9887</span>  id = 0;</div><div class="line"><a name="l09888"></a><span class="lineno"> 9888</span>  switch (*m) {</div><div class="line"><a name="l09889"></a><span class="lineno"> 9889</span>  case '$':</div><div class="line"><a name="l09890"></a><span class="lineno"> 9890</span>  id |= ID_GLOBAL;</div><div class="line"><a name="l09891"></a><span class="lineno"> 9891</span>  if ((mb = is_special_global_name(++m, e, enc)) != 0) {</div><div class="line"><a name="l09892"></a><span class="lineno"> 9892</span>  if (!--mb) enc = rb_ascii8bit_encoding();</div><div class="line"><a name="l09893"></a><span class="lineno"> 9893</span>  goto new_id;</div><div class="line"><a name="l09894"></a><span class="lineno"> 9894</span>  }</div><div class="line"><a name="l09895"></a><span class="lineno"> 9895</span>  break;</div><div class="line"><a name="l09896"></a><span class="lineno"> 9896</span>  case '@':</div><div class="line"><a name="l09897"></a><span class="lineno"> 9897</span>  if (m[1] == '@') {</div><div class="line"><a name="l09898"></a><span class="lineno"> 9898</span>  m++;</div><div class="line"><a name="l09899"></a><span class="lineno"> 9899</span>  id |= ID_CLASS;</div><div class="line"><a name="l09900"></a><span class="lineno"> 9900</span>  }</div><div class="line"><a name="l09901"></a><span class="lineno"> 9901</span>  else {</div><div class="line"><a name="l09902"></a><span class="lineno"> 9902</span>  id |= ID_INSTANCE;</div><div class="line"><a name="l09903"></a><span class="lineno"> 9903</span>  }</div><div class="line"><a name="l09904"></a><span class="lineno"> 9904</span>  m++;</div><div class="line"><a name="l09905"></a><span class="lineno"> 9905</span>  break;</div><div class="line"><a name="l09906"></a><span class="lineno"> 9906</span>  default:</div><div class="line"><a name="l09907"></a><span class="lineno"> 9907</span>  c = m[0];</div><div class="line"><a name="l09908"></a><span class="lineno"> 9908</span>  if (c != '_' && rb_enc_isascii(c, enc) && rb_enc_ispunct(c, enc)) {</div><div class="line"><a name="l09909"></a><span class="lineno"> 9909</span>  /* operators */</div><div class="line"><a name="l09910"></a><span class="lineno"> 9910</span>  int i;</div><div class="line"><a name="l09911"></a><span class="lineno"> 9911</span> </div><div class="line"><a name="l09912"></a><span class="lineno"> 9912</span>  if (len == 1) {</div><div class="line"><a name="l09913"></a><span class="lineno"> 9913</span>  id = c;</div><div class="line"><a name="l09914"></a><span class="lineno"> 9914</span>  goto id_register;</div><div class="line"><a name="l09915"></a><span class="lineno"> 9915</span>  }</div><div class="line"><a name="l09916"></a><span class="lineno"> 9916</span>  for (i = 0; i < op_tbl_count; i++) {</div><div class="line"><a name="l09917"></a><span class="lineno"> 9917</span>  if (*op_tbl[i].name == *m &&</div><div class="line"><a name="l09918"></a><span class="lineno"> 9918</span>  strcmp(op_tbl[i].name, m) == 0) {</div><div class="line"><a name="l09919"></a><span class="lineno"> 9919</span>  id = op_tbl[i].token;</div><div class="line"><a name="l09920"></a><span class="lineno"> 9920</span>  goto id_register;</div><div class="line"><a name="l09921"></a><span class="lineno"> 9921</span>  }</div><div class="line"><a name="l09922"></a><span class="lineno"> 9922</span>  }</div><div class="line"><a name="l09923"></a><span class="lineno"> 9923</span>  }</div><div class="line"><a name="l09924"></a><span class="lineno"> 9924</span> </div><div class="line"><a name="l09925"></a><span class="lineno"> 9925</span>  if (m[last] == '=') {</div><div class="line"><a name="l09926"></a><span class="lineno"> 9926</span>  /* attribute assignment */</div><div class="line"><a name="l09927"></a><span class="lineno"> 9927</span>  id = rb_intern3(name, last, enc);</div><div class="line"><a name="l09928"></a><span class="lineno"> 9928</span>  if (id > tLAST_TOKEN && !is_attrset_id(id)) {</div><div class="line"><a name="l09929"></a><span class="lineno"> 9929</span>  enc = rb_enc_get(rb_id2str(id));</div><div class="line"><a name="l09930"></a><span class="lineno"> 9930</span>  id = rb_id_attrset(id);</div><div class="line"><a name="l09931"></a><span class="lineno"> 9931</span>  goto id_register;</div><div class="line"><a name="l09932"></a><span class="lineno"> 9932</span>  }</div><div class="line"><a name="l09933"></a><span class="lineno"> 9933</span>  id = ID_ATTRSET;</div><div class="line"><a name="l09934"></a><span class="lineno"> 9934</span>  }</div><div class="line"><a name="l09935"></a><span class="lineno"> 9935</span>  else if (rb_enc_isupper(m[0], enc)) {</div><div class="line"><a name="l09936"></a><span class="lineno"> 9936</span>  id = ID_CONST;</div><div class="line"><a name="l09937"></a><span class="lineno"> 9937</span>  }</div><div class="line"><a name="l09938"></a><span class="lineno"> 9938</span>  else {</div><div class="line"><a name="l09939"></a><span class="lineno"> 9939</span>  id = ID_LOCAL;</div><div class="line"><a name="l09940"></a><span class="lineno"> 9940</span>  }</div><div class="line"><a name="l09941"></a><span class="lineno"> 9941</span>  break;</div><div class="line"><a name="l09942"></a><span class="lineno"> 9942</span>  }</div><div class="line"><a name="l09943"></a><span class="lineno"> 9943</span>  mb = 0;</div><div class="line"><a name="l09944"></a><span class="lineno"> 9944</span>  if (!rb_enc_isdigit(*m, enc)) {</div><div class="line"><a name="l09945"></a><span class="lineno"> 9945</span>  while (m <= name + last && is_identchar(m, e, enc)) {</div><div class="line"><a name="l09946"></a><span class="lineno"> 9946</span>  if (ISASCII(*m)) {</div><div class="line"><a name="l09947"></a><span class="lineno"> 9947</span>  m++;</div><div class="line"><a name="l09948"></a><span class="lineno"> 9948</span>  }</div><div class="line"><a name="l09949"></a><span class="lineno"> 9949</span>  else {</div><div class="line"><a name="l09950"></a><span class="lineno"> 9950</span>  mb = 1;</div><div class="line"><a name="l09951"></a><span class="lineno"> 9951</span>  m += rb_enc_mbclen(m, e, enc);</div><div class="line"><a name="l09952"></a><span class="lineno"> 9952</span>  }</div><div class="line"><a name="l09953"></a><span class="lineno"> 9953</span>  }</div><div class="line"><a name="l09954"></a><span class="lineno"> 9954</span>  }</div><div class="line"><a name="l09955"></a><span class="lineno"> 9955</span>  if (m - name < len) id = ID_JUNK;</div><div class="line"><a name="l09956"></a><span class="lineno"> 9956</span>  if (enc != rb_usascii_encoding()) {</div><div class="line"><a name="l09957"></a><span class="lineno"> 9957</span>  /*</div><div class="line"><a name="l09958"></a><span class="lineno"> 9958</span>  * this clause makes sense only when called from other than</div><div class="line"><a name="l09959"></a><span class="lineno"> 9959</span>  * rb_intern_str() taking care of code-range.</div><div class="line"><a name="l09960"></a><span class="lineno"> 9960</span>  */</div><div class="line"><a name="l09961"></a><span class="lineno"> 9961</span>  if (!mb) {</div><div class="line"><a name="l09962"></a><span class="lineno"> 9962</span>  for (; m <= name + len; ++m) {</div><div class="line"><a name="l09963"></a><span class="lineno"> 9963</span>  if (!ISASCII(*m)) goto mbstr;</div><div class="line"><a name="l09964"></a><span class="lineno"> 9964</span>  }</div><div class="line"><a name="l09965"></a><span class="lineno"> 9965</span>  enc = rb_usascii_encoding();</div><div class="line"><a name="l09966"></a><span class="lineno"> 9966</span>  }</div><div class="line"><a name="l09967"></a><span class="lineno"> 9967</span>  mbstr:;</div><div class="line"><a name="l09968"></a><span class="lineno"> 9968</span>  }</div><div class="line"><a name="l09969"></a><span class="lineno"> 9969</span>  new_id:</div><div class="line"><a name="l09970"></a><span class="lineno"> 9970</span>  if (global_symbols.last_id >= ~(ID)0 >> (ID_SCOPE_SHIFT+RUBY_SPECIAL_SHIFT)) {</div><div class="line"><a name="l09971"></a><span class="lineno"> 9971</span>  if (len > 20) {</div><div class="line"><a name="l09972"></a><span class="lineno"> 9972</span>  rb_raise(rb_eRuntimeError, "symbol table overflow (symbol %.20s...)",</div><div class="line"><a name="l09973"></a><span class="lineno"> 9973</span>  name);</div><div class="line"><a name="l09974"></a><span class="lineno"> 9974</span>  }</div><div class="line"><a name="l09975"></a><span class="lineno"> 9975</span>  else {</div><div class="line"><a name="l09976"></a><span class="lineno"> 9976</span>  rb_raise(rb_eRuntimeError, "symbol table overflow (symbol %.*s)",</div><div class="line"><a name="l09977"></a><span class="lineno"> 9977</span>  (int)len, name);</div><div class="line"><a name="l09978"></a><span class="lineno"> 9978</span>  }</div><div class="line"><a name="l09979"></a><span class="lineno"> 9979</span>  }</div><div class="line"><a name="l09980"></a><span class="lineno"> 9980</span>  id |= ++global_symbols.last_id << ID_SCOPE_SHIFT;</div><div class="line"><a name="l09981"></a><span class="lineno"> 9981</span>  id_register:</div><div class="line"><a name="l09982"></a><span class="lineno"> 9982</span>  return register_symid(id, name, len, enc);</div><div class="line"><a name="l09983"></a><span class="lineno"> 9983</span> }</div><div class="line"><a name="l09984"></a><span class="lineno"> 9984</span> </div><div class="line"><a name="l09985"></a><span class="lineno"> 9985</span> ID</div><div class="line"><a name="l09986"></a><span class="lineno"> 9986</span> rb_intern2(const char *name, long len)</div><div class="line"><a name="l09987"></a><span class="lineno"> 9987</span> {</div><div class="line"><a name="l09988"></a><span class="lineno"> 9988</span>  return rb_intern3(name, len, rb_usascii_encoding());</div><div class="line"><a name="l09989"></a><span class="lineno"> 9989</span> }</div><div class="line"><a name="l09990"></a><span class="lineno"> 9990</span> </div><div class="line"><a name="l09991"></a><span class="lineno"> 9991</span> #undef rb_intern</div><div class="line"><a name="l09992"></a><span class="lineno"> 9992</span> ID</div><div class="line"><a name="l09993"></a><span class="lineno"> 9993</span> rb_intern(const char *name)</div><div class="line"><a name="l09994"></a><span class="lineno"> 9994</span> {</div><div class="line"><a name="l09995"></a><span class="lineno"> 9995</span>  return rb_intern2(name, strlen(name));</div><div class="line"><a name="l09996"></a><span class="lineno"> 9996</span> }</div><div class="line"><a name="l09997"></a><span class="lineno"> 9997</span> </div><div class="line"><a name="l09998"></a><span class="lineno"> 9998</span> ID</div><div class="line"><a name="l09999"></a><span class="lineno"> 9999</span> rb_intern_str(VALUE str)</div><div class="line"><a name="l10000"></a><span class="lineno">10000</span> {</div><div class="line"><a name="l10001"></a><span class="lineno">10001</span>  rb_encoding *enc;</div><div class="line"><a name="l10002"></a><span class="lineno">10002</span>  ID id;</div><div class="line"><a name="l10003"></a><span class="lineno">10003</span> </div><div class="line"><a name="l10004"></a><span class="lineno">10004</span>  if (rb_enc_str_coderange(str) == ENC_CODERANGE_7BIT) {</div><div class="line"><a name="l10005"></a><span class="lineno">10005</span>  enc = rb_usascii_encoding();</div><div class="line"><a name="l10006"></a><span class="lineno">10006</span>  }</div><div class="line"><a name="l10007"></a><span class="lineno">10007</span>  else {</div><div class="line"><a name="l10008"></a><span class="lineno">10008</span>  enc = rb_enc_get(str);</div><div class="line"><a name="l10009"></a><span class="lineno">10009</span>  }</div><div class="line"><a name="l10010"></a><span class="lineno">10010</span>  id = rb_intern3(RSTRING_PTR(str), RSTRING_LEN(str), enc);</div><div class="line"><a name="l10011"></a><span class="lineno">10011</span>  RB_GC_GUARD(str);</div><div class="line"><a name="l10012"></a><span class="lineno">10012</span>  return id;</div><div class="line"><a name="l10013"></a><span class="lineno">10013</span> }</div><div class="line"><a name="l10014"></a><span class="lineno">10014</span> </div><div class="line"><a name="l10015"></a><span class="lineno">10015</span> VALUE</div><div class="line"><a name="l10016"></a><span class="lineno">10016</span> rb_id2str(ID id)</div><div class="line"><a name="l10017"></a><span class="lineno">10017</span> {</div><div class="line"><a name="l10018"></a><span class="lineno">10018</span>  st_data_t data;</div><div class="line"><a name="l10019"></a><span class="lineno">10019</span> </div><div class="line"><a name="l10020"></a><span class="lineno">10020</span>  if (id < tLAST_TOKEN) {</div><div class="line"><a name="l10021"></a><span class="lineno">10021</span>  int i = 0;</div><div class="line"><a name="l10022"></a><span class="lineno">10022</span> </div><div class="line"><a name="l10023"></a><span class="lineno">10023</span>  if (id < INT_MAX && rb_ispunct((int)id)) {</div><div class="line"><a name="l10024"></a><span class="lineno">10024</span>  VALUE str = global_symbols.op_sym[i = (int)id];</div><div class="line"><a name="l10025"></a><span class="lineno">10025</span>  if (!str) {</div><div class="line"><a name="l10026"></a><span class="lineno">10026</span>  char name[2];</div><div class="line"><a name="l10027"></a><span class="lineno">10027</span>  name[0] = (char)id;</div><div class="line"><a name="l10028"></a><span class="lineno">10028</span>  name[1] = 0;</div><div class="line"><a name="l10029"></a><span class="lineno">10029</span>  str = rb_usascii_str_new(name, 1);</div><div class="line"><a name="l10030"></a><span class="lineno">10030</span>  OBJ_FREEZE(str);</div><div class="line"><a name="l10031"></a><span class="lineno">10031</span>  global_symbols.op_sym[i] = str;</div><div class="line"><a name="l10032"></a><span class="lineno">10032</span>  }</div><div class="line"><a name="l10033"></a><span class="lineno">10033</span>  return str;</div><div class="line"><a name="l10034"></a><span class="lineno">10034</span>  }</div><div class="line"><a name="l10035"></a><span class="lineno">10035</span>  for (i = 0; i < op_tbl_count; i++) {</div><div class="line"><a name="l10036"></a><span class="lineno">10036</span>  if (op_tbl[i].token == id) {</div><div class="line"><a name="l10037"></a><span class="lineno">10037</span>  VALUE str = global_symbols.op_sym[i];</div><div class="line"><a name="l10038"></a><span class="lineno">10038</span>  if (!str) {</div><div class="line"><a name="l10039"></a><span class="lineno">10039</span>  str = rb_usascii_str_new2(op_tbl[i].name);</div><div class="line"><a name="l10040"></a><span class="lineno">10040</span>  OBJ_FREEZE(str);</div><div class="line"><a name="l10041"></a><span class="lineno">10041</span>  global_symbols.op_sym[i] = str;</div><div class="line"><a name="l10042"></a><span class="lineno">10042</span>  }</div><div class="line"><a name="l10043"></a><span class="lineno">10043</span>  return str;</div><div class="line"><a name="l10044"></a><span class="lineno">10044</span>  }</div><div class="line"><a name="l10045"></a><span class="lineno">10045</span>  }</div><div class="line"><a name="l10046"></a><span class="lineno">10046</span>  }</div><div class="line"><a name="l10047"></a><span class="lineno">10047</span> </div><div class="line"><a name="l10048"></a><span class="lineno">10048</span>  if (st_lookup(global_symbols.id_str, id, &data)) {</div><div class="line"><a name="l10049"></a><span class="lineno">10049</span>  VALUE str = (VALUE)data;</div><div class="line"><a name="l10050"></a><span class="lineno">10050</span>  if (RBASIC(str)->klass == 0)</div><div class="line"><a name="l10051"></a><span class="lineno">10051</span>  RBASIC(str)->klass = rb_cString;</div><div class="line"><a name="l10052"></a><span class="lineno">10052</span>  return str;</div><div class="line"><a name="l10053"></a><span class="lineno">10053</span>  }</div><div class="line"><a name="l10054"></a><span class="lineno">10054</span> </div><div class="line"><a name="l10055"></a><span class="lineno">10055</span>  if (is_attrset_id(id)) {</div><div class="line"><a name="l10056"></a><span class="lineno">10056</span>  ID id2 = (id & ~ID_SCOPE_MASK) | ID_LOCAL;</div><div class="line"><a name="l10057"></a><span class="lineno">10057</span>  VALUE str;</div><div class="line"><a name="l10058"></a><span class="lineno">10058</span> </div><div class="line"><a name="l10059"></a><span class="lineno">10059</span>  while (!(str = rb_id2str(id2))) {</div><div class="line"><a name="l10060"></a><span class="lineno">10060</span>  if (!is_local_id(id2)) return 0;</div><div class="line"><a name="l10061"></a><span class="lineno">10061</span>  id2 = (id & ~ID_SCOPE_MASK) | ID_CONST;</div><div class="line"><a name="l10062"></a><span class="lineno">10062</span>  }</div><div class="line"><a name="l10063"></a><span class="lineno">10063</span>  str = rb_str_dup(str);</div><div class="line"><a name="l10064"></a><span class="lineno">10064</span>  rb_str_cat(str, "=", 1);</div><div class="line"><a name="l10065"></a><span class="lineno">10065</span>  rb_intern_str(str);</div><div class="line"><a name="l10066"></a><span class="lineno">10066</span>  if (st_lookup(global_symbols.id_str, id, &data)) {</div><div class="line"><a name="l10067"></a><span class="lineno">10067</span>  VALUE str = (VALUE)data;</div><div class="line"><a name="l10068"></a><span class="lineno">10068</span>  if (RBASIC(str)->klass == 0)</div><div class="line"><a name="l10069"></a><span class="lineno">10069</span>  RBASIC(str)->klass = rb_cString;</div><div class="line"><a name="l10070"></a><span class="lineno">10070</span>  return str;</div><div class="line"><a name="l10071"></a><span class="lineno">10071</span>  }</div><div class="line"><a name="l10072"></a><span class="lineno">10072</span>  }</div><div class="line"><a name="l10073"></a><span class="lineno">10073</span>  return 0;</div><div class="line"><a name="l10074"></a><span class="lineno">10074</span> }</div><div class="line"><a name="l10075"></a><span class="lineno">10075</span> </div><div class="line"><a name="l10076"></a><span class="lineno">10076</span> const char *</div><div class="line"><a name="l10077"></a><span class="lineno">10077</span> rb_id2name(ID id)</div><div class="line"><a name="l10078"></a><span class="lineno">10078</span> {</div><div class="line"><a name="l10079"></a><span class="lineno">10079</span>  VALUE str = rb_id2str(id);</div><div class="line"><a name="l10080"></a><span class="lineno">10080</span> </div><div class="line"><a name="l10081"></a><span class="lineno">10081</span>  if (!str) return 0;</div><div class="line"><a name="l10082"></a><span class="lineno">10082</span>  return RSTRING_PTR(str);</div><div class="line"><a name="l10083"></a><span class="lineno">10083</span> }</div><div class="line"><a name="l10084"></a><span class="lineno">10084</span> </div><div class="line"><a name="l10085"></a><span class="lineno">10085</span> static int</div><div class="line"><a name="l10086"></a><span class="lineno">10086</span> symbols_i(VALUE sym, ID value, VALUE ary)</div><div class="line"><a name="l10087"></a><span class="lineno">10087</span> {</div><div class="line"><a name="l10088"></a><span class="lineno">10088</span>  rb_ary_push(ary, ID2SYM(value));</div><div class="line"><a name="l10089"></a><span class="lineno">10089</span>  return ST_CONTINUE;</div><div class="line"><a name="l10090"></a><span class="lineno">10090</span> }</div><div class="line"><a name="l10091"></a><span class="lineno">10091</span> </div><div class="line"><a name="l10092"></a><span class="lineno">10092</span> /*</div><div class="line"><a name="l10093"></a><span class="lineno">10093</span>  * call-seq:</div><div class="line"><a name="l10094"></a><span class="lineno">10094</span>  * Symbol.all_symbols => array</div><div class="line"><a name="l10095"></a><span class="lineno">10095</span>  *</div><div class="line"><a name="l10096"></a><span class="lineno">10096</span>  * Returns an array of all the symbols currently in Ruby's symbol</div><div class="line"><a name="l10097"></a><span class="lineno">10097</span>  * table.</div><div class="line"><a name="l10098"></a><span class="lineno">10098</span>  *</div><div class="line"><a name="l10099"></a><span class="lineno">10099</span>  * Symbol.all_symbols.size #=> 903</div><div class="line"><a name="l10100"></a><span class="lineno">10100</span>  * Symbol.all_symbols[1,20] #=> [:floor, :ARGV, :Binding, :symlink,</div><div class="line"><a name="l10101"></a><span class="lineno">10101</span>  * :chown, :EOFError, :$;, :String,</div><div class="line"><a name="l10102"></a><span class="lineno">10102</span>  * :LOCK_SH, :"setuid?", :$<,</div><div class="line"><a name="l10103"></a><span class="lineno">10103</span>  * :default_proc, :compact, :extend,</div><div class="line"><a name="l10104"></a><span class="lineno">10104</span>  * :Tms, :getwd, :$=, :ThreadGroup,</div><div class="line"><a name="l10105"></a><span class="lineno">10105</span>  * :wait2, :$>]</div><div class="line"><a name="l10106"></a><span class="lineno">10106</span>  */</div><div class="line"><a name="l10107"></a><span class="lineno">10107</span> </div><div class="line"><a name="l10108"></a><span class="lineno">10108</span> VALUE</div><div class="line"><a name="l10109"></a><span class="lineno">10109</span> rb_sym_all_symbols(void)</div><div class="line"><a name="l10110"></a><span class="lineno">10110</span> {</div><div class="line"><a name="l10111"></a><span class="lineno">10111</span>  VALUE ary = rb_ary_new2(global_symbols.sym_id->num_entries);</div><div class="line"><a name="l10112"></a><span class="lineno">10112</span> </div><div class="line"><a name="l10113"></a><span class="lineno">10113</span>  st_foreach(global_symbols.sym_id, symbols_i, ary);</div><div class="line"><a name="l10114"></a><span class="lineno">10114</span>  return ary;</div><div class="line"><a name="l10115"></a><span class="lineno">10115</span> }</div><div class="line"><a name="l10116"></a><span class="lineno">10116</span> </div><div class="line"><a name="l10117"></a><span class="lineno">10117</span> int</div><div class="line"><a name="l10118"></a><span class="lineno">10118</span> rb_is_const_id(ID id)</div><div class="line"><a name="l10119"></a><span class="lineno">10119</span> {</div><div class="line"><a name="l10120"></a><span class="lineno">10120</span>  return is_const_id(id);</div><div class="line"><a name="l10121"></a><span class="lineno">10121</span> }</div><div class="line"><a name="l10122"></a><span class="lineno">10122</span> </div><div class="line"><a name="l10123"></a><span class="lineno">10123</span> int</div><div class="line"><a name="l10124"></a><span class="lineno">10124</span> rb_is_class_id(ID id)</div><div class="line"><a name="l10125"></a><span class="lineno">10125</span> {</div><div class="line"><a name="l10126"></a><span class="lineno">10126</span>  return is_class_id(id);</div><div class="line"><a name="l10127"></a><span class="lineno">10127</span> }</div><div class="line"><a name="l10128"></a><span class="lineno">10128</span> </div><div class="line"><a name="l10129"></a><span class="lineno">10129</span> int</div><div class="line"><a name="l10130"></a><span class="lineno">10130</span> rb_is_instance_id(ID id)</div><div class="line"><a name="l10131"></a><span class="lineno">10131</span> {</div><div class="line"><a name="l10132"></a><span class="lineno">10132</span>  return is_instance_id(id);</div><div class="line"><a name="l10133"></a><span class="lineno">10133</span> }</div><div class="line"><a name="l10134"></a><span class="lineno">10134</span> </div><div class="line"><a name="l10135"></a><span class="lineno">10135</span> int</div><div class="line"><a name="l10136"></a><span class="lineno">10136</span> rb_is_local_id(ID id)</div><div class="line"><a name="l10137"></a><span class="lineno">10137</span> {</div><div class="line"><a name="l10138"></a><span class="lineno">10138</span>  return is_local_id(id);</div><div class="line"><a name="l10139"></a><span class="lineno">10139</span> }</div><div class="line"><a name="l10140"></a><span class="lineno">10140</span> </div><div class="line"><a name="l10141"></a><span class="lineno">10141</span> int</div><div class="line"><a name="l10142"></a><span class="lineno">10142</span> rb_is_junk_id(ID id)</div><div class="line"><a name="l10143"></a><span class="lineno">10143</span> {</div><div class="line"><a name="l10144"></a><span class="lineno">10144</span>  return is_junk_id(id);</div><div class="line"><a name="l10145"></a><span class="lineno">10145</span> }</div><div class="line"><a name="l10146"></a><span class="lineno">10146</span> </div><div class="line"><a name="l10147"></a><span class="lineno">10147</span> #endif /* !RIPPER */</div><div class="line"><a name="l10148"></a><span class="lineno">10148</span> </div><div class="line"><a name="l10149"></a><span class="lineno">10149</span> static void</div><div class="line"><a name="l10150"></a><span class="lineno">10150</span> parser_initialize(struct parser_params *parser)</div><div class="line"><a name="l10151"></a><span class="lineno">10151</span> {</div><div class="line"><a name="l10152"></a><span class="lineno">10152</span>  parser->eofp = Qfalse;</div><div class="line"><a name="l10153"></a><span class="lineno">10153</span> </div><div class="line"><a name="l10154"></a><span class="lineno">10154</span>  parser->parser_lex_strterm = 0;</div><div class="line"><a name="l10155"></a><span class="lineno">10155</span>  parser->parser_cond_stack = 0;</div><div class="line"><a name="l10156"></a><span class="lineno">10156</span>  parser->parser_cmdarg_stack = 0;</div><div class="line"><a name="l10157"></a><span class="lineno">10157</span>  parser->parser_class_nest = 0;</div><div class="line"><a name="l10158"></a><span class="lineno">10158</span>  parser->parser_paren_nest = 0;</div><div class="line"><a name="l10159"></a><span class="lineno">10159</span>  parser->parser_lpar_beg = 0;</div><div class="line"><a name="l10160"></a><span class="lineno">10160</span>  parser->parser_in_single = 0;</div><div class="line"><a name="l10161"></a><span class="lineno">10161</span>  parser->parser_in_def = 0;</div><div class="line"><a name="l10162"></a><span class="lineno">10162</span>  parser->parser_in_defined = 0;</div><div class="line"><a name="l10163"></a><span class="lineno">10163</span>  parser->parser_compile_for_eval = 0;</div><div class="line"><a name="l10164"></a><span class="lineno">10164</span>  parser->parser_cur_mid = 0;</div><div class="line"><a name="l10165"></a><span class="lineno">10165</span>  parser->parser_tokenbuf = NULL;</div><div class="line"><a name="l10166"></a><span class="lineno">10166</span>  parser->parser_tokidx = 0;</div><div class="line"><a name="l10167"></a><span class="lineno">10167</span>  parser->parser_toksiz = 0;</div><div class="line"><a name="l10168"></a><span class="lineno">10168</span>  parser->parser_heredoc_end = 0;</div><div class="line"><a name="l10169"></a><span class="lineno">10169</span>  parser->parser_command_start = TRUE;</div><div class="line"><a name="l10170"></a><span class="lineno">10170</span>  parser->parser_deferred_nodes = 0;</div><div class="line"><a name="l10171"></a><span class="lineno">10171</span>  parser->parser_lex_pbeg = 0;</div><div class="line"><a name="l10172"></a><span class="lineno">10172</span>  parser->parser_lex_p = 0;</div><div class="line"><a name="l10173"></a><span class="lineno">10173</span>  parser->parser_lex_pend = 0;</div><div class="line"><a name="l10174"></a><span class="lineno">10174</span>  parser->parser_lvtbl = 0;</div><div class="line"><a name="l10175"></a><span class="lineno">10175</span>  parser->parser_ruby__end__seen = 0;</div><div class="line"><a name="l10176"></a><span class="lineno">10176</span>  parser->parser_ruby_sourcefile = 0;</div><div class="line"><a name="l10177"></a><span class="lineno">10177</span> #ifndef RIPPER</div><div class="line"><a name="l10178"></a><span class="lineno">10178</span>  parser->is_ripper = 0;</div><div class="line"><a name="l10179"></a><span class="lineno">10179</span>  parser->parser_eval_tree_begin = 0;</div><div class="line"><a name="l10180"></a><span class="lineno">10180</span>  parser->parser_eval_tree = 0;</div><div class="line"><a name="l10181"></a><span class="lineno">10181</span> #else</div><div class="line"><a name="l10182"></a><span class="lineno">10182</span>  parser->is_ripper = 1;</div><div class="line"><a name="l10183"></a><span class="lineno">10183</span>  parser->parser_ruby_sourcefile_string = Qnil;</div><div class="line"><a name="l10184"></a><span class="lineno">10184</span>  parser->delayed = Qnil;</div><div class="line"><a name="l10185"></a><span class="lineno">10185</span> </div><div class="line"><a name="l10186"></a><span class="lineno">10186</span>  parser->result = Qnil;</div><div class="line"><a name="l10187"></a><span class="lineno">10187</span>  parser->parsing_thread = Qnil;</div><div class="line"><a name="l10188"></a><span class="lineno">10188</span>  parser->toplevel_p = TRUE;</div><div class="line"><a name="l10189"></a><span class="lineno">10189</span> #endif</div><div class="line"><a name="l10190"></a><span class="lineno">10190</span> #ifdef YYMALLOC</div><div class="line"><a name="l10191"></a><span class="lineno">10191</span>  parser->heap = NULL;</div><div class="line"><a name="l10192"></a><span class="lineno">10192</span> #endif</div><div class="line"><a name="l10193"></a><span class="lineno">10193</span>  parser->enc = rb_usascii_encoding();</div><div class="line"><a name="l10194"></a><span class="lineno">10194</span> }</div><div class="line"><a name="l10195"></a><span class="lineno">10195</span> </div><div class="line"><a name="l10196"></a><span class="lineno">10196</span> #ifdef RIPPER</div><div class="line"><a name="l10197"></a><span class="lineno">10197</span> #define parser_mark ripper_parser_mark</div><div class="line"><a name="l10198"></a><span class="lineno">10198</span> #define parser_free ripper_parser_free</div><div class="line"><a name="l10199"></a><span class="lineno">10199</span> #endif</div><div class="line"><a name="l10200"></a><span class="lineno">10200</span> </div><div class="line"><a name="l10201"></a><span class="lineno">10201</span> static void</div><div class="line"><a name="l10202"></a><span class="lineno">10202</span> parser_mark(void *ptr)</div><div class="line"><a name="l10203"></a><span class="lineno">10203</span> {</div><div class="line"><a name="l10204"></a><span class="lineno">10204</span>  struct parser_params *p = (struct parser_params*)ptr;</div><div class="line"><a name="l10205"></a><span class="lineno">10205</span> </div><div class="line"><a name="l10206"></a><span class="lineno">10206</span>  rb_gc_mark((VALUE)p->parser_lex_strterm);</div><div class="line"><a name="l10207"></a><span class="lineno">10207</span>  rb_gc_mark((VALUE)p->parser_deferred_nodes);</div><div class="line"><a name="l10208"></a><span class="lineno">10208</span>  rb_gc_mark(p->parser_lex_input);</div><div class="line"><a name="l10209"></a><span class="lineno">10209</span>  rb_gc_mark(p->parser_lex_lastline);</div><div class="line"><a name="l10210"></a><span class="lineno">10210</span>  rb_gc_mark(p->parser_lex_nextline);</div><div class="line"><a name="l10211"></a><span class="lineno">10211</span> #ifndef RIPPER</div><div class="line"><a name="l10212"></a><span class="lineno">10212</span>  rb_gc_mark((VALUE)p->parser_eval_tree_begin) ;</div><div class="line"><a name="l10213"></a><span class="lineno">10213</span>  rb_gc_mark((VALUE)p->parser_eval_tree) ;</div><div class="line"><a name="l10214"></a><span class="lineno">10214</span>  rb_gc_mark(p->debug_lines);</div><div class="line"><a name="l10215"></a><span class="lineno">10215</span> #else</div><div class="line"><a name="l10216"></a><span class="lineno">10216</span>  rb_gc_mark(p->parser_ruby_sourcefile_string);</div><div class="line"><a name="l10217"></a><span class="lineno">10217</span>  rb_gc_mark(p->delayed);</div><div class="line"><a name="l10218"></a><span class="lineno">10218</span>  rb_gc_mark(p->value);</div><div class="line"><a name="l10219"></a><span class="lineno">10219</span>  rb_gc_mark(p->result);</div><div class="line"><a name="l10220"></a><span class="lineno">10220</span>  rb_gc_mark(p->parsing_thread);</div><div class="line"><a name="l10221"></a><span class="lineno">10221</span> #endif</div><div class="line"><a name="l10222"></a><span class="lineno">10222</span> #ifdef YYMALLOC</div><div class="line"><a name="l10223"></a><span class="lineno">10223</span>  rb_gc_mark((VALUE)p->heap);</div><div class="line"><a name="l10224"></a><span class="lineno">10224</span> #endif</div><div class="line"><a name="l10225"></a><span class="lineno">10225</span> }</div><div class="line"><a name="l10226"></a><span class="lineno">10226</span> </div><div class="line"><a name="l10227"></a><span class="lineno">10227</span> static void</div><div class="line"><a name="l10228"></a><span class="lineno">10228</span> parser_free(void *ptr)</div><div class="line"><a name="l10229"></a><span class="lineno">10229</span> {</div><div class="line"><a name="l10230"></a><span class="lineno">10230</span>  struct parser_params *p = (struct parser_params*)ptr;</div><div class="line"><a name="l10231"></a><span class="lineno">10231</span>  struct local_vars *local, *prev;</div><div class="line"><a name="l10232"></a><span class="lineno">10232</span> </div><div class="line"><a name="l10233"></a><span class="lineno">10233</span>  if (p->parser_tokenbuf) {</div><div class="line"><a name="l10234"></a><span class="lineno">10234</span>  xfree(p->parser_tokenbuf);</div><div class="line"><a name="l10235"></a><span class="lineno">10235</span>  }</div><div class="line"><a name="l10236"></a><span class="lineno">10236</span>  for (local = p->parser_lvtbl; local; local = prev) {</div><div class="line"><a name="l10237"></a><span class="lineno">10237</span>  if (local->vars) xfree(local->vars);</div><div class="line"><a name="l10238"></a><span class="lineno">10238</span>  prev = local->prev;</div><div class="line"><a name="l10239"></a><span class="lineno">10239</span>  xfree(local);</div><div class="line"><a name="l10240"></a><span class="lineno">10240</span>  }</div><div class="line"><a name="l10241"></a><span class="lineno">10241</span> #ifndef RIPPER</div><div class="line"><a name="l10242"></a><span class="lineno">10242</span>  xfree(p->parser_ruby_sourcefile);</div><div class="line"><a name="l10243"></a><span class="lineno">10243</span> #endif</div><div class="line"><a name="l10244"></a><span class="lineno">10244</span>  xfree(p);</div><div class="line"><a name="l10245"></a><span class="lineno">10245</span> }</div><div class="line"><a name="l10246"></a><span class="lineno">10246</span> </div><div class="line"><a name="l10247"></a><span class="lineno">10247</span> static size_t</div><div class="line"><a name="l10248"></a><span class="lineno">10248</span> parser_memsize(const void *ptr)</div><div class="line"><a name="l10249"></a><span class="lineno">10249</span> {</div><div class="line"><a name="l10250"></a><span class="lineno">10250</span>  struct parser_params *p = (struct parser_params*)ptr;</div><div class="line"><a name="l10251"></a><span class="lineno">10251</span>  struct local_vars *local;</div><div class="line"><a name="l10252"></a><span class="lineno">10252</span>  size_t size = sizeof(*p);</div><div class="line"><a name="l10253"></a><span class="lineno">10253</span> </div><div class="line"><a name="l10254"></a><span class="lineno">10254</span>  if (!ptr) return 0;</div><div class="line"><a name="l10255"></a><span class="lineno">10255</span>  size += p->parser_toksiz;</div><div class="line"><a name="l10256"></a><span class="lineno">10256</span>  for (local = p->parser_lvtbl; local; local = local->prev) {</div><div class="line"><a name="l10257"></a><span class="lineno">10257</span>  size += sizeof(*local);</div><div class="line"><a name="l10258"></a><span class="lineno">10258</span>  if (local->vars) size += local->vars->capa * sizeof(ID);</div><div class="line"><a name="l10259"></a><span class="lineno">10259</span>  }</div><div class="line"><a name="l10260"></a><span class="lineno">10260</span> #ifndef RIPPER</div><div class="line"><a name="l10261"></a><span class="lineno">10261</span>  if (p->parser_ruby_sourcefile) {</div><div class="line"><a name="l10262"></a><span class="lineno">10262</span>  size += strlen(p->parser_ruby_sourcefile) + 1;</div><div class="line"><a name="l10263"></a><span class="lineno">10263</span>  }</div><div class="line"><a name="l10264"></a><span class="lineno">10264</span> #endif</div><div class="line"><a name="l10265"></a><span class="lineno">10265</span>  return size;</div><div class="line"><a name="l10266"></a><span class="lineno">10266</span> }</div><div class="line"><a name="l10267"></a><span class="lineno">10267</span> </div><div class="line"><a name="l10268"></a><span class="lineno">10268</span> static</div><div class="line"><a name="l10269"></a><span class="lineno">10269</span> #ifndef RIPPER</div><div class="line"><a name="l10270"></a><span class="lineno">10270</span> const</div><div class="line"><a name="l10271"></a><span class="lineno">10271</span> #endif</div><div class="line"><a name="l10272"></a><span class="lineno">10272</span> rb_data_type_t parser_data_type = {</div><div class="line"><a name="l10273"></a><span class="lineno">10273</span>  "parser",</div><div class="line"><a name="l10274"></a><span class="lineno">10274</span>  {</div><div class="line"><a name="l10275"></a><span class="lineno">10275</span>  parser_mark,</div><div class="line"><a name="l10276"></a><span class="lineno">10276</span>  parser_free,</div><div class="line"><a name="l10277"></a><span class="lineno">10277</span>  parser_memsize,</div><div class="line"><a name="l10278"></a><span class="lineno">10278</span>  },</div><div class="line"><a name="l10279"></a><span class="lineno">10279</span> };</div><div class="line"><a name="l10280"></a><span class="lineno">10280</span> </div><div class="line"><a name="l10281"></a><span class="lineno">10281</span> #ifndef RIPPER</div><div class="line"><a name="l10282"></a><span class="lineno">10282</span> #undef rb_reserved_word</div><div class="line"><a name="l10283"></a><span class="lineno">10283</span> </div><div class="line"><a name="l10284"></a><span class="lineno">10284</span> const struct kwtable *</div><div class="line"><a name="l10285"></a><span class="lineno">10285</span> rb_reserved_word(const char *str, unsigned int len)</div><div class="line"><a name="l10286"></a><span class="lineno">10286</span> {</div><div class="line"><a name="l10287"></a><span class="lineno">10287</span>  return reserved_word(str, len);</div><div class="line"><a name="l10288"></a><span class="lineno">10288</span> }</div><div class="line"><a name="l10289"></a><span class="lineno">10289</span> </div><div class="line"><a name="l10290"></a><span class="lineno">10290</span> static struct parser_params *</div><div class="line"><a name="l10291"></a><span class="lineno">10291</span> parser_new(void)</div><div class="line"><a name="l10292"></a><span class="lineno">10292</span> {</div><div class="line"><a name="l10293"></a><span class="lineno">10293</span>  struct parser_params *p;</div><div class="line"><a name="l10294"></a><span class="lineno">10294</span> </div><div class="line"><a name="l10295"></a><span class="lineno">10295</span>  p = ALLOC_N(struct parser_params, 1);</div><div class="line"><a name="l10296"></a><span class="lineno">10296</span>  MEMZERO(p, struct parser_params, 1);</div><div class="line"><a name="l10297"></a><span class="lineno">10297</span>  parser_initialize(p);</div><div class="line"><a name="l10298"></a><span class="lineno">10298</span>  return p;</div><div class="line"><a name="l10299"></a><span class="lineno">10299</span> }</div><div class="line"><a name="l10300"></a><span class="lineno">10300</span> </div><div class="line"><a name="l10301"></a><span class="lineno">10301</span> VALUE</div><div class="line"><a name="l10302"></a><span class="lineno">10302</span> rb_parser_new(void)</div><div class="line"><a name="l10303"></a><span class="lineno">10303</span> {</div><div class="line"><a name="l10304"></a><span class="lineno">10304</span>  struct parser_params *p = parser_new();</div><div class="line"><a name="l10305"></a><span class="lineno">10305</span> </div><div class="line"><a name="l10306"></a><span class="lineno">10306</span>  return TypedData_Wrap_Struct(0, &parser_data_type, p);</div><div class="line"><a name="l10307"></a><span class="lineno">10307</span> }</div><div class="line"><a name="l10308"></a><span class="lineno">10308</span> </div><div class="line"><a name="l10309"></a><span class="lineno">10309</span> /*</div><div class="line"><a name="l10310"></a><span class="lineno">10310</span>  * call-seq:</div><div class="line"><a name="l10311"></a><span class="lineno">10311</span>  * ripper#end_seen? -> Boolean</div><div class="line"><a name="l10312"></a><span class="lineno">10312</span>  *</div><div class="line"><a name="l10313"></a><span class="lineno">10313</span>  * Return true if parsed source ended by +\_\_END\_\_+.</div><div class="line"><a name="l10314"></a><span class="lineno">10314</span>  */</div><div class="line"><a name="l10315"></a><span class="lineno">10315</span> VALUE</div><div class="line"><a name="l10316"></a><span class="lineno">10316</span> rb_parser_end_seen_p(VALUE vparser)</div><div class="line"><a name="l10317"></a><span class="lineno">10317</span> {</div><div class="line"><a name="l10318"></a><span class="lineno">10318</span>  struct parser_params *parser;</div><div class="line"><a name="l10319"></a><span class="lineno">10319</span> </div><div class="line"><a name="l10320"></a><span class="lineno">10320</span>  TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10321"></a><span class="lineno">10321</span>  return ruby__end__seen ? Qtrue : Qfalse;</div><div class="line"><a name="l10322"></a><span class="lineno">10322</span> }</div><div class="line"><a name="l10323"></a><span class="lineno">10323</span> </div><div class="line"><a name="l10324"></a><span class="lineno">10324</span> /*</div><div class="line"><a name="l10325"></a><span class="lineno">10325</span>  * call-seq:</div><div class="line"><a name="l10326"></a><span class="lineno">10326</span>  * ripper#encoding -> encoding</div><div class="line"><a name="l10327"></a><span class="lineno">10327</span>  *</div><div class="line"><a name="l10328"></a><span class="lineno">10328</span>  * Return encoding of the source.</div><div class="line"><a name="l10329"></a><span class="lineno">10329</span>  */</div><div class="line"><a name="l10330"></a><span class="lineno">10330</span> VALUE</div><div class="line"><a name="l10331"></a><span class="lineno">10331</span> rb_parser_encoding(VALUE vparser)</div><div class="line"><a name="l10332"></a><span class="lineno">10332</span> {</div><div class="line"><a name="l10333"></a><span class="lineno">10333</span>  struct parser_params *parser;</div><div class="line"><a name="l10334"></a><span class="lineno">10334</span> </div><div class="line"><a name="l10335"></a><span class="lineno">10335</span>  TypedData_Get_Struct(vparser, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10336"></a><span class="lineno">10336</span>  return rb_enc_from_encoding(parser->enc);</div><div class="line"><a name="l10337"></a><span class="lineno">10337</span> }</div><div class="line"><a name="l10338"></a><span class="lineno">10338</span> </div><div class="line"><a name="l10339"></a><span class="lineno">10339</span> /*</div><div class="line"><a name="l10340"></a><span class="lineno">10340</span>  * call-seq:</div><div class="line"><a name="l10341"></a><span class="lineno">10341</span>  * ripper.yydebug -> true or false</div><div class="line"><a name="l10342"></a><span class="lineno">10342</span>  *</div><div class="line"><a name="l10343"></a><span class="lineno">10343</span>  * Get yydebug.</div><div class="line"><a name="l10344"></a><span class="lineno">10344</span>  */</div><div class="line"><a name="l10345"></a><span class="lineno">10345</span> VALUE</div><div class="line"><a name="l10346"></a><span class="lineno">10346</span> rb_parser_get_yydebug(VALUE self)</div><div class="line"><a name="l10347"></a><span class="lineno">10347</span> {</div><div class="line"><a name="l10348"></a><span class="lineno">10348</span>  struct parser_params *parser;</div><div class="line"><a name="l10349"></a><span class="lineno">10349</span> </div><div class="line"><a name="l10350"></a><span class="lineno">10350</span>  TypedData_Get_Struct(self, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10351"></a><span class="lineno">10351</span>  return yydebug ? Qtrue : Qfalse;</div><div class="line"><a name="l10352"></a><span class="lineno">10352</span> }</div><div class="line"><a name="l10353"></a><span class="lineno">10353</span> </div><div class="line"><a name="l10354"></a><span class="lineno">10354</span> /*</div><div class="line"><a name="l10355"></a><span class="lineno">10355</span>  * call-seq:</div><div class="line"><a name="l10356"></a><span class="lineno">10356</span>  * ripper.yydebug = flag</div><div class="line"><a name="l10357"></a><span class="lineno">10357</span>  *</div><div class="line"><a name="l10358"></a><span class="lineno">10358</span>  * Set yydebug.</div><div class="line"><a name="l10359"></a><span class="lineno">10359</span>  */</div><div class="line"><a name="l10360"></a><span class="lineno">10360</span> VALUE</div><div class="line"><a name="l10361"></a><span class="lineno">10361</span> rb_parser_set_yydebug(VALUE self, VALUE flag)</div><div class="line"><a name="l10362"></a><span class="lineno">10362</span> {</div><div class="line"><a name="l10363"></a><span class="lineno">10363</span>  struct parser_params *parser;</div><div class="line"><a name="l10364"></a><span class="lineno">10364</span> </div><div class="line"><a name="l10365"></a><span class="lineno">10365</span>  TypedData_Get_Struct(self, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10366"></a><span class="lineno">10366</span>  yydebug = RTEST(flag);</div><div class="line"><a name="l10367"></a><span class="lineno">10367</span>  return flag;</div><div class="line"><a name="l10368"></a><span class="lineno">10368</span> }</div><div class="line"><a name="l10369"></a><span class="lineno">10369</span> </div><div class="line"><a name="l10370"></a><span class="lineno">10370</span> #ifdef YYMALLOC</div><div class="line"><a name="l10371"></a><span class="lineno">10371</span> #define HEAPCNT(n, size) ((n) * (size) / sizeof(YYSTYPE))</div><div class="line"><a name="l10372"></a><span class="lineno">10372</span> #define NEWHEAP() rb_node_newnode(NODE_ALLOCA, 0, (VALUE)parser->heap, 0)</div><div class="line"><a name="l10373"></a><span class="lineno">10373</span> #define ADD2HEAP(n, c, p) ((parser->heap = (n))->u1.node = (p), \</div><div class="line"><a name="l10374"></a><span class="lineno">10374</span>  (n)->u3.cnt = (c), (p))</div><div class="line"><a name="l10375"></a><span class="lineno">10375</span> </div><div class="line"><a name="l10376"></a><span class="lineno">10376</span> void *</div><div class="line"><a name="l10377"></a><span class="lineno">10377</span> rb_parser_malloc(struct parser_params *parser, size_t size)</div><div class="line"><a name="l10378"></a><span class="lineno">10378</span> {</div><div class="line"><a name="l10379"></a><span class="lineno">10379</span>  size_t cnt = HEAPCNT(1, size);</div><div class="line"><a name="l10380"></a><span class="lineno">10380</span>  NODE *n = NEWHEAP();</div><div class="line"><a name="l10381"></a><span class="lineno">10381</span>  void *ptr = xmalloc(size);</div><div class="line"><a name="l10382"></a><span class="lineno">10382</span> </div><div class="line"><a name="l10383"></a><span class="lineno">10383</span>  return ADD2HEAP(n, cnt, ptr);</div><div class="line"><a name="l10384"></a><span class="lineno">10384</span> }</div><div class="line"><a name="l10385"></a><span class="lineno">10385</span> </div><div class="line"><a name="l10386"></a><span class="lineno">10386</span> void *</div><div class="line"><a name="l10387"></a><span class="lineno">10387</span> rb_parser_calloc(struct parser_params *parser, size_t nelem, size_t size)</div><div class="line"><a name="l10388"></a><span class="lineno">10388</span> {</div><div class="line"><a name="l10389"></a><span class="lineno">10389</span>  size_t cnt = HEAPCNT(nelem, size);</div><div class="line"><a name="l10390"></a><span class="lineno">10390</span>  NODE *n = NEWHEAP();</div><div class="line"><a name="l10391"></a><span class="lineno">10391</span>  void *ptr = xcalloc(nelem, size);</div><div class="line"><a name="l10392"></a><span class="lineno">10392</span> </div><div class="line"><a name="l10393"></a><span class="lineno">10393</span>  return ADD2HEAP(n, cnt, ptr);</div><div class="line"><a name="l10394"></a><span class="lineno">10394</span> }</div><div class="line"><a name="l10395"></a><span class="lineno">10395</span> </div><div class="line"><a name="l10396"></a><span class="lineno">10396</span> void *</div><div class="line"><a name="l10397"></a><span class="lineno">10397</span> rb_parser_realloc(struct parser_params *parser, void *ptr, size_t size)</div><div class="line"><a name="l10398"></a><span class="lineno">10398</span> {</div><div class="line"><a name="l10399"></a><span class="lineno">10399</span>  NODE *n;</div><div class="line"><a name="l10400"></a><span class="lineno">10400</span>  size_t cnt = HEAPCNT(1, size);</div><div class="line"><a name="l10401"></a><span class="lineno">10401</span> </div><div class="line"><a name="l10402"></a><span class="lineno">10402</span>  if (ptr && (n = parser->heap) != NULL) {</div><div class="line"><a name="l10403"></a><span class="lineno">10403</span>  do {</div><div class="line"><a name="l10404"></a><span class="lineno">10404</span>  if (n->u1.node == ptr) {</div><div class="line"><a name="l10405"></a><span class="lineno">10405</span>  n->u1.node = ptr = xrealloc(ptr, size);</div><div class="line"><a name="l10406"></a><span class="lineno">10406</span>  if (n->u3.cnt) n->u3.cnt = cnt;</div><div class="line"><a name="l10407"></a><span class="lineno">10407</span>  return ptr;</div><div class="line"><a name="l10408"></a><span class="lineno">10408</span>  }</div><div class="line"><a name="l10409"></a><span class="lineno">10409</span>  } while ((n = n->u2.node) != NULL);</div><div class="line"><a name="l10410"></a><span class="lineno">10410</span>  }</div><div class="line"><a name="l10411"></a><span class="lineno">10411</span>  n = NEWHEAP();</div><div class="line"><a name="l10412"></a><span class="lineno">10412</span>  ptr = xrealloc(ptr, size);</div><div class="line"><a name="l10413"></a><span class="lineno">10413</span>  return ADD2HEAP(n, cnt, ptr);</div><div class="line"><a name="l10414"></a><span class="lineno">10414</span> }</div><div class="line"><a name="l10415"></a><span class="lineno">10415</span> </div><div class="line"><a name="l10416"></a><span class="lineno">10416</span> void</div><div class="line"><a name="l10417"></a><span class="lineno">10417</span> rb_parser_free(struct parser_params *parser, void *ptr)</div><div class="line"><a name="l10418"></a><span class="lineno">10418</span> {</div><div class="line"><a name="l10419"></a><span class="lineno">10419</span>  NODE **prev = &parser->heap, *n;</div><div class="line"><a name="l10420"></a><span class="lineno">10420</span> </div><div class="line"><a name="l10421"></a><span class="lineno">10421</span>  while ((n = *prev) != NULL) {</div><div class="line"><a name="l10422"></a><span class="lineno">10422</span>  if (n->u1.node == ptr) {</div><div class="line"><a name="l10423"></a><span class="lineno">10423</span>  *prev = n->u2.node;</div><div class="line"><a name="l10424"></a><span class="lineno">10424</span>  rb_gc_force_recycle((VALUE)n);</div><div class="line"><a name="l10425"></a><span class="lineno">10425</span>  break;</div><div class="line"><a name="l10426"></a><span class="lineno">10426</span>  }</div><div class="line"><a name="l10427"></a><span class="lineno">10427</span>  prev = &n->u2.node;</div><div class="line"><a name="l10428"></a><span class="lineno">10428</span>  }</div><div class="line"><a name="l10429"></a><span class="lineno">10429</span>  xfree(ptr);</div><div class="line"><a name="l10430"></a><span class="lineno">10430</span> }</div><div class="line"><a name="l10431"></a><span class="lineno">10431</span> #endif</div><div class="line"><a name="l10432"></a><span class="lineno">10432</span> #endif</div><div class="line"><a name="l10433"></a><span class="lineno">10433</span> </div><div class="line"><a name="l10434"></a><span class="lineno">10434</span> #ifdef RIPPER</div><div class="line"><a name="l10435"></a><span class="lineno">10435</span> #ifdef RIPPER_DEBUG</div><div class="line"><a name="l10436"></a><span class="lineno">10436</span> extern int rb_is_pointer_to_heap(VALUE);</div><div class="line"><a name="l10437"></a><span class="lineno">10437</span> </div><div class="line"><a name="l10438"></a><span class="lineno">10438</span> /* :nodoc: */</div><div class="line"><a name="l10439"></a><span class="lineno">10439</span> static VALUE</div><div class="line"><a name="l10440"></a><span class="lineno">10440</span> ripper_validate_object(VALUE self, VALUE x)</div><div class="line"><a name="l10441"></a><span class="lineno">10441</span> {</div><div class="line"><a name="l10442"></a><span class="lineno">10442</span>  if (x == Qfalse) return x;</div><div class="line"><a name="l10443"></a><span class="lineno">10443</span>  if (x == Qtrue) return x;</div><div class="line"><a name="l10444"></a><span class="lineno">10444</span>  if (x == Qnil) return x;</div><div class="line"><a name="l10445"></a><span class="lineno">10445</span>  if (x == Qundef)</div><div class="line"><a name="l10446"></a><span class="lineno">10446</span>  rb_raise(rb_eArgError, "Qundef given");</div><div class="line"><a name="l10447"></a><span class="lineno">10447</span>  if (FIXNUM_P(x)) return x;</div><div class="line"><a name="l10448"></a><span class="lineno">10448</span>  if (SYMBOL_P(x)) return x;</div><div class="line"><a name="l10449"></a><span class="lineno">10449</span>  if (!rb_is_pointer_to_heap(x))</div><div class="line"><a name="l10450"></a><span class="lineno">10450</span>  rb_raise(rb_eArgError, "invalid pointer: %p", x);</div><div class="line"><a name="l10451"></a><span class="lineno">10451</span>  switch (TYPE(x)) {</div><div class="line"><a name="l10452"></a><span class="lineno">10452</span>  case T_STRING:</div><div class="line"><a name="l10453"></a><span class="lineno">10453</span>  case T_OBJECT:</div><div class="line"><a name="l10454"></a><span class="lineno">10454</span>  case T_ARRAY:</div><div class="line"><a name="l10455"></a><span class="lineno">10455</span>  case T_BIGNUM:</div><div class="line"><a name="l10456"></a><span class="lineno">10456</span>  case T_FLOAT:</div><div class="line"><a name="l10457"></a><span class="lineno">10457</span>  return x;</div><div class="line"><a name="l10458"></a><span class="lineno">10458</span>  case T_NODE:</div><div class="line"><a name="l10459"></a><span class="lineno">10459</span>  if (nd_type(x) != NODE_LASGN) {</div><div class="line"><a name="l10460"></a><span class="lineno">10460</span>  rb_raise(rb_eArgError, "NODE given: %p", x);</div><div class="line"><a name="l10461"></a><span class="lineno">10461</span>  }</div><div class="line"><a name="l10462"></a><span class="lineno">10462</span>  return ((NODE *)x)->nd_rval;</div><div class="line"><a name="l10463"></a><span class="lineno">10463</span>  default:</div><div class="line"><a name="l10464"></a><span class="lineno">10464</span>  rb_raise(rb_eArgError, "wrong type of ruby object: %p (%s)",</div><div class="line"><a name="l10465"></a><span class="lineno">10465</span>  x, rb_obj_classname(x));</div><div class="line"><a name="l10466"></a><span class="lineno">10466</span>  }</div><div class="line"><a name="l10467"></a><span class="lineno">10467</span>  return x;</div><div class="line"><a name="l10468"></a><span class="lineno">10468</span> }</div><div class="line"><a name="l10469"></a><span class="lineno">10469</span> #endif</div><div class="line"><a name="l10470"></a><span class="lineno">10470</span> </div><div class="line"><a name="l10471"></a><span class="lineno">10471</span> #define validate(x) ((x) = get_value(x))</div><div class="line"><a name="l10472"></a><span class="lineno">10472</span> </div><div class="line"><a name="l10473"></a><span class="lineno">10473</span> static VALUE</div><div class="line"><a name="l10474"></a><span class="lineno">10474</span> ripper_dispatch0(struct parser_params *parser, ID mid)</div><div class="line"><a name="l10475"></a><span class="lineno">10475</span> {</div><div class="line"><a name="l10476"></a><span class="lineno">10476</span>  return rb_funcall(parser->value, mid, 0);</div><div class="line"><a name="l10477"></a><span class="lineno">10477</span> }</div><div class="line"><a name="l10478"></a><span class="lineno">10478</span> </div><div class="line"><a name="l10479"></a><span class="lineno">10479</span> static VALUE</div><div class="line"><a name="l10480"></a><span class="lineno">10480</span> ripper_dispatch1(struct parser_params *parser, ID mid, VALUE a)</div><div class="line"><a name="l10481"></a><span class="lineno">10481</span> {</div><div class="line"><a name="l10482"></a><span class="lineno">10482</span>  validate(a);</div><div class="line"><a name="l10483"></a><span class="lineno">10483</span>  return rb_funcall(parser->value, mid, 1, a);</div><div class="line"><a name="l10484"></a><span class="lineno">10484</span> }</div><div class="line"><a name="l10485"></a><span class="lineno">10485</span> </div><div class="line"><a name="l10486"></a><span class="lineno">10486</span> static VALUE</div><div class="line"><a name="l10487"></a><span class="lineno">10487</span> ripper_dispatch2(struct parser_params *parser, ID mid, VALUE a, VALUE b)</div><div class="line"><a name="l10488"></a><span class="lineno">10488</span> {</div><div class="line"><a name="l10489"></a><span class="lineno">10489</span>  validate(a);</div><div class="line"><a name="l10490"></a><span class="lineno">10490</span>  validate(b);</div><div class="line"><a name="l10491"></a><span class="lineno">10491</span>  return rb_funcall(parser->value, mid, 2, a, b);</div><div class="line"><a name="l10492"></a><span class="lineno">10492</span> }</div><div class="line"><a name="l10493"></a><span class="lineno">10493</span> </div><div class="line"><a name="l10494"></a><span class="lineno">10494</span> static VALUE</div><div class="line"><a name="l10495"></a><span class="lineno">10495</span> ripper_dispatch3(struct parser_params *parser, ID mid, VALUE a, VALUE b, VALUE c)</div><div class="line"><a name="l10496"></a><span class="lineno">10496</span> {</div><div class="line"><a name="l10497"></a><span class="lineno">10497</span>  validate(a);</div><div class="line"><a name="l10498"></a><span class="lineno">10498</span>  validate(b);</div><div class="line"><a name="l10499"></a><span class="lineno">10499</span>  validate(c);</div><div class="line"><a name="l10500"></a><span class="lineno">10500</span>  return rb_funcall(parser->value, mid, 3, a, b, c);</div><div class="line"><a name="l10501"></a><span class="lineno">10501</span> }</div><div class="line"><a name="l10502"></a><span class="lineno">10502</span> </div><div class="line"><a name="l10503"></a><span class="lineno">10503</span> static VALUE</div><div class="line"><a name="l10504"></a><span class="lineno">10504</span> ripper_dispatch4(struct parser_params *parser, ID mid, VALUE a, VALUE b, VALUE c, VALUE d)</div><div class="line"><a name="l10505"></a><span class="lineno">10505</span> {</div><div class="line"><a name="l10506"></a><span class="lineno">10506</span>  validate(a);</div><div class="line"><a name="l10507"></a><span class="lineno">10507</span>  validate(b);</div><div class="line"><a name="l10508"></a><span class="lineno">10508</span>  validate(c);</div><div class="line"><a name="l10509"></a><span class="lineno">10509</span>  validate(d);</div><div class="line"><a name="l10510"></a><span class="lineno">10510</span>  return rb_funcall(parser->value, mid, 4, a, b, c, d);</div><div class="line"><a name="l10511"></a><span class="lineno">10511</span> }</div><div class="line"><a name="l10512"></a><span class="lineno">10512</span> </div><div class="line"><a name="l10513"></a><span class="lineno">10513</span> static VALUE</div><div class="line"><a name="l10514"></a><span class="lineno">10514</span> ripper_dispatch5(struct parser_params *parser, ID mid, VALUE a, VALUE b, VALUE c, VALUE d, VALUE e)</div><div class="line"><a name="l10515"></a><span class="lineno">10515</span> {</div><div class="line"><a name="l10516"></a><span class="lineno">10516</span>  validate(a);</div><div class="line"><a name="l10517"></a><span class="lineno">10517</span>  validate(b);</div><div class="line"><a name="l10518"></a><span class="lineno">10518</span>  validate(c);</div><div class="line"><a name="l10519"></a><span class="lineno">10519</span>  validate(d);</div><div class="line"><a name="l10520"></a><span class="lineno">10520</span>  validate(e);</div><div class="line"><a name="l10521"></a><span class="lineno">10521</span>  return rb_funcall(parser->value, mid, 5, a, b, c, d, e);</div><div class="line"><a name="l10522"></a><span class="lineno">10522</span> }</div><div class="line"><a name="l10523"></a><span class="lineno">10523</span> </div><div class="line"><a name="l10524"></a><span class="lineno">10524</span> static const struct kw_assoc {</div><div class="line"><a name="l10525"></a><span class="lineno">10525</span>  ID id;</div><div class="line"><a name="l10526"></a><span class="lineno">10526</span>  const char *name;</div><div class="line"><a name="l10527"></a><span class="lineno">10527</span> } keyword_to_name[] = {</div><div class="line"><a name="l10528"></a><span class="lineno">10528</span>  {keyword_class, "class"},</div><div class="line"><a name="l10529"></a><span class="lineno">10529</span>  {keyword_module, "module"},</div><div class="line"><a name="l10530"></a><span class="lineno">10530</span>  {keyword_def, "def"},</div><div class="line"><a name="l10531"></a><span class="lineno">10531</span>  {keyword_undef, "undef"},</div><div class="line"><a name="l10532"></a><span class="lineno">10532</span>  {keyword_begin, "begin"},</div><div class="line"><a name="l10533"></a><span class="lineno">10533</span>  {keyword_rescue, "rescue"},</div><div class="line"><a name="l10534"></a><span class="lineno">10534</span>  {keyword_ensure, "ensure"},</div><div class="line"><a name="l10535"></a><span class="lineno">10535</span>  {keyword_end, "end"},</div><div class="line"><a name="l10536"></a><span class="lineno">10536</span>  {keyword_if, "if"},</div><div class="line"><a name="l10537"></a><span class="lineno">10537</span>  {keyword_unless, "unless"},</div><div class="line"><a name="l10538"></a><span class="lineno">10538</span>  {keyword_then, "then"},</div><div class="line"><a name="l10539"></a><span class="lineno">10539</span>  {keyword_elsif, "elsif"},</div><div class="line"><a name="l10540"></a><span class="lineno">10540</span>  {keyword_else, "else"},</div><div class="line"><a name="l10541"></a><span class="lineno">10541</span>  {keyword_case, "case"},</div><div class="line"><a name="l10542"></a><span class="lineno">10542</span>  {keyword_when, "when"},</div><div class="line"><a name="l10543"></a><span class="lineno">10543</span>  {keyword_while, "while"},</div><div class="line"><a name="l10544"></a><span class="lineno">10544</span>  {keyword_until, "until"},</div><div class="line"><a name="l10545"></a><span class="lineno">10545</span>  {keyword_for, "for"},</div><div class="line"><a name="l10546"></a><span class="lineno">10546</span>  {keyword_break, "break"},</div><div class="line"><a name="l10547"></a><span class="lineno">10547</span>  {keyword_next, "next"},</div><div class="line"><a name="l10548"></a><span class="lineno">10548</span>  {keyword_redo, "redo"},</div><div class="line"><a name="l10549"></a><span class="lineno">10549</span>  {keyword_retry, "retry"},</div><div class="line"><a name="l10550"></a><span class="lineno">10550</span>  {keyword_in, "in"},</div><div class="line"><a name="l10551"></a><span class="lineno">10551</span>  {keyword_do, "do"},</div><div class="line"><a name="l10552"></a><span class="lineno">10552</span>  {keyword_do_cond, "do"},</div><div class="line"><a name="l10553"></a><span class="lineno">10553</span>  {keyword_do_block, "do"},</div><div class="line"><a name="l10554"></a><span class="lineno">10554</span>  {keyword_return, "return"},</div><div class="line"><a name="l10555"></a><span class="lineno">10555</span>  {keyword_yield, "yield"},</div><div class="line"><a name="l10556"></a><span class="lineno">10556</span>  {keyword_super, "super"},</div><div class="line"><a name="l10557"></a><span class="lineno">10557</span>  {keyword_self, "self"},</div><div class="line"><a name="l10558"></a><span class="lineno">10558</span>  {keyword_nil, "nil"},</div><div class="line"><a name="l10559"></a><span class="lineno">10559</span>  {keyword_true, "true"},</div><div class="line"><a name="l10560"></a><span class="lineno">10560</span>  {keyword_false, "false"},</div><div class="line"><a name="l10561"></a><span class="lineno">10561</span>  {keyword_and, "and"},</div><div class="line"><a name="l10562"></a><span class="lineno">10562</span>  {keyword_or, "or"},</div><div class="line"><a name="l10563"></a><span class="lineno">10563</span>  {keyword_not, "not"},</div><div class="line"><a name="l10564"></a><span class="lineno">10564</span>  {modifier_if, "if"},</div><div class="line"><a name="l10565"></a><span class="lineno">10565</span>  {modifier_unless, "unless"},</div><div class="line"><a name="l10566"></a><span class="lineno">10566</span>  {modifier_while, "while"},</div><div class="line"><a name="l10567"></a><span class="lineno">10567</span>  {modifier_until, "until"},</div><div class="line"><a name="l10568"></a><span class="lineno">10568</span>  {modifier_rescue, "rescue"},</div><div class="line"><a name="l10569"></a><span class="lineno">10569</span>  {keyword_alias, "alias"},</div><div class="line"><a name="l10570"></a><span class="lineno">10570</span>  {keyword_defined, "defined?"},</div><div class="line"><a name="l10571"></a><span class="lineno">10571</span>  {keyword_BEGIN, "BEGIN"},</div><div class="line"><a name="l10572"></a><span class="lineno">10572</span>  {keyword_END, "END"},</div><div class="line"><a name="l10573"></a><span class="lineno">10573</span>  {keyword__LINE__, "__LINE__"},</div><div class="line"><a name="l10574"></a><span class="lineno">10574</span>  {keyword__FILE__, "__FILE__"},</div><div class="line"><a name="l10575"></a><span class="lineno">10575</span>  {keyword__ENCODING__, "__ENCODING__"},</div><div class="line"><a name="l10576"></a><span class="lineno">10576</span>  {0, NULL}</div><div class="line"><a name="l10577"></a><span class="lineno">10577</span> };</div><div class="line"><a name="l10578"></a><span class="lineno">10578</span> </div><div class="line"><a name="l10579"></a><span class="lineno">10579</span> static const char*</div><div class="line"><a name="l10580"></a><span class="lineno">10580</span> keyword_id_to_str(ID id)</div><div class="line"><a name="l10581"></a><span class="lineno">10581</span> {</div><div class="line"><a name="l10582"></a><span class="lineno">10582</span>  const struct kw_assoc *a;</div><div class="line"><a name="l10583"></a><span class="lineno">10583</span> </div><div class="line"><a name="l10584"></a><span class="lineno">10584</span>  for (a = keyword_to_name; a->id; a++) {</div><div class="line"><a name="l10585"></a><span class="lineno">10585</span>  if (a->id == id)</div><div class="line"><a name="l10586"></a><span class="lineno">10586</span>  return a->name;</div><div class="line"><a name="l10587"></a><span class="lineno">10587</span>  }</div><div class="line"><a name="l10588"></a><span class="lineno">10588</span>  return NULL;</div><div class="line"><a name="l10589"></a><span class="lineno">10589</span> }</div><div class="line"><a name="l10590"></a><span class="lineno">10590</span> </div><div class="line"><a name="l10591"></a><span class="lineno">10591</span> #undef ripper_id2sym</div><div class="line"><a name="l10592"></a><span class="lineno">10592</span> static VALUE</div><div class="line"><a name="l10593"></a><span class="lineno">10593</span> ripper_id2sym(ID id)</div><div class="line"><a name="l10594"></a><span class="lineno">10594</span> {</div><div class="line"><a name="l10595"></a><span class="lineno">10595</span>  const char *name;</div><div class="line"><a name="l10596"></a><span class="lineno">10596</span>  char buf[8];</div><div class="line"><a name="l10597"></a><span class="lineno">10597</span> </div><div class="line"><a name="l10598"></a><span class="lineno">10598</span>  if (id <= 256) {</div><div class="line"><a name="l10599"></a><span class="lineno">10599</span>  buf[0] = (char)id;</div><div class="line"><a name="l10600"></a><span class="lineno">10600</span>  buf[1] = '\0';</div><div class="line"><a name="l10601"></a><span class="lineno">10601</span>  return ID2SYM(rb_intern2(buf, 1));</div><div class="line"><a name="l10602"></a><span class="lineno">10602</span>  }</div><div class="line"><a name="l10603"></a><span class="lineno">10603</span>  if ((name = keyword_id_to_str(id))) {</div><div class="line"><a name="l10604"></a><span class="lineno">10604</span>  return ID2SYM(rb_intern(name));</div><div class="line"><a name="l10605"></a><span class="lineno">10605</span>  }</div><div class="line"><a name="l10606"></a><span class="lineno">10606</span>  switch (id) {</div><div class="line"><a name="l10607"></a><span class="lineno">10607</span>  case tOROP:</div><div class="line"><a name="l10608"></a><span class="lineno">10608</span>  name = "||";</div><div class="line"><a name="l10609"></a><span class="lineno">10609</span>  break;</div><div class="line"><a name="l10610"></a><span class="lineno">10610</span>  case tANDOP:</div><div class="line"><a name="l10611"></a><span class="lineno">10611</span>  name = "&&";</div><div class="line"><a name="l10612"></a><span class="lineno">10612</span>  break;</div><div class="line"><a name="l10613"></a><span class="lineno">10613</span>  default:</div><div class="line"><a name="l10614"></a><span class="lineno">10614</span>  name = rb_id2name(id);</div><div class="line"><a name="l10615"></a><span class="lineno">10615</span>  if (!name) {</div><div class="line"><a name="l10616"></a><span class="lineno">10616</span>  rb_bug("cannot convert ID to string: %ld", (unsigned long)id);</div><div class="line"><a name="l10617"></a><span class="lineno">10617</span>  }</div><div class="line"><a name="l10618"></a><span class="lineno">10618</span>  return ID2SYM(id);</div><div class="line"><a name="l10619"></a><span class="lineno">10619</span>  }</div><div class="line"><a name="l10620"></a><span class="lineno">10620</span>  return ID2SYM(rb_intern(name));</div><div class="line"><a name="l10621"></a><span class="lineno">10621</span> }</div><div class="line"><a name="l10622"></a><span class="lineno">10622</span> </div><div class="line"><a name="l10623"></a><span class="lineno">10623</span> static ID</div><div class="line"><a name="l10624"></a><span class="lineno">10624</span> ripper_get_id(VALUE v)</div><div class="line"><a name="l10625"></a><span class="lineno">10625</span> {</div><div class="line"><a name="l10626"></a><span class="lineno">10626</span>  NODE *nd;</div><div class="line"><a name="l10627"></a><span class="lineno">10627</span>  if (!RB_TYPE_P(v, T_NODE)) return 0;</div><div class="line"><a name="l10628"></a><span class="lineno">10628</span>  nd = (NODE *)v;</div><div class="line"><a name="l10629"></a><span class="lineno">10629</span>  if (nd_type(nd) != NODE_LASGN) return 0;</div><div class="line"><a name="l10630"></a><span class="lineno">10630</span>  return nd->nd_vid;</div><div class="line"><a name="l10631"></a><span class="lineno">10631</span> }</div><div class="line"><a name="l10632"></a><span class="lineno">10632</span> </div><div class="line"><a name="l10633"></a><span class="lineno">10633</span> static VALUE</div><div class="line"><a name="l10634"></a><span class="lineno">10634</span> ripper_get_value(VALUE v)</div><div class="line"><a name="l10635"></a><span class="lineno">10635</span> {</div><div class="line"><a name="l10636"></a><span class="lineno">10636</span>  NODE *nd;</div><div class="line"><a name="l10637"></a><span class="lineno">10637</span>  if (v == Qundef) return Qnil;</div><div class="line"><a name="l10638"></a><span class="lineno">10638</span>  if (!RB_TYPE_P(v, T_NODE)) return v;</div><div class="line"><a name="l10639"></a><span class="lineno">10639</span>  nd = (NODE *)v;</div><div class="line"><a name="l10640"></a><span class="lineno">10640</span>  if (nd_type(nd) != NODE_LASGN) return Qnil;</div><div class="line"><a name="l10641"></a><span class="lineno">10641</span>  return nd->nd_rval;</div><div class="line"><a name="l10642"></a><span class="lineno">10642</span> }</div><div class="line"><a name="l10643"></a><span class="lineno">10643</span> </div><div class="line"><a name="l10644"></a><span class="lineno">10644</span> static void</div><div class="line"><a name="l10645"></a><span class="lineno">10645</span> ripper_compile_error(struct parser_params *parser, const char *fmt, ...)</div><div class="line"><a name="l10646"></a><span class="lineno">10646</span> {</div><div class="line"><a name="l10647"></a><span class="lineno">10647</span>  VALUE str;</div><div class="line"><a name="l10648"></a><span class="lineno">10648</span>  va_list args;</div><div class="line"><a name="l10649"></a><span class="lineno">10649</span> </div><div class="line"><a name="l10650"></a><span class="lineno">10650</span>  va_start(args, fmt);</div><div class="line"><a name="l10651"></a><span class="lineno">10651</span>  str = rb_vsprintf(fmt, args);</div><div class="line"><a name="l10652"></a><span class="lineno">10652</span>  va_end(args);</div><div class="line"><a name="l10653"></a><span class="lineno">10653</span>  rb_funcall(parser->value, rb_intern("compile_error"), 1, str);</div><div class="line"><a name="l10654"></a><span class="lineno">10654</span> }</div><div class="line"><a name="l10655"></a><span class="lineno">10655</span> </div><div class="line"><a name="l10656"></a><span class="lineno">10656</span> static void</div><div class="line"><a name="l10657"></a><span class="lineno">10657</span> ripper_warn0(struct parser_params *parser, const char *fmt)</div><div class="line"><a name="l10658"></a><span class="lineno">10658</span> {</div><div class="line"><a name="l10659"></a><span class="lineno">10659</span>  rb_funcall(parser->value, rb_intern("warn"), 1, STR_NEW2(fmt));</div><div class="line"><a name="l10660"></a><span class="lineno">10660</span> }</div><div class="line"><a name="l10661"></a><span class="lineno">10661</span> </div><div class="line"><a name="l10662"></a><span class="lineno">10662</span> static void</div><div class="line"><a name="l10663"></a><span class="lineno">10663</span> ripper_warnI(struct parser_params *parser, const char *fmt, int a)</div><div class="line"><a name="l10664"></a><span class="lineno">10664</span> {</div><div class="line"><a name="l10665"></a><span class="lineno">10665</span>  rb_funcall(parser->value, rb_intern("warn"), 2,</div><div class="line"><a name="l10666"></a><span class="lineno">10666</span>  STR_NEW2(fmt), INT2NUM(a));</div><div class="line"><a name="l10667"></a><span class="lineno">10667</span> }</div><div class="line"><a name="l10668"></a><span class="lineno">10668</span> </div><div class="line"><a name="l10669"></a><span class="lineno">10669</span> #if 0</div><div class="line"><a name="l10670"></a><span class="lineno">10670</span> static void</div><div class="line"><a name="l10671"></a><span class="lineno">10671</span> ripper_warnS(struct parser_params *parser, const char *fmt, const char *str)</div><div class="line"><a name="l10672"></a><span class="lineno">10672</span> {</div><div class="line"><a name="l10673"></a><span class="lineno">10673</span>  rb_funcall(parser->value, rb_intern("warn"), 2,</div><div class="line"><a name="l10674"></a><span class="lineno">10674</span>  STR_NEW2(fmt), STR_NEW2(str));</div><div class="line"><a name="l10675"></a><span class="lineno">10675</span> }</div><div class="line"><a name="l10676"></a><span class="lineno">10676</span> #endif</div><div class="line"><a name="l10677"></a><span class="lineno">10677</span> </div><div class="line"><a name="l10678"></a><span class="lineno">10678</span> static void</div><div class="line"><a name="l10679"></a><span class="lineno">10679</span> ripper_warning0(struct parser_params *parser, const char *fmt)</div><div class="line"><a name="l10680"></a><span class="lineno">10680</span> {</div><div class="line"><a name="l10681"></a><span class="lineno">10681</span>  rb_funcall(parser->value, rb_intern("warning"), 1, STR_NEW2(fmt));</div><div class="line"><a name="l10682"></a><span class="lineno">10682</span> }</div><div class="line"><a name="l10683"></a><span class="lineno">10683</span> </div><div class="line"><a name="l10684"></a><span class="lineno">10684</span> static void</div><div class="line"><a name="l10685"></a><span class="lineno">10685</span> ripper_warningS(struct parser_params *parser, const char *fmt, const char *str)</div><div class="line"><a name="l10686"></a><span class="lineno">10686</span> {</div><div class="line"><a name="l10687"></a><span class="lineno">10687</span>  rb_funcall(parser->value, rb_intern("warning"), 2,</div><div class="line"><a name="l10688"></a><span class="lineno">10688</span>  STR_NEW2(fmt), STR_NEW2(str));</div><div class="line"><a name="l10689"></a><span class="lineno">10689</span> }</div><div class="line"><a name="l10690"></a><span class="lineno">10690</span> </div><div class="line"><a name="l10691"></a><span class="lineno">10691</span> static VALUE</div><div class="line"><a name="l10692"></a><span class="lineno">10692</span> ripper_lex_get_generic(struct parser_params *parser, VALUE src)</div><div class="line"><a name="l10693"></a><span class="lineno">10693</span> {</div><div class="line"><a name="l10694"></a><span class="lineno">10694</span>  return rb_funcall(src, ripper_id_gets, 0);</div><div class="line"><a name="l10695"></a><span class="lineno">10695</span> }</div><div class="line"><a name="l10696"></a><span class="lineno">10696</span> </div><div class="line"><a name="l10697"></a><span class="lineno">10697</span> static VALUE</div><div class="line"><a name="l10698"></a><span class="lineno">10698</span> ripper_s_allocate(VALUE klass)</div><div class="line"><a name="l10699"></a><span class="lineno">10699</span> {</div><div class="line"><a name="l10700"></a><span class="lineno">10700</span>  struct parser_params *p;</div><div class="line"><a name="l10701"></a><span class="lineno">10701</span>  VALUE self;</div><div class="line"><a name="l10702"></a><span class="lineno">10702</span> </div><div class="line"><a name="l10703"></a><span class="lineno">10703</span>  p = ALLOC_N(struct parser_params, 1);</div><div class="line"><a name="l10704"></a><span class="lineno">10704</span>  MEMZERO(p, struct parser_params, 1);</div><div class="line"><a name="l10705"></a><span class="lineno">10705</span>  self = TypedData_Wrap_Struct(klass, &parser_data_type, p);</div><div class="line"><a name="l10706"></a><span class="lineno">10706</span>  p->value = self;</div><div class="line"><a name="l10707"></a><span class="lineno">10707</span>  return self;</div><div class="line"><a name="l10708"></a><span class="lineno">10708</span> }</div><div class="line"><a name="l10709"></a><span class="lineno">10709</span> </div><div class="line"><a name="l10710"></a><span class="lineno">10710</span> #define ripper_initialized_p(r) ((r)->parser_lex_input != 0)</div><div class="line"><a name="l10711"></a><span class="lineno">10711</span> </div><div class="line"><a name="l10712"></a><span class="lineno">10712</span> /*</div><div class="line"><a name="l10713"></a><span class="lineno">10713</span>  * call-seq:</div><div class="line"><a name="l10714"></a><span class="lineno">10714</span>  * Ripper.new(src, filename="(ripper)", lineno=1) -> ripper</div><div class="line"><a name="l10715"></a><span class="lineno">10715</span>  *</div><div class="line"><a name="l10716"></a><span class="lineno">10716</span>  * Create a new Ripper object.</div><div class="line"><a name="l10717"></a><span class="lineno">10717</span>  * _src_ must be a String, an IO, or an Object which has #gets method.</div><div class="line"><a name="l10718"></a><span class="lineno">10718</span>  *</div><div class="line"><a name="l10719"></a><span class="lineno">10719</span>  * This method does not starts parsing.</div><div class="line"><a name="l10720"></a><span class="lineno">10720</span>  * See also Ripper#parse and Ripper.parse.</div><div class="line"><a name="l10721"></a><span class="lineno">10721</span>  */</div><div class="line"><a name="l10722"></a><span class="lineno">10722</span> static VALUE</div><div class="line"><a name="l10723"></a><span class="lineno">10723</span> ripper_initialize(int argc, VALUE *argv, VALUE self)</div><div class="line"><a name="l10724"></a><span class="lineno">10724</span> {</div><div class="line"><a name="l10725"></a><span class="lineno">10725</span>  struct parser_params *parser;</div><div class="line"><a name="l10726"></a><span class="lineno">10726</span>  VALUE src, fname, lineno;</div><div class="line"><a name="l10727"></a><span class="lineno">10727</span> </div><div class="line"><a name="l10728"></a><span class="lineno">10728</span>  TypedData_Get_Struct(self, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10729"></a><span class="lineno">10729</span>  rb_scan_args(argc, argv, "12", &src, &fname, &lineno);</div><div class="line"><a name="l10730"></a><span class="lineno">10730</span>  if (rb_obj_respond_to(src, ripper_id_gets, 0)) {</div><div class="line"><a name="l10731"></a><span class="lineno">10731</span>  parser->parser_lex_gets = ripper_lex_get_generic;</div><div class="line"><a name="l10732"></a><span class="lineno">10732</span>  }</div><div class="line"><a name="l10733"></a><span class="lineno">10733</span>  else {</div><div class="line"><a name="l10734"></a><span class="lineno">10734</span>  StringValue(src);</div><div class="line"><a name="l10735"></a><span class="lineno">10735</span>  parser->parser_lex_gets = lex_get_str;</div><div class="line"><a name="l10736"></a><span class="lineno">10736</span>  }</div><div class="line"><a name="l10737"></a><span class="lineno">10737</span>  parser->parser_lex_input = src;</div><div class="line"><a name="l10738"></a><span class="lineno">10738</span>  parser->eofp = Qfalse;</div><div class="line"><a name="l10739"></a><span class="lineno">10739</span>  if (NIL_P(fname)) {</div><div class="line"><a name="l10740"></a><span class="lineno">10740</span>  fname = STR_NEW2("(ripper)");</div><div class="line"><a name="l10741"></a><span class="lineno">10741</span>  }</div><div class="line"><a name="l10742"></a><span class="lineno">10742</span>  else {</div><div class="line"><a name="l10743"></a><span class="lineno">10743</span>  StringValue(fname);</div><div class="line"><a name="l10744"></a><span class="lineno">10744</span>  }</div><div class="line"><a name="l10745"></a><span class="lineno">10745</span>  parser_initialize(parser);</div><div class="line"><a name="l10746"></a><span class="lineno">10746</span> </div><div class="line"><a name="l10747"></a><span class="lineno">10747</span>  parser->parser_ruby_sourcefile_string = fname;</div><div class="line"><a name="l10748"></a><span class="lineno">10748</span>  parser->parser_ruby_sourcefile = RSTRING_PTR(fname);</div><div class="line"><a name="l10749"></a><span class="lineno">10749</span>  parser->parser_ruby_sourceline = NIL_P(lineno) ? 0 : NUM2INT(lineno) - 1;</div><div class="line"><a name="l10750"></a><span class="lineno">10750</span> </div><div class="line"><a name="l10751"></a><span class="lineno">10751</span>  return Qnil;</div><div class="line"><a name="l10752"></a><span class="lineno">10752</span> }</div><div class="line"><a name="l10753"></a><span class="lineno">10753</span> </div><div class="line"><a name="l10754"></a><span class="lineno">10754</span> struct ripper_args {</div><div class="line"><a name="l10755"></a><span class="lineno">10755</span>  struct parser_params *parser;</div><div class="line"><a name="l10756"></a><span class="lineno">10756</span>  int argc;</div><div class="line"><a name="l10757"></a><span class="lineno">10757</span>  VALUE *argv;</div><div class="line"><a name="l10758"></a><span class="lineno">10758</span> };</div><div class="line"><a name="l10759"></a><span class="lineno">10759</span> </div><div class="line"><a name="l10760"></a><span class="lineno">10760</span> static VALUE</div><div class="line"><a name="l10761"></a><span class="lineno">10761</span> ripper_parse0(VALUE parser_v)</div><div class="line"><a name="l10762"></a><span class="lineno">10762</span> {</div><div class="line"><a name="l10763"></a><span class="lineno">10763</span>  struct parser_params *parser;</div><div class="line"><a name="l10764"></a><span class="lineno">10764</span> </div><div class="line"><a name="l10765"></a><span class="lineno">10765</span>  TypedData_Get_Struct(parser_v, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10766"></a><span class="lineno">10766</span>  parser_prepare(parser);</div><div class="line"><a name="l10767"></a><span class="lineno">10767</span>  ripper_yyparse((void*)parser);</div><div class="line"><a name="l10768"></a><span class="lineno">10768</span>  return parser->result;</div><div class="line"><a name="l10769"></a><span class="lineno">10769</span> }</div><div class="line"><a name="l10770"></a><span class="lineno">10770</span> </div><div class="line"><a name="l10771"></a><span class="lineno">10771</span> static VALUE</div><div class="line"><a name="l10772"></a><span class="lineno">10772</span> ripper_ensure(VALUE parser_v)</div><div class="line"><a name="l10773"></a><span class="lineno">10773</span> {</div><div class="line"><a name="l10774"></a><span class="lineno">10774</span>  struct parser_params *parser;</div><div class="line"><a name="l10775"></a><span class="lineno">10775</span> </div><div class="line"><a name="l10776"></a><span class="lineno">10776</span>  TypedData_Get_Struct(parser_v, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10777"></a><span class="lineno">10777</span>  parser->parsing_thread = Qnil;</div><div class="line"><a name="l10778"></a><span class="lineno">10778</span>  return Qnil;</div><div class="line"><a name="l10779"></a><span class="lineno">10779</span> }</div><div class="line"><a name="l10780"></a><span class="lineno">10780</span> </div><div class="line"><a name="l10781"></a><span class="lineno">10781</span> /*</div><div class="line"><a name="l10782"></a><span class="lineno">10782</span>  * call-seq:</div><div class="line"><a name="l10783"></a><span class="lineno">10783</span>  * ripper#parse</div><div class="line"><a name="l10784"></a><span class="lineno">10784</span>  *</div><div class="line"><a name="l10785"></a><span class="lineno">10785</span>  * Start parsing and returns the value of the root action.</div><div class="line"><a name="l10786"></a><span class="lineno">10786</span>  */</div><div class="line"><a name="l10787"></a><span class="lineno">10787</span> static VALUE</div><div class="line"><a name="l10788"></a><span class="lineno">10788</span> ripper_parse(VALUE self)</div><div class="line"><a name="l10789"></a><span class="lineno">10789</span> {</div><div class="line"><a name="l10790"></a><span class="lineno">10790</span>  struct parser_params *parser;</div><div class="line"><a name="l10791"></a><span class="lineno">10791</span> </div><div class="line"><a name="l10792"></a><span class="lineno">10792</span>  TypedData_Get_Struct(self, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10793"></a><span class="lineno">10793</span>  if (!ripper_initialized_p(parser)) {</div><div class="line"><a name="l10794"></a><span class="lineno">10794</span>  rb_raise(rb_eArgError, "method called for uninitialized object");</div><div class="line"><a name="l10795"></a><span class="lineno">10795</span>  }</div><div class="line"><a name="l10796"></a><span class="lineno">10796</span>  if (!NIL_P(parser->parsing_thread)) {</div><div class="line"><a name="l10797"></a><span class="lineno">10797</span>  if (parser->parsing_thread == rb_thread_current())</div><div class="line"><a name="l10798"></a><span class="lineno">10798</span>  rb_raise(rb_eArgError, "Ripper#parse is not reentrant");</div><div class="line"><a name="l10799"></a><span class="lineno">10799</span>  else</div><div class="line"><a name="l10800"></a><span class="lineno">10800</span>  rb_raise(rb_eArgError, "Ripper#parse is not multithread-safe");</div><div class="line"><a name="l10801"></a><span class="lineno">10801</span>  }</div><div class="line"><a name="l10802"></a><span class="lineno">10802</span>  parser->parsing_thread = rb_thread_current();</div><div class="line"><a name="l10803"></a><span class="lineno">10803</span>  rb_ensure(ripper_parse0, self, ripper_ensure, self);</div><div class="line"><a name="l10804"></a><span class="lineno">10804</span> </div><div class="line"><a name="l10805"></a><span class="lineno">10805</span>  return parser->result;</div><div class="line"><a name="l10806"></a><span class="lineno">10806</span> }</div><div class="line"><a name="l10807"></a><span class="lineno">10807</span> </div><div class="line"><a name="l10808"></a><span class="lineno">10808</span> /*</div><div class="line"><a name="l10809"></a><span class="lineno">10809</span>  * call-seq:</div><div class="line"><a name="l10810"></a><span class="lineno">10810</span>  * ripper#column -> Integer</div><div class="line"><a name="l10811"></a><span class="lineno">10811</span>  *</div><div class="line"><a name="l10812"></a><span class="lineno">10812</span>  * Return column number of current parsing line.</div><div class="line"><a name="l10813"></a><span class="lineno">10813</span>  * This number starts from 0.</div><div class="line"><a name="l10814"></a><span class="lineno">10814</span>  */</div><div class="line"><a name="l10815"></a><span class="lineno">10815</span> static VALUE</div><div class="line"><a name="l10816"></a><span class="lineno">10816</span> ripper_column(VALUE self)</div><div class="line"><a name="l10817"></a><span class="lineno">10817</span> {</div><div class="line"><a name="l10818"></a><span class="lineno">10818</span>  struct parser_params *parser;</div><div class="line"><a name="l10819"></a><span class="lineno">10819</span>  long col;</div><div class="line"><a name="l10820"></a><span class="lineno">10820</span> </div><div class="line"><a name="l10821"></a><span class="lineno">10821</span>  TypedData_Get_Struct(self, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10822"></a><span class="lineno">10822</span>  if (!ripper_initialized_p(parser)) {</div><div class="line"><a name="l10823"></a><span class="lineno">10823</span>  rb_raise(rb_eArgError, "method called for uninitialized object");</div><div class="line"><a name="l10824"></a><span class="lineno">10824</span>  }</div><div class="line"><a name="l10825"></a><span class="lineno">10825</span>  if (NIL_P(parser->parsing_thread)) return Qnil;</div><div class="line"><a name="l10826"></a><span class="lineno">10826</span>  col = parser->tokp - parser->parser_lex_pbeg;</div><div class="line"><a name="l10827"></a><span class="lineno">10827</span>  return LONG2NUM(col);</div><div class="line"><a name="l10828"></a><span class="lineno">10828</span> }</div><div class="line"><a name="l10829"></a><span class="lineno">10829</span> </div><div class="line"><a name="l10830"></a><span class="lineno">10830</span> /*</div><div class="line"><a name="l10831"></a><span class="lineno">10831</span>  * call-seq:</div><div class="line"><a name="l10832"></a><span class="lineno">10832</span>  * ripper#filename -> String</div><div class="line"><a name="l10833"></a><span class="lineno">10833</span>  *</div><div class="line"><a name="l10834"></a><span class="lineno">10834</span>  * Return current parsing filename.</div><div class="line"><a name="l10835"></a><span class="lineno">10835</span>  */</div><div class="line"><a name="l10836"></a><span class="lineno">10836</span> static VALUE</div><div class="line"><a name="l10837"></a><span class="lineno">10837</span> ripper_filename(VALUE self)</div><div class="line"><a name="l10838"></a><span class="lineno">10838</span> {</div><div class="line"><a name="l10839"></a><span class="lineno">10839</span>  struct parser_params *parser;</div><div class="line"><a name="l10840"></a><span class="lineno">10840</span> </div><div class="line"><a name="l10841"></a><span class="lineno">10841</span>  TypedData_Get_Struct(self, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10842"></a><span class="lineno">10842</span>  if (!ripper_initialized_p(parser)) {</div><div class="line"><a name="l10843"></a><span class="lineno">10843</span>  rb_raise(rb_eArgError, "method called for uninitialized object");</div><div class="line"><a name="l10844"></a><span class="lineno">10844</span>  }</div><div class="line"><a name="l10845"></a><span class="lineno">10845</span>  return parser->parser_ruby_sourcefile_string;</div><div class="line"><a name="l10846"></a><span class="lineno">10846</span> }</div><div class="line"><a name="l10847"></a><span class="lineno">10847</span> </div><div class="line"><a name="l10848"></a><span class="lineno">10848</span> /*</div><div class="line"><a name="l10849"></a><span class="lineno">10849</span>  * call-seq:</div><div class="line"><a name="l10850"></a><span class="lineno">10850</span>  * ripper#lineno -> Integer</div><div class="line"><a name="l10851"></a><span class="lineno">10851</span>  *</div><div class="line"><a name="l10852"></a><span class="lineno">10852</span>  * Return line number of current parsing line.</div><div class="line"><a name="l10853"></a><span class="lineno">10853</span>  * This number starts from 1.</div><div class="line"><a name="l10854"></a><span class="lineno">10854</span>  */</div><div class="line"><a name="l10855"></a><span class="lineno">10855</span> static VALUE</div><div class="line"><a name="l10856"></a><span class="lineno">10856</span> ripper_lineno(VALUE self)</div><div class="line"><a name="l10857"></a><span class="lineno">10857</span> {</div><div class="line"><a name="l10858"></a><span class="lineno">10858</span>  struct parser_params *parser;</div><div class="line"><a name="l10859"></a><span class="lineno">10859</span> </div><div class="line"><a name="l10860"></a><span class="lineno">10860</span>  TypedData_Get_Struct(self, struct parser_params, &parser_data_type, parser);</div><div class="line"><a name="l10861"></a><span class="lineno">10861</span>  if (!ripper_initialized_p(parser)) {</div><div class="line"><a name="l10862"></a><span class="lineno">10862</span>  rb_raise(rb_eArgError, "method called for uninitialized object");</div><div class="line"><a name="l10863"></a><span class="lineno">10863</span>  }</div><div class="line"><a name="l10864"></a><span class="lineno">10864</span>  if (NIL_P(parser->parsing_thread)) return Qnil;</div><div class="line"><a name="l10865"></a><span class="lineno">10865</span>  return INT2NUM(parser->parser_ruby_sourceline);</div><div class="line"><a name="l10866"></a><span class="lineno">10866</span> }</div><div class="line"><a name="l10867"></a><span class="lineno">10867</span> </div><div class="line"><a name="l10868"></a><span class="lineno">10868</span> #ifdef RIPPER_DEBUG</div><div class="line"><a name="l10869"></a><span class="lineno">10869</span> /* :nodoc: */</div><div class="line"><a name="l10870"></a><span class="lineno">10870</span> static VALUE</div><div class="line"><a name="l10871"></a><span class="lineno">10871</span> ripper_assert_Qundef(VALUE self, VALUE obj, VALUE msg)</div><div class="line"><a name="l10872"></a><span class="lineno">10872</span> {</div><div class="line"><a name="l10873"></a><span class="lineno">10873</span>  StringValue(msg);</div><div class="line"><a name="l10874"></a><span class="lineno">10874</span>  if (obj == Qundef) {</div><div class="line"><a name="l10875"></a><span class="lineno">10875</span>  rb_raise(rb_eArgError, "%s", RSTRING_PTR(msg));</div><div class="line"><a name="l10876"></a><span class="lineno">10876</span>  }</div><div class="line"><a name="l10877"></a><span class="lineno">10877</span>  return Qnil;</div><div class="line"><a name="l10878"></a><span class="lineno">10878</span> }</div><div class="line"><a name="l10879"></a><span class="lineno">10879</span> </div><div class="line"><a name="l10880"></a><span class="lineno">10880</span> /* :nodoc: */</div><div class="line"><a name="l10881"></a><span class="lineno">10881</span> static VALUE</div><div class="line"><a name="l10882"></a><span class="lineno">10882</span> ripper_value(VALUE self, VALUE obj)</div><div class="line"><a name="l10883"></a><span class="lineno">10883</span> {</div><div class="line"><a name="l10884"></a><span class="lineno">10884</span>  return ULONG2NUM(obj);</div><div class="line"><a name="l10885"></a><span class="lineno">10885</span> }</div><div class="line"><a name="l10886"></a><span class="lineno">10886</span> #endif</div><div class="line"><a name="l10887"></a><span class="lineno">10887</span> </div><div class="line"><a name="l10888"></a><span class="lineno">10888</span> </div><div class="line"><a name="l10889"></a><span class="lineno">10889</span> void</div><div class="line"><a name="l10890"></a><span class="lineno">10890</span> InitVM_ripper(void)</div><div class="line"><a name="l10891"></a><span class="lineno">10891</span> {</div><div class="line"><a name="l10892"></a><span class="lineno">10892</span>  parser_data_type.parent = RTYPEDDATA_TYPE(rb_parser_new());</div><div class="line"><a name="l10893"></a><span class="lineno">10893</span> }</div><div class="line"><a name="l10894"></a><span class="lineno">10894</span> </div><div class="line"><a name="l10895"></a><span class="lineno">10895</span> void</div><div class="line"><a name="l10896"></a><span class="lineno">10896</span> Init_ripper(void)</div><div class="line"><a name="l10897"></a><span class="lineno">10897</span> {</div><div class="line"><a name="l10898"></a><span class="lineno">10898</span>  VALUE Ripper;</div><div class="line"><a name="l10899"></a><span class="lineno">10899</span> </div><div class="line"><a name="l10900"></a><span class="lineno">10900</span>  InitVM(ripper);</div><div class="line"><a name="l10901"></a><span class="lineno">10901</span>  Ripper = rb_define_class("Ripper", rb_cObject);</div><div class="line"><a name="l10902"></a><span class="lineno">10902</span>  rb_define_const(Ripper, "Version", rb_usascii_str_new2(RIPPER_VERSION));</div><div class="line"><a name="l10903"></a><span class="lineno">10903</span>  rb_define_alloc_func(Ripper, ripper_s_allocate);</div><div class="line"><a name="l10904"></a><span class="lineno">10904</span>  rb_define_method(Ripper, "initialize", ripper_initialize, -1);</div><div class="line"><a name="l10905"></a><span class="lineno">10905</span>  rb_define_method(Ripper, "parse", ripper_parse, 0);</div><div class="line"><a name="l10906"></a><span class="lineno">10906</span>  rb_define_method(Ripper, "column", ripper_column, 0);</div><div class="line"><a name="l10907"></a><span class="lineno">10907</span>  rb_define_method(Ripper, "filename", ripper_filename, 0);</div><div class="line"><a name="l10908"></a><span class="lineno">10908</span>  rb_define_method(Ripper, "lineno", ripper_lineno, 0);</div><div class="line"><a name="l10909"></a><span class="lineno">10909</span>  rb_define_method(Ripper, "end_seen?", rb_parser_end_seen_p, 0);</div><div class="line"><a name="l10910"></a><span class="lineno">10910</span>  rb_define_method(Ripper, "encoding", rb_parser_encoding, 0);</div><div class="line"><a name="l10911"></a><span class="lineno">10911</span>  rb_define_method(Ripper, "yydebug", rb_parser_get_yydebug, 0);</div><div class="line"><a name="l10912"></a><span class="lineno">10912</span>  rb_define_method(Ripper, "yydebug=", rb_parser_set_yydebug, 1);</div><div class="line"><a name="l10913"></a><span class="lineno">10913</span> #ifdef RIPPER_DEBUG</div><div class="line"><a name="l10914"></a><span class="lineno">10914</span>  rb_define_method(rb_mKernel, "assert_Qundef", ripper_assert_Qundef, 2);</div><div class="line"><a name="l10915"></a><span class="lineno">10915</span>  rb_define_method(rb_mKernel, "rawVALUE", ripper_value, 1);</div><div class="line"><a name="l10916"></a><span class="lineno">10916</span>  rb_define_method(rb_mKernel, "validate_object", ripper_validate_object, 1);</div><div class="line"><a name="l10917"></a><span class="lineno">10917</span> #endif</div><div class="line"><a name="l10918"></a><span class="lineno">10918</span> </div><div class="line"><a name="l10919"></a><span class="lineno">10919</span>  ripper_id_gets = rb_intern("gets");</div><div class="line"><a name="l10920"></a><span class="lineno">10920</span>  ripper_init_eventids1(Ripper);</div><div class="line"><a name="l10921"></a><span class="lineno">10921</span>  ripper_init_eventids2(Ripper);</div><div class="line"><a name="l10922"></a><span class="lineno">10922</span>  /* ensure existing in symbol table */</div><div class="line"><a name="l10923"></a><span class="lineno">10923</span>  (void)rb_intern("||");</div><div class="line"><a name="l10924"></a><span class="lineno">10924</span>  (void)rb_intern("&&");</div><div class="line"><a name="l10925"></a><span class="lineno">10925</span> </div><div class="line"><a name="l10926"></a><span class="lineno">10926</span> # if 0</div><div class="line"><a name="l10927"></a><span class="lineno">10927</span>  /* Hack to let RDoc document SCRIPT_LINES__ */</div><div class="line"><a name="l10928"></a><span class="lineno">10928</span> </div><div class="line"><a name="l10929"></a><span class="lineno">10929</span>  /*</div><div class="line"><a name="l10930"></a><span class="lineno">10930</span>  * When a Hash is assigned to +SCRIPT_LINES__+ the contents of files loaded</div><div class="line"><a name="l10931"></a><span class="lineno">10931</span>  * after the assignment will be added as an Array of lines with the file</div><div class="line"><a name="l10932"></a><span class="lineno">10932</span>  * name as the key.</div><div class="line"><a name="l10933"></a><span class="lineno">10933</span>  */</div><div class="line"><a name="l10934"></a><span class="lineno">10934</span>  rb_define_global_const("SCRIPT_LINES__", Qnil);</div><div class="line"><a name="l10935"></a><span class="lineno">10935</span> #endif</div><div class="line"><a name="l10936"></a><span class="lineno">10936</span> </div><div class="line"><a name="l10937"></a><span class="lineno">10937</span> }</div><div class="line"><a name="l10938"></a><span class="lineno">10938</span> #endif /* RIPPER */</div></div><!-- fragment --></div><!-- contents --> <!-- start footer part --> <hr class="footer"/><address class="footer"><small> Generated by  <a href="http://www.doxygen.org/index.html"> <img class="footer" src="../../doxygen.png" alt="doxygen"/> </a> 1.8.14 </small></address> </body> </html>