pvn 0.0.1

data/lib/svnx/status/entry.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'svnx/entry'
+
+module SVNx; module Status; end; end
+
+module SVNx::Status
+  class Entry < SVNx::Entry
+
+    attr_reader :status
+    attr_reader :path
+    
+    def initialize args = Hash.new
+      if xmllines = args[:xmllines]
+        doc    = REXML::Document.new xmllines
+        stelmt = doc.elements['status']
+        tgt    = stelmt.elements['target']
+
+        set_attr_var tgt, 'path'
+        
+        if entry = tgt.elements['entry']
+          wcstatus = entry.elements['wc-status']
+          @status = wcstatus.attributes['item']
+        else
+          @status = "unchanged"
+        end
+      else
+        raise "must be initialized with xmllines"
+      end
+    end
+  end
+end

data/lib/synoption/base_option.rb

@@ -0,0 +1,149 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+require 'synoption/doc'
+require 'synoption/match'
+
+module PVN
+  class BaseOption
+    include Loggable
+
+    # for as_cmdline_option:
+    NO_CMDLINE_OPTION = Object.new
+    
+    attr_reader :name
+    attr_reader :tag
+    attr_reader :description
+    attr_reader :default
+
+    attr_reader :negate
+    attr_reader :regexp
+
+    def initialize name, tag, description, default, options = Hash.new
+      @name = name
+      @tag = tag
+      @description = description
+
+      @value = @default = default
+
+      @matchers = Hash.new
+      @matchers[:exact] = OptionExactMatch.new @tag, @name
+
+      if @negate = options[:negate]
+        @matchers[:negative] = OptionNegativeMatch.new @negate
+      end
+      
+      if @regexp = options[:regexp]
+        @matchers[:regexp] = OptionRegexpMatch.new @regexp
+      end
+      
+      if options.include? :as_cmdline_option
+        if options[:as_cmdline_option].nil?
+          @as_cmdline_option = NO_CMDLINE_OPTION
+        else
+          @as_cmdline_option = options[:as_cmdline_option]
+        end
+      else
+        @as_cmdline_option = nil
+      end
+
+      @unsets = options[:unsets]
+    end
+
+    def takes_value?
+      true
+    end
+
+    def to_command_line
+      return nil unless value
+      
+      if @as_cmdline_option
+        @as_cmdline_option == NO_CMDLINE_OPTION ? nil : @as_cmdline_option
+      else
+        [ tag, value ]
+      end
+    end
+
+    def to_s
+      [ @name, @tag ].join(", ")
+    end
+
+    def exact_match? arg
+      @matchers[:exact].match? arg
+    end
+
+    def negative_match? arg
+      @matchers[:negative] and @matchers[:negative].match? arg
+    end
+
+    def regexp_match? arg
+      @matchers[:regexp] and @matchers[:regexp].match? arg
+    end
+
+    def match arg
+      return nil unless arg
+      
+      @matchers.each do |type, matcher|
+        if matcher.match? arg
+          return [ type, matcher ]
+        end
+      end
+
+      nil
+    end
+
+    def unset
+      @value = nil
+    end
+
+    def set_value val
+      @value = val
+    end
+
+    def value
+      @value
+    end
+      
+    def to_doc io
+      doc = Doc.new self
+      doc.to_doc io
+    end
+
+    def next_argument args
+      raise "ERROR: option #{name} expecting following argument" if args.empty?
+      args.shift
+    end
+
+    def process args
+      if @matchers[:exact].match? args[0]
+        args.shift
+        val = takes_value? ? next_argument(args) : true
+        set_value val
+        true
+      elsif @matchers[:negative] && @matchers[:negative].match?(args[0])
+        arg = args.shift
+        set_value false
+        true
+      elsif @matchers[:regexp] && (md = @matchers[:regexp].match?(args[0]))
+        arg = args.shift
+        set_value md[0]
+        true
+      else
+        false
+      end
+    end
+
+    def post_process option_set, unprocessed
+      resolve_value option_set, unprocessed
+
+      if @unsets
+        option_set.unset @unsets
+      end
+    end
+
+    def resolve_value option_set, unprocessed
+    end
+  end
+end

data/lib/synoption/boolean_option.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+require 'synoption/option'
+
+module PVN
+  # a boolean option maps to a single tag, not a tag and value. For example,
+  # "-v" (verbose) is a boolean option, but "-r 3444" (revision) is a option
+  # with a value.
+  class BooleanOption < Option
+    def takes_value?
+      false
+    end
+
+    def to_command_line
+      super && [ tag ]
+    end
+  end
+end

data/lib/synoption/doc.rb

