vcs 0.2.148 → 0.3.0

data/ruby_ex/yaml/yregexpath.rb

@@ -1,76 +0,0 @@
-# Author:: Marco Tessari  <marco.tessari@epita.fr>.
-# Copyright:: Copyright (c) 2004 TTK Team. All rights reserved.
-# License:: Ruby license.
-
-# $LastChangedBy: polrop $
-# $Id: yregexpath.rb 159 2005-02-18 12:07:23Z polrop $
-
-module YAML
-
-  class YRegexPath
-    attr_reader :segments, :root, :wanted_node_index
-
-    def initialize ( str )
-      raise ArgumentError, 'Argument must be a string' unless str.is_a?(String)
-      @segments = []
-      @wanted_node_index = nil
-      @root = (str[0] == ?/)
-      while str =~ /^(\/|#)?((?:(?:\\.)|[^\\=\/#])+)(?:=((?:(?:\\.)|[^\\\/#])*))?/
-        if ($1 == "#")
-          if (@wanted_node_index.nil?)
-            @wanted_node_index = @segments.length 
-          else
-            raise ArgumentError, 'More than a "#" given.'
-          end
-        end
-        if ($3.nil?)
-          @segments << Regexp.new($2)
-        else
-          @segments << [ Regexp.new($2), Regexp.new($3) ]
-        end
-        str = $'
-      end
-      @wanted_node_index = @segments.length if @wanted_node_index.nil?
-    end
-  end
-
-end # module YAML
-
-if defined? TEST_MODE or $0 == __FILE__
-
-  require 'test/unit'
-  
-  class YRegexPathTest < Test::Unit::TestCase
-    def compare(str, tab)
-      tab.collect! do |e|
-        if (e.is_a?(Array))
-          e.collect! { |s| Regexp.new(s) unless s.nil? }
-        else
-          Regexp.new(e)
-        end
-      end
-      desc = "Compare #{str} with #{tab}."
-      assert_equal(tab, YAML::YRegexPath.new(str).segments, desc)
-    end
-    
-    def testit
-      compare('mho', [ 'mho' ])
-      compare('mho\\', [ 'mho' ])
-      compare('/mho', [ 'mho' ])
-      compare('/mho=42', [ [ 'mho', '42'] ])
-      compare('/mho=[0-9]+', [ [ 'mho', '[0-9]+' ] ])
-      compare('m\/ho', [ 'm\/ho' ])
-      compare('mho/foo', [ 'mho', 'foo' ])
-      compare('mho=35/foo=test', [ [ 'mho' , '35' ], [ 'foo' , 'test' ] ])
-      compare('test#status=PASS', [ 'test' , [ 'status' , 'PASS' ] ])
-      compare('mho#', [ 'mho' ])
-    end
-    
-    def test_errors
-      # Build with something else than a String.
-      assert_raise(ArgumentError) { YAML::YRegexPath.new(42) }
-      # Two '#'.
-      assert_raise(ArgumentError) { YAML::YRegexPath.new('1#2#3') }
-    end
-  end
-end

data/src/ask.rb

@@ -1,101 +0,0 @@
-# Author:: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# Copyright:: Copyright (c) 2004 LRDE. All rights reserved.
-# License:: GNU General Public License (GPL).
-
-# $LastChangedBy: ertai $
-# $Id: header 98 2004-09-29 12:07:43Z ertai $
-
-ANSWERS = [ :y, :n ]
-ANSWER_NOT_VALID = 'Not a valid answer, please answer correctly'
-
-# `ask', ask the user to answer, to your question.
-#
-# Example:
-#   ask('Commiting, are you sure', :n)
-#
-#   produce => Commiting, are you sure (y/N): 
-#   and wait your answer.
-def ask ( aQuestion, theDefaultAnswer=:y, cin=STDIN, cout=STDOUT, cerr=STDERR )
-  
-  yn = case theDefaultAnswer
-       when :y then ' [Y/n]: '
-       when :n then ' [y/N]: '
-       else raise ArgumentError, "not valid default answer #{theDefaultAnswer}"
-       end
-
-  loop do
-    cout.print aQuestion, yn
-    cout.flush
-
-    answer = cin.readline.chomp.downcase
-    
-    return theDefaultAnswer if answer.empty?
-
-    answer = answer.to_sym
-
-    return answer if ANSWERS.include? answer
-
-    cerr.puts ANSWER_NOT_VALID
-    cout.puts
-  end
-
-end
-
-if defined? TEST_MODE or $0 == __FILE__
-
-require 'test/unit'
-class AskTest < Test::Unit::TestCase
-
-  def ask_checker ( question, default, answer, ref, out, err )
-    require 'stringio'
-    cin, cout, cerr = StringIO.new, StringIO.new, StringIO.new
-    cin.puts answer
-    cin.rewind
-    res = ask(question, default, cin, cout, cerr)
-    cout.rewind
-    cerr.rewind
-    assert_equal(res, ref, 'bad return value')
-    assert_equal(cout.readlines.join, out, 'bad standard output')
-    assert_equal(cerr.readlines.join, err, 'bad error output')
-  end
-
-  def test_bad_default
-    assert_raise(ArgumentError) { ask_checker('Q', :foo, '', :y, [], []) }
-    assert_nothing_raised do
-      ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '')
-    end
-    assert_nothing_raised do
-      ask_checker('Q', :n, 'y', :y, 'Q [y/N]: ', '')
-    end
-  end
-
-  def test_valid_default_yes
-    ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '')
-    ask_checker('Q', :y, 'Y', :y, 'Q [Y/n]: ', '')
-    ask_checker('Q', :y, 'n', :n, 'Q [Y/n]: ', '')
-    ask_checker('Q', :y, 'N', :n, 'Q [Y/n]: ', '')
-    ask_checker('Q', :y, '',  :y, 'Q [Y/n]: ', '')
-  end
-
-  def test_valid_default_no
-    ask_checker('Q', :n, 'y', :y, 'Q [y/N]: ', '')
-    ask_checker('Q', :n, 'Y', :y, 'Q [y/N]: ', '')
-    ask_checker('Q', :n, 'n', :n, 'Q [y/N]: ', '')
-    ask_checker('Q', :n, 'N', :n, 'Q [y/N]: ', '')
-    ask_checker('Q', :n, '',  :n, 'Q [y/N]: ', '')
-  end
-
-  def test_invalid_answer
-    ask_checker('Q', :n, "bad\ny", :y,
-                "Q [y/N]: \nQ [y/N]: ", ANSWER_NOT_VALID + "\n")
-    ask_checker('Q', :y, "ad\n\n", :y,
-                "Q [Y/n]: \nQ [Y/n]: ", ANSWER_NOT_VALID + "\n")
-  end
-
-  def test_ask1
-    ask_checker('Q', :y, 'y', :y, 'Q [Y/n]: ', '')
-  end
-
-end # class AskTest
-
-end

