ohloh_scm 2.5.1 → 3.0.1

data/lib/ohloh_scm/adapters/svn/pre-revprop-change

@@ -1,2 +0,0 @@
-#!/usr/bin/env bash
-exit 0

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

@@ -1,77 +0,0 @@
-module OhlohScm::Adapters
-	class SvnAdapter < AbstractAdapter
-
-		def pull(from)
-			logger.warn { "Pulling #{from.url}" }
-			yield(0,1) if block_given? # Progress bar callback
-
-			unless self.exist?
-				svnadmin_create
-				svnsync_init(from)
-			end
-			SvnAdapter.svnsync_sync(from, self)
-
-			yield(1,1) if block_given? # Progress bar callback
-		end
-
-		# Initialize a new Subversion repository on disk.
-		#
-		# This method can work either locally (file://) or on another machine
-		# in the server cluster (svn+ssh://).
-		def svnadmin_create
-			return if exist?
-			if hostname
-				svnadmin_create_remote
-			else
-				svnadmin_create_local
-			end
-		end
-
-		# The local template for the Subversion hook
-		def pre_revprop_change_template
-			File.join(File.dirname(__FILE__), 'pre-revprop-change')
-		end
-
-		# The destination location for the Subversion hook
-		def pre_revprop_change_path
-			File.join(path, 'hooks', 'pre-revprop-change')
-		end
-
-		def svnadmin_create_local
-			FileUtils.mkdir_p path
-			FileUtils.rmdir path
-			run "svnadmin create #{path}"
-			FileUtils.cp pre_revprop_change_template, pre_revprop_change_path
-      FileUtils.chmod 0755, pre_revprop_change_path
-		end
-
-		def svnadmin_create_remote
-			run "ssh #{hostname} 'mkdir -p #{path} && rmdir #{path} && svnadmin create #{path}'"
-			run "scp #{pre_revprop_change_template} #{hostname}:#{pre_revprop_change_path}"
-		end
-
-		def svnsync_init(from)
-			run "svnsync init --trust-server-cert --non-interactive #{from.opt_auth} '#{url}' #{from.root}"
-		end
-
-		def self.svnsync_sync(src, dest)
-			# We might not be pulling from the same repository we pulled from last time.
-			# We use svnsync to manage multiple backups on our server cluster, as well as to
-			# pull from the well-known public repository.
-			# Therefore we have to set the root and UUID of the svnsync every time.
-			dest.propset('sync-from-url', src.root)
-			dest.propset('sync-from-uuid', src.uuid)
-
-			run "svnsync sync #{src.opt_auth} --trust-server-cert --non-interactive '#{SvnAdapter.uri_encode(dest.root)}'"
-		end
-
-		def propget(propname)
-			run("svn propget --trust-server-cert --non-interactive #{opt_auth} --revprop -r 0 svn:#{propname} '#{SvnAdapter.uri_encode(root)}'").strip!
-		end
-
-		def propset(propname, value)
-			run("svn propset --trust-server-cert --non-interactive #{opt_auth} --revprop -r 0 svn:#{propname} #{value} '#{SvnAdapter.uri_encode(root)}'")
-		end
-
-	end
-end

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

@@ -1,15 +0,0 @@
-module OhlohScm::Adapters
-	class SvnAdapter < AbstractAdapter
-
-		def push(to)
-			logger.warn { "Pushing #{to.url}" }
-
-			unless to.exist?
-				to.svnadmin_create
-				to.svnsync_init(self)
-			end
-			SvnAdapter.svnsync_sync(self, to)
-		end
-
-	end
-end

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

