teapot 0.9.10 → 1.0.0.pre.rc1

data/lib/teapot/build/targets/library.rb

@@ -1,117 +0,0 @@
-# Copyright, 2012, by Samuel G. D. Williams. <http://www.codeotaku.com>
-# 
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require 'teapot/build/target'
-require 'teapot/build/targets/directory'
-require 'teapot/build/targets/files'
-require 'teapot/build/targets/compiler'
-
-require 'teapot/build/graph'
-require 'teapot/extractors/linker_extractor'
-
-require 'fileutils'
-
-module Teapot
-	module Build
-		module Targets
-			class Library < Build::Target
-				include Compiler
-				include Installation
-
-				def initialize(parent, name, options = {})
-					super parent
-			
-					@name = name
-					@options = options
-				end
-				
-				attr :options
-				
-				def subdirectory
-					options[:subdirectory] || "lib"
-				end
-				
-				def dependent_libraries(environment)
-					Extractors::LinkerExtractor.libraries(environment[:ldflags])
-				end
-				
-				def link(environment, objects)
-					library_file = link_prefix!(environment) + "lib#{@name}.a"
-				
-					graph = Build::dependency_graph(environment)
-					
-					if graph.regenerate?(library_file, objects + dependent_libraries(environment))
-						Linker.link_static(environment, library_file, objects)
-					end
-					
-					return library_file
-				end
-			
-				def compile_and_link(environment)
-					file_list = self.source_files(environment)
-				
-					pool = Commands::Pool.new
-				
-					objects = file_list.collect do |source_file|
-						relative_path = source_file.relative_path_from(file_list.root)
-					
-						compile(environment, file_list.root, relative_path, pool)
-					end
-				
-					pool.wait
-				
-					return Array link(environment, objects)
-				end
-			
-				def install_file_list(file_list, prefix)
-					file_list.each do |path|
-						relative_path = path.relative_path_from(file_list.root)
-						destination_path = prefix + file_list.prefix + relative_path
-					
-						destination_path.dirname.mkpath
-						FileUtils.cp(path, destination_path, :preserve => true)
-					end
-				end
-			
-				def build(environment)
-					prefix = install_prefix!(environment)
-					
-					compile_and_link(environment).each do |path|
-						destination_path = prefix + subdirectory + path.basename
-					
-						destination_path.dirname.mkpath
-					
-						FileUtils.cp(path, destination_path, :preserve => true)
-					end
-					
-					if self.respond_to? :headers
-						install_file_list(self.headers(environment), prefix + "include")
-					end
-				end
-			end
-			
-			class Directory
-				def compile_library(*args, &block)
-					self << Library.target(self, *args, &block)
-				end
-			end
-		end
-	end
-end

data/lib/teapot/commands.rb

@@ -1,139 +0,0 @@
-# Copyright, 2012, by Samuel G. D. Williams. <http://www.codeotaku.com>
-# 
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require 'set'
-require 'rainbow'
-require 'shellwords'
-
-require 'system'
-require 'rexec/task'
-
-module Teapot
-	module Commands
-		module Helpers
-			def run_executable(path, environment)
-				environment = environment.flatten
-		
-				executable = environment[:install_prefix] + path
-		
-				Commands.run(executable)
-			end
-		end
-		
-		class CommandError < StandardError
-		end
-		
-		def self.split(arg)
-			Shellwords.split(arg || "")
-		end
-		
-		def self.run(*args, &block)
-			options = Hash === args.last ? args.pop : {}
-			options[:passthrough] ||= :all
-			
-			args = args.flatten.compact.collect &:to_s
-			
-			puts args.join(' ').color(:blue) + " in #{options[:chdir] || Dir.getwd}"
-			
-			task = RExec::Task.open(args, options, &block)
-			
-			if task.wait == 0
-				true
-			else
-				raise CommandError.new("Non-zero exit status: #{args.join(' ')}!")
-			end
-		end
-		
-		def self.run!(*args, &block)
-			run(*args, &block)
-		rescue CommandError
-			false
-		end
-		
-		def wait
-			# No parallel execution supported by default.
-		end
-		
-		def self.make(*args)
-			run("make", args, "-j", System::CPU.count)
-		end
-		
-		def self.make_install
-			make("install")
-		end
-		
-		class Pool
-			def self.concurrent_process_count
-				System::CPU.count * 2
-			end
-			
-			def initialize(options = {})
-				@commands = []
-				
-				@limit = options[:limit] || Pool.concurrent_process_count
-				
-				@running = Set.new
-			end
-			
-			def run(*args)
-				args = args.flatten.compact.collect &:to_s
-				
-				@commands << args
-				
-				schedule!
-			end
-			
-			def schedule!
-				while @running.size < @limit and @commands.size > 0
-					command = @commands.shift
-					
-					puts command.join(' ').color(:blue)
-					
-					pid = Process.fork do
-						exec(*command)
-						
-						exit!(0)
-					end
-					
-					@running << pid
-				end
-			end
-			
-			def wait
-				while @running.size > 0
-					pid = Process.wait(0)
-					@running.delete(pid)
-					
-					schedule!
-				end
-			end
-		end
-		
-		def self.pipeline(parallel = false)
-			if parallel == false
-				# Non-parallel execution pipeline
-				Commands
-			else
-				# Pool based parallel execution pipeline
-				Pool.new(parallel == true ? {} : parallel)
-			end
-		end
-	end
-end

