build-tool 0.0.3 → 0.1.0

data/lib/build-tool/build-system/qt.rb

@@ -0,0 +1,113 @@
+module BuildTool; module BuildSystem
+
+
+    #
+    #
+    #
+    class Qt < Base
+
+        include MJ::Tools::SubProcess
+
+        class MakeError < BuildTool::Error; end
+        class QMakeError < BuildTool::Error; end
+
+        def intitialize( *args )
+            super( *args )
+        end
+
+        #
+        ### ATTRIBUTES
+        #
+
+        # Check if the module is configured
+        def configured?
+            Pathname.new( build_directory ).join( 'Makefile' ).exist?
+        end
+
+        def name
+            "qt"
+        end
+
+        #
+        ### METHODS
+        #
+
+        def[]( var )
+            if @options.has_key? var
+                return @options[var]
+            end
+
+            case var
+
+            when 'flags'
+                return @options[var]
+
+            else
+                # *TODO* raise correct exception
+                raise NotImplementedError
+            end
+        end
+
+        def[]=( var, val )
+            case var
+
+            when 'flags'
+                @options[var] = val
+
+            else
+                # *TODO* raise correct exception
+                raise NotImplementedError
+            end
+
+        end
+
+        # Execute a cmake command in the context of the build directory
+        def _configure( command, wd = build_directory )
+            rc = self.class.execute "#{source_directory}/configure #{command}", wd, env
+            if rc != 0
+                raise QMakeError, "configure failed with error #{rc}!"
+            end
+            rc
+        end
+
+        def configure
+            check_build_directory( true )
+            opt = ""
+            opt += " -prefix #{install_prefix.to_s} " if install_prefix
+            opt += @options['flags']
+            rc = _configure opt
+            rc
+        end
+
+        def do_make( target = nil )
+            rc = self.class.execute( "make #{target ? target : "" }", build_directory, self.module.environment.values )
+            if rc != 0
+                raise MakeError, "make #{target || "" } failed with error code #{rc}";
+            end
+            rc
+        end
+
+        def install( fast )
+            make( "install" )
+        end
+
+        def install_fast_supported?
+            true
+        end
+
+        def make( target = nil )
+            do_make( target )
+        end
+
+        # Configure the module
+        def reconfigure()
+            if File.exist?( "#{build_directory}/.qmake.cache" )
+                return false if self.class.execute( "rm -f #{build_directory}/.qmake.cache" ) != 0
+            end
+            configure
+        end
+
+    end # class Autoconf
+
+end; end # module BuildTool::BuildSystem
+

data/lib/build-tool/cfg/lexer.rb

