rubycut-vclog 1.9.4

data/bin/vclog-news

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+
+require 'vclog/cli/news'
+
+VCLog::CLI::News.run(ARGV)
+

data/bin/vclog-version

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+
+require 'vclog/cli/version'
+
+VCLog::CLI::Version.run(ARGV)
+

data/lib/vclog.rb

@@ -0,0 +1,6 @@
+module VCLog
+  require 'vclog/metadata'
+  require 'vclog/repo'
+  #require 'vclog/cli'
+end
+

data/lib/vclog.yml

@@ -0,0 +1,68 @@
+---
+revision: 2013
+type: ruby
+sources:
+- index
+authors:
+- name: Trans
+  email: transfire@gmail.com
+organizations: []
+requirements:
+- version: ! '>= 2.4'
+  name: facets
+- version: ! '>= 1.2'
+  name: ansi
+- name: xml-simple
+#- groups:
+#  - build
+#  development: true
+#  name: detroit
+- groups:
+  - build
+  development: true
+  name: ergo
+- groups:
+  - test
+  development: true
+  name: citron
+- groups:
+  - test
+  development: true
+  name: lime
+- groups:
+  - test
+  development: true
+  name: ae
+- groups:
+  - test
+  development: true
+  name: rubytest-cli
+conflicts: []
+alternatives: []
+resources:
+- type: home
+  uri: http://rubyworks.github.com/vclog
+  label: Homepage
+- type: code
+  uri: http://github.com/rubyworks/vclog
+  label: Source Code
+repositories:
+- name: upstream
+  scm: git
+  uri: git://github.com/rubyworks/vclog.git
+categories: []
+copyrights:
+- holder: Rubyworks
+  year: '2009'
+  license: BSD-2-Clause
+customs: []
+paths:
+  lib:
+  - lib
+created: '2006-05-09'
+summary: Cross-VCS/SCM ChangeLog Generator
+title: VCLog
+version: 1.9.4
+name: rubycut-vclog
+description: VCLog is a cross-VCS/SCM ChangeLog generator.
+date: '2013-03-22'

data/lib/vclog/adapters.rb

@@ -0,0 +1,12 @@
+require 'vclog/adapters/svn'
+require 'vclog/adapters/git'
+require 'vclog/adapters/hg'
+#require 'vclog/adapters/darcs'
+
+module VCLog
+
+  # Namespace for all VCS/SCM adapters.
+  module Adapters
+  end
+
+end

data/lib/vclog/adapters/abstract.rb

@@ -0,0 +1,131 @@
+module VCLog
+
+  module Adapters
+
+    require 'time'
+    require 'pathname'
+    require 'tempfile'
+
+    require 'vclog/changelog'
+    require 'vclog/change'
+    require 'vclog/tag'
+
+    # TODO: Could we support a "no scm" changelog based on `LOG:` entries in source files?
+
+    # TODO: Possibly use Amp or SCM gem for future version.
+
+    # Abstract base class for all version control system adapters.
+    #
+    class Abstract
+
+      #
+      attr :config
+
+      # Root location.
+      attr :root
+
+      # Heuristics object.
+      attr :heuristics
+
+      #
+      def initialize(repo)
+        @repo       = repo
+        @root       = repo.root  
+        @heuristics = repo.heuristics
+
+        initialize_framework
+      end
+
+      # This is used if the adapter is using an external library
+      # to interface with the repository.
+      def initialize_framework
+      end
+
+      #
+      def extract_tags
+        raise "Not Implemented"
+      end
+
+      #
+      def extract_changes
+        raise "Not Implemented"
+      end
+
+      #
+      def tags
+        @tags ||= extract_tags
+      end  
+
+      #
+      def changes
+        @changes ||= extract_changes
+      end
+
+      #
+      def change_points
+        @change_points ||= (
+          changes.inject([]){ |list, change| list.concat(change.points); list }
+        )
+      end
+
+      #
+      def tag?(name)
+        tags.find{ |t| t.name == name }
+      end
+
+      # Returns the current verion string.
+      def version
+        if tags.last
+          v = tags[-1].name # TODO: ensure the latest version
+          v = tags[-2].name if v == 'HEAD'
+        else
+          v = '0.0.0'
+        end
+        return v
+      end
+
+      # Return the latest commit as of a given date.
+      def change_by_date(date)
+        list = changes.select{ |c| c.date <= date }
+        list.sort_by{ |c| c.date }.last
+      end
+
+      # Fallback for user is `ENV['USER']`.
+      def user
+        ENV['USER']
+      end
+
+      # Fallback for email address is `ENV['EMAIL']`.
+      def email
+        ENV['EMAIL']
+      end
+
+      #
+      def repository
+        nil
+      end
+
+      #
+      def uuid
+        nil
+      end
+
+    private
+
+      #
+      def version_tag?(tag_name)
+        /(v|\d)/i =~ tag_name
+      end
+
+      #
+      def tempfile(name, content)
+        mfile = Tempfile.new(name)
+        File.open(mfile.path, 'w'){ |f| f << content }
+        mfile.path
+      end
+
+    end
+
+  end
+
+end