data/lib/teapot/controller/run.rb

@@ -1,43 +0,0 @@
-# Copyright, 2012, by Samuel G. D. Williams. <http://www.codeotaku.com>
-# 
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require 'teapot/controller'
-
-module Teapot
-	class Controller
-		def run(dependency_names = [])
-			configuration = context.configuration
-			
-			dependency_names += configuration[:run] || []
-			
-			log "Running dependencies: #{dependency_names}"
-			
-			chain, ordered = build(dependency_names)
-			
-			ordered.each do |(target, dependency)|
-				if target.respond_to?(:run!) and !@options[:dry]
-					log "Running #{target.name} for dependency #{dependency}...".color(:cyan)
-					
-					target.run!(configuration)
-				end
-			end
-		end
-	end
-end

data/lib/teapot/graph.rb

@@ -1,136 +0,0 @@
-# Copyright, 2012, by Samuel G. D. Williams. <http://www.codeotaku.com>
-# 
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require 'set'
-require 'pathname'
-
-module Teapot
-	class Graph
-		def initialize
-			@nodes = {}
-			
-			@extractors = []
-		end
-
-		attr :root
-		attr :nodes
-		attr :extractors
-
-		def << node
-			@nodes[node.path] = node
-		end
-
-		def regenerate?(output_path, input_paths)
-			return true unless output_path.exist?
-
-			output_modified_time = output_path.mtime
-
-			Array(input_paths).each do |path|
-				node = fetch(path)
-
-				return true if node.changed_since?(output_modified_time)
-			end
-
-			return false
-		end
-
-		def extract(source_path)
-			dependencies = Set.new
-
-			@extractors.each do |extractor|
-				extractor.call(source_path) do |path|
-					dependencies << path
-				end
-			end
-
-			nodes = dependencies.map{|path| fetch(path)}
-		end
-
-		def fetch(path)
-			@nodes.fetch(path) do
-				node = @nodes[path] = Node.new(self, path)
-				node.extract_dependencies!
-
-				node
-			end
-		end
-
-		class Node
-			def initialize(graph, path)
-				@graph = graph
-
-				@path = Pathname(path)
-
-				@dependencies = []
-
-				@changed = nil
-			end
-
-			attr :path
-			attr :dependencies
-
-			def changed_since?(modified_time)
-				return true unless @path.exist?
-
-				if @changed == nil
-					# If the file was modified in the future relative to old modified_time:
-					if @path.mtime > modified_time
-						puts "Changed: #{path.to_s.inspect}"
-						return @changed = true
-					else
-						@changed = false
-					end
-
-					# If any of the file's dependencies have changed relative to the old modified_time:
-					@dependencies.each do |dependency|
-						if dependency.changed_since?(modified_time)
-							return @changed = true
-						end
-					end
-				end
-
-				return @changed
-			end
-
-			def extract_dependencies!
-				@dependencies = @graph.extract(path)
-			end
-		end
-
-		class Extractor
-			def initialize(patterns = [])
-				@patterns = Array(patterns)
-			end
-
-			def extract(path)
-			end
-
-			def call(path, &block)
-				return unless path.exist?
-				
-				basename = path.basename.to_s
-
-				if @patterns.find{|pattern| pattern.match(basename)}
-					extract(path, &block)
-				end
-			end
-		end
-	end
-end

data/test/test_dependency.rb

