auser-suitcase 0.0.2

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Ari Lerner
+
+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.

data/README.rdoc

@@ -0,0 +1,31 @@
+= Suitcase
+
+Easy-peasy transfer of bulk files with the Suitcase!
+
+Suitcase takes care of the ugly work for you when dealing with lots of dependencies and and peculiarities with transferring dependencies.
+
+== Simple case:
+
+Suitcase::Zipper.add("file_to_transfer.txt")
+Suitcase::Zipper.add("directory_to_transfer/")
+
+Suitcase::Zipper.zip!("/full/path/to/filename.tar.gz") # => "/full/path/to/filename.tar.gz"
+
+== Suitcase will download the latest gems for you and add them to the suitcase simply by calling
+
+Suitcase::Zipper.gems "auser-poolparty", "nanite", ...
+
+It first attempts to download it from github and then falls back and tries with rubyforge.
+
+They are added to the suitcase under the gems/ namespace.
+
+== Suitcase will download packages for you off the internet as well given a source, for instance:
+
+Suitcase::Zipper.packages("ftp://ftp.ruby-lang.org/pub/ruby/stable-snapshot.tar.gz", "#{Dir.pwd}/packages")
+
+will download the ruby stable-snapshot.tar.gz and put it into the suitcase
+
+
+== Copyright
+
+Copyright (c) 2009 Ari Lerner. See LICENSE for details.

data/VERSION.yml

@@ -0,0 +1,4 @@
+--- 
+:major: 0
+:minor: 0
+:patch: 2

data/lib/suitcase.rb

@@ -0,0 +1,5 @@
+$:.unshift(File.join(File.dirname(__FILE__), "suitcase"))
+
+%w(zipper unzipper).each do |lib|
+  require lib
+end

data/lib/suitcase/unzipper.rb

@@ -0,0 +1,15 @@
+require 'rubygems'
+require "zlib"
+require 'archive/tar/minitar'
+
+module Suitcase
+  class UnZipper
+    
+    # TODO: Add a meaningful, portable unzip!
+    def self.unzip!(filepath, to=Dir.pwd)
+      # tgz = Zlib::GzipReader.new(File.open(filepath, 'rb'))      
+      # Archive::Tar::Minitar.unpack( tgz, to )
+    end
+    
+  end
+end

data/lib/suitcase/zipper.rb

