teapot 1.0.0.pre.rc9 → 1.0.0.pre.rc10

data/lib/teapot/environment/evaluator.rb

@@ -1,51 +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.
-
-module Teapot
-	class Environment
-		class Evaluator
-			def initialize(environment)
-				@environment = environment
-			end
-			
-			def method_missing(name)
-				object_value(@environment[name])
-			end
-			
-			# Compute the literal object value for a given key:
-			def object_value(value)
-				case value
-				when Array
-					value.collect{|item| object_value(item)}.flatten
-				when Symbol
-					object_value(@environment[value])
-				when Proc
-					object_value(instance_exec(&value))
-				when Default
-					object_value(value.value)
-				when Replace
-					object_value(value.value)
-				else
-					value
-				end
-			end
-		end
-	end
-end

data/lib/teapot/environment/flatten.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 'digest/md5'
-
-module Teapot
-	class Environment
-		def to_h
-			@values
-		end
-		
-		def to_hash
-			hash = {}
-			
-			# Flatten this chain of environments:
-			flatten_to_hash(hash)
-			
-			# Evaluate all items to their respective object value:
-			evaluator = Evaluator.new(hash)
-			
-			# Evaluate all the individual environment values so that they are flat:
-			Hash[hash.map{|key, value| [key, evaluator.object_value(value)]}]
-		end
-		
-		def flatten
-			self.class.new(nil, self.to_hash)
-		end
-		
-		def defined
-			@values.select{|name,value| Define === value}
-		end
-		
-		def inspect(output = $stdout, indent = "")
-			@values.each do |(key, value)|
-				output.puts "#{indent}#{key}: #{value}"
-			end
-			
-			@parent.inspect(output, indent + "\t") if @parent
-		end
-		
-		# This should be stable within environments that produce the same results.
-		def checksum
-			digester = Digest::MD5.new
-			
-			checksum_recursively(digester)
-			
-			return digester.hexdigest
-		end
-		
-		protected
-		
-		def checksum_recursively(digester)
-			@values.each do |(key, value)|
-				digester.update(key.to_s)
-				digester.update(value.to_s)
-			end
-			
-			@parent.checksum_recursively(digester) if @parent
-		end
-		
-		# We fold in the ancestors one at a time from oldest to youngest.
-		def flatten_to_hash(hash)
-			if @parent
-				@parent.flatten_to_hash(hash)
-			end
-
-			@values.each do |key, value|
-				previous = hash[key]
-
-				if Replace === value
-					# Replace the parent value
-					hash[key] = value
-				elsif Array === previous
-					# Merge with the parent value
-					hash[key] = previous + Array(value)
-				elsif Default === value
-					# Update the parent value if not defined.
-					hash[key] = previous || value
-				else
-					hash[key] = value
-				end
-			end
-		end
-	end
-end

data/lib/teapot/environment/system.rb

@@ -1,56 +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 'rainbow'
-require 'rainbow/ext/string'
-
-module Teapot
-	class Environment
-		module System
-			def self.shell_escape(value)
-				case value
-				when Array
-					value.flatten.collect{|argument| shell_escape(argument)}.join(' ')
-				else
-					# Ensure that any whitespace has been escaped:
-					value.to_s.gsub(/ /, '\ ')
-				end
-			end
-			
-			def self.convert_to_shell(environment)
-				Hash[environment.values.map{|key, value| [
-					key.to_s.upcase,
-					shell_escape(value)
-				]}]
-			end
-			
-			def self.dump(environment, io = STDOUT)
-				environment.values.each do |key, value|
-					io.puts "#{key}:".rjust(20).color(:magenta) + " #{value.inspect}"
-				end
-			end
-		end
-		
-		# Construct an environment from a given system environment:
-		def self.system_environment(env = ENV)
-			self.new(Hash[env.map{|key, value| [key.downcase.to_sym, value]}])
-		end
-	end
-end

data/lib/teapot/rule.rb

