sourcecontrol 0.0.1

data/History.txt

@@ -0,0 +1,6 @@
+== 0.0.1 / 2007-02-17
+
+* 1 major enhancement
+  * First release, as a requirement for RPlug
+  * This is as bare-bones as it gets, folks
+

data/Manifest.txt

@@ -0,0 +1,13 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+bin/sc
+lib/source_control.rb
+lib/source_control/base.rb
+lib/source_control/cvs.rb
+lib/source_control/darcs.rb
+lib/source_control/mercurial.rb
+lib/source_control/subversion.rb
+lib/source_control/svk.rb
+test/test_source_control.rb

data/README.txt

@@ -0,0 +1,48 @@
+source_control
+    by Jamie Macey and Steven Baker
+    http://dev.tracefunc.com/source_control/
+
+== DESCRIPTION:
+  
+FIX (describe your package)
+
+== FEATURES/PROBLEMS:
+  
+* FIX (list of features or problems)
+
+== SYNOPSYS:
+
+  FIX (code sample of usage)
+
+== REQUIREMENTS:
+
+* FIX (list of requirements)
+
+== INSTALL:
+
+* FIX (sudo gem install, anything else)
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2006 FIX
+
+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/Rakefile

@@ -0,0 +1,23 @@
+require 'rubygems'
+require 'hoe'
+$: << File.expand_path('./lib')
+require 'source_control'
+
+Hoe.new('sourcecontrol', SourceControl::VERSION) do |p|
+  p.author = ['Jamie Macey', 'Steven Baker']
+  p.email = 'jamie.macey@gmail.com'
+  p.summary = "SourceControl is a library to provide abstract access to version control systems"
+  
+  p.rubyforge_name = 'sourcecontrol'
+
+  # p.description = p.paragraphs_of('README.txt', 2..5).join("\n\n")
+  # p.url = p.paragraphs_of('README.txt', 0).first.split(/\n/)[1..-1]
+  p.changes = p.paragraphs_of('History.txt', 0..1).join("\n\n")
+end
+
+desc 'Run rcov coverage report'
+task :rcov do
+  system "rm -rf coverage"
+  system "rcov -Ilib test/test_*.rb test/*/test_*.rb"
+end
+

data/bin/sc

@@ -0,0 +1,4 @@
+#!/usr/bin/env ruby
+require 'rubygems'
+gem 'source_control'
+

data/lib/source_control.rb

@@ -0,0 +1,39 @@
+require 'yaml'
+require 'rubygems'
+gem 'facets'
+require 'facet/string/starts_with'
+
+require 'source_control/base'
+require 'source_control/cvs'
+require 'source_control/darcs'
+require 'source_control/mercurial'
+require 'source_control/subversion'
+require 'source_control/svk'
+
+module SourceControl
+  VERSION = '0.0.1'
+
+  # Magic creation method.  If a local repository is in an unknown
+  # version control system, this method uses a heuristic to determine
+  # which VCS a given path belongs in.  If indeterminate, returns nil.
+  def self.new(path)
+    [SVK, Subversion, CVS, Mercurial, Darcs].each do |scm|
+      if scm.covers? path
+        return scm.new(:local => path)
+      end
+    end
+    nil
+  end
+
+  def self.find(name)
+    case name.to_s.downcase
+      when 'svn', 'subversion': Subversion
+      when 'hg', 'mercurial': Mercurial
+      when 'darcs': Darcs
+      when 'svk': SVK
+      when 'cvs': CVS
+    end
+  end
+
+end
+

data/lib/source_control/base.rb

@@ -0,0 +1,27 @@
+module SourceControl
+
+  # Base source control class, all concrete source controls subclass
+  # from it.
+  class Base
+    def initialize(options)
+      @sc = options
+    end
+
+    def get_remote_info
+      @remote_info ||= get_remote_info_concrete
+    end
+
+#    def method_missing(method, *args)
+#      run "#{command} #{method}"
+#    end
+
+    def shell(cmd)
+      # puts "SC: #{cmd}"
+      response = `#{cmd}`
+      # puts response
+      response
+    end
+  end
+  
+end
+

