1 files changed, 174 insertions, 0 deletions
diff --git a/lib/jcode.rb b/lib/jcode.rb
new file mode 100644
index 0000000000..5b2289932f
--- /dev/null
+++ b/lib/jcode.rb
@@ -0,0 +1,174 @@
+# jcode.rb - ruby code to handle japanese (EUC/SJIS) string
+
+class String
+  printf STDERR, "feel free for some warnings:\n" if $VERBOSE
+
+  alias original_succ succ
+  private :original_succ
+
+  def succ
+    if self[-2] && self[-2] & 0x80 != 0
+      s = self.dup
+      s[-1] += 1
+      return s
+    else
+      original_succ
+    end
+  end
+
+  def upto(to)
+    return if self > to
+
+    curr = self
+    tail = self[-2..-1]
+    if tail.length == 2 and tail  =~ /^.$/ then
+      if self[0..-2] == to[0..-2]
+	for c in self[-1] .. to[-1]
+	  yield self[0..-2]+c.chr
+	end
+      end
+    else
+      loop do
+	yield curr
+	return if curr == to
+	curr = curr.succ
+	return if curr.length > to.length
+      end
+    end
+    return nil
+  end
+
+  def _expand_ch
+    a = []
+    self.scan(/(.|\n)-(.|\n)|(.|\n)/) 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 }
+      end
+    end
+    a
+  end
+
+  def tr!(from, to)
+    return self.delete!(from) if to.length == 0
+
+    if from =~ /^\^/
+      comp=TRUE
+      from = $'
+    end
+    afrom = from._expand_ch
+    ato = to._expand_ch
+    i = 0
+    if comp
+      self.gsub!(/(.|\n)/) do |c|
+	unless afrom.include?(c)
+	  ato[-1]
+	else
+	  c
+	end
+      end
+    else
+      self.gsub!(/(.|\n)/) do |c|
+	if i = afrom.index(c)
+	  if i < ato.size then ato[i] else ato[-1] end
+	else
+	  c
+	end
+      end
+    end
+  end
+
+  def tr(from, to)
+    self.dup.tr!(from, to)
+  end
+
+  def delete!(del)
+    if del =~ /^\^/
+      comp=TRUE
+      del = $'
+    end
+    adel = del._expand_ch
+    if comp
+      self.gsub!(/(.|\n)/) do |c|
+	next unless adel.include?(c)
+	c
+      end
+    else
+      self.gsub!(/(.|\n)/) do |c|
+	next if adel.include?(c)
+	c
+      end
+    end
+  end
+
+  def delete(del)
+    self.dup.delete!(del)
+  end
+
+  def squeeze!(del=nil)
+    if del
+      if del =~ /^\^/
+	comp=TRUE
+	del = $'
+      end
+      adel = del._expand_ch
+      if comp
+	self.gsub!(/(.|\n)\1+/) do
+	  next unless adel.include?($1)
+	  $&
+	end
+      else
+	for c in adel
+	  cq = Regexp.quote(c)
+	  self.gsub!(/#{cq}(#{cq})+/, cq)
+	end
+      end
+      self
+    else
+      self.gsub!(/(.|\n)\1+/, '\1')
+    end
+  end
+
+  def squeeze(del=nil)
+    self.dup.squeeze!(del)
+  end
+
+  def tr_s!(from, to)
+    return self.delete!(from) if to.length == 0
+    if from =~ /^\^/
+      comp=TRUE
+      from = $'
+    end
+    afrom = from._expand_ch
+    ato = to._expand_ch
+    i = 0
+    c = nil
+    last = nil
+    self.gsub!(/(.|\n)/) do |c|
+      if comp
+	unless afrom.include?(c)
+	  ato[-1]
+	else
+	  c
+	end
+      elsif i = afrom.index(c)
+	c = if i < ato.size then ato[i] else ato[-1] end
+	next if c == last
+	last = c
+      else
+	last = nil
+        c
+      end
+    end
+  end
+
+  def tr_s(from, to)
+    self.dup.tr_s!(from,to)
+  end
+
+end