ghazel-aws-s3 0.6.4 → 0.6.4.1

data/support/faster-xml-simple/lib/faster_xml_simple.rb

@@ -0,0 +1,190 @@
+# 
+# Copyright (c) 2006 Michael Koziarski
+# 
+# Permission is hereby granted, free of charge, to any person obtaining a copy of
+# this software and associated documentation files (the "Software"), to deal in the
+# Software without restriction, including without limitation the rights to use,
+# copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the
+# Software, and to permit persons to whom the Software is furnished to do so,
+# subject to the following conditions:
+# 
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'rubygems'
+require 'xml/libxml'
+
+class FasterXmlSimple
+  Version = '0.5.0'
+  class << self
+    # Take an string containing XML, and returns a hash representing that 
+    # XML document.  For example:
+    # 
+    #   FasterXmlSimple.xml_in("<root><something>1</something></root>")
+    #   {"root"=>{"something"=>{"__content__"=>"1"}}}
+    #
+    # Faster XML Simple is designed to be a drop in replacement for the xml_in
+    # functionality of http://xml-simple.rubyforge.org
+    #
+    # The following options are supported:
+    # 
+    # * <tt>contentkey</tt>: The key to use for the content of text elements,
+    #   defaults to '\_\_content__'
+    # * <tt>forcearray</tt>: The list of elements which should always be returned
+    #   as arrays.  Under normal circumstances single element arrays are inlined.
+    # * <tt>suppressempty</tt>: The value to return for empty elements, pass +true+
+    #   to remove empty elements entirely.
+    # * <tt>keeproot</tt>:  By default the hash returned has a single key with the
+    #   name of the root element.  If the name of the root element isn't 
+    #   interesting to you, pass +false+. 
+    # * <tt>forcecontent</tt>:  By default a text element with no attributes, will 
+    #   be collapsed to just a string instead of a hash with a single key.  
+    #   Pass +true+ to prevent this.
+    #
+    #
+    def xml_in(string, options={})
+      new(string, options).out
+    end
+  end
+  
+  def initialize(string, options) #:nodoc:
+    @doc     = parse(string)
+    @options = default_options.merge options
+  end
+  
+  def out #:nodoc:
+    if @options['keeproot']
+      {@doc.root.name => collapse(@doc.root)}
+    else
+      collapse(@doc.root)
+    end
+  end
+  
+  private
+    def default_options
+      {'contentkey' => '__content__', 'forcearray' => [], 'keeproot'=>true}
+    end
+  
+    def collapse(element)
+      result = hash_of_attributes(element) 
+      if text_node? element
+        text = collapse_text(element)
+        result[content_key] = text if text =~ /\S/
+      elsif element.children?
+        element.inject(result) do |hash, child|
+          unless child.text?
+            child_result = collapse(child) 
+            (hash[child.name] ||= []) << child_result
+          end
+          hash
+        end
+      end
+      if result.empty?
+        return empty_element
+      end
+      # Compact them to ensure it complies with the user's requests
+      inline_single_element_arrays(result) 
+      remove_empty_elements(result) if suppress_empty?
+      if content_only?(result) && !force_content?
+        result[content_key]
+      else
+        result
+      end
+    end
+    
+    def content_only?(result)
+      result.keys == [content_key]
+    end
+  
+    def content_key
+      @options['contentkey']
+    end
+  
+    def force_array?(key_name)
+      Array(@options['forcearray']).include?(key_name)
+    end
+  
+    def inline_single_element_arrays(result)
+      result.each do |key, value|
+        if value.size == 1 && value.is_a?(Array) && !force_array?(key)
+          result[key] = value.first
+        end
+      end    
+    end
+  
+    def remove_empty_elements(result)
+      result.each do |key, value|
+        if value == empty_element
+          result.delete key
+        end
+      end
+    end
+    
+    def suppress_empty?
+      @options['suppressempty'] == true
+    end
+     
+    def empty_element
+      if !@options.has_key? 'suppressempty'
+        {}
+      else
+        @options['suppressempty']
+      end
+    end
+
+    # removes the content if it's nothing but blanks,  prevents
+    # the hash being polluted with lots of content like "\n\t\t\t" 
+    def suppress_empty_content(result)
+      result.delete content_key if result[content_key] !~ /\S/ 
+    end
+  
+    def force_content?
+      @options['forcecontent']
+    end
+  
+    # a text node is one with 1 or more child nodes which are
+    # text nodes, and no non-text children, there's no sensible
+    # way to support nodes which are text and markup like:
+    # <p>Something <b>Bold</b> </p>
+    def text_node?(element)
+      !element.text? && element.all? {|c| c.text?}
+    end
+  
+    # takes a text node, and collapses it into a string
+    def collapse_text(element)
+      element.map {|c| c.content } * ''
+    end
+  
+    def hash_of_attributes(element)
+      result = {}
+      element.each_attr do |attribute| 
+        name = attribute.name
+        name = [attribute.ns, attribute.name].join(':') if attribute.ns?
+        result[name] = attribute.value 
+      end
+      result
+    end
+  
+    def parse(string)
+      if string == ''
+        string = ' '
+      end
+      XML::Parser.string(string).parse
+    end
+end
+
+# Don't overwrite XmlSimple.xml_in since FasterXmlSimple's implementation isn't
+# 100% compatible.
+#
+# class XmlSimple # :nodoc:
+#   def self.xml_in(*args)
+#     FasterXmlSimple.xml_in *args
+#   end
+# end

