rscm-accurev 0.0 → 0.0.1

data/lib/rscm/scm/accurev/api.rb.r265

@@ -1,393 +0,0 @@
-# -*- ruby -*-
-#
-# = api.rb
-#
-# API for interacting with accurev workspaces.
-#
-# Includes:
-#
-# * API
-#
-require 'stringio'
-require 'rscm/base'
-require 'rscm/path_converter'
-require 'rexml/document'
-require 'rscm/scm/accurev/xml'
-require 'rscm/scm/accurev/filterio'
-require 'rscm/scm/accurev/command'
-require 'rscm/scm/accurev/exception'
-
-# need to define module within module before you can use module X::Y
-module RSCM; module Accurev; end; end
-
-module RSCM::Accurev
-
-  #
-  # RSCM implementation for Accurev (http://www.accurev.com).
-  #
-  # Requires an accurev cli executable on the path (see also
-  # RSCM::Accurev::Command), and the correct environment
-  # configuration for ac server/principal/password.
-  #
-  # ---
-  #
-  # === Example
-  #
-  #   api = RSCM::Accurev::API.new( "./ws/proj-1", "proj", "proj-1" )
-  #   api.checkout() each do |file|
-  #     puts "Updated #{file}..."
-  #   end
-  #
-  class API < RSCM::Base
-    register self
-
-    ann :description => "Accurev Depot"
-    attr_accessor :depot
-
-    ann :description => "Backing Stream (autodetected)"
-    attr_accessor :backing_stream
-    
-    # If workspace stream is nil (the default), checkout/update will be
-    # done using `accurev pop`.  This is faster and more appropriate for 
-    # read-only use; however a workspace is required for commits.
-    ann :description => "Workspace Stream"
-    attr_accessor :workspace_stream
-
-    # [defined in Base]
-    # ann :description => "Filesystem Path to Workspace"
-    # attr_accessor :checkout_dir
-
-    ann :description => "Overwrite Mode: if true, co overwrites existing"
-    attr_accessor :overwrite
-    
-    def initialize(checkout_dir=nil, backing_stream=nil, workspace_stream=nil)
-      @depot = nil # will be pulled from files cmd output
-      @workspace_stream = workspace_stream
-      @backing_stream = backing_stream
-      @checkout_dir = checkout_dir
-      @overwrite = false
-    end
-
-    def name()
-      return "Accurev"
-    end
-
-    # Accurev operations are atomic: returns true.
-    def transactional?
-      return true
-    end
-
-    # "Adds +relative_filename+ to the working copy."
-    def add( relative_filename )
-      raise "XXX implement me"
-    end
-
-    def edit( relative_filename )
-      # NOP - not required for ac
-    end
-
-    # "Returns a Revisions object for the period specified ... (inclusive)."
-    #
-    # list txns (promotes to bs) from hist within the period
-    #
-    def revisions( from_identifier, to_identifier=Time.infinity )
-      raise "XXX implement me"
-    end
-
-    # default impl depends on a correct impl of revisions()
-#     def uptodate?( identifier=nil )
-#       
-#     end   
-
-    # def checked_out? - base
-
-    # accurev actually does have triggers, but I haven't implemented that yet
-    def supports_trigger?
-      false
-    end
-
-    # def diff() XXX
-
-
-    # --- ac specific
-
-    def ac_files( relative_path )
-      cmd = Command.instance
-      ret = []
-      with_working_dir( @checkout_dir ) do
-        acresponse = cmd.accurev( "files", relative_path )
-        acresponse['element'].each do |fd|
-          yield fd if block_given?
-          ret << fd
-        end
-      end
-      return ret
-    end
-
-    # yeilds the TransactionData objects for the given time period
-    # (promotes only)
-    def ac_hist( from, to=Time.infinite )
-      cmd = Command.instance
-      lower = from.to_accurev
-      upper = "now"
-      unless to == Time.infinite
-        upper = to.to_accurev
-      end
-      with_working_dir( self.co_filepath ) do
-        acresponse = cmd.accurev( "hist",
-                                  "-t", "'#{upper}-#{lower}'",
-                                  "-k", "promote"
-                                 )
-        ret = []
-        acresponse['transaction'].each do |txn|
-          ret << txn
-          yield txn if block_given?
-        end
-        return ret
-      end
-    end
-
-    def ac_keep( files=[], message="" )
-      raise "XXX implement me"
-    end
-
-    def ac_promote( files=[], message="" )
-      raise "XXX implement me"
-    end
-    
-    def ac_update( relative_path="." )
-      d = accurev( "update", relative_path )
-      if xxx_error_stale
-        raise StaleWorkspaceError.new( "#{relative_path} is stale -- keep/anchor all changes and re-update" )
-      end
-    end
-
-    def ac_purge( files=[] )
-      raise "XXX implement me"
-    end
-
-    def ac_revert( files=[] )
-      raise "XXX implement me"
-    end
-
-    def ac_move( current_file, new_file )
-      raise "XXX implement me"
-    end
-
-    #
-    # Performs an "accurev info" command in the workspace.
-    # Returns a map of 
-    #
-    # ac info: shows eg, backing stream
-    # but doesn't support -fx!    
-    #
-    def ac_info()
-      co = RSCM::PathConverter.nativepath_to_filepath( @checkout_dir )
-      unless File.exists?( co )
-        raise AccurevException.new( "Checkout dir #{co} does not exist" )
-      end
-      info = {}
-      with_working_dir( co ) do
-        cmd = Command.instance
-        io = StringIO.new( cmd.accurev_nofx( "info" ) )
-        io.each_line do |line|
-          next unless line =~ /\S/
-          if line =~ /^(.*?):\s+(.*)$/
-            info[$1] = $2
-          end
-        end
-      end
-      return info
-    end
-
-    # ac mkws 
-    #   -b orbitz-host-gt3-0-impl 
-    #   -w orbitz-host-gt3-0-impl-test2_gfast
-    #   -l `pwd`    
-    # - does not support fx (argh!@)
-    # - does not pop
-    # 
-
-    # diff: /usr/local/bin/acdiff (!) --fx
-    # (after an ac cat on the backed file)
-    # (eg, no in-process diffing ala cvs diff)
-    # lists modified lines in xml
-
-    #
-    # "Checks out or updates[!] contents from a central SCM 
-    # to +checkout_dir+ - a local working copy."
-    #
-    # "The +to_identifier+ parameter may be optionally specified to
-    # obtain files up to a particular time or label."
-    #
-    # For accurev, this:
-    # * checks to see if +@checkout_dir+ exists and appears checked out.
-    #   If it's already checked out, this calls +update()+.  If
-    #   +@checkout_dir+ exists and +to_identifier+ is given, an
-    #   exception is raised.
-    # * otherwise, this creates a new workspace stream and populates it
-    #   at +@checkout_dir+.
-    #
-    # This both returns and yields a list of updated files.
-    # Only updated files are returned, not directories.
-    #
-    # Current, ac_update returns both files and directories, including
-    # deleted files.
-    #
-    def checkout( to_identifier=Time.infinite )
-      co = RSCM::PathConverter.nativepath_to_filepath( @checkout_dir )
-      if @backing_stream.nil?
-        self.attempt_init_from_info()
-      end
-      if @workspace_stream.nil?
-        self.checkout_pop()
-      else
-        unless File.exists?( co )
-          # create new workspace
-          self.checkout_workspace()
-        end
-        # update workspace
-        self.update( to_identifier )
-      end
-    end
-
-    def checkout_pop()
-      co = RSCM::PathConverter.nativepath_to_filepath( @checkout_dir )
-      raise "A backing stream is required" if @backing_stream.nil?
-      raise "A working stream may not be given" unless @working_stream.nil?
-      # for `accurev pop`: remove and re-pop the checkout copy
-      if File.exists?( co )
-        unless @overwrite
-          raise "Checkout dir #{co} already exists (@overwrite=#@overwrite)"
-        end
-        rm_rf( co )
-      end
-      mkdir(co)
-      with_working_dir( co ) do
-        cmd = Command.instance
-        pop_out = cmd.accurev_nofx("pop",
-                                   "-R",
-                                   "-v", @backing_stream,
-                                   "-L", ".", ".")
-        elems = []
-        popio = StringIO.new( pop_out )
-        popio.each_line do |line|
-          if line =~ /^Populating element \/.\/(.*)$/
-            loc = $1
-            elems << loc
-            yield loc if block_given?
-          end
-        end
-        return elems
-      end
-    end
-
-    def checkout_workspace()
-      co = RSCM::PathConverter.nativepath_to_filepath( @checkout_dir )
-      raise "A backing stream is required" if @backing_stream.nil?
-      raise "A workspace is required" if @working_stream.nil?
-      if File.exist?( co ) and !@overwrite
-        raise "Checkout dir #{co} already exists (@overwrite=#@overwrite)"
-      end
-      cmd = Command.instance
-      mkws_out = cmd.accurev_nofx( "mkws", 
-                                  "-b", @backing_stream,
-                                  "-w", @workspace_stream,
-                                  "-l", co )
-      # kinda sucks:
-      if ( mkws_out =~ /already exists/ )
-        raise AccurevException.new( "Failed to checkout", mkws_out )
-      end
-    end
-
-    def update( to_identifier=Time.infinite )
-      co = RSCM::PathConverter.nativepath_to_filepath( @checkout_dir )
-      unless File.exists?( co )
-        raise AccurevException.new( "Workspace does not exist!" )
-      end
-      updated = []
-      with_working_dir( co ) do
-        cmd = Command.instance
-        acresponse = cmd.accurev( "update" )
-        if acresponse.error
-          if acresponse.error =~ /workspace have been modified/
-            raise StaleWorkspaceException.new( "Workspace stale",
-                                               acresponse.error )
-          else
-            # some other update problem
-            raise AccurevException.new( "Error on update", acresponse.error )
-          end
-        end
-        if acresponse['element']
-          acresponse['element'].each do |up|
-            # "ac update" on a new workspace yields element locations
-            # with leading "/"s, which should be removed to get a proper
-            # relative path:
-            loc = up.location.sub( /^\//, "" )
-            yield loc if block_given?
-            updated << loc
-          end
-        end
-      end
-      return updated
-    end
-
-    # --- internals
-
-    # status flag mappings for "stat", "file" commands
-    STATUSES = {
-      '(backed)'   => :backed,
-      '(external)' => :external,
-      '(modified)' => :modified,
-      '(kept)'     => :kept,
-      '(defunct)'  => :defunct,
-      '(missing)'  => :missing,
-      '(stranded)' => :stranded,
-      '(overlap)'  => :overlap
-    }
-
-#  private
-      
-    # psuedo-accessor (cached)
-    def co_filepath
-      if @co_filepath.nil?
-        @co_filepath = RSCM::PathConverter.nativepath_to_filepath( @checkout_dir )
-      end
-      return @co_filepath
-    end
-
-    #
-    # Runs an `ac info` command in +@checkout_dir+, and tries to
-    # set +@backing_stream+ and +@workspace_stream+ from the output.
-    #
-    def attempt_init_from_info()
-      if File.exists?( self.co_filepath )
-        info = self.ac_info
-        if info.has_key?( "Basis" )
-          @backing_stream = info["Basis"]
-        end
-        if info.has_key?( "ws/ref" )
-          @workspace_stream = info["ws/ref"]
-        end
-      end
-    end
-    
-    # Takes a status flags line (eg, "(modified)(kept)")
-    # and returns a list of status flags.
-    def map_status( status_line )
-      l = status_line.split( " " ).map {|x| x.trim}
-    end
-
-  end
-
-end
-
-class Time
-  def to_accurev
-    self.strftime( "%Y/%m/%d %H:%M:%S" )
-  end
-end
-
-#
-# Copyright (c) 2005 Gregory D. Fast <gdf@speakeasy.net>
-#

data/lib/rscm/scm/accurev/exception.rb

@@ -1,38 +0,0 @@
-# -*- ruby -*-
-#
-# = exception.rb
-#
-# Exception classes for RSCM::Accurev
-#
-# Includes:
-#
-# * AccurevException
-#
-# * StaleWorkspaceException
-#
-module RSCM
-  module Accurev
-    
-    #
-    # General exception class for errors processing commands.
-    #
-    # @attr error_msg Error message output by accurev.
-    #
-    class AccurevException < Exception
-      attr_reader :error_msg
-      def initialize( msg, error_msg=nil )
-        super( "#{msg}: #{error_msg}" )
-        @error_msg = error_msg
-      end     
-    end
-    
-    #
-    # Exception thrown when an update is performed
-    # on a workspace with unkept/unanchored modifications.
-    # Accurev requires that all modifications be handled before
-    # an update is performed.
-    #
-    class StaleWorkspaceException < AccurevException; end
-
-  end
-end

data/lib/test/unit/ui/xml/testrunner.rb

@@ -1,165 +0,0 @@
-#!/usr/bin/env ruby
-
-require 'test/unit/ui/testrunnermediator'
-require 'test/unit/ui/testrunnerutilities'
-require 'test/unit/ui/console/testrunner'
-require 'test/unit/autorunner'
-require 'rexml/document'
-
-module Test
-  module Unit
-    module UI
-      module XML
-
-        #
-        # XML::TestRunner - generate xml output for test results
-        #
-        # Example use:
-        #
-        #   $ ruby -rtest/unit/ui/xml/testrunner test/test_1.rb --runner=xml
-        #
-        # By default, XML::TestRunner will output to stdout.
-        # You can set the environment variable $XMLTEST_OUTPUT to
-        # a filename to send the output to that file.
-        #
-        # The summary file created by this testrunner is XML, but 
-        # this module also includes a stylesheet
-        # (test/unit/ui/xml/xmltestrunner.xslt) which converts it to
-        # HTML.  Copy the XSLT file into the same directory as the 
-        # test results file, and open the results file with a browser.
-        #
-        # --- 
-        # 
-        # (todo: use with rake)
-        #
-        class TestRunner < Test::Unit::UI::Console::TestRunner
-
-          def initialize( suite, output_level )
-            super( suite )
-            if ENV['XMLTEST_OUTPUT']
-              fn = ENV['XMLTEST_OUTPUT']
-              puts "Writing to #{fn}"
-              @io = File.open( fn, "w" )
-              @using_stdout = false
-            else
-              puts "Writing to stdout (along with everyone else...)"
-              @io = STDOUT
-              @using_stdout = true
-            end
-            create_document()
-          end
-
-          def create_document()
-            @doc = REXML::Document.new()
-            @doc << REXML::XMLDecl.new()
-            
-            pi = REXML::Instruction.new(
-                   "xml-stylesheet",
-                   "type='text/xsl' href='xmltestrunner.xslt' "
-            )
-            @doc << pi
-
-            e = REXML::Element.new( "testsuite" )
-            e.attributes['rundate'] = Time.now
-            @doc << e
-          end
-
-          def to_s
-            @doc.to_s
-          end
-
-          def start
-            @current_test = nil
-            # setup_mediator
-            @mediator = TestRunnerMediator.new( @suite )
-            suite_name = @suite.to_s
-            if @suite.kind_of?(Module)
-              suite_name = @suite.name
-            end
-            @doc.root.attributes['name'] = suite_name
-            # attach_to_mediator - define callbacks
-            @mediator.add_listener( TestResult::FAULT, 
-                                    &method(:add_fault) )
-            @mediator.add_listener( TestRunnerMediator::STARTED,
-                                    &method(:started) )
-            @mediator.add_listener( TestRunnerMediator::FINISHED,
-                                    &method(:finished) )
-            @mediator.add_listener( TestCase::STARTED, 
-                                    &method(:test_started) )
-            @mediator.add_listener( TestCase::FINISHED, 
-                                    &method(:test_finished) )
-            # return start_mediator
-            return @mediator.run_suite
-          end
-
-          # callbacks
-
-          def add_fault( fault )
-            ##STDERR.puts "Fault:"
-            @faults << fault
-            e = REXML::Element.new( "fault" )
-            e << REXML::CData.new( fault.long_display ) 
-            @current_test << e
-          end
-
-          def started( result )
-            #STDERR.puts "Started"
-            @result = result
-          end
-
-          def finished( elapsed_time )
-            #STDERR.puts "Finished"
-            res = REXML::Element.new( "result" )
-            summ = REXML::Element.new( "summary" )
-            summ.text = @result
-            res << summ
-            # @result is a Test::Unit::TestResults
-            res.attributes['passed'] = @result.passed?
-            res.attributes['testcount'] = @result.run_count
-            res.attributes['assertcount'] = @result.assertion_count
-            res.attributes['failures'] = @result.failure_count
-            res.attributes['errors'] = @result.error_count
-            @doc.root << res
-
-            e = REXML::Element.new( "elapsed-time" )
-            e.text = elapsed_time
-            @doc.root << e
-            @io.puts( @doc.to_s )
-            
-            unless @using_stdout
-              puts @result
-            end
-          end
-          
-          def test_started( name )
-            #STDERR.puts "Test: #{name} started"
-            e = REXML::Element.new( "test" )
-            e.attributes['name'] = name
-            #e.attributes['status'] = "failed"
-            @doc.root << e
-            @current_test = e
-          end
-
-          def test_finished( name )
-            #STDERR.puts "Test: #{name} finished"
-            # find //test[@name='name']
-            @current_test = nil
-          end
-
-        end
-      end
-    end
-  end
-end
-
-# "plug in" xmltestrunner into autorunner's list of known runners
-# This enables the "--runner=xml" commandline option.
-Test::Unit::AutoRunner::RUNNERS[:xml] = proc do |r|
-  require 'test/unit/ui/xml/testrunner'
-  Test::Unit::UI::XML::TestRunner
-end
-
-if __FILE__ == $0
-  Test::Unit::UI::XML::TestRunner.start_command_line_test
-end
-

data/lib/test/unit/ui/xml/xmltestrunner.xslt

@@ -1,79 +0,0 @@
-<?xml version="1.0"?>
-<xsl:stylesheet
-  xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"
-  >
-  
-  <xsl:output method="html" />
-
-  <xsl:template match="/testsuite">
-    <html>
-      <head>
-	<title>Test Suite Results for <xsl:value-of select="@name" /></title>
-	<style>
-	  .error { color: #ff0000; }
-	  .eresult {
-	    background: #ffcccc;
-	    color: #ff0000;
-	  }
-	  h1,h2 {
-	    background: #cccccc;
-	    color: #000055;
-	    border: 1px dotted black;
-	  }
-	</style>
-      </head>
-      <body>
-	<h1>Test Suite Results</h1>
-
-	<p>Results for: <xsl:value-of select="@name" /></p>
-	
-	<p>
-	  Test suite run at: <b><xsl:value-of select="@rundate" /></b>
-	</p>
-
-	<h2>Summary</h2>
-	
-	<p>
-	  <xsl:if test="result[@passed = 'false']">
-	    <xsl:attribute name="class">error</xsl:attribute>
-	  </xsl:if>
-	  <xsl:value-of select="result/summary/text()" />
-	</p>
-	<p>
-	  Elapsed time: <xsl:value-of select="elapsed-time/text()" />
-	</p>
-
-	<table border="1">
-	  <tr>
-	    <th>Case</th>
-	    <th>Result</th>
-	  </tr>
-	  <xsl:for-each select="test">
-	    <tr>
-	      <td>
-		<xsl:if test="fault/text()">
-		  <xsl:attribute name="class">error</xsl:attribute>
-		</xsl:if>
-		<xsl:value-of select="@name" />
-	      </td>
-	      <td>
-		<xsl:choose>
-		  <xsl:when test="fault/text()">
-		    <xsl:attribute name="class">eresult</xsl:attribute>
-		    <pre>
-		      <xsl:value-of select="fault/text()" />
-		    </pre>
-		  </xsl:when>
-		  <xsl:otherwise>
-		    (pass)
-		  </xsl:otherwise>
-		</xsl:choose>
-	      </td>
-	    </tr>
-	  </xsl:for-each>
-	</table>
-      </body>
-    </html>
-  </xsl:template>
-
-</xsl:stylesheet>