class Racc::GrammarFileScanner

def scan_quoted(left, tag = 'string')
  buf = left.dup
  buf = "||#{tag}->" + buf if $raccs_print_type
  re = get_quoted_re(left)
  sv, @in_block = @in_block, tag
  begin
    if s = reads(re)
      buf << s
      break
    else
      buf << @line
    end
  end while next_line()
  @in_block = sv
  buf << "<-#{tag}||" if $raccs_print_type
  buf
end