mroch-BigMoney 0.1.2 → 0.2.1

data/lib/big_money/exchange.rb

@@ -0,0 +1,47 @@
+require 'bigdecimal'
+
+class BigMoney
+
+  # Find the exchange rate between two currencies.
+  #
+  # Be aware no caching is done at all at the moment.
+  class Exchange
+    class ExchangeError < StandardError; end
+    class ConversionError < ExchangeError; end
+
+    class << self
+      @@services = []
+      def inherited(service) #:nodoc:
+        @@services << service
+      end
+
+      # Fetch the exchange rate between two currencies. The arguments may be anything that BigMoney::Currency can
+      # parse. The rate is returned as a BigDecimal.
+      def rate(from, to)
+        exchange = [from, to].map do |c|
+          Currency.parse(c) or raise BigMoney::UnknownCurrency
+        end
+        return BigDecimal(1.to_s) if exchange.uniq.length == 1
+
+        service = @@services.reverse.find do |service|
+          !!exchange.reject{|c| service.currencies.include?(c)}
+        end
+
+        service or raise ConversionError # TODO: Message?
+        BigDecimal.new(service.read_rate(*exchange).to_s)
+      end
+
+      protected
+        # Exchange rate from the first currency to the second.
+        def read_rate(from, to)
+          raise NotImplementedError
+        end
+
+        # An array of supported currencies.
+        def currencies
+          raise NotImplementedError
+        end
+    end
+  end # Exchange
+
+end # Money

data/lib/big_money/exchange/yahoo.rb

@@ -0,0 +1,32 @@
+require 'open-uri'
+
+class BigMoney
+  class Exchange
+
+    # Yahoo finance exchange service.
+    #
+    # http://finance.yahoo.com
+    class Yahoo < Exchange
+      class << self
+        protected
+          def read_rate(from, to)
+            s = [from, to].map{|c| c.code}.join
+            open("http://download.finance.yahoo.com/d/quotes.csv?s=#{s}=X&f=l1&e=.csv").read.strip rescue nil
+          end
+
+          def currencies
+            %w{
+              ALL DZD XAL ARS AWG AUD BSD BHD BDT BBD BYR BZD BMD BTN BOB BWP BRL GBP BND BGN BIF KHR CAD CVE KYD XOF XAF
+              CLP CNY COP KMF XCP CRC HRK CUP CYP CZK DKK DJF DOP XCD ECS EGP SVC ERN EEK ETB EUR FKP FJD GMD GHC GIP XAU
+              GTQ GNF GYD HTG HNL HKD HUF ISK INR IDR IRR IQD ILS JMD JPY JOD KZT KES KRW KWD LAK LVL LBP LSL LRD LYD LTL
+              MOP MKD MWK MYR MVR MTL MRO MUR MXN MDL MNT MAD MMK NAD NPR ANG TRY NZD NIO NGN KPW NOK OMR XPF PKR XPD PAB
+              PGK PYG PEN PHP XPT PLN QAR RON RUB RWF WST STD SAR SCR SLL XAG SGD SKK SIT SBD SOS ZAR LKR SHP SDD SZL SEK
+              CHF SYP TWD TZS THB TOP TTD TND USD AED UGX UAH UYU VUV VEB VND YER ZMK ZWD
+            }
+          end
+      end
+    end # Yahoo
+
+  end # Exchange
+end # Money
+

data/rakelib/cultivate.rake

@@ -0,0 +1,7 @@
+# Only works on unixy type systems.
+# http://blog.behindlogic.com/2008/10/auto-generate-your-manifest-and-gemspec.html
+desc 'Rebuild manifest and gemspec.'
+task :cultivate do
+  system %q{touch Manifest.txt; rake check_manifest | grep -v "(in " | patch}
+  system %q{rake debug_gem | grep -v "(in " > `basename \`pwd\``.gemspec}
+end

data/rakelib/iso4217.rake

@@ -0,0 +1,16 @@
+namespace :currency do
+
+  desc 'Create ISO 4217 currency classes from wikipedia ISO 4217 table.'
+  task :iso4217 do
+    dirname = File.dirname(__FILE__)
+    gen     = File.join(dirname, %w{iso4217.rb})
+    lib     = File.expand_path(File.join(dirname, %w{.. lib big_money currency iso4217.rb}))
+    require gen
+    modules = BigMoney::Task::ISO4217.get
+    File.open(lib, File::CREAT | File::TRUNC | File::WRONLY) do |f|
+      f.write modules
+    end
+  end
+
+end # :currency
+