@@ -1,87 +0,0 @@
-module OhlohScm::Adapters
-	class SvnAdapter < AbstractAdapter
-		def self.url_regex
-			/^(file|http|https|svn):\/\/(\/)?[A-Za-z0-9_\-\.]+(:\d+)?(\/[A-Za-z0-9_@\-\.\/\+%^~ ]*)?$/
-		end
-
-		def self.public_url_regex
-			/^(http|https|svn):\/\/[A-Za-z0-9_\-\.]+(:\d+)?(\/[A-Za-z0-9_\-\.\/\+%^~ ]*)?$/
-		end
-
-		def normalize
-			super
-			@url = path_to_file_url(@url)
-			@url = force_https_if_sourceforge(@url)
-      if @branch_name
-        clean_branch_name
-      else
-        @branch_name = recalc_branch_name
-      end
-			self
-		end
-
-		# Subversion usernames have been relaxed from the abstract rules. We allow email names as usernames.
-		def validate_username
-			return nil unless @username
-			return nil if @username.length == 0
-			return [:username, "The username must not be longer than 32 characters."] unless @username.length <= 32
-			return [:username, "The username contains illegal characters."] unless @username =~ /^\w[\w@\.\+\-]*$/
-		end
-
-		# If the URL is a simple directory path, make sure it is prefixed by file://
-		def path_to_file_url(path)
-			return nil if path.empty?
-			url =~ /:\/\// ? url : 'file://' + File.expand_path(path)
-		end
-
-		def force_https_if_sourceforge(url)
-			# SourceForge requires https for svnsync
-      url =~ /http(:\/\/.*svn\.(sourceforge|code\.sf)\.net.*)/ ? "https#{$1}" : url
-		end
-
-		def validate_server_connection
-			return unless valid?
-			begin
-				if head_token.nil?
-					@errors << [:failed, "The server did not respond to a 'svn info' command. Is the URL correct?"]
-				elsif self.url[0..root.length-1] != root
-					@errors << [:failed, "The URL did not match the Subversion root #{root}. Is the URL correct?"]
-				elsif recalc_branch_name && ls.nil?
-					@errors << [:failed, "The server did not respond to a 'svn ls' command. Is the URL correct?"]
-				end
-			rescue
-				logger.error { $!.inspect }
-				@errors << [:failed, "An error occured connecting to the server. Check the URL, username, and password."]
-			end
-		end
-
-		# From the given URL, determine which part of it is the root and which part of it is the branch_name.
-		# The current branch_name is overwritten.
-		def recalc_branch_name
-      begin
-        @branch_name = @url ? @url[root.length..-1] : @branch_name
-      rescue RuntimeError => exception
-        @branch_name = '' if exception.message =~ /(svn:*is not a working copy|Unable to open an ra_local session to URL)/ # we have a file system
-      end
-      clean_branch_name
-      @branch_name
-		end
-
-		def guess_forge
-			u = @url =~ /:\/\/(.*\.?svn\.)?([^\/^:]+)(:\d+)?(\/|$)/ ? $2 : nil
-			case u
-			when /(googlecode\.com$)/, /(tigris\.org$)/, /(sunsource\.net$)/, /(java\.net$)/,
-				/(openoffice\.org$)/, /(netbeans\.org$)/, /(dev2dev\.bea\.com$)/, /(rubyforge\.org$)/
-				$1
-			else
-				u
-			end
-		end
-
-    private
-    def clean_branch_name
-      return unless @branch_name
-      @branch_name.chop! if @branch_name.end_with?('/')
-    end
-	end
-end

data/lib/ohloh_scm/adapters/svn_adapter.rb

@@ -1,17 +0,0 @@
-module OhlohScm::Adapters
-	class SvnAdapter < AbstractAdapter
-		def english_name
-			"Subversion"
-		end
-	end
-end
-
-require_relative 'svn/validation'
-require_relative 'svn/cat_file'
-require_relative 'svn/commits'
-require_relative 'svn/push'
-require_relative 'svn/pull'
-require_relative 'svn/head'
-require_relative 'svn/misc'
-require_relative 'svn/patch'
-

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

@@ -1,8 +0,0 @@
-module OhlohScm::Adapters
-	class SvnChainAdapter < SvnAdapter
-		def cat(path, revision)
-			parent_svn(revision) ? parent_svn.cat(path, revision) : super(path, revision)
-		end
-	end
-end
-

data/lib/ohloh_scm/adapters/svn_chain/chain.rb

