cvstools 0.9.0

data/lib/cvstools.rb

@@ -0,0 +1,316 @@
+#!/usr/bin/env ruby
+#
+# = CVSTools : Object tools for CVS manipulations
+#
+# == Copyright Ultragreen (c) 2005
+#
+# == About :
+#
+# * Author:: Romain GEORGES
+# * type:: class definition Ruby
+# * obj:: Generic CVS tools class
+# * CVS Version:: $Id: cvstools.rb,v 1.5 2006/10/20 09:33:50 lecid Exp $
+#
+# === Websites :
+# *   http://www.ultragreen.net
+# *   http://ldapmapper.rubyforge.org
+#
+# === Contact :
+#   Romain GEORGES <romain@ultragreen.net>
+#
+# == Exemples :
+
+
+
+# General module for LDAP CRUD Ojects
+module Cvstools
+  
+  # identity lib
+  # version of the library
+  LIB_VERSION='0.9.0'
+  # name of the author
+  AUTHOR='Romain GEORGES'
+  # date of creation
+  DATE='30/07/2005'
+  # valuable observations
+  OBS='Generic LDAP class'
+  
+  
+  
+  class CVS
+    
+    
+    # accessors
+    attr_accessor :command
+    attr_reader :root
+    attr_accessor :cvsmodule
+    attr_reader :server_type
+    attr_accessor :user
+    attr_accessor :host
+    attr_accessor :password  
+    attr_accessor :workdir
+    attr_accessor :exportdir
+    attr_accessor :tag
+    attr_accessor :path
+    attr_accessor :port
+    
+
+    def local?
+      return @local
+    end
+
+    def remote?
+      return @remote
+    end
+
+    def initialize(_root,_cvsmodule='CVSROOT',_password=nil,_tag=nil,_command=nil)
+      @checkout = false
+      @uptodate = false
+      @tag = _tag.nil? ? 'HEAD' : _tag
+      @command = _command.nil? ? `which cvs`.chomp : _command
+      @exportdir = String::new('')
+      @workdir = '/tmp'
+      raise CVSCommandNotFound if @command.empty? or not File::executable?(@command)
+      @root = _root
+      @cvsmodule = _cvsmodule
+      @password = _password
+      @local = false
+      @remote = true
+      @port = 2401
+      case @root 
+      when  /^\/.+$/
+	@server_type = 'none'
+	@local = true
+	@remote = false
+	@host = 'localhost'
+	@path = @root
+	raise CVSInvalidRoot if not File::exist?("#{@root}/CVSROOT")
+      when/^:ext:(\w+)@(([\w\n-]+\.)+[\w\n-]{2,4}):(\/.+)$/
+	@server_type = 'ssh'
+	@user = $1
+	@host = $2
+	@path = $4
+      when /^:pserver:(\w+)@(([\w\n-]+\.)+[\w\n-]{2,4}):(\/.+)$/
+	raise CVSNoPassword if @password.nil?
+	@server_type = 'pserver'
+	@user,@host,@path = $1,$2,$4
+	@root = ":pserver:#{$1}:#{@password}@#{$2}:#{@port}:#{$4}"
+      when /^:pserver:(\w+):(.+)@(([\w\n-]+\.)+[\w\n-]{2,4}):(\/.+)$/
+	@user,@password,@host,@path = $1,$2,$3,$5
+	@root = ":pserver:#{$1}:#{$2}@#{$3}:#{@port}:#{$5}"
+      when /^:pserver:(\w+):(.+)@(([\w\n-]+\.)+[\w\n-]{2,4}):(\d+):(\/.+)$/
+	@user,@password,@host,@port,@path = $1,$2,$3,$5,$6
+	@root = ":pserver:#{$1}:#{$2}@#{$3}:#{$5}:#{$6}"
+      when /^:pserver:(\w+)@(([\w\n-]+\.)+[\w\n-]{2,4}):(\d+):(\/.+)$/
+	raise CVSNoPassword if @password.nil?
+	@user,@host,@port,@path = $1,$2,$4,$5
+	@root = ":pserver:#{$1}:#{@password}@#{$2}:#{$4}:#{$5}"
+      else
+	raise CVSNotSupportedServer
+      end
+    end
+    
+    def export(_path=nil)
+      raise CVSExportdirNotFound if not File::exist?(@exportdir)
+      _res = system("cd #{@workdir};#{@command} -d#{@root} -Q export -r#{tag} #{@cvsmodule} >/dev/null 2>&1")
+      raise CVSExportFailed if not _res
+      return _res
+    end
+    
+    def checkout(_path=nil)
+      raise CVSWorkdirNotFound if not File::exist?(@workdir) 
+      _res = system("cd #{@workdir};#{@command} -d#{@root} -Q co -r#{tag} #{@cvsmodule} >/dev/null 2>&1")
+      raise CVSCheckoutFailed if not _res
+      return _res
+    end
+    
+    def checkout?
+      return File::exist?("#{@workdir}/#{@cvsmodule}/CVS")
+    end
+    
+    def status
+      _list = Hash::new
+      begin
+	_mycmd = open("|cd #{@workdir}/#{@cvsmodule};#{@command}-Q status >/dev/null 2>&1")
+	_mycmd.each{|_line| 
+	  _list[$1.chomp] = $2.chomp if _line =~ /^File:\s+(\S+)\s+Status:\s+(.*)$/
+	}
+	if _list.empty?then
+	  raise CVSStatusFailed
+	  return Hash::new
+	else
+	  return _list
+	end
+      rescue
+	raise CVSStatusFailed
+	return Hash::new
+      end
+    end
+    
+    def uptodate?
+      return self.status.values.sort.uniq.to_s == 'Up-to-date'
+    end
+    
+    def commit
+      raise CVSNotCheckout if not self.checkout?
+      _res = system("cd #{@workdir}/#{@cvsmodule};#{@command} -d#{@root} -Q commit >/dev/null 2>&1")
+      raise CVSCommitFailed if not _res
+      return _res
+    end
+    
+    def get_cvsmodule_list
+      raise CVSNotSupported if self.remote?
+      return Dir["#{@path}/*"].map!{|item| item.gsub(/#{@path}\//,'')}
+    end
+
+    def log(_file)
+      return Log::new(_file,@cvsmodule,@workdir,@command,@root)
+    end
+
+    def get_file(_file)
+      
+    end
+    
+  end
+  
+  class Log
+    
+    def initialize(_file,_cvsmodule,_workdir,_command,_root)
+      _myfile = open("\|cd #{@workdir}/#{@cvsmodule};#{@command} -d#{@root} log #{_file}")
+      @mapping = Hash::new
+      @mapping['revisions'] = Hash::new
+      @mapping['revisions_order'] = Array::new
+      _myfile.each {|_line| 
+	@mapping['rcs'] = $1 if _line =~ /^RCS\s+file:\s+(\S+)/
+	@mapping['head'] = $1 if _line =~ /^head:\s+([\d|\.]+)/
+	if _line =~ /^total\s+revisions:\s+(\d+);\s+selected\s+revisions:\s+(\d+)/ then  
+	  @mapping['nb_revisions'] = $1 
+	  @mapping['current_revision'] = $2 
+	end
+	if _line =~ /^symbolic\s+names:/
+	  @mapping['tags'] = Hash::new
+	  while true
+	    _myfile.lineno = _myfile.lineno + 1
+	    _line_after = _myfile.gets
+	    break if not _line_after =~ /^\s+/
+	    _tag,_rel = _line_after.split(":")
+	    @mapping['tags'][_tag.strip] = _rel.strip 
+	  end
+	end
+	if _line =~ /^revision\s+([\d|\.]+)/ then
+	  _content = String::new('')
+	  _content << _line
+	  _rev = $1
+	  while true
+	    _myfile.lineno = _myfile.lineno + 1
+	    _line_after = _myfile.gets
+	    break if _line_after =~ /^[\-]/ or _line_after =~ /^[\=]/
+	    _content << _line_after 
+	  end
+	  @mapping['revisions_order'].push _rev
+	  @mapping['revisions'][_rev] =  Revision::new(_rev,_content)
+	end
+      }    
+      @mapping['revisions_order']
+      _myfile.close  
+    end  
+    
+    
+    def rcs
+      @mapping['rcs']
+    end
+    
+    def head 
+      @mapping['head']
+    end
+    
+    def nb_revisions
+      @mapping['nb_revisions']
+    end
+    
+    def current_revision
+      @mapping['revisions_order'].reverse[@mapping['current_revision'].to_i - 1]
+    end
+    
+    def tags
+      @mapping['tags']
+    end
+    
+    def revisions_order
+      @mapping['revisions_order']
+    end
+    
+    def revisions
+      @mapping['revisions']
+    end
+    
+  end
+  
+  
+  
+  class Revision
+    
+    attr_accessor :revision
+    attr_accessor :date
+    attr_accessor :author
+    attr_accessor :state
+    attr_accessor :lines
+    attr_accessor :branches
+    
+    
+    def initialize(_rev,_content)
+      _table = _content.split(/\n/)
+      _table.each{|_line|
+	if _line =~ /^date:\s+([\d|\.]+)/ then
+	  _line.split(';').each{|_couple| _key,_value = _couple.split(':') ;  eval("@#{_key.strip} = '#{_value.strip}'") }
+	end
+	@branches = $1 if _line =~ /^branches:\s+(.+)/
+	@comments = _line if not _line =~ /date:\s+([\d|\.]+)/ or not _line =~ /^revision\s+([\d|\.]+)/ or not _line =~ /^branches:\s+(.+)/
+	if _line =~ /^revision\s+([\d|\.]+)/
+	  if $1.strip == _rev
+	    @revision = $1
+	  else
+	    raise CVSRevisionNbMismatch
+	  end
+	end
+	
+      }
+    end
+  end
+
+  # exception class definitions for CVS Object
+  class CVSCommandNotFound < Exception; end
+  class CVSNoPassword < Exception; end
+  class CVSNotSupported < Exception; end
+  class CVSNotSupportedServer < CVSNotSupported; end
+  class CVSInvalidRoot < Exception; end
+  class CVSWorkdirNotFound < Exception; end
+  class CVSExportdirNotFound < Exception; end
+  class CVSStatusFailed < Exception; end
+  class CVSLogFailed < Exception; end
+  class CVSCommitFailed < Exception; end
+  class CVSCheckoutFailed < Exception; end
+  class CVSExportFailed < Exception; end
+  class CVSError < Exception; end
+  class CVSRevisionNbMismatch < Exception; end
+  
+  
+  
+  # run description of the library in interactive mode
+  if $0 == __FILE__ then
+    puts "#{File::basename(__FILE__)}:"
+    puts 'this is a RUBY library file'
+    puts "Copyright (c) Ultragreen"
+    puts "Version : #{LIB_VERSION}"
+    puts "Author : #{AUTHOR}"
+    puts "Date release : #{DATE}"
+    puts "Observation : #{OBS}"
+  end
+  
+end
+
+
+
+
+
+#==END==#               

metadata

@@ -0,0 +1,55 @@
+--- !ruby/object:Gem::Specification 
+name: cvstools
+version: !ruby/object:Gem::Version 
+  version: 0.9.0
+platform: ruby
+authors: 
+- Romain GEORGES
+autorequire: 
+bindir: 
+cert_chain: []
+
+date: 2006-09-18 00:00:00 +02:00
+default_executable: 
+dependencies: []
+
+description: "Cvstools : provide object bindings on CVS SCM"
+email: romain@ultragreen.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/cvstools.rb
+has_rdoc: true
+homepage: http://www.ultragreen.net
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.8.1
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: "Cvstools : CVS Object Ruby binding"
+test_files: []
+