#! /usr/local/bin/ruby -Kn
# usage: exyacc.rb [yaccfiles]
# this is coverted from exyacc.pl in the camel book
$/ = nil
while gets()
sbeg = $_.index("\n%%") + 1
send = $_.rindex("\n%%") + 1
$_ = $_[sbeg, send-sbeg]
sub!(/.*\n/, "")
gsub!(/'\{'/, "'\001'")
gsub!(/'\}'/, "'\002'")
gsub!(%r{\*/}, "\003\003")
gsub!(%r{/\*[^\003]*\003\003}, '')
while gsub!(/\{[^{}]*\}/, ''); end
gsub!(/'\001'/, "'{'")
gsub!(/'\002'/, "'}'")
while gsub!(/^[ \t]*\n(\s)/, '\1'); end
gsub!(/([:|])[ \t\n]+(\w)/, '\1 \2')
print $_
end
type='hidden' name='id' value='6be402e172a537000de58a28af389cb55dd62ec8'/>
The Ruby Programming Language | |