acvwilson-acvwilson-currency 0.5.0

data/lib/currency/money.rb

@@ -0,0 +1,296 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+#
+# Represents an amount of money in a particular currency.
+#
+# A Money object stores its value using a scaled Integer representation
+# and a Currency object.
+#
+# A Money object also has a time, which is used in conversions
+# against historical exchange rates.
+#
+class Currency::Money
+    include Comparable
+
+    @@default_time = nil
+    def self.default_time
+      @@default_time
+    end
+    def self.default_time=(x)
+      @@default_time = x
+    end
+
+    @@empty_hash = { }
+    @@empty_hash.freeze
+
+    #
+    # DO NOT CALL THIS DIRECTLY:
+    #
+    # See Currency.Money() function.
+    #
+    # Construct a Money value object 
+    # from a pre-scaled external representation:
+    # where x is a Float, Integer, String, etc.
+    #
+    # If a currency is not specified, Currency.default is used.
+    #
+    #    x.Money_rep(currency) 
+    #
+    # is invoked to coerce x into a Money representation value.
+    #
+    # For example:
+    #
+    #    123.Money_rep(:USD) => 12300
+    #
+    # Because the USD Currency object has a #scale of 100
+    #
+    # See #Money_rep(currency) mixin.
+    #
+    def initialize(x, currency = nil, time = nil)
+      opts ||= @@empty_hash
+
+      # Set ivars.
+      currency = ::Currency::Currency.get(currency)
+      @currency = currency
+      @time = time || ::Currency::Money.default_time
+      @time = ::Currency::Money.now if @time == :now
+      if x.kind_of?(String)
+        if currency
+          m = currency.parser_or_default.parse(x, :currency => currency)
+        else
+          m = ::Currency::Parser.default.parse(x)
+        end
+        @currency = m.currency unless @currency
+        @time = m.time if m.time
+        @rep = m.rep
+      else
+        @currency = ::Currency::Currency.default unless @currency
+        @rep = x.Money_rep(@currency)
+      end
+
+    end
+
+    # Returns a Time.new
+    # Can be modifed for special purposes.
+    def self.now
+      Time.new
+    end
+
+    # Compatibility with Money package.
+    def self.us_dollar(x)
+      self.new(x, :USD)
+    end
+
+
+    # Compatibility with Money package.
+    def cents
+      @rep
+    end
+
+
+    # Construct from post-scaled internal representation.
+    def self.new_rep(r, currency = nil, time = nil)
+      x = self.new(0, currency, time)
+      x.set_rep(r)
+      x
+    end
+
+
+    # Construct from post-scaled internal representation.
+    # using the same currency.
+    #
+    #    x = Currency.Money("1.98", :USD)
+    #    x.new_rep(123) => USD $1.23
+    #
+    # time defaults to self.time.
+    def new_rep(r, time = nil)
+      time ||= @time
+      x = self.class.new(0, @currency, time)
+      x.set_rep(r)
+      x
+    end
+
+    # Do not call this method directly.
+    # CLIENTS SHOULD NEVER CALL set_rep DIRECTLY.
+    # You have been warned in ALL CAPS.
+    def set_rep(r) # :nodoc:
+      r = r.to_i unless r.kind_of?(Integer)
+      @rep = r
+    end
+
+    # Do not call this method directly.
+    # CLIENTS SHOULD NEVER CALL set_time DIRECTLY.
+    # You have been warned in ALL CAPS.
+    def set_time(time) # :nodoc:
+      @time = time
+    end
+
+    # Returns the Money representation (usually an Integer).
+    def rep
+      @rep
+    end
+
+    # Get the Money's Currency.
+    def currency
+      @currency
+    end
+
+    # Get the Money's time.
+    def time
+      @time
+    end
+
+    # Convert Money to another Currency.
+    # currency can be a Symbol or a Currency object.
+    # If currency is nil, the Currency.default is used.
+    def convert(currency, time = nil)
+      currency = ::Currency::Currency.default if currency.nil?
+      currency = ::Currency::Currency.get(currency) unless currency.kind_of?(Currency)
+      if @currency == currency
+        self
+      else
+        time = self.time if time == :money
+        ::Currency::Exchange::Rate::Source.current.convert(self, currency, time)
+      end
+    end
+
+
+    # Hash for hash table: both value and currency.
+    # See #eql? below.
+    def hash
+      @rep.hash ^ @currency.hash
+    end
+
+
+    # True if money values have the same value and currency.
+    def eql?(x)
+      self.class == x.class && 
+        @rep == x.rep && 
+        @currency == x.currency
+    end
+
+    # True if money values have the same value and currency.
+    def ==(x)
+       self.class == x.class && 
+        @rep == x.rep && 
+        @currency == x.currency
+    end
+
+    # Compares Money values.
+    # Will convert x to self.currency before comparision.
+    def <=>(x)
+      if @currency == x.currency
+        @rep <=> x.rep
+      else
+        @rep <=> convert(@currency, @time).rep
+      end
+    end
+
+
+    #   - Money => Money
+    #
+    # Negates a Money value.
+    def -@
+      new_rep(- @rep)
+    end
+
+    #    Money + (Money | Number) => Money
+    #
+    # Right side may be coerced to left side's Currency.
+    def +(x)
+      new_rep(@rep + x.Money_rep(@currency))
+    end
+
+    #    Money - (Money | Number) => Money
+    #
+    # Right side may be coerced to left side's Currency.
+    def -(x)
+      new_rep(@rep - x.Money_rep(@currency))
+    end
+
+    #    Money * Number => Money
+    #
+    # Right side must be Number.
+    def *(x)
+       new_rep(@rep * x)
+    end
+
+    #    Money / Money => Float (ratio)
+    #    Money / Number => Money
+    #
+    # Right side must be Money or Number.
+    # Right side Integers are not coerced to Float before
+    # division.
+    def /(x)
+      if x.kind_of?(self.class)
+        (@rep.to_f) / (x.Money_rep(@currency).to_f)
+      else
+        new_rep(@rep / x)
+      end
+    end
+
+    # Formats the Money value as a String using the Currency's Formatter.
+    def format(*opt)
+      @currency.format(self, *opt)
+    end
+
+    # Formats the Money value as a String.
+    def to_s(*opt)
+      @currency.format(self, *opt)
+    end
+
+    # Coerces the Money's value to a Float.
+    # May cause loss of precision.
+    def to_f
+      Float(@rep) / @currency.scale
+    end
+
+    # Coerces the Money's value to an Integer.
+    # May cause loss of precision.
+    def to_i
+      @rep / @currency.scale
+    end
+
+    # True if the Money's value is zero.
+    def zero?
+      @rep == 0
+    end
+
+    # True if the Money's value is greater than zero.
+    def positive?
+      @rep > 0
+    end
+    
+    # True if the Money's value is less than zero.
+    def negative?
+      @rep < 0
+    end
+
+    # Returns the Money's value representation in another currency.
+    def Money_rep(currency, time = nil)
+      # Attempt conversion?
+      if @currency != currency || (time && @time != time)
+        
+        self.convert(currency, time).rep
+        # raise ::Currency::Exception::Generic, "Incompatible Currency: #{@currency} != #{currency}"
+      else
+        @rep
+      end
+    end
+
+    # Basic inspection, with symbol, currency code and time.
+    # The standard #inspect method is available as #inspect_deep.
+    def inspect(*opts)
+      self.format(:symbol => true, :code => true, :time => true)
+    end
+
+    # How to alias a method defined in an object superclass in a different class:
+    define_method(:inspect_deep, Object.instance_method(:inspect))
+    # How call a method defined in a superclass from a method with a different name:
+    #    def inspect_deep(*opts)
+    #      self.class.superclass.instance_method(:inspect).bind(self).call 
+    #    end
+
+end # class
+

