23 lines
537 B
Ruby
23 lines
537 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!('\*/', "\003\003")
|
|
gsub!("/\\*[^\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
|