depager 0.2.3 → 0.3.0.b20250423

data/lib/depager/plugins/rie.rb

@@ -0,0 +1,1614 @@
+###
+### Depager::RieExtension - Depager Extension (master)
+###
+require 'depager/parser.rb'
+
+
+module Depager ; end
+
+class Depager::RieExtension < Depager::Extension
+
+  def initialize
+    super
+    @master = self
+    @slaves = []
+  end
+
+  def extension_registered g_parser
+    super g_parser
+
+    @slaves << Depager::RieExtension::PostLhs0::Parser.new(g_parser, self)
+    g_parser.hooks[:post_lhs].push [@slaves.last, :do_parse]
+    @slaves << Depager::RieExtension::PostRhs1::Parser.new(g_parser, self)
+    g_parser.hooks[:post_rhs].push [@slaves.last, :do_parse]
+  end
+
+module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 7
+  require "pp"
+
+  module Nodes
+    N_THREAD   = Struct.new :lineno, :targets, :excepts
+    N_TRANSFER = Struct.new :lineno, :targets, :excepts
+    N_EXCEPT   = Struct.new :lineno, :let_or_ids
+    N_LET      = Struct.new :lineno, :atoc, :expr, :state
+    N_ACTION   = Struct.new :lineno, :expr
+    N_ATOC     = Struct.new :lineno, :sym_name, :attr_name, :rx
+  end
+  include Nodes
+
+  begin
+    require 'depager/plugins/_rie_debug.rb' if Depager.debug_mode?
+  rescue LoadError
+  end
+
+  attr_accessor :action_code, :on_reduce, :semantics, :attributes, :ecs
+  attr_reader   :grammar
+
+  def init_extension
+    @action_code   = ''
+    @on_reduce  = []
+    @on_state   = []
+    @attributes = []
+    @semantics  = [[]]
+    @locals     = [{}]
+    @ecs        = {}
+    if Depager.debug_mode?
+      path = g_parser.file == $stdin ? "stdin" : g_parser.file.path
+      @debug_output_path = "#{path}.rie_debug.output"
+      File.write @debug_output_path, ""
+    end
+  end
+
+  def term_extension
+    $grammar = @grammar = g_parser.table.grammar
+    expand_short_hand_notation
+    error_exit_if_error_pending
+
+    check_lattr
+    error_exit_if_error_pending
+    debug_info "locals:\n#{@locals.pretty_inspect}"
+
+    generate_action
+    g_parser.outer_code << generate_rie_decorator_code(@on_reduce, @on_state, @action_code)
+  end
+
+  def expand_short_hand_notation
+    semantics = []
+    @semantics.each_with_index do |rule_semantics, x|
+      res = []
+      (rule_semantics || []).each do |semantic|
+        case semantic
+        when N_TRANSFER ; expand_transfer res, semantic, grammar[x]
+        when N_THREAD   ; expand_thread res, semantic, grammar[x]
+        else res << semantic
+        end
+      end
+      semantics << res
+    end
+    @semantics = semantics
+  end
+
+  def expand_transfer res, transfer, rule
+    lineno = transfer.lineno
+    transfer.targets.each do |attr_name|
+      unless @attributes[rule.lhs].include?(attr_name)
+        pending_error "#{attr_name} is not lhs attribute.", lineno
+        next
+      end
+      used   = false
+      rule.rhs.each_with_index do |rsym, i|
+        next unless grammar.nonterm? rsym
+
+        rname  = rule.rhs_names[i]
+        rattrs = @attributes[rsym] || []
+        next if !rattrs.include?(attr_name) || transfer.excepts.find do |e|
+          rname == e.sym_name and rattrs.include?(e.attr_name)
+        end
+        if attr_name[0] == ?_ # inherited attr
+          res << N_LET[lineno, N_ATOC[lineno, rname, attr_name, rule.n],
+            [N_ATOC[lineno, '$', attr_name, rule.n]]]
+          used = true
+        else
+          if used
+            pending_error "transfer `$.#{attr_name}' has too many source."
+            break
+          end
+          res << N_LET[lineno, N_ATOC[lineno, '$', attr_name, rule.n],
+            [N_ATOC[lineno, rname, attr_name, rule.n]]]
+          used = true
+        end
+      end
+      unless used
+        pending_error "no rhs symbol have attribute `#{attr_name}'", lineno
+      end
+    end
+  end
+
+  def expand_thread res, thread, rule
+    lineno, excepts  = thread.lineno, thread.excepts.dup
+    thread.targets.each do |syn_name|
+      inh_name = '_' + syn_name
+      from, used = nil, false
+
+      lname  = rule.lhs_name
+      lattrs = @attributes[rule.lhs]
+
+      if lattrs.include?(inh_name)
+        from = N_ATOC[lineno, '$', inh_name, rule.n]
+      end
+      rule.rhs.each_with_index do |rsym, i|
+        rname  = rule.rhs_names[i]
+        rattrs = @attributes[rsym] || []
+
+        if from and rattrs.include? inh_name and
+            not excepts.find{|e| rname == e.sym_name && rattrs.include?(e.attr_name) }
+          res << N_LET[lineno, N_ATOC[lineno, rname, inh_name, rule.n], [from]]
+          used = true
+        end
+        if rattrs.include? syn_name
+          from = N_ATOC[lineno, rname, syn_name, rule.n]
+        end
+      end
+      if from and lattrs.include?(syn_name) and
+          not excepts.find{|e| lname == e.sym_name && lattrs.include?(e.attr_name) }
+        res << N_LET[lineno, N_ATOC[lineno, '$', syn_name, rule.n], [from]]
+        used = true
+      end
+      unless used
+        pending_error "no rhs symbol have attribute `#{syn_name}'", lineno
+      end
+    end
+  end
+
+  def check_lattr
+    @inhs_of_nonterms = []
+    @semantics.each_with_index do |rule_semantics, x|
+      rule     = grammar[x]
+      assigned = {}
+      locals   = @locals[rule.n] = {}
+      rule_semantics.each do |semantic|
+        semantic.is_a? N_LET and check_lattr_let semantic, rule, locals, assigned
+      end
+
+      next if x == 0
+      lineno = rule_semantics.last.lineno rescue 0
+      @attributes[rule.lhs].each do |a|
+        if a[0] != ?_ and not assigned[['$', a]]
+          pending_error "attribute `$.#{a}' is not assigned.", lineno
+        end
+      end
+      rule.rhs.each_with_index do |rsym, y|
+        next unless grammar.nonterm? rsym
+        rname = rule.rhs_names[y]
+        @attributes[rsym].each do |a|
+          if a[0] == ?_ and not assigned[[rname, a]]
+            pending_error "attribute `#{rname}.#{a}' is not assigned.", lineno
+          end
+        end
+      end
+    end
+  end
+
+  def check_lattr_let let, rule, locals, assigned
+    lineno    = let.lineno
+    attr_name = let.atoc.attr_name
+    sym_name  = let.atoc.sym_name
+
+    # left hand side of let
+    unless valid_atoc? let.atoc
+      pending_error "invalid attribute occurrence `#{sym_name}.#{attr_name}'.", lineno
+      return
+    end
+    if    let.atoc.sym_name == '$' and inh_atoc?(let.atoc)
+      pending_error "cannot assign `$.#{attr_name}'(LHS INH).", lineno
+      return
+    elsif let.atoc.sym_name != '$' and syn_atoc?(let.atoc)
+      pending_error "cannot assign `#{sym_name}.#{attr_name}'(RHS SYN).", lineno
+      return
+    end
+    if local_atoc?(let.atoc)
+      if locals[attr_name]
+        warning "local attributes `#{attr_name}' is reassigned.", lineno
+      end
+      locals[attr_name] = 0
+    else
+      if assigned[[sym_name, attr_name]]
+        warning "attributes `#{sym_name}.#{attr_name}' is reassined.", lineno
+      else
+        assigned[[sym_name, attr_name]] = true
+      end
+    end
+
+    # right hand side of let
+    let.expr.find_all{|i| i.is_a? N_ATOC }.each do |expr_atoc|
+      unless valid_atoc? expr_atoc
+        next unless valid_atoc_name? expr_atoc # it is not atoc
+        pending_error "invalid attribute occurrence"<<
+              " `#{expr_atoc.sym_name}.#{expr_atoc.attr_name}'.", lineno
+        next
+      end
+      if    expr_atoc.sym_name == '$' and syn_atoc?(expr_atoc)
+        pending_error "cannot refer `$.#{expr_atoc.attr_name}'(LHS SYN).", lineno
+        next
+      elsif expr_atoc.sym_name != '$' and inh_atoc?(expr_atoc)
+        pending_error "cannot refer `#{expr_atoc.sym_name}." <<
+          "#{expr_atoc.attr_name}'(RHS INH).", lineno
+        next
+      end
+      if local_atoc?(let.atoc)
+        if local_atoc?(expr_atoc)    # local<-local
+          n = locals[expr_atoc.attr_name]
+        elsif syn_atoc?(expr_atoc)   # local<-rsym.syn
+          n = rhs_index(expr_atoc)+1
+        else                         # local<-$.inh
+          n = 0
+        end
+        locals[attr_name] = n if locals[attr_name] < n
+      elsif sym_name != '$' and local_atoc?(expr_atoc) and    # rhs<-local
+          rhs_index(let.atoc) <= locals[expr_atoc.attr_name]
+        pending_error "L-attribute violation.", lineno
+        next
+      elsif sym_name != '$' and expr_atoc.sym_name != '$' and # rhs<-rhs
+          rhs_index(let.atoc) <= rhs_index(expr_atoc)
+        pending_error "L-attribute violation.", lineno
+        next
+      end
+    end
+  end
+
+  def generate_action
+    # Actions on state change.
+    g_parser.table.states.each_with_index do |state, x|
+      actions = [ ]
+      inhs, locals = check_state_uniqueness(state)
+      inhs.each do |key, exprs| ; sym, attr_name = key
+        atoc = N_ATOC[0, "%#{sym}", attr_name]
+        actions << node_to_code(N_LET[0, atoc, exprs], state)
+      end
+      locals.each do |rx, attr_name, exprs|
+        atoc = N_ATOC[0, nil, attr_name, rx]
+        actions << node_to_code(N_LET[0, atoc, exprs], state)
+      end
+      unless actions.empty?
+        @action_code << "def _rie_state_#{x}\n  #{actions.join("\n  ")}\nend\n"
+        @on_state[x] = ":_rie_state_#{x}"
+      end
+    end
+
+    # Actions on reduce
+    @semantics.each_with_index do |rule_semantics, x|
+      actions = [ ]
+      rule = grammar[x]
+      rule_semantics.each do |semantic|
+        if semantic.is_a?(N_LET)
+          next if inh_atoc?(semantic.atoc)
+          next if local_atoc?(semantic.atoc) and not
+            @locals[x].find{|k,v| k == semantic.atoc.attr_name && v == rule.rhs.size }
+        end
+        code = node_to_code(semantic)
+        actions << code
+      end
+      unless actions.empty?
+        @action_code << "def _rie_reduce_#{x}\n  #{actions.join("\n  ")}\nend\n"
+        @on_reduce[x] = ":_rie_reduce_#{x}"
+      end
+    end
+  end
+
+  def node_to_code node, state=nil
+    case node
+    when N_LET
+      node_to_code(node.atoc, state) +" = "+
+        node_to_code(N_ACTION[0, node.expr], state)
+    when N_ACTION
+      node.expr.inject('') do |r, i|
+        r << (i.is_a?(N_ATOC) ? node_to_code(i, state) :
+          i.match(/^\s*[\{\[\(]$/) ? i : " #{i}")
+      end
+    when N_ATOC
+      return " #{node.sym_name}.#{node.attr_name}" unless valid_atoc? node
+      dot = 0
+      if state and item = state.closure.find{|i| i.rule.n == node.rx }
+        dot = item.n
+      elsif node.rx
+        dot = grammar[node.rx].rhs.size
+      end
+      if grammar.term? atoc_to_sym(node)
+        x = rhs_index(node) - dot
+        " _sstack(#{x}).syn.#{node.attr_name}"
+      elsif local_atoc? node
+        x = -dot
+        " _sstack(#{x-1}).local['#{node.attr_name}@#{node.rx}']"
+      elsif inh_atoc? node
+        # NEVER ASN LHS($).INH
+        if node.sym_name =~ /^%/   # ASN RHS.INH
+          x, sym = 0, $'
+        else                       # REF LHS($).INH / RHS.INH
+          x, sym = (rhs_index(node) || 0) - dot, atoc_to_sym(node)
+        end
+        ec = @ecs[[sym, node.attr_name]]
+        " _sstack(#{x-1}).inh['#{ec || sym}.#{node.attr_name}']"
+      else # syn_atoc?
+        # NEVER ASN RHS.SYN
+        if node.sym_name == '$' # ASN/REF LHS($).SYN
+          " @_rie_reduce_syn['#{node.attr_name}']"
+        else                    # REF RHS.SYN
+          x = rhs_index(node) - dot
+          " _sstack(#{x}).syn['#{node.attr_name}']"
+        end
+      end
+    else ; raise "cannot happen(#{node.inspect})."
+    end
+  rescue ; warn node.pretty_inspect ; raise
+  end
+
+  def check_state_uniqueness state
+    inhs, ec_inhs, locals = {}, {}, []
+    state.closure.each do |item|
+      rule = item.rule
+      @semantics[rule.n].each do |let|
+        next if !let.is_a?(N_LET)
+        next if item.n == rule.rhs.size
+        if local_atoc?(let.atoc)
+          @locals[rule.n].find{|k, v| k == let.atoc.attr_name && v == item.n } and
+            locals << [rule.n, let.atoc.attr_name, let.expr]
+          next
+        end
+        next if syn_atoc?(let.atoc) or rhs_index(let.atoc) != item.n
+
+        # ok, atoc is A._inh(B -> alpa _ A beta). set E_state(atoc).
+        attr_name = let.atoc.attr_name
+        sym       = atoc_to_sym(let.atoc)
+        key       = [sym, attr_name]
+        if expr = inhs[key]
+          if expr.size == 1 and expr[0].is_a?(N_ATOC) and
+              atoc_to_sym(expr[0]) == sym and expr[0].attr_name == attr_name
+            # older is self copy, update it.
+            inhs.delete(key)
+            inhs[key] = replace_atoc expr, inhs
+          elsif let.expr.size == 1 and let.expr[0].is_a?(N_ATOC) and
+              atoc_to_sym(let.expr[0]) == sym and let.expr[0].attr_name == attr_name
+            # newer is self copy, skip.
+          elsif not same_semantic? expr, let.expr
+            error_exit "LALR-attribute violation."
+          end
+        else
+          inhs[key] = replace_atoc let.expr, inhs
+        end
+      end
+    end
+
+    # check eclr
+    inhs.each do |k, v|
+      sym, attr_name = k
+      if ec = @ecs[k]
+        key = [ec, attr_name]
+        if ec_inhs[key]
+          unless same_semantic? ec_inhs[key], v
+            error_exit "ECLR-attribute violation."
+          end
+        else
+          ec_inhs[key] = v
+        end
+      else
+        ec_inhs[k] = v
+      end
+    end
+
+    debug_info "\n----------\n#{state}"
+    ec_inhs.each{|k,v| s,a=k;debug_info "#{grammar.symname s}:#{s}.#{a}=>#{v.pretty_inspect}" }
+    locals.each{|x,k,v| debug_info "#{x}.#{k}=>#{v.pretty_inspect}"}
+    return ec_inhs, locals
+  end
+
+  def same_semantic? sa, sb
+    return false unless sa.size == sb.size
+    sa.size.times do |x| a, b = sa[x], sb[x]
+      return false unless a.class == b.class
+      if a.is_a? N_ATOC
+        asym = a.sym_name == '$' ? atoc_to_sym(a) : a.sym_name
+        bsym = b.sym_name == '$' ? atoc_to_sym(b) : b.sym_name
+        asym = @ecs[[asym, a.attr_name]] if @ecs[[asym, a.attr_name]]
+        bsym = @ecs[[bsym, b.attr_name]] if @ecs[[bsym, b.attr_name]]
+        return false unless asym == bsym && a.attr_name == b.attr_name
+      else
+        return false unless a == b
+      end
+    end
+    return true
+  end
+
+  def replace_atoc expr, inhs={}
+    # warn "REPLACE:#{expr.pretty_inspect}"
+    res = []
+    expr and expr.each do |node|
+      if node.is_a? N_ATOC
+        if replace_to = inhs[[atoc_to_sym(node), node.attr_name]]
+          res.concat replace_to
+        else
+          res << node
+        end
+      elsif node.is_a? N_LET or node.is_a? N_ACTION
+        replaced = node.dup
+        replaced.expr = replace_atoc(node.expr, inhs)
+        res << replaced
+      else
+        res << node
+      end
+    end
+    # warn "=====>:#{res.pretty_inspect}"
+    return res
+  end
+
+  def valid_atoc_name? atoc
+    return true if local_atoc?(atoc)
+    return true if atoc.sym_name == '$'
+    return grammar[atoc.rx].rhs_name_to_sym(atoc.sym_name) ? true : false
+  end
+
+  def valid_atoc? atoc
+    return true if local_atoc?(atoc)
+    return true if atoc.sym_name =~ /^[%#]/
+    rule = grammar[atoc.rx]
+    sym  = atoc.sym_name == '$' ? rule.lhs : rule.rhs_name_to_sym(atoc.sym_name)
+    return true if sym and atoc.sym_name =~ /^[A-Z]/ # term(no check)
+    sym and @attributes[sym] and @attributes[sym].include?(atoc.attr_name)
+  rescue ; warn "ATOC?:#{atoc.pretty_inspect}"; false
+  end
+
+  def rhs_index atoc
+    return nil if local_atoc?(atoc)
+    grammar[atoc.rx].rhs_names.index(atoc.sym_name)
+  end
+
+  def atoc_to_sym atoc
+    return nil                  if local_atoc?(atoc)
+    return $1.to_i              if atoc.sym_name =~ /^%(\d+)$/
+    return grammar[atoc.rx].lhs if atoc.sym_name == '$'
+    grammar[atoc.rx].rhs_name_to_sym(atoc.sym_name) rescue nil
+  end
+
+  def local_atoc? atoc
+    atoc.sym_name == nil
+  end
+
+  def inh_atoc? atoc
+    !local_atoc?(atoc) and atoc.attr_name[0] == ?_
+  end
+
+  def syn_atoc? atoc
+    !local_atoc?(atoc) and atoc.attr_name[0] != ?_
+  end
+
+  def pending_error *args
+    @pending_errors ||= []
+    @pending_errors << g_parser.error_message(*args)
+  end
+
+  def error_exit_if_error_pending
+    @pending_errors and error_exit(@pending_errors.join("\n"))
+  end
+
+  def debug_info s
+    Depager.debug_mode? and File.open(@debug_output_path, 'a'){|f| f.write s}
+  end
+
+  def generate_rie_decorator_code on_reduce, on_state, action_code
+    on_reduce_code = on_reduce.map{|i| "            #{i||'nil'},\n"}
+    on_state_code  = on_state.map{|i| "            #{i||'nil'},\n"}
+
+    generate_decorator_code(decorator_name, "#{d_parser.parsing_method}::AdvancedParser", <<-CODE)
+      on_reduce = [\n#{on_reduce_code.join}
+      ]
+      on_state  = [\n#{on_state_code.join}
+      ]
+      Tables = [on_reduce, on_state]
+      RieATTR = Struct.new(:inh, :syn, :local)
+      def initialize inside
+        super inside
+        @on_reduce, @on_state = self.class::Tables
+      end
+      def before_parse
+        after_shift
+      end
+      def after_shift
+        msg = @on_state[stack.last] and send(msg)
+      end
+      def before_reduce
+        stack.last == 0 and after_shift
+        @_rie_reduce_syn = {}
+        mes = @on_reduce[-action_value] and send(mes)
+      end
+      require 'pp'
+      def after_reduce
+        _sstack(-1); stack[-2][decorator_index].syn = @_rie_reduce_syn
+        after_shift
+      end
+      def _sstack n
+        n = n * 2
+        if -n == stack.size + 1
+          @_attr_for_state0 ||= RieATTR[{}, {}, {}]
+        else
+          stack[n][decorator_index] ||= RieATTR[{}, stack[n][1] == :NT ? {} : stack[n][1], {}]
+        end
+      rescue
+        warn "N:\#{n}"
+        raise
+      end
+      \n#{action_code}
+    CODE
+  end
+
+DEPAGER_EXPANDED_CODE
+
+end
+
+###
+### Depager::RieExtension::PostLhs0 - Part of Depager Extension (slave)
+###
+
+module Depager::RieExtension::PostLhs0 #:nodoc:all
+  class Parser < Depager::LALR::Basis #:nodoc:all
+    include Depager::Utils::ExtensionSlaveMethods
+
+    ### Reduce Table
+    REDUCE_TABLE = [
+      [ -1, 1 ],
+      [ 0, 3 ],
+      [ 1, 1 ],
+      [ 1, 3 ],
+      [ 2, 1 ],
+      [ 2, 3 ],
+    ]
+    def reduce_table; REDUCE_TABLE; end
+
+    ### Term to Int
+    TERM_TO_INT = {
+      nil => 0,
+      false => 1,
+      "[" => 2,
+      "]" => 3,
+      "," => 4,
+      :ID => 5,
+      ":" => 6,
+    }
+    def term_to_int; TERM_TO_INT; end
+
+    ### Int to Term
+    INT_TO_TERM = [
+      nil,
+      false,
+      "[",
+      "]",
+      ",",
+      :ID,
+      ":",
+    ]
+    def int_to_term; INT_TO_TERM; end
+
+    ### Action Table
+    ACTION_TABLE = [
+      [ nil, nil, 2, nil, nil, nil, nil, ],
+      [ ACC, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 5, nil, ],
+      [ nil, nil, nil, 6, 7, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, 8, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 5, nil, ],
+      [ nil, nil, nil, nil, nil, 10, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+    ]
+    def action_table; ACTION_TABLE; end
+
+    ### Default Reduce Table
+    DEFRED_TABLE = [
+      nil,
+      nil,
+      nil,
+      nil,
+      -2,
+      -4,
+      -1,
+      nil,
+      nil,
+      -3,
+      -5,
+    ]
+    def defred_table; DEFRED_TABLE; end
+
+    DEFRED_AFTER_SHIFT_TABLE = [
+      nil,
+      nil,
+      nil,
+      nil,
+      -2,
+      nil,
+      -1,
+      nil,
+      nil,
+      -3,
+      -5,
+    ]
+    def defred_after_shift_table; DEFRED_AFTER_SHIFT_TABLE; end
+
+    ### Nonterm to Int
+    NONTERM_TO_INT = {
+      :start => 0,
+      :attr_list => 1,
+      :attr => 2,
+    }
+    def nonterm_to_int; NONTERM_TO_INT; end
+
+    ### Int to Nonterm
+    INT_TO_NONTERM = [
+      :start,
+      :attr_list,
+      :attr,
+    ]
+    def int_to_nonterm; INT_TO_NONTERM; end
+
+    ### Goto Table
+    GOTO_TABLE = [
+      [ 1, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, 3, 4, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, 9, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+    ]
+    def goto_table; GOTO_TABLE; end
+
+    def initialize g_parser, master
+      super()
+      @g_parser  = g_parser
+      @d_parser  = g_parser.d_parser
+      @master    = master
+      @decorated = Action.new(self)
+    end
+
+    
+    def do_parse?
+      if @line.match(/^\s*\[/)
+        
+        true
+      else
+        false
+      end
+    end
+    
+
+    def banner
+      "[...] / Depager::RieExtension"
+    end
+
+def lex
+  begin
+    until @line.empty?
+      case @line
+          when /\A\s+/
+            @line = $'
+                 
+
+          when /\A[a-zA-Z_]\w*/
+            @line = $'
+                 yield token(:ID, $&) 
+
+          when /\A\]/
+            @line = $'
+                 yield token(']'); yield token(nil) 
+
+          when /\A./
+            @line = $'
+                 yield token($&) 
+
+
+      else
+        raise RuntimeError, "must not happen #{@line}"
+      end
+    end
+  end while @original_line = @line = file.gets
+  yield nil, nil
+end
+module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 525
+  def do_default
+    master.attributes[g_parser.lhs] = []
+  end
+
+DEPAGER_EXPANDED_CODE
+
+  end
+end
+
+class Depager::RieExtension::PostLhs0::Action < Depager::LALR::Action #:nodoc:all
+  include Depager::Utils::ExtensionSlaveDecoratorMethods
+ON_REDUCE = [
+              nil,
+            :_act_1,
+            :_act_2,
+            :_act_3,
+            :_act_4,
+            :_act_5,
+
+]
+def on_reduce; ON_REDUCE; end
+
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 536
+def _act_1 val
+    _, _attr_list, _, = *val
+     master.attributes[g_parser.lhs] = _attr_list 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 539
+def _act_2 val
+    _attr, = *val
+     [ _attr ] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 541
+def _act_3 val
+    _attr_list, _, _attr, = *val
+
+        if _attr_list.include? _attr
+          warning "attribute `#{_attr}' reappeared."
+          _attr_list
+        else
+          _attr_list << _attr
+        end
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 551
+def _act_4 val
+    _ID, = *val
+     _ID.value 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 553
+def _act_5 val
+    _ID, _, _ec, = *val
+
+        unless _ID.value[0] == ?_
+          error_exit "EC must be inherited attribute.", _ec.lineno
+        else
+          master.ecs[[g_parser.lhs, _ID.value]] = _ec.value
+        end
+        _ID.value
+
+end
+DEPAGER_EXPANDED_CODE
+
+
+end
+
+###
+### Depager::RieExtension::PostRhs1 - Part of Depager Extension (slave)
+###
+
+module Depager::RieExtension::PostRhs1 #:nodoc:all
+  class Parser < Depager::LALR::Basis #:nodoc:all
+    include Depager::Utils::ExtensionSlaveMethods
+
+    ### Reduce Table
+    REDUCE_TABLE = [
+      [ -1, 1 ],
+      [ 0, 3 ],
+      [ 1, 1 ],
+      [ 1, 3 ],
+      [ 2, 0 ],
+      [ 2, 2 ],
+      [ 2, 2 ],
+      [ 2, 2 ],
+      [ 2, 4 ],
+      [ 2, 3 ],
+      [ 2, 3 ],
+      [ 2, 3 ],
+      [ 2, 1 ],
+      [ 7, 1 ],
+      [ 7, 2 ],
+      [ 7, 3 ],
+      [ 6, 1 ],
+      [ 6, 2 ],
+      [ 8, 1 ],
+      [ 8, 1 ],
+      [ 8, 1 ],
+      [ 8, 1 ],
+      [ 8, 1 ],
+      [ 8, 1 ],
+      [ 8, 2 ],
+      [ 8, 3 ],
+      [ 8, 2 ],
+      [ 8, 3 ],
+      [ 8, 2 ],
+      [ 8, 3 ],
+      [ 4, 1 ],
+      [ 4, 3 ],
+      [ 5, 3 ],
+      [ 3, 1 ],
+      [ 3, 3 ],
+    ]
+    def reduce_table; REDUCE_TABLE; end
+
+    ### Term to Int
+    TERM_TO_INT = {
+      nil => 0,
+      false => 1,
+      "{" => 2,
+      "}" => 3,
+      ";" => 4,
+      :THREAD => 5,
+      :TRANSFER => 6,
+      :EXCEPT => 7,
+      "=" => 8,
+      :LID => 9,
+      :ID => 10,
+      :RBTOKEN => 11,
+      "." => 12,
+      "," => 13,
+      "[" => 14,
+      "]" => 15,
+      "(" => 16,
+      ")" => 17,
+    }
+    def term_to_int; TERM_TO_INT; end
+
+    ### Int to Term
+    INT_TO_TERM = [
+      nil,
+      false,
+      "{",
+      "}",
+      ";",
+      :THREAD,
+      :TRANSFER,
+      :EXCEPT,
+      "=",
+      :LID,
+      :ID,
+      :RBTOKEN,
+      ".",
+      ",",
+      "[",
+      "]",
+      "(",
+      ")",
+    ]
+    def int_to_term; INT_TO_TERM; end
+
+    ### Action Table
+    ACTION_TABLE = [
+      [ nil, nil, 2, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ ACC, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 17, nil, nil, 5, 6, 7, nil, 9, 10, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, nil, 19, 20, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, 27, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, 28, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, 29, nil, nil, nil, 30, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, 35, 18, nil, ],
+      [ nil, nil, 17, 38, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, 40, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 17, nil, nil, 5, 6, 7, nil, 9, 10, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 43, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 43, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, 45, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 30, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 49, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 30, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, 50, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 51, nil, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, 52, 50, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, 50, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 53, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 54, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+      [ nil, nil, 17, nil, nil, nil, nil, nil, nil, 34, 33, 13, 14, 15, 16, nil, 18, nil, ],
+    ]
+    def action_table; ACTION_TABLE; end
+
+    ### Default Reduce Table
+    DEFRED_TABLE = [
+      nil,
+      nil,
+      -4,
+      nil,
+      -2,
+      nil,
+      nil,
+      nil,
+      -18,
+      -20,
+      -19,
+      -12,
+      -16,
+      -21,
+      -22,
+      -23,
+      nil,
+      nil,
+      nil,
+      -1,
+      -4,
+      -5,
+      -33,
+      -6,
+      -7,
+      -30,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      -17,
+      -18,
+      -19,
+      -20,
+      -24,
+      nil,
+      -13,
+      -26,
+      nil,
+      -28,
+      nil,
+      -3,
+      nil,
+      nil,
+      nil,
+      -9,
+      -10,
+      -11,
+      -32,
+      -14,
+      -25,
+      -27,
+      -29,
+      -34,
+      -31,
+      -8,
+      -15,
+    ]
+    def defred_table; DEFRED_TABLE; end
+
+    DEFRED_AFTER_SHIFT_TABLE = [
+      nil,
+      nil,
+      nil,
+      nil,
+      -2,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      -16,
+      -21,
+      -22,
+      -23,
+      nil,
+      nil,
+      nil,
+      -1,
+      nil,
+      nil,
+      -33,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      -17,
+      -18,
+      nil,
+      -20,
+      -24,
+      nil,
+      nil,
+      -26,
+      nil,
+      -28,
+      nil,
+      -3,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      -32,
+      nil,
+      -25,
+      -27,
+      -29,
+      -34,
+      -31,
+      nil,
+      nil,
+    ]
+    def defred_after_shift_table; DEFRED_AFTER_SHIFT_TABLE; end
+
+    ### Nonterm to Int
+    NONTERM_TO_INT = {
+      :start => 0,
+      :stmt_list => 1,
+      :stmt => 2,
+      :id_list => 3,
+      :lhs_list => 4,
+      :lhs => 5,
+      :rbexpr => 6,
+      :rbexpr_list => 7,
+      :rbelem => 8,
+    }
+    def nonterm_to_int; NONTERM_TO_INT; end
+
+    ### Int to Nonterm
+    INT_TO_NONTERM = [
+      :start,
+      :stmt_list,
+      :stmt,
+      :id_list,
+      :lhs_list,
+      :lhs,
+      :rbexpr,
+      :rbexpr_list,
+      :rbelem,
+    ]
+    def int_to_nonterm; INT_TO_NONTERM; end
+
+    ### Goto Table
+    GOTO_TABLE = [
+      [ 1, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, 3, 4, nil, nil, 8, 11, nil, 12, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, 21, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, 23, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, 24, 25, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 32, nil, nil, 31, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 32, 37, 36, 12, ],
+      [ nil, nil, nil, nil, nil, 32, 37, 39, 12, ],
+      [ nil, nil, nil, nil, nil, 32, 37, 41, 12, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 42, nil, nil, 8, 11, nil, 12, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 32, 46, nil, 12, ],
+      [ nil, nil, nil, nil, nil, 32, 47, nil, 12, ],
+      [ nil, nil, nil, nil, nil, 32, 48, nil, 12, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 32, nil, nil, 31, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 55, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 32, 56, nil, 12, ],
+      [ nil, nil, nil, nil, nil, 32, nil, nil, 31, ],
+      [ nil, nil, nil, nil, nil, 32, nil, nil, 31, ],
+      [ nil, nil, nil, nil, nil, 32, nil, nil, 31, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 32, 57, nil, 12, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 32, nil, nil, 31, ],
+      [ nil, nil, nil, nil, nil, 32, nil, nil, 31, ],
+    ]
+    def goto_table; GOTO_TABLE; end
+
+    def initialize g_parser, master
+      super()
+      @g_parser  = g_parser
+      @d_parser  = g_parser.d_parser
+      @master    = master
+      @decorated = Action.new(self)
+    end
+
+    
+    def do_parse?
+      if @line.match(/^\s*\{/)
+        
+        true
+      else
+        false
+      end
+    end
+    
+
+    def banner
+      "{...} / Depager::RieExtension"
+    end
+
+def lex
+  begin
+    until @line.empty?
+      case @line
+          when /\A#.*/
+            @line = $'
+                 
+
+          when /\A[ \t]+/
+            @line = $'
+                 
+
+          when /\A\r?\n/
+            @line = $'
+                 yield token(';') 
+
+          when /\A\s*\(/
+            @line = $'
+                 yield token('(', $&) ; skip_space 
+
+          when /\A\s*\[/
+            @line = $'
+                 yield token('[', $&) ; skip_space 
+
+          when /\A\s*\{/
+            @line = $'
+                 yield token('{', $&) ; skip_space ; @nest +=1 
+
+          when /\A\}/
+            @line = $'
+                 yield token('}'); (@nest-=1) == 0 and yield token(nil) 
+
+          when /\A\./
+            @line = $'
+                 yield token('.') ; @_mode = :AFTER_DOT 
+
+          when /\A,/
+            @line = $'
+                 yield token(','); @line.match(/[\s\n]*/) and @line = $' 
+
+          when /\A%transfer/
+            @line = $'
+                 yield token(:TRANSFER) 
+
+          when /\A%thread/
+            @line = $'
+                 yield token(:THREAD) 
+
+          when /\A%except/
+            @line = $'
+                 yield token(:EXCEPT) 
+
+          when /\A\$\./
+            @line = $'
+                 yield token(:ID, '$'); yield token('.') ; @_mode = :AFTER_DOT 
+
+          when /\A'([^'\\]+|\\.)*'/, /\A"([^"\\]+|\\.)*"/, /\A\/([^\/\\]+|\\.)*\//, /\A(@|$|:)[a-zA-Z_]\w*/, /\A[a-zA-Z_]\w*[!?]/, /\A\d+/
+            @line = $'
+                 yield token(:RBTOKEN, $&) 
+
+          when /\A(<=|>=|=>|==|===|!=|and|or)/, /\A([+!~*\-\/%^<>&|?:]+|\.\.\.?)/
+            @line = $'
+                 yield token(:RBTOKEN, $&) ; skip_space 
+
+          when /\A=/
+            @line = $'
+                 yield token('=') ; skip_space 
+
+          when /\A[a-zA-Z_]\w*/
+            @line = $'
+            
+    if @_mode != :AFTER_DOT and @locals[$&]
+      yield token(:LID, $&)
+    else
+      @_mode = nil
+      yield token(:ID, $&)
+    end
+
+          when /\A./
+            @line = $'
+                 yield token($&) 
+
+
+      else
+        raise RuntimeError, "must not happen #{@line}"
+      end
+    end
+  end while @original_line = @line = file.gets
+  yield nil, nil
+end
+module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 569
+  attr_accessor :locals
+  def before_parse
+    @nest = 0
+    @locals = {}
+  end
+  def do_default
+    master.semantics[g_parser.rules.size-1] = []
+  end
+  def skip_space
+    begin
+      @line.match(/^[\s\n]+(#[.\n]*)?/) and @line = $'
+      break unless @line.empty?
+    end while @original_line = @line = getline
+  end
+  def getline
+    begin ; line = @file.gets
+    end while line and line =~ /^\s*(#.*)?$/
+    line
+  end
+
+DEPAGER_EXPANDED_CODE
+
+  end
+end
+
+class Depager::RieExtension::PostRhs1::Action < Depager::LALR::Action #:nodoc:all
+  include Depager::Utils::ExtensionSlaveDecoratorMethods
+ON_REDUCE = [
+              nil,
+            :_act_1,
+            :_act_2,
+            :_act_3,
+            :_act_4,
+            :_act_5,
+            :_act_6,
+            :_act_7,
+            :_act_8,
+            :_act_9,
+            :_act_10,
+            :_act_11,
+            :_act_12,
+            :_act_13,
+            :_act_14,
+            :_act_15,
+            :_act_16,
+            :_act_17,
+            :_act_18,
+            :_act_19,
+            :_act_20,
+            :_act_21,
+            :_act_22,
+            :_act_23,
+            :_act_24,
+            :_act_25,
+            :_act_26,
+            :_act_27,
+            :_act_28,
+            :_act_29,
+            :_act_30,
+            :_act_31,
+            :_act_32,
+            :_act_33,
+            :_act_34,
+
+]
+def on_reduce; ON_REDUCE; end
+
+  include Depager::RieExtension::Nodes
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 633
+def _act_1 val
+    _, _stmt_list, _, = *val
+
+        basis.locals.clear
+        master.semantics[g_parser.rules.size-1] = _stmt_list.compact
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 642
+def _act_2 val
+    _stmt, = *val
+
+        if _stmt.is_a? N_EXCEPT
+          error_exit "invalid %except.", _stmt.lineno
+        end
+        [ _stmt ]
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 649
+def _act_3 val
+    _stmt_list, _, _stmt, = *val
+
+        if _stmt.is_a? N_EXCEPT
+          unless [N_THREAD, N_TRANSFER].include?(_stmt_list.last.class)
+            error_exit "invalid %except.", _stmt.lineno
+          end
+          let_or_ids = _stmt.let_or_ids
+          if let_or_ids.is_a? N_LET
+            _stmt_list.last.excepts << let_or_ids.atoc
+            _stmt_list.insert(_stmt_list.size-1, let_or_ids)
+          else
+            _stmt_list.last.excepts.concat(let_or_ids)
+            _stmt_list
+          end
+        else
+          _stmt ? (_stmt_list << _stmt) : _stmt_list
+        end
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 668
+def _act_4 val
+    # empty rule
+     nil 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 669
+def _act_5 val
+    _THREAD, _id_list, = *val
+     N_THREAD[val[0].lineno, _id_list, []] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 670
+def _act_6 val
+    _TRANSFER, _id_list, = *val
+     N_TRANSFER[val[0].lineno, _id_list, []] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 671
+def _act_7 val
+    _EXCEPT, _lhs_list, = *val
+     N_EXCEPT[val[0].lineno, lhs_list] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 672
+def _act_8 val
+    _EXCEPT, _lhs, _, _rbexpr, = *val
+     N_EXCEPT[val[0].lineno, N_LET[_lhs.lineno, _lhs, _rbexpr]]
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 673
+def _act_9 val
+    _lhs, _, _rbexpr, = *val
+     N_LET[_lhs.lineno, _lhs, _rbexpr] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 675
+def _act_10 val
+    _LID, _, _rbexpr, = *val
+
+        N_LET[val[0].lineno, N_ATOC[val[0].lineno, nil, _LID.value, g_parser.rules.size-1], _rbexpr]
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 679
+def _act_11 val
+    _ID, _, _rbexpr, = *val
+
+        basis.locals[_ID.value] = true
+        N_LET[val[0].lineno, N_ATOC[val[0].lineno, nil, _ID.value, g_parser.rules.size-1], _rbexpr]
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 683
+def _act_12 val
+    _rbexpr, = *val
+     N_ACTION[basis.file.lineno, _rbexpr ] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 687
+def _act_13 val
+    _rbexpr, = *val
+     _rbexpr 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 688
+def _act_14 val
+    _rbexpr_list, _, = *val
+     _rbexpr_list 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 689
+def _act_15 val
+    _rbexpr_list, _, _rbexpr, = *val
+     (_rbexpr_list << ';').concat _rbexpr
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 692
+def _act_16 val
+    _rbelem, = *val
+     _rbelem 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 693
+def _act_17 val
+    _rbexpr, _rbelem, = *val
+     _rbexpr.concat _rbelem 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 696
+def _act_18 val
+    _lhs, = *val
+     [_lhs] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 697
+def _act_19 val
+    _ID, = *val
+     [_ID.value] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 698
+def _act_20 val
+    _LID, = *val
+     [ N_ATOC[_LID.lineno, nil, _LID.value, g_parser.rules.size-1] ] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 699
+def _act_21 val
+    _RBTOKEN, = *val
+     [_RBTOKEN.value] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 700
+def _act_22 val
+    _, = *val
+     ['.'] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 701
+def _act_23 val
+    _, = *val
+     [','] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 702
+def _act_24 val
+    _, _, = *val
+     [ val[0].value, ']' ] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 703
+def _act_25 val
+    _, _rbexpr_list, _, = *val
+     [ val[0].value ].concat(_rbexpr_list) << ']' 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 704
+def _act_26 val
+    _, _, = *val
+     [ val[0].value, '}' ]
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 705
+def _act_27 val
+    _, _rbexpr_list, _, = *val
+     [ val[0].value ].concat(_rbexpr_list) << '}' 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 706
+def _act_28 val
+    _, _, = *val
+     [ val[0].value, ')' ]
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 707
+def _act_29 val
+    _, _rbexpr_list, _, = *val
+     [ val[0].value ].concat(_rbexpr_list) << ')' 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 712
+def _act_30 val
+    _lhs, = *val
+     [ _lhs ]
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 713
+def _act_31 val
+    _lhs_list, _, _lhs, = *val
+     lhs_list << lhs 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 716
+def _act_32 val
+    _ID, _, _attr, = *val
+     N_ATOC[_ID.lineno, _ID.value, _attr.value, g_parser.rules.size-1] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 719
+def _act_33 val
+    _ID, = *val
+     [ _ID.value ] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/rie.dr', 720
+def _act_34 val
+    _id_list, _, _ID, = *val
+     _id_list << _ID.value 
+
+end
+DEPAGER_EXPANDED_CODE
+
+
+end
+
+