ohloh_scm 2.5.1 → 3.0.1

data/lib/ohloh_scm/parsers/hg_parser.rb

@@ -1,63 +0,0 @@
-module OhlohScm::Parsers
-	# This parser can process the default hg logs, with or without the --verbose flag.
-	# It is handy for debugging but is not detailed enough for Ohloh analysis.
-	# See the HgStyledParser.
-	class HgParser < Parser
-		def self.scm
-			'hg'
-		end
-
-		def self.internal_parse(buffer, opts)
-			e = nil
-			state = :data
-
-			buffer.each_line do |l|
-				next_state = state
-				if state == :data
-					case l
-					when /^changeset:\s+\d+:([0-9a-f]+)/
-						yield e if e && block_given?
-						e = OhlohScm::Commit.new
-						e.diffs = []
-						e.token = $1
-					when /^user:\s+(.+?)(\s+<(.+)>)?$/
-						e.committer_name = $1
-						e.committer_email = $3
-					when /^date:\s+(.+)/
-						e.committer_date = Time.parse($1).utc
-					when /^files:\s+(.+)/
-						($1 || '').split(' ').each do |file|
-							e.diffs << OhlohScm::Diff.new(:action => '?', :path => file)
-						end
-					when /^summary:\s+(.+)/
-						e.message = $1
-					when /^description:/
-						next_state = :long_comment
-					end
-
-				elsif state == :long_comment
-					if l == "\n"
-						next_state = :long_comment_following_blank
-					else
-						e.message ||= ''
-						e.message << l
-					end
-
-				elsif state == :long_comment_following_blank
-					if l == "\n" # A second blank line in a row terminates the comment.
-						yield e if block_given?
-						e = nil
-						next_state = :data
-					else # Otherwise resume parsing comments.
-						e.message << "\n"
-						e.message << l
-						next_state = :long_comment
-					end
-				end
-				state = next_state
-			end
-			yield e if e && block_given?
-		end
-
-	end
-end

data/lib/ohloh_scm/parsers/hg_styled_parser.rb

@@ -1,65 +0,0 @@
-module OhlohScm::Parsers
-	# This parser processes Mercurial logs which have been generated using a custom style.
-	# This custom style provides additional information required by Ohloh.
-	class HgStyledParser < Parser
-		def self.scm
-			'hg'
-		end
-
-		# Use when you want to include diffs
-		def self.verbose_style_path
-			File.expand_path(File.join(File.dirname(__FILE__), 'hg_verbose_style'))
-		end
-
-		# Use when you do not want to include diffs
-		def self.style_path
-			File.expand_path(File.join(File.dirname(__FILE__), 'hg_style'))
-		end
-
-		def self.internal_parse(buffer, opts)
-			e = nil
-			state = :data
-
-			buffer.each_line do |l|
-				next_state = state
-				if state == :data
-					case l
-					when /^changeset:\s+([0-9a-f]+)/
-						e = OhlohScm::Commit.new
-						e.diffs = []
-						e.token = $1
-					when /^user:\s+(.+?)(\s+<(.+)>)?$/
-						e.committer_name = $1
-						e.committer_email = $3
-					when /^date:\s+([\d\.]+)/
-						e.committer_date = Time.at($1.to_f).utc
-					when "__BEGIN_FILES__\n"
-						next_state = :files
-					when "__BEGIN_COMMENT__\n"
-						next_state = :long_comment
-					when "__END_COMMIT__\n"
-						yield e if block_given?
-						e = nil
-					end
-
-				elsif state == :files
-					if l == "__END_FILES__\n"
-						next_state = :data
-					elsif l =~ /^([MAD]) (.+)$/
-						e.diffs << OhlohScm::Diff.new(:action => $1, :path => $2)
-					end
-
-				elsif state == :long_comment
-					if l == "__END_COMMENT__\n"
-						next_state = :data
-					else
-						e.message ||= ''
-						e.message << l
-					end
-				end
-				state = next_state
-			end
-		end
-	end
-end
-

data/lib/ohloh_scm/parsers/human_writer.rb