data/lib/source_control/cvs.rb

@@ -0,0 +1,12 @@
+module SourceControl
+
+  class CVS < Base
+    def command; 'cvs' end
+
+    def self.covers?(path)
+      File.exist? path + '/CVS'
+    end
+  end
+  
+end
+

data/lib/source_control/darcs.rb

@@ -0,0 +1,16 @@
+module SourceControl
+
+  class Darcs < Base
+    def command; 'darcs' end
+
+    def self.covers?(path)
+      path_parts = path.split('/')
+      path_parts.length.downto(1) do |n|
+        return true if File.exist? path_parts[0...n].join('/') + '/_darcs'
+      end
+      false
+    end
+  end
+  
+end
+

data/lib/source_control/mercurial.rb

@@ -0,0 +1,27 @@
+module SourceControl
+
+  class Mercurial < Base
+    def command; 'hg' end
+
+    def self.covers?(path)
+      path_parts = path.split('/')
+      path_parts.length.downto(1) do |n|
+        return true if File.exist? path_parts[0...n].join('/') + '/.hg'
+      end
+      false
+    end
+
+    def commit(options)
+      cmd = 'hg commit'
+      options.each do |key, value|
+        case key
+          when :message
+            cmd << " -m '#{value}'"
+        end
+      end
+      run "#{cmd}"
+    end
+  end
+  
+end
+

data/lib/source_control/subversion.rb

@@ -0,0 +1,57 @@
+module SourceControl
+
+  class Subversion < Base
+    def command; 'svn' end
+
+    def self.covers?(path)
+      File.exist? path + '/.svn'
+    end
+
+    def add(relative_path)
+      shell "#{command} add #{relative_path}"
+    end
+
+    def export(opts)
+      cmd = "#{command} export #{@sc[:remote_uri]} #{opts[:dir]}"
+      if opts[:revision]
+        cmd << " -r #{opts[:revision]}"
+      end
+      shell cmd
+    end
+
+    def get_remote_info_concrete
+      remote_info = {}
+      server_response = shell "#{command} info #{@sc[:remote_uri]}"
+
+      server_response =~ /^Last Changed Rev: (.*)$/
+      remote_info[:last_changed_revision] = $1.to_i
+
+      remote_info
+    end
+
+    def last_changed_revision
+      get_remote_info
+      @remote_info[:last_changed_revision]
+    end
+    
+    def remove(relative_path)
+      shell "#{command} rm #{relative_path}"
+    end
+
+    def status(path)
+      results = Hash.new{|h,k| h[k] = [] }
+      shell("#{command} st #{path}").each do |line|
+        case line
+          when /^M    (.*)$/: results[:modified] << $1
+          when /^A    (.*)$/: results[:added] << $1
+          when /^D    (.*)$/: results[:removed] << $1
+          when /^\?    (.*)$/: results[:unknown] << $1
+          when /^!    (.*)$/: results[:missing] << $1
+        end
+      end
+      results
+    end
+  end  
+
+end
+

data/lib/source_control/svk.rb

@@ -0,0 +1,40 @@
+module SourceControl
+
+  class SVK < Base
+    def command; 'svk' end
+
+    def self.covers?(path)
+      configfile = File.expand_path('~/.svk/config')
+      return false unless File.exists?(configfile)
+      svk_config = YAML.load(File.read(configfile))
+      svk_config['checkout'].value['hash'].keys.each do |checkout_path|
+        return true if path.starts_with? checkout_path
+      end
+      false
+    end
+
+    def add(relative_path)
+      shell "#{command} add #{relative_path}"
+    end
+
+    def remove(relative_path)
+      shell "#{command} rm #{relative_path}"
+    end
+
+    def status(path)
+      results = Hash.new{|h,k| h[k] = [] }
+      shell("#{command} st #{path}").each do |line|
+        case line
+          when /^M   (.*)$/: results[:modified] << $1
+          when /^A   (.*)$/: results[:added] << $1
+          when /^D   (.*)$/: results[:removed] << $1
+          when /^\?   (.*)$/: results[:unknown] << $1
+          when /^!   (.*)$/: results[:missing] << $1
+        end
+      end
+      results
+    end
+  end
+  
+end
+

