eymiha_units 0.1.0

data/gem_package.rb

@@ -0,0 +1,34 @@
+class GemPackage
+  
+  attr_reader :name, :version, :files
+  
+  def initialize
+    @name = 'eymiha_units'
+    @version = '0.1.0'
+    @files = FileList[
+      '*.rb',
+      'lib/**/*',
+      'test/*',
+      'html/**/*'
+    ]
+  end
+
+  def fill_spec(s)
+    s.name = name
+    s.version = version
+    s.summary = "Emiyha - units and conversions"
+    s.files = files.to_a
+    s.require_path = 'lib'
+#    s.autorequire = name
+    s.has_rdoc = true
+    s.rdoc_options << "--all"
+    s.author = "Dave Anderson"
+    s.email = "dave@eymiha.com"
+    s.homepage = "http://www.eymiha.com"
+    s.rubyforge_project = "cori"
+    s.add_dependency("eymiha",">= 0.1.1")
+    s.add_dependency("eymiha_math",">= 0.1.1")
+    s.add_dependency("eymiha_util",">= 0.1.5")
+  end
+
+end

data/lib/units/definitions/area.rb

@@ -0,0 +1,5 @@
+Units.derive :area, Units[:length]**2 do |m|
+  m.system :english do |s|
+    s.unit :name => :acre, :equals => 4840.yd^2
+  end
+end

data/lib/units/definitions/length.rb

@@ -0,0 +1,34 @@
+Units.create :length do |m|
+  m.system :english do |s|
+    s.unit :name => :inch, :plural => :inches, :abbrev => :in
+    s.unit :name => :foot, :plural => :feet, :equals => 12.inches,
+      :abbrev => :ft
+    s.unit :name => :yard, :equals => 3.feet, :abbrev => :yd
+    s.unit :name => :mile, :equals => 5280.feet, :abbrev => :mi
+    s.unit :name => :nautical_mile, :equals => 1852.meters, :abbrev => :nmi
+    s.format :name => :feet_inches_and_32s,
+      :format => lambda { |u|
+                          ru = u.round_to_nearest(1.inch,32)
+                          feet = ru.feet.floor
+                          inches = (ru-feet).inches
+                          "#{feet} #{inches.with_fraction 32}" }
+  end
+  m.system :old_english do |s|
+    s.unit :name => :fathom, :equals => 2.yards
+    s.unit :name => :chain, :equals => 22.yards
+    s.unit :name => :furlong, :equals => 660.feet
+    s.unit :name => :league,  :equals => 3.nmi
+  end
+  m.system :metric do |s|
+    s.unit :name => :meter, :equals =>39.37.inches, :abbrev => :m,
+      :greek => :ten
+    s.unit :name => :anstrom, :equals => 0.1.nanometers, :abbrev => :A
+  end
+  m.system :astronomical do |s|
+    s.unit :name => :astronomical_unit, :equals => 149598000.kilometers,
+      :abbrev => :AU
+    s.unit :name => :light_year, :equals => speed_of_light*(year.seconds),
+      :abbrev => :ly
+    s.unit :name => :parsec, :equals => 3.262.light_years, :abbrev => :pc
+  end
+end

data/lib/units/definitions/mass.rb

@@ -0,0 +1,16 @@
+Units.create :mass do |m|
+  m.system :metric do |s|
+    s.unit :name => :gram, :abbrev => :g, :greek => :ten
+  end
+end
+
+Units.create :weight do |m|
+  m.system :avoirdupois do |s|
+    s.unit :name => :grain, :equals => (1/7000.0).lb, :abbrev => :gr
+    s.unit :name => :dram, :equals => (1/16.0).oz, :abbrev => :dr
+    s.unit :name => :ounce, :equals => (1/16.0).lb, :abbrev => :oz
+    s.unit :name => :pound, :equals => 454.g, :abbrev => :lb
+    s.unit :name => :hundredweight, :equals => 100.lb, :abbrev => :cwt
+    s.unit :name => :ton, :equals => 20.cwt
+  end
+end

data/lib/units/definitions/measures.rb

