File: exyacc.rb

package info (click to toggle)
ruby 1.4.3-6
  • links: PTS
  • area: main
  • in suites: potato
  • size: 4,068 kB
  • ctags: 7,509
  • sloc: ansic: 60,668; ruby: 23,106; yacc: 4,122; sh: 1,753; lisp: 997; makefile: 597; sed: 68; awk: 36; tcl: 31; perl: 17; python: 6
file content (22 lines) | stat: -rw-r--r-- 537 bytes parent folder | download 
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!('\*/', "\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