[ruby-list:31262] Re: p "123".tr('=-;', ' ＝−； ')

あづみです。

Shin'ya Adzumi wrote:
> require 'jcode' しても、String#tr はちゃんと動いて欲しいですね。
> しかし、元の String#tr と同じ動きをさせようと思ったらものすごく手を
> 入れないとダメそう。_expand_ch なんて trnext() と似たようなロジック
> にしないと実現方法が思い浮かばなかった…。

とりあえず trnext を元に _expand_ch を直してみました。文字頭の \ は
[ruby-list:31261]の修正後の String#tr と同じ扱いになってます。

書いてて気が付いたんですけど、- の \ のチェックも必要ですよね。下のは対応
していませんが。\ チェックは別に分けたほうがええんかなぁ。


安積伸弥
[e-mail]


--- jcode.rb.orig Wed Sep  5 16:17:31 2001
+++ jcode.rb  Wed Sep  5 21:19:43 2001
@@ -9,8 +9,8 @@
   printf STDERR, "feel free for some warnings:\n" if $VERBOSE

   def _regex_quote(str)
-    str.gsub(/[][.\\|*?+{}()]/){|s|
-      if s == "\\" then "\\\\" else "\\\\#{s}" end
+    str.gsub(/\\-|[][.\\|*?+{}()]/){|s|
+      if s == "\\-" then s else "\\#{s}" end
     }
   end
   private :_regex_quote
@@ -97,15 +97,23 @@

   def _expand_ch str
     a = []
-    str.scan(/(.)-(.)|(.)/m) do |r|
-      if $3
- a.push $3
-      elsif $1.length != $2.length
-   next
-      elsif $1.length == 1
-   $1[0].upto($2[0]) { |c| a.push c.chr }
-      else
-   $1.upto($2) { |c| a.push c }
+   b = str.split(/(.)/)
+   b.delete("")
+    while !b.empty?
+      c = b.shift
+      if c == '\\' and !b.empty? then
+        c = b.shift
+      end
+      if b.size > 1 and  b[0] == '-' and c.length == b[1].length then
+       if c.length == 1 then
+          c[0].upto(b[1][0]) { |d| a.push d.chr }
+        else
+          c.upto(b[1]) { |d| a.push d }
+        end
+        b.shift
+        b.shift
+     else
+         a.push c
       end
     end
     a