mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
add23cc22e
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3644 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
22 lines
540 B
Ruby
22 lines
540 B
Ruby
#! /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
|