unite 1.0.1

data/.gitignore

@@ -0,0 +1,3 @@
+.rvmrc
+.DS_Store
+pkg

data/.rspec

@@ -0,0 +1,4 @@
+--colour
+--format d
+--profile
+--backtrace

data/Gemfile

@@ -0,0 +1,18 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in unity.gemspec
+gemspec
+
+group :test do
+  gem 'SystemTimer',  :platform => :mri_18
+  gem 'ruby-debug',   :platform => :mri_18
+  gem 'linecache19',       '>= 0.5.13', :platform => :mri_19
+  gem 'ruby-debug-base19', '>= 0.11.26', :platform => :mri_19
+  gem 'ruby-debug19', :platform => :mri_19, :require => 'ruby-debug'
+  gem 'mocha'
+  gem 'rspec'
+  gem 'shoulda-matchers', :git => 'git://github.com/thoughtbot/shoulda-matchers.git', :require => 'false'
+  gem 'fabrication'
+  gem 'guard-rspec'
+  gem 'guard-bundler'
+end

data/Gemfile.lock

@@ -0,0 +1,89 @@
+GIT
+  remote: git://github.com/thoughtbot/shoulda-matchers.git
+  revision: 4fdb82707c252e3bdf6079a8597f2ace350b5d2d
+  specs:
+    shoulda-matchers (1.1.0)
+      activesupport (>= 3.0.0)
+
+PATH
+  remote: .
+  specs:
+    unite (1.0.0)
+      activemodel (>= 3.0.0)
+      activesupport (>= 3.0.0)
+
+GEM
+  remote: http://rubygems.org/
+  specs:
+    SystemTimer (1.2.3)
+    activemodel (3.1.3)
+      activesupport (= 3.1.3)
+      builder (~> 3.0.0)
+      i18n (~> 0.6)
+    activesupport (3.1.3)
+      multi_json (~> 1.0)
+    archive-tar-minitar (0.5.2)
+    builder (3.0.0)
+    columnize (0.3.6)
+    diff-lcs (1.1.3)
+    fabrication (1.2.0)
+    ffi (1.0.11)
+    guard (0.10.0)
+      ffi (>= 0.5.0)
+      thor (~> 0.14.6)
+    guard-bundler (0.1.3)
+      bundler (>= 1.0.0)
+      guard (>= 0.2.2)
+    guard-rspec (0.6.0)
+      guard (>= 0.10.0)
+    i18n (0.6.0)
+    linecache (0.46)
+      rbx-require-relative (> 0.0.4)
+    linecache19 (0.5.13)
+      ruby_core_source (>= 0.1.4)
+    metaclass (0.0.1)
+    mocha (0.10.1)
+      metaclass (~> 0.0.1)
+    multi_json (1.3.4)
+    rbx-require-relative (0.0.5)
+    rspec (2.8.0)
+      rspec-core (~> 2.8.0)
+      rspec-expectations (~> 2.8.0)
+      rspec-mocks (~> 2.8.0)
+    rspec-core (2.8.0)
+    rspec-expectations (2.8.0)
+      diff-lcs (~> 1.1.2)
+    rspec-mocks (2.8.0)
+    ruby-debug (0.10.4)
+      columnize (>= 0.1)
+      ruby-debug-base (~> 0.10.4.0)
+    ruby-debug-base (0.10.4)
+      linecache (>= 0.3)
+    ruby-debug-base19 (0.11.26)
+      columnize (>= 0.3.1)
+      linecache19 (>= 0.5.11)
+      ruby_core_source (>= 0.1.4)
+    ruby-debug19 (0.11.6)
+      columnize (>= 0.3.1)
+      linecache19 (>= 0.5.11)
+      ruby-debug-base19 (>= 0.11.19)
+    ruby_core_source (0.1.5)
+      archive-tar-minitar (>= 0.5.2)
+    thor (0.14.6)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  SystemTimer
+  fabrication
+  guard-bundler
+  guard-rspec
+  linecache19 (>= 0.5.13)
+  mocha
+  rspec
+  ruby-debug
+  ruby-debug-base19 (>= 0.11.26)
+  ruby-debug19
+  shoulda-matchers!
+  unite!

data/Guardfile

@@ -0,0 +1,15 @@
+# A sample Guardfile
+# More info at https://github.com/guard/guard#readme
+
+guard 'bundler' do
+  watch('Gemfile')
+  # Uncomment next line if Gemfile contain `gemspec' command
+  watch(/^.+\.gemspec/)
+end
+
+guard 'rspec', :cli => '--backtrace', :version => 2 do
+  watch(%r{^spec/.+_spec\.rb$})
+  watch(%r{^lib/(.+)\.rb$})     { |m| "spec/#{m[1]}_spec.rb" }
+  watch('spec/spec_helper.rb')  { "spec" }
+end
+