data/test/source_control/test_base.rb

@@ -0,0 +1,30 @@
+require 'test/unit'
+require 'source_control'
+require 'rubygems'
+require 'mocha'
+
+class SourceControl::Base
+  attr_accessor :remote_info
+  def get_remote_info_concrete; end
+end
+
+class TestBase < Test::Unit::TestCase
+  def setup
+    @sc = SourceControl::Base.new(:remote => '/')
+  end
+
+  def test_get_remote_info
+    @sc.expects(:get_remote_info_concrete).returns(:foo)
+    assert_equal :foo, @sc.get_remote_info
+  end
+
+  def test_get_remote_info_caches_result
+    @sc.expects(:get_remote_info_concrete).returns(:foo).times(1)
+    assert_equal nil, @sc.remote_info
+    assert_equal :foo, @sc.get_remote_info
+    assert_equal :foo, @sc.get_remote_info
+    assert_equal :foo, @sc.get_remote_info
+    assert_equal :foo, @sc.remote_info
+  end
+end
+

data/test/source_control/test_subversion.rb

@@ -0,0 +1,83 @@
+require 'test/unit'
+require 'source_control'
+require 'rubygems'
+require 'mocha'
+
+class TestSubversionRemote < Test::Unit::TestCase
+  def setup
+    @sc = SourceControl::Subversion.new(:remote_uri => 'svn://localhost/')
+  end
+
+  def test_export
+    @sc.expects(:shell).with("svn export svn://localhost/ foo")
+    @sc.export(:dir => 'foo')
+  end
+
+  def test_export_with_revision
+    @sc.expects(:shell).with("svn export svn://localhost/ foo -r 13")
+    @sc.export(:dir => 'foo', :revision => 13)
+  end
+  
+  def test_get_remote_info_concrete
+    command = "svn info svn://localhost/"
+    response= <<RESPONSE
+Path: arts
+URL: http://thar.be/svn/projects/plugins/arts
+Repository Root: http://thar.be/svn/projects
+Repository UUID: fc021c06-de14-0410-8c5a-e664d767796e
+Revision: 74
+Node Kind: directory
+Last Changed Author: kevinc
+Last Changed Rev: 74
+Last Changed Date: 2007-01-29 00:22:27 -0800 (Mon, 29 Jan 2007)
+
+RESPONSE
+    @sc.expects(:shell).with(command).returns(response)
+    expected_info = {
+      :last_changed_revision => 74
+    }
+    assert_equal expected_info, @sc.get_remote_info_concrete
+  end
+end
+
+class TestSubversionLocal < Test::Unit::TestCase
+  def setup
+    @sc = SourceControl::Subversion.new(:local_path => '/home/user/dev/project')
+  end
+
+  def test_add
+    @sc.expects(:shell).with("svn add foo")
+    @sc.add("foo")
+  end
+
+  def test_remove
+    @sc.expects(:shell).with("svn rm foo")
+    @sc.remove("foo")
+  end
+
+  def test_status
+    response = <<RESPONSE
+M    mod1
+D    rem1
+A    add1
+!    mis1
+?    unk1
+M    dir/mod2
+D    dir/rem2
+A    dir/add2
+!    dir/mis2
+?    dir/unk2
+
+RESPONSE
+    @sc.expects(:shell).with("svn st foo").returns(response)
+    status = @sc.status("foo")
+    assert_equal %w(mod1 dir/mod2), status[:modified]
+    assert_equal %w(add1 dir/add2), status[:added]
+    assert_equal %w(rem1 dir/rem2), status[:removed]
+    assert_equal %w(mis1 dir/mis2), status[:missing]
+    assert_equal %w(unk1 dir/unk2), status[:unknown]    
+  end
+  
+end
+
+