@@ -1,112 +0,0 @@
-# Copyright, 2012, by Samuel G. D. Williams. <http://www.codeotaku.com>
-# 
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require "minitest/autorun"
-
-require 'teapot/dependency'
-
-class TestDependency < MiniTest::Test
-	class BasicDependency
-		include Teapot::Dependency
-		
-		def initialize(name = nil)
-			@name = name
-		end
-		
-		attr :name
-	end
-	
-	def test_chains
-		a = BasicDependency.new
-		
-		a.provides 'apple' do
-			fruit ['apple']
-		end
-		
-		b = BasicDependency.new
-		
-		b.provides 'orange' do
-			fruit ['orange']
-		end
-		
-		c = BasicDependency.new
-		
-		c.provides 'fruit-juice' do
-			juice ['ice', 'cold']
-		end
-		
-		c.depends 'apple'
-		c.depends 'orange'
-		
-		chain = Teapot::Dependency::chain([], ['fruit-juice'], [a, b, c])
-		assert_equal [a, b, c], chain.ordered.collect(&:first)
-		
-		d = BasicDependency.new
-		
-		d.provides 'pie' do
-		end
-		
-		d.depends 'apple'
-		
-		chain = Teapot::Dependency::chain([], ['pie'], [a, b, c, d])
-		assert_equal [], chain.unresolved
-		assert_equal [a, d], chain.ordered.collect(&:first)
-	end
-	
-	def test_conflicts
-		apple = BasicDependency.new('apple')
-		apple.provides 'apple'
-		apple.provides 'fruit'
-		
-		bananna = BasicDependency.new('bananna')
-		bananna.provides 'fruit'
-		
-		salad = BasicDependency.new('salad')
-		salad.depends 'fruit'
-		salad.provides 'salad'
-		
-		chain = Teapot::Dependency::Chain.new([], ['salad'], [apple, bananna, salad])
-		assert_equal ["fruit", salad], chain.unresolved.first
-		assert_equal({"fruit" => [apple, bananna]}, chain.conflicts)
-		
-		chain = Teapot::Dependency::Chain.new(['apple'], ['salad'], [apple, bananna, salad])
-		assert_equal([], chain.unresolved)
-		assert_equal({}, chain.conflicts)
-	end
-	
-	def test_aliases
-		apple = BasicDependency.new('apple')
-		apple.provides 'apple'
-		apple.provides :fruit => 'apple'
-		
-		bananna = BasicDependency.new('bananna')
-		bananna.provides 'bananna'
-		bananna.provides :fruit => 'bananna'
-		
-		salad = BasicDependency.new('salad')
-		salad.depends :fruit
-		salad.provides 'salad'
-		
-		chain = Teapot::Dependency::chain(['apple'], ['salad'], [apple, bananna, salad])
-		assert_equal([], chain.unresolved)
-		assert_equal({}, chain.conflicts)
-		assert_equal([[apple, "apple"], [salad, "salad"]], chain.ordered)
-	end
-end

data/test/test_environment.rb

@@ -1,102 +0,0 @@
-# Copyright, 2012, by Samuel G. D. Williams. <http://www.codeotaku.com>
-# 
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to deal
-# in the Software without restriction, including without limitation the rights
-# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-# copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-# THE SOFTWARE.
-
-require "minitest/autorun"
-
-require 'teapot/environment'
-
-class TestEnvironment < MiniTest::Test
-	def test_environment_chaining
-		a = Teapot::Environment.new
-		a[:cflags] = ["-std=c++11"]
-		
-		b = Teapot::Environment.new(a, {})
-		b[:cflags] = ["-stdlib=libc++"]
-		b[:rcflags] = lambda {cflags.reverse}
-		
-		expected = {:cflags => ["-std=c++11", "-stdlib=libc++"], :rcflags => ["-stdlib=libc++", "-std=c++11"]}
-		
-		assert_equal expected, b.flatten.to_hash
-	end
-	
-	def test_environment_lambda
-		a = Teapot::Environment.new do
-			sdk "bob-2.6"
-			cflags [->{"-sdk=#{sdk}"}]
-		end
-		
-		b = Teapot::Environment.new(a) do
-			sdk "bob-2.8"
-		end
-		
-		c = Teapot::Environment.new(b) do
-			cflags ["-pipe"]
-		end
-		
-		expected = {'SDK' => "bob-2.8", 'CFLAGS' => "-sdk=bob-2.8"}
-		
-		assert_equal [:cflags, :sdk], b.flatten.to_hash.keys.sort
-		assert_equal expected, Teapot::Environment::System::convert_to_shell(b.flatten)
-		
-		assert_equal %W{-sdk=bob-2.8 -pipe}, c.flatten[:cflags]
-	end
-	
-	def test_environment_nested_lambda
-		a = Teapot::Environment.new do
-			sdk "bob-2.6"
-			cflags [->{"-sdk=#{sdk}"}]
-		end
-		
-		b = Teapot::Environment.new(a) do
-			sdk "bob-2.8"
-		end
-	end
-	
-	def test_combine
-		a = Teapot::Environment.new(nil, {:name => 'a'})
-		b = Teapot::Environment.new(a, {:name => 'b'})
-		c = Teapot::Environment.new(nil, {:name => 'c'})
-		d = Teapot::Environment.new(c, {:name => 'd'})
-
-		top = Teapot::Environment.combine(b, d)
-		
-		assert_equal d.values, top.values
-		assert_equal c.values, top.parent.values
-		assert_equal b.values, top.parent.parent.values
-		assert_equal a.values, top.parent.parent.parent.values
-	end
-	
-	def test_combine_defaults
-		local = Teapot::Environment.new do
-			architectures ["-m64"]
-		end
-		
-		platform = Teapot::Environment.new do
-			default architectures ["-arch", "i386"]
-		end
-		
-		combined = Teapot::Environment.combine(
-			platform,
-			local
-		)
-		
-		assert_equal ["-m64"], combined[:architectures]
-	end
-end