data/src/changelog.rb

@@ -1,117 +0,0 @@
-# Author:: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# Copyright:: Copyright (c) 2004 LRDE. All rights reserved.
-# License:: GNU General Public License (GPL).
-
-# $LastChangedBy: ertai $
-# $Id: header 98 2004-09-29 12:07:43Z ertai $
-
-require 'vcs'
-require 'svn'
-
-class Svn
-
-  @@file_st =
-  {
-    'A' => 'New',
-    'D' => 'Remove',
-  }
-  @@file_st.default = ''
-
-  @@prop_st =
-  {
-    'M' => 'Changed property'
-  }
-
-  def mkchangelog_from_status ( *args )
-    result = []
-    from_status(*args) do |line, file_st, prop_st, copy_st, file|
-      next if file_st =~ /[?X]/
-      next if file == 'ChangeLog'
-      ls = []
-      ls << @@file_st[file_st] if @@file_st.has_key? file_st
-      ls << @@prop_st[prop_st].downcase if @@prop_st.has_key? prop_st
-      result << [file, ls.join(', ')]
-    end
-    raise Failure, 'No changes, so no ChangeLog entry.' if result.empty?
-    result
-  end
-  private :mkchangelog_from_status
-
-end # class Svn
-
-
-class Vcs
-
-  class MustBeFilled < Exception
-    attr_reader :file
-    def initialize ( file )
-      @file = file
-      super("You must fill this file: `#{file.to_s}'")
-    end
-  end
-
-  def mkchangelog ( *args )
-    error_handling :changelog_failed
-
-    cl = ADD_CL
-
-    if cl.exist?
-      f = cl.open('r')
-      if f.readline !~ /^===/
-	f.rewind
-	return f
-      end
-      f.close
-    else
-      cl_add = mkchangelog_from_status(*args)
-      LOG.warn "Creating a new `#{cl}' file"
-      cl.open('w') do |f|
-	f.puts '=== Fill this file correctly and remove this line ==='
-	f.puts Time.now.strftime("%Y-%m-%d  #{FULL_EMAIL}")
-	f.puts
-	cl_add.each do |file, str|
-	  f.puts "\t* #{file}: #{str}."
-	end
-      end
-    end
-
-    raise MustBeFilled, cl
-  end
-
-  def concat_changelog! ( *args )
-    error_handling :changelog_failed
-
-    unless CL.exist?
-      raise Failure, "No `#{CL}', you are probably not in a valid directory."
-    end
-
-    if cl = mkchangelog(*args)
-
-      unless TMP_CL.exist?
-	LOG.info "Moving `#{CL}' to `#{TMP_CL}' ..."
-	CL.rename(TMP_CL)
-      end
-
-      CL.open('w') do |file|
-	LOG.info "Prepending `#{ADD_CL}' to `#{CL}' ..."
-	file.print cl.read
-	file.puts
-        file.print TMP_CL.read
-      end
-
-    end
-  end
-
-  def changelog_failed
-    if TMP_CL.exist?
-      LOG.info "Restoring `#{CL}' from `#{TMP_CL}' ..."
-      TMP_CL.rename(CL)
-    end
-    LOG.info "#{ADD_CL}: Contains your ChangeLog entry" if ADD_CL.exist?
-  end
-
-  alias_command :mkcl, :mkchangelog
-  alias_command :ctcl, :concat_changelog
-
-end # class Vcs
-

