vcs 0.1

data/HOWTO

@@ -0,0 +1,41 @@
+---
+
+
+
+Mini Vcs HOWTO:
+
+    - Install Vcs:
+
+        - From a package:
+
+            - Install rubygems: http://rubyforge.org/frs/?group_id=126
+
+            - Install Vcs (as root): gem install vcs
+
+        - From the svn repository:
+
+            - Find a place to install it:
+                cd ~/local
+
+            - Checkout Vcs:
+                svn co https://svn.lrde.epita.fr/svn/lrdetools/trunk/vcs
+
+            - Update your PATH:
+                export PATH=$PATH:~/local/vcs/bin
+                
+    - If your shell is zsh: rehash
+
+    - Check Vcs:
+        vcs --help
+
+    - Make aliases:
+        `vcs --mk-alias`        # Don't forget backquotes !
+
+    - Check the transparent mode:
+        svn status!
+
+    - Commit in lrdetools:
+        svn lrdetools_commit 'Your news subject'
+    - or:
+        svn ltci 'Your news subject'
+

data/Rakefile

@@ -0,0 +1,59 @@
+require 'rubygems'
+require 'rake'
+require 'rake/testtask'
+require 'rake/packagetask'
+require 'rake/gempackagetask'
+require 'rake/contrib/rubyforgepublisher'
+
+PKG_VERSION = '0.1'
+
+PKG_FILES = FileList[*%w"
+  src/**/*.rb
+  bin/**/*
+  *.rb
+  [A-Z]*
+"].exclude(/\b\.svn\b|\..*\.sw[op]$|~$|README/)
+
+desc 'Default Task'
+task :default => :package
+
+desc 'Publish to RubyForge'
+task :rubyforge do
+  Rake::RubyForgePublisher.new('vcs', 'ertai').upload
+end
+
+# The Gem specification
+spec = Gem::Specification.new do |s|
+  s.platform = Gem::Platform::RUBY
+  s.name = 'vcs'
+  s.version = PKG_VERSION
+  s.summary = 'A wrapper over any version control system'
+  s.description = '
+    Version control systems (Subversion, CVS, PRCS...), however useful,
+    are not very extensible: adding new features can be cumbersome, especially
+    if you want them for different such systems at once.
+    Vcs provide a simple dynamic hierarchy for Version Control Systems.
+  '
+  
+  s.bindir = 'bin'
+  s.executables = %w[ vcs vcs-svn vcs-cvs vcs-prcs ]
+  s.default_executable = 'vcs'
+  s.files = PKG_FILES.to_a
+  s.require_path = 'src'
+  s.autorequire = 'vcs'
+
+  s.has_rdoc = false
+  s.author = 'Nicolas Pouillard'
+  s.email = 'ertai@lrde.epita.fr'
+  s.homepage = 'https://svn.lrde.epita.fr/svn/lrdetools/trunk/vcs/'
+  s.rubyforge_project = s.name
+end
+  
+# Create compressed packages
+Rake::GemPackageTask.new(spec) do |p|
+  p.gem_spec = spec
+  # p.need_tar = true
+  # p.need_zip = true
+end
+
+

data/TODO

@@ -0,0 +1,19 @@
+---
+
+- add verification for ,message at commit beginning.
+
+- |
+    AMHA mkcl devrait imposer une partie titre au ChangeLog.
+
+    2004- [...]
+
+          TITLE.
+
+          * Makefile.am[...]
+          [...]
+
+
+    puis utiliser ce TITLE au lieu de le demander ailleurs.  Il devrait
+    exiger que TITLE ne soit pas trop long, et termine par un point.
+
+- svn move avec les svn info | grep Copy des files du svn status

data/bin/vcs

@@ -0,0 +1,139 @@
+#!/usr/bin/env ruby
+# 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 $
+
+
+# vcs: The version control system wrapper.
+#
+# Vcs is a wrapper over any version control system.
+
+require 'pathname'
+require 'logger'
+require 'optparse'
+
+begin
+  REV="$Rev$".sub(/LastChangedRevision:\s+/, '').to_i
+rescue
+  REV=-1
+end
+
+VCS_PATH = Pathname.new(__FILE__).expand_path
+VCS_DIR, VCS = VCS_PATH.split
+SRC = VCS_DIR + '..' + 'src'
+$: << SRC.to_s
+$: << Pathname.pwd + 'vcs'
+
+LOG = Logger.new(STDOUT)
+LOG.level = Logger::INFO
+def LOG.format_message(severity, timestamp, msg, progname)
+  progname += ': ' unless progname.nil? or progname.empty?
+  "#{VCS}: #{progname}#{severity.downcase}: #{msg}\n"
+end
+
+$debug = ENV['VCS_DEBUG'].to_i
+
+Pathname.glob("{#{SRC},vcs}/*.rb") do |file|
+  LOG.debug file.basename if $debug > 4
+  require file.basename
+end
+
+ALL_VCS_NAMES = []
+ALL_VCS_BY_NAME = {}
+ObjectSpace.each_object(Class) do |aClass|
+  if aClass != Vcs and aClass.ancestors.include? Vcs
+    name = aClass.to_s.to_sym
+    ALL_VCS_NAMES << name
+    ALL_VCS_BY_NAME[name] = aClass
+  end
+end
+
+OPTIONS = {}
+
+OPTS = OptionParser.new do |opts|
+
+  opts.banner = "Usage: #{VCS} [options] <file>*" 
+  opts.separator ''
+
+  opts.on('-c', '--vcs TYPE', ALL_VCS_NAMES, 'Set your vcs') do |aVcs|
+    OPTIONS[:vcs_type] = aVcs
+  end
+
+  opts.on('-l', '--vcs-list', 'List all vcs') do |aVcs|
+    STDERR.puts 'Vcs list:'
+    ALL_VCS_NAMES.each { |n| STDERR.puts "  - #{n}" }
+    exit
+  end
+
+  opts.on('--mk-alias', 'Use this command like that `vcs --mk-alias`') do
+    ALL_VCS_NAMES.each do |n|
+      n = n.to_s.downcase
+      if VCS_PATH.executable?
+        puts "alias #{n}=#{VCS_PATH}-#{n}"
+      else
+        puts "alias #{n}=vcs-#{n}"
+      end
+    end
+    exit
+  end
+
+  opts.on('-d', '--debug LEVEL', Integer, 'Set debug level') do |anInteger|
+    $debug = anInteger
+  end
+
+  opts.on_tail('-h', '--help', 'Show this message') do |test|
+    STDERR.puts OPTS
+    exit
+  end
+
+  opts.on_tail('--version', 'Show version') do
+    STDOUT.puts "Vcs revision: #{REV}"
+    exit
+  end
+
+end
+
+if ENV.has_key? 'FULLNAME'
+  FULLNAME = ENV['FULLNAME']
+else
+  require 'etc'
+  ENV['FULLNAME'] = (Etc.getpwnam ENV['USER']).gecos
+  LOG.warn "Need FULLNAME in the environement (default: #{ENV['FULLNAME']})"
+end
+env = %w[ EMAIL FULLNAME EDITOR PAGER ]
+if env.all? { |s| ENV[s] }
+  env.each { |s| Kernel.const_set(s, ENV[s]) }
+else
+  env.each { |s| LOG.error "Need #{s} in the environement" unless ENV[s] }
+  exit
+end
+FULL_EMAIL = "#{FULLNAME}  <#{EMAIL}>"
+
+def main
+  OPTS.parse!(ARGV)
+  unless OPTIONS.has_key? :vcs_type
+    STDERR.puts OPTS
+    STDERR.puts "\nSpecify at least a Vcs type, or use a wrapped command\n" +
+                'like svn, cvs, prcs in the vcs bin directory.'
+    exit
+  end
+  vcs = ALL_VCS_BY_NAME[OPTIONS[:vcs_type]].new
+
+  if ARGV.empty?
+    meth = :help!
+  else
+    meth = ARGV.shift.sub(/([^!])$/, '\1!')
+  end
+  
+  vcs.send(meth, *ARGV)
+end
+
+begin
+  main()
+rescue Exception
+  raise if $debug > 0
+  LOG.error $!.to_s.sub(/\.$/, '') unless $!.to_s == 'exit'
+end

data/bin/vcs-cvs

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# 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 $
+
+VCS='Cvs'
+exec("vcs --vcs #{VCS} -- '#{ARGV.join(%q[' '])}'")

data/bin/vcs-prcs

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# 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 $
+
+VCS='Prcs'
+exec('vcs', '--vcs', VCS, '--', *ARGV)

data/bin/vcs-svn

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# 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 $
+
+VCS='Svn'
+exec('vcs', '--vcs', VCS, '--', *ARGV)

data/lrdetools.rb

@@ -0,0 +1,12 @@
+class Vcs
+
+  def lrdetools_commit! ( s, *args )
+
+    common_commit!(*args) do |rev|
+      news!(:groups => ['lrde.proj'], :subject => "LT #{rev}: #{s}")
+    end
+
+  end
+  alias_command :ltci, :lrdetools_commit
+
+end # class Vcs

data/src/ask.rb

@@ -0,0 +1,101 @@
+# 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

@@ -0,0 +1,107 @@
+# 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',
+    'M' => ''
+  }
+
+  @@prop_st =
+  {
+    'M' => 'Changed property'
+  }
+
+  def mkchangelog_from_status ( *args )
+    result = []
+    status(*args).each do |line|
+      next unless line =~ /^.{5} /
+      line =~ /^(.)(.).(.).\s*(.*)$/
+      if $1 != '?'
+	file_st, prop_st, copy_st, file = @@file_st[$1], @@prop_st[$2], $3, $4
+	str = ''
+	str += file_st if file_st
+	str += (file_st.nil?) ? prop_st : (', ' + prop_st.downcase) if prop_st
+	result << [file, str]
+      end
+    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 )
+    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 `date +"%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 changelog! ( *args )
+    unless CL.exist?
+      raise Failure, 'No ChangeLog, you are probably not in a valid directory.'
+    end
+
+    if cl = mkchangelog(*args)
+
+      unless TMP_CL.exist?
+	LOG.warn "Moving #{CL} to `#{TMP_CL}'"
+	CL.rename(TMP_CL)
+      end
+
+      CL.open('w') do |file|
+	cl.each { |line| file.print line }
+	file.puts
+	IO.foreach(TMP_CL) { |line| file.print line }
+      end
+
+    end
+  end
+
+  alias_command :mkcl, :mkchangelog
+  alias_command :cl, :changelog
+
+end # class Vcs
+

