egalite 0.0.1 → 0.0.2

data/lib/egalite/keitai/rack/ketai/carrier/abstract.rb

@@ -0,0 +1,131 @@
+# -*- coding: utf-8 -*-
+require 'tempfile'
+require 'singleton'
+require 'nkf'
+require 'rack/request'
+
+module Rack::Ketai::Carrier
+  class Abstract
+
+    class << self
+      @@filter_table = { }
+      def filters=(obj)
+        @@filter_table[self] = obj.is_a?(Array) ? obj : [obj]
+      end
+
+      def filters
+        @@filter_table[self] ||= []
+      end
+    end
+
+    def initialize(env)
+      @env = env.clone
+    end
+    
+    USER_AGENT_REGEXP = nil
+
+    def filters
+      self.class.filters
+    end
+
+    private
+    def inbound_filter
+    end
+
+    def outbound_filter
+    end
+
+  end
+end
+
+class Rack::Ketai::Carrier::Abstract
+  class Filter
+    include Singleton
+
+    def inbound(env)
+      env
+    end
+    
+    def outbound(status, headers, body)
+      [status, headers, body]
+    end
+
+    private
+    def full_apply(*argv, &proc)
+      argv.each do |obj|
+        deep_apply(obj, &proc)
+      end
+    end
+    
+    def deep_apply(obj, &proc)
+      case obj
+      when Hash
+        obj.each_pair do |key, value|
+          obj[key] = deep_apply(value, &proc)
+        end
+        obj
+      when Array
+        obj.collect!{ |value| deep_apply(value, &proc)}
+      when NilClass, TrueClass, FalseClass, Tempfile, StringIO
+        obj
+      else
+        proc.call(obj)
+      end
+    end
+
+  end
+
+  
+  class SjisFilter < Filter
+
+    def inbound(env)
+      request = Rack::Request.new(env)
+
+      # 最低でも1回呼んでないと query_string, form_hash等が未設定
+      request.params
+      
+      # 同一オブジェクトが両方に入ってたりして二重にかかることがあるので
+      converted_objects = []
+      converter = lambda { |value|
+        unless converted_objects.include?(value)
+          value = NKF.nkf('-m0 -x -Sw', value)
+          converted_objects << value
+        end
+        value
+      }
+      
+      full_apply(request.env["rack.request.query_hash"],
+                 request.env["rack.request.form_hash"],
+                 &converter)
+
+      request.env
+    end
+    
+    def outbound(status, headers, body)
+      if body.is_a?(Array)
+        body = body.collect do |str|
+          NKF.nkf('-m0 -x -Ws', str)
+        end
+      else
+        body = NKF.nkf('-m0 -x -Ws', body)
+      end
+      
+      case headers['Content-Type']
+      when /charset=(\w+)/i
+        headers['Content-Type'].sub!(/charset=\w+/, 'charset=shift_jis')
+      else
+        headers['Content-Type'] << "; charset=shift_jis"
+      end
+
+      content = (body.is_a?(Array) ? body[0] : body).to_s
+      headers['Content-Length'] = (content.respond_to?(:bytesize) ? content.bytesize : content.size).to_s if headers.member?('Content-Length')
+      
+      [status, headers, body]
+    end
+    
+  end
+
+end
+
+require 'rack/ketai/carrier/emoji/emojidata'
+

data/lib/egalite/keitai/rack/ketai/carrier/au.rb