@@ -0,0 +1,103 @@
+require 'rubygems'
+require 'archive/tar/minitar'
+
+module Suitcase
+  class Zipper
+
+    def self.items(default_dirs={})
+      @items ||= default_dirs
+    end
+    
+    def self.zip!(filepath)
+      filepath = filepath.include?(".tar.gz") ? filepath : "#{filepath}.tar.gz"
+      File.open(filepath,"w") do |tarfile|
+        Archive::Tar::Minitar::Writer.open(tarfile) do |tar|
+          items.each do |name, path|
+            data = open(path).read
+            tar.add_file_simple(name, :size=>data.size, :mode=>0644) { |f| f.write(data) }
+          end
+        end
+      end
+      filepath
+    end
+    
+    def self.build_dir!(dirpath)
+      ::FileUtils.mkdir_p dirpath unless ::File.directory? dirpath
+      items.each do |name, path|
+        end_path = "#{dirpath}/#{name}"
+        unless name == ::File.basename(name)
+          ::FileUtils.mkdir_p ::File.dirname(end_path) unless ::File.directory? ::File.dirname(end_path)
+        end
+        ::FileUtils.cp path, end_path
+      end
+      dirpath
+    end
+    
+    def self.flush!
+      @items = nil
+    end
+
+    def self.add(files_and_directories=[], namespace="")
+      files_and_directories.each do |file|
+        f = ::File.expand_path(file)        
+        if ::File.file? f
+          items.merge!(("#{namespace}/#{::File.basename(f)}").to_s => f)
+        elsif ::File.directory? f
+          Dir["#{f}/*"].each do |f|
+            add(f, "#{namespace.empty? ? "" : "#{namespace}/"}#{::File.basename(::File.dirname(f))}")
+          end
+        end
+      end
+    end
+
+    def self.gems(gem_list, gem_location)
+      require 'rubygems/dependency_installer'
+      gem_list = [gem_list] unless gem_list.is_a?(Array)
+      ensure_location_exists gem_location
+
+      cache_dir = "#{gem_location}/cache"
+      ::FileUtils.mkdir_p cache_dir rescue nil unless File.exist? cache_dir
+
+      locally_installed_gems = Gem::SourceIndex.from_installed_gems.map {|n,s| s.name }
+      
+      locally_installable_gems = gem_list & locally_installed_gems
+      remotely_installable = gem_list - locally_installable_gems
+      
+      # First, add the locally installed gems
+      locally_installable_gems.each do |spec|
+        spec = Gem::SourceIndex.from_installed_gems.find_name(spec).last#.sort_by {|a,b| a.version <=> b.version }.last                
+        f = Dir[File.join(Gem.dir, 'cache', "#{spec.full_name}.gem")].first
+        add(f, "gems")
+      end
+      
+      remotely_installable.each do |g|
+        di = Gem::DependencyInstaller.new
+        spec, url = di.find_spec_by_name_and_version(g).first
+        f = begin
+          Gem::RemoteFetcher.fetcher.download spec, "http://gems.github.com", gem_location
+        rescue Exception => e
+          Gem::RemoteFetcher.fetcher.download spec, url, gem_location
+        end
+        add(f, "gems")
+      end
+    end
+
+    def self.packages(package_list, package_location="#{Dir.pwd}/packages")
+      ensure_location_exists package_location
+      package_list.each do |package|
+        f = "#{package_location}/#{package.split('/').last}"
+        unless ::File.file? f
+          puts "downloading #{package} to #{f}"
+          `curl -L #{package} > #{package_location}/#{package.split('/').last}`
+        end
+        
+        add(f, "packages")
+      end
+    end
+    
+    def self.ensure_location_exists(loc)
+      ::FileUtils.mkdir_p loc unless ::File.directory? loc
+    end
+
+  end
+end

data/test/suitcase_test.rb

@@ -0,0 +1,89 @@
+require 'test_helper'
+
+class DependenciesTest < Test::Unit::TestCase
+  context "basics" do
+    should "should have a method called dedependencies" do
+      assert Suitcase::Zipper.respond_to?(:items)
+    end
+    should "should have a package(file) method" do
+      assert Suitcase::Zipper.respond_to?(:add)
+    end
+  end
+  context "adding gems" do
+    before do
+      Suitcase::Zipper.flush!
+    end
+    should "should have no gems before any are added" do
+      assert_equal Suitcase::Zipper.items.size, 0
+      assert_equal Suitcase::Zipper.items.class, Hash
+    end
+    should "be able to add files to the suitcase" do
+      Suitcase::Zipper.add("#{::File.dirname(__FILE__)}/test_helper.rb")
+      assert_equal Suitcase::Zipper.items.size, 1
+    end
+    should "be able to add directories to the suitcase" do
+      Suitcase::Zipper.add("#{::File.dirname(__FILE__)}/test_dir")
+      assert_equal Suitcase::Zipper.items.size, 2
+      assert Suitcase::Zipper.items["test_dir/box.rb"] =~ /test_dir\/box\.rb/
+    end
+    should "be able to add directories into namespaces" do
+      Suitcase::Zipper.add("#{::File.dirname(__FILE__)}/test_dir", "box")
+      assert Suitcase::Zipper.items["box/test_dir/box.rb"] =~ /test_dir\/box\.rb/
+    end
+    # UNCOMMENT THESE TO LIVE-TEST THE USAGE
+    should "be able to add gems to the suitcase" do
+      Suitcase::Zipper.gems("rake", Dir.pwd)
+      Suitcase::Zipper.build_dir! "#{Dir.pwd}/cache"
+      assert ::File.file?(::File.expand_path("#{Dir.pwd}/cache/gems/rake-0.8.4.gem"))
+    end
+    should "find the gem online if it is not locally installed" do
+      Suitcase::Zipper.gems("aaronp-meow", Dir.pwd)
+      assert ::File.file?(::File.expand_path("#{Dir.pwd}/cache/aaronp-meow-1.1.0.gem"))
+    end
+    # should "be able to add packages to the suitcase" do
+    #   Suitcase::Zipper.packages("ftp://ftp.ruby-lang.org/pub/ruby/stable-snapshot.tar.gz", "#{Dir.pwd}/packages")
+    #   assert_equal Suitcase::Zipper.items["packages/stable-snapshot.tar.gz"], ::File.expand_path("packages/stable-snapshot.tar.gz")
+    # end
+    should "zip the packages into a tarball without the extension" do
+      filepath = "#{::File.dirname(__FILE__)}/package"
+      Suitcase::Zipper.add("test_dir")
+      Suitcase::Zipper.add("test_helper.rb")
+      Suitcase::Zipper.zip!(filepath)
+      assert ::File.file?("#{filepath}.tar.gz")
+    end
+    should "zip the packages into a tarball with the extension" do
+      filepath = "#{::File.dirname(__FILE__)}/package.tar.gz"
+      Suitcase::Zipper.add("test_dir")
+      Suitcase::Zipper.add("test_helper.rb")
+      Suitcase::Zipper.zip!(filepath)
+      assert ::File.file?("#{filepath}")
+    end
+    should "be able to unpack the packages" do
+      filepath = "#{::File.dirname(__FILE__)}/package.tar.gz"
+      Suitcase::Zipper.add("test_dir")
+      Suitcase::Zipper.add("test_helper.rb")
+      Suitcase::Zipper.zip!(filepath)
+      
+      Suitcase::UnZipper.unzip!(filepath, "#{Dir.pwd}")
+      assert ::File.directory?("#{::File.dirname(filepath)}")
+    end
+    should "have a method called build_dir!" do
+      assert Suitcase::Zipper.respond_to?(:build_dir!)
+    end
+    should "call build_dir" do
+      Suitcase::Zipper.add("test_dir")
+      Suitcase::Zipper.add("test_helper.rb")
+      
+      pth = Suitcase::Zipper.build_dir!("/tmp/poolparty/deps")
+      
+      assert ::File.directory?("/tmp/poolparty/deps")
+      assert_equal pth, "/tmp/poolparty/deps"
+      ::FileUtils.rm_rf "/tmp/poolparty/deps"
+    end
+    after do
+      ::FileUtils.rm_rf "#{Dir.pwd}/packages"
+      ::FileUtils.rm_rf "#{Dir.pwd}/cache"
+      ::FileUtils.rm_rf "#{Dir.pwd}/package.tar.gz"
+    end
+  end
+end

data/test/test_dir/box.rb

@@ -0,0 +1 @@
+puts "I'm in a box!"

data/test/test_dir/test.txt

@@ -0,0 +1 @@
+Test txt file

data/test/test_helper.rb

@@ -0,0 +1,12 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+require "context"
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'suitcase/zipper'
+require 'suitcase/unzipper'
+
+class Test::Unit::TestCase
+end

metadata

@@ -0,0 +1,66 @@
+--- !ruby/object:Gem::Specification 
+name: auser-suitcase
+version: !ruby/object:Gem::Version 
+  version: 0.0.2
+platform: ruby
+authors: 
+- Ari Lerner
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-04-08 00:00:00 -07:00
+default_executable: 
+dependencies: []
+
+description: 
+email: arilerner@mac.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README.rdoc
+- LICENSE
+files: 
+- README.rdoc
+- VERSION.yml
+- lib/suitcase
+- lib/suitcase/unzipper.rb
+- lib/suitcase/zipper.rb
+- lib/suitcase.rb
+- test/suitcase_test.rb
+- test/test_dir
+- test/test_dir/box.rb
+- test/test_dir/test.txt
+- test/test_helper.rb
+- LICENSE
+has_rdoc: true
+homepage: http://github.com/auser/suitcase
+post_install_message: 
+rdoc_options: 
+- --inline-source
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: TODO
+test_files: []
+