require 'quantity/version'
require 'quantity/dimension'
require 'quantity/dimension/base'
require 'quantity/unit'
require 'quantity/systems/si'
require 'quantity/systems/us'

#
# A quantity of something.  Quantities are immutable; conversions and other operations return
# a new quantity.
#
# ## General Use
#     require 'quantity/all'
#
#     12.meters                                     #=> Quantity
#     12.meters.measures                            #=> :length
#     12.meters.units                               #=> :meters
#     12.meters.unit                                #=> Quantity::Unit::Length
#     12.meters.in_centimeters == 1200.centimeters  #=> true
#     12.meters == 12                               #=> true
#     12.meters == 12.centimeters                   #=> false
#     12.meters + 5.centimeters == 12.05.meters     #=> true
#     12.meters.in_picograms                        #=> raises ArgumentError
#
# ## Derived Units
#     require 'quantity/si'
#     speed_of_light = 299_752_458.meters / 1.second    #=>Quantity::Unit::Derived
#     speed_of_light.measures                           #=> "meters per second"
#     speed_of_light.units                              #=> "meters per second"
#   
#     ludicrous_speed = speed_of_light * 1000
#     ludicrous_speed.measures                #=> "meters per second"  #TODO: velocity, accleration ?
#     ludicrous_speed.to_s                    #=> "299752458000 meters per second"
#
# If the default to_s isn't what you want, you can buld it with 12.meters.value and 12.meters.units
#
# @see Quantity::Unit
class Quantity
  include Comparable
  autoload :Unit, 'quantity/unit'

  #undef_method *(instance_methods - %w(__id__ __send__ __class__ __eval__ instance_eval inspect should))

  # User-visible value, i.e. 2.meters.value == 2
  attr_reader :value

  # Unit of measurement
  attr_reader :unit

  # This quantity in terms of the reference value, declared by fiat for everything measurable
  attr_reader :reference_value

  #
  # Initialize a new, immutable quantity
  # @overload initialize(value, unit, options)
  #   @param [Numeric] value
  #   @param [Unit] unit
  #   @return [Quantity]
  #
  # @overload initialize(options)
  #   Only one of value or reference value can be used, if both are given, reference
  #   value will be used.
  #   @param [Hash{Symbol => Object}] options
  #   @option options [Numeric] :value Visible value
  #   @option options [Numeric] :reference_value Reference value
  #   @option options [Symbol Unit] :unit Units
  #   @return [Quantity]
  #
  def initialize(value, unit = nil )
    case value
      when Hash
        @unit = Unit.for(value[:unit])
        @reference_value = value[:reference_value] || (value[:value] * @unit.value)
        @value = @unit.value_for(@reference_value) #dimension.reference.convert_proc(@unit).call(@reference_value)
        #@value = @unit.convert_proc(@unit).call(@reference_value)
      when Numeric
        @unit = Unit.for(unit)
        if @unit.nil?
          @unit = Unit.from_string_form(unit)
        end
        @value = value
        @reference_value = value * @unit.value 
    end
  end

  # String version of this quantity
  # @param [String] format Format for sprintf, will be given
  # @return [String]
  def to_s
    @unit.s_for(value)
  end

  # What this measures
  # @return [Symbol String] What this measures.  Derived types will be a string
  def measures
    @unit.dimension
  end

  # Units of measurement
  # @return [Symbol String] Units of measurement.  Derived types will be a string
  def units
    @unit.name
  end

  # Abs implementation
  # @return [Quantity]
  def abs
    if @reference_value < 0
      -self
    else
      self
    end
  end

  # Ruby coercion.  Allows things like 2 + 5.meters
  # @return [Quantity, Quantity]
  def coerce(other)
    if other.class == @value.class
      [Quantity.new(other, @unit),self]
    elsif defined?(Rational) && (@value.is_a?(Fixnum)) && (other.is_a?(Fixnum))
      [Quantity.new(Rational(other), @unit), self] 
    elsif defined?(Rational) && (other.is_a?(Rational))
      [Quantity.new(other, @unit), self] 
    else
      [Quantity.new(other.to_f, @unit),Quantity.new(@value.to_f, @unit)]
    end
  end


  # Addition.  Add two quantities of the same type.  Do not need to have the same units.
  # @param [Quantity Numeric] other
  # @return [Quantity]
  def +(other)
    if (other.is_a?(Numeric))
      Quantity.new(@value + other, @unit)
    elsif(other.is_a?(Quantity) && @unit.dimension == other.unit.dimension)
      Quantity.new({:unit => @unit,:reference_value => @reference_value + other.reference_value})
    else
      raise ArgumentError,"Cannot add #{self} to #{other}"
    end
  end

  # Subtraction.  Subtract a quantity from another of the same type.  They do not need 
  # to share units.
  # @param [Quantity Numeric] other
  # @return [Quantity]
  def -(other)
    if (other.is_a?(Numeric))
      Quantity.new(@value - other, @unit)
    elsif(other.is_a?(Quantity) && @unit.dimension == other.unit.dimension)
      Quantity.new({:unit => @unit,:reference_value => @reference_value - other.reference_value})
    else
      raise ArgumentError, "Cannot subtract #{other} from #{self}"
    end
  end

  # Comparison.  Compare this to another quantity or numeric.  Compared to a numeric,
  # this will assume a numeric of the same unit as self.
  # @param [Quantity Numeric] other
  # @return [-1 0 1]
  def <=>(other)
    if (other.is_a?(Numeric))
      @value <=> other
    elsif(other.is_a?(Quantity) && measures == other.measures)
      @reference_value <=> other.reference_value
    else
      nil
    end
  end

  # Type-aware equality
  # @param [Any]
  # @return [Boolean]
  def eql?(other)
    other.is_a?(Quantity) && other.units == units && self == other
  end

  # Multiplication.
  # @param [Numeric, Quantity]
  # @return [Quantity]
  def *(other)
    if (other.is_a?(Numeric))
      Quantity.new(@value * other, @unit)
    elsif(other.is_a?(Quantity))
      Quantity.new({:unit => other.unit * @unit, :reference_value => @reference_value * other.reference_value})
    else
      raise ArgumentError, "Cannot multiply #{other} with #{self}"
    end
  end

  # Division
  # @param [Numeric, Quantity]
  # @return [Quantity]
  def /(other)
    if (other.is_a?(Numeric))
      Quantity.new(@value / other, @unit)
    elsif(other.is_a?(Quantity))
      ref = nil
      if defined?(Rational) && (@value.is_a?(Fixnum)) && (other.is_a?(Fixnum))
        ref = Rational(@reference_value,other.reference_value)
      elsif defined?(Rational) && (@value.is_a?(Rational)) && (other.is_a?(Rational))
        ref = @reference_value / other.reference_value
      else
        ref = @reference_value / other.reference_value.to_f
      end
      Quantity.new({:unit => @unit / other.unit, :reference_value => ref})
    else
      raise ArgumentError, "Cannot multiply #{other} with #{self}"
    end
  end

  # Exponentiation.  Quantities cannot be raised to negative or fractional powers, only
  # positive Fixnum.
  # @param [Numeric]
  # @return [Quantity]
  def **(power)
    unless power.is_a?(Fixnum) && power > 0
      raise ArgumentError, "Quantities can only be raised to fixed powers (given #{power})"
    end
    if power == 1
      self
    else
      self * self**(power - 1)
    end
  end

  # Square the units of this quantity
  # @example
  #     4.meters.squared == Quantity.new(4.'m^2')
  # @return [Quantity]
  def squared
    Quantity.new(@value, @unit * @unit)
  end

  # Cube the units of this quantity
  # @example
  #     4.meters.cubed == Quantity.new(4.'m^3')
  # @return [Quantity]
  def cubed
    Quantity.new(@value, @unit * @unit * @unit)
  end

  # Mod
  # @return [Quantity]
  def %(other)
    if (other.is_a?(Numeric))
      Quantity.new(@value % other, @unit)
    elsif(other.is_a?(Quantity) && self.measures == other.measures)
      Quantity.new({:unit => @unit, :reference_value => @reference_value % other.reference_value})
    else
      raise ArgumentError, "Cannot modulo #{other} with #{self}"
    end
  end

  # Both names for modulo
  alias_method :modulo, :%

  # Negation
  # @return [Quantity]
  def -@
    Quantity.new({:unit => @unit, :reference_value => @reference_value * -1})
  end

  # Unary + (self)
  # @return [Quantity]
  def +@
    self
  end

  # Integer representation
  # @return [Fixnum]
  def to_i
    @value.to_i
  end

  # Float representation
  # @return [Float]
  def to_f
    @value.to_f
  end

  # Round this value to the nearest integer
  # @return [Quantity]
  def round
    Quantity.new(@value.round, @unit)
  end

  # Truncate this value to an integer
  # @return [Quantity]
  def truncate
    Quantity.new(@value.truncate, @unit)
  end

  # Largest integer quantity less than or equal to this
  # @return [Quantity]
  def floor
    Quantity.new(@value.floor, @unit)
  end

  # Smallest integer quantity greater than or equal to this
  # @return [Quantity]
  def ceil
    Quantity.new(@value.ceil, @unit)
  end

  # Divmod
  # @return [Quantity,Quantity]
  def divmod(other)
    if (other.is_a?(Numeric))
      (q, r) = @value.divmod(other)
      [Quantity.new(q,@unit),Quantity.new(r,@unit)]
    elsif (other.is_a?(Quantity) && measures == other.measures)
      (q, r) = @value.divmod(other.value)
      [Quantity.new(q,@unit),Quantity.new(r,@unit)]
    else
      raise ArgumentError, "Cannot divmod #{other} with #{self}"
    end
  end

  # Returns true if self has a zero value
  # @return [Boolean]
  def zero?
    @value.zero?
  end

  # Convert to another unit of measurement.
  # For most uses, Quantity#to_<unit> is what you want, but this can be handy
  # for variable units.
  # @param [Unit Symbol]
  def convert(to)
    Quantity.new({:unit => @unit.convert(to), :reference_value => @reference_value})
  end

  #
  # :method to_unit
  # Convert this quantity to another quantity.
  # unit can be any unit that measures the same thing as this quantity, i.e. 
  # 12.meters can call .to_feet, .to_centimeters, etc.  An error is raised with
  # other types, i.e. 12.meters.to_grams
  # @raises ArgumentError
  # @return [Quantity]

  # Developer-friendly string representation
  # @return [String]
  def inspect
    to_s
  end

    # this creates the conversion methods of .to_* and .in_*
    # @private
    def method_missing(method, *args, &block)
      if method.to_s =~ /(to_|in_)(.*)/
        if (Unit.is_unit?($2.to_sym))
          convert($2.to_sym)
        else
          raise ArgumentError, "Unknown target unit type: #{$2}"
        end
      else 
        raise NoMethodError, "Undefined method `#{method}` for #{self}:#{self.class}"
      end
    end

    def respond_to?(method)
      if method.to_s =~ /(to_|in_)(.*)/
        if (Unit.is_unit?($2.to_sym))
          return true
        end
      end
      
      super
    end

end

# @private
# Plug our constructors into Numeric
class Numeric
  alias_method :quantity_method_missing, :method_missing
  def method_missing(method, *args, &block)
    if Quantity::Unit.is_unit?(method)
      Quantity.new(self,Quantity::Unit.for(method))
    else
      quantity_method_missing(method,*args, &block)
    end
  end
end