build-tool 0.0.1

data/lib/kde-build/exception.rb

@@ -0,0 +1,6 @@
+module BuildTool
+
+    class BuildToolError < Exception
+    end
+
+end

data/lib/kde-build/metaaid.rb

@@ -0,0 +1,18 @@
+# encoding: utf-8
+
+class Object
+
+   # The hidden singleton lurks behind everyone
+   def metaclass; class << self; self; end; end
+   def meta_eval &blk; metaclass.instance_eval( &blk ); end
+
+   # Adds methods to a metaclass
+   def meta_def name, &blk
+     meta_eval { define_method name, &blk }
+   end
+
+   # Defines an instance method within a class
+   def class_def name, &blk
+     class_eval { define_method name, &blk }
+   end
+end

data/lib/kde-build/module.rb

@@ -0,0 +1,203 @@
+# encoding: utf-8
+#
+require 'kde-build/tools/ssh.rb'
+require 'kde-build/tools/logging.rb'
+
+module BuildTool
+
+    class ConfigureError < Exception
+    end
+
+    class BuildError < Exception
+    end
+
+    class Module
+
+        def initialize(config)
+            @config = config
+            @build_system = nil
+            @vcs = nil
+        end
+
+        def activate_ssh_key
+            # No key, no cookies
+            return if !@config.ssh_key
+
+            ssh = MJ::Tools::SSH.new
+            if !ssh.has_key? ssh_key
+                ssh.add_key(ssh_file)
+            end
+        end
+
+        def name
+            @config.name
+        end
+
+        # The build directory
+        def build_directory
+            "#{workdir}/bld/#{local_path}"
+        end
+
+        def local_path
+            @local_path = @config.local_path || @config.remote_path
+        end
+
+        def build( install )
+            $log.info("Compiling")
+            rc = nil
+            while_logging_to( name, "50_build" ) do
+                rc =
+                    if install
+                        build_system.make( "install"  )
+                    else
+                        build_system.make
+                    end
+
+                if rc != 0
+                    raise BuildError, "make returned error code #{rc}"
+                end
+                $log.info( "successfully built" )
+            end
+        end
+
+        # The build system
+        def build_system
+            if not @build_system
+                if not @config.build_system
+                    klass = BuildTool::BuildSystem::Registry.guess( source_directory )
+                    if !klass
+                        raise ModuleError, "Failed to guess the build system for #{name}"
+                    end
+                else
+                    klass = BuildTool::BuildSystem::get(@config.build_system.name)
+                end
+                @build_system = klass.new( self )
+                @build_system.configuration = @config.build_system
+            end
+            @build_system
+        end
+
+
+        def remove_build_directory
+            $log.info("removing #{build_directory}")
+            build_system.remove_build_directory
+        end
+
+
+        # Configure the module
+        def reconfigure( clean = false )
+            $log.info("Reconfiguring")
+            while_logging_to( name, "30_configure" ) do
+                if !$noop and !vcs.checkedout?
+                    raise ConfigureError, "Module is not checked out."
+                end
+                rc = build_system.reconfigure( clean )
+                if rc != 0
+                    raise ConfigureError, "configure returned error code #{rc}"
+                end
+            end
+        end
+
+        # Configure the module
+        def configure
+            $log.info("configuring")
+            while_logging_to( name, "30_configure" ) do
+                if !$noop and !vcs.checkedout?
+                    raise ConfigureError, "Module is not checked out."
+                end
+                rc = build_system.configure
+                if rc != 0
+                    raise ConfigureError, "configure returned error code #{rc}"
+                end
+            end
+        end
+
+        # Is the module already configured?
+        def configured?
+            if !vcs.checkedout?
+                return false
+            end
+            build_system.configured?
+        end
+
+        def checkedout?
+            vcs.checkedout?
+        end
+
+        def env
+            @config.env
+        end
+
+        def fetch
+            $log.info("Fetching from #{remote_path}")
+            while_logging_to( name, "20_fetch" ) do
+                vcs.fetch
+            end
+        end
+
+        def init
+            $log.info("Initializing #{local_path} from #{remote_path}")
+            while_logging_to( name, "10_initialize" ) do
+                vcs.init
+            end
+        end
+
+        def ssh_key
+            return @config.ssh_key
+        end
+
+        def ssh_file
+            return @config.ssh_file
+        end
+
+        # The root directory for the +/bld+, +/src+ and +/log+ directories
+        def workdir
+            Application::instance.workdir
+        end
+
+        def rebase
+            $log.info("rebasing")
+            while_logging_to( name, "40_rebase" ) do
+                vcs.rebase
+            end
+        end
+
+        # The absolute remote path
+        def remote_path
+            "#{repository}/#{@config.remote_path}"
+        end
+
+        # The repository url
+        def repository
+            @config.repository
+        end
+
+        def prefix
+            @config.prefix
+        end
+
+        # The absolute source directory.
+        def source_directory
+            "#{workdir}/src/#{local_path}"
+        end
+
+        # reimplement
+        def to_yaml_type
+            "!michael-jansen.biz,2009-01-01/Module"
+        end
+
+        # #########
+        # protected
+        # #########
+
+        def vcs
+            if ! @vcs
+                @vcs = VCS::get(@config.vcs.name).new( remote_path, source_directory )
+                @vcs.configuration = @config.vcs
+            end
+            @vcs
+        end
+
+    end
+
+end

data/lib/kde-build/module_configuration.rb

@@ -0,0 +1,107 @@
+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
+                    throw :todo
+                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
+                    throw :todo
+                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

@@ -0,0 +1,85 @@
+# 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/subprocess.rb

@@ -0,0 +1,82 @@
+module MJ; module Tools
+
+    module SubProcess
+
+        module ClassMethods
+
+            # Executes command
+            #
+            # Executes the given command and yields each line of output.
+            # Returns +$?+ .
+            def execute( command, wd = nil, env = nil )
+                cwd ||= Dir.getwd
+                $log.cmd( "(#{wd}) > #{command} 2>&1" )
+                if !$noop
+                    adjust_environment( wd, env ) {
+                        IO.popen( "#{command} 2>&1" ) {
+                            |f|
+                            begin
+                                while
+                                    line = f.readline
+                                    $log.cmdout( line.chomp )
+                                    yield line if block_given?
+                                end
+                            rescue EOFError:
+                                # Expected. Do nothing
+                            end
+                        }
+                        $log.cmdout( "= #{$?}" )
+                        return $?
+                    }
+                else
+                    $log.cmdout( "= 0 # noop" )
+                    return 0
+                end
+
+            end
+
+        #########
+        protected
+        #########
+
+            # Helper method to adjust LANG to "C"
+            def adjust_environment( wd=nil, env=nil, lang="C" )
+                if wd
+                    cwd = Dir.getwd
+                    Dir.chdir(wd)
+                end
+                # Set the environment the user wants
+                oldenv = Hash.new
+                if env
+                    env.each do |var, value|
+                        oldenv[var] = ENV[var]
+                        ENV[var] = value
+                    end
+                end
+                # Save old LANG setting and switch to 'C'
+                oldlang = ENV['LANG']
+                ENV['LANG'] = lang
+                yield
+                # Reset the old LANG setting
+                ENV['LANG'] = oldlang
+                # Reset our changes to ENV
+                oldenv.each do |var, value|
+                    ENV[var] = value
+                end
+                # Reset the current working directory
+                if wd
+                    Dir.chdir(cwd)
+                end
+            end
+        end
+
+        def self.included( klass )
+            klass.extend( ClassMethods )
+        end
+
+
+    end
+
+
+end; end
+