@@ -0,0 +1,6 @@
+require 'units/definitions/length'
+require 'units/definitions/time'
+require 'units/definitions/velocity'
+require 'units/definitions/area'
+require 'units/definitions/volume'
+require 'units/definitions/mass'

data/lib/units/definitions/time.rb

@@ -0,0 +1,61 @@
+Units.create :time do |m|
+  m.system :base do |s|
+    s.unit :name => :nanosecond, :equals => 0.000000001.seconds,
+      :abbrev => [:ns, :nsec]
+    s.unit :name => :microsecond, :equals => 0.000001.seconds,
+      :abbrev => [:us, :usec]
+    s.unit :name => :millisecond, :equals => 0.001.seconds,
+      :abbrev => [:ms, :msec]
+    s.unit :name => :second, :abbrev => [:s, :sec]
+    s.unit :name => :minute, :equals => 60.seconds, :abbrev => [:m, :min]
+    s.unit :name => :hour, :equals => 60.minutes, :abbrev => [:h, :hr]
+    s.unit :name => :day, :equals => 24.hours, :abbrev => [:d, :dy]
+    s.unit :name => :week, :equals => 7.days, :abbrev => [:w, :wk]
+    s.format :name => :weeks_and_days,
+      :format => lambda { |u|
+                          weeks = u.weeks.floor
+                          days = (u-weeks).days.round
+                          weeks == 0 ?
+                             (days == 0 ? "#{weeks}" : "#{days}") :
+                             "#{weeks} #{days}" }
+  end
+  m.system :common do |s|
+    s.unit :name => :month, :equals => [30.days, 4.weeks], :abbrev => [:m, :mo]
+    s.unit :name => :year, :equals => [365.days, 12.months, 52.weeks],
+      :abbrev => [:y, :yr]
+  end
+  m.system :long do |s|
+    s.unit :name => :decade, :equals => 10.years
+    s.unit :name => :century, :plural => :centuries, :equals => 100.years
+    s.unit :name => :millenium, :plural => :millenia, :equals => 1000.years
+  end
+  m.system :old_english do |s|
+    s.unit :name => :fortnight, :equals => 2.weeks
+  end
+  m.system :months do |s|
+    s.unit :name => :january, :equals => 31.days, :singular => true,
+      :sequence => 1
+    s.unit :name => :february, :equals => [28.days, 29.days], :singular => true,
+      :sequence => 2
+    s.unit :name => :march, :equals => 31.days, :singular => true,
+      :sequence => 3
+    s.unit :name => :april, :equals => 30.days, :singular => true,
+      :sequence => 4
+    s.unit :name => :may, :equals => 31.days, :singular => true,
+      :sequence => 5
+    s.unit :name => :june, :equals => 30.days, :singular => true,
+      :sequence => 6
+    s.unit :name => :july, :equals => 31.days, :singular => true,
+      :sequence => 7
+    s.unit :name => :august, :equals => 31.days, :singular => true,
+      :sequence => 8
+    s.unit :name => :september, :equals => 30.days, :singular => true,
+      :sequence => 9
+    s.unit :name => :october, :equals => 31.days, :singular => true,
+      :sequence => 10
+    s.unit :name => :november, :equals => 30.days, :singular => true,
+      :sequence => 11
+    s.unit :name => :december, :equals => 31.days, :singular => true,
+      :sequence => 12
+  end
+end

data/lib/units/definitions/velocity.rb

@@ -0,0 +1,9 @@
+Units.derive :velocity, Units.length/Units.time do |m|
+  m.system :metric do |s|
+    s.unit :constant => true,
+      :name => :speed_of_light,
+      :no_plural => true,
+      :equals => 299792458.meters/second,
+      :abbrev => :c
+  end
+end

data/lib/units/definitions/volume.rb