data/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2012 Scott Ellard
+
+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.

data/Rakefile

@@ -0,0 +1,3 @@
+#!/usr/bin/env rake
+require 'bundler'
+Bundler::GemHelper.install_tasks

data/lib/unity/arithmetic.rb

@@ -0,0 +1,64 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  module Arithmetic
+
+    extend ::ActiveSupport::Concern
+    include Conversion
+
+    included do
+
+    end
+
+    module ClassMethods
+
+    end
+
+    def + other
+      other = ensure_not_numeric other
+      self.compatible! other
+      other = other.convert_to(self) 
+      self.class.new(:value => (self.value + other.value), :numerator => self.numerator, :denominator => self.denominator)
+    end
+
+
+    def - other
+      other = ensure_not_numeric other
+      self.compatible! other
+      other = other.convert_to(self) 
+      self.class.new(:value => (self.value - other.value), :numerator => self.numerator, :denominator => self.denominator)
+    end
+
+    def / other
+      other = ensure_not_numeric other
+      other = other.convert_to(self) if self.compatible? other
+      self * other.inverse
+    end
+
+    def * other
+      other = ensure_not_numeric other
+      other = other.convert_to(self) if self.compatible? other
+      new_numerator = self.numerator + other.numerator
+      new_denominator = self.denominator + other.denominator
+      self.class.new(:value => (self.value * other.value), :numerator => new_numerator, :denominator => new_denominator).tap(&:reduce)
+    end
+    
+    def coerce(other)
+      case other
+      when Numeric
+        return convert_numeric(other), self
+      else
+        raise TypeError, "#{self.class} can't be coerced into #{other.class}"
+      end
+    end
+
+    private
+
+    def convert_numeric other
+      self.class.new :expression => other.to_s
+    end
+
+    def ensure_not_numeric other
+      other.is_a?(Numeric) ? convert_numeric(other) : other
+    end
+  end
+end

data/lib/unity/comparison.rb

@@ -0,0 +1,33 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  class IncompatibleError < RuntimeError
+  end
+  
+  module Comparison
+
+    extend ::ActiveSupport::Concern
+    include Dimension::Integer
+
+    included do
+
+    end
+
+    module ClassMethods
+
+    end
+
+    def compatible? other
+      self.dimension_int == other.dimension_int
+    end
+
+    def compatible! other
+      compatible?(other) ? true : raise(IncompatibleError)
+    end
+
+    def == other
+      self.compatible?(other) && self.convert_to(other).value == other.value
+    end
+  
+  end
+end
+

data/lib/unity/conversion.rb

@@ -0,0 +1,46 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  class IncompatibleError < RuntimeError
+  end
+
+  module Conversion
+
+    extend ::ActiveSupport::Concern
+    include Comparison
+    include Fraction
+    
+    included do
+
+    end
+
+    module ClassMethods
+
+    end
+
+    def convert_to other
+      other = other.clone.tap{|o| o.value = 1.0 }  #this is so that only the unit is used for the conversion 
+      new_value = self.converted_value(other)
+      return nil if new_value.nil?
+      self.class.new :value => new_value, :numerator => other.numerator, :denominator => other.denominator
+    end
+
+    protected 
+
+    def converted_value other 
+      return nil unless self.compatible?(other)
+      self.si_factor / other.si_factor
+    end
+
+    def si_factor
+      value * (get_si_factor(numerator) / get_si_factor(denominator))
+    end
+
+    def get_si_factor unit_array
+      expand_unit_array(unit_array).map do |element|
+          Lookup.find!(element).si_factor
+      end.inject(1.0) {|product, factor| product*factor}
+    end
+
+  end
+end
+

data/lib/unity/dimension/integer.rb

@@ -0,0 +1,34 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  module Dimension
+    module Integer
+      extend ::ActiveSupport::Concern
+
+      included do
+      end
+
+      module ClassMethods
+
+      end
+
+      def dimension_int
+        generate_dimension_integer
+      end
+
+      def property_name
+        property.nil? ? nil : property.name
+      end
+
+      def property
+        Lookup.find_property(dimension_int)
+      end
+
+      private
+
+      def generate_dimension_integer
+        LIST.length.times.inject(0){|sum, i| sum + (DIMVALS[i] * dimension_vector[i])}
+      end
+
+    end
+  end
+end

data/lib/unity/dimension/vector.rb

