23 lines
536 B
Ruby
23 lines
536 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
|