data/support/faster-xml-simple/test/regression_test.rb

@@ -0,0 +1,47 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class RegressionTest < FasterXSTest
+  def test_content_nil_regressions
+    expected = {"asdf"=>{"jklsemicolon"=>{}}}
+    assert_equal expected, FasterXmlSimple.xml_in("<asdf><jklsemicolon /></asdf>")
+    assert_equal expected, FasterXmlSimple.xml_in("<asdf><jklsemicolon /></asdf>", 'forcearray'=>['asdf'])
+  end
+  
+  def test_s3_regression
+    str = File.read("test/fixtures/test-7.xml")
+    assert_nil FasterXmlSimple.xml_in(str)["AccessControlPolicy"]["AccessControlList"]["__content__"]
+  end
+  
+  def test_xml_simple_transparency
+    assert_equal XmlSimple.xml_in("<asdf />"), FasterXmlSimple.xml_in("<asdf />")
+  end
+  
+  def test_suppress_empty_variations
+    str = "<asdf><fdsa /></asdf>"
+    
+    assert_equal Hash.new, FasterXmlSimple.xml_in(str)["asdf"]["fdsa"]
+    assert_nil FasterXmlSimple.xml_in(str, 'suppressempty'=>nil)["asdf"]["fdsa"]
+    assert_equal '', FasterXmlSimple.xml_in(str, 'suppressempty'=>'')["asdf"]["fdsa"]
+    assert !FasterXmlSimple.xml_in(str, 'suppressempty'=>true)["asdf"].has_key?("fdsa")
+  end
+
+  def test_empty_string_doesnt_crash
+    assert_raise(XML::Parser::ParseError) do
+      silence_stderr do 
+        FasterXmlSimple.xml_in('')
+      end
+    end
+  end
+  
+  def test_keeproot_false
+    str = "<asdf><fdsa>1</fdsa></asdf>"
+    expected = {"fdsa"=>"1"}
+    assert_equal expected, FasterXmlSimple.xml_in(str, 'keeproot'=>false)
+  end
+  
+  def test_keeproot_false_with_force_content
+    str = "<asdf><fdsa>1</fdsa></asdf>"
+    expected = {"fdsa"=>{"__content__"=>"1"}}
+    assert_equal expected, FasterXmlSimple.xml_in(str, 'keeproot'=>false, 'forcecontent'=>true)
+  end
+end

data/support/faster-xml-simple/test/test_helper.rb

@@ -0,0 +1,17 @@
+
+require 'test/unit'
+require 'faster_xml_simple'
+
+class FasterXSTest < Test::Unit::TestCase
+  def default_test
+  end
+  
+  def silence_stderr
+    str = STDERR.dup
+    STDERR.reopen("/dev/null")
+    STDERR.sync=true
+    yield
+  ensure
+    STDERR.reopen(str)
+  end
+end

data/support/faster-xml-simple/test/xml_simple_comparison_test.rb