data/src/cvs.rb

@@ -0,0 +1,21 @@
+# 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 Cvs < Vcs
+
+  def initialize ( aCmd='cvs' )
+    super
+  end
+
+  %w[ rdiff rtag tag ].each do |m|
+    add_basic_method(m)
+  end
+
+end # class Cvs
+

data/src/diffstat.rb

@@ -0,0 +1,36 @@
+# 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 )
+    unless `diffstat -V` =~ /diffstat version/
+      raise ArgumentError, 'The `diffstat\' tool is needed by Vcs.diffstat' 
+    end
+    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
+
+end # class Vcs
+

data/src/mail.rb

@@ -0,0 +1,83 @@
+# 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 'tools'
+
+class Vcs
+
+  MAIL = Pathname.new(',mail')
+    
+  def parse_mail_options ( *args )
+    require 'optparse'
+    result =
+    {
+      :from => FULL_EMAIL,
+      :to => [],
+      :server => ENV['SMTPSERVER'] || 'localhost',
+    }
+    if !args.nil? and !args.empty? and args[0].is_a?(Hash)
+      args[0].each do |k,v|
+	result[k] = v
+      end
+      return result
+    end
+    OptionParser.new do |opts|
+      opts.separator ''
+      opts.on('-t', '--mail-to NAME', 'Choose a recipient') do |aString|
+	result[:to] << aString
+      end
+      opts.on('-s', '--server NAME', 'Choose a mail server') do |aString|
+	result[:server] = aString
+      end
+      opts.on('-S', '--subject NAME', 'Choose your mail subject') do |aString|
+	result[:subject] = aString.sub(/\.?$/, '.')
+      end
+      opts.on_tail('-h', '--help', 'Show this message') do
+	puts opts
+	exit
+      end
+    end.parse!(args)
+    raise Failure, 'No recipents' if result[:to].empty?
+    raise Failure, 'No mail server' if result[:server].nil?
+    raise Failure, 'No mail subject' if result[:subject].nil?
+    result
+  end
+  protected :parse_mail_options
+
+  #
+  # Mail.
+  #
+  def mail ( *args )
+
+    print_body(MAIL, parse_mail_options(*args)) unless MAIL.exist?
+
+    MAIL.open('r') do |file|
+      opt = YAML::chop_header(file)
+      STDERR.puts "Smtp Server: #{opt[:server]}"
+      if ask("Send a mail, with this subject: #{opt[:subject]}\n" +
+             "  to #{opt[:to].join(', ')}\n  from #{opt[:from]}\n" +
+             'Are you sure?', :y) == :n
+        LOG.error 'Aborting'
+        exit
+      end
+      require 'net/smtp'
+      Net::SMTP.start(opt[:server], 25) do |smtp|
+	smtp.open_message_stream(EMAIL, opt[:to]) do |f|
+	  f.print "From: #{opt[:from]}\n"
+	  f.print "Subject: #{opt[:subject]}\n"
+	  f.print "To: #{opt[:to].join(', ')}\n"
+	  f.print "\n"
+	  file.each { |line| f.print line }
+	end
+      end
+    end
+    MAIL.delete
+    StringIO.new('Mail: Sent.')
+  end
+
+end # class Vcs

