Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 23 lines (20 sloc) 0.542 kb
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 -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
Something went wrong with that request. Please try again.