@@ -0,0 +1,78 @@
+# -*- coding: utf-8 -*-
+require 'scanf'
+
+module Rack::Ketai::Carrier
+  class Au < Abstract
+    USER_AGENT_REGEXP = /^(?:KDDI|UP.Browser\/.+?)-(.+?) /
+  end
+end
+
+class Rack::Ketai::Carrier::Au
+  class Filter < ::Rack::Ketai::Carrier::Abstract::SjisFilter
+      
+    def inbound(env)
+      # au SJISバイナリ -> 絵文字ID表記
+      request = Rack::Request.new(env)
+      
+      request.params  # 最低でも1回呼んでないと query_stringが未設定
+      
+      converter = lambda do |value|
+        value.gsub(sjis_regexp) do |match|
+          format("[e:%03X]", EMOJI_TO_EMOJIID[match])
+        end
+      end
+      deep_apply(request.env["rack.request.query_hash"], &converter)
+      deep_apply(request.env["rack.request.form_hash"], &converter)
+      
+      # 文字コード変換
+      super(request.env)
+    end
+    
+    def outbound(status, headers, body)
+      status, headers, body = super
+
+      return [status, headers, body] unless body[0]
+
+      body = body.collect do |str|
+        str.gsub(/\[e:([0-9A-F]{3})\]/) do |match|
+          emojiid = $1.scanf('%X').first
+          sjis = EMOJIID_TO_EMOJI[emojiid]
+          if sjis
+            # 絵文字があるので差替え
+            sjis
+          else
+            # 絵文字がないので代替文字列
+            emoji_data = EMOJI_DATA[emojiid]
+            NKF.nkf('-Ws', (emoji_data[:fallback] || emoji_data[:name] || '〓'))
+          end
+        end
+      end
+      
+      content = (body.is_a?(Array) ? body[0] : body).to_s
+      headers['Content-Length'] = (content.respond_to?(:bytesize) ? content.bytesize : content.size).to_s if headers.member?('Content-Length')
+      
+      [status, headers, body]
+    end
+    
+    private
+    # 絵文字コード -> 絵文字ID 対応表から、絵文字コード検出用の正規表現をつくる
+    # 複数の絵文字の組み合わせのものを前におくことで
+    # そっちを優先的にマッチさせる
+    def sjis_regexp
+      @sjis_regexp if @sjis_regexp
+      matchers = if RUBY_VERSION >= '1.9.1'
+                   EMOJI_TO_EMOJIID.keys.sort_by{ |codes| - codes.size }.collect{ |sjis| Regexp.new(Regexp.escape(sjis), nil)}
+                 else
+                   EMOJI_TO_EMOJIID.keys.sort_by{ |codes| - codes.size }.collect{ |sjis| Regexp.new(Regexp.escape(sjis, 's'), nil, 's')}
+                 end
+      @sjis_regexp = Regexp.union(*matchers)
+    end
+
+  end
+end
+
+# 変換テーブル読み込み
+require 'rack/ketai/carrier/emoji/ausjisstrtoemojiid'
+
+Rack::Ketai::Carrier::Au.filters = [Rack::Ketai::Carrier::Au::Filter.instance]
+

data/lib/egalite/keitai/rack/ketai/carrier/docomo.rb

@@ -0,0 +1,80 @@
+# -*- coding: utf-8 -*-
+
+require 'scanf'
+
+module Rack::Ketai::Carrier
+  class Docomo < Abstract
+
+    USER_AGENT_REGEXP = /^DoCoMo/
+  end
+end
+
+class Rack::Ketai::Carrier::Docomo
+  class Filter < ::Rack::Ketai::Carrier::Abstract::SjisFilter
+    
+    def inbound(env)
+      # ドコモSJISバイナリ -> 絵文字ID表記
+      request = Rack::Request.new(env)
+      
+      request.params  # 最低でも1回呼んでないと query_stringが未設定
+      
+      converter = lambda do |value|
+        value.gsub(sjis_regexp) do |match|
+          format("[e:%03X]", EMOJI_TO_EMOJIID[match])
+        end
+      end
+      deep_apply(request.env["rack.request.query_hash"], &converter)
+      deep_apply(request.env["rack.request.form_hash"], &converter)
+      
+      # 文字コード変換
+      super(request.env)
+    end
+    
+    def outbound(status, headers, body)
+      status, headers, body = super
+
+      return [status, headers, body] unless body[0]
+
+      body = body.collect do |str|
+        str.gsub(/\[e:([0-9A-F]{3})\]/) do |match|
+          emojiid = $1.scanf('%X').first
+          sjis = EMOJIID_TO_EMOJI[emojiid]
+          if sjis
+            # 絵文字があるので差替え
+            sjis
+          else
+            # 絵文字がないので代替文字列
+            emoji_data = EMOJI_DATA[emojiid]
+            NKF.nkf('-Ws', (emoji_data[:fallback] || emoji_data[:name] || '〓'))
+          end
+        end
+      end
+      
+      content = (body.is_a?(Array) ? body[0] : body).to_s
+      headers['Content-Length'] = (content.respond_to?(:bytesize) ? content.bytesize : content.size).to_s if headers.member?('Content-Length')
+      
+      [status, headers, body]
+    end
+    
+    private
+    # 絵文字コード -> 絵文字ID 対応表から、絵文字コード検出用の正規表現をつくる
+    # 複数の絵文字の組み合わせのものを前におくことで
+    # そっちを優先的にマッチさせる
+    def sjis_regexp
+      @sjis_regexp if @sjis_regexp
+      matchers = if RUBY_VERSION >= '1.9.1'
+                   EMOJI_TO_EMOJIID.keys.sort_by{ |codes| - codes.size }.collect{ |sjis| Regexp.new(Regexp.escape(sjis), nil)}
+                 else
+                   EMOJI_TO_EMOJIID.keys.sort_by{ |codes| - codes.size }.collect{ |sjis| Regexp.new(Regexp.escape(sjis, 's'), nil, 's')}
+                 end
+      @sjis_regexp = Regexp.union(*matchers)
+    end
+
+  end
+end
+
+# 変換テーブル読み込み
+require 'rack/ketai/carrier/emoji/docomosjisstrtoemojiid'
+
+Rack::Ketai::Carrier::Docomo.filters = [Rack::Ketai::Carrier::Docomo::Filter.instance]
+