vcs 0.2.148 → 0.3.0

data/src/vcs.rb

@@ -1,176 +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 'set'
-
-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
-    @handlers = Set.new
-  end
-
-  @@checkers = Set.new
-
-  def common_run ( args )
-    cmd = @cmd + ' "' + args.join('" "') + '"'
-    LOG.debug { "running: #{cmd}" }
-    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
-
-  def error_handling ( meth )
-    @handlers << meth
-  end
-
-  def call_handlers
-    @handlers.each { |meth| send(meth) }
-  end
-
-  def self.add_conf_checker ( meth )
-    @@checkers << meth
-  end
-
-  def call_conf_checkers
-    @@checkers.each { |meth| send(meth) }
-  end
-
-end # class Vcs
-