summaryrefslogtreecommitdiff
path: root/sample/exyacc.rb
diff options
context:
space:
mode:
Diffstat (limited to 'sample/exyacc.rb')
-rw-r--r--sample/exyacc.rb20
1 files changed, 10 insertions, 10 deletions
diff --git a/sample/exyacc.rb b/sample/exyacc.rb
index cd1170f..dafcb03 100644
--- a/sample/exyacc.rb
+++ b/sample/exyacc.rb
@@ -8,15 +8,15 @@ 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')
+ 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