unitfy 1.0.0

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.rb

@@ -0,0 +1,102 @@
+# -*- encoding : utf-8 -*-
+require 'active_model'
+require 'unity/lookup/simple_unit'
+require 'unity/lookup/derived_unit'
+require 'unity/lookup/property'
+require 'securerandom'
+
+module Unity
+  class Lookup
+
+    class Invalid < RuntimeError
+    end
+
+    class Duplicate < RuntimeError
+    end
+
+    class Undefined < RuntimeError
+    end
+
+
+    class << self
+      def add object
+        raise Invalid, object.errors.inspect unless object.valid?
+        raise Duplicate, "The Unit #{object.name} already exists" unless @@unit_names[object.name.to_sym].nil?
+        key = store_object object
+        @@unit_names[object.name.to_sym] = key
+        @@unit_ints[object.dimension_int] ||= []
+        @@unit_ints[object.dimension_int] << key
+      end
+
+      def find! name
+        key = @@unit_names[name.to_sym].tap {|k| raise Undefined, "Unit #{name} is undefined" unless k }
+        get_object key
+      end
+
+      def compatible_units int_or_sym_or_string
+        int =
+          if int_or_sym_or_string.is_a? Integer
+            int_or_sym_or_string
+          else
+            tmp = find_property(int_or_sym_or_string)
+            tmp.nil? ? nil : tmp.dimension_int
+          end
+        (@@unit_ints[int] || []).map do |key|
+          get_object key
+        end
+      end
+
+      def find_property int_or_sym_or_string
+        key =
+          if int_or_sym_or_string.is_a? Integer
+            @@property_ints[int_or_sym_or_string]
+          else
+            @@property_names[int_or_sym_or_string.to_sym]
+          end.tap {|k| return nil unless k }
+          get_object key
+      end
+
+      def add_property object
+        raise Invalid, object.errors.inspect unless object.valid?
+        existing = @@property_ints[object.dimension_int]
+        raise Duplicate, "The property for dimension int #{object.dimension_int} is already defined as #{get_object(existing).name}" unless existing.nil?
+        key = store_object object
+        @@property_names[object.name.to_sym] = key 
+        @@property_ints[object.dimension_int]= key
+      end
+
+      def property_names
+        @@property_names.keys.map(&:to_sym)
+      end
+
+      def clear!
+        @@object_cache = {}
+        @@unit_names = Hash.new
+        @@unit_ints = Hash.new
+        @@property_ints = Hash.new
+        @@property_names= Hash.new
+      end
+
+      def reload!
+        load "#{File.dirname(__FILE__)}/lookup/definitions.rb"
+      end
+
+      private
+
+      def store_object object
+        SecureRandom.uuid.tap do |key|
+          @@object_cache[key] = object
+        end
+      end
+
+      def get_object key
+        @@object_cache[key]
+      end
+
+    end
+
+    clear!
+    reload!
+
+  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

data/lib/unity/quantity.rb

@@ -0,0 +1,20 @@
+# -*- encoding : utf-8 -*-
+module Unity
+  class Quantity
+
+    include Dimension::Vector
+    include Conversion
+    include Arithmetic
+
+    def initialize(attributes = {})
+      attributes.each do |name, value|
+        send("#{name}=", value)
+      end
+      super
+    end
+
+    attr_accessor :name, :numerator, :denominator, :cached_expression, :value
+    alias :to_s :expression
+
+  end
+end

data/lib/unity/version.rb

@@ -0,0 +1,3 @@
+module Unity
+  VERSION = "1.0.0"
+end

data/spec/arithmetic_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'spec_helper'
+
+describe Unity::Arithmetic do
+
+end

data/spec/comparison_spec.rb

@@ -0,0 +1,6 @@
+# -*- encoding : utf-8 -*-
+require 'spec_helper'
+
+describe Unity::Comparison do
+
+end

data/spec/conversion_spec.rb

@@ -0,0 +1,8 @@
+# -*- encoding : utf-8 -*-
+require 'spec_helper'
+
+describe Unity::Conversion do
+
+end
+
+

data/spec/dimension/integer_spec.rb

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+require 'spec_helper'
+
+describe Unity::Dimension::Integer do
+
+end
+

data/spec/dimension/vector_spec.rb

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+require 'spec_helper'
+
+describe Unity::Dimension::Vector do
+
+end
+

data/spec/dimension_spec.rb

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+require 'spec_helper'
+
+describe Unity::Dimension do
+
+  
+end

data/spec/fabricators/unit_fabricator.rb

@@ -0,0 +1,14 @@
+# -*- encoding : utf-8 -*-
+require 'unity/lookup/simple_unit'
+require 'unity/lookup/derived_unit'
+
+Fabricator(:simple_unit, :class_name => "Unity::SimpleUnit") do
+  si_factor 1000.0
+  name 'km'
+  dimension :length
+end
+
+Fabricator(:derived_unit, :class_name => "Unity::DerivedUnit") do
+  name 'kWh'
+end
+

data/spec/fraction_spec.rb

@@ -0,0 +1,7 @@
+# -*- encoding : utf-8 -*-
+require 'spec_helper'
+
+describe Unity::Fraction do
+
+
+end