svnx 0.0.2

data/lib/svnx/log/command.rb

@@ -0,0 +1,76 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'system/command/line'
+require 'system/command/caching'
+require 'svnx/command'
+require 'logue/loggable'
+
+module SVNx
+  module LogCmdLine
+    # this can be either an Array (for which to_a returns itself), or
+    # a CommandArgs, which also has to_a.
+    def initialize args = Array.new
+      super "log", args.to_a
+    end
+  end
+
+  class LogCommandLine < CommandLine
+    include LogCmdLine
+  end
+
+  class LogCommandLineCaching < CachingCommandLine
+    include LogCmdLine
+  end
+
+  class LogCommandArgs < CommandArgs
+    include Logue::Loggable
+    
+    attr_reader :limit
+    attr_reader :verbose
+    attr_reader :revision
+    attr_reader :use_cache
+
+    def initialize args = Hash.new
+      @limit = args[:limit]
+      @verbose = args[:verbose]
+      @use_cache = args[:use_cache].nil? || args[:use_cache]
+      @revision = args[:revision]
+      super
+    end
+
+    def to_a
+      ary = Array.new
+      if @limit
+        ary << '--limit' << @limit
+      end
+      if @verbose
+        ary << '-v'
+      end
+
+      if @revision
+        [ @revision ].flatten.each do |rev|
+          ary << "-r#{rev}"
+        end
+      end
+
+      if @path
+        ary << @path
+      end
+      
+      ary.compact
+    end
+  end
+  
+  class LogCommand < Command
+    def initialize args
+      @use_cache = args.use_cache
+      super
+    end
+
+    def command_line
+      cls = @use_cache ? LogCommandLineCaching : LogCommandLine
+      cls.new @args
+    end
+  end
+end

data/lib/svnx/log/entries.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/entries'
+require 'svnx/log/entry'
+
+module SVNx::Log
+  class Entries < SVNx::Entries
+    def get_elements doc
+      doc.elements['log'].elements
+    end
+
+    def create_entry xmlelement
+      Entry.new :xmlelement => xmlelement
+    end
+  end
+end

data/lib/svnx/log/entry.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/entry'
+
+module SVNx; module Log; end; end
+
+module SVNx::Log
+  class Entry < SVNx::Entry
+
+    attr_reader :revision, :author, :date, :paths, :msg
+
+    def set_from_element elmt
+      set_attr_var elmt, 'revision'
+
+      %w{ author date msg }.each do |field|
+        set_elmt_var elmt, field
+      end
+      
+      @paths = Array.new
+
+      elmt.elements.each('paths/path') do |pe|
+        kind = get_attribute pe, 'kind'
+        action = get_attribute pe, 'action'
+        name = pe.text
+
+        @paths << LogEntryPath.new(:kind => kind, :action => action, :name => name)
+      end
+    end
+
+    def message
+      @msg
+    end
+
+    def to_s
+      [ @revision, @author, @date, @msg, @paths ].collect { |x| x.to_s }.join " "
+    end
+  end
+
+  class LogEntryPath
+    attr_reader :kind, :action, :name
+    
+    def initialize args = Hash.new
+      @kind = args[:kind]
+      @action = args[:action]
+      @name = args[:name]
+    end
+
+    def to_s
+      @name
+    end
+  end
+end

data/lib/svnx/status/command.rb

@@ -0,0 +1,28 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/command'
+
+module SVNx
+  class StatusCommandLine < CommandLine
+    def initialize args = Array.new
+      super "status", args.to_a
+    end
+  end
+
+  class StatusCommandArgs < CommandArgs
+    def to_a
+      ary = Array.new
+      if @path
+        ary << @path
+      end
+      ary
+    end
+  end  
+
+  class StatusCommand < Command
+    def command_line
+      StatusCommandLine.new @args
+    end
+  end
+end

data/lib/svnx/status/entries.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/status/entry'
+require 'svnx/entries'
+
+module SVNx::Status
+  class Entries < SVNx::Entries
+    def get_elements doc
+      doc.elements['status'].elements['target'].elements
+    end
+
+    def create_entry xmlelement
+      Entry.new :xmlelement => xmlelement
+    end
+  end
+end

data/lib/svnx/status/entry.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/entry'
+require 'svnx/action'
+
+module SVNx; module Status; end; end
+
+module SVNx::Status
+  class Entry < SVNx::Entry
+
+    attr_reader :status
+    attr_reader :path
+    attr_reader :status_revision
+    attr_reader :action
+
+    def initialize args = Hash.new
+      super
+      @action = SVNx::Action.new @status
+    end
+
+    def set_from_xml xmldoc
+      stelmt = xmldoc.elements['status']
+      tgt    = stelmt.elements['target']
+      
+      set_attr_var tgt, 'path'
+      
+      if entry = tgt.elements['entry']
+        set_from_element entry
+      else
+        @status = "unchanged"
+      end
+    end
+
+    def set_from_element elmt
+      set_attr_var elmt, 'path'
+
+      wcstatus = elmt.elements['wc-status']
+      @status = wcstatus.attributes['item']
+      @status_revision = wcstatus.attributes['revision']
+      
+      if commit = wcstatus.elements['commit']
+        @commit_revision = commit.attributes['revision']
+      else
+        @commit_revision = nil
+      end
+    end
+
+    def to_s
+      "path: #{@path}; status: #{@status}"
+    end
+  end
+end