data/rakelib/iso4217.rb

@@ -0,0 +1,46 @@
+require 'hpricot'
+require 'open-uri'
+require 'erubis'
+
+class BigMoney
+  module Task
+    module ISO4217
+      def self.get
+        doc   = Hpricot(open('http://en.wikipedia.org/wiki/ISO_4217').read)
+        codes = doc.at('//a#Active_codes').parent
+        codes.name =~ /table/ && break while codes = codes.next_sibling
+        to_ruby(codes) if codes
+      end
+
+      def self.to_ruby(codes)
+        currencies = (codes / 'tr').map{|tr| currency tr}.compact
+        currencies.reject!{|c| c[:code] !~ /[A-Z]{3}/ || c[:name] !~ /\w+/}
+        tmpl  = File.read(File.join(File.dirname(__FILE__), 'iso4217.rb.erb'))
+        eruby = Erubis::Eruby.new(tmpl)
+        eruby.result(:currencies => currencies)
+      end
+
+      def self.currency(tr)
+        values = (tr / 'td')
+        return unless values && values.size >= 4
+        {
+          :code   => code(values),
+          :name   => name(values),
+          :offset => offset(values)
+        }
+      end
+
+      def self.code(chunks)
+        chunks[0].inner_html
+      end
+
+      def self.offset(chunks)
+        chunks[2].inner_html.to_i rescue 0
+      end
+
+      def self.name(chunks)
+        (chunks[3] / 'a').inner_html rescue chunks[3].inner_html
+      end
+    end # ISO4217
+  end # Task
+end # BigMoney

data/rakelib/iso4217.rb.erb

@@ -0,0 +1,13 @@
+class BigMoney
+  class Currency
+  <% currencies.each do |currency| -%>
+    class <%= currency[:code].upcase %> < Currency #:nodoc:
+      self.name = %q{<%= currency[:name] %>}
+      self.code = %q{<%= currency[:code] %>}
+      self.offset = <%= currency[:offset] %>
+    end
+
+  <% end -%>
+  end # Currency
+end # BigMoney
+

data/test/test_big_money.rb

@@ -3,47 +3,58 @@ require 'big_money'
 require 'bigdecimal'
 
 class TestBigMoney < Test::Unit::TestCase
-  
+
   def test_initialize_with_bigdecimal
     val = BigDecimal.new("1.005")
     assert_same val, BigMoney.new(val).amount, 'Should not create a clone of the input'
   end
-  
+
   def test_initialize_with_string
     assert_equal BigDecimal.new("1.005"), BigMoney.new("1.005").amount
     assert_equal BigDecimal.new("10"), BigMoney.new("10").amount
     assert_equal BigDecimal.new("0"), BigMoney.new("0").amount
     assert_equal BigDecimal.new("0"), BigMoney.new("foo").amount
   end
-  
+
   def test_initialize_with_integer
     assert_equal BigDecimal.new("100"), BigMoney.new(100).amount
     assert_equal BigDecimal.new("0"), BigMoney.new(0).amount
   end
-  
+
   def test_initialize_with_float
     assert_equal BigDecimal.new("1.005"), BigMoney.new(1.005).amount
     assert_equal BigDecimal.new("0"), BigMoney.new(0.0).amount
   end
-  
+
+  def test_initialize_without_currency
+    assert_equal BigMoney::Currency::USD.instance, BigMoney.new(1.23).currency
+  end
+
+  def test_initialize_with_currency
+    assert_equal BigMoney::Currency::AUD.instance, BigMoney.new(1.23, :aud).currency
+    assert_raises BigMoney::UnknownCurrency do
+      BigMoney.new(1.23, :fud)
+    end
+  end
+
   def test_eql?
     assert BigMoney.new("1.00", :usd).eql?(BigMoney.new("1.00", :usd))
     assert !BigMoney.new("1.00", :usd).eql?(BigMoney.new("1.01", :usd))
     assert !BigMoney.new("1.00", :usd).eql?(BigMoney.new("1.00", :cad))
   end