data/test/source_control/test_svk.rb

@@ -0,0 +1,48 @@
+require 'test/unit'
+require 'source_control'
+require 'rubygems'
+require 'mocha'
+
+#class TestSVKRemote < Test::Unit::TestCase
+#end
+
+class TestSVKLocal < Test::Unit::TestCase
+  def setup
+    @sc = SourceControl::SVK.new(:local_path => '/home/user/dev/project')
+  end
+
+  def test_add
+    @sc.expects(:shell).with("svk add foo")
+    @sc.add("foo")
+  end
+
+  def test_remove
+    @sc.expects(:shell).with("svk rm foo")
+    @sc.remove("foo")
+  end
+
+  def test_status
+    response = <<RESPONSE
+M   mod1
+D   rem1
+A   add1
+!   mis1
+?   unk1
+M   dir/mod2
+D   dir/rem2
+A   dir/add2
+!   dir/mis2
+?   dir/unk2
+
+RESPONSE
+    @sc.expects(:shell).with("svk st foo").returns(response)
+    status = @sc.status("foo")
+    assert_equal %w(mod1 dir/mod2), status[:modified]
+    assert_equal %w(add1 dir/add2), status[:added]
+    assert_equal %w(rem1 dir/rem2), status[:removed]
+    assert_equal %w(mis1 dir/mis2), status[:missing]
+    assert_equal %w(unk1 dir/unk2), status[:unknown]    
+  end
+  
+end
+

data/test/test_source_control.rb

@@ -0,0 +1,78 @@
+require 'test/unit'
+require 'source_control'
+
+SCM_PATH = ARGV[0]
+SCM_TYPE = ARGV[1]
+
+class SourceControlTest < Test::Unit::TestCase
+  
+  def test_scm_interface
+    initialize_scm
+    create_repository
+    copy_in_files
+    check_status
+    add_files
+    commit_initial_files
+    check_committed_status
+    modify_working_copy
+    check_modified_status
+    commit_modifications
+    check_revision_history
+    check_file_history
+    destroy_repository
+  end
+  
+  def initialize_scm
+    
+  end
+  
+  def create_repository
+    
+  end
+  
+  def copy_in_files
+    
+  end
+  
+  def check_status
+    
+  end
+  
+  def add_files
+    
+  end
+  
+  def commit_initial_files
+    
+  end
+  
+  def check_committed_status
+    
+  end
+  
+  def modify_working_copy
+    
+  end
+  
+  def check_modified_status
+    
+  end
+  
+  def commit_modifications
+    
+  end
+  
+  def check_revision_history
+    
+  end
+  
+  def check_file_history
+    
+  end
+  
+  def destroy_repository
+    
+  end
+  
+end
+

metadata

@@ -0,0 +1,70 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.2
+specification_version: 1
+name: sourcecontrol
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2007-02-20 00:00:00 -08:00
+summary: SourceControl is a library to provide abstract access to version control systems
+require_paths: 
+- lib
+email: jamie.macey@gmail.com
+homepage: http://www.zenspider.com/ZSS/Products/sourcecontrol/
+rubyforge_project: sourcecontrol
+description: The author was too lazy to write a description
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Jamie Macey
+- Steven Baker
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- bin/sc
+- lib/source_control.rb
+- lib/source_control/base.rb
+- lib/source_control/cvs.rb
+- lib/source_control/darcs.rb
+- lib/source_control/mercurial.rb
+- lib/source_control/subversion.rb
+- lib/source_control/svk.rb
+- test/test_source_control.rb
+test_files: 
+- test/test_source_control.rb
+- test/source_control/test_subversion.rb
+- test/source_control/test_base.rb
+- test/source_control/test_svk.rb
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: 
+- sc
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.2.0
+    version: