sleipnir-api 0.2.1 → 0.3.0

data/lib/sleipnir_api/profile/key.rb

@@ -0,0 +1,120 @@
+require "sleipnir_api/util"
+require "sleipnir_api/profile/util"
+
+module SleipnirAPI
+  class Profile
+
+    # ini ファイルのキーに対応するオブジェクトです。
+    # このオブジェクトは SleipnirAPI::Profile::Section#key で取得します。
+    #
+    #   pnir = SleipnirAPI.new
+    #   ini = pnir.profile("CloseURL.ini")
+    #   sec = ini.section("ClosedURL2")
+    #   key = sec.key("URL0")
+    #   key.to_s  #=> "http://hogehoge"
+    #
+    class Key < ProfileElement
+
+      # SleipnirAPI::Profile::Section オブジェクトを返します
+      attr_reader :parent
+
+      # SleipnirAPI::Profile::Section オブジェクトを返します
+      alias section parent
+
+      # キー名を返します。
+      attr_reader :name
+
+      # #get_string などに指定するデフォルトの引数を取得します。
+      # 値は #parent から引き継いでいます。
+      attr_reader :default_opts
+
+      def initialize(parent, name, default_opts = nil)
+        super(parent, default_opts)
+        @name = name
+      end
+
+      # call-seq:
+      #   list(countkey="Count")
+      #   list(countkey="Count", :default => "default value")
+      #   list(countkey="Count", :cipher => true)
+      #   list(countkey="Count", :cipher => true, :default => "default value")
+      #
+      # このキーから連番キーを生成して、連番データをすべて読み込み配列で返します。
+      #
+      # 例:
+      #
+      #   pnir = SleipnirAPI.connect
+      #   proxy_ini = pnir.profile.proxy
+      #   proxy_sec = proxy_ini.Proxy
+      #   proxy_title = proxy_sec.Proxy0_Title
+      #   proxy_title.list
+      #
+      # See Also: SleipnirAPI::Profile#list
+      def list(countkey = "Count", opts = nil, &block)
+        @parent.list(@name, countkey, options(opts), &block)
+      end
+      alias to_a list
+
+      # call-seq:
+      #   get_string()
+      #   get_string(:default => -1)
+      #   get_string(:cipher => true)
+      #   get_string(:cipher => true, :default => -1)
+      #
+      # このキーの string 値を取得します。
+      #
+      # See Also: SleipnirAPI::Profile#get_string
+      def get_string(opts = nil)
+        @parent.get_string(@name, options(opts))
+      end
+      alias to_s get_string
+
+      # call-seq:
+      #   get_int()
+      #   get_int(:default => -1)
+      #   get_int(:cipher => true)
+      #   get_int(:cipher => true, :default => -1)
+      #
+      # このキーの int 値を取得します。
+      #
+      # See Also: SleipnirAPI::Profile#get_int
+      def get_int(opts = nil)
+        @parent.get_int(@name, options(opts))
+      end
+      alias to_i get_int
+
+      # call-seq:
+      #   write_string(data)
+      #   write_string(data, :cipher => true)
+      #
+      # このキーに指定されたデータを書き込みます。
+      # script.ini でない場合は SleipnirAPI::Profile::ReadOnlyError を raise します。
+      #
+      # See Also: SleipnirAPI::Profile#write_string
+      def write_string(data, opts = nil)
+        @parent.write_string(@name, data, options(opts))
+      end
+
+      # call-seq:
+      #   write_int(data)
+      #   write_int(data, :cipher => true)
+      #
+      # このキーに指定されたデータを書き込みます。
+      # script.ini でない場合は SleipnirAPI::Profile::ReadOnlyError を raise します。
+      #
+      # See Also: SleipnirAPI::Profile#write_int
+      def write_int(data, opts = nil)
+        @parent.write_int(@name, data, options(opts))
+      end
+
+      # このキーを削除します。
+      # script.ini でない場合は SleipnirAPI::Profile::ReadOnlyError を raise します。
+      #
+      # See Also: SleipnirAPI::Profile#delete
+      def delete
+        @parent.delete(name)
+      end
+
+    end
+  end
+end