@@ -0,0 +1,81 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+
+module PVN
+  # documentation for an option.
+  class Doc
+    include Loggable
+
+    def initialize option
+      @option = option
+    end
+
+    def to_doc_tag
+      tagline = "#{@option.tag} [--#{@option.name}]"
+      if @option.takes_value?
+        tagline << " ARG"
+      end
+      tagline
+    end
+
+    # returns an option regexp as a 'cleaner' string
+    def re_to_string re
+      re.source.gsub(%r{\\d\+?}, 'N').gsub(%r{[\^\?\$\\\(\)]}, '')
+    end
+
+    def to_doc_negate
+      doc = nil
+      @option.negate.each do |neg|
+        str = if neg.kind_of? Regexp
+                str = re_to_string neg
+              else
+                str = neg
+              end
+
+        if doc
+          doc << " [#{str}]"
+        else
+          doc = str
+        end
+      end
+      doc
+    end
+
+    #   -g [--use-merge-history] : use/display additional information from merge
+    # 01234567890123456789012345678901234567890123456789012345678901234567890123456789
+    # 0         1         2         3         4         5         6         
+
+    def to_doc_line lhs, rhs, sep = ""
+      fmt = "  %-24s %1s %s"
+      sprintf fmt, lhs, sep, rhs
+    end
+      
+    def to_doc io
+      opttag  = @option.tag
+      optdesc = @option.description
+      
+      # wrap optdesc?
+
+      @option.description.each_with_index do |descline, idx|
+        lhs = idx == 0 ? to_doc_tag :  ""
+        io.puts to_doc_line lhs, descline, idx == 0 ? ":" : ""
+      end
+
+      if defval = @option.default
+        io.puts to_doc_line "", "  default: #{defval}"
+      end
+
+      if re = @option.regexp
+        io.puts to_doc_line re_to_string(re), "same as above", ":"
+      end
+
+      if @option.negate
+        lhs = to_doc_negate
+        io.puts to_doc_line lhs, "", ""
+      end
+    end
+  end
+end

data/lib/synoption/fixnum_option.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'synoption/option'
+
+module PVN
+  # An option that has a fixnum (integer) as its value.
+  class FixnumOption < Option
+    def set_value val
+      super val.to_i
+    end
+  end
+end

data/lib/synoption/match.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+
+module PVN
+  class OptionMatch
+    include Loggable
+
+    def match? arg
+      raise "not implemented"
+    end
+  end
+
+  class OptionExactMatch < OptionMatch
+    def initialize tag, name
+      @tag = tag
+      @name = name
+    end
+
+    def match? arg
+      arg == @tag || arg == '--' + @name.to_s
+    end
+  end
+
+  class OptionNegativeMatch < OptionMatch
+    def initialize *negopts
+      # in case this gets passed an array as an element:
+      @negopts = Array.new(negopts).flatten
+    end
+
+    def match? arg
+      arg && @negopts.select { |x| arg.index x }.size > 0
+    end
+  end
+
+  class OptionRegexpMatch < OptionMatch
+    def initialize regexp
+      @regexp = regexp
+    end
+
+    def match? arg
+      arg && @regexp.match(arg)
+    end
+  end
+end

data/lib/synoption/option.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'synoption/base_option'
+
+module PVN
+  class Option < BaseOption
+    include Loggable
+  end
+end

data/lib/synoption/optionable.rb

@@ -0,0 +1,66 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+require 'synoption/set'
+require 'synoption/option'
+require 'pvn/cmddoc'
+
+module PVN
+  module Optionable
+    include Loggable
+
+    def self.included base
+      base.extend ClassMethods
+    end
+
+    module ClassMethods
+      def has_option optname, tag, desc, args = Hash.new
+        RIEL::Log.debug "self: #{self}"
+        RIEL::Log.debug "optname: #{optname}"
+
+        self.instance_eval do 
+          @option_set ||= OptionSet.new
+          opt = Option.new optname, tag, desc, args
+          @option_set.options << opt
+
+          RIEL::Log.debug "self: #{self}"
+          RIEL::Log.debug "opt: #{opt.inspect}"
+          RIEL::Log.debug "@option_set: #{@option_set.inspect}"
+
+          @doc.options << opt
+        end
+      end
+
+      def find_option optname
+        self.instance_eval do 
+          @option_set.find_by_name optname
+        end
+      end
+
+      def doc
+        @doc ||= CommandDoc.new
+        yield @doc if block_given?
+        @doc
+      end
+      
+      def options
+        self.instance_eval do
+          @option_set ||= OptionSet.new
+          RIEL::Log.debug "@option_set: #{@option_set}"
+          yield @option_set if block_given?
+          @option_set
+        end
+      end
+      
+      def to_doc io = $stdout
+        self.instance_eval { @doc.to_doc io }
+      end
+
+      def next_argument_as_integer ca, cmdargs
+        cmdargs.shift.to_i
+      end
+    end
+  end
+end

data/lib/synoption/set.rb

