root/lang/ruby/ssb/trunk/libs/ssb/emoji.rb @ 2282

# emoji.rb - emoji convert
#
# Author:: MIZOGUCHI Coji <mizoguchi.coji at gmail.com>
# License:: Distributes under the same terms as Ruby
#
# $Id$
#
require 'yaml'

module SSB
  module Emoji
    SJIS_ONE_BYTE  = '[\x00-\x7F\xA1-\xDF]'
    SJIS_TWO_BYTES = '[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]'
    SJIS_IMODE_PICTOGRAM = '\xF8[\x9F-\xFC]|\xF9[\x40-\x7E\x80-\xB0]|\xF9[\xB1-\xFC]'
    RE_IMODE_SJIS = Regexp.new("((#{SJIS_IMODE_PICTOGRAM})|(#{SJIS_ONE_BYTE}|#{SJIS_TWO_BYTES}))")

    # TODO: speed up!
    def self.ez_uni2number(uni)
      table = YAML.load_file(File.join(SSB::CONFIG[:dat_dir], 'kddi-table.yaml'))
      table.each {|x|
        if x['unicode'] == uni
          return x['number']
        end
      }
      nil
    end

    def self.emoji_conv(term, str)
      ret = str
      # SJIS HEX Binary
      ret.gsub!(RE_IMODE_SJIS) do |s|
        orig_match = $1
        if not $2.nil?
          sprintf '<img class="emoji" src="emoji/docomo/%X.gif" />', orig_match.unpack('n')[0]
        else
          orig_match
        end
      end

      # SJIS 10進数実体参照
      ret.gsub!(/&#([0-9]+);/) do |s|
        '<img class="emoji" src="emoji/docomo/' + $1.to_i.to_s(16).upcase + '.gif" />'
      end

      # UNICODE 16進数実体参照 (とりあえず拡張絵文字だけ)
      ret.gsub!(/(&#x([0-9a-zA-Z]+);)/) do |s|
        code =
          case ($2.hex)
          when 0xE63E..0xE69B
            # 4705
            $2.hex + 4705
          when 0xE69C..0xE6DA, 0xE6AC..0xE6BA
            # 4772
            $2.hex + 4772
          when 0xE6DB..0xE70A, 0xE70C..0xE757
            # 4773
            $2.hex + 4773
          else
            $1
          end
        if code.is_a?(Integer)
          '<img class="emoji" src="emoji/docomo/' + (code).to_s(16).upcase + '.gif" />'
        else
          code
        end
      end

      # KDDI localsrc
      if term.get_carrier == KtaiSpec::CARRIER_KDDI
        ret.gsub!(/(&#x([0-9a-zA-Z]+);)/) do |s|
          number = SSB::Emoji.ez_uni2number($2)
          if number.nil?
            $1
          else
            sprintf '<img class="emoji" src="emoji/kddi/%03d.gif" />', number
          end
        end

        ret.gsub!(/ (localsrc)=\"?([^>\" ]+)\"?/im) { |s|
          ' class="emoji" src="emoji/kddi/' + '%03d' % $2.to_i + '.gif"'
        }
      end

      # Thirdforce
      re_sb_emoji = Regexp.new('\x1B\$(..)\x0F', 0, 'n')
      if term.get_carrier == KtaiSpec::CARRIER_SOFTBANK
        ret.gsub!(re_sb_emoji) { |s|
          page_map = {
            ?G => 1,
            ?E => 2,
            ?F => 3,
            ?O => 4,
            ?P => 5,
            ?Q => 6,
          }
          code = ( (0xE0 + page_map[$1[0]] - 1 ) << 8) + ($1[1] - ?! + 1)

          sprintf "<img class='emoji' src='emoji/softbank/%04X.gif' />" % code
        }
      end

      ret
    end
  end
end