diff options
| -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 |