rscm-accurev 0.0 → 0.0.1

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

@@ -1,382 +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
-
-    # remember: ac_files is non-recursive
-    def ac_files( relative_path )
-      cmd = Command.instance
-      ret = []
-      with_working_dir( co_filepath ) do
-        acresponse = cmd.accurev( "files", relative_path )
-        if acresponse['element'].nil?
-          return []
-        end
-        acresponse['element'].each do |fd|
-          yield fd if block_given?
-          ret << fd
-        end
-      end
-      return ret
-    end
-
-    def ac_stat( flag="-a" )
-      cmd = Command.instance
-      ret = []
-      with_working_dir( co_filepath ) do
-        acresponse = cmd.accurev( "stat", flag )
-        return [] if acresponse['element'].nil?
-        acresponse['element'].each do |fd|
-          yield fd if block_given?
-          ret << fd
-        end
-      end
-      return ret
-    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
-
-#
-# Copyright (c) 2005 Gregory D. Fast <gdf@speakeasy.net>
-#