blob: ad6191c03d0835b6ac7266b88357fe605bb8c560 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#! /usr/local/bin/ruby -Cn
# 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
|