data/lib/sleipnir_api/profile/section.rb

@@ -0,0 +1,147 @@
+require "sleipnir_api/util"
+require "sleipnir_api/profile/util"
+
+module SleipnirAPI
+  class Profile
+
+    # ini ファイルのセクションに対応するオブジェクトです。
+    # このオブジェクトは SleipnirAPI::Profile::Ini#section で取得します。
+    #
+    #   pnir = SleipnirAPI.new
+    #   ini = pnir.profile("CloseURL.ini")
+    #   sec = ini.section("ClosedURL2")
+    #   sec.get_string("URL0")  #=> "http://hogehoge"
+    #
+    # #key でこのセクション内のキーに対応する SleipnirAPI::Profile::Key
+    # オブジェクトを取得できます。
+    class Section < ProfileElement
+
+      # SleipnirAPI::Profile::Ini オブジェクトを返します
+      attr_reader :parent
+
+      # SleipnirAPI::Profile::Ini オブジェクトを返します
+      alias ini parent
+
+      # セクション名を返します。
+      attr_reader :name
+
+      # セクション名を返します。
+      alias to_s name
+
+      # #get_string などに指定するデフォルトの引数を取得します。
+      # 値は #parent から引き継いでいます。
+      attr_reader :default_opts
+
+      def initialize(parent, name, default_opts = nil)
+        super(parent, default_opts)
+        @name = name
+      end
+
+      # call-seq:
+      #   list(keyfmt, countkey="Count")
+      #   list(keyfmt, countkey="Count", :default => "default value")
+      #   list(keyfmt, countkey="Count", :cipher => true)
+      #   list(keyfmt, countkey="Count", :cipher => true, :default => "default value")
+      #
+      # このセクションから連番キーのデータをすべて読み込み配列で返します。
+      #
+      # 例:
+      #
+      #   pnir = SleipnirAPI.connect
+      #   proxy_ini = pnir.profile.proxy
+      #   proxy_sec = proxy_ini.Proxy
+      #   proxy_sec.list("Proxy0_Title")
+      #
+      # See Also: SleipnirAPI::Profile#list
+      def list(keyformat, countkey = "Count", opts = nil, &block)
+        @parent.list(@name, keyformat, countkey, options(opts), &block)
+      end
+
+      # call-seq:
+      #   get_string(key)
+      #   get_string(key, :default => -1)
+      #   get_string(key, :cipher => true)
+      #   get_string(key, :cipher => true, :default => -1)
+      #
+      # このセクションの指定されたキーを取得します。
+      #
+      # See Also: SleipnirAPI::Profile#get_string
+      def get_string(key, opts = nil)
+        @parent.get_string(@name, key, options(opts))
+      end
+      alias [] get_string
+
+      # call-seq:
+      #   get_int(key)
+      #   get_int(key, :default => -1)
+      #   get_int(key, :cipher => true)
+      #   get_int(key, :cipher => true, :default => -1)
+      #
+      # このセクションの指定されたキーを取得します。
+      #
+      # See Also: SleipnirAPI::Profile#get_int
+      def get_int(key, opts = nil)
+        @parent.get_int(@name, key, options(opts))
+      end
+
+      # call-seq:
+      #   write_string(key, data)
+      #   write_string(key, data, :cipher => true)
+      #
+      # このセクションの指定されたキーを書き込みます。
+      # script.ini でない場合は SleipnirAPI::Profile::ReadOnlyError を raise します。
+      #
+      # See Also: SleipnirAPI::Profile#write_string
+      def write_string(key, data, opts = nil)
+        @parent.write_string(@name, key, data, options(opts))
+      end
+
+      # call-seq:
+      #   write_int(key, data)
+      #   write_int(key, data, :cipher => true)
+      #
+      # このセクションの指定されたキーを書き込みます。
+      # script.ini でない場合は SleipnirAPI::Profile::ReadOnlyError を raise します。
+      #
+      # See Also: SleipnirAPI::Profile#write_int
+      def write_int(key, data, opts = nil)
+        @parent.write_int(@name, key, data, options(opts))
+      end
+
+      # このセクションの指定されたキーを削除します。
+      # script.ini でない場合は SleipnirAPI::Profile::ReadOnlyError を raise します。
+      #
+      # See Also: SleipnirAPI::Profile#delete
+      def delete(key)
+        @parent.delete(@name, key)
+      end
+
+      # キーを操作する Sleipnir::Profile::Key オブジェクトを返します。
+      #
+      #   pnir = SleipnirAPI.connect
+      #   proxy = pnir.profile.ini("Proxy.ini", :default => 123)
+      #   sec = proxy.section("Proxy")
+      #   key = sec.key("Count")
+      #   key.get_int
+      #
+      # See Also: #method_missing
+      def key(name, opts = nil)
+        Key.new(self, str(name), options(opts))
+      end
+
+      # メソッド名をキー名とみなして Sleipnir::Profile::Key オブジェクトを返します。
+      #
+      #   pnir = SleipnirAPI.connect
+      #   proxy = pnir.profile.Proxy(:default => 123)
+      #   sec = proxy.Proxy
+      #   key = sec.Count
+      #   key.get_int
+      #
+      # See Also: #key
+      def method_missing(mid, *args, &block)
+        key(mid.to_s, *args, &block)
+      end
+
+    end
+  end
+end