data/lib/currency/money_helper.rb

@@ -0,0 +1,13 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+module ActionView::Helpers::MoneyHelper
+     # Creates a suitable HTML element for a Money value field.
+     def money_field(object, method, options = {})
+       InstanceTag.new(object, method, self).to_input_field_tag("text", options)
+     end
+end
+
+
+ActionView::Base.load_helper(File.dirname(__FILE__))
+

data/lib/currency/parser.rb

@@ -0,0 +1,193 @@
+# Copyright (C) 2006-2007 Kurt Stephens <ruby-currency(at)umleta.com>
+# See LICENSE.txt for details.
+
+
+require 'rss/rss' # Time#xmlschema
+
+
+# This class parses a Money value from a String.
+# Each Currency has a default Parser.
+class Currency::Parser
+
+  # The default Currency to use if no Currency is specified.
+  attr_accessor :currency
+
+  # If true and a parsed string contains a ISO currency code
+  # that is not the same as currency,
+  # #parse() will raise IncompatibleCurrency.
+  # Defaults to false.
+  attr_accessor :enforce_currency
+
+  # The default Time to use if no Time is specified in the string.
+  # If :now, time is set to Time.new.
+  attr_accessor :time
+
+  @@default = nil
+  # Get the default Formatter.
+  def self.default
+    @@default ||=
+      self.new
+  end
+
+
+  # Set the default Formatter.
+  def self.default=(x)
+    @@default = x
+  end
+  
+
+  def initialize(opt = { })
+    @time =
+      @enforce_currency =
+      @currency =
+      nil
+    opt.each_pair{ | k, v | self.send("#{k}=", v) }
+  end
+
+
+  def _parse(str) # :nodoc:
+    x = str
+
+    # Get currency.
+    # puts "str = #{str.inspect}, @currency = #{@currency}"
+
+    md = nil # match data
+
+    # $stderr.puts "'#{x}'.Money_rep(#{self})"
+    
+    # Parse time.
+    time = nil
+    if (md = /(\d\d\d\d-\d\d-\d\dT\d\d:\d\d:\d\d(\.\d+)?Z)/.match(x))
+      time = Time.xmlschema(md[1])
+      unless time
+        raise Currency::Exception::InvalidMoneyString,
+        [
+         "time: #{str.inspect} #{currency} #{x.inspect}",
+         :string, str,
+         :currency, currency,
+         :state, x,
+        ]
+      end
+      x = md.pre_match + md.post_match
+    end
+    # Default time
+    time ||= @time
+    time = Time.new if time == :now
+    
+    # $stderr.puts "x = #{x}"
+    convert_currency = nil
+    # Handle currency code in string.
+    if (md = /([A-Z][A-Z][A-Z])/.match(x)) 
+      curr = ::Currency::Currency.get(md[1])
+      x = md.pre_match + md.post_match
+      if @currency && @currency != curr
+        if @enforce_currency
+          raise ::Currency::Exception::IncompatibleCurrency, 
+          [ 
+           "currency: #{str.inspect} #{@currency.code}",
+           :string, str,
+           :default_currency, @currency,
+           :parsed_currency, curr,
+          ]
+        end
+        convert_currency = @currency
+      end
+      currency = curr
+    else
+      currency = @currency || ::Currency::Currency.default
+      currency = ::Currency::Currency.get(currency)
+    end
+
+    # Remove placeholders and symbol.
+    x = x.gsub(/[, ]/, '')
+    symbol = currency.symbol # FIXME
+    x = x.gsub(symbol, '') if symbol
+    
+    # $stderr.puts "x = #{x.inspect}"
+    # Match: whole Currency value.
+    if md = /^([-+]?\d+)\.?$/.match(x)
+      # $stderr.puts "'#{self}'.parse(#{str}) => EXACT"
+      x = ::Currency::Money.new_rep(md[1].to_i * currency.scale, currency, @time)
+      
+      # Match: fractional Currency value.
+    elsif md = /^([-+]?)(\d*)\.(\d+)$/.match(x)
+      sign = md[1]
+      whole = md[2]
+      part = md[3]
+      
+      # $stderr.puts "'#{self}'.parse(#{str}) => DECIMAL (#{sign} #{whole} . #{part})"
+      
+      if part.length != currency.scale
+        
+        # Pad decimal places with additional '0'
+        while part.length < currency.scale_exp
+          part << '0'
+        end
+        
+        # Truncate to Currency's decimal size. 
+        part = part[0 ... currency.scale_exp]
+        
+        # $stderr.puts "  => INEXACT DECIMAL '#{whole}'"
+      end
+      
+      # Put the string back together:
+      #   #{sign}#{whole}#{part}
+      whole = sign + whole + part
+      # $stderr.puts "  => REP = #{whole}"
+      
+      x = whole.to_i
+      
+      x = ::Currency::Money.new_rep(x, currency, time)
+    else
+      # $stderr.puts "'#{self}'.parse(#{str}) => ??? '#{x}'"
+      #x.to_f.Money_rep(self)
+      raise ::Currency::Exception::InvalidMoneyString, 
+      [
+       "#{str.inspect} #{currency} #{x.inspect}",
+       :string, str,
+       :currency, currency,
+       :state, x,
+      ]
+    end
+
+    # Do conversion.
+    if convert_currency
+      x = x.convert(convert_currency)
+    end
+
+
+    x
+  end
+
+
+  @@empty_hash = { }
+  @@empty_hash.freeze
+
+  # Parse a Money string in this Currency.
+  #
+  #   "123.45".money       # Using default Currency.
+  #   => USD $123.45
+  #
+  #   "$123.45 USD".money   # Explicit Currency.
+  #   => USD $123.45
+  #
+  #   "CAD 123.45".money
+  #   => CAD $123.45
+  #  
+  #   "123.45 CAD".money(:USD)  # Incompatible explicit Currency.
+  #     !!! "123.45 CAD" USD (Currency::Exception::IncompatibleCurrency)
+  #
+  def parse(str, opt = @@empty_hash)
+    prs = self
+
+    unless opt.empty? 
+      prs = prs.clone
+      opt.each_pair{ | k, v | prs.send("#{k}=", v) }
+    end
+    
+    prs._parse(str)
+  end
+
+end # class
+
+