@@ -0,0 +1,43 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  module Dimension
+    module Vector
+      extend ::ActiveSupport::Concern
+      include Unity::Fraction
+
+      included do
+      end
+
+      module ClassMethods
+      
+      end  
+
+      def dimension_vector
+        generate_dimension_vector
+      end
+
+      private
+    
+      def generate_dimension_vector
+        subtract_vectors numerator_dimension_vector, denominator_dimension_vector
+      end
+
+      def numerator_dimension_vector
+        self.expanded_numerator.inject(Dimension.blank_dimension_vector){|v, unit| add_vectors(v, Lookup.find!(unit).dimension_vector) }
+      end
+
+      def denominator_dimension_vector
+        self.expanded_denominator.inject(Dimension.blank_dimension_vector){|v, unit| add_vectors(v, Lookup.find!(unit).dimension_vector) }
+      end
+
+      def add_vectors v1, v2
+        LIST.length.times.map{|i| v1[i] + v2[i]}
+      end
+
+      def subtract_vectors v1, v2
+        LIST.length.times.map{|i| v1[i] - v2[i]}
+      end
+      
+    end
+  end
+end

data/lib/unity/dimension.rb

@@ -0,0 +1,37 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  module Dimension
+    extend self
+    
+    #for a description of this algorithm refer to http://www.cs.utexas.edu/users/novak/units95.html
+    
+    # 0  length  meter
+    # 1  time  second
+    # 2  temperature   kelvin
+    # 3  mass  kilogram
+    # 4  current   ampere
+    # 5  substance   mole
+    # 6  luminosity  candela
+    # 7  money   pound
+    
+    LIST = [:length, :time, :temperature, :mass, :current, :substance, :luminosity, :money]
+    UNITS = ['meter', 'second', 'kelvin', 'kilogram', 'ampere', 'mole', 'candela', 'pound']
+    INDICIES = Hash[*LIST.each_with_index{|d,i| [d,i]}.flatten]
+  
+    DIMSIZES =  [20, 20, 20, 10, 10, 10, 10, 10]
+    DIMVALS  =  [1, 20, 400, 8000, 80000, 800000, 8000000, 80000000]
+    
+    def si_unit dimension
+      UNITS[INDICIES[dimension.to_sym]]
+    end
+  
+    def blank_dimension_vector
+      Array.new(LIST.length, 0)
+    end
+
+  end
+end
+
+require 'unity/dimension/integer'
+require 'unity/dimension/vector'
+

data/lib/unity/fraction.rb

@@ -0,0 +1,118 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  class InvalidFormat < RuntimeError 
+  end
+  
+  module Fraction
+    extend ::ActiveSupport::Concern
+
+    included do
+
+    end
+
+    module ClassMethods
+
+    end
+
+    def initialize *args
+      self.value ||= 0.0
+      self.numerator ||= []
+      self.denominator ||= []
+    end
+
+
+    def expression=string
+      unless string.blank?
+        num_denom = string.split('/')
+        raise(InvalidFormat, string) if num_denom.length > 2
+        self.numerator = num_denom[0].split('*').map(&:strip)
+        self.denominator = (num_denom[1].nil? ? [] : num_denom[1].split('*')).map(&:strip)
+        self.value = extract_value!(:numerator) / extract_value!(:denominator)
+        reduce
+      else
+        self.value = 0.0
+        self.numerator = []
+        self.denominator = []
+      end
+    end
+
+    def expression
+      numertor_string = ([value] + (numerator || [])).join('*')
+      denominator.empty? ? numertor_string : "#{numertor_string}/#{denominator.join('*')}"
+    end
+
+    def unit
+      numertor_string = (numerator.blank? && !denominator.blank?) ? '1.0' : (numerator || []).join('*')
+      denominator.blank? ? numertor_string : "#{numertor_string}/#{denominator.join('*')}"
+    end
+
+    def expanded_numerator
+      expand_unit_array numerator
+    end
+
+    def expanded_denominator
+      expand_unit_array denominator
+    end
+
+    def inverse
+      new_value = value == 0.0 ? 0.0 : 1.0 / value
+      self.class.new :value => new_value, :numerator => denominator, :denominator => numerator
+    end
+
+    def reduce
+      expand
+
+      self.denominator.delete_if do |unit|  
+        if nindex = self.numerator.index(unit)
+          self.numerator.delete_at(nindex)
+        end
+      end
+
+      self.numerator = reduce_unit_array(self.numerator)
+      self.denominator = reduce_unit_array(self.denominator)
+
+    end
+
+    private
+
+    def expand
+      self.numerator = expanded_numerator
+      self.denominator = expanded_denominator
+    end
+
+    def seperate! array
+      [].tap{|rejected| array.delete_if { |v| yield(v) && rejected << v }}
+    end
+
+    def extract_value! method
+      number_regex = /\A[-+]?\d*\.?\d+([eE][-+]?\d+)?\Z/
+      seperate!(self.send(method)){|x| number_regex =~ x }.map(&:to_f).
+        inject(1.0){|product, number| product*number }
+    end
+
+    def reduce_unit_array array
+      old_array = array.clone
+      [].tap do |new_array|
+        while !old_array.empty?
+          unit = old_array[0]
+          count = old_array.count(unit)
+          old_array.delete(unit)
+          count = (count == 1) ? '' : "^#{count}"
+          new_array.push("#{unit}#{count}")
+        end
+      end
+    end
+
+    def expand_unit_array array
+      array.collect  do |unit|
+        if /\A([^\^\s]+)(\^(\d+))?\Z/ =~ unit
+          unit = Regexp.last_match(1)
+          power = Regexp.last_match(3).blank? ? 1 : Regexp.last_match(3).to_i
+          Array.new(power, unit)
+        else
+          raise InvalidFormat, "Invalid format for Unit '#{unit}'"
+        end
+      end.flatten.compact
+    end
+  end
+end