data/lib/sleipnir_api/profile/util.rb

@@ -0,0 +1,82 @@
+require "sleipnir_api/util"
+
+module SleipnirAPI
+  class Profile
+    #
+    # Script.ini 以外の ini ファイルに対して、書き込み (write_int, write_string, delete)
+    # を行った場合に raise する例外
+    #
+    class ReadOnlyError < StandardError; end
+
+    module OptionArgument #:nodoc:
+      include SleipnirAPI::OptionUtil
+
+      def options(opts, *valid_keys)
+        if opts and not Hash === opts
+          raise ArgumentError, "Invalid options: #{opts.inspect}:#{opts.class} (expected Hash)"
+        end
+        r = @default_opts ? @default_opts.dup : {}
+        valid_keys = [:cipher, :ini, :default] if valid_keys.empty?
+        if opts
+          invalid = (opts.keys - valid_keys).inject({}){|acc,e| acc[e] = opts[e]; acc }
+          unless invalid.empty?
+            raise ArgumentError, "Invalid options: #{invalid.inspect}"
+          end
+          r.update(opts)
+        end
+        r
+      end
+    end
+
+    module DataUtil #:nodoc:
+      def str(*args)
+        args = args.map{|e|
+          case e
+          when String
+            e
+          when Symbol
+            e.to_s
+          else
+            raise ArgumentError, "Invalid date #{e.inspect}:#{e.class} (expected String or Symbol)"
+          end
+        }
+        (args.length == 1) ? args[0] : args
+      end
+
+      def check_data(section, key, data, expected)
+        unless expected === data
+          raise ArgumentError, "Invalid data `#{data.inspect}' (#{data.class}): section=#{section}, key=#{key} (expected #{expected})"
+        end
+      end
+    end
+
+    class ProfileElement #:nodoc:
+      include OptionArgument
+      include DataUtil
+
+      def initialize(parent, default_opts)
+        @parent = parent
+        @default_opts = default_opts || {}
+      end
+
+      def parents
+        @parent.nil? ? [] : @parent.nodes
+      end
+
+      def nodes
+        parents + [self]
+      end
+
+      def inspect
+        args = [
+          self.class,
+          object_id << 1,
+          nodes.map{|e| e.name }.join("/"),
+          @default_opts.inspect,
+        ]
+        "#<%s:0x%x: %s, opts=%s>" % args
+      end
+
+    end
+  end
+end

data/lib/sleipnir_api/searcher.rb