data/lib/vclog/adapters/darcs.rb

@@ -0,0 +1,93 @@
+require 'vclog/adapters/abstract'
+
+module VCLog
+
+  module Adapters
+
+    # Darcs SCM adapter.
+    #
+    # FIXME: This needs to be fixed!!!!!!!
+    #
+    class Darcs < Abstract
+
+      #
+      def initialize(*)
+        raise "Darcs is not yet supported. Please help us fix that!"
+      end
+
+      # Is a darcs repository?
+      def repository?
+        File.directory?('_darcs')
+      end
+
+      # This is also a module function.
+      module_function :repository?
+
+      # Cached Changelog.
+      def changelog
+        @changelog ||= generate_changelog
+      end
+
+      # Generate Changelog object.
+      def generate_changelog
+        raise "not a darcs repository" unless repository?
+
+        log = Changelog.new
+
+        txt = `darcs changes` #--repo=#{@repository}`
+
+        txt.each_line do |line|
+          case line
+          when /^\s*$/
+          when /^(Mon|Tue|Wed|Thu|Fri|Sat|Sun)/
+          when /^\s*tagged/
+            log << $'
+            log << "\n"
+          else
+            log << line
+            log << "\n"
+          end
+        end
+
+        return log
+      end
+
+      # Retrieve the "revision number" from the darcs tree.
+      def calculate_version
+        raise "not a darcs repository" unless repository?
+
+        status = info.status
+
+        changes = `darcs changes`
+        count   = 0
+        tag     = "0.0"
+
+        changes.each("\n\n") do |change|
+          head, title, desc = change.split("\n", 3)
+          if title =~ /^  \*/
+            # Normal change.
+            count += 1
+          elsif title =~ /tagged (.*)/
+            # Tag.  We look for these.
+            tag = $1
+            break
+          else
+            warn "Unparsable change: #{change}"
+          end
+        end
+        ver = "#{tag}.#{count.to_s}"
+
+        return ver
+        #format_version_stamp(ver, status) # ,released)
+      end
+
+      # TODO
+      def tag(ref, label, msg)
+        `darcs tag #{label}`
+      end
+
+    end
+
+  end
+
+end

data/lib/vclog/adapters/git.rb