@@ -0,0 +1,558 @@
+#--
+# DO NOT MODIFY!!!!
+# This file is automatically generated by rex 1.0.4
+# from lexical definition file "lib/build-tool/cfg/lexer.rex".
+#++
+
+require 'racc/parser'
+# vim:ft=ruby
+
+#
+### HEADER
+#
+require 'build-tool/cfg/lexer_base.rb'
+
+module BuildTool::Cfg
+class Lexer < Racc::Parser
+  require 'strscan'
+
+  class ScanError < StandardError ; end
+
+  attr_reader   :lineno
+  attr_reader   :filename
+  attr_accessor :state
+
+  def scan_setup(str)
+    @ss = StringScanner.new(str)
+    @lineno =  1
+    @state  = nil
+  end
+
+  def action(&block)
+    yield
+  end
+
+  def scan_str(str)
+    scan_setup(str)
+    do_parse
+  end
+
+  def load_file( filename )
+    @filename = filename
+    open(filename, "r") do |f|
+      scan_setup(f.read)
+    end
+  end
+
+  def scan_file( filename )
+    load_file(filename)
+    do_parse
+  end
+
+
+  def next_token
+    return if @ss.eos?
+
+    text = @ss.peek(1)
+    @lineno  +=  1  if text == "\n"
+    token = case @state
+    when nil
+      case
+      when (text = @ss.scan(/log-directory\b/))
+         action { [ :LOG_DIRECTORY, text ]; }
+
+      when (text = @ss.scan(/vcs\b/))
+         action { @states.push @state; @state = :VCS;          [:VCS,          text]; }
+
+      when (text = @ss.scan(/build-system\b/))
+         action { @states.push @state; @state = :BUILD_SYSTEM; [:BUILD_SYSTEM, text]; }
+
+      when (text = @ss.scan(/server\b/))
+         action { @states.push @state; @state = :SERVER;       [:SERVER,       text]; }
+
+      when (text = @ss.scan(/environment\b/))
+         action { @states.push @state; @state = :ENVIRONMENT;  [:ENVIRONMENT,  text]; }
+
+      when (text = @ss.scan(/module\b/))
+         action { @states.push @state; @state = :MODULE;       [:MODULE,       text]; }
+
+      when (text = @ss.scan(/repository\b/))
+         action { @states.push @state; @state = :REPOSITORY;   [:REPOSITORY,   text]; }
+
+      when (text = @ss.scan(/ssh-key\b/))
+         action { @states.push @state; @state = :SSH_KEY;      [:SSH_KEY,      text]; }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    when :BUILD_SYSTEM
+      case
+      when (text = @ss.scan(/option/))
+         action { [:OPTION, text]; }
+
+      when (text = @ss.scan(/inplace/))
+         action { [:INPLACE, text]; }
+
+      when (text = @ss.scan(/end\b/))
+         action { @state = @states.pop; [ :END, text ]; }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    when :ENVIRONMENT
+      case
+      when (text = @ss.scan(/var\b/))
+         action { [:VAR,         text] }
+
+      when (text = @ss.scan(/prepend\b/))
+         action { [:PREPEND,     text] }
+
+      when (text = @ss.scan(/append\b/))
+         action { [:APPEND,      text] }
+
+      when (text = @ss.scan(/set\b/))
+         action { [:SET,         text] }
+
+      when (text = @ss.scan(/</))
+         action { [:INHERITANCE, text] }
+
+      when (text = @ss.scan(/end\b/))
+         action { @state = @states.pop; [:END, text] }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    when :GIT
+      case
+      when (text = @ss.scan(/external\b/))
+         action { [:EXTERNAL, text]; }
+
+      when (text = @ss.scan(/track-branch\b/))
+         action { [:TRACK_BRANCH, text]; }
+
+      when (text = @ss.scan(/remote\b/))
+         action { @states.push @state; @state = :REMOTE; [:REMOTE, text]; }
+
+      when (text = @ss.scan(/end\b/))
+         action { @state = @states.pop; [ :END, text ]; }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    when :MODULE
+      case
+      when (text = @ss.scan(/build-prefix\b/))
+         action { [:BUILD_PREFIX,   text]; }
+
+      when (text = @ss.scan(/</))
+         action { [:INHERITANCE,    text]; }
+
+      when (text = @ss.scan(/install-prefix\b/))
+         action { [:INSTALL_PREFIX, text]; }
+
+      when (text = @ss.scan(/local-path\b/))
+         action { [:LOCAL_PATH,     text]; }
+
+      when (text = @ss.scan(/remote-path\b/))
+         action { [:REMOTE_PATH,    text]; }
+
+      when (text = @ss.scan(/TEMPLATE\b/))
+         action { [:TEMPLATE,       text]; }
+
+      when (text = @ss.scan(/build-system\b/))
+         action { @states.push @state; @state = :BUILD_SYSTEM; [:BUILD_SYSTEM, text]; }
+
+      when (text = @ss.scan(/environment\b/))
+         action { @states.push @state; @state = :ENVIRONMENT;  [:ENVIRONMENT,  text]; }
+
+      when (text = @ss.scan(/repository\b/))
+         action { @states.push @state; @state = :REPOSITORY;   [:REPOSITORY,   text]; }
+
+      when (text = @ss.scan(/use\b/))
+         action { @states.push @state; @state = :USE;          [:USE,          text]; }
+
+      when (text = @ss.scan(/vcs\b/))
+         action { @states.push @state; @state = :VCS;          [:VCS,          text]; }
+
+      when (text = @ss.scan(/end\b/))
+         action { @state = @states.pop; [:END, text]; }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    when :REMOTE
+      case
+      when (text = @ss.scan(/path\b/))
+         action { [:PATH, text]; }
+
+      when (text = @ss.scan(/server\b/))
+         action { @states.push @state; @state = :SERVER; [:SERVER, text]; }
+
+      when (text = @ss.scan(/use\b/))
+         action { @states.push @state; @state = :USE;    [:USE,    text]; }
+
+      when (text = @ss.scan(/end\b/))
+         action { @state = @states.pop; [ :END, text ]; }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    when :REPOSITORY
+      case
+      when (text = @ss.scan(/server\b/))
+         action { [:SERVER,  text]; }
+
+      when (text = @ss.scan(/path\b/))
+         action { [:PATH,    text]; }
+
+      when (text = @ss.scan(/user\b/))
+         action { [:USER,    text]; }
+
+      when (text = @ss.scan(/ssh-key/))
+         action { @states.push @state; @state = :SSH_KEY; [:SSH_KEY, text]; }
+
+      when (text = @ss.scan(/use\b/))
+         action { @states.push @state; @state = :USE;     [:USE,     text]; }
+
+      when (text = @ss.scan(/end/))
+         action { @state = @states.pop; [:END, text]; }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    when :SERVER
+      case
+      when (text = @ss.scan(/protocol\b/))
+         action { [:PROTOCOL, text]; }
+
+      when (text = @ss.scan(/server\b/))
+         action { [:SERVER,   text]; }
+
+      when (text = @ss.scan(/path\b/))
+         action { [:PATH,     text]; }
+
+      when (text = @ss.scan(/host\b/))
+         action { [:HOST,     text]; }
+
+      when (text = @ss.scan(/end\b/))
+         action { @state = @states.pop; [:END, text]; }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    when :SSH_KEY
+      case
+      when (text = @ss.scan(/file\b/))
+         action { [:FILE, text]; }
+
+      when (text = @ss.scan(/end\b/))
+         action { @state = @states.pop; [:END, text]; }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    when :USE
+      case
+      when (text = @ss.scan(/build-system\b/))
+         action { @state = @states.pop; [:BUILD_SYSTEM, text]; }
+
+      when (text = @ss.scan(/environment\b/))
+         action { @state = @states.pop; [:ENVIRONMENT,  text]; }
+
+      when (text = @ss.scan(/repository\b/))
+         action { @state = @states.pop; [:REPOSITORY,   text]; }
+
+      when (text = @ss.scan(/server\b/))
+         action { @state = @states.pop; [:SERVER,       text]; }
+
+      when (text = @ss.scan(/ssh-key\b/))
+         action { @state = @states.pop; [:SSH_KEY,      text]; }
+
+      when (text = @ss.scan(/vcs\b/))
+         action { @state = @states.pop; [:VCS,          text]; }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    when :VCS
+      case
+      when (text = @ss.scan(/git-svn\b/))
+         action { @state = :GIT; [:GIT_SVN, text]; }
+
+      when (text = @ss.scan(/git\b/))
+         action { @state = :GIT; [:GIT, text]; }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)"/))
+         action { [:STRING,  @ss[1]]; }
+
+      when (text = @ss.scan(/[a-zA-Z][A-Za-z_0-9-]*/))
+         action { [:TOKEN,   text];   }
+
+      when (text = @ss.scan(/\#[^\r\n]*/))
+         action { [:COMMENT, text];   }
+
+      when (text = @ss.scan(/[ \t]+/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/[\r\n]/))
+         action { [:IGNORE,  text];   }
+
+      when (text = @ss.scan(/"([^\"\r\n]*)$/))
+         action { [:GARBAGE, text];   }
+
+      when (text = @ss.scan(/./))
+         action { [:GARBAGE, text];   }
+
+      else
+        text = @ss.string[@ss.pos .. -1]
+        raise  ScanError, "can not match: '" + text + "'"
+      end  # if
+
+    else
+      raise  ScanError, "undefined state: '" + state.to_s + "'"
+    end  # case state
+    token
+  end  # def next_token
+
+    include LexerBase
+    def do_parse
+        @states = []
+        super
+    end
+end # class
+end # module
+
+#
+### FOOTER
+#
+