Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
array.y	971 B	-rw-r--r--
array2.y	928 B	-rw-r--r--
calc-ja.y	1.17 KB	-rw-r--r--
calc.y	1017 B	-rw-r--r--
conflict.y	224 B	-rw-r--r--
hash.y	1.04 KB	-rw-r--r--
lalr.y	148 B	-rw-r--r--
lists.y	1.01 KB	-rw-r--r--
syntax.y	674 B	-rw-r--r--
yyerr.y	483 B	-rw-r--r--

Code Editor : hash.y

# $Id$
#
# Converting Hash-like string into Ruby's Hash.

class HashParser
  options no_result_var
rule
  hash    : '{' contents '}'   { val[1] }
          | '{' '}'            { Hash.new }
           
                  # Racc can handle string over 2 bytes.
  contents: IDENT '=>' IDENT              { {val[0] => val[2]} }
          | contents ',' IDENT '=>' IDENT { val[0][val[2]] = val[4]; val[0] }
end

---- inner

def parse(str)
    @str = str
    yyparse self, :scan
  end

private

def scan
    str = @str
    until str.empty?
      case str
      when /\A\s+/
        str = $'
      when /\A\w+/
        yield :IDENT, $&
        str = $'
      when /\A=>/
        yield '=>', '=>'
        str = $'
      else
        c = str[0,1]
        yield c, c
        str = str[1..-1]
      end
    end
    yield false, '$'   # is optional from Racc 1.3.7
  end

---- footer

if $0 == __FILE__
  src = <<EOS
{
  name => MyName,
  id => MyIdent
}
EOS
  puts 'Parsing (String):'
  print src
  puts
  puts 'Result (Ruby Object):'
  p HashParser.new.parse(src)
end

${this.title}

Code Editor : hash.y