ohloh_scm 2.5.1 → 3.0.1

data/lib/ohloh_scm/adapters/hglib/head.rb

@@ -1,9 +0,0 @@
-module OhlohScm::Adapters
-  class HglibAdapter < HgAdapter
-
-    def parent_tokens(commit)
-      hg_client.parent_tokens(commit.token)
-    end
-
-  end
-end

data/lib/ohloh_scm/adapters/hglib_adapter.rb

@@ -1,25 +0,0 @@
-require 'rubygems'
-require_relative 'hglib/client'
-
-module OhlohScm::Adapters
-	class HglibAdapter < HgAdapter
-
-    def setup
-      hg_client = HglibClient.new(url)
-      hg_client.start
-      hg_client
-    end
-
-    def hg_client
-      @hg_client ||= setup
-    end
-
-    def cleanup
-      @hg_client && @hg_client.shutdown
-    end
-
-	end
-end
-
-require_relative 'hglib/head'
-require_relative 'hglib/cat_file'

data/lib/ohloh_scm/adapters/svn/cat_file.rb

@@ -1,19 +0,0 @@
-module OhlohScm::Adapters
-	class SvnAdapter < AbstractAdapter
-		def cat_file(commit, diff)
-			cat(diff.path, commit.token)
-		end
-
-		def cat_file_parent(commit, diff)
-			cat(diff.path, commit.token.to_i-1)
-		end
-
-		def cat(path, revision)
-			begin
-				run "svn cat --trust-server-cert --non-interactive -r #{revision} '#{SvnAdapter.uri_encode(File.join(self.root, self.branch_name.to_s, path.to_s))}@#{revision}'"
-			rescue
-				raise unless $!.message =~ /svn:.*Could not cat all targets because some targets (don't exist|are directories)/
-			end
-		end
-	end
-end

data/lib/ohloh_scm/adapters/svn/commits.rb

@@ -1,195 +0,0 @@
-require 'rexml/document'
-
-module OhlohScm::Adapters
-	class SvnAdapter < AbstractAdapter
-
-		# In all commit- and log-related methods, 'after' refers to the revision
-		# number of the last known commit, and the methods return the commits
-		# *following* this commit.
-		#
-		# Examples:
-		#    commits(1) => [rev 2, rev 3, ..., HEAD]
-		#    commits(3) => [rev 4, rev 5, ..., HEAD]
-		#
-		# This is convenient for Ohloh -- Ohloh passes the last commit it is aware
-		# of, and these methods return any new commits.
-
-		# The last revision to be analyzed in this repository. Everything after this revision is ignored.
-		# The repository is considered to be retired after this point, and under no circumstances should
-		# this adapter ever return information regarding commits after this point.
-		attr_accessor :final_token
-
-		# Returns the count of commits following revision number 'after'.
-		def commit_count(opts={})
-			after = (opts[:after] || 0).to_i
-			return 0 if final_token && after >= final_token
-			run("svn log --trust-server-cert --non-interactive -q -r #{after.to_i + 1}:#{final_token || 'HEAD'} --stop-on-copy '#{SvnAdapter.uri_encode(File.join(root, branch_name.to_s))}@#{final_token || 'HEAD'}' | grep -E -e '^r[0-9]+ ' | wc -l").strip.to_i
-		end
-
-		# Returns an array of revision numbers for all commits following revision number 'after'.
-		def commit_tokens(opts={})
-			after = (opts[:after] || 0).to_i
-			return [] if final_token && after >= final_token
-			cmd = "svn log --trust-server-cert --non-interactive -q -r #{after + 1}:#{final_token || 'HEAD'} --stop-on-copy '#{SvnAdapter.uri_encode(File.join(root, branch_name.to_s))}@#{final_token || 'HEAD'}' | grep -E -e '^r[0-9]+ ' | cut -f 1 -d '|' | cut -c 2-"
-			run(cmd).split.collect { |r| r.to_i }
-		end
-
-		# Returns an array of commits following revision number 'after'.
-		# These commit objects do not include diffs.
-		def commits(opts={})
-			list = []
-			open_log_file(opts) do |io|
-				list = OhlohScm::Parsers::SvnXmlParser.parse(io)
-			end
-			list.each { |c| c.scm = self }
-		end
-
-		# Yields each commit following revision number 'after'. These commit object are populated with diffs.
-		#
-		# With Subversion, populating the diffs can be tricky because when an entire directory is affected,
-		# Subversion abbreviates the log by simply listing the directory name, rather than all of the directory
-		# contents. Since Ohloh requires the list of every individual file affected, and doesn't care about
-		# directories, the complexity (and time) of this method comes in expanding directories with a recursion
-		# through every file in the directory.
-		#
-		def each_commit(opts={})
-			commit_tokens(opts).each do |rev|
-				yield verbose_commit(rev)
-			end
-		end
-
-		# For a given commit, replace any diffs that point to directories with diffs for each file that
-		# the directory contains.
-		def deepen_commit(commit)
-			deep_commit = commit.clone
-			if commit.diffs
-				deep_commit.diffs = commit.diffs.collect do |diff|
-					deepen_diff(diff, commit.token)
-				end.compact.flatten.uniq.sort { |a,b| a.action <=> b.action }.sort { |a,b| a.path <=> b.path }
-			end
-
-			remove_dupes(deep_commit)
-		end
-
-		def remove_dupes(commit)
-			# Strange case correction.
-			#
-			# Subversion may report that a directory is added, and then also that a file within that directory is modified.
-			# Because we expand directories, the result is that the file may be listed twice -- once as part of our expansion,
-			# and once from the regular log entry.
-			#
-			# So look for diffs of the form ["M", "path"] which are matched by ["A", "path"], and keep only the "A" diff.
-			if commit.diffs
-				commit.diffs.delete_if do |d|
-					d && d.action =~ /[MR]/ && commit.diffs.select { |x| x.action == 'A' and x.path == d.path }.any?
-				end
-			end
-			commit
-		end
-
-		# If the diff points to a file, simply returns the diff.
-		# If the diff points to a directory, returns an array of diffs for every file in the directory.
-		def deepen_diff(diff, rev)
-			# Note that if the directory was deleted, we have to look at the previous revision to see what it held.
-			recurse_rev = (diff.action == 'D') ? rev-1 : rev
-
-			if (diff.action == 'D' or diff.action == 'A') && is_directory?(diff.path, recurse_rev)
-				# Deleting or adding a directory. Expand it out to show every file.
-				recurse_files(diff.path, recurse_rev).collect do |f|
-					OhlohScm::Diff.new(:action => diff.action, :path => File.join(diff.path, f))
-				end
-			else
-				# An ordinary file action. Just return the diff.
-				diff
-			end
-		end
-
-		# Strip all paths in this commit to remove the leading branch_name.
-		# Throw away any diffs in the commit that don't lie in the branch_name we care about.
-		def strip_commit_branch(commit)
-			stripped_commit = commit.clone
-			if commit.diffs
-				stripped_commit.diffs = commit.diffs.collect { |d| strip_diff_branch(d) }.compact
-			end
-			stripped_commit
-		end
-
-		# Return a new diff whose path excludes the leading branch_name.
-		# If the diff is not in the branch, return nil.
-		def strip_diff_branch(diff)
-			stripped_diff = diff.clone
-			stripped_diff.path = strip_path_branch(diff.path)
-			stripped_diff.path && stripped_diff
-		end
-
-		# Returns only the portion of the path following branch_name.
-		# Returns nil if the path is not within the branch.
-		def strip_path_branch(path)
-			if path == self.branch_name.to_s
-				''
-			else
-				$1 if path =~ /^#{Regexp.escape(self.branch_name.to_s)}(\/.*)$/
-			end
-		end
-
-		def verbose_commit(rev)
-			c = OhlohScm::Parsers::SvnXmlParser.parse(single_revision_xml(rev)).first
-			c.scm = self
-			deepen_commit(strip_commit_branch(c))
-		end
-
-		#---------------------------------------------------------------------
-		# Log-related code ; get log for entire file or single revision
-		#---------------------------------------------------------------------
-
-		def log(opts={})
-			after = (opts[:after] || 0).to_i
-			run "svn log --trust-server-cert --non-interactive --xml --stop-on-copy -r #{after.to_i + 1}:#{final_token || 'HEAD'} '#{SvnAdapter.uri_encode(File.join(self.root, self.branch_name.to_s))}@#{final_token || 'HEAD'}' #{opt_auth} | #{ string_encoder }"
-		end
-
-		def open_log_file(opts={})
-			after = (opts[:after] || 0).to_i
-			begin
-				if (final_token && after >= final_token) || after >= head_token
-					# As a time optimization, just create an empty file rather than fetch a log we know will be empty.
-					File.open(log_filename, 'w') { |f| f.puts '<?xml version="1.0"?>' }
-				else
-					run "svn log --trust-server-cert --non-interactive --xml --stop-on-copy -r #{after + 1}:#{final_token || 'HEAD'} '#{SvnAdapter.uri_encode(File.join(self.root, self.branch_name))}@#{final_token || 'HEAD'}' #{opt_auth} | #{ string_encoder } > #{log_filename}"
-				end
-				File.open(log_filename, 'r') { |io| yield io }
-			ensure
-				File.delete(log_filename) if FileTest.exist?(log_filename)
-			end
-		end
-
-		def log_filename
-		  File.join(temp_folder, (self.url).gsub(/\W/,'') + '.log')
-		end
-
-		# Returns one commit with the exact revision number provided
-		def single_revision_xml(revision)
-			run "svn log --trust-server-cert --non-interactive --verbose --xml --stop-on-copy -r #{revision} --limit 1 #{opt_auth} '#{SvnAdapter.uri_encode(File.join(self.root, self.branch_name))}@#{revision}' | #{ string_encoder }"
-		end
-
-		# Recurses the entire repository and returns an array of file names.
-		# Directories are not returned.
-		# Directories named 'CVSROOT' are always ignored and the files they contain are never returned.
-		# An empty array means that the call succeeded, but the remote directory is empty.
-		# A nil result means that the call failed and the remote server could not be queried.
-		def recurse_files(path=nil, revision=final_token || 'HEAD')
-			begin
-				stdout = run "svn ls --trust-server-cert --non-interactive -r #{revision} --recursive #{opt_auth} '#{SvnAdapter.uri_encode(File.join(root, branch_name.to_s, path.to_s))}@#{revision}'"
-			rescue
-				puts $!.inspect
-				return nil
-			end
-
-			files = []
-			stdout.each_line do |s|
-				s.chomp!.force_encoding('UTF-8')
-				files << s if s.length > 0 and s !~ /CVSROOT\// and s[-1..-1] != '/'
-			end
-			files.sort
-		end
-	end
-end

data/lib/ohloh_scm/adapters/svn/head.rb

@@ -1,19 +0,0 @@
-module OhlohScm::Adapters
-	class SvnAdapter < AbstractAdapter
-		def head_token
-			self.info =~ /^Revision: (\d+)$/ ? $1.to_i : nil
-		end
-
-		def head
-			verbose_commit("HEAD")
-		end
-
-		def parents(commit)
-			# Subversion doesn't have an actual "parent" command, so get
-			# a log for this commit and the one preceding it, and keep only the preceding.
-			log = run "svn log --trust-server-cert --non-interactive --verbose --xml --stop-on-copy -r #{commit.token}:1 --limit 2 '#{SvnAdapter.uri_encode(self.url)}' #{opt_auth} | #{ string_encoder }"
-			[deepen_commit(strip_commit_branch(OhlohScm::Parsers::SvnXmlParser.parse(log).last))]
-		end
-	end
-end
-

data/lib/ohloh_scm/adapters/svn/misc.rb

@@ -1,171 +0,0 @@
-require 'open-uri'
-require 'nokogiri'
-
-module OhlohScm::Adapters
-	class SvnAdapter < AbstractAdapter
-		# Converts an URL of form file://local/path to simply /local/path.
-		def path
-			case url
-			when /^file:\/\/(.*)/
-				$1
-			when /^svn\+ssh:\/\/([^\/]+)(\/.+)/
-				$2
-			end
-		end
-
-		def hostname
-			$1 if url =~ /^svn\+ssh:\/\/([^\/]+)(\/.+)/
-		end
-
-		# Does some simple searching through the server's directory tree for a
-		# good canditate for the trunk. Basically, we are looking for a trunk
-		# in order to avoid the heavy lifting of processing all the branches and tags.
-		#
-		# There are two simple rules to the search:
-		#  (1) If the current directory contains a subdirectory named 'trunk', go there.
-		#  (2) If the current directory is empty except for a single subdirectory, go there.
-		# Repeat until neither rule is satisfied.
-		#
-		# The url and branch_name of this object will be updated with the selected location.
-		# The url will be unmodified if there is a problem connecting to the server.
-		def restrict_url_to_trunk
-			return self.url if self.url =~ /\/trunk\/?$/
-
-			list = ls
-			return self.url unless list
-
-			if list.include? 'trunk/'
-				self.url = File.join(self.url, 'trunk')
-				self.branch_name = File.join(self.branch_name, 'trunk')
-			elsif list.size == 1 and list.first[-1..-1] == '/'
-				self.url = File.join(self.url, list.first[0..-2])
-				self.branch_name = File.join(self.branch_name, list.first[0..-2])
-				return restrict_url_to_trunk
-			end
-			self.url
-		end
-
-		# It appears that the default URI encoder does not encode some characters.
-		# This fixes it for us.
-		def self.uri_encode(uri)
-			URI.encode(uri,/#{URI::UNSAFE}|[\[\]';\? ]/) # Add [ ] ' ; ? and space
-		end
-
-		def exist?
-			begin
-				!!(head_token)
-			rescue
-				logger.debug { $! }
-				false
-			end
-		end
-
-		def info(path=nil, revision=final_token || 'HEAD')
-			@info ||= {}
-			uri = if path
-							File.join(root, branch_name.to_s, path)
-						else
-							url
-						end
-			@info[[path, revision]] ||= run "svn info --trust-server-cert --non-interactive -r #{revision} #{opt_auth} '#{SvnAdapter.uri_encode(uri)}@#{revision}'"
-		end
-
-		def root
-			$1 if self.info =~ /^Repository Root: (.+)$/
-		end
-
-		def uuid
-			$1 if self.info =~ /^Repository UUID: (.+)$/
-		end
-
-		# Returns an array of file and directory names.
-		# Directory names will end with a trailing '/' character.
-		# Directories named 'CVSROOT' are always ignored and never returned.
-		# An empty array means that the call succeeded, but the remote directory is empty.
-		# A nil result means that the call failed and the remote server could not be queried.
-		def ls(path=nil, revision=final_token || 'HEAD')
-			begin
-				stdout = run "svn ls --trust-server-cert --non-interactive -r #{revision} #{opt_auth} '#{SvnAdapter.uri_encode(File.join(root, branch_name.to_s, path.to_s))}@#{revision}'"
-			rescue
-				return nil
-			end
-
-			files = []
-			stdout.each_line do |s|
-				s.chomp!
-				files << s if s.length > 0 and s != 'CVSROOT/'
-			end
-			files.sort
-		end
-
-		def node_kind(path=nil, revision=final_token || 'HEAD')
-			$1 if self.info(path, revision) =~ /Node Kind: (\w+)\W/
-		end
-
-		def is_directory?(path=nil, revision=final_token || 'HEAD')
-			begin
-				return node_kind(path, revision) == 'directory'
-			rescue Exception
-				if $!.message =~ /svn: E200009: Could not display info for all targets because some targets don't exist/
-					return false
-				else
-					raise
-				end
-			end
-		end
-
-		def checkout(rev, dest_dir)
-			FileUtils.mkdir_p(File.dirname(dest_dir)) unless FileTest.exist?(File.dirname(dest_dir))
-			run "svn checkout --trust-server-cert --non-interactive -r #{rev.token} '#{SvnAdapter.uri_encode(self.url)}@#{rev.token}' '#{dest_dir}' --ignore-externals #{opt_auth}"
-		end
-
-		def export(dest_dir, commit_id = final_token || 'HEAD')
-			FileUtils.mkdir_p(File.dirname(dest_dir)) unless FileTest.exist?(File.dirname(dest_dir))
-			run "svn export --trust-server-cert --non-interactive --ignore-externals --force -r #{commit_id} '#{SvnAdapter.uri_encode(File.join(root, branch_name.to_s))}' '#{dest_dir}'"
-		end
-
-    def export_tag(dest_dir, tag_name)
-      tag_url = "#{base_path}/tags/#{tag_name}"
-      run "svn export --trust-server-cert --non-interactive --ignore-externals --force '#{tag_url}' '#{dest_dir}'"
-    end
-
-		def ls_tree(token)
-			run("svn ls --trust-server-cert --non-interactive -R -r #{token} '#{SvnAdapter.uri_encode(File.join(root, branch_name.to_s))}@#{token}'").split("\n")
-		end
-
-		def opt_auth
-			opt_password = ""
-			opt_password = "--username='#{self.username}' --password='#{self.password}'" if self.username && self.username != ''
-			" #{opt_password} --no-auth-cache "
-		end
-
-    # Svn root is not usable here since several projects are nested in subfolders.
-    # e.g. https://svn.apache.org/repos/asf/openoffice/ooo-site/trunk/ 
-    #      http://svn.apache.org/repos/asf/httpd/httpd/trunk
-    #      http://svn.apache.org/repos/asf/maven/plugin-testing/trunk
-    #      all have the same root value(https://svn.apache.org/repos/asf)
-    def tags
-      doc = Nokogiri::XML(`svn ls --xml #{ base_path}/tags`)
-      doc.xpath('//lists/list/entry').map do |entry|
-        tag_name = entry.xpath('name').text
-        revision = entry.xpath('commit').attr('revision').text
-        commit_time = entry.xpath("commit/date").text
-        date_string = Time.parse(commit_time) unless commit_time.to_s.strip.empty?
-        [tag_name, revision, date_string]
-      end
-    end
-
-    class << self
-      def has_conflicts?(working_copy_url)
-        system("cd '#{ working_copy_url }' && svn status | grep 'Summary of conflicts'")
-      end
-    end
-
-    private
-
-    def base_path
-      url.sub(/(.*)(branches|trunk|tags)(.*)/, '\1').chomp('/')
-    end
-
-	end
-end

data/lib/ohloh_scm/adapters/svn/patch.rb

@@ -1,8 +0,0 @@
-module OhlohScm::Adapters
-  class SvnAdapter < AbstractAdapter
-    def patch_for_commit(commit)
-      parent = commit.token.to_i - 1
-      run("svn diff --trust-server-cert --non-interactive -r#{parent}:#{commit.token} #{url}")
-    end
-  end
-end