@@ -0,0 +1,46 @@
+require File.dirname(__FILE__) + '/test_helper'
+require 'yaml'
+
+class XmlSimpleComparisonTest < FasterXSTest
+  
+  # Define test methods
+  
+  Dir["test/fixtures/test-*.xml"].each do |file_name|
+    xml_file_name = file_name
+    method_name = File.basename(file_name, ".xml").gsub('-', '_')
+    yml_file_name = file_name.gsub('xml', 'yml')
+    rails_yml_file_name = file_name.gsub('xml', 'rails.yml')
+    class_eval <<-EOV, __FILE__, __LINE__
+      def #{method_name}
+        assert_equal YAML.load(File.read('#{yml_file_name}')), 
+              FasterXmlSimple.xml_in(File.read('#{xml_file_name}'), default_options )
+      end
+      
+      def #{method_name}_rails
+        assert_equal YAML.load(File.read('#{rails_yml_file_name}')), 
+              FasterXmlSimple.xml_in(File.read('#{xml_file_name}'), rails_options)
+      end
+    EOV
+  end
+  
+  def default_options
+    {
+       'keeproot'      => true, 
+       'contentkey'    => '__content__', 
+       'forcecontent'  => true, 
+       'suppressempty' => nil,
+       'forcearray'    => ['something-else']
+    }
+  end
+  
+  def rails_options
+    {
+      'forcearray'   => false,
+      'forcecontent' => true,
+      'keeproot'     => true,
+      'contentkey'   => '__content__'
+    }
+  end
+  
+
+end

data/support/rdoc/code_info.rb

