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

わたなべです。

"Shin'ya Adzumi" <[e-mail]> writes:

:> jcode.rb にこだわりのある方が出てくればいいですね
:
:日本語に関わらない部分なら直したいな(というか実際に直してますが)と思っ
:ていますが、これって jcode.rb の本来の目的とちょっとずれてますね^^;

原形を留めないほど、改造した責任を取ってこうしてみました。

:# ちなみに手元では
:#   '\\'.tr('a\bc','def') # => ""
:# は直してたりします
:#   'b'.tr('ab','cd::ef') # => "d"
:#   'b'.tr('ab::cd','ef') # => "d"
:# は直す必要ないですよね…多分

'::'じゃなくて'1-0'ならいいかな。

-- 
わたなべひろふみ

Index: lib/jcode.rb
===================================================================
RCS file: /src/ruby/lib/jcode.rb,v
retrieving revision 1.14
diff -u -1 -r1.14 jcode.rb
--- lib/jcode.rb	2000/12/05 09:36:52	1.14
+++ lib/jcode.rb	2001/09/06 04:23:50
@@ -11,5 +11,5 @@
   def _regex_quote(str)
-    str.gsub(/[][.\\|*?+{}()]/){|s|
-      if s == "\\" then "\\\\" else "\\\\#{s}" end
-    }
+    str.gsub(/(\\[-\\])|\\(.)|([][\\])/) do
+      $1 || $2 || '\\' + $3
+    end
   end
@@ -99,11 +99,11 @@
     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 }
+    str.scan(/(?:\\([-\\]))|(.)-(.)|(.)/m) do
+      if s = $1 || $4
+	a.push s
+      elsif $2.length != $3.length
+	next
+      elsif $2.length == 1
+	$2[0].upto($3[0]) { |c| a.push c.chr }
       else
- 	$1.upto($2) { |c| a.push c }
+	$2.upto($3) { |c| a.push c }
       end
@@ -136,3 +136,3 @@
     else
-      h = HashCache[from + "::" + to] ||= expand_ch_hash(from, to)
+      h = HashCache[from + "1-0" + to] ||= expand_ch_hash(from, to)
       self.gsub!(pattern) do |c| h[c] end
@@ -170,3 +170,3 @@
 
-    pattern = SqueezePatternCache[from] ||= /([#{_regex_quote(from)}])\1+"/
+    pattern = SqueezePatternCache[from] ||= /([#{_regex_quote(from)}])\1+/
     if from[0] == ?^
@@ -175,3 +175,3 @@
     else
-      h = HashCache[from + "::" + to] ||= expand_ch_hash(from, to)
+      h = HashCache[from + "1-0" + to] ||= expand_ch_hash(from, to)
       self.gsub!(pattern) do h[$1] end