data/lib/system/command/arg.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+module System
+  class Argument < String
+    # just a string, but quotes itself
+
+    def to_s
+      '"' + super + '"'
+    end
+  end
+end

data/lib/system/command/cachefile.rb

@@ -0,0 +1,50 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'system/command/line'
+require 'zlib'
+require 'logue/loggable'
+
+module System
+  class CacheFile
+    include Logue::Loggable
+
+    attr_reader :output
+    
+    def initialize cache_dir, args
+      @args = args
+      @pn = Pathname.new(cache_dir) + (args.join('-').gsub('/', '_slash_') + '.gz')
+      @output = nil
+    end
+
+    def save_file
+      @pn.parent.mkpath unless @pn.parent.exist?
+      @pn.unlink if @pn.exist?
+      Zlib::GzipWriter.open(@pn.to_s) do |gz|
+        gz.puts @output
+      end
+    end
+
+    def read_file
+      Zlib::GzipReader.open(@pn.to_s) do |gz|
+        @output = gz.readlines
+      end
+      @output
+    end
+
+    def readlines
+      if @pn.exist?
+        read_file
+      else
+        cl = CommandLine.new @args
+        @output = cl.execute
+        save_file
+        @output
+      end
+    end
+
+    def to_s
+      @pn.to_s
+    end
+  end
+end

data/lib/system/command/caching.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'system/command/line'
+require 'system/command/cachefile'
+
+module System
+  class CachingCommandLine < CommandLine
+    # caches its input and values.
+
+    @@cache_dir = '/tmp' + Pathname.new($0).expand_path.to_s
+
+    class << self
+      def cache_dir
+        @@cache_dir
+      end
+
+      def cache_dir= dir
+        @@cache_dir = dir
+      end
+    end
+
+    def cache_dir
+      @@cache_dir
+    end
+
+    def cache_file
+      CacheFile.new cache_dir, @args
+    end
+
+    def execute
+      cachefile = cache_file
+      @output = cachefile.readlines
+    end
+  end
+end

data/lib/system/command/line.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'system/command/arg'
+require 'logue/loggable'
+require 'riel/pathname'
+require 'open3'
+require 'rainbow'
+
+module System
+  class CommandLine
+    include Logue::Loggable
+
+    attr_reader :output
+
+    def initialize args = Array.new
+      @args = args.dup
+    end
+
+    def << arg
+      # @args << Argument.new(arg)
+      @args << arg
+    end
+
+    def execute
+      cmd = to_command
+
+      info "cmd: #{cmd}".color("8A8A43")
+
+      # cmd << " 2>&1"
+
+      # I want to use popen3, but the version that works (sets $?) is in 1.9.x,
+      # not 1.8.x:
+      IO.popen(cmd + " 2>&1") do |io|
+        @output = io.readlines
+      end
+
+      if $? && $?.exitstatus != 0
+        info "cmd: #{cmd}".color(:red)
+        info "$?: #{$?.inspect}".color(:red)
+        info "$?.exitstatus: #{$? && $?.exitstatus}".color(:red)
+        raise "ERROR running command '#{cmd}': #{@output[-1]}"
+      end
+
+      @output
+    end
+
+    def to_command
+      @args.join ' '
+    end
+  end
+end

data/test/unit/svnx/action_test.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'tc'
+require 'svnx/action'
+
+module SVNx
+  class ActionTestCase < PVN::TestCase
+    def assert_action_equals expadd, expdel, expmod, expunver, *vals
+      vals.each do |val|
+        action = Action.new val
+        msg = "value: #{val}"
+        assert_equal expadd, action.added?, msg
+        assert_equal expdel, action.deleted?, msg
+        assert_equal expmod, action.modified?, msg
+        assert_equal expunver, action.unversioned?, msg
+      end
+    end    
+    
+    def test_added
+      assert_action_equals true, false, false, false, 'added', 'A'
+    end
+    
+    def test_deleted
+      assert_action_equals false, true, false, false, 'deleted', 'D'
+    end
+    
+    def test_modified
+      assert_action_equals false, false, true, false, 'modified', 'M'
+    end    
+    
+    def test_unversioned
+      assert_action_equals false, false, false, true, 'unversioned', '?'
+    end
+  end
+end

data/test/unit/svnx/info/entries_test.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/info/tc'
+require 'svnx/info/entries'
+
+module SVNx::Info
+  class EntriesTestCase < SVNx::Info::TestCase
+    def assert_info_entry_equals entry, path, kind, revision
+      assert_entry_equals entry, :path => path, :kind => 'file', :url => EXPROOT + '/' + path, :root => EXPROOT, :revision => revision
+    end
+
+    def test_create_from_xml
+      entries = Entries.new :xmllines => Resources::PTP_INFO_SIXTH_TXT_DOG_RB_FIRST_TXT.readlines
+      assert_equal 3, entries.size
+
+      assert_info_entry_equals entries[0], 'dirzero/SixthFile.txt', 'file', '22'
+      assert_info_entry_equals entries[1], 'src/ruby/dog.rb',       'file', '0'
+      assert_info_entry_equals entries[2], 'FirstFile.txt',         'file', '22'
+    end
+  end
+end