data/src/message.rb

@@ -0,0 +1,58 @@
+# 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
+      message.each do |line|
+	f.print line
+      end
+    end
+  end
+  private :print_body
+
+  def message ( *args )
+    unless @@message.exist?
+      cl = mkchangelog(*args)
+      @@message.open('w') do |f|
+	f.puts 'Index: ChangeLog'
+	cl.each { |line| f.print line.sub(/^\d+-\d+-\d+/, 'from') }
+	f.puts
+	# FIXME: need to remove the ChangeLog entry in diff.
+	diffstat(*args).each { |line| f.print line }
+        f.puts
+	diff(*args).each { |line| f.print line unless line =~ /^=+$/ }
+      end
+    end
+    @@message.open('r')
+  end
+
+  alias_command :msg, :message
+
+end # class Vcs

data/src/mycommit.rb

@@ -0,0 +1,75 @@
+# 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 'ask'
+
+class Vcs
+
+  def edit! ( *files )
+    system(ENV['EDITOR'], *files.map { |x| x.to_s })
+  end
+
+  def common_commit! ( *args, &block )
+
+    opts, args = args.partition { |a| a =~ /^-/ }
+
+    update!
+
+    unless @@message.exist?
+
+      begin
+        mkchangelog(*args)
+      rescue MustBeFilled => ex
+        edit! ex.file
+      end
+
+      message(*args)
+
+      edit! @@message
+
+      changelog!(*args)
+
+      #pager! diff
+      #pager! status
+
+      args << 'ChangeLog' unless args.grep(/^[^-]/).empty?
+
+      if ask('Committing, are you sure?', :y) == :n
+        @@message.unlink
+        LOG.error 'Aborting'
+        exit
+      end
+
+      if commit!('-F', ADD_CL, *(opts + args))
+        LOG.info 'Deleting junk files...'
+        ADD_CL.delete
+        TMP_CL.delete if TMP_CL.exist?
+      else
+        @@message.unlink
+        raise Failure, 'commit failed'
+      end
+
+      update!
+
+    end
+
+    rev = self.revision.readline.chomp.to_i
+
+    block.call(rev) if block_given?
+
+    messages = Pathname.new(',messages')
+    messages.mkpath unless messages.directory?
+    message_rev = messages + "#{@@message}.#{rev}"
+    LOG.info "Moving `#{@@message}' to `#{message_rev}'..."
+    @@message.rename(message_rev)
+    LOG.info "Remove `#{message_rev}' if everything is ok."
+
+  end
+  alias_command :cci, :common_commit
+
+end # class Vcs

