Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (20 sloc) 0.542 kB
#! /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
Jump to Line
Something went wrong with that request. Please try again.