@@ -0,0 +1,114 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'rubygems'
+require 'riel'
+require 'synoption/option'
+
+module PVN
+  class OptionSet
+    include Loggable
+
+    # maps from the option set class to the valid options for that class.
+    @@options_for_class = Hash.new { |h, k| h[k] = Array.new }
+
+    attr_reader :unprocessed
+    
+    class << self
+      def has_option name, optcls, optargs = Hash.new
+        attr_reader name
+
+        @@options_for_class[self] << { :name => name, :class => optcls, :args => optargs }
+
+        define_method name do
+          instance_eval do
+            meth = name
+            opt  = instance_variable_get '@' + name.to_s
+            opt.value
+          end
+        end
+      end
+    end
+
+    attr_reader :options
+    attr_reader :arguments
+    
+    def initialize options = Array.new
+      @options = options
+      @arguments = Array.new
+
+      opts = @@options_for_class[self.class]
+
+      opts.each do |option|
+        name = option[:name]
+        cls  = option[:class]
+        args = option[:args]
+        opt  = cls.new(*args)
+        add opt
+        instance_variable_set '@' + name.to_s, opt
+      end
+    end
+
+    def inspect
+      @options.collect { |opt| opt.inspect }.join("\n")
+    end
+
+    def find_by_name name
+      @options.find { |opt| opt.name == name }
+    end
+
+    def has_option? name
+      find_by_name name
+    end
+
+    def to_command_line
+      cmdline = Array.new
+      @options.each do |opt|
+        if cl = opt.to_command_line
+          cmdline.concat cl
+        end
+      end
+      cmdline
+    end
+
+    def unset key
+      opt = find_by_name key
+      opt && opt.unset
+    end
+
+    def process args
+      options_processed = Array.new
+
+      @unprocessed = args
+      
+      while !@unprocessed.empty?
+        processed = false
+        options.each do |opt|
+          if opt.process @unprocessed
+            processed = true
+            options_processed << opt
+          end
+        end
+
+        break unless processed
+      end
+
+      options_processed.each do |opt|
+        opt.post_process self, @unprocessed
+      end
+    end
+
+    def << option
+      @options << option
+    end
+
+    def add option
+      @options << option
+      option
+    end
+
+    def as_command_line
+      to_command_line + arguments
+    end
+  end
+end

data/lib/system/cachecmd.rb

@@ -0,0 +1,65 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+require 'system/command'
+
+module PVN
+  class CachableCommand < Command
+    TMP_DIR = ENV['PVN_TMP_DIR'] || '/tmp/pvncache'
+    CACHE_DIR = Pathname.new TMP_DIR
+
+    attr_accessor :lines
+
+    def initialize args = Hash.new
+      debug "args: #{args.inspect}"
+
+      @use_cache = args[:use_cache].nil? ? true : args[:use_cache]
+      info "@use_cache: #{@use_cache}".blue
+
+      super
+    end
+
+    def sysexec cmd
+      info "cmd: #{cmd}".on_red
+      if use_cache?
+        info "cmd: #{cmd}".on_green
+        run_cached_command cmd
+      else
+        @output = ::IO::popen(cmd).readlines
+      end
+    end
+
+    def run args
+      if use_cache?
+        run_cached_command args
+      else
+        super
+      end      
+    end
+
+    def use_cache?
+      @use_cache
+    end
+
+    def get_cache_file cmd
+      pwd = Pathname.pwd.to_s.sub(%r{^/}, '')
+      CACHE_DIR + pwd + cmd.gsub(' ', '')
+    end
+
+    def run_cached_command cmd
+      stack "cmd: #{cmd}".cyan
+      cfile = get_cache_file cmd
+      if cfile.exist?
+        debug "reading from cache file: #{cfile}".cyan
+        @output = cfile.readlines
+      else
+        @output = ::IO::popen(cmd).readlines
+        cfile.parent.mkpath
+        stack "saving output to cache file: #{cfile}".cyan
+        File.put_via_temp_file cfile do
+          output
+        end
+      end
+    end
+  end
+end

data/lib/system/cmdexec.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+module PVN
+  class CommandExecutor
+    def initialize
+    end
+
+    def run cmd
+      IO.popen(cmd).readlines
+    end
+  end
+end

data/lib/system/cmdline.rb

@@ -0,0 +1,70 @@
+#!/usr/bin/ruby -w
+# -*- ruby -*-
+
+module PVN
+  class CommandLine
+    include Loggable
+
+    attr_reader :output
+    attr_accessor :use_cache
+
+    def initialize use_cache, args = Array.new
+      @args = args.dup
+      @use_cache = use_cache
+    end
+
+    def use_cache?
+      @use_cache
+    end
+
+    def cache_dir
+      nil
+    end
+
+    def << arg
+      @args << arg
+    end
+
+    def execute
+      if use_cache?
+        run_cached_command
+      else
+        @output = ::IO.popen(to_command).readlines
+      end
+    end
+
+    def to_command
+      @args.join ' '
+    end
+
+    def run args
+      if use_cache?
+        run_cached_command
+      else
+        super
+      end      
+    end
+
+    def get_cache_file
+      pwd = Pathname.pwd.split_path.join('')
+      info "pwd: #{pwd}"
+      Pathname.new(cache_dir) + pwd + @args.join('-')
+    end
+
+    def run_cached_command
+      stack "@args: #{@args}".cyan
+      cachefile = get_cache_file
+      if cachefile.exist?
+        debug "reading from cache file: #{cachefile}".cyan
+        @output = cachefile.readlines
+      else
+        @output = IO.popen(to_command).readlines
+        cachefile.parent.mkpath
+        debug "saving output to cache file: #{cachefile}".on_cyan
+        File.put_via_temp_file cachefile do
+          @output
+        end
+      end
+    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