data/src/news.rb

@@ -0,0 +1,97 @@
+# 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 'tools'
+require 'message'
+
+class Vcs
+
+  NEWS = Pathname.new(',news')
+
+  def parse_news_options ( *args )
+    require 'optparse'
+    result =
+    {
+      :from => FULL_EMAIL,
+      :groups => [],
+      :server => ENV['NNTPSERVER'],
+    }
+    if !args.nil? and !args.empty? and args[0].is_a?(Hash)
+      return result.merge!(args[0])
+    end
+    OptionParser.new do |opts|
+      opts.separator ''
+      opts.on('-g', '--group NAME', 'Choose a news group') do |aString|
+	result[:groups] << aString
+      end
+      opts.on('-s', '--server NAME', 'Choose a news server') do |aString|
+	result[:server] = aString
+      end
+      opts.on('-S', '--subject NAME', 'Choose your news subject') do |aString|
+	result[:subject] = aString
+      end
+      opts.on_tail('-h', '--help', 'Show this message') do
+	puts opts
+	exit
+      end
+    end.parse!(args)
+    raise Failure, 'No news group' if result[:groups].empty?
+    raise Failure, 'No news server' if result[:server].nil?
+    raise Failure, 'No news subject' if result[:subject].nil?
+    result
+  end
+  protected :parse_news_options
+
+  def check_line ( anIO, aRegex )
+    line = anIO.readline.chomp!
+    LOG.debug('news') { "Server: #{line}" }
+    unless line =~ aRegex
+      LOG.error('news') { "Bad answer: #{line}" }
+      @news_status = 'Error.'
+    end
+  end
+  private :check_line
+
+  #
+  # Post the news.
+  #
+  def news ( *args )
+    print_body(NEWS, parse_news_options(*args)) unless NEWS.exist?
+
+    @news_status = 'Sent.'
+    NEWS.open('r') do |file|
+      opt = YAML::chop_header(file)
+      LOG.info('news') { "Nntp Server: #{opt[:server]}" }
+      if ask("Post a news, with this subject: #{opt[:subject]}\n" +
+             "  to #{opt[:groups].join(', ')}\n  from #{opt[:from]}\n" +
+             'Are you sure?', :y) == :n
+        LOG.error('news') { 'Aborting' }
+        exit
+      end
+      require 'socket'
+      TCPSocket.open(opt[:server], 119) do |f|
+        check_line(f, /^200/)
+	f.puts 'post'
+        check_line(f, /^340/)
+	f.puts "Newsgroups: #{opt[:groups].join(', ')}"
+	f.puts "From: #{opt[:from]}"
+	f.puts "Subject: #{opt[:subject]}"
+	f.puts
+	file.each do |line|
+	  f.print line.gsub(/^\./, ' .')
+	end
+	f.puts '.'
+        check_line(f, /^240/)
+	f.puts 'quit'
+        check_line(f, /^205/)
+      end
+    end
+    NEWS.delete
+    StringIO.new(@news_status)
+  end
+
+end # class Vcs