-  
+
   def test_compare
     m1, m2 = BigMoney.new("1.00", :usd), BigMoney.new("1.50", :usd)
     assert_equal(-1, (m1 <=> m2))
     assert_equal(0, (m1 <=> m1))
     assert_equal(1, (m2 <=> m1))
-    
+
     m3 = BigMoney.new("1.00", :cad)
     assert_raises BigMoney::UncomparableCurrency do
       m1 <=> m3
     end
   end
-  
+
   def test_add
     m1, m2, m3 = BigMoney.new(1.00, :usd), BigMoney.new(1.50, :usd), BigMoney.new(0, :usd)
     assert_equal BigDecimal.new("2.50"), (m1 + m2).amount
@@ -55,7 +66,7 @@ class TestBigMoney < Test::Unit::TestCase
     assert_equal BigDecimal.new("5.50"), (m2 + 4).amount
     assert_equal BigDecimal.new("5.50"), (m2 + 4.00).amount
   end
-  
+
   def test_subtract
     m1, m2, m3 = BigMoney.new(1.00, :usd), BigMoney.new(1.50, :usd), BigMoney.new(0, :usd)
     assert_equal BigDecimal.new("-0.50"), (m1 - m2).amount
@@ -65,7 +76,7 @@ class TestBigMoney < Test::Unit::TestCase
     assert_equal BigDecimal.new("-2.50"), (m2 - 4).amount
     assert_equal BigDecimal.new("-2.50"), (m2 - 4.00).amount
   end
-  
+
   def test_multiply
     m1, m2, m3 = BigMoney.new(2.00, :usd), BigMoney.new(1.50, :usd), BigMoney.new(0, :usd)
     assert_equal BigDecimal.new("4.00"), (m1 * m1).amount
@@ -77,7 +88,7 @@ class TestBigMoney < Test::Unit::TestCase
     assert_equal BigDecimal.new("3.00"), (m2 * 2).amount
     assert_equal BigDecimal.new("3.00"), (m2 * 2.00).amount
   end
-  
+
   def test_divide
     m1, m2, m3 = BigMoney.new(2.00, :usd), BigMoney.new(1.50, :usd), BigMoney.new(0, :usd)
     assert_equal BigDecimal.new("1.00"), (m1 / m1).amount
@@ -91,13 +102,13 @@ class TestBigMoney < Test::Unit::TestCase
     assert_equal BigDecimal.new("0.75"), (m2 / 2).amount
     assert_equal BigDecimal.new("0.75"), (m2 / 2.00).amount
   end
-  
+
   def test_to_s
     assert_equal '1.00', BigMoney.new(1).to_s
     assert_equal '1.50', BigMoney.new(1.5).to_s
     assert_equal '-11.50', BigMoney.new(-11.5).to_s
   end
-  
+
   def test_to_formatted_s
     assert_equal '1.00', BigMoney.new(1).to_formatted_s("%.2f")
     assert_equal '$1.00', BigMoney.new(1).to_formatted_s("$%.2f")
@@ -106,23 +117,30 @@ class TestBigMoney < Test::Unit::TestCase
     assert_equal '$1 USD', BigMoney.new(1).to_formatted_s("$%.0f %s")
     assert_equal '$1.00 <span class="currency">USD</span>', BigMoney.new(1).to_formatted_s('$%.2f <span class="currency">%s</span>')
   end
-  
+
   def test_to_i
     assert_equal(1, BigMoney.new(1).to_i)
     assert_equal(1, BigMoney.new(1.5).to_i)
     assert_equal(-11, BigMoney.new(-11.5).to_i)
   end
-  
+
   def test_to_f
     assert_in_delta(1.0, BigMoney.new(1).to_f, 0.000001)
     assert_in_delta(1.5, BigMoney.new(1.5).to_f, 0.000001)
     assert_in_delta(-11.5, BigMoney.new(-11.5).to_f, 0.000001)
   end
-  
+
   def test_neg
     assert_equal BigMoney.new(-1), -BigMoney.new(1)
     assert_equal BigMoney.new(1),  -BigMoney.new(-1)
     assert_equal BigMoney.new(1),  -BigMoney.new(-1)
   end
 