@@ -0,0 +1,27 @@
+Units.derive :volume, Units[:length]**3 do |m|
+  m.system :metric do |s|
+    s.unit :name => :liter, :equals => (10.cm)**3, :abbrev => :L, :greek => :ten
+  end
+  m.system :us do |s|
+    s.unit :name => :minim, :equals => (1/480.0).floz, :abbrev => :min
+    s.unit :name => :drop, :equals => (1/360.0).floz, :abbrev => :gtt
+    s.unit :name => :fluid_dram, :equals => 0.125.floz, :abbrev => :fldr
+    s.unit :name => :teaspoon, :equals => (1/3.0).tbsp, :abbrev => :tsp
+    s.unit :name => :tablespoon, :equals => 0.5.floz, :abbrev => :tbsp
+    s.unit :name => :fluid_ounce, :equals => 29.5735295625.mL, :abbrev => :floz
+    s.unit :name => :cup, :equals => 8.floz, :abbrev => :c
+    s.unit :name => :pint, :equals => 2.cups, :abbrev => :pt
+    s.unit :name => :quart, :equals => 2.pints, :abbrev => :qt
+    s.unit :name => :gallon, :equals => 4.quarts, :abbrev => :gal
+    s.unit :name => :firkin, :equals => 9.gallons
+    s.unit :name => :barrel, :equals => 31.5.gallons, :abbrev => :flbl
+    s.unit :name => :hogshead, :equals => 2.barrels, :abbrev => :hhd
+  end
+  m.system :mixology do |s|
+    s.unit :name => :pony, :equals => 0.75.shots
+    s.unit :name => :shot, :equals => 1.floz
+    s.unit :name => :jigger, :equals => 1.5.shots
+    s.unit :name => :fifth, :equals => 0.2.gallons
+  end
+end
+

data/lib/units/numeric.rb

@@ -0,0 +1,88 @@
+require 'units/units'
+require 'eymiha_math'
+require 'approximately_equals'
+
+# Numerics are extended to allow them to be united with units.
+#
+# Part of this extension is in the added dynamism of the class. During
+# unit definition, if an unencountered unit is referenced, the use is held
+# until more information is loaded into the system and the unknown unit has
+# been resolved. During use, unencountered units are raised.
+class Numeric
+  
+  alias :method_missing_before_units :method_missing
+  
+  def method_missing(method,*args) # :nodoc:
+    if Units.defining?
+      reference = Units.make_forward_reference(method,Units.defining?)
+      begin
+        value = Units.convert self, method
+        Units.release_forward_reference reference
+        value
+      rescue MissingUnitsException
+        Units.hold_forward_reference
+      rescue UnitsException => exception
+        units_problem("definition",exception,method,args)
+      rescue Exception => exception
+        method_missing_before_units(method,args)
+      end
+    else
+      begin
+        ps = method.to_s.split '_per_'
+        case ps.size
+        when 1 then unite method
+        when 2 then unite(ps[0])/(1.unite(ps[1]))
+        else raise UnitsException('invalid per method')
+        end
+      rescue UnitsException => exception
+        units_problem("usage",exception,method,args)
+      rescue Exception
+        method_missing_before_units(method,*args)
+      end
+    end
+  end
+  
+  # Returns a NumericWithUnits whose numeric value is the value of the
+  # instance, and whose unit is determined from the provided unit and power in
+  # the context of a given measure:
+  # * as a String or Symbol equal to the singular, plural or abbreviated name of a unit,
+  # * as a UnitsHash,
+  # * as the unit part of a NumericWithUnits,
+  # * as an Array of any of the above.
+  def unite(unit=nil,power=1,measure=nil)
+    if !unit
+      self
+    else
+      if (unit.kind_of? Array)
+        units = UnitsHash.new
+        unit.each {|u| units.merge! 1.unite(u)}
+        unit = units
+      elsif (unit.kind_of? String)||(unit.kind_of? Symbol)
+        s = unit.to_s
+        as = s.split('_and_')
+        if as.size == 1
+          units = Units.lookup(as[0])
+          case units.size
+          when 1 then unit = units[0]
+          when 0 then
+            as = as[0].split('_')
+            units_problem("usage",
+                          AmbiguousUnitsException.new(unit),
+                          :unit=,unit) if as.size == 0
+            unit = unite(as,power,measure).unit
+          else
+            units_problem("usage",
+                          AmbiguousUnitsException.new(unit),
+                          :unit=,unit)
+          end
+        else
+          unit = unite(as,power,measure).unit
+        end
+      elsif unit.kind_of? NumericWithUnits
+        unit = unit.unit
+      end
+      NumericWithUnits.new(self,unit,power)
+    end
+  end
+
+end