data/src/conflict.rb

@@ -1,20 +0,0 @@
-class Vcs
-
-  def mk_conflicts_list
-    status.grep(/^C/).each { |s| s.sub!(/^C\s+(.*)\n/, '\1') }
-  end
-
-  def edit_conflicts
-    system("#{EDITOR} #{mk_conflicts_list}")
-  end
-
-  def resolve_conflicts
-    conflicts = mk_conflicts_list
-    question = "Resolve these conflicts: \n  - #{conflicts.join("\n  - ")}\n"
-    if ask(question, :n) == :y
-      return resolved(conflicts)
-    end
-    []
-  end
-
-end # class Vcs

data/src/diffstat.rb

@@ -1,42 +0,0 @@
-# Author:: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# Copyright:: Copyright (c) 2004 LRDE. All rights reserved.
-# License:: GNU General Public License (GPL).
-
-# $LastChangedBy: ertai $
-# $Id: header 98 2004-09-29 12:07:43Z ertai $
-
-require 'vcs'
-
-class Vcs
-
-  # Use the diffstat command to 
-  # display statitics on your patch.
-  def diffstat ( *a )
-    check_diffstat
-    patch = diff(*a)
-    rd, wr = IO.pipe
-    pid = fork do
-      rd.close
-      STDIN.reopen(patch)
-      STDOUT.reopen(wr)
-      exec 'diffstat'
-    end
-    wr.close
-    def rd.close
-      super
-      Process.waitpid pid
-    end
-    rd
-  end
-  alias_command :ds, :diffstat
-
-  def check_diffstat
-    unless `diffstat -V` =~ /diffstat version/
-      raise ArgumentError, 'The `diffstat\' tool is needed by Vcs.diffstat' 
-    end
-  end
-
-  add_conf_checker :check_diffstat
-
-end # class Vcs
-

data/src/message.rb

@@ -1,64 +0,0 @@
-# Author:: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# Copyright:: Copyright (c) 2004 LRDE. All rights reserved.
-# License:: GNU General Public License (GPL).
-
-# $LastChangedBy: ertai $
-# $Id: header 98 2004-09-29 12:07:43Z ertai $
-
-require 'vcs'
-require 'changelog'
-
-class Vcs
-  def diffw ( *args )
-    diff(*args)
-  end
-end
-
-class Svn
-  def diffw ( *args )
-    diff('--diff-cmd', 'diff', '-x', '-NPbuw', *args)
-  end
-end
-
-class Vcs
-
-  @@message = Pathname.new(',message')
-
-  def print_body ( file, options )
-    LOG.warn "Creating a new `#{file}' file"
-    file.open('w') do |f|
-      f.puts options.to_yaml
-      f.puts '---'
-      f.puts
-      f.print message.read
-    end
-  end
-  private :print_body
-
-  def message ( *args )
-    error_handling :message_failed
-
-    unless @@message.exist?
-      cl = mkchangelog(*args)
-      @@message.open('w') do |f|
-        f.puts 'Index: ChangeLog'
-        f.print cl.read.sub(/^\d+-\d+-\d+/, 'from')
-        f.puts
-        f.print diffstat(*args).read
-        f.puts
-        diffw_from_status(*args).each { |line| f.print line if line !~ /^=+$/ }
-      end
-    end
-    @@message.open('r')
-  end
-
-  alias_command :msg, :message
-
-  def message_failed
-    if @@message.exist?
-      LOG.info "#{@@message}: Contains the generated message"
-      LOG.info '              (the ChangeLog entry, the diffstat, the diff)'
-    end
-  end
-
-end # class Vcs

data/src/reply-mail.rb

@@ -1,14 +0,0 @@
-
-
-class Vcs
-  def replymail! ( rev )
-    mail() do |f|
-      log("-r#{rev}").each do |line|
-        f.print '> ', line
-      end
-      f.puts '[...]'
-      f.puts
-      f.puts 'Ok.'
-    end
-  end
-end

data/src/tools.rb

@@ -1,22 +0,0 @@
-# Author:: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# Copyright:: Copyright (c) 2004 LRDE. All rights reserved.
-# License:: GNU General Public License (GPL).
-
-# $LastChangedBy: ertai $
-# $Id: header 98 2004-09-29 12:07:43Z ertai $
-
-require 'yaml'
-module YAML
-
-  def self.chop_header ( io )
-    aStr = io.gets
-    raise Exception, "First line is not valid: `#{aLine}'" unless aStr =~ /^---/
-    io.each do |aLine|
-      break if aLine =~ /^---/
-      aStr += aLine
-    end
-    YAML::load(aStr)
-  end
-
-end # module YAML
-