build-tool 0.0.1

data/lib/kde-build/tools/ctags.rb

@@ -0,0 +1,34 @@
+require 'kde-build/configuration'
+require 'kde-build/subprocess'
+
+require 'singleton'
+require 'yaml'
+
+module BuildTool
+
+    class CTagsConfiguration
+
+        include MJ::Configuration::Configurable
+
+        include Singleton
+
+        option( "executable", "Full path for to the executable" )
+        option( "options", "" )
+
+        def initialize
+            @executable = "ctags"
+        end
+
+    end
+
+    YAML.add_domain_type(
+        "michael-jansen.biz,2009", "CTagsConfiguration" ) {
+            |type, val|
+            cc = CTagsConfiguration.instance
+            MJ::Configuration::flatten_values val do
+                |k, v|
+                cc.set( k, v )
+            end
+        }
+
+end

data/lib/kde-build/tools/logging.rb

@@ -0,0 +1,49 @@
+require 'log4r'
+
+class Object
+
+    def while_logging_to( dir, fname, &block )
+        if logdir = BuildTool::Application::instance.log_directory
+            dirname = "#{logdir}/#{dir}"
+            FileUtils.mkdir_p( dirname )
+            with_warnings_suppressed do
+                $log.add( FileOutputter.new( fname, :filename => "#{dirname}/#{fname}", :level => DEBUG ) )
+                Outputter[fname].formatter = BuildTool::CmdFormatter.new
+            end
+        end
+
+        begin
+            yield
+        rescue Exception => e
+            $log.info("More information in #{dirname}/#{fname}")
+            raise e
+        ensure
+            if logdir
+                with_warnings_suppressed do
+                    $log.remove( fname )
+                end
+            end
+        end
+    end
+
+end
+
+module BuildTool
+
+    class PlainFormatter < Log4r::Formatter
+        def format(event)
+          sprintf("%s\n", event.data)
+        end
+    end
+
+    class CmdFormatter < Log4r::Formatter
+        def format(event)
+            if event.level != CMDOUT
+                sprintf("%*s %s> %s\n", MaxLevelLength, LNAMES[event.level], 
+                      event.name, event.data)
+            else
+                sprintf("%s\n", event.data)
+            end
+        end
+    end
+end

data/lib/kde-build/tools/make.rb

@@ -0,0 +1,58 @@
+require 'kde-build/configuration.rb'
+
+require 'yaml'
+require 'singleton'
+
+module BuildTool
+
+    class MakeConfiguration
+
+        include Singleton
+
+        include MJ::Configuration::Configurable
+
+        option( "executable", "Full path for to the executable" ).
+            required
+        option( "options", "TODO" )
+        option( "cxxflags", "TODO" )
+
+        def initialize
+            self.executable = "make"
+        end
+
+    end
+
+
+    class Make
+
+        include MJ::Tools::SubProcess
+
+        def make( command, wd = build_directory )
+            self.class.execute "#{executable} #{cxxflags} #{options} #{command}", wd
+        end
+
+        def options
+            MakeConfiguration.instance.options
+        end
+
+        def cxxflags
+            MakeConfiguration.instance.cxxflags
+        end
+
+        def executable
+            MakeConfiguration.instance.executable
+        end
+    end
+
+
+    YAML.add_domain_type(
+        "michael-jansen.biz,2009", "MakeConfiguration" ) {
+            |type, val|
+            mc = MakeConfiguration.instance
+            MJ::Configuration::flatten_values val do
+                |k, v|
+                mc.set( k, v )
+            end
+        }
+
+end

data/lib/kde-build/tools/ssh.rb

@@ -0,0 +1,47 @@
+require 'kde-build/subprocess'
+
+module MJ; module Tools
+
+    class SSH
+
+        include MJ::Tools::SubProcess
+
+        def add_key( key_file )
+            ssh_add( "#{key_file}" )
+        end
+
+        def has_key?( key )
+            found = false
+            ssh_add '-l' do
+                |line|
+                if line.index(key) == 0
+                    return found = true
+                end
+            end
+            return found
+        end
+
+        def remove_key( key_file )
+            ssh_add( "-d #{key_file}" )
+        end
+
+        def remove_all_keys
+            ssh_add( "-D" )
+        end
+
+        def list_keys
+            ssh_add( "-l" )
+        end
+
+        def ssh_add( command,  &block )
+            if block_given?
+                self.class.execute "ssh-add #{command}", &block
+            else
+                self.class.execute "ssh-add #{command}"
+            end
+        end
+
+    end
+
+end; end
+