@@ -0,0 +1,190 @@
+require 'vclog/adapters/abstract'
+
+module VCLog
+
+  module Adapters
+
+    # GIT Adapter.
+    #
+    class Git < Abstract
+
+      GIT_COMMIT_MARKER = '=====%n'
+      GIT_FIELD_MARKER  = '-----%n'
+
+      RUBY_COMMIT_MARKER = "=====\n"
+      RUBY_FIELD_MARKER  = "-----\n"
+
+      # Collect changes, i.e. commits.
+      def extract_changes
+        list = []
+
+        command = 'git log --name-only --pretty=format:"' +
+                    GIT_COMMIT_MARKER +
+                    '%ci' +
+                    GIT_FIELD_MARKER +
+                    '%aN' +
+                    GIT_FIELD_MARKER +
+                    '%H' +
+                    GIT_FIELD_MARKER +
+                    '%s%n%n%b' +
+                    GIT_FIELD_MARKER +
+                    '"'
+
+        changes = `#{command}`.split(RUBY_COMMIT_MARKER)
+
+        changes.shift # throw the first (empty) entry away
+
+        changes.each do |entry|
+          date, who, id, msg, files = entry.split(RUBY_FIELD_MARKER)
+          date  = Time.parse(date)
+          files = files.split("\n")
+          list << Change.new(:id=>id, :date=>date, :who=>who, :msg=>msg, :files=>files)
+        end
+
+        return list
+      end  
+
+      #
+      #def extract_files(change_list)
+      #  change_list.each do |change|
+      #    files = `git show --pretty="format:" --name-only #{c.id}`
+      #    files = files.split("\n")
+      #    change.files = files
+      #  end
+      #end
+
+      # Collect tags.
+      #
+      # `git show 1.0` produces:
+      #
+      #   tag 1.0
+      #   Tagger: 7rans <transfire@gmail.com>
+      #   Date:   Sun Oct 25 09:27:58 2009 -0400
+      #
+      #   version 1.0
+      #   commit
+      #   ...
+      #
+      # @todo This code is pretty poor, but it suffices for now.
+      #       And we need not worry about it the future b/c eventually
+      #       we will replace it by using the `amp` or `scm` gem.
+      def extract_tags
+        list = []
+        tags = `git tag -l`
+        tags.split(/\s+/).each do |tag|
+          next unless version_tag?(tag) # only version tags
+          id, who, date, rev, msg = nil, nil, nil, nil, nil
+          info = `git show #{tag}`
+          info, *_ = info.split(/^(commit|diff|----)/)
+          if /\Atag/ =~ info
+            msg = ''
+            info.lines.to_a[1..-1].each do |line|
+              case line
+              when /^Tagger:/
+                who = $'.strip
+              when /^Date:/
+                date = $'.strip
+              when /^\s*[a-f0-9]+/
+                id = $0.strip
+              else
+                msg << line
+              end
+            end
+            msg = msg.strip
+
+            #info = `git show #{tag}^ --pretty=format:"%ci|~|%H|~|"`
+            #cdate, id, *_ = *info.split('|~|')
+
+            info = git_show("#{tag}")
+
+            change = Change.new(info)
+
+            list << Tag.new(:id=>change.id, :name=>tag, :date=>date, :who=>who, :msg=>msg, :commit=>change)
+          else
+            #info = `git show #{tag} --pretty=format:"%cn|~|%ce|~|%ci|~|%H|~|%s|~|"`
+            info   = git_show(tag)
+            change = Change.new(info)
+
+            tag_info = {
+              :name   => tag,
+              :who    => info[:who],
+              :date   => info[:date],
+              :msg    => info[:message],
+              :commit => change
+            }
+            list << Tag.new(tag_info)
+          end          
+
+          #if $DEBUG
+          #  p who, date, rev, msg
+          #  puts
+          #end
+
+          #list << tag
+        end
+
+        return list
+      end
+
+      # User name of developer.
+      def user
+        @user ||= `git config user.name`.strip
+      end
+
+      # Email address of developer.
+      def email
+        @email ||= `git config user.email`.strip
+      end
+
+      #
+      def repository
+        @repository ||= `git config remote.origin.url`.strip
+      end
+
+      #
+      # Create a tag for the given commit reference.
+      #
+      def tag(ref, label, date, message)
+        file = tempfile("message", message)
+        date = date.strftime('%Y-%m-%d 23:59') unless String===date
+
+        cmd = %[GIT_AUTHOR_DATE='#{date}' GIT_COMMITTER_DATE='#{date}' git tag -a -F '#{file}' #{label} #{ref}]
+        puts cmd if $DEBUG
+        `#{cmd}` unless $DRYRUN
+      end
+
+    private
+
+      #
+      #
+      #
+      def git_show(ref)
+        command = 'git show ' + ref.to_s + ' --name-only --pretty=format:"' +
+                    '%ci' +
+                    GIT_FIELD_MARKER +
+                    '%cn' +
+                    GIT_FIELD_MARKER +
+                    '%ce' +
+                    GIT_FIELD_MARKER +
+                    '%H' +
+                    GIT_FIELD_MARKER +
+                    '%s%n%n%b' +
+                    GIT_FIELD_MARKER +
+                    '"'
+
+        entry = `#{command}`
+
+        date, who, email, id, msg, files = entry.split(RUBY_FIELD_MARKER)
+
+        who = who + ' ' + email
+        date  = Time.parse(date)
+        files = files.split("\n")
+
+        return { :date=>date, :who=>who, :id=>id, :message=>msg, :files=>files }
+      end
+
+    end
+
+  end
+
+end