data/src/prcs.rb

@@ -0,0 +1,21 @@
+# 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 Prcs < Vcs
+
+  def initialize ( aCmd='prcs' )
+    super
+  end
+
+  %w[ admin ].each do |m|
+    add_basic_method(m)
+  end
+
+end # class Prcs
+

data/src/reply-mail.rb

@@ -0,0 +1,14 @@
+
+
+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/revision.rb

@@ -0,0 +1,19 @@
+# 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 'svn'
+require 'stringio'
+
+class Svn
+
+  def revision ( *args )
+    StringIO.new(info.readlines.grep(/^Revision:/)[0].sub(/^Revision: /, ''))
+  end
+
+  alias_command :rev, :revision
+
+end # class Svn

data/src/svn.rb

@@ -0,0 +1,31 @@
+# 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 'tools'
+
+CL = Pathname.new('ChangeLog')
+ADD_CL = Pathname.new(',ChangeLog')
+TMP_CL = Pathname.new(',,ChangeLog')
+
+class Svn < Vcs
+
+  class Failure < Vcs::Failure
+  end
+
+  def initialize ( aCmd='svn' )
+    super
+  end
+
+  %w[ blame copy list move switch revert info
+      propdel propget proplist propset mkdir ].each do |m|
+    add_basic_method(m)
+  end
+
+  add_basic_method!(:propedit)
+
+end # class Svn

data/src/tools.rb

@@ -0,0 +1,22 @@
+# 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
+

data/src/vcs.rb

