build-tool 0.0.3 → 0.1.0

data/lib/kde-build/module_configuration.rb

@@ -1,107 +0,0 @@
-require 'kde-build/configuration'
-require 'kde-build/build_system'
-require 'kde-build/module'
-require 'kde-build/moduleregistry.rb'
-require 'kde-build/vcs'
-
-require 'yaml'
-
-module BuildTool
-
-    class ModuleConfiguration
-
-        include MJ::Configuration::Configurable
-
-        option( "repository", "Remote repository url" ).
-            required
-
-        option( "ssh-key", "ssh-key for the repository" )
-        option( "ssh-file", "ssh-file for the repository" )
-
-        option( "name", "Name of the module" ).
-            required
-
-        option( "vcs", "VCS used for the module. # TODO" ).
-            on_write {
-                |val|
-                if val.instance_of?( String )
-                    val = VCS::get( val ).config.new
-                elsif val.instance_of?( Array )
-                    a = val.inject([]) {
-                        |arr, v|
-                        v.each_pair {
-                            |val, key|
-                            arr << val << key
-                        }
-                        arr
-                    }
-                    a = Hash[*a]
-                    val = VCS::get(a['name']).config.new
-                    val.parse(a)
-                else
-                    raise Exception, "Don't know how to handle #{val.inspect}"
-                end
-                val
-            }
-
-        option( "build-system", "Build System" ).
-            on_write {
-                |val|
-                if val.instance_of?( String )
-                    val = BuildSystem::get( val ).config.new
-                elsif val.instance_of?( Array )
-                    a = val.inject([]) {
-                        |arr, v|
-                        v.each_pair {
-                            |val, key|
-                            arr << val << key
-                        }
-                        arr
-                    }
-                    a = Hash[*a]
-                    val = BuildSystem::get(a['name']).config.new
-                    val.parse(a)
-                else
-                    raise Exception, "FIXME"
-                end
-                val
-            }
-
-        option( "env", "Environment Settings" ).
-            on_write { |val|
-                h = Hash.new
-                MJ::Configuration::flatten_values val do
-                    |k, v|
-                    h[k] = v
-                end
-                h
-            }
-
-        option( "local-path", "Local path to build. Relative to <stage>/src" )
-
-        option( "remote-path", "Path to fetch from. Relative to <repository>" ).
-            required
-
-        option( "prefix", "Installation Directory" ).
-            required
-
-        def to_s
-            self.name
-        end
-    end
-
-
-    YAML.add_domain_type(
-        "michael-jansen.biz,2009", "ModuleConfiguration" ) {
-            |type, val|
-            mc = ModuleConfiguration.new
-            MJ::Configuration::flatten_values val do
-                |k, v|
-                mc.set( k, v )
-            end
-            mc.validate
-            ModuleRegistry.instance.register_module( Module.new( mc ) )
-            mc
-        }
-
-end

data/lib/kde-build/moduleregistry.rb

@@ -1,85 +0,0 @@
-# encoding: utf-8
-#
-require 'singleton'
-
-module BuildTool
-
-    class ConfigurationError < Exception
-    end
-
-    class ModuleRegistry
-
-        include Singleton
-
-        include MJ::Configuration::Configurable
-
-        include Singleton
-
-        @@packages = {}
-        def set( name, string )
-            @@packages[name] = string.to_s.split( /  */ )
-        end
-
-        def self.resolve_package( string, &block )
-            name = string[1..-1]
-            if @@packages.has_key? name
-                return self.get_modules( @@packages[name], &block )
-            else
-                $log.error( "Unknown package #{string}" )
-            end
-        end
-
-        @@modules = []
-
-        def register_module( mod )
-            if self.class.module_by_name mod.name
-                raise ConfigurationError, "Two configurations for #{mod.name} found"
-            end
-            @@modules.push( [mod.name ,mod] )
-        end
-
-        def self.module_by_name( name )
-            @@modules.each do |v|
-                if v[0] == name
-                    return v[1]
-                end
-            end
-            nil
-        end
-
-
-        def self.get_modules( args, &block )
-            if args.instance_of?( String )
-                if args[0,1] == ':'
-                    self.resolve_package( args, &block )
-                # Check if we have a exact match
-                elsif mod = module_by_name(args)
-                    yield mod
-                elsif args[-1,1] == '/'
-                    found = false
-                    @@modules.select{ |a| a[0].index(args) == 0}.each do |a|
-                        found = true
-                        yield a[1]
-                    end
-                    $log.error( "Unknown module #{args}" ) if !found
-                else
-                    $log.error( "Unknown module #{args}" )
-                end
-            elsif args.instance_of?( Array )
-                args.map { |arg| get_modules( arg, &block ) }
-            end
-        end
-
-    end
-
-    YAML.add_domain_type(
-        "michael-jansen.biz,2009", "Packages" ) {
-            |type, val|
-            mr = ModuleRegistry.instance
-            MJ::Configuration::flatten_values val do
-                |k, v|
-                mr.set( k, v )
-            end
-        }
-
-end

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

@@ -1,59 +0,0 @@
-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", "" )
-        option( "output", "" )
-
-        def initialize
-            @executable = "ctags"
-        end
-
-    end
-
-
-    class CTags
-
-        include MJ::Tools::SubProcess
-
-        def self.run( dir, file )
-            file = file.tr( "/", "-" )
-            conf = CTagsConfiguration::instance
-            if !conf.output
-                $log.error("No ctags configuration section found!")
-                return
-            else
-                FileUtils.mkdir_p( Pathname.new( conf.output ).expand_path )
-            end
-            ctags "#{conf.options ? conf.options : ""} -f #{Pathname.new( conf.output ).join( file )}  -R #{dir}"
-        end
-
-        def self.ctags( cmd )
-            conf = CTagsConfiguration::instance
-            execute( "#{conf.executable ? conf.executable : "ctags"} #{cmd}" )
-        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

@@ -1,49 +0,0 @@
-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

@@ -1,58 +0,0 @@
-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

@@ -1,47 +0,0 @@
-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

@@ -1,28 +0,0 @@
-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
-
-class UnknownVcsError < Exception; end
-
-def get( name )
-    if !available.include? name
-        raise VcsError, "VCS '#{name}' is not supported"
-    end
-    @mapping[name]
-end
-
-end; end

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

@@ -1,85 +0,0 @@
-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
-
-        def info
-            puts "Version Control:   #{name}"
-        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