data/lib/unity/lookup/definitions.rb

@@ -0,0 +1,50 @@
+# -*- encoding : utf-8 -*-
+
+module Unity
+  
+  Lookup.clear!
+
+  #SIMPLE UNITS
+
+  #TIME
+  Lookup.add SimpleUnit.new(:name => "s", :si_factor => 1, :dimension => :time)
+  Lookup.add SimpleUnit.new(:name => "h", :si_factor => 3600, :dimension => :time)
+
+  Lookup.add_property Property.new(:name => :time, :expression => 'h')
+
+  #LENGTH
+  Lookup.add SimpleUnit.new(:name => "m", :si_factor => 1, :dimension => :length)
+  Lookup.add SimpleUnit.new(:name => "km", :si_factor => 1000, :dimension => :length)
+
+  Lookup.add_property Property.new(:name => :distance, :expression => 'km')
+
+
+  #MASS
+  Lookup.add SimpleUnit.new(:name => "g", :si_factor => 1, :dimension => :mass)
+  Lookup.add SimpleUnit.new(:name => "kg", :si_factor => 1000, :dimension => :mass)
+  Lookup.add SimpleUnit.new(:name => "tonne", :si_factor => 1000000, :dimension => :mass)
+
+  Lookup.add_property Property.new(:name => :mass, :expression => 'tonne')
+
+
+  #DERIVED UNITS
+
+  #ENERGY
+  Lookup.add DerivedUnit.new(:name => "J", :expression => 'kg*m^2/s^2')
+  Lookup.add DerivedUnit.new(:name => "kWh", :expression => '3.6e6*J')
+
+  Lookup.add_property Property.new(:name => :energy, :expression => 'kWh')
+
+  #AREA
+
+  Lookup.add DerivedUnit.new(:name => "hectare", :expression => '10000*m^2')
+  Lookup.add DerivedUnit.new(:name => "acre", :expression => '4046.85642*m^2')
+
+  Lookup.add_property Property.new(:name => :area, :expression => 'hectare')
+
+end
+
+
+
+
+

data/lib/unity/lookup/derived_unit.rb

@@ -0,0 +1,24 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  class DerivedUnit
+
+    include ActiveModel::Validations
+    include Dimension::Vector
+    include Conversion
+
+    attr_accessor :name, :numerator, :denominator, :value
+
+    alias :to_s :name
+    validates_presence_of :name
+    validates_format_of :name, :with => /\A[^\s*\/\^]+\Z/, :message => "cannot contain *, / or ^"
+
+    def initialize(attributes = {})
+      attributes.each do |name, value|
+        send("#{name}=", value)
+      end
+      super
+    end
+
+
+  end
+end

data/lib/unity/lookup/property.rb

@@ -0,0 +1,21 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  class Property
+ 
+    include ActiveModel::Validations
+    include Dimension::Vector
+    include Conversion
+
+    attr_accessor :name, :numerator, :denominator, :value
+
+    validates_presence_of :name
+  
+     def initialize(attributes = {})
+      attributes.each do |name, value|
+        send("#{name}=", value)
+      end
+      super
+    end
+
+  end
+end

data/lib/unity/lookup/simple_unit.rb

@@ -0,0 +1,26 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  class SimpleUnit
+
+    include ActiveModel::Validations
+    include Dimension::Integer
+
+    attr_accessor :dimension, :name, :si_factor
+    alias :to_s :name
+
+    validates_inclusion_of :dimension, :in => Dimension::LIST
+    validates_presence_of :si_factor, :dimension, :name
+    validates_format_of :name, :with => /\A[^\s*\/\^]+\Z/, :message => "cannot contain *, / or ^"
+
+    def dimension_vector
+      @dimension_vector ||= Dimension::LIST.map{|d| d == dimension ? 1 : 0 }
+    end
+
+    def initialize(attributes = {})
+      attributes.each do |name, value|
+        send("#{name}=", value)
+      end
+    end
+
+  end
+end