@@ -0,0 +1,155 @@
+# 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 $
+
+class Class # :nodoc:
+  
+  def add_basic_method ( meth )
+    class_eval <<-end_eval
+      def #{meth} ( *args )
+	run("#{meth}", *args)
+      end
+      def #{meth}_ ( *args )
+	run("#{meth}", *args)
+      end
+    end_eval
+  end
+
+  def add_basic_method! ( meth )
+    class_eval <<-end_eval
+      def #{meth}! ( *args )
+	run!("#{meth}", *args)
+      end
+      def #{meth}_! ( *args )
+	run!("#{meth}", *args)
+      end
+    end_eval
+  end
+
+  def alias_command ( m1, m2 )
+    class_eval <<-end_eval
+      def #{m1} ( *args )
+        #{m2}(*args)
+      end
+      def #{m1}_ ( *args )
+        #{m2}_(*args)
+      end
+      def #{m1}! ( *args )
+        #{m2}!(*args)
+      end
+      def #{m1}_! ( *args )
+        #{m2}_!(*args)
+      end
+    end_eval
+  end
+
+end # class Class
+
+# The abstract class for a Vcs wrapper.
+# Conventions:
+#   example:
+#     svn checkout http://foo.bar/proj   # normal command
+#     xrcs checkout http://foo.bar/proj  # normal 
+# 
+# checkout
+# checkout_
+# checkout!
+# checkout_!
+# 
+class Vcs
+
+  class Failure < Exception
+  end
+  
+  def initialize ( aCmd )
+    @cmd = aCmd
+  end
+
+  def common_run ( args )
+    cmd = @cmd + ' "' + args.join('" "') + '"'
+    LOG.debug "running: #{cmd}" if $debug > 1
+    cmd
+  end
+  private :common_run
+
+  def run ( *args )
+    IO.popen(common_run(args))
+  end
+
+  def run! ( *args )
+    system(common_run(args))
+  end
+
+  %w[ checkout delete diff help status log add update ].each do |m|
+    add_basic_method(m)
+  end
+
+  add_basic_method!(:commit)
+
+  def method_missing ( meth, *args )
+    meth = meth.to_s
+    if meth =~ /^(.*)!$/
+      if respond_to? $1
+	send($1, *args).each do |line|
+	  puts line
+	end
+      else
+	LOG.warn "unknown method #{meth}"
+	run!($1.sub(/_$/, ''), *args)
+      end
+    else
+      LOG.warn "unknown method #{meth}"
+      run(meth.sub(/_$/, ''), *args)
+    end
+  end
+
+  alias_command :ann, :blame
+  alias_command :annotate, :blame
+  alias_command :praise, :blame
+  alias_command :co, :checkout
+  alias_command :ci, :commit
+  alias_command :cp, :copy
+  alias_command :del, :delete
+  alias_command :remove, :delete
+  alias_command :rm, :delete
+  alias_command :di, :diff
+  alias_command :h, :help
+  alias_command :ls, :list
+  alias_command :mv, :move
+  alias_command :rename, :move
+  alias_command :ren, :move
+  alias_command :pdel, :propdel
+  alias_command :pd, :propdel
+  alias_command :pedit, :propedit
+  alias_command :pe, :propedit
+  alias_command :pget, :propget
+  alias_command :pg, :propget
+  alias_command :plist, :proplist
+  alias_command :pl, :proplist
+  alias_command :pset, :propset
+  alias_command :ps, :propset
+  alias_command :st, :status
+  alias_command :stat, :status
+  alias_command :sw, :switch
+  alias_command :up, :update
+
+  # Cvs Alias
+  alias_command :new, :add
+  alias_command :rcs, :admin
+  alias_command :get, :checkout
+  alias_command :rlog, :log
+  alias_command :patch, :rdiff
+  alias_command :remove, :delete
+  alias_command :rm, :delete
+  alias_command :rfreeze, :rtag
+  alias_command :freeze, :tag
+
+  # Prcs Alias
+  alias_command :checkin, :commit
+  alias_command :populate, :add
+
+end # class Vcs
+

metadata

@@ -0,0 +1,65 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.4
+specification_version: 1
+name: vcs
+version: !ruby/object:Gem::Version 
+  version: "0.1"
+date: 2005-02-08
+summary: A wrapper over any version control system
+require_paths: 
+  - src
+email: ertai@lrde.epita.fr
+homepage: https://svn.lrde.epita.fr/svn/lrdetools/trunk/vcs/
+rubyforge_project: vcs
+description: "Version control systems (Subversion, CVS, PRCS...), however useful, are not very
+  extensible: adding new features can be cumbersome, especially if you want them
+  for different such systems at once. Vcs provide a simple dynamic hierarchy for
+  Version Control Systems."
+autorequire: vcs
+default_executable: vcs
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+authors: 
+  - Nicolas Pouillard
+files: 
+  - src/ask.rb
+  - src/changelog.rb
+  - src/cvs.rb
+  - src/diffstat.rb
+  - src/mail.rb
+  - src/message.rb
+  - src/mycommit.rb
+  - src/news.rb
+  - src/prcs.rb
+  - src/reply-mail.rb
+  - src/revision.rb
+  - src/svn.rb
+  - src/tools.rb
+  - src/vcs.rb
+  - bin/vcs
+  - bin/vcs-cvs
+  - bin/vcs-prcs
+  - bin/vcs-svn
+  - lrdetools.rb
+  - HOWTO
+  - Rakefile
+  - TODO
+test_files: []
+rdoc_options: []
+extra_rdoc_files: []
+executables: 
+  - vcs
+  - vcs-svn
+  - vcs-cvs
+  - vcs-prcs
+extensions: []
+requirements: []
+dependencies: []