packcr 0.0.3 → 0.0.4

data/lib/packcr/parser.rb

@@ -0,0 +1,4292 @@
+# A packrat parser generated by PackCR 0.0.4
+
+class Packcr::Parser
+  def initialize(debug: false)
+    @buffer = +""
+
+    @pos = 0
+    @cur = 0
+    @level = 0
+    @lrstack = []
+    @thunks = []
+    @lrtable = LrTable.new
+    @debug = debug
+    @pos_loc = Location.new
+    @cur_loc = Location.new
+    @location = []
+    @lsource = []
+    @init = []
+    @utf8 = true
+    @ascii = false
+    @lang = :rb
+    @rules = []
+    @rulehash = {}
+  end
+
+  def debug
+    yield if @debug
+  end
+
+  def refill_buffer(num, mode = nil)
+    len = @buffer.length
+    if len >= @cur + num
+      return len - @cur
+    end
+    while len < @cur + num
+      c = $stdin.getc
+      break if !c
+      @buffer << c
+      len = @buffer.length
+    end
+    return len - @cur
+  end
+
+  def commit_buffer
+    @buffer = @buffer[@cur, @buffer.length - @cur]
+    @pos += @cur
+    @lrtable.shift(@cur)
+    @cur = 0
+    @pos_loc = @pos_loc + @cur_loc
+    @cur_loc = Location.new
+  end
+
+  def parse
+    if apply_rule(:evaluate_rule_statement, @thunks, nil, 0)
+      do_action(@thunks, nil, 0)
+    else
+      raise SyntaxError, "can't parse"
+    end
+    commit_buffer
+    @thunks.clear
+    refill_buffer(1) >= 1
+  end
+
+  def run
+    nil while parse
+  end
+
+  def action_statement_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    @errnum += 1; warn "err #{__0.inspect} #{__0sl.linenum}, #{__0sl.charnum}"
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_include_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    blocks = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    blocks.each { |b| @esource  << Packcr::CodeBlock.new(b, Packcr.find_trailing_blanks(b), __0sl.linenum, __0sl.charnum) }
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_include_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    blocks = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    blocks.each { |b| @ecommon  << Packcr::CodeBlock.new(b, Packcr.find_trailing_blanks(b), __0sl.linenum, __0sl.charnum) }
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_include_2(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    blocks = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    blocks.each { |b| @source   << Packcr::CodeBlock.new(b, Packcr.find_trailing_blanks(b), __0sl.linenum, __0sl.charnum) }
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_include_3(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    blocks = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    blocks.each { |b| @lheader  << Packcr::CodeBlock.new(b, Packcr.find_trailing_blanks(b), __0sl.linenum, __0sl.charnum) }
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_include_4(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    blocks = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    blocks.each { |b| @lsource  << Packcr::CodeBlock.new(b, Packcr.find_trailing_blanks(b), __0sl.linenum, __0sl.charnum) }
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_include_5(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    blocks = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    blocks.each { |b| @header   << Packcr::CodeBlock.new(b, Packcr.find_trailing_blanks(b), __0sl.linenum, __0sl.charnum) }
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_include_6(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    blocks = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    blocks.each { |b| @common   << Packcr::CodeBlock.new(b, Packcr.find_trailing_blanks(b), __0sl.linenum, __0sl.charnum) }
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_include_7(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    blocks = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    blocks.each { |b| @location << Packcr::CodeBlock.new(b, Packcr.find_trailing_blanks(b), __0sl.linenum, __0sl.charnum) }
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_include_8(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    blocks = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    blocks.each { |b| @init     << Packcr::CodeBlock.new(b, Packcr.find_trailing_blanks(b), __0sl.linenum, __0sl.charnum) }
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_code_blocks_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    blocks = (__pcc_in.value_refs[0]  ||= Value.new).value
+    block = (__pcc_in.value_refs[1]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    blocks.push(block) if block; ____ = blocks
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_code_blocks_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    block = (__pcc_in.value_refs[1]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = block ? [block] : []
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_string_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    str = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    @value_type = str
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_string_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    str = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    @auxil_type = str
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_directive_string_2(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    str = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    @prefix = str
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_rule_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    name = (__pcc_in.value_refs[0]  ||= Value.new).value
+    expr = (__pcc_in.value_refs[1]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    rule =  Packcr::Node::RuleNode.new(expr, name, __0sl.linenum, __0sl.charnum)
+    @rules << rule
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_expression_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    expr = (__pcc_in.value_refs[0]  ||= Value.new).value
+    seq = (__pcc_in.value_refs[1]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = expr.alt(seq)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_expression_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    seq = (__pcc_in.value_refs[1]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = seq
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_sequence_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    seq = (__pcc_in.value_refs[0]  ||= Value.new).value
+    expr = (__pcc_in.value_refs[1]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = seq.seq(expr)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_sequence_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    expr = (__pcc_in.value_refs[1]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = expr
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_term_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    expr = (__pcc_in.value_refs[0]  ||= Value.new).value
+    code = (__pcc_in.value_refs[1]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::ErrorNode.new(expr, Packcr::CodeBlock.new(code, Packcr.find_trailing_blanks(code), __0sl.linenum, __0sl.charnum))
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_term_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    expr = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = expr
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_pred_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    node = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::PredicateNode.new(node)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_pred_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    node = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::PredicateNode.new(node, true)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_pred_2(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    node = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = node
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_quantity_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    node = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::QuantityNode.new(node, 0, -1)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_quantity_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    node = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::QuantityNode.new(node, 1, -1)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_quantity_2(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    node = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::QuantityNode.new(node, 0, 1)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_quantity_3(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    node = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = node
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_primary_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    var_name = (__pcc_in.value_refs[0]  ||= Value.new).value
+    name = (__pcc_in.value_refs[1]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::ReferenceNode.new(name, var_name, __0sl.linenum, __0sl.charnum)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_primary_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    name = (__pcc_in.value_refs[1]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::ReferenceNode.new(name, nil, __0sl.linenum, __0sl.charnum)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_primary_2(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    expr = (__pcc_in.value_refs[2]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = expr
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_primary_3(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    expr = (__pcc_in.value_refs[2]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::CaptureNode.new(expr)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_primary_4(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    __1 = __pcc_in.capts[0].capture_string(@buffer)
+    __1s = @pos + __pcc_in.capts[0].range_start
+    __1e = @pos + __pcc_in.capts[0].range_end
+    __1sl = @pos_loc + __pcc_in.capts[0].start_loc
+    __1el = @pos_loc + __pcc_in.capts[0].end_loc
+    ____ = Packcr::Node::ExpandNode.new(__1.to_i - 1)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_primary_5(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::CharclassNode.new
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_primary_6(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    str = (__pcc_in.value_refs[3]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::CharclassNode.new(Packcr.unescape_string(str, true))
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_primary_7(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    str = (__pcc_in.value_refs[3]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::StringNode.new(Packcr.unescape_string(str, false))
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_primary_8(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    str = (__pcc_in.value_refs[3]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::StringNode.new(Packcr.unescape_string(str, false))
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_primary_9(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    code = (__pcc_in.value_refs[4]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = Packcr::Node::ActionNode.new(Packcr::CodeBlock.new(code, Packcr.find_trailing_blanks(code), __0sl.linenum, __0sl.charnum))
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_character_class_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    __1 = __pcc_in.capts[0].capture_string(@buffer)
+    __1s = @pos + __pcc_in.capts[0].range_start
+    __1e = @pos + __pcc_in.capts[0].range_end
+    __1sl = @pos_loc + __pcc_in.capts[0].start_loc
+    __1el = @pos_loc + __pcc_in.capts[0].end_loc
+    ____ = __1
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_lang_code_block_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    code = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = code
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_lang_code_block_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    code = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    __1 = __pcc_in.capts[0].capture_string(@buffer)
+    __1s = @pos + __pcc_in.capts[0].range_start
+    __1e = @pos + __pcc_in.capts[0].range_end
+    __1sl = @pos_loc + __pcc_in.capts[0].start_loc
+    __1el = @pos_loc + __pcc_in.capts[0].end_loc
+    ____ = @lang == __1.to_sym ? code : nil
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_code_block_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    code = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = code
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_code_block_1(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    code = (__pcc_in.value_refs[0]  ||= Value.new).value
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = code.gsub("$", @lang == :rb ? "__" : "_")
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_plain_code_block_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    __1 = __pcc_in.capts[0].capture_string(@buffer)
+    __1s = @pos + __pcc_in.capts[0].range_start
+    __1e = @pos + __pcc_in.capts[0].range_end
+    __1sl = @pos_loc + __pcc_in.capts[0].start_loc
+    __1el = @pos_loc + __pcc_in.capts[0].end_loc
+    ____ = __1
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_quotation_single_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    __1 = __pcc_in.capts[0].capture_string(@buffer)
+    __1s = @pos + __pcc_in.capts[0].range_start
+    __1e = @pos + __pcc_in.capts[0].range_end
+    __1sl = @pos_loc + __pcc_in.capts[0].start_loc
+    __1el = @pos_loc + __pcc_in.capts[0].end_loc
+    ____ = __1
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_quotation_double_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    __1 = __pcc_in.capts[0].capture_string(@buffer)
+    __1s = @pos + __pcc_in.capts[0].range_start
+    __1e = @pos + __pcc_in.capts[0].range_end
+    __1sl = @pos_loc + __pcc_in.capts[0].start_loc
+    __1el = @pos_loc + __pcc_in.capts[0].end_loc
+    ____ = __1
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_identifier_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    ____ = __0
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def action_footer_0(__pcc_in, __pcc_vars, __pcc_index)
+    ____ = (__pcc_vars[__pcc_index] ||= Value.new).value if __pcc_vars
+    __0 = __pcc_in.capt0.capture_string(@buffer)
+    __0s = @pos + __pcc_in.capt0.range_start
+    __0e = @pos + __pcc_in.capt0.range_end
+    __0sl = @pos_loc + __pcc_in.capt0.start_loc
+    __0el = @pos_loc + __pcc_in.capt0.end_loc
+    __1 = __pcc_in.capts[0].capture_string(@buffer)
+    __1s = @pos + __pcc_in.capts[0].range_start
+    __1e = @pos + __pcc_in.capts[0].range_end
+    __1sl = @pos_loc + __pcc_in.capts[0].start_loc
+    __1el = @pos_loc + __pcc_in.capts[0].end_loc
+    @lsource << Packcr::CodeBlock.new(__1, Packcr.find_trailing_blanks(__1), __1sl.linenum, __1sl.charnum)
+
+    __pcc_vars[__pcc_index].value = ____ if __pcc_vars
+  end
+
+  def evaluate_rule_statement
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    statement #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if !apply_rule(:evaluate_rule_comment, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if !apply_rule(:evaluate_rule_spaces, chunk.thunks, nil, 0)
+            throw(3)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(4) do
+          if !apply_rule(:evaluate_rule_directive_include, chunk.thunks, nil, 0)
+            throw(4)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(5) do
+          if !apply_rule(:evaluate_rule_directive_string, chunk.thunks, nil, 0)
+            throw(5)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(6) do
+          if !apply_rule(:evaluate_rule_rule, chunk.thunks, nil, 0)
+            throw(6)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(7) do
+          if !apply_rule(:evaluate_rule_footer, chunk.thunks, nil, 0)
+            throw(7)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(8) do
+          1.times do |;p0, p0_loc, n0, i|
+            i = -1
+            loop do |;pos, p_loc, n, stat|
+              i += 1
+              pos = @cur
+              p_loc = @cur_loc
+              n = chunk.thunks.length
+              stat = nil
+              catch(9) do
+                1.times do |;u, n|
+                  if refill_buffer(1) < 1
+                    throw(9)
+                  end
+                  u = @buffer[@cur]
+                  if (
+                    u == "\n"
+                  )
+                    throw(9)
+                  end
+                  @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                  @cur += 1
+                end
+                if @cur == pos
+                  stat = :break
+                else
+                  stat = :continue
+                end
+              end
+              if stat == :break
+                break
+              elsif stat != :continue
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                break
+              end
+            end
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_statement_0)
+            capt0 = thunk.capt0
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+        end
+      end
+      debug { warn "#{ "  " * @level}MATCH   statement #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+  end
+
+  def evaluate_rule_comment
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    comment #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    catch(0) do
+      if (
+        refill_buffer(1) < 1 ||
+        @buffer[@cur] != "#"
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+      @cur += 1
+      1.times do |;p0, p0_loc, n0, i|
+        i = -1
+        loop do |;pos, p_loc, n, stat|
+          i += 1
+          pos = @cur
+          p_loc = @cur_loc
+          n = chunk.thunks.length
+          stat = nil
+          catch(1) do
+            1.times do |;u, n|
+              if refill_buffer(1) < 1
+                throw(1)
+              end
+              u = @buffer[@cur]
+              if (
+                u == "\n"
+              )
+                throw(1)
+              end
+              @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+              @cur += 1
+            end
+            if @cur == pos
+              stat = :break
+            else
+              stat = :continue
+            end
+          end
+          if stat == :break
+            break
+          elsif stat != :continue
+            @cur = pos
+            @cur_loc = p_loc
+            chunk.thunks[n..-1] = []
+            break
+          end
+        end
+      end
+      if !apply_rule(:evaluate_rule_lf, chunk.thunks, nil, 0)
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   comment #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH comment #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_directive_include
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    directive_include #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if (
+            refill_buffer(12) < 12 ||
+            @buffer[@cur, 12] != "%earlysource"
+          )
+            throw(2)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 12)
+          @cur += 12
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_code_blocks, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_include_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if (
+            refill_buffer(12) < 12 ||
+            @buffer[@cur, 12] != "%earlycommon"
+          )
+            throw(3)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 12)
+          @cur += 12
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(3)
+          end
+          if !apply_rule(:evaluate_rule_code_blocks, chunk.thunks, chunk.values, 0)
+            throw(3)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_include_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(4) do
+          if (
+            refill_buffer(7) < 7 ||
+            @buffer[@cur, 7] != "%source"
+          )
+            throw(4)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 7)
+          @cur += 7
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(4)
+          end
+          if !apply_rule(:evaluate_rule_code_blocks, chunk.thunks, chunk.values, 0)
+            throw(4)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_include_2)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(5) do
+          if (
+            refill_buffer(11) < 11 ||
+            @buffer[@cur, 11] != "%lateheader"
+          )
+            throw(5)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 11)
+          @cur += 11
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(5)
+          end
+          if !apply_rule(:evaluate_rule_code_blocks, chunk.thunks, chunk.values, 0)
+            throw(5)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_include_3)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(6) do
+          if (
+            refill_buffer(11) < 11 ||
+            @buffer[@cur, 11] != "%latesource"
+          )
+            throw(6)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 11)
+          @cur += 11
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(6)
+          end
+          if !apply_rule(:evaluate_rule_code_blocks, chunk.thunks, chunk.values, 0)
+            throw(6)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_include_4)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(7) do
+          if (
+            refill_buffer(7) < 7 ||
+            @buffer[@cur, 7] != "%header"
+          )
+            throw(7)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 7)
+          @cur += 7
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(7)
+          end
+          if !apply_rule(:evaluate_rule_code_blocks, chunk.thunks, chunk.values, 0)
+            throw(7)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_include_5)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(8) do
+          if (
+            refill_buffer(7) < 7 ||
+            @buffer[@cur, 7] != "%common"
+          )
+            throw(8)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 7)
+          @cur += 7
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(8)
+          end
+          if !apply_rule(:evaluate_rule_code_blocks, chunk.thunks, chunk.values, 0)
+            throw(8)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_include_6)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(9) do
+          if (
+            refill_buffer(9) < 9 ||
+            @buffer[@cur, 9] != "%location"
+          )
+            throw(9)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 9)
+          @cur += 9
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(9)
+          end
+          if !apply_rule(:evaluate_rule_code_blocks, chunk.thunks, chunk.values, 0)
+            throw(9)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_include_7)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(10) do
+          if (
+            refill_buffer(11) < 11 ||
+            @buffer[@cur, 11] != "%initialize"
+          )
+            throw(10)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 11)
+          @cur += 11
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(10)
+          end
+          if !apply_rule(:evaluate_rule_code_blocks, chunk.thunks, chunk.values, 0)
+            throw(10)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_include_8)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   directive_include #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH directive_include #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_code_blocks
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    code_blocks #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if !apply_rule(:evaluate_rule_code_blocks, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_lang_code_block, chunk.thunks, chunk.values, 1)
+            throw(2)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_code_blocks_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            value = values[1]
+            value_refs[1] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if !apply_rule(:evaluate_rule_lang_code_block, chunk.thunks, chunk.values, 1)
+            throw(3)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_code_blocks_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[1]
+            value_refs[1] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   code_blocks #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH code_blocks #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_directive_string
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    directive_string #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if (
+            refill_buffer(6) < 6 ||
+            @buffer[@cur, 6] != "%value"
+          )
+            throw(2)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 6)
+          @cur += 6
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_quotation_double, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_string_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if (
+            refill_buffer(6) < 6 ||
+            @buffer[@cur, 6] != "%auxil"
+          )
+            throw(3)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 6)
+          @cur += 6
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(3)
+          end
+          if !apply_rule(:evaluate_rule_quotation_double, chunk.thunks, chunk.values, 0)
+            throw(3)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_string_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(4) do
+          if (
+            refill_buffer(7) < 7 ||
+            @buffer[@cur, 7] != "%prefix"
+          )
+            throw(4)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 7)
+          @cur += 7
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(4)
+          end
+          if !apply_rule(:evaluate_rule_quotation_double, chunk.thunks, chunk.values, 0)
+            throw(4)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_directive_string_2)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   directive_string #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH directive_string #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_rule
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    rule #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    chunk.values = []
+    catch(0) do
+      if !apply_rule(:evaluate_rule_identifier, chunk.thunks, chunk.values, 0)
+        throw(0)
+      end
+      if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+        throw(0)
+      end
+      if (
+        refill_buffer(2) < 2 ||
+        @buffer[@cur, 2] != "<-"
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+      @cur += 2
+      if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+        throw(0)
+      end
+      if !apply_rule(:evaluate_rule_expression, chunk.thunks, chunk.values, 1)
+        throw(0)
+      end
+      1.times do |;thunk, capt0, value, values, value_refs, capt|
+        thunk = ThunkLeaf.new(:action_rule_0)
+        capt0 = thunk.capt0
+        values = chunk.values
+        value_refs = thunk.value_refs
+        value = values[0]
+        value_refs[0] = value
+        value = values[1]
+        value_refs[1] = value
+        capt0.range_start = chunk.pos
+        capt0.range_end = @cur
+        capt0.start_loc = chunk.pos_loc
+        capt0.end_loc = @cur_loc
+        chunk.thunks.push(thunk)
+      end
+      debug { warn "#{ "  " * @level}MATCH   rule #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH rule #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_expression
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    expression #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if !apply_rule(:evaluate_rule_expression, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "/"
+          )
+            throw(2)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_sequence, chunk.thunks, chunk.values, 1)
+            throw(2)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_expression_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            value = values[1]
+            value_refs[1] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if !apply_rule(:evaluate_rule_sequence, chunk.thunks, chunk.values, 1)
+            throw(3)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_expression_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[1]
+            value_refs[1] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   expression #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH expression #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_sequence
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    sequence #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if !apply_rule(:evaluate_rule_sequence, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_term, chunk.thunks, chunk.values, 1)
+            throw(2)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_sequence_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            value = values[1]
+            value_refs[1] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if !apply_rule(:evaluate_rule_term, chunk.thunks, chunk.values, 1)
+            throw(3)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_sequence_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[1]
+            value_refs[1] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   sequence #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH sequence #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_term
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    term #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if !apply_rule(:evaluate_rule_pred, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "~"
+          )
+            throw(2)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_lang_code_block, chunk.thunks, chunk.values, 1)
+            throw(2)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_term_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            value = values[1]
+            value_refs[1] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if !apply_rule(:evaluate_rule_pred, chunk.thunks, chunk.values, 0)
+            throw(3)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_term_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   term #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH term #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_pred
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    pred #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "&"
+          )
+            throw(2)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_quantity, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_pred_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "!"
+          )
+            throw(3)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(3)
+          end
+          if !apply_rule(:evaluate_rule_quantity, chunk.thunks, chunk.values, 0)
+            throw(3)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_pred_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(4) do
+          if !apply_rule(:evaluate_rule_quantity, chunk.thunks, chunk.values, 0)
+            throw(4)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_pred_2)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   pred #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH pred #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_quantity
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    quantity #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if !apply_rule(:evaluate_rule_primary, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "*"
+          )
+            throw(2)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_quantity_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if !apply_rule(:evaluate_rule_primary, chunk.thunks, chunk.values, 0)
+            throw(3)
+          end
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(3)
+          end
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "+"
+          )
+            throw(3)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_quantity_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(4) do
+          if !apply_rule(:evaluate_rule_primary, chunk.thunks, chunk.values, 0)
+            throw(4)
+          end
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(4)
+          end
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "?"
+          )
+            throw(4)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_quantity_2)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(5) do
+          if !apply_rule(:evaluate_rule_primary, chunk.thunks, chunk.values, 0)
+            throw(5)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_quantity_3)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   quantity #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH quantity #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_primary
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    primary #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(1)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if !apply_rule(:evaluate_rule_identifier, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != ":"
+          )
+            throw(2)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(2)
+          end
+          if !apply_rule(:evaluate_rule_identifier, chunk.thunks, chunk.values, 1)
+            throw(2)
+          end
+          1.times do |;pos, p_loc|
+            pos = @cur
+            p_loc = @cur_loc
+            catch(3) do
+              1.times do |;p0, p0_loc, n0, i|
+                i = -1
+                loop do |;pos, p_loc, n, stat|
+                  i += 1
+                  pos = @cur
+                  p_loc = @cur_loc
+                  n = chunk.thunks.length
+                  stat = nil
+                  catch(4) do
+                    1.times do |;u, n|
+                      if refill_buffer(1) < 1
+                        throw(4)
+                      end
+                      u = @buffer[@cur]
+                      if (!(
+                        u == " " ||
+                        u == "\t" ||
+                        u == "\v" ||
+                        u == "\f" ||
+                        u == "\r" ||
+                        u == "\n"
+                      ))
+                        throw(4)
+                      end
+                      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                      @cur += 1
+                    end
+                    if @cur == pos
+                      stat = :break
+                    else
+                      stat = :continue
+                    end
+                  end
+                  if stat == :break
+                    break
+                  elsif stat != :continue
+                    @cur = pos
+                    @cur_loc = p_loc
+                    chunk.thunks[n..-1] = []
+                    break
+                  end
+                end
+              end
+              if (
+                refill_buffer(2) < 2 ||
+                @buffer[@cur, 2] != "<-"
+              )
+                throw(3)
+              end
+              @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+              @cur += 2
+              @cur = pos
+              @cur_loc = p_loc
+              throw(2)
+            end
+            @cur = pos
+            @cur_loc = p_loc
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_primary_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            value = values[1]
+            value_refs[1] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(5) do
+          if !apply_rule(:evaluate_rule_identifier, chunk.thunks, chunk.values, 1)
+            throw(5)
+          end
+          1.times do |;pos, p_loc|
+            pos = @cur
+            p_loc = @cur_loc
+            catch(6) do
+              1.times do |;p0, p0_loc, n0, i|
+                i = -1
+                loop do |;pos, p_loc, n, stat|
+                  i += 1
+                  pos = @cur
+                  p_loc = @cur_loc
+                  n = chunk.thunks.length
+                  stat = nil
+                  catch(7) do
+                    1.times do |;u, n|
+                      if refill_buffer(1) < 1
+                        throw(7)
+                      end
+                      u = @buffer[@cur]
+                      if (!(
+                        u == " " ||
+                        u == "\t" ||
+                        u == "\v" ||
+                        u == "\f" ||
+                        u == "\r" ||
+                        u == "\n"
+                      ))
+                        throw(7)
+                      end
+                      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                      @cur += 1
+                    end
+                    if @cur == pos
+                      stat = :break
+                    else
+                      stat = :continue
+                    end
+                  end
+                  if stat == :break
+                    break
+                  elsif stat != :continue
+                    @cur = pos
+                    @cur_loc = p_loc
+                    chunk.thunks[n..-1] = []
+                    break
+                  end
+                end
+              end
+              if (
+                refill_buffer(2) < 2 ||
+                @buffer[@cur, 2] != "<-"
+              )
+                throw(6)
+              end
+              @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+              @cur += 2
+              @cur = pos
+              @cur_loc = p_loc
+              throw(5)
+            end
+            @cur = pos
+            @cur_loc = p_loc
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_primary_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[1]
+            value_refs[1] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(8) do
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "("
+          )
+            throw(8)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(8)
+          end
+          if !apply_rule(:evaluate_rule_expression, chunk.thunks, chunk.values, 2)
+            throw(8)
+          end
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(8)
+          end
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != ")"
+          )
+            throw(8)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_primary_2)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[2]
+            value_refs[2] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(9) do
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "<"
+          )
+            throw(9)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(9)
+          end
+          if !apply_rule(:evaluate_rule_expression, chunk.thunks, chunk.values, 2)
+            throw(9)
+          end
+          if !apply_rule(:evaluate_rule_opt_spaces_or_comments, chunk.thunks, nil, 0)
+            throw(9)
+          end
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != ">"
+          )
+            throw(9)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_primary_3)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[2]
+            value_refs[2] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(10) do
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "$"
+          )
+            throw(10)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          1.times do |;pos, q, capt, p_loc, q_loc|
+            pos = @cur
+            p_loc = @cur_loc
+            1.times do |;u, n|
+              if refill_buffer(1) < 1
+                throw(10)
+              end
+              u = @buffer[@cur]
+              if (!(
+                (u >= "1" && u <= "9")
+              ))
+                throw(10)
+              end
+              @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+              @cur += 1
+            end
+            1.times do |;p0, p0_loc, n0, i|
+              i = -1
+              loop do |;pos, p_loc, n, stat|
+                i += 1
+                pos = @cur
+                p_loc = @cur_loc
+                n = chunk.thunks.length
+                stat = nil
+                catch(11) do
+                  1.times do |;u, n|
+                    if refill_buffer(1) < 1
+                      throw(11)
+                    end
+                    u = @buffer[@cur]
+                    if (!(
+                      (u >= "0" && u <= "9")
+                    ))
+                      throw(11)
+                    end
+                    @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                    @cur += 1
+                  end
+                  if @cur == pos
+                    stat = :break
+                  else
+                    stat = :continue
+                  end
+                end
+                if stat == :break
+                  break
+                elsif stat != :continue
+                  @cur = pos
+                  @cur_loc = p_loc
+                  chunk.thunks[n..-1] = []
+                  break
+                end
+              end
+            end
+            q = @cur
+            capt = chunk.capts[0]
+            capt.range_start = pos
+            capt.range_end = q
+            q_loc = @cur_loc
+            capt.start_loc = p_loc
+            capt.end_loc = q_loc
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_primary_4)
+            capt0 = thunk.capt0
+            capt = chunk.capts[0]
+            thunk.capts[0] = capt
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(12) do
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "."
+          )
+            throw(12)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_primary_5)
+            capt0 = thunk.capt0
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(13) do
+          if !apply_rule(:evaluate_rule_character_class, chunk.thunks, chunk.values, 3)
+            throw(13)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_primary_6)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[3]
+            value_refs[3] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(14) do
+          if !apply_rule(:evaluate_rule_quotation_single, chunk.thunks, chunk.values, 3)
+            throw(14)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_primary_7)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[3]
+            value_refs[3] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(15) do
+          if !apply_rule(:evaluate_rule_quotation_double, chunk.thunks, chunk.values, 3)
+            throw(15)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_primary_8)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[3]
+            value_refs[3] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(16) do
+          if !apply_rule(:evaluate_rule_lang_code_block, chunk.thunks, chunk.values, 4)
+            throw(16)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_primary_9)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[4]
+            value_refs[4] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   primary #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH primary #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_character_class
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    character_class #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(1)
+    catch(0) do
+      if (
+        refill_buffer(1) < 1 ||
+        @buffer[@cur] != "["
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+      @cur += 1
+      1.times do |;pos, q, capt, p_loc, q_loc|
+        pos = @cur
+        p_loc = @cur_loc
+        1.times do |;p0, p0_loc, n0, i|
+          i = -1
+          loop do |;pos, p_loc, n, stat|
+            i += 1
+            pos = @cur
+            p_loc = @cur_loc
+            n = chunk.thunks.length
+            stat = nil
+            catch(1) do
+              catch(2) do |; pos, p_loc, n|
+                pos = @cur
+                p_loc = @cur_loc
+                n = chunk.thunks.length
+                catch(3) do
+                  1.times do |;u, n|
+                    if refill_buffer(1) < 1
+                      throw(3)
+                    end
+                    u = @buffer[@cur]
+                    if (
+                      u == "\\" ||
+                      u == "[" ||
+                      u == "]"
+                    )
+                      throw(3)
+                    end
+                    @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                    @cur += 1
+                  end
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                catch(4) do
+                  if (
+                    refill_buffer(2) < 2 ||
+                    @buffer[@cur, 2] != "\\["
+                  )
+                    throw(4)
+                  end
+                  @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+                  @cur += 2
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                catch(5) do
+                  if (
+                    refill_buffer(2) < 2 ||
+                    @buffer[@cur, 2] != "\\]"
+                  )
+                    throw(5)
+                  end
+                  @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+                  @cur += 2
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                catch(6) do
+                  if (
+                    refill_buffer(1) < 1 ||
+                    @buffer[@cur] != "\\"
+                  )
+                    throw(6)
+                  end
+                  @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                  @cur += 1
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                throw(1)
+              end
+              if @cur == pos
+                stat = :break
+              else
+                stat = :continue
+              end
+            end
+            if stat == :break
+              break
+            elsif stat != :continue
+              @cur = pos
+              @cur_loc = p_loc
+              chunk.thunks[n..-1] = []
+              break
+            end
+          end
+        end
+        q = @cur
+        capt = chunk.capts[0]
+        capt.range_start = pos
+        capt.range_end = q
+        q_loc = @cur_loc
+        capt.start_loc = p_loc
+        capt.end_loc = q_loc
+      end
+      if (
+        refill_buffer(1) < 1 ||
+        @buffer[@cur] != "]"
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+      @cur += 1
+      1.times do |;thunk, capt0, value, values, value_refs, capt|
+        thunk = ThunkLeaf.new(:action_character_class_0)
+        capt0 = thunk.capt0
+        capt = chunk.capts[0]
+        thunk.capts[0] = capt
+        capt0.range_start = chunk.pos
+        capt0.range_end = @cur
+        capt0.start_loc = chunk.pos_loc
+        capt0.end_loc = @cur_loc
+        chunk.thunks.push(thunk)
+      end
+      debug { warn "#{ "  " * @level}MATCH   character_class #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH character_class #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_lang_code_block
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    lang_code_block #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(1)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if !apply_rule(:evaluate_rule_code_block, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_lang_code_block_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          1.times do |;pos, q, capt, p_loc, q_loc|
+            pos = @cur
+            p_loc = @cur_loc
+            if !apply_rule(:evaluate_rule_identifier, chunk.thunks, nil, 0)
+              throw(3)
+            end
+            q = @cur
+            capt = chunk.capts[0]
+            capt.range_start = pos
+            capt.range_end = q
+            q_loc = @cur_loc
+            capt.start_loc = p_loc
+            capt.end_loc = q_loc
+          end
+          if (
+            refill_buffer(2) < 2 ||
+            @buffer[@cur, 2] != "->"
+          )
+            throw(3)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+          @cur += 2
+          if !apply_rule(:evaluate_rule_code_block, chunk.thunks, chunk.values, 0)
+            throw(3)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_lang_code_block_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt = chunk.capts[0]
+            thunk.capts[0] = capt
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   lang_code_block #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH lang_code_block #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_code_block
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    code_block #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    chunk.values = []
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "$"
+          )
+            throw(2)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          if !apply_rule(:evaluate_rule_plain_code_block, chunk.thunks, chunk.values, 0)
+            throw(2)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_code_block_0)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if !apply_rule(:evaluate_rule_plain_code_block, chunk.thunks, chunk.values, 0)
+            throw(3)
+          end
+          1.times do |;thunk, capt0, value, values, value_refs, capt|
+            thunk = ThunkLeaf.new(:action_code_block_1)
+            capt0 = thunk.capt0
+            values = chunk.values
+            value_refs = thunk.value_refs
+            value = values[0]
+            value_refs[0] = value
+            capt0.range_start = chunk.pos
+            capt0.range_end = @cur
+            capt0.start_loc = chunk.pos_loc
+            capt0.end_loc = @cur_loc
+            chunk.thunks.push(thunk)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   code_block #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH code_block #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_plain_code_block
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    plain_code_block #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(1)
+    catch(0) do
+      if (
+        refill_buffer(1) < 1 ||
+        @buffer[@cur] != "{"
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+      @cur += 1
+      1.times do |;pos, q, capt, p_loc, q_loc|
+        pos = @cur
+        p_loc = @cur_loc
+        1.times do |;pos, p_loc, n|
+          pos = @cur
+          p_loc = @cur_loc
+          n = chunk.thunks.length
+          catch(2) do
+            catch(1) do
+              if !apply_rule(:evaluate_rule_codes, chunk.thunks, nil, 0)
+                throw(1)
+              end
+              throw(2)
+            end
+            @cur_loc = p_loc
+            @cur = pos
+            chunk.thunks[n..-1] = []
+          end
+        end
+        q = @cur
+        capt = chunk.capts[0]
+        capt.range_start = pos
+        capt.range_end = q
+        q_loc = @cur_loc
+        capt.start_loc = p_loc
+        capt.end_loc = q_loc
+      end
+      if (
+        refill_buffer(1) < 1 ||
+        @buffer[@cur] != "}"
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+      @cur += 1
+      1.times do |;thunk, capt0, value, values, value_refs, capt|
+        thunk = ThunkLeaf.new(:action_plain_code_block_0)
+        capt0 = thunk.capt0
+        capt = chunk.capts[0]
+        thunk.capts[0] = capt
+        capt0.range_start = chunk.pos
+        capt0.range_end = @cur
+        capt0.start_loc = chunk.pos_loc
+        capt0.end_loc = @cur_loc
+        chunk.thunks.push(thunk)
+      end
+      debug { warn "#{ "  " * @level}MATCH   plain_code_block #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH plain_code_block #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_codes
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    codes #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    catch(0) do
+      1.times do |;p0, p0_loc, n0, i|
+        p0 = @cur
+        p0_loc = @cur_loc
+        n0 = chunk.thunks.length
+        i = -1
+        loop do |;pos, p_loc, n, stat|
+          i += 1
+          pos = @cur
+          p_loc = @cur_loc
+          n = chunk.thunks.length
+          stat = nil
+          catch(1) do
+            1.times do |;p0, p0_loc, n0, i|
+              i = -1
+              loop do |;pos, p_loc, n, stat|
+                i += 1
+                pos = @cur
+                p_loc = @cur_loc
+                n = chunk.thunks.length
+                stat = nil
+                catch(2) do
+                  1.times do |;u, n|
+                    if refill_buffer(1) < 1
+                      throw(2)
+                    end
+                    u = @buffer[@cur]
+                    if (!(
+                      u == " " ||
+                      u == "\t" ||
+                      u == "\v" ||
+                      u == "\f" ||
+                      u == "\r" ||
+                      u == "\n"
+                    ))
+                      throw(2)
+                    end
+                    @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                    @cur += 1
+                  end
+                  if @cur == pos
+                    stat = :break
+                  else
+                    stat = :continue
+                  end
+                end
+                if stat == :break
+                  break
+                elsif stat != :continue
+                  @cur = pos
+                  @cur_loc = p_loc
+                  chunk.thunks[n..-1] = []
+                  break
+                end
+              end
+            end
+            if !apply_rule(:evaluate_rule_code, chunk.thunks, nil, 0)
+              throw(1)
+            end
+            if @cur == pos
+              stat = :break
+            else
+              stat = :continue
+            end
+          end
+          if stat == :break
+            break
+          elsif stat != :continue
+            @cur = pos
+            @cur_loc = p_loc
+            chunk.thunks[n..-1] = []
+            break
+          end
+        end
+        if i < 1
+          @cur = p0
+          @cur_loc = p0_loc
+          chunk.thunks[n0..-1] = []
+          throw(0)
+        end
+      end
+      1.times do |;p0, p0_loc, n0, i|
+        i = -1
+        loop do |;pos, p_loc, n, stat|
+          i += 1
+          pos = @cur
+          p_loc = @cur_loc
+          n = chunk.thunks.length
+          stat = nil
+          catch(3) do
+            1.times do |;u, n|
+              if refill_buffer(1) < 1
+                throw(3)
+              end
+              u = @buffer[@cur]
+              if (!(
+                u == " " ||
+                u == "\t" ||
+                u == "\v" ||
+                u == "\f" ||
+                u == "\r" ||
+                u == "\n"
+              ))
+                throw(3)
+              end
+              @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+              @cur += 1
+            end
+            if @cur == pos
+              stat = :break
+            else
+              stat = :continue
+            end
+          end
+          if stat == :break
+            break
+          elsif stat != :continue
+            @cur = pos
+            @cur_loc = p_loc
+            chunk.thunks[n..-1] = []
+            break
+          end
+        end
+      end
+      debug { warn "#{ "  " * @level}MATCH   codes #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH codes #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_code
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    code #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          1.times do |;p0, p0_loc, n0, i|
+            p0 = @cur
+            p0_loc = @cur_loc
+            n0 = chunk.thunks.length
+            i = -1
+            loop do |;pos, p_loc, n, stat|
+              i += 1
+              pos = @cur
+              p_loc = @cur_loc
+              n = chunk.thunks.length
+              stat = nil
+              catch(3) do
+                if !apply_rule(:evaluate_rule_codechar, chunk.thunks, nil, 0)
+                  throw(3)
+                end
+                if @cur == pos
+                  stat = :break
+                else
+                  stat = :continue
+                end
+              end
+              if stat == :break
+                break
+              elsif stat != :continue
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                break
+              end
+            end
+            if i < 1
+              @cur = p0
+              @cur_loc = p0_loc
+              chunk.thunks[n0..-1] = []
+              throw(2)
+            end
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(4) do
+          if !apply_rule(:evaluate_rule_quotation_single, chunk.thunks, nil, 0)
+            throw(4)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(5) do
+          if !apply_rule(:evaluate_rule_quotation_double, chunk.thunks, nil, 0)
+            throw(5)
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(6) do
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "{"
+          )
+            throw(6)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          1.times do |;p0, p0_loc, n0, i|
+            i = -1
+            loop do |;pos, p_loc, n, stat|
+              i += 1
+              pos = @cur
+              p_loc = @cur_loc
+              n = chunk.thunks.length
+              stat = nil
+              catch(7) do
+                if !apply_rule(:evaluate_rule_code, chunk.thunks, nil, 0)
+                  throw(7)
+                end
+                if @cur == pos
+                  stat = :break
+                else
+                  stat = :continue
+                end
+              end
+              if stat == :break
+                break
+              elsif stat != :continue
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                break
+              end
+            end
+          end
+          if (
+            refill_buffer(1) < 1 ||
+            @buffer[@cur] != "}"
+          )
+            throw(6)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+          @cur += 1
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   code #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH code #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_codechar
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    codechar #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    catch(0) do
+      catch(1) do |; pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          1.times do |;u, n|
+            if refill_buffer(1) < 1
+              throw(2)
+            end
+            u = @buffer[@cur]
+            if (
+              u == "{" ||
+              u == "}" ||
+              u == "\"" ||
+              u == "'"
+            )
+              throw(2)
+            end
+            @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+            @cur += 1
+          end
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(3) do
+          if (
+            refill_buffer(2) < 2 ||
+            @buffer[@cur, 2] != "\\\""
+          )
+            throw(3)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+          @cur += 2
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(4) do
+          if (
+            refill_buffer(2) < 2 ||
+            @buffer[@cur, 2] != "\\'"
+          )
+            throw(4)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+          @cur += 2
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(5) do
+          if (
+            refill_buffer(2) < 2 ||
+            @buffer[@cur, 2] != "\\{"
+          )
+            throw(5)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+          @cur += 2
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        catch(6) do
+          if (
+            refill_buffer(2) < 2 ||
+            @buffer[@cur, 2] != "\\}"
+          )
+            throw(6)
+          end
+          @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+          @cur += 2
+          throw(1)
+        end
+        @cur = pos
+        @cur_loc = p_loc
+        chunk.thunks[n..-1] = []
+        throw(0)
+      end
+      debug { warn "#{ "  " * @level}MATCH   codechar #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH codechar #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_quotation_single
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    quotation_single #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(1)
+    catch(0) do
+      if (
+        refill_buffer(1) < 1 ||
+        @buffer[@cur] != "\'"
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+      @cur += 1
+      1.times do |;pos, q, capt, p_loc, q_loc|
+        pos = @cur
+        p_loc = @cur_loc
+        1.times do |;p0, p0_loc, n0, i|
+          i = -1
+          loop do |;pos, p_loc, n, stat|
+            i += 1
+            pos = @cur
+            p_loc = @cur_loc
+            n = chunk.thunks.length
+            stat = nil
+            catch(1) do
+              catch(2) do |; pos, p_loc, n|
+                pos = @cur
+                p_loc = @cur_loc
+                n = chunk.thunks.length
+                catch(3) do
+                  1.times do |;u, n|
+                    if refill_buffer(1) < 1
+                      throw(3)
+                    end
+                    u = @buffer[@cur]
+                    if (
+                      u == "\\" ||
+                      u == "'" ||
+                      u == "\n"
+                    )
+                      throw(3)
+                    end
+                    @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                    @cur += 1
+                  end
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                catch(4) do
+                  if (
+                    refill_buffer(2) < 2 ||
+                    @buffer[@cur, 2] != "\\'"
+                  )
+                    throw(4)
+                  end
+                  @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+                  @cur += 2
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                catch(5) do
+                  if (
+                    refill_buffer(2) < 2 ||
+                    @buffer[@cur, 2] != "\\\n"
+                  )
+                    throw(5)
+                  end
+                  @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+                  @cur += 2
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                catch(6) do
+                  if (
+                    refill_buffer(1) < 1 ||
+                    @buffer[@cur] != "\\"
+                  )
+                    throw(6)
+                  end
+                  @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                  @cur += 1
+                  1.times do |;u, n|
+                    if refill_buffer(1) < 1
+                      throw(6)
+                    end
+                    u = @buffer[@cur]
+                    if (
+                      u == "'" ||
+                      u == "\n"
+                    )
+                      throw(6)
+                    end
+                    @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                    @cur += 1
+                  end
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                throw(1)
+              end
+              if @cur == pos
+                stat = :break
+              else
+                stat = :continue
+              end
+            end
+            if stat == :break
+              break
+            elsif stat != :continue
+              @cur = pos
+              @cur_loc = p_loc
+              chunk.thunks[n..-1] = []
+              break
+            end
+          end
+        end
+        q = @cur
+        capt = chunk.capts[0]
+        capt.range_start = pos
+        capt.range_end = q
+        q_loc = @cur_loc
+        capt.start_loc = p_loc
+        capt.end_loc = q_loc
+      end
+      if (
+        refill_buffer(1) < 1 ||
+        @buffer[@cur] != "\'"
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+      @cur += 1
+      1.times do |;thunk, capt0, value, values, value_refs, capt|
+        thunk = ThunkLeaf.new(:action_quotation_single_0)
+        capt0 = thunk.capt0
+        capt = chunk.capts[0]
+        thunk.capts[0] = capt
+        capt0.range_start = chunk.pos
+        capt0.range_end = @cur
+        capt0.start_loc = chunk.pos_loc
+        capt0.end_loc = @cur_loc
+        chunk.thunks.push(thunk)
+      end
+      debug { warn "#{ "  " * @level}MATCH   quotation_single #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH quotation_single #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_quotation_double
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    quotation_double #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(1)
+    catch(0) do
+      if (
+        refill_buffer(1) < 1 ||
+        @buffer[@cur] != "\""
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+      @cur += 1
+      1.times do |;pos, q, capt, p_loc, q_loc|
+        pos = @cur
+        p_loc = @cur_loc
+        1.times do |;p0, p0_loc, n0, i|
+          i = -1
+          loop do |;pos, p_loc, n, stat|
+            i += 1
+            pos = @cur
+            p_loc = @cur_loc
+            n = chunk.thunks.length
+            stat = nil
+            catch(1) do
+              catch(2) do |; pos, p_loc, n|
+                pos = @cur
+                p_loc = @cur_loc
+                n = chunk.thunks.length
+                catch(3) do
+                  1.times do |;u, n|
+                    if refill_buffer(1) < 1
+                      throw(3)
+                    end
+                    u = @buffer[@cur]
+                    if (
+                      u == "\\" ||
+                      u == "\"" ||
+                      u == "\n"
+                    )
+                      throw(3)
+                    end
+                    @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                    @cur += 1
+                  end
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                catch(4) do
+                  if (
+                    refill_buffer(2) < 2 ||
+                    @buffer[@cur, 2] != "\\\""
+                  )
+                    throw(4)
+                  end
+                  @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+                  @cur += 2
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                catch(5) do
+                  if (
+                    refill_buffer(2) < 2 ||
+                    @buffer[@cur, 2] != "\\\n"
+                  )
+                    throw(5)
+                  end
+                  @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+                  @cur += 2
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                catch(6) do
+                  if (
+                    refill_buffer(1) < 1 ||
+                    @buffer[@cur] != "\\"
+                  )
+                    throw(6)
+                  end
+                  @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                  @cur += 1
+                  1.times do |;u, n|
+                    if refill_buffer(1) < 1
+                      throw(6)
+                    end
+                    u = @buffer[@cur]
+                    if (
+                      u == "\"" ||
+                      u == "\n"
+                    )
+                      throw(6)
+                    end
+                    @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                    @cur += 1
+                  end
+                  throw(2)
+                end
+                @cur = pos
+                @cur_loc = p_loc
+                chunk.thunks[n..-1] = []
+                throw(1)
+              end
+              if @cur == pos
+                stat = :break
+              else
+                stat = :continue
+              end
+            end
+            if stat == :break
+              break
+            elsif stat != :continue
+              @cur = pos
+              @cur_loc = p_loc
+              chunk.thunks[n..-1] = []
+              break
+            end
+          end
+        end
+        q = @cur
+        capt = chunk.capts[0]
+        capt.range_start = pos
+        capt.range_end = q
+        q_loc = @cur_loc
+        capt.start_loc = p_loc
+        capt.end_loc = q_loc
+      end
+      if (
+        refill_buffer(1) < 1 ||
+        @buffer[@cur] != "\""
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+      @cur += 1
+      1.times do |;thunk, capt0, value, values, value_refs, capt|
+        thunk = ThunkLeaf.new(:action_quotation_double_0)
+        capt0 = thunk.capt0
+        capt = chunk.capts[0]
+        thunk.capts[0] = capt
+        capt0.range_start = chunk.pos
+        capt0.range_end = @cur
+        capt0.start_loc = chunk.pos_loc
+        capt0.end_loc = @cur_loc
+        chunk.thunks.push(thunk)
+      end
+      debug { warn "#{ "  " * @level}MATCH   quotation_double #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH quotation_double #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_identifier
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    identifier #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    catch(0) do
+      1.times do |;u, n|
+        if refill_buffer(1) < 1
+          throw(0)
+        end
+        u = @buffer[@cur]
+        if (!(
+          (u >= "a" && u <= "z") ||
+          (u >= "A" && u <= "Z") ||
+          u == "_"
+        ))
+          throw(0)
+        end
+        @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+        @cur += 1
+      end
+      1.times do |;p0, p0_loc, n0, i|
+        i = -1
+        loop do |;pos, p_loc, n, stat|
+          i += 1
+          pos = @cur
+          p_loc = @cur_loc
+          n = chunk.thunks.length
+          stat = nil
+          catch(1) do
+            1.times do |;u, n|
+              if refill_buffer(1) < 1
+                throw(1)
+              end
+              u = @buffer[@cur]
+              if (!(
+                (u >= "a" && u <= "z") ||
+                (u >= "A" && u <= "Z") ||
+                u == "_" ||
+                (u >= "0" && u <= "9")
+              ))
+                throw(1)
+              end
+              @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+              @cur += 1
+            end
+            if @cur == pos
+              stat = :break
+            else
+              stat = :continue
+            end
+          end
+          if stat == :break
+            break
+          elsif stat != :continue
+            @cur = pos
+            @cur_loc = p_loc
+            chunk.thunks[n..-1] = []
+            break
+          end
+        end
+      end
+      1.times do |;thunk, capt0, value, values, value_refs, capt|
+        thunk = ThunkLeaf.new(:action_identifier_0)
+        capt0 = thunk.capt0
+        capt0.range_start = chunk.pos
+        capt0.range_end = @cur
+        capt0.start_loc = chunk.pos_loc
+        capt0.end_loc = @cur_loc
+        chunk.thunks.push(thunk)
+      end
+      debug { warn "#{ "  " * @level}MATCH   identifier #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH identifier #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_spaces
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    spaces #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    catch(0) do
+      1.times do |;p0, p0_loc, n0, i|
+        p0 = @cur
+        p0_loc = @cur_loc
+        n0 = chunk.thunks.length
+        i = -1
+        loop do |;pos, p_loc, n, stat|
+          i += 1
+          pos = @cur
+          p_loc = @cur_loc
+          n = chunk.thunks.length
+          stat = nil
+          catch(1) do
+            1.times do |;u, n|
+              if refill_buffer(1) < 1
+                throw(1)
+              end
+              u = @buffer[@cur]
+              if (!(
+                u == " " ||
+                u == "\t" ||
+                u == "\v" ||
+                u == "\f" ||
+                u == "\r" ||
+                u == "\n"
+              ))
+                throw(1)
+              end
+              @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+              @cur += 1
+            end
+            if @cur == pos
+              stat = :break
+            else
+              stat = :continue
+            end
+          end
+          if stat == :break
+            break
+          elsif stat != :continue
+            @cur = pos
+            @cur_loc = p_loc
+            chunk.thunks[n..-1] = []
+            break
+          end
+        end
+        if i < 1
+          @cur = p0
+          @cur_loc = p0_loc
+          chunk.thunks[n0..-1] = []
+          throw(0)
+        end
+      end
+      debug { warn "#{ "  " * @level}MATCH   spaces #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH spaces #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_opt_spaces_or_comments
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    opt_spaces_or_comments #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    catch(0) do
+      1.times do |;p0, p0_loc, n0, i|
+        i = -1
+        loop do |;pos, p_loc, n, stat|
+          i += 1
+          pos = @cur
+          p_loc = @cur_loc
+          n = chunk.thunks.length
+          stat = nil
+          catch(1) do
+            catch(2) do |; pos, p_loc, n|
+              pos = @cur
+              p_loc = @cur_loc
+              n = chunk.thunks.length
+              catch(3) do
+                if !apply_rule(:evaluate_rule_comment, chunk.thunks, nil, 0)
+                  throw(3)
+                end
+                throw(2)
+              end
+              @cur = pos
+              @cur_loc = p_loc
+              chunk.thunks[n..-1] = []
+              catch(4) do
+                if !apply_rule(:evaluate_rule_spaces, chunk.thunks, nil, 0)
+                  throw(4)
+                end
+                throw(2)
+              end
+              @cur = pos
+              @cur_loc = p_loc
+              chunk.thunks[n..-1] = []
+              throw(1)
+            end
+            if @cur == pos
+              stat = :break
+            else
+              stat = :continue
+            end
+          end
+          if stat == :break
+            break
+          elsif stat != :continue
+            @cur = pos
+            @cur_loc = p_loc
+            chunk.thunks[n..-1] = []
+            break
+          end
+        end
+      end
+      debug { warn "#{ "  " * @level}MATCH   opt_spaces_or_comments #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+  end
+
+  def evaluate_rule_lf
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    lf #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(0)
+    catch(0) do
+      1.times do |;pos, p_loc, n|
+        pos = @cur
+        p_loc = @cur_loc
+        n = chunk.thunks.length
+        catch(2) do
+          catch(1) do
+            if (
+              refill_buffer(1) < 1 ||
+              @buffer[@cur] != "\r"
+            )
+              throw(1)
+            end
+            @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+            @cur += 1
+            throw(2)
+          end
+          @cur_loc = p_loc
+          @cur = pos
+          chunk.thunks[n..-1] = []
+        end
+      end
+      if (
+        refill_buffer(1) < 1 ||
+        @buffer[@cur] != "\n"
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+      @cur += 1
+      debug { warn "#{ "  " * @level}MATCH   lf #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH lf #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+  def evaluate_rule_footer
+    chunk = ThunkChunk.new
+    chunk.pos = @cur
+    chunk.pos_loc = @cur_loc
+    debug { warn "#{ "  " * @level}EVAL    footer #{chunk.pos} #{@buffer[chunk.pos..-1].inspect}" }
+    @level += 1
+    chunk.resize_captures(1)
+    catch(0) do
+      if (
+        refill_buffer(2) < 2 ||
+        @buffer[@cur, 2] != "%%"
+      )
+        throw(0)
+      end
+      @cur_loc = @cur_loc.forward(@buffer, @cur, 2)
+      @cur += 2
+      if !apply_rule(:evaluate_rule_lf, chunk.thunks, nil, 0)
+        throw(0)
+      end
+      1.times do |;pos, q, capt, p_loc, q_loc|
+        pos = @cur
+        p_loc = @cur_loc
+        1.times do |;p0, p0_loc, n0, i|
+          i = -1
+          loop do |;pos, p_loc, n, stat|
+            i += 1
+            pos = @cur
+            p_loc = @cur_loc
+            n = chunk.thunks.length
+            stat = nil
+            catch(1) do
+              1.times do |;u, n|
+                if refill_buffer(1) < 1
+                  throw(1)
+                end
+                u = @buffer[@cur]
+                @cur_loc = @cur_loc.forward(@buffer, @cur, 1)
+                @cur += 1
+              end
+              if @cur == pos
+                stat = :break
+              else
+                stat = :continue
+              end
+            end
+            if stat == :break
+              break
+            elsif stat != :continue
+              @cur = pos
+              @cur_loc = p_loc
+              chunk.thunks[n..-1] = []
+              break
+            end
+          end
+        end
+        q = @cur
+        capt = chunk.capts[0]
+        capt.range_start = pos
+        capt.range_end = q
+        q_loc = @cur_loc
+        capt.start_loc = p_loc
+        capt.end_loc = q_loc
+      end
+      1.times do |;thunk, capt0, value, values, value_refs, capt|
+        thunk = ThunkLeaf.new(:action_footer_0)
+        capt0 = thunk.capt0
+        capt = chunk.capts[0]
+        thunk.capts[0] = capt
+        capt0.range_start = chunk.pos
+        capt0.range_end = @cur
+        capt0.start_loc = chunk.pos_loc
+        capt0.end_loc = @cur_loc
+        chunk.thunks.push(thunk)
+      end
+      debug { warn "#{ "  " * @level}MATCH   footer #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+      return chunk
+    ensure
+      @level -= 1
+    end
+    debug { warn "#{ "  " * @level}NOMATCH footer #{chunk.pos} #{@buffer[chunk.pos...@cur].inspect}" }
+    return nil
+  end
+
+
+  def apply_rule(rule, thunks, values, index)
+    pos = @pos + @cur
+    p_loc = @pos_loc + @cur_loc
+    b = true
+    a = @lrtable.get_answer(pos, rule)
+    h = @lrtable.get_head(pos)
+    if h
+      invol = h.invol
+      if !a && rule != h.rule_name && !invol[rule]
+        b = false
+        c = nil
+      else
+        if h.eval.delete(rule)
+          c = public_send(rule)
+          b = false
+          a = LrAnswer.new(:chunk, @pos + @cur, @pos_loc + @cur_loc)
+          a.chunk = c
+          @lrtable.hold_answer(pos, a)
+        end
+      end
+    end
+
+    if b
+      if a
+        @cur = a.pos - @pos
+        @cur_loc = a.pos_loc - @pos_loc
+        type = a.type
+        if type == :lr
+          lr = a.lr
+          head = lr.head
+          if !head
+            head = LrHead.new
+            lr.head = head
+            head.rule_name = rule
+            @lrtable.hold_head(pos, head)
+          end
+          @lrstack.reverse_each do |lrentry|
+            entry_head = lrentry.head
+            lr = a.lr
+            answer_head = lr.head
+            if entry_head == answer_head
+              break
+            end
+            lrentry.head = answer_head
+            invol = answer_head.invol
+            invol[lrentry.rule] = true
+          end
+          lr = a.lr
+          c = lr.seed
+        elsif type == :chunk
+          c = a.chunk
+        end
+      else
+        entry = LrEntry.new
+        entry.rule = rule
+        @lrstack.push(entry)
+        a = LrAnswer.new(:lr, pos, p_loc)
+        a.lr = entry
+        @lrtable.set_answer(pos, rule, a)
+        c = public_send(rule)
+        @lrstack.pop
+        a.pos = @pos + @cur
+        a.pos_loc = @pos_loc + @cur_loc
+        if !entry.head
+          a.set_chunk(c)
+        else
+          lr = a.lr
+          entry.seed = c
+          h = lr.head
+          if h.rule_name != rule
+            c = lr.seed
+            a = LrAnswer.new(:chunk, @pos + @cur, @pos_loc + @cur_loc)
+            a.chunk = c
+            @lrtable.hold_answer(pos, a)
+          else
+            seed = lr.seed
+            a.set_chunk(seed)
+            chunk = a.chunk
+            if !chunk
+              c = nil
+            else
+              @lrtable.set_head(pos, h)
+              while true
+                @cur = pos - @pos
+                @cur_loc = p_loc - @pos_loc
+                h.invol_to_eval
+                c = public_send(rule)
+                if !c || @pos + @cur <= a.pos
+                  break
+                end
+                a.set_chunk(c)
+                a.pos = @pos + @cur
+                a.pos_loc = @pos_loc + @cur_loc
+              end
+              @lrtable.set_head(pos, nil)
+              @cur = a.pos - @pos
+              @cur_loc = a.pos_loc - @pos_loc
+              c = a.chunk
+            end
+          end
+        end
+      end
+    end
+
+    if !c
+      return false
+    end
+    t = ThunkNode.new(c.thunks, values, index)
+    thunks << t
+    return true
+  end
+
+  def do_action(thunks, values, index)
+    thunks.each do |thunk|
+      case thunk.type
+      when :leaf
+        public_send(thunk.action, thunk, values, index)
+      when :node
+        do_action(thunk.thunks, thunk.values, thunk.index)
+      end
+    end
+  end
+
+  class Location
+    attr_reader :charnum, :linenum, :linepos
+
+    def initialize(charnum = 0, linenum = 0, linepos = 0)
+      @charnum = charnum
+      @linenum = linenum
+      @linepos = linepos
+    end
+
+    def +(other)
+      Location.new(other.charnum, other.linenum)
+    end
+
+    def -(other)
+      Location.new(other.charnum, other.linenum)
+    end
+
+    def forward(buffer, cur, n)
+      Location.new(@charnum, @linenum).forward!(buffer, cur, n)
+    end
+
+    def forward!(buffer, cur, n)
+      buffer[cur, n].scan(/(.*)(\n)?/) do
+        if Regexp.last_match[2]
+          @linenum += 1
+          @pos = 0
+        else
+          @charnum += Regexp.last_match[1].length
+        end
+      end
+      self
+    end
+  end
+
+  class LrTable
+    def initialize
+      super
+      @buf = []
+    end
+
+    def shift(count)
+      @buf[0, count] = []
+    end
+
+    def resize(len)
+      (@buf.length...len).each do |i|
+        @buf << nil
+      end
+    end
+
+    def set_head(index, head)
+      if index >= @buf.length
+        resize(index + 1)
+      end
+      entry = @buf[index] ||= LrTableEntry.new
+      entry.head = head
+    end
+
+    def hold_head(index, head)
+      if index >= @buf.length
+        resize(index + 1)
+      end
+      entry = @buf[index] ||= LrTableEntry.new
+      head.hold, entry.hold_h = entry.hold_h, head
+    end
+
+    def set_answer(index, rule_name, answer)
+      if index >= @buf.length
+        resize(index + 1)
+      end
+      entry = @buf[index] ||= LrTableEntry.new
+      entry.memos[rule_name] = answer
+    end
+
+    def hold_answer(index, answer)
+      if index >= @buf.length
+        resize(index + 1)
+      end
+      entry = @buf[index] ||= LrTableEntry.new
+      answer.hold, entry.hold_a = entry.hold_a, answer
+    end
+
+    def get_head(index)
+      @buf[index]&.head
+    end
+
+    def get_answer(index, rule_name)
+      if index >= @buf.length
+        return nil
+      end
+      entry = @buf[index]
+      if !entry
+        return nil
+      end
+      memos = entry.memos
+      memos[rule_name]
+    end
+  end
+
+  class LrTableEntry
+    attr_accessor :head, :hold_a, :hold_h, :memos
+
+    def initialize
+      @memos = {}
+    end
+  end
+
+  class LrHead
+    attr_accessor :hold, :rule_name, :invol, :eval
+
+    def initialize
+      @invol = {}
+      @eval = {}
+    end
+
+    def invol_to_eval
+      @eval.clear
+      @invol.each do |k, v|
+        @eval[k] = true
+      end
+    end
+  end
+
+  class ThunkChunk
+    attr_accessor :thunks, :capts, :pos, :values
+    attr_accessor :pos_loc
+
+    def initialize
+      super
+      @thunks = []
+      @capts = []
+      @pos = 0
+      @values = []
+    end
+
+    def resize_captures(len)
+      (@capts.length...len).each do |i|
+        @capts << Capture.new
+      end
+    end
+  end
+
+  class Thunk
+    attr_accessor :type
+  end
+
+  class ThunkLeaf < Thunk
+    attr_accessor :capt0, :capts, :value_refs, :action
+
+    def initialize(action)
+      @type = :leaf
+      @value_refs = []
+      @capts = []
+      @capt0 = Capture.new
+      @action = action
+    end
+  end
+
+  class ThunkNode < Thunk
+    attr_accessor :thunks, :values, :index
+
+    def initialize(thunks, values, index)
+      @type = :node
+      @thunks = thunks
+      @values = values
+      @index = index
+      values[index] ||= Value.new if values
+    end
+  end
+
+  class LrEntry
+    attr_accessor :rule, :head, :seed
+  end
+
+  class Capture
+    attr_accessor :range_start, :range_end
+    attr_accessor :start_loc, :end_loc
+
+    def initialize
+      @range_start = 0
+      @range_end = 0
+      @start_loc = Location.new
+      @end_loc = Location.new
+    end
+
+    def capture_string(buffer)
+      @string ||= buffer[@range_start, @range_end - @range_start]
+    end
+  end
+
+  class LrAnswer
+    attr_accessor :hold, :lr, :chunk, :pos, :type
+    attr_accessor :pos_loc
+
+    def initialize(type, pos, pos_loc)
+      @type = type
+      @pos = pos
+      @pos_loc = pos_loc
+    end
+
+    def set_chunk(chunk)
+      a = LrAnswer.new(@type, @pos, @pos_loc)
+      if @type == :lr
+        a.lr = @lr
+      elsif @type == :chunk
+        a.chunk = @chunk
+      end
+      a.hold = @hold
+      @hold = a
+      @type = :chunk
+      @chunk = chunk
+    end
+  end
+
+  class Value
+    attr_accessor :value
+  end
+end
+
+class Packcr::Parser
+  attr_accessor :rules
+
+  def rule(name)
+    @rulehash[name]
+  end
+
+  def make_rulehash
+    @rules.each do |rule|
+      @rulehash[rule.name] = rule
+    end
+  end
+end