@@ -1,49 +0,0 @@
-module OhlohScm::Parsers
-	class HumanWriter
-		# Note that we use << instead of write() or puts() in this writer because
-		# the << operator works on both File and String objects.
-
-		attr_accessor :buffer
-		def initialize(buffer='')
-			@buffer = buffer
-		end
-
-		def write_preamble(opts = {})
-		end
-
-		def write_commit(commit)
-			@buffer << "--------------- #{'-' * 40}\n"
-			@buffer << "token:          #{commit.token.to_s}\n"
-
-			@buffer << "committer name: #{commit.committer_name}\n" if commit.committer_name
-			@buffer << "committer mail: <#{commit.committer_email}>\n" if commit.committer_email
-			@buffer << "committer date: #{commit.committer_date}\n" if commit.committer_date
-
-			@buffer << "author name:    #{commit.author_name}\n" if commit.author_name
-			@buffer << "author mail:    <#{commit.author_email}>\n" if commit.author_email
-			@buffer << "author date:    #{commit.author_date}\n" if commit.author_date
-
-			if commit.diffs && commit.diffs.any?
-				commit.diffs.each do |diff|
-					@buffer << "                #{diff.action} #{diff.path}\n"
-				end
-			end
-
-			if commit.directories && commit.directories.any?
-				commit.directories.each do |d|
-					@buffer << "                #{d}\n"
-				end
-			end
-
-			if commit.message
-				@buffer << "\n#{commit.message}"
-				@buffer << "\n" unless commit.message[-1..-1] == "\n"
-			end
-
-			@buffer << "\n"
-		end
-
-		def write_postamble
-		end
-	end
-end

data/lib/ohloh_scm/parsers/parser.rb

@@ -1,34 +0,0 @@
-require 'stringio'
-
-module OhlohScm::Parsers
-	class Parser
-		def self.parse(buffer='', opts={})
-			buffer = StringIO.new(buffer) if buffer.is_a? String
-			opts = opts.merge(:scm => self.scm)
-
-			writer = (opts[:writer] || ArrayWriter.new) unless block_given?
-			writer.write_preamble(opts) if writer
-
-			internal_parse(buffer, opts) do |commit|
-				if commit
-					yield commit if block_given?
-					writer.write_commit(commit) if writer
-				end
-			end
-
-			if writer
-				writer.write_postamble
-				writer.buffer
-			else
-				nil
-			end
-		end
-
-		def self.internal_parse
-		end
-
-		def self.scm
-			nil
-		end
-	end
-end

data/lib/ohloh_scm/parsers/svn_parser.rb

@@ -1,77 +0,0 @@
-module OhlohScm::Parsers
-	class SvnParser < Parser
-		def self.scm
-			'svn'
-		end
-
-		def self.internal_parse(buffer, opts)
-			e = nil
-			state = :data
-      previous_state = nil
-      previous_line = nil
-
-			buffer.each_line do |l|
-				l.chomp!
-				next_state = state
-				if state == :data
-					if l =~ /^r(\d+) \| (.*) \| (\d+-\d+-\d+ .*) \(.*\) \| .*/
-						yield e if e && block_given?
-
-						e = OhlohScm::Commit.new
-						e.token = $1.to_i
-						e.committer_name = $2
-						e.committer_date = Time.parse($3).utc
-					elsif l == "Changed paths:"
-						next_state = :diffs
-					elsif l.empty?
-						next_state = :comment
-          elsif previous_state == :comment
-						next_state = :comment
-            e.message ||= ''
-            e.message << "\n"
-            e.message << previous_line
-            e.message << "\n"
-            e.message << l
-					end
-
-				elsif state == :diffs
-					if l =~ /^   (\w) ([^\(\)]+)( \(from (.+):(\d+)\))?$/
-						e.diffs ||= []
-						e.diffs << OhlohScm::Diff.new(:action => $1, :path => $2, :from_path => $4, :from_revision => $5.to_i)
-					else
-						next_state = :comment
-					end
-
-				# The :log_embedded_within_comment state is special-case code to fix the Wireshark project, which
-				# includes fragments of svn logs within its comment blocks, which really confuses the parser.
-				# I am not sure whether only Wireshark does this, but I suspect it happens because there is a tool
-				# out there somethere to generate these embedded log comments.
-				elsif state == :log_embedded_within_comment
-					e.message << "\n"
-					e.message << l
-					next_state = :comment if l =~ /============================ .* log end =+/
-
-				elsif state == :comment
-					if l =~ /------------------------------------------------------------------------/
-						next_state = :data
-					elsif l =~ /============================ .* log start =+/
-						e.message << "\n"
-						e.message << l
-						next_state = :log_embedded_within_comment
-					else
-						if e.message
-							e.message << "\n"
-							e.message << l
-						else
-							e.message = l
-						end
-					end
-				end
-        previous_state = state
-				state = next_state
-        previous_line = l
-			end
-			yield e if block_given?
-		end
-	end
-end

data/lib/ohloh_scm/parsers/svn_xml_parser.rb