-end
+  def test_currency
+    assert_equal BigMoney::Currency::AUD.instance, BigMoney.currency(:aud)
+  end
+
+  def test_exchange
+    assert BigMoney.new(1.50).exchange(:aud)
+  end
+end

data/test/test_currency.rb

@@ -0,0 +1,23 @@
+require 'test/unit'
+require 'big_money'
+
+class TestCurrency < Test::Unit::TestCase
+  def test_parse
+    assert_kind_of BigMoney::Currency, BigMoney::Currency.parse(:aud)
+    assert_nil BigMoney::Currency.parse(:fud)
+  end
+
+  def test_compare
+    aud = BigMoney::Currency::AUD.instance
+    assert_operator aud, :==, :aud
+    assert_operator aud, :==, :AUD
+    assert_operator aud, :==, 'aud'
+    assert_operator aud, :==, 'AUD'
+
+    # assert_operator aud, '!=', :fud
+    assert aud != :fud
+    assert aud != :FUD
+    assert aud != 'fud'
+    assert aud != 'FUD'
+  end
+end

data/test/test_exchange.rb

@@ -0,0 +1,21 @@
+require 'test/unit'
+require 'big_money'
+
+class TestExchange < Test::Unit::TestCase
+  def setup
+    @aud = BigMoney.currency(:aud)
+    @usd = BigMoney.currency(:usd)
+  end
+
+  def test_rate
+    assert_kind_of BigDecimal, BigMoney::Exchange.rate(@aud, @usd)
+    assert_kind_of BigDecimal, BigMoney::Exchange.rate(:aud, :usd)
+    assert_raise BigMoney::UnknownCurrency do
+      BigMoney::Exchange.rate(:aud, :fud)
+    end
+  end
+
+  def test_equal_rate
+    assert_equal BigDecimal(1.to_s), BigMoney::Exchange.rate(:usd, :usd)
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: mroch-BigMoney
 version: !ruby/object:Gem::Version 
-  version: 0.1.2
+  version: 0.2.1
 platform: ruby
 authors: 
 - Marshall Roch
@@ -9,34 +9,57 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2008-08-09 00:00:00 -07:00
+date: 2008-10-20 00:00:00 -07:00
 default_executable: 
-dependencies: []
-
-description: Represents an amount of money in a particular currency. Backed by BigDecimal, so is safe from float rounding errors.
-email: mroch@cmu.edu
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.8.0
+    version: 
+description: Represents an amount of money in a particular currency. Backed by BigDecimal,  so is safe from float rounding errors.
+email: 
+- mroch@cmu.edu
 executables: []
 
 extensions: []
 
-extra_rdoc_files: []
-
-files: 
-- bigmoney.gemspec
+extra_rdoc_files: 
 - History.txt
+- LICENSE.txt
 - Manifest.txt
+- README.txt
+files: 
+- History.txt
 - LICENSE.txt
-- Rakefile
+- Manifest.txt
 - README.txt
+- Rakefile
+- bigmoney.gemspec
 - lib/big_money.rb
 - lib/big_money/big_money.rb
 - lib/big_money/core_extensions.rb
+- lib/big_money/currency.rb
+- lib/big_money/currency/iso4217.rb
+- lib/big_money/exchange.rb
+- lib/big_money/exchange/yahoo.rb
+- rakelib/cultivate.rake
+- rakelib/iso4217.rake
+- rakelib/iso4217.rb
+- rakelib/iso4217.rb.erb
 - test/test_big_money.rb
-has_rdoc: false
-homepage: http://github.com/mroch/bigmoney
+- test/test_currency.rb
+- test/test_exchange.rb
+has_rdoc: true
+homepage: 
 post_install_message: 
-rdoc_options: []
-
+rdoc_options: 
+- --main
+- README.txt
 require_paths: 
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement 
@@ -53,10 +76,12 @@ required_rubygems_version: !ruby/object:Gem::Requirement
   version: 
 requirements: []
 
-rubyforge_project: 
+rubyforge_project: bigmoney
 rubygems_version: 1.2.0
 signing_key: 
 specification_version: 2
-summary: Represents an amount of money in a particular currency.
+summary: Represents an amount of money in a particular currency
 test_files: 
 - test/test_big_money.rb
+- test/test_currency.rb
+- test/test_exchange.rb