[ruby-list:32515] 拡張された日本語処理

るびきちです。

日本語を扱いやすくするためにこんなライブラリを書いてみました。
特にirb/irbshのような環境では便利なのでは？

#!/usr/bin/env ruby
=begin
= kconvadd.rb
拡張された日本語処理。

* String#inspectに文字コードを明記
* String#e, s, jはそれぞれ String#toeuc, tosjis, tojis の短縮形
* Regexp#toeuc, tosjis, tojis, e, s, j を追加
=end

require 'kconv'
require 'nkf'


class KconvAdd

  CODES = {
    NKF::JIS      => "(j)",
    NKF::EUC      => "(e)",
    NKF::SJIS     => "(s)",
  }
  CODES.default = ""

  def self::__kconv__( str )
      k = $KCODE[0,1].downcase
      case k
      when 'e', 's'
        NKF::nkf( "-#{k}", str )
      else
        str
      end
  end

  def self::__guess__( str )
    CODES[ NKF::guess str ]
  end
end

class String
  alias :inspect_old :inspect
  def inspect
    "#{(KconvAdd::__kconv__ self).inspect_old}#{KconvAdd::__guess__ self}"
  end

  alias :e :toeuc
  alias :s :tosjis
  alias :j :tojis

end

class Regexp
  def toeuc
    opt = "#{%r!/([a-z]*?)$!.match(inspect).to_a[1]}e"
    eval "/\#{source.toeuc}/#{opt}"
  end
  alias :e :toeuc

  def tosjis
    opt = "#{%r!/([a-z]*?)$!.match(inspect).to_a[1]}s"
    eval "/\#{source.tosjis}/#{opt}"
  end
  alias :s :tosjis
end

if __FILE__ == $0
  $KCODE ='e'
  euc = ["日本語", "あい1うえお", "あい\nうえ\nお"]
  sjis = euc.collect{|x| x.s}

  puts sjis.inspect
  puts sjis.grep(/日本/.s).inspect
  puts sjis.grep(/.う/.s).inspect
  puts sjis.grep(/.う/m.s).inspect

  puts euc.inspect
  puts euc.grep(/日本/.e).inspect
  puts euc.grep(/.う/.e).inspect
  puts euc.grep(/.う/m.e).inspect

end

るびきち☆
http://voo.to/ruby/ ←Ruby大衆化計画(笑)