@@ -0,0 +1,211 @@
+require 'rubygems'
+require 'rake'
+require 'rdoc/rdoc'
+
+module RDoc
+  class CodeInfo    
+    class << self
+      def parse(wildcard_pattern = nil)
+        @info_for_corpus = parse_files(wildcard_pattern)
+      end
+      
+      def for(constant)
+        new(constant).info
+      end
+      
+      def info_for_corpus
+        raise RuntimeError, "You must first generate a corpus to search by using RDoc::CodeInfo.parse" unless @info_for_corpus
+        @info_for_corpus
+      end
+      
+      def parsed_files
+        info_for_corpus.map {|info| info.file_absolute_name}
+      end
+      
+      def files_to_parse
+        @files_to_parse ||= Rake::FileList.new
+      end
+      
+      private
+        def parse_files(pattern)
+          files   = pattern ? Rake::FileList[pattern] : files_to_parse
+          options = Options.instance
+          options.parse(files << '-q', RDoc::GENERATORS)
+          rdoc.send(:parse_files, options)
+        end
+        
+        def rdoc
+          TopLevel.reset
+          rdoc  = RDoc.new
+          stats = Stats.new
+          # We don't want any output so we'll override the print method
+          stats.instance_eval { def print; nil end } 
+          rdoc.instance_variable_set(:@stats, stats)
+          rdoc
+        end
+    end
+    
+    attr_reader :info
+    def initialize(location)
+      @location = CodeLocation.new(location)
+      find_constant
+      find_method if @location.has_method?
+    end
+    
+    private
+      attr_reader :location
+      attr_writer :info
+      def find_constant
+        parts = location.namespace_parts
+        self.class.info_for_corpus.each do |file_info|
+          @info = parts.inject(file_info) do |result, const_part|
+            (result.find_module_named(const_part) || result.find_class_named(const_part)) || break
+          end
+          return if info
+        end
+      end
+      
+      def find_method
+        return unless info
+        self.info = info.method_list.detect do |method_info|
+          next unless method_info.name == location.method_name
+          if location.class_method?
+            method_info.singleton
+          elsif location.instance_method?
+            !method_info.singleton
+          else
+            true
+          end
+        end
+      end
+  end
+  
+  class CodeLocation
+    attr_reader :location
+
+    def initialize(location)
+      @location = location
+    end
+
+    def parts
+      location.split(/::|\.|#/)
+    end
+
+    def namespace_parts
+      has_method? ? parts[0...-1] : parts
+    end
+
+    def has_method?
+      ('a'..'z').include?(parts.last[0, 1])
+    end
+
+    def instance_method?
+      !location['#'].nil?
+    end
+
+    def class_method?
+      has_method? && !location[/#|\./]
+    end
+
+    def method_name
+      parts.last if has_method?
+    end
+  end
+end
+
+if __FILE__ == $0
+  require 'test/unit'
+  class CodeInfoTest < Test::Unit::TestCase
+    def setup
+      RDoc::CodeInfo.parse(__FILE__)
+    end
+    
+    def test_constant_lookup
+      assert RDoc::CodeInfo.for('RDoc')
+      
+      info = RDoc::CodeInfo.for('RDoc::CodeInfo')
+      assert_equal 'CodeInfo', info.name      
+    end
+    
+    def test_method_lookup
+      {'RDoc::CodeInfo.parse'          => true,
+       'RDoc::CodeInfo::parse'         => true,
+       'RDoc::CodeInfo#parse'          => false,
+       'RDoc::CodeInfo.find_method'    => true,
+       'RDoc::CodeInfo::find_method'   => false,
+       'RDoc::CodeInfo#find_method'    => true,
+       'RDoc::CodeInfo#no_such_method' => false,
+       'RDoc::NoSuchConst#foo'         => false}.each do |location, result_of_lookup|
+         assert_equal result_of_lookup, !RDoc::CodeInfo.for(location).nil?
+       end
+    end
+  end
+  
+  class CodeLocationTest < Test::Unit::TestCase
+    def test_parts
+       {'Foo'           => %w(Foo),
+        'Foo::Bar'      => %w(Foo Bar),
+        'Foo::Bar#baz'  => %w(Foo Bar baz),
+        'Foo::Bar.baz'  => %w(Foo Bar baz),
+        'Foo::Bar::baz' => %w(Foo Bar baz),
+        'Foo::Bar::Baz' => %w(Foo Bar Baz)}.each do |location, parts|
+          assert_equal parts, RDoc::CodeLocation.new(location).parts
+        end
+    end
+    
+    def test_namespace_parts
+      {'Foo'           => %w(Foo),
+       'Foo::Bar'      => %w(Foo Bar),
+       'Foo::Bar#baz'  => %w(Foo Bar),
+       'Foo::Bar.baz'  => %w(Foo Bar),
+       'Foo::Bar::baz' => %w(Foo Bar),
+       'Foo::Bar::Baz' => %w(Foo Bar Baz)}.each do |location, namespace_parts|
+         assert_equal namespace_parts, RDoc::CodeLocation.new(location).namespace_parts
+       end
+     end
+    
+    def test_has_method?
+      {'Foo'           => false,
+       'Foo::Bar'      => false,
+       'Foo::Bar#baz'  => true,
+       'Foo::Bar.baz'  => true,
+       'Foo::Bar::baz' => true,
+       'Foo::Bar::Baz' => false}.each do |location, has_method_result|
+         assert_equal has_method_result, RDoc::CodeLocation.new(location).has_method?
+       end
+     end
+     
+    def test_instance_method?
+      {'Foo'           => false,
+       'Foo::Bar'      => false,
+       'Foo::Bar#baz'  => true,
+       'Foo::Bar.baz'  => false,
+       'Foo::Bar::baz' => false,
+       'Foo::Bar::Baz' => false}.each do |location, is_instance_method|
+         assert_equal is_instance_method, RDoc::CodeLocation.new(location).instance_method?
+       end
+     end
+     
+     def test_class_method?
+       {'Foo'           => false,
+        'Foo::Bar'      => false,
+        'Foo::Bar#baz'  => false,
+        'Foo::Bar.baz'  => false,
+        'Foo::Bar::baz' => true,
+        'Foo::Bar::Baz' => false}.each do |location, is_class_method|
+          assert_equal is_class_method, RDoc::CodeLocation.new(location).class_method?
+        end
+      end
+      
+      def test_method_name
+        {'Foo'           => nil,
+         'Foo::Bar'      => nil,
+         'Foo::Bar#baz'  => 'baz',
+         'Foo::Bar.baz'  => 'baz',
+         'Foo::Bar::baz' => 'baz',
+         'Foo::Bar::Baz' => nil}.each do |location, method_name|
+           assert_equal method_name, RDoc::CodeLocation.new(location).method_name
+         end
+       end
+  end
+end