@@ -1,100 +0,0 @@
-module OhlohScm::Adapters
-	class SvnChainAdapter < SvnAdapter
-
-		# Returns the entire SvnAdapter ancestry chain as a simple array.
-		def chain
-			(parent_svn ? parent_svn.chain : []) << self
-		end
-
-		# If this adapter's branch was created by copying or renaming another branch,
-		# then return a new adapter that points to that prior branch.
-		#
-		# Only commits following +after+ are considered, so if the copy or rename
-		# occured on or before +after+, then no parent will be found or returned.
-		def parent_svn(after=0)
-			@parent_svn ||={} # Poor man's memoize
-
-			@parent_svn[after] ||= begin
-				parent = nil
-				c = first_commit(after)
-				if c
-					# === Long explanation of real head-scratching bug fix. ===
-					#
-					# It is possible for some Subversion commits to include *multiple*
-					# renames/copies of a source directory. For example:
-					#
-					#    A /foo (from /trunk:1)
-					#    D /foo/my_branch
-					#    A /foo/bar (from /trunk:1)
-					#    D /trunk
-					#
-					# If we simply processed these entries in the order given, then
-					# we would conclude that /foo/bar/my_branch has parent
-					# /trunk/bar/my_branch (because the first A matches) and exit.
-					#
-					# This is incorrect! We must look for the *longest* A that matches
-					# our path, and follow that one. In the example above, the correct
-					# parent for /foo/bar/my_branch is /trunk/my_branch.
-					#
-					# Therefore, we must sort diffs by descending filename length, so
-					# that we choose the longest match.
-					c.diffs.sort { |a,b| b.path.length <=> a.path.length }.each do |d|
-
-						# If this diff actually creates this branch, then a parent is impossible.
-						# Stop looking for parents.
-						#
-						# This check exists because of the following complicated commit:
-						# http://dendro.cornell.edu/svn/corina/branches/databasing/src/edu/cornell/dendro@813
-						# It's long to explain, but basically a directory is renamed and
-						# then our branch is created within it, all in a single commit.
-						# Without this check, our code mistakenly thinks there is a parent.
-						if diff_creates_branch(d)
-							return nil
-						end
-
-						if (b = parent_branch_name(d))
-							parent = SvnChainAdapter.new(
-								:url => File.join(root, b), :branch_name => b,
-								:username => username, :password => password,
-								:final_token => d.from_revision).normalize
-								break
-						end
-
-					end
-				end
-				parent
-			end
-		end
-
-		def first_token(after=0)
-			c = first_commit(after)
-			c && c.token
-		end
-
-		def first_commit(after=0)
-			@first_commit ||={} # Poor man's memoize
-			@first_commit[after] ||= OhlohScm::Parsers::SvnXmlParser.parse(next_revision_xml(after)).first
-		end
-
-		# Returns the first commit with a revision number greater than the provided revision number
-		def next_revision_xml(after=0)
-			return "<?xml?>" if after.to_i >= head_token
-			run "svn log --trust-server-cert --non-interactive --verbose --xml --stop-on-copy -r #{after.to_i+1}:#{final_token || 'HEAD'} --limit 1 #{opt_auth} '#{SvnAdapter.uri_encode(File.join(self.root, self.branch_name.to_s))}@#{final_token || 'HEAD'}' | #{ string_encoder }"
-		end
-
-		# If the passed diff represents the wholesale movement of the entire
-		# code tree from one directory to another, this method returns the name
-		# of the previous directory.
-		def parent_branch_name(d)
-			if %w(A R).include?(d.action) && branch_name[0, d.path.size] == d.path && d.from_path && d.from_revision
-				d.from_path + branch_name[d.path.size..-1]
-			end
-		end
-
-		# True if the passed diff represents the initial creation of the
-		# branch -- not a move or copy from somewhere else.
-		def diff_creates_branch(d)
-			d.action == 'A' && branch_name[0, d.path.size] == d.path && !d.from_path
-		end
-	end
-end

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

@@ -1,37 +0,0 @@
-module OhlohScm::Adapters
-	class SvnChainAdapter < SvnAdapter
-
-		# Returns the count of commits following revision number 'after'.
-		def commit_count(opts={})
-			(parent_svn(opts[:after]) ? parent_svn(opts[:after]).commit_count(opts) : 0) + super(opts)
-		end
-
-		# Returns an array of revision numbers for all commits following revision number 'after'.
-		def commit_tokens(opts={})
-			(parent_svn(opts[:after]) ? parent_svn(opts[:after]).commit_tokens(opts) : []) + super(opts)
-		end
-
-		# Returns an array of commits following revision number 'after'.
-		def commits(opts={})
-			(parent_svn(opts[:after]) ? parent_svn(opts[:after]).commits(opts) : []) + super(opts)
-		end
-
-		def verbose_commit(rev=0)
-			parent_svn(rev) ? parent_svn.verbose_commit(rev) : super(rev)
-		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)
-      if %w(A R).include?(diff.action) && diff.path == '' && parent_svn && rev == first_token
-				# A very special case that is important for chaining.
-				# This is the first commit, and the entire tree is being created by copying from parent_svn.
-				# In this case, there isn't actually any change, just
-				# a change of branch_name. Return no diffs at all.
-				nil
-			else
-				super(diff, rev)
-			end
-		end
-	end
-end