data/lib/kde-build/vcs.rb

@@ -0,0 +1,26 @@
+require 'kde-build/vcs/git'
+require 'kde-build/vcs/git-svn'
+require 'kde-build/vcs/svn'
+
+module BuildTool; module VCS
+
+@mapping = {
+    'git-svn' => GitSVN,
+    'git'     => Git,
+    'svn'     => SVN
+}
+
+module_function
+
+def available
+    @mapping.keys
+end
+
+def get( name )
+    if !available.include? name
+        throw :todo
+    end
+    @mapping[name]
+end
+
+end; end

data/lib/kde-build/vcs/base.rb

@@ -0,0 +1,81 @@
+require 'kde-build/configuration'
+require 'kde-build/subprocess'
+
+require 'fileutils'
+
+module BuildTool; module VCS
+
+    class BuildToolError < Exception; end
+
+
+    class BaseConfiguration
+
+        include MJ::Configuration::Configurable
+
+        option( 'name', "Name" )
+
+    end
+
+
+    # Base class for all version control system implementations.
+    #
+    # This class is abstract. Most method just raise NotImplementedError
+    # exceptions.
+    class Base
+
+        include MJ::Tools::SubProcess
+
+        attr_accessor :repository, :path
+        attr_accessor :configuration
+
+
+        # Creates a new vcs module. Stores +repository+ and +path+
+        def initialize( repository, path = nil)
+            @repository = repository
+            @path = path
+        end
+
+        # Check if the local checkout exists.
+        #
+        # This method only checks it the local checkout path exists and is
+        # a directory
+        def checkedout?
+            return ( File.exist?( self.path ) and File.directory?( path ) )
+        end
+
+        # Fetch the changes from the remote repository without changing
+        # code locally
+        #
+        # raises NotImplementedError
+        def fetch
+            raise NotImplementedError, "Base::fetch in #{self.class}"
+        end
+
+        # Initialize the local checkout
+        #
+        # raises NotImplementedError
+        def init
+            raise NotImplementedError, "Base::init in #{self.class}"
+        end
+
+        # Return the name for this version control system
+        #
+        # raises NotImplementedError
+        def name
+            raise NotImplementedError, "Base::name in #{self.class}"
+        end
+
+        # Rebase the local branch with the remote changes
+        #
+        # raises NotImplementedError
+        def rebase
+            raise NotImplementedError, "Base::rebase in #{self.class}"
+        end
+
+        def self.config
+            raise NotImplementedError, "Base::config in #{self}"
+        end
+
+    end
+
+end; end

data/lib/kde-build/vcs/git-svn.rb

