pvn 0.0.1

data/lib/pvn/svn/svninfo.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+
+module SVN
+  # Info has the results of "svn info <file>", where the values returned are
+  # keys and values in a Hash.
+  class Info < Hash
+    include Loggable
+    
+    def initialize args
+      RIEL::Log.info "args: #{args}".green
+      @name = args[:name]
+      super()
+       
+      execute
+    end
+
+    def execute
+      cmd = "svn info #{@name}"
+      output = %x{#{cmd}}
+
+      kv_re = Regexp.new '^(.*?):\s*(.*)'
+      
+      info = Hash.new
+      output.split("\n").each do |line|
+        key, value = kv_re.match(line)[1, 2]
+       
+        # debug "key: #{key}"
+        # debug "value: #{value}"
+
+        keysym = key.downcase.gsub(' ', '_').to_sym
+        # debug "keysym: #{keysym}"
+
+        self[keysym] = value
+      end
+      info
+    end
+  end
+end

data/lib/pvn/svn/svnroot.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+
+module PVN
+  class SVNRootElement < SVNElement
+    include Loggable
+    attr_reader :name
+
+    # returns the topmost directory for the repo root of the given (defaulting
+    # to current) directory
+    def self.new dirname = '.'
+      dir = Pathname.new(dirname).expand_path
+      
+      while dir.to_s != '/'
+        elmt = SVNElement.new :name => dir
+        elmtinfo = elmt.info
+        return elmt if elmtinfo[:repository_root] == elmtinfo[:url]
+        return elmt if !(dir.parent + '.svn').exist?
+        return nil  if elmtinfo[:repository_root].nil?
+        dir += '..'
+      end
+
+      nil
+    end    
+  end
+end

data/lib/pvn/upp/uppcmd.rb

@@ -0,0 +1,112 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'system/command'
+
+module PVN
+  class UppOptionSet < OptionSet
+    attr_accessor :revision
+    
+    def initialize
+      super
+      # @revision = add RevisionOption.new
+    end
+  end
+
+  class UppCommand < Command
+    DEFAULT_LIMIT = 5
+    COMMAND = "upp"
+
+    self.doc do |doc|
+      doc.subcommands = [ COMMAND ]
+      doc.description = "Updates the local repository, in parallel for speed."
+      doc.usage       = ""
+      doc.summary     = [ "Updates the local repository, using parallel tasks. This is",
+                          "signficantly faster () for projects with multiple",
+                          "subprojects defined as externals." ]
+      doc.examples   << [ "pvn upp", "Updates the local repository." ]
+    end
+
+    def initialize args
+      # insanely simple
+
+      externals = get_all_externals
+
+      upcmds = Array.new
+      externals.each do |ext|
+        puts "ext: #{ext}"
+        upcmds << "cd #{ext} && svn up 2>&1"
+      end
+
+      upcmds << "svn up --ignore-externals . 2>&1"
+      
+      cmds_to_threads = upcmds.map do |upcmd|
+        thr = Thread.new do
+          IO.popen(upcmd) do |io|
+            io.readlines
+          end
+        end
+        [ upcmd, thr ]
+      end
+
+      cmds_to_threads.each do |cmd, thread|
+        puts cmd
+        puts thread.value
+      end
+    end
+
+    def external_to_local fd, line
+      # spaces?
+      local, url = line.split
+
+      # I've seen externals defined "backwards" (local url)
+      if local.index(%r{\w+://})
+        url, local = local, url
+      end
+
+      fd + "/" + local
+    end
+
+    def get_externals fd
+      externals = Array.new
+      pgcmd = "svn pg #{fd}"
+      IO.popen(pgcmd) do |io|
+        io.each do |line|
+          next if line.strip.empty?
+          
+          # spaces?
+          local, url = line.split
+
+          # I've seen externals defined "backwards" (local url)
+          if local.index(%r{\w+://})
+            url, local = local, url
+          end
+
+          externals << "#{fd}/#{local}"
+        end
+      end
+
+      externals
+    end
+
+    def get_all_externals
+      externals = Array.new
+
+      # get properties list (this could probably be cached, but it's relatively fast)
+      proplistcmd = "svn pl -R"
+      fd = nil
+      fdre = Regexp.new '^Properties on \'(.*)\':$'
+      extre = Regexp.new '^\s*svn:externals$'
+      IO.popen(proplistcmd) do |io|
+        io.each do |line|
+          if md = fdre.match(line)
+            fd = md[1]
+          elsif fd && extre.match(line)
+            externals.concat get_externals(fd)
+          end
+        end
+      end
+      externals
+    end
+  end
+end

data/lib/pvn/wherecmd.rb

@@ -0,0 +1,55 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+require 'system/command'
+require 'pvn/io/fselement'
+require 'pvn/svn/svnelement'
+require 'pvn/svn/svnroot'
+require 'pvn/io/element'
+
+module PVN
+  class WhereOptionSet < OptionSet
+    attr_accessor :revision
+    
+    def initialize
+      super
+      # @revision = add RevisionRegexpOption.new
+    end
+  end
+
+  class WhereCommand < Command
+    DEFAULT_LIMIT = 5
+    COMMAND = "where"
+
+    self.doc do |doc|
+      doc.subcommands = [ COMMAND ]
+      doc.description = "Shows the Subversion mapping from the given URL or file."
+      doc.usage       = "[OPTIONS] [FILE|URL]..."
+      doc.summary     = [ "Shows the Subversion mapping from the URL or file. If the ",
+                          "argument is a URL, then the local file/directory is displayed.",
+                          "If the argument is a file, then the URL for the Subversion",
+                          "repository is printed." ]
+      # doc.examples   << [ "pvn pct main.c", "Prints the number of lines and percentage by which main.c has changed." ]
+    end
+
+    def initialize args
+      # not calling super, since all of our stuff goes on in this ctor.
+
+      args[:command_args].each do |arg|
+        info "arg: #{arg}".on_black
+
+        if arg.index(%r{^\w+:\/\/})
+          info "url: #{arg}".on_red
+        else
+          info "file: #{arg}".red
+          el = Element.new :file => arg
+          info "el: #{el}"
+          info "el.local: #{el.local}"
+          info "el.svn: #{el.svn}"
+        end
+      end
+    end
+  end
+end

data/lib/pvn.rb

@@ -0,0 +1,8 @@
+fdirname = File.dirname(__FILE__)
+
+$:.unshift(fdirname) unless
+  $:.include?(fdirname) || $:.include?(File.expand_path(fdirname))
+
+module PVN
+  VERSION = '0.0.1'
+end

data/lib/svnx/command.rb

@@ -0,0 +1,60 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+require 'system/command/line'
+
+# this replaces svnx/lib/command/svncommand.
+
+module SVNx
+  class CommandLine < System::CommandLine
+    def initialize subcmd, args = Array.new
+      info "args: #{args}"
+      cmdargs = [ 'svn', subcmd, '--xml' ].concat args
+      info "cmdargs: #{cmdargs}"
+      super cmdargs
+    end
+  end
+
+  class CachingCommandLine < System::CachingCommandLine
+    def initialize subcmd, args = Array.new
+      info "args: #{args}"
+      cmdargs = [ 'svn', subcmd, '--xml' ].concat args
+      info "cmdargs: #{cmdargs}"
+      super cmdargs
+    end
+  end
+
+  class CommandArgs
+    attr_accessor :path
+
+    def initialize args = Hash.new
+      @path = args[:path]
+    end
+
+    def to_a
+      [ @path ].compact
+    end
+  end  
+
+  class Command
+    include Loggable
+
+    attr_reader :output
+    
+    def initialize args
+      @args = args
+    end
+
+    def command_line
+      raise "must be implemented"
+    end
+    
+    def execute
+      cmdline = command_line
+      cmdline.execute
+      @output = cmdline.output
+    end
+  end
+end

data/lib/svnx/entry.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+require 'rexml/document'
+
+module SVNx
+  class Entry
+    include Loggable
+
+    def get_attribute xmlelement, attrname
+      xmlelement.attributes[attrname]
+    end
+
+    def get_element_text xmlelement, elmtname
+      elmt = xmlelement.elements[elmtname]
+      # in my test svn repository, revision 1 doesn't have an author element:
+      (elmt && elmt.text) || ""
+    end
+
+    def set_attr_var xmlelement, varname
+      set_var varname, get_attribute(xmlelement, varname)
+    end
+
+    def set_elmt_var xmlelement, varname
+      set_var varname, get_element_text(xmlelement, varname)
+    end
+
+    def set_var varname, value
+      instance_variable_set '@' + varname, value
+    end
+  end
+end

data/lib/svnx/info/command.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/command'
+
+module SVNx
+  class InfoCommandLine < CommandLine
+    def initialize args = Array.new
+      super "info", args
+    end
+  end
+
+  class InfoCommandArgs < CommandArgs
+  end  
+
+  class InfoCommand < Command
+    def command_line
+      InfoCommandLine.new @cmdargs
+    end
+  end
+end

data/lib/svnx/info/entries.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+# require 'svnx/info/entry'
+
+module SVNx; module Info; end; end
+
+module SVNx::Info
+  class Entries < Array
+    include Loggable
+
+    def initialize args = Hash.new
+      if xmllines = args[:xmllines]
+        doc = REXML::Document.new xmllines
+
+        # xxx
+        doc.elements.each('xxx') do |entryelement|
+          self << Entry.new(:xmlelement => entryelement)
+        end
+      elsif xml = args[:xml]
+        xml.xmlentries.each do |xmlentry|
+          self << Entry.new(:xmlentry => xmlentry)
+        end          
+      end
+    end
+  end
+end

data/lib/svnx/info/entry.rb

@@ -0,0 +1,34 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/entry'
+
+module SVNx; module Info; end; end
+
+module SVNx::Info
+  class Entry < SVNx::Entry
+    attr_reader :url
+    attr_reader :root
+    attr_reader :kind
+    attr_reader :path
+    
+    def initialize args = Hash.new
+      if xmllines = args[:xmllines]
+        doc = REXML::Document.new xmllines
+        entry = doc.elements['info/entry']
+
+        set_attr_var entry, 'kind'
+        set_attr_var entry, 'path'
+        set_elmt_var entry, 'url'
+        
+        repo = entry.elements['repository']
+        # set_elmt_var doc, 'info/entry/repository/root'
+        set_elmt_var repo, 'root'
+      else
+        raise "must be initialized with xmllines"
+      end
+
+      info "self: #{self.inspect}"
+    end
+  end
+end

data/lib/svnx/log/command.rb

@@ -0,0 +1,93 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+require 'system/command/line'
+require 'system/command/caching'
+require 'pvn/svn/environment'
+require 'svnx/command'
+
+module SVNx
+  CACHE_DIR = "/tmp/cache_dir_for_log_command"
+
+  class LogOptions
+    attr_reader :revision
+  end    
+
+  class LogCommandLine < CommandLine
+    def initialize args = Array.new
+      super "log", args.to_a
+    end
+  end
+
+  class LogCommandLineCaching < CachingCommandLine
+    def initialize args = Array.new
+      super "log", args.to_a
+    end
+
+    def cache_dir
+      PVN::Environment.instance.cache_dir
+    end
+  end
+
+  class LogCommandArgs < CommandArgs
+    include 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]
+      info "args      : #{args}"
+      info "@limit    : #{@limit}"
+      info "@verbose  : #{@verbose}"
+      info "@use_cache: #{@use_cache}"
+      info "@revision : #{@revision}"
+      super
+    end
+
+    def to_a
+      ary = Array.new
+      if @limit
+        ary << '--limit' << @limit
+      end
+      if @verbose
+        ary << '-v'
+      end
+
+      if @revision
+        @revision.each do |rev|
+          ary << "-r#{rev}"
+        end
+      end
+
+      if @path
+        ary << @path
+      end
+      
+      ary.compact
+    end
+  end
+  
+  class LogCommand < Command
+    def initialize args
+      info "args.to_a: #{args.to_a}"
+      @use_cache = args.use_cache
+      info "@use_cache: #{@use_cache}"
+      super
+    end
+
+    def command_line
+      info "@args: #{@args}"
+      cmdline = @use_cache ? LogCommandLineCaching.new(@args) : LogCommandLine.new(@args)
+      info "cmdline: #{cmdline}"
+      cmdline
+    end
+  end
+end

data/lib/svnx/log/entries.rb

@@ -0,0 +1,57 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/log/entry'
+require 'rexml/document'
+
+module SVNx::Log
+  class Entries
+    include Loggable, Enumerable
+
+    def initialize args = Hash.new
+      @entries = Hash.new
+
+      if xmllines = args[:xmllines]
+        # this is preferred
+
+        if xmllines.kind_of? Array
+          xmllines = xmllines.join ''
+        end
+
+        doc = REXML::Document.new xmllines
+
+        @logelements = doc.elements['log'].elements
+        @size = @logelements.size
+      elsif xmlentries = args[:xmlentries]
+        # this is legacy:
+
+        xmlentries.each do |xmlentry|
+          @entries[@entries.size] = Entry.new(:xmlentry => xmlentry)
+        end
+      end
+    end
+
+    def [] idx
+      @entries[idx] ||= Entry.new(:xmlelement => @logelements[idx + 1])
+    end
+
+    def size
+      @size
+    end
+
+    def each(&blk)
+      # all elements must be processed before this can happen:
+      if @logelements
+        @logelements.each_with_index do |logelement, idx|
+          # info "logelement: #{logelement}"
+          # info "idx: #{idx}"
+          @entries[idx] ||= Entry.new(:xmlelement => logelement)
+        end
+
+        @logelements = nil
+      end
+
+      @entries.keys.sort.collect { |idx| @entries[idx] }.each(&blk)
+    end
+  end
+end

data/lib/svnx/log/entry.rb

@@ -0,0 +1,54 @@
+#!/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 initialize args = Hash.new
+      # this is log/logentry from "svn log --xml"
+      if xmlelement = args[:xmlelement]
+        set_attr_var xmlelement, 'revision'
+
+        %w{ author date msg }.each do |field|
+          set_elmt_var xmlelement, field
+        end
+        
+        @paths = Array.new
+
+        xmlelement.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
+      else
+        @revision = args[:revision]
+        @author = args[:author]
+        @date = args[:date]
+        @paths = args[:paths]
+        @message = args[:message]
+      end
+    end
+
+    def message
+      @msg
+    end
+  end
+
+  class LogEntryPath
+    attr_reader :kind, :action, :name
+    
+    def initialize args = Hash.new
+      @kind = args[:kind]
+      @action = args[:action]
+      @name = args[:name]
+    end
+  end
+end

data/lib/svnx/status/command.rb

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

data/lib/svnx/status/entries.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/status/entry'
+
+module SVNx::Status
+  class Entries < Array
+    include Loggable
+
+    def initialize args = Hash.new
+      super()
+
+      raise "not implemented"
+
+      if xmlentries = args[:xml]
+        xmlentries.each do |xmlentry|
+          self << Entry.new(:xml => xmlentry)
+        end
+      end
+    end
+  end
+end