data/lib/ohloh_scm/adapters/svn_chain_adapter.rb

@@ -1,44 +0,0 @@
-module OhlohScm::Adapters
-	# Some explanation is in order about "chaining."
-	#
-	# First, realize that a base SvnAdapter only tracks the history of a single
-	# subdirectory. If you point an adapter at /trunk, then that adapter is
-	# going to ignore eveything in /branches and /tags.
-	#
-	# The problem with this is that directories often get moved about.  What is
-	# called "/trunk" today might have been in a branch directory at some point
-	# in the past. But after we completely ignore other directories, we never see
-	# that old history.
-	#
-	# Suppose for example that from revisions 1 to 100, development occured in
-	# /branches/beta. Then at revision 101, /trunk was created by copying
-	# /branches/beta, and this /trunk lives on to this day.
-	#
-	# The log for revision 101 is going to look something like this:
-	#
-	# Changed paths:
-	#    D /branches/beta
-	#    A /trunk (from /branches/beta:100)
-	#
-	# A single SvnAdapter pointed at today's /trunk will only see revisions 101
-	# through HEAD, because /trunk didn't even exist before revision 101.
-	#
-	# To capture the prior history, we need to create *another* SvnAdapter
-	# which points at /branches/beta, and which considers revisions from 1 to 100.
-	#
-	# That's what chaining is: when we find that the first commit of an adapter
-	# indicates the wholesale renaming or copying of the entire tree from
-	# another location, then we generate a new SvnAdapter that points to that
-	# prior location, and process that SvnAdapter as well.
-	#
-	# This behavior recurses ("chains") all the way back to revision 1.
-	#
-	# It only works if the *entire branch* moves. We don't chain when
-	# subdirectories or individual files are copied.
-	class SvnChainAdapter < SvnAdapter
-	end
-end
-
-require_relative 'svn_chain/chain'
-require_relative 'svn_chain/commits'
-require_relative 'svn_chain/cat_file'

data/lib/ohloh_scm/parsers/array_writer.rb

@@ -1,19 +0,0 @@
-module OhlohScm::Parsers
-	class ArrayWriter
-
-		attr_accessor :buffer
-		def initialize(buffer=[])
-			@buffer = buffer
-		end
-
-		def write_preamble(opts = {})
-		end
-
-		def write_commit(commit)
-			@buffer << commit
-		end
-
-		def write_postamble
-		end
-	end
-end

data/lib/ohloh_scm/parsers/branch_number.rb

@@ -1,60 +0,0 @@
-module OhlohScm::Parsers
-	class BranchNumber
-		def initialize(s)
-			@a = s.split('.').collect { |i| i.to_i }
-			# Accomodate CVS magic branch numbers by swapping the magic zero
-			# That is, 1.1.0.2 => 1.1.2.0
-			if @a.size > 2 and @a[-2]==0
-				@a[-1],@a[-2] = @a[-2],@a[-1]
-			end
-		end
-
-		def to_s
-			@a.join('.')
-		end
-
-		def to_a
-			@a
-		end
-
-		# Returns true if <branch_number> is an ancestor of this object.
-		# Also returns true if <branch_number> is the same as this object.
-		def inherits_from?(branch_number)
-			b = branch_number.to_a
-
-			return false if b.size > @a.size
-
-			if b.size == 2
-				return false if b[0] > @a[0]
-				return false if b[0] == @a[0] and b[1] > @a[1]
-			else
-				0.upto(b.size-2) do |i|
-					return false if b[i] != @a[i]
-				end
-				return false if b[-1] > @a[b.size-1]
-			end
-
-			true
-		end
-
-		# Returns true if <branch_number> is an ancestor of this object,
-		# or if this object follows <branch_number> on the same line.
-		def on_same_line?(branch_number)
-			b = branch_number.to_a
-
-			if b.size > @a.size
-				# b has been branched more times than this object.
-				return false
-			elsif b.size == @a.size
-				# b and a have the same number of branch events.
-				# If either one inherits from the other then they
-				# are on the same line.
-				return (inherits_from?(branch_number) or branch_number.inherits_from?(self))
-			elsif b.size < @a.size
-				# b has not been branched as often as this object.
-				# That's OK if b is an ancestor of this object.
-				return inherits_from?(branch_number)
-			end
-		end
-	end
-end