@@ -0,0 +1,133 @@
+# encoding: utf-8
+#
+require 'kde-build/vcs/base'
+
+module BuildTool; module VCS
+
+
+        class GitSvnConfiguration < BaseConfiguration
+
+            option( "externals", "List of externals to fetch" ).
+                on_write {
+                    |val|
+                    if val.instance_of?( Array )
+                        a = val.inject([]) {
+                            |arr, v|
+                            v.each_pair {
+                                |val, key|
+                                arr << val << key
+                            }
+                            arr
+                        }
+                        val = Hash[*a]
+                    else
+                        throw :todo
+                    end
+                    val
+                }
+
+
+            def initialize
+                super
+                self.name = "git-svn"
+            end
+
+        end
+
+        # Git-SVN Error
+        class GitSvnError < BuildToolError
+        end
+
+
+        # Implementation for the git-svn version control system
+        # (http://git-scm.org)
+        class GitSVN < Base
+
+            def initialize( repository, path )
+                super repository, path
+            end
+
+            # Check if the local checkout exists.
+            #
+            # calls VCS::Base::checkedout? and checks if there is a '.git'
+            # directory at +path+
+            def checkedout?
+                return false if !super
+                if !File.exists? "#{path}/.git"
+                    $log.debug("Checkout path #{path} is not a git repo")
+                    return false
+                end
+                return true
+            end
+
+            def self.config
+                GitSvnConfiguration
+            end
+
+            # Execute a git command in the context of the local git repository
+            def git_svn( command, wd = path )
+                self.class.execute "git svn #{command}", wd
+            end
+
+            # Fetch from +repository+
+            #
+            # Initializes the local clone if it does not exist.
+            def fetch( revision = nil )
+                if !checkedout? and !$noop
+                    init
+                end
+                if revision
+                    cmd = "fetch -r#{revision}"
+                else
+                    cmd = "fetch"
+                end
+                if ( rc = git_svn( cmd ) ) != 0
+                    raise GitSvnError, "Error while fetching: #{rc}"
+                end
+                update_externals
+            end
+
+            # Initialize the local repository
+            def init( revision = nil )
+                # Check if path exists
+                if File.exists? path
+                    raise GitSvnError, "Failed to create repository at '#{path}': Path exists"
+                end
+                # Make sure we have a revision
+                if !revision
+                    revision = SVN.new( repository ).last_changed_rev
+                end
+                if !revision or revision == 0
+                    raise GitSvnError, "Failed to retrieve revision to clone from '#{repository}'"
+                end
+                # Create the directory
+                FileUtils.mkdir_p( path ) if !$noop
+                # Init the repository
+                if !git_svn "init #{repository}"
+                    raise GitSvnError, "Error while initializing the repo `git svn init '#{repository}'`: #{$?}"
+                end
+                fetch( revision )
+                update_externals
+            end
+
+            # Returns Git-SVN
+            def name
+                "Git-SVN"
+            end
+
+            def rebase
+                return git_svn "rebase -l master"
+            end
+
+            def update_externals
+                return if !configuration.externals
+                configuration.externals.each do |local, remote|
+                    SVN::svn( "checkout #{remote}@HEAD #{local}", wd = path  )
+                end
+            end
+
+        end
+
+
+end; end
+

data/lib/kde-build/vcs/git.rb

@@ -0,0 +1,96 @@
+# encoding: utf-8
+#
+# git-svn.rb - GIT-SVN VCS Implementation
+#
+#
+# == Overview
+#
+# bla bla
+#
+require 'kde-build/vcs/base'
+
+module BuildTool; module VCS
+
+        class GitConfiguration < BaseConfiguration
+
+            def initialize
+                super
+                self.name = "git"
+            end
+
+        end
+
+
+        # Implementation for the git-svn version control system
+        # (http://git-scm.org)
+        class Git < Base
+
+            def initialize( repository, path )
+                super
+            end
+
+            def name
+                "GIT"
+            end
+
+            def git( command, wd = path )
+                self.class.execute "git #{command}", wd
+            end
+
+            def self.config
+                GitConfiguration
+            end
+
+            # Check if the local checkout exists.
+            #
+            # calls VCS::Base::checkedout? and checks if there is a '.git'
+            # directory at +path+
+            def checkedout?
+                return false if !super
+                if !File.exists? "#{path}/.git"
+                    $log.debug("Checkout path #{path} is not a git repo")
+                    return false
+                end
+                return true
+            end
+
+            # Fetch from +repository+
+            #
+            # Initializes the local clone if it does not exist.
+            def fetch()
+                if !checkedout? and !$noop
+                    init
+                end
+                cmd = "fetch"
+                if ( rc = git( cmd ) ) != 0
+                    raise GitError, "Error while fetching: #{rc}"
+                end
+            end
+
+
+            # Initialize the local repository
+            def init
+                # Check if path exists
+                if File.exists? path
+                    raise GitSvnError, "Failed to create repository at '#{path}': Path exists"
+                end
+
+                # Create the directory
+                FileUtils.mkdir_p( File.split(path)[0] ) if !$noop
+
+                # Init the repository
+                if !git( "clone #{repository} #{path}", File.split(path)[0] )
+                    raise GitError, "Error while initializing the repo `git clone '#{repository} #{path}'`: #{$?}"
+                end
+                fetch()
+            end
+
+            def rebase
+                return git "rebase origin"
+            end
+
+        end
+
+
+    end
+end