/usr/share/doc/racc/examples/calc-ja.y is in racc 1.4.14-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | # $Id$
#
# A simple calculator, version 2.
# This file contains Japanese characters (encoding=EUC-JP).
class Calculator2
prechigh
nonassoc UMINUS
left '*' '/'
left '+' '-'
preclow
options no_result_var
rule
target : exp
| /* none */ { 0 }
exp : exp '+' exp { val[0] + val[2] }
| exp '-' exp { val[0] - val[2] }
| exp '*' exp { val[0] * val[2] }
| exp '/' exp { val[0] / val[2] }
| '(' exp ')' { val[1] }
| '-' NUMBER =UMINUS { -(val[1]) }
| NUMBER
end
---- header
# $Id$
---- inner
def evaluate(str)
@tokens = []
until str.empty?
case str
when /\A\s+/
;
when /\A\d+/
@tokens.push [:NUMBER, $&.to_i]
when /\A.|\n/
s = $&
@tokens.push [s, s]
end
str = $'
end
@tokens.push [false, '$']
do_parse
end
def next_token
@tokens.shift
end
---- footer
puts 'Ķ¹ë²ÚÅÅÂî 2 ¹æµ¡'
puts 'Q ¤Ç½ªÎ»¤·¤Þ¤¹'
calc = Calculator2.new
while true
print '>>> '; $stdout.flush
str = $stdin.gets.strip
break if /q/i =~ str
begin
p calc.evaluate(str)
rescue ParseError
puts 'parse error'
end
end
|