@@ -0,0 +1,133 @@
+require "sleipnir_api/util"
+
+module SleipnirAPI
+
+  class Searcher #:nodoc:
+    include SleipnirAPI::Util
+    include SleipnirAPI::OptionUtil
+
+    HILIGHT_TAG       = "span"
+    HILIGHT_CLASSNAME = "ruby-sleipnir-api-hilight"
+    HILIGHT_STYLE     = "color: black; background-color: #ffff66; font-weight: bold"
+
+    def initialize(tab)
+      @tab = tab
+      @range = nil
+    end
+
+    def each_find_text(keyword, range = nil)
+      range = @tab.document.body.createTextRange
+      while range.FindText(keyword)
+        yield range
+        range.Collapse(false)
+      end
+    end
+
+    def find_text(keyword, *options)
+      opts, _ = parse_option_arguments(options)
+
+      if not @range
+        @range = @tab.document.body.createTextRange
+      else
+        @range.Collapse(false)
+      end
+
+      if @range.FindText(keyword)
+        @range.Select if opts[:select]
+        @range.ScrollIntoView if opts[:scroll]
+        true
+      else
+        @tab.document.Selection.empty if opts[:select]
+        @range = nil
+        false
+      end
+    end
+
+    def hilight(*keywords)
+      remove_hilight
+      range = @tab.document.body.createTextRange
+      matches = []
+      keywords.each do |kwd|
+        each_find_text(kwd, range) do |range|
+          matched_html = range.HTMLText
+          matches << matched_html.gsub(/\A(<[^<>]+>)+/, "").gsub(/(<[^<>]+>)+\z/, "")
+        end
+        range.Collapse(true)
+      end
+
+      all=@tab.document.body.innerHTML
+      @tab.document.body.innerHTML = matches.uniq.inject(all) do |all,m|
+        add_hilight_tag(m, all)
+      end
+    end
+
+    def add_hilight_tag(matched, html=nil, tag=HILIGHT_TAG, classname=HILIGHT_CLASSNAME, style=HILIGHT_STYLE)
+      if html.nil?
+        "<#{tag} class='#{classname}' style='#{style}'>#{matched}</#{tag}>"
+      else
+        matched = matched.gsub(/\A(<[^<>]+>)+/, "").gsub(/(<[^<>]+>)+\z/, "")
+        html.gsub(/#{Regexp.quote(matched)}/) do
+          matched.split(/(<[^<>]+>)/).map{|part|
+            if part[0] != ?< and part =~ /\S/
+              "<#{tag} class='#{classname}' style='#{style}'>#{part}</#{tag}>"
+            else
+              part
+            end
+          }.join
+        end
+      end
+    end
+
+    def remove_hilight
+      @tab.document.body.getElementsByTagName(HILIGHT_TAG).each do |span|
+        span.OuterHTML = span.InnerHTML if span.ClassName == HILIGHT_CLASSNAME
+      end
+    end
+
+=begin
+    def hilight(*keywords)
+      remove_hilight
+      range = @tab.document.body.createTextRange
+      keywords.each do |kwd|
+        each_find_text(kwd, range) do |range|
+          matched_html = range.HTMLText
+          parent_tags = matched_html[/\A(?:<[^<>]+>)+/]
+          if parent_tags.nil?
+            range.PasteHTML(add_hilight_tag(matched_html))
+          else
+            e = parent_tags.scan(/<(\w+)/).flatten.reverse.inject(range.ParentElement) do |elem,tag|
+              if elem.TagName == tag
+                elem.ParentElement
+              elsif elem.InnerHTML =~ /\A<#{tag}/i
+                elem
+              else
+                raise "#{elem}:#{tag}:#{parent_tags.inspect}"
+              end
+            end
+            e.innerHTML = add_hilight_tag(matched_html, e.innerHTML)
+          end
+        end
+        range.Collapse(true)
+      end
+    end
+
+    def add_hilight_tag(matched, html=nil, tag=HILIGHT_TAG, classname=HILIGHT_CLASSNAME, style=HILIGHT_STYLE)
+      if html.nil?
+        "<#{tag} class='#{classname}' style='#{style}'>#{matched}</#{tag}>"
+      else
+        matched = matched.gsub(/\A(<[^<>]+>)+/, "").gsub(/(<[^<>]+>)+\z/, "")
+        html.sub(/#{Regexp.quote(matched)}/) do
+          matched.split(/(<[^<>]+>)/).map{|part|
+            if part[0] != ?< and part =~ /\S/
+              "<#{tag} class='#{classname}' style='#{style}'>#{part}</#{tag}>"
+            else
+              part
+            end
+          }.join
+        end
+      end
+    end
+=end
+
+  end
+end