diff options
author | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-01-26 06:12:15 +0000 |
---|---|---|
committer | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-01-26 06:12:15 +0000 |
commit | 5fe6fb95f247b0d493d3d36f31cbf15efa6709cf (patch) | |
tree | ebb8ff161bcadfd75b851fa8ff6997b580e27393 | |
parent | 09c8c7b889ac52acbcdbebabfde149f452d55173 (diff) |
* sample/exyacc.rb: escape '}' to avoid warning.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@5557 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | sample/exyacc.rb | 4 |
2 files changed, 6 insertions, 2 deletions
@@ -1,3 +1,7 @@ +Mon Jan 26 15:11:47 2004 NAKAMURA Usaku <usa@ruby-lang.org> + + * sample/exyacc.rb: escape '}' to avoid warning. + Mon Jan 26 12:47:17 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp> * ext/tcltklib/tcltklib.c: define CONST84 when TCL_MAJOR_VERSION == 7 diff --git a/sample/exyacc.rb b/sample/exyacc.rb index b8d49d630a..5818825e25 100644 --- a/sample/exyacc.rb +++ b/sample/exyacc.rb @@ -10,10 +10,10 @@ while gets() $_ = $_[sbeg, send-sbeg] sub!(/.*\n/, "") gsub!(/'\{'/, "'\001'") - gsub!(/'}'/, "'\002'") + gsub!(/'\}'/, "'\002'") gsub!(%r{\*/}, "\003\003") gsub!(%r{/\*[^\003]*\003\003}, '') - while gsub!(/\{[^{}]*}/, ''); end + while gsub!(/\{[^{}]*\}/, ''); end gsub!(/'\001'/, "'{'") gsub!(/'\002'/, "'}'") while gsub!(/^[ \t]*\n(\s)/, '\1'); end |