markryall-basketcase 1.1.7

data/.gitignore

@@ -0,0 +1,5 @@
+*~
+pkg
+doc
+ct.log
+spec/ct.output

data/History.txt

@@ -0,0 +1,8 @@
+=== 1.1.0 / 2008-09-17
+
+* Add 'bc-mirror' script, to support periodically publishing an
+  externally-managed directory into ClearCase.
+
+=== 1.0.0 / 2008-09-16
+
+* Converted into a gem, using sow.

data/Manifest.txt

@@ -0,0 +1,7 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+bin/basketcase
+bin/bc-mirror
+lib/basketcase.rb

data/README.txt

@@ -0,0 +1,109 @@
+= basketcase
+
+* http://basketcase.rubyforge.org/
+* http://rubyforge.org/projects/basketcase/
+* http://dogbiscuit.org/mdub/
+
+== Description
+
+BasketCase is a (Ruby) script that encapsulates the Rational ClearCase
+command-line interface, <code>cleartool</code>, making it (slightly) more
+comfortable for developers more used to non-locking version-control systems
+such as CVS or Subversion.
+
+== Features
+
+BasketCase can help you:
+
+* <strong>List</strong> modified elements.
+* <strong>Update</strong> a snapshot view, including <strong>automatic merge</strong> of modified elements.
+* <strong>Check-out</strong> (unreserved) and <strong>check-in</strong> elements.
+* <strong>Undo a check-out</strong>, reverting to the base version.
+* Perform a <strong>bulk check-in</strong> (or revert).
+* <strong>Add</strong>, <strong>remove</strong> and <strong>rename</strong> elements.
+* Display <strong>change-logs</strong> and <strong>version-trees</strong>.
+* Display <strong>differences</strong> for modified elements.
+
+== Synopsis
+
+  usage: basketcase <command> [<options>]
+
+  GLOBAL OPTIONS
+
+      -t/--test   test/dry-run/simulate mode
+                  (ie. don't actually do anything)
+
+      -d/--debug  debug cleartool interaction
+
+  COMMANDS        (type 'basketcase help <command>' for details)
+
+      % list, ls, status, stat
+      % lsco
+      % diff
+      % log, history
+      % tree, vtree
+      % update, up
+      % checkin, ci, commit
+      % checkout, co, edit
+      % uncheckout, unco, revert
+      % add
+      % remove, rm, delete, del
+      % move, mv, rename
+      % auto-checkin, auto-ci, auto-commit
+      % auto-uncheckout, auto-unco, auto-revert
+      % auto-sync, auto-addrm
+      % help
+
+== Installation
+
+Is as easy as:
+
+  sudo gem install basketcase
+
+== Background
+
+In mid-2006, Mike Williams worked on a client project which, despite the
+team's wishes, was burdened with ClearCase as it's source-code control
+system.
+
+The team was attempting to use Agile practices such as collective code
+ownership, refactoring and continuous-integration, and ClearCase was in the
+way:
+
+* ClearCase enables and in many ways favours "reserved" check-outs of
+  elements, preventing collective code ownership.
+* When add, removing or moving elements, ClearCase will sometimes apply the
+  change to the repository immediately, without waiting for a "commit".
+* When updating, ClearCase will not attempt to merge other developers'
+  changes to elements you have checked-out ... leaving your view in an
+  inconsistent state.
+* Performing an automatic merge from the command-line requires an unwieldy,
+  obscure command.
+* There is no easy way to do a bulk-commit from the command-line.
+
+Mike wrote BasketCase in frustration.
+
+== License
+
+(The MIT License)
+
+Copyright (c) 2008 Mike Williams
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,26 @@
+require 'rubygems'
+
+=begin
+require 'hoe'
+require './lib/basketcase.rb'
+Hoe.new('basketcase', Basketcase::VERSION) do |p|
+  p.developer('mdub', 'mdub@dogbiscuit.org')
+  p.remote_rdoc_dir = ''
+end
+=end
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gemspec|
+    gemspec.name = "basketcase"
+    gemspec.summary = "clearcase for the masses"
+    gemspec.description = "basketcase fork"
+    gemspec.email = "mdub@dogbiscuit.org"
+    gemspec.homepage = "http://github.com/markryall/basketcase"
+    gemspec.description = "TODO"
+    gemspec.authors = ["mdub", 'mark ryall', 'duana stanley']
+  end
+rescue LoadError
+  puts "Jeweler not available. Install it with: sudo gem install technicalpickles-jeweler -s http://gems.github.com"
+end
+

data/VERSION

@@ -0,0 +1 @@
+1.1.7

data/bin/basketcase

@@ -0,0 +1,13 @@
+#! /usr/bin/env ruby
+
+# This is an attempt to wrap up the ClearCase command-line interface
+# (cleartool) to enable more CVS-like (or Subversion-like) usage of
+# ClearCase.
+#
+# @author Mike Williams
+
+$LOAD_PATH.unshift(File.expand_path(File.dirname(__FILE__) + "/../lib"))
+
+require 'basketcase'
+
+Basketcase.new.do(*ARGV)

data/bin/bc-mirror

@@ -0,0 +1,127 @@
+#! /usr/bin/env ruby
+
+# Synchronise a directory with a Clearcase snapshot view.
+#
+# @author Mike Williams
+
+$LOAD_PATH.unshift(File.expand_path(File.dirname(__FILE__) + "/../lib"))
+
+require 'basketcase'
+require 'pathname'
+require 'ftools'
+
+class DirSyncer
+
+  def initialize(src_root, dest_root)
+    @src_root = Pathname(src_root)
+    @dest_root = Pathname(dest_root)
+  end
+
+  def sync
+    visit(@src_root)
+    cleanup(@dest_root)
+  end
+
+  private
+
+  def ignored?(path)
+    path.to_str =~ %r{(^|/).git($|/)}
+  end
+
+  def visit(src_file)
+    return if ignored?(src_file)
+    if src_file.directory?
+      sync_dir(src_file)
+    else
+      sync_file(src_file)
+    end
+  end
+
+  def ensure_we_can_write_to(file)
+    file.chmod(file.stat.mode | 0600) unless file.writable?
+  end
+
+  def sync_dir(src_dir)
+    src_dir.children.sort.each do |f|
+      visit(f)
+    end
+  end
+
+  def sync_file(src_file)
+    file_path = src_file.relative_path_from(@src_root)
+    dest_file = @dest_root + file_path
+    dest_file.parent.mkpath
+    ensure_we_can_write_to(dest_file.parent)
+    if dest_file.exist?
+      if File.read(src_file) == File.read(dest_file)
+        return
+      end
+      ensure_we_can_write_to(dest_file)
+    end
+    puts file_path
+    FileUtils.copy(src_file, dest_file)
+  end
+
+  def cleanup(dest_file)
+    if dest_file.directory?
+      cleanup_dir(dest_file)
+    else
+      cleanup_file(dest_file)
+    end
+  end
+
+  def cleanup_dir(dest_dir)
+    dest_dir.children.sort.each do |f|
+      cleanup(f)
+    end
+    if dest_dir.children.empty?
+      puts "rmdir #{dest_dir.relative_path_from(@dest_root)}"
+      dest_dir.rmdir
+    end
+  end
+
+  def cleanup_file(dest_file)
+    file_path = dest_file.relative_path_from(@dest_root)
+    src_file = @src_root + file_path
+    if !src_file.exist? || ignored?(file_path)
+      ensure_we_can_write_to(dest_file.parent)
+      puts "rm #{file_path}"
+      dest_file.delete
+    end
+  end
+
+end
+
+#---( Mainline )---
+
+def exit_with(status, message)
+  $stderr.puts message; exit(status)
+end
+
+exit_with(3, "usage: #{File.basename($0)} <source> <clearcase_snapshot>") unless ARGV.size == 2
+
+source_dir, cc_snapshot_dir = ARGV
+source_dir = Pathname(source_dir).expand_path
+cc_snapshot_dir = Pathname(cc_snapshot_dir).expand_path
+
+def check_dir(dir)
+  exit_with(5, "ERROR: no such directory? #{dir}") unless dir.exist?
+  exit_with(5, "ERROR: #{dir} is not a directory") unless dir.directory?
+end
+
+check_dir(source_dir)
+check_dir(cc_snapshot_dir)
+
+puts "--- Syncing to CC view"
+DirSyncer.new(source_dir, cc_snapshot_dir).sync
+
+Dir.chdir(cc_snapshot_dir)
+basketcase = Basketcase.new
+
+puts "--- Adding/removing stuff"
+basketcase.do('auto-sync', '-n')
+
+puts "--- Commiting"
+basketcase.do('auto-commit', '-m', "upload from #{source_dir}")
+
+puts "--- Done"