@@ -1,62 +0,0 @@
-require 'rexml/document'
-require 'rexml/streamlistener'
-
-module OhlohScm::Parsers
-	class SubversionListener
-		include REXML::StreamListener
-
-		attr_accessor :callback
-		def initialize(callback)
-			@callback = callback
-		end
-
-		attr_accessor :text, :commit, :diff
-
-		def tag_start(name, attrs)
-			case name
-			when 'logentry'
-				@commit = OhlohScm::Commit.new
-				@commit.diffs = []
-				@commit.token = attrs['revision'].to_i
-			when 'path'
-				@diff = OhlohScm::Diff.new(:action => attrs['action'],
-															:from_path => attrs['copyfrom-path'],
-															:from_revision => attrs['copyfrom-rev'].to_i)
-			end
-		end
-
-		def tag_end(name)
-			case name
-			when 'logentry'
-				@callback.call(@commit)
-			when 'author'
-				@commit.committer_name = @text
-			when 'date'
-				@commit.committer_date = Time.parse(@text).round.utc
-			when 'path'
-				@diff.path = @text
-				@commit.diffs << @diff
-			when 'msg'
-				@commit.message = @text
-			end
-		end
-
-		def text(text)
-			@text = text
-		end
-	end
-
-	class SvnXmlParser < Parser
-		def self.internal_parse(buffer, opts)
-			buffer = '<?xml?>' if buffer.is_a?(StringIO) and buffer.length < 2
-			begin
-				REXML::Document.parse_stream(buffer, SubversionListener.new(Proc.new { |c| yield c if block_given? }))
-			rescue EOFError
-			end
-		end
-
-		def self.scm
-			'svn'
-		end
-	end
-end

data/lib/ohloh_scm/parsers/xml_writer.rb

@@ -1,62 +0,0 @@
-module OhlohScm::Parsers
-	class XmlWriter
-		# Note that we use << instead of write() or puts() in this writer because
-		# the << operator works on both File and String objects.
-
-		attr_accessor :buffer
-		def initialize(buffer='')
-			@buffer = buffer
-		end
-
-		def write_preamble(opts = {})
-			@buffer << "<?xml version=\"1.0\"?>\n"
-			@buffer << "<ohloh_log"
-			opts.each_key do |key|
-				next if key.to_s == 'writer'
-				@buffer << " #{key}=\"#{opts[key]}\""
-			end
-			@buffer << ">\n"
-		end
-
-		def write_commit(commit)
-			@buffer << "    <commit token=\"#{commit.token}\">\n"
-
-			if commit.author_name
-				@buffer << "        <author name=\"#{commit.author_name}\" date=\"#{xml_time(commit.author_date)}\" />\n"
-			end
-
-			if commit.committer_name
-				@buffer << "        <committer name=\"#{commit.committer_name}\" date=\"#{xml_time(commit.committer_date)}\" />\n"
-			end
-
-			if commit.message
-				@buffer << "        <message>#{commit.message}</message>\n"
-			end
-
-			if commit.diffs && commit.diffs.any?
-				@buffer << "        <diffs>\n"
-				commit.diffs.each { |diff| write_diff(diff) }
-				@buffer << "        </diffs>\n"
-			end
-
-			@buffer << "    </commit>\n"
-		end
-
-		def write_diff(diff)
-			@buffer << "            <diff action=\"#{diff.action}\" path=\"#{diff.path}\" />\n"
-		end
-
-		def write_postamble
-			@buffer << "</ohloh_log>\n"
-		end
-
-		def xml_time(time)
-			case time
-			when Time
-				time.utc.strftime("%Y-%m-%dT%H:%M:%SZ")
-			when String
-				time
-			end
-		end
-	end
-end

data/lib/ohloh_scm/scratch_dir.rb

@@ -1,59 +0,0 @@
-require 'fileutils'
-
-# A utility class to manage the creation and automatic cleanup of temporary directories.
-module OhlohScm
-  class ScratchDir
-    attr_reader :path
-
-    # Creates a uniquely named directory in the system tmp directory.
-    #
-    # If a block is passed to the constructor, the path to the created directory
-    # will be yielded to the block. The directory will then be deleted
-    # when this block returns.
-    #
-    # Sample usage:
-    #
-    #   ScratchDir.new do |path|
-    #     # Do some work in the new directory
-    #     File.new( path + '/foobaz', 'w' ) do
-    #       # ...
-    #     end
-    #   end # Scratch directory is deleted here
-    #
-    def initialize
-      @path = `mktemp -d /tmp/ohloh_scm_XXXXXX`.strip
-      if block_given?
-        begin
-          return yield(@path)
-        ensure
-          FileUtils.rm_rf(@path)
-        end
-      end
-    end
-  end
-
-  if $0 == __FILE__
-    path = nil
-
-    ScratchDir.new do |d|
-      path = d
-      filename = File.join(d,"test")
-      File.open(filename, "w") do |io|
-        io.write "test"
-      end
-    end
-    raise RuntimeError.new("Directory wasn't cleaned up") if FileTest.directory?(path)
-
-    begin
-      ScratchDir.new do |d|
-        path = d
-        STDOUT.puts "Created scratch direcory #{d}"
-        raise RuntimeError.new("This error should not prevent cleanup")
-      end
-    rescue
-    end
-    raise RuntimeError.new("Directory wasn't cleaned up") if FileTest.directory?(path)
-
-    STDOUT.puts "Tests passed."
-  end
-end