@@ -1,188 +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.
-
-module Teapot
-	# A rule is a function with a specific set of input and output parameters, which can match against a given set of specific inputs and outputs. For example, there might be several rules for compiling, but the specific rules depend on the language being compiled.
-	class Rule
-		class Parameter
-			def initialize(direction, name, options = {}, &block)
-				@direction = direction
-				@name = name
-				
-				@options = options
-				
-				@dynamic = block_given? ? Proc.new(&block) : nil
-			end
-			
-			attr :direction
-			attr :name
-			
-			attr :options
-			
-			def dynamic?
-				@dynamic != nil
-			end
-			
-			def implicit?
-				dynamic? and @options[:implicit]
-			end
-			
-			# Optional parameters are those that are either defined as optional or implicit.
-			def optional?
-				@options[:optional] || implicit?
-			end
-			
-			def applicable? arguments
-				value = arguments.fetch(@name) do
-					# Value couldn't be found, if it wasn't optional, this parameter didn't apply:
-					return optional?
-				end
-				
-				# If a pattern is provided, we must match it.
-				if pattern = @options[:pattern]
-					return Array(value).all? {|item| pattern.match(item)}
-				end
-				
-				return true
-			end
-			
-			def compute(arguments, scope)
-				if implicit?
-					# Can be replaced if supplied:
-					arguments[@name] || scope.instance_exec(arguments, &@dynamic)
-				elsif dynamic?
-					# Argument is optional:
-					scope.instance_exec(arguments[@name], arguments, &@dynamic)
-				else
-					arguments[@name]
-				end
-			end
-			
-			def inspect
-				"#{direction}:#{@name} (#{options.inspect})"
-			end
-		end
-		
-		def initialize(process_name, type)
-			@name = process_name + "." + type
-			@full_name = @name.gsub(/[^\w]/, '_')
-			
-			@process_name = process_name.gsub('-', '_').to_sym
-			@type = type
-			
-			@apply = nil
-			
-			@parameters = []
-		end
-		
-		# compile.cpp
-		attr :name
-		
-		# compile
-		attr :process_name
-		
-		# compile_cpp
-		attr :full_name
-		
-		attr :primary_output
-		
-		def input(name, options = {}, &block)
-			@parameters << Parameter.new(:input, name, options, &block)
-		end
-		
-		def parameter(name, options = {}, &block)
-			@parameters << Parameter.new(:argument, name, options, &block)
-		end
-		
-		def output(name, options = {}, &block)
-			@parameters << Parameter.new(:output, name, options, &block)
-			
-			@primary_output ||= @parameters.last
-		end
-		
-		# Check if this rule can process these parameters
-		def applicable?(arguments)
-			@parameters.each do |parameter|
-				next if parameter.implicit?
-				
-				return false unless parameter.applicable?(arguments)
-			end
-			
-			return true
-		end
-		
-		# The scope is the context in which the dynamic rule computation is done, usually an instance of Task.
-		def normalize(arguments, scope)
-			Hash[
-				@parameters.collect do |parameter|
-					[parameter.name, parameter.compute(arguments, scope)]
-				end
-			]
-		end
-		
-		def files(arguments)
-			input_files = []
-			output_files = []
-			
-			@parameters.each do |parameter|
-				# This could probably be improved a bit, we are assuming all parameters are file based:
-				value = arguments[parameter.name]
-				
-				next unless value
-				
-				case parameter.direction
-				when :input
-					input_files << value
-				when :output
-					output_files << value
-				end
-			end
-			
-			return Build::Files::Composite.new(input_files), Build::Files::Composite.new(output_files)
-		end
-		
-		def apply(&block)
-			@apply = Proc.new(&block)
-		end
-		
-		def apply!(scope, arguments)
-			scope.instance_exec(arguments, &@apply) if @apply
-		end
-		
-		def result(arguments)
-			if @primary_output
-				arguments[@primary_output.name]
-			end
-		end
-		
-		def to_s
-			"<#{self.class.name} #{@name.dump}>"
-		end
-	end
-	
-	class NoApplicableRule < StandardError
-		def initialize(name, arguments)
-			super "No applicable rule with name #{name}.* for parameters: #{arguments.inspect}"
-			
-			@name = name
-			@arguments = arguments
-		end
-	end
-end

data/lib/teapot/rulebook.rb

@@ -1,91 +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/rule'
-
-module Teapot
-	class Rulebook
-		def initialize
-			@rules = {}
-			@processes = {}
-		end
-		
-		attr :rules
-		
-		def << rule
-			@rules[rule.name] = rule
-		
-			# A cache for fast process/file-type lookup:
-			processes = @processes[rule.process_name] ||= []
-			processes << rule
-		end
-
-		def [] name
-			@rules[name]
-		end
-		
-		def with(superclass, state = {})
-			task_class = Class.new(superclass)
-			
-			# Define methods for all processes, e.g. task_class#compile
-			@processes.each do |key, rules|
-				# Define general rules, which use rule applicability for disambiguation:
-				task_class.send(:define_method, key) do |arguments, &block|
-					rule = rules.find{|rule| rule.applicable? arguments }
-					
-					if rule
-						update(rule, arguments, &block)
-					else
-						raise NoApplicableRule.new(key, arguments)
-					end
-				end
-			end
-			
-			# Define methods for all rules, e.g. task_class#compile_cpp
-			@rules.each do |key, rule|
-				task_class.send(:define_method, rule.full_name) do |arguments, &block|
-					update(rule, arguments, &block)
-				end
-			end
-			
-			state.each do |key, value|
-				task_class.send(:define_method, key) do
-					value
-				end
-			end
-			
-			return task_class
-		end
-		
-		def self.for(environment)
-			rulebook = self.new
-			
-			environment.defined.each do |name, define|
-				object = define.klass.new(*name.split('.', 2))
-				
-				object.instance_eval(&define.block)
-				
-				rulebook << object
-			end
-			
-			return rulebook
-		end
-	end
-end