facets 1.2.1 → 1.3.0

data/data/facets/units/xmethods/mapping.yaml

@@ -0,0 +1,85 @@
+--- 
+:base: ron
+:mapping: 
+  chf: switzerland
+  fim: finland
+  pln: poland
+  bbd: barbados
+  dem: germany
+  usd: united states
+  sit: slovenia
+  krw: korea
+  idr: indonesia
+  mad: morocco
+  qar: qatar
+  all: albania
+  nok: norway
+  jpy: japan
+  lbp: lebanon
+  bmd: bermuda
+  egp: egypt
+  myr: malaysia
+  sar: saudi arabia
+  php: philippines
+  sgd: singapore
+  hrk: croatia
+  ats: austria
+  mur: mauritius
+  ars: argentina
+  itl: italy
+  pte: portugal
+  veb: venezuela
+  aed: united arib emirates
+  huf: hungary
+  kwd: kuwait
+  iep: ireland
+  clp: chile
+  dzd: algeria
+  ttd: trinidad
+  lkr: sri lanka
+  crc: costa rica
+  jod: jordan
+  nlg: netherlands
+  skk: slovakia
+  ron: romania
+  mtl: malta
+  cyp: cyprus
+  bef: belgium
+  mxn: mexico
+  zar: south africa
+  luf: luxembourg
+  cad: canada
+  hkd: hong kong
+  tnd: tunisia
+  omr: oman
+  xcd: east caribbean
+  jmd: jamaica
+  thb: thailand
+  sek: sweden
+  rub: russia
+  kes: kenya
+  pen: peru
+  vnd: vietnam
+  czk: czech republic
+  dkk: denmark
+  pkr: pakistan
+  bhd: bahrain
+  bdt: bangladesh
+  grd: greece
+  inr: india
+  isk: iceland
+  zmk: zambia
+  sdd: sudan
+  esp: spain
+  cop: colombia
+  frf: france
+  cny: china
+  gbp: united kingdom
+  twd: taiwan
+  aud: australia
+  dop: dominican republic
+  ils: israel
+  eur: euro
+  brl: brazil
+  nzd: new zealand
+  eek: estonia

data/lib/facet/array/join_sentence.rb

@@ -0,0 +1 @@
+require 'facets/core/array/join_sentence.rb'

data/lib/facet/class/cattr.rb

@@ -0,0 +1 @@
+require 'facets/core/class/cattr.rb'

data/lib/facet/class/cattr_accessor.rb

@@ -0,0 +1 @@
+require 'facets/core/class/cattr_accessor.rb'

data/lib/facet/class/cattr_reader.rb

@@ -0,0 +1 @@
+require 'facets/core/class/cattr_reader.rb'

data/lib/facet/class/cattr_writer.rb

@@ -0,0 +1 @@
+require 'facets/core/class/cattr_writer.rb'

data/lib/facet/elementor.rb

@@ -0,0 +1 @@
+require 'facets/more/elementor.rb'

data/lib/facet/enumerable/accumulate.rb

@@ -0,0 +1 @@
+require 'facets/core/enumerable/accumulate.rb'

data/lib/facet/enumerable/collect_if.rb

@@ -0,0 +1 @@
+require 'facets/core/enumerable/collect_if.rb'

data/lib/facet/enumerable/map_if.rb

@@ -0,0 +1 @@
+require 'facets/core/enumerable/map_if.rb'

data/lib/facet/file/self/append.rb

@@ -0,0 +1 @@
+require 'facets/core/file/self/append.rb'

data/lib/facet/file/self/read_binary.rb

@@ -0,0 +1 @@
+require 'facets/core/file/self/read_binary.rb'

data/lib/facet/file/self/write.rb

@@ -0,0 +1 @@
+require 'facets/core/file/self/write.rb'

data/lib/facet/json.rb

@@ -0,0 +1 @@
+require 'facets/more/json.rb'

data/lib/facet/kernel/__self__.rb

@@ -0,0 +1 @@
+require 'facets/core/kernel/__self__.rb'

data/lib/facet/kernel/methodname.rb

@@ -0,0 +1 @@
+require 'facets/core/kernel/methodname.rb'

data/lib/facet/module/attr_query.rb

@@ -0,0 +1 @@
+require 'facets/core/module/attr_query.rb'

data/lib/facet/module/attr_validator.rb

@@ -0,0 +1 @@
+require 'facets/core/module/attr_validator.rb'

data/lib/facet/module/inherit.rb

@@ -0,0 +1 @@
+require 'facets/core/module/inherit.rb'

data/lib/facet/module/let.rb

@@ -0,0 +1 @@
+require 'facets/core/module/let.rb'

data/lib/facet/module/mattr.rb

@@ -0,0 +1 @@
+require 'facets/core/module/mattr.rb'

data/lib/facet/module/mattr_accessor.rb

@@ -0,0 +1 @@
+require 'facets/core/module/mattr_accessor.rb'

data/lib/facet/module/mattr_reader.rb

@@ -0,0 +1 @@
+require 'facets/core/module/mattr_reader.rb'

data/lib/facet/module/mattr_writer.rb

@@ -0,0 +1 @@
+require 'facets/core/module/mattr_writer.rb'

data/lib/facet/module/singleton_to_module.rb

@@ -0,0 +1 @@
+require 'facets/core/module/singleton_to_module.rb'

data/lib/facet/nilclass/op_cmp.rb

@@ -0,0 +1 @@
+require 'facets/core/nilclass/op_cmp.rb'

data/lib/facet/nilclass/succ.rb

@@ -0,0 +1 @@
+require 'facets/core/nilclass/succ.rb'

data/lib/facet/recorder.rb

@@ -0,0 +1 @@
+require 'facets/more/recorder.rb'

data/lib/facet/xoxo.rb

@@ -0,0 +1 @@
+require 'facets/more/xoxo.rb'

data/lib/facets/core/array.rb

@@ -7,6 +7,7 @@ require 'facets/core/array/each_with_key'
 require 'facets/core/array/first'
 require 'facets/core/array/foot'
 require 'facets/core/array/head'
+require 'facets/core/array/join_sentence'
 require 'facets/core/array/last'
 require 'facets/core/array/last_index'
 require 'facets/core/array/merge'

data/lib/facets/core/array/join_sentence.rb

@@ -0,0 +1,12 @@
+
+class Array
+
+  def join_sentence
+    case length
+    when 0: ""
+    when 1: self[0]
+    else [self[0..-2].join(", "), self[-1]].join(" and ")
+    end
+  end
+
+end 

data/lib/facets/core/class.rb

@@ -1,4 +1,8 @@
 require 'facets/core/class/by_name'
+require 'facets/core/class/cattr'
+require 'facets/core/class/cattr_accessor'
+require 'facets/core/class/cattr_reader'
+require 'facets/core/class/cattr_writer'
 require 'facets/core/class/descendents'
 require 'facets/core/class/method_name'
 require 'facets/core/class/remove_descendents'

data/lib/facets/core/{module → class}/cattr.rb

@@ -6,6 +6,13 @@ class Module
 
   # Creates a class-variable attribute that can
   # be accessed both on an instance and class level.
+  #
+  # NOTE mattr used to be an alias for cattr,
+  # and likewise for the other cattr methods.
+  # These aliases have been deprecated in favor of
+  # new module/mattr methods that use class-level 
+  # instance variables instead of class variables.
+  # The mattr methods are more versitile.
 
   def cattr( *syms )
     writer = false
@@ -26,8 +33,6 @@ class Module
     end
   end
 
-  alias_method :mattr, :cattr
-
   # Creates a class-variable attr_reader that can
   # be accessed both on an instance and class level.
   #
@@ -43,7 +48,6 @@ class Module
     hsyms = ( syms.last.is_a?(Hash) ? syms.pop : {} )
     hsyms.update( Hash[*(syms.zip([nil]*syms.size).flatten)] )
     hsyms.each_pair do |sym, val|
-p sym, val
       class_eval <<-EOS
         if ! defined? @@#{sym}
           @@#{sym} = val
@@ -59,8 +63,6 @@ p sym, val
     return hsyms.keys
   end
 
-  alias_method :mattr_reader, :cattr_reader
-
   # Creates a class-variable attr_writer that can
   # be accessed both on an instance and class level.
   #
@@ -95,8 +97,6 @@ p sym, val
     return hsyms.keys
   end
 
-  alias_method :mattr_writer, :cattr_writer
-
   # Creates a class-variable attr_accessor that can
   # be accessed both on an instance and class level.
   #
@@ -116,8 +116,6 @@ p sym, val
     m
   end
 
-  alias_method :mattr_accessor, :cattr_accessor
-
 end
 
 

data/lib/facets/core/class/cattr_accessor.rb

@@ -0,0 +1,2 @@
+# stub
+require 'facets/core/class/cattr.rb'

data/lib/facets/core/class/cattr_reader.rb

@@ -0,0 +1,3 @@
+# stub
+require 'facets/core/class/cattr.rb'
+

data/lib/facets/core/class/cattr_writer.rb

@@ -0,0 +1,2 @@
+# stub
+require 'facets/core/class/cattr.rb'

data/lib/facets/core/dir/self/ls_r.rb

@@ -35,17 +35,12 @@ end
 #   | |  __/\__ \ |_
 #   |_|\___||___/\__|
 #
-=begin test
 
-  require 'test/unit'
+# TODO This test needs good Dir mockup.
 
-  # FIND TEST DIRECTORY
-  paths = File.expand_path(File.dirname(__FILE__)).split('/')
-  paths.size.downto(1) do |i|
-    f = (paths.slice(0..i)+['test']).join('/')
-    $TESTDIR = File.join(f,'FIXTURE') if File.directory?(f)
-  end
-  raise unless $TESTDIR
+=begin #no test yet
+
+  require 'test/unit'
 
   class TCDir < Test::Unit::TestCase
 

data/lib/facets/core/enumerable.rb

@@ -1,3 +1,5 @@
+require 'facets/core/enumerable/accumulate'
+require 'facets/core/enumerable/collect_if'
 require 'facets/core/enumerable/collect_with_counter'
 require 'facets/core/enumerable/collect_with_index'
 require 'facets/core/enumerable/commonality'
@@ -21,6 +23,7 @@ require 'facets/core/enumerable/find_collisions'
 require 'facets/core/enumerable/frequency'
 require 'facets/core/enumerable/graph'
 require 'facets/core/enumerable/ideal_entropy'
+require 'facets/core/enumerable/map_if'
 require 'facets/core/enumerable/map_with_counter'
 require 'facets/core/enumerable/map_with_index'
 require 'facets/core/enumerable/none'

data/lib/facets/core/enumerable/accumulate.rb

@@ -0,0 +1,25 @@
+#--
+# * George Moschovitis <gm@navel.gr>
+#++
+
+require 'facets/more/functor'
+
+module Enumerable
+
+  # Project has_many Group
+  # Group has_many User
+  # projects.groups.accumulate.users
+  #--
+  # gmosx: any idea for a better name?
+  #++
+  
+  def accumulate
+    Functor.new do |op, *args|
+      self.inject([]) { |a, x| a << x.send(op, *args) }.flatten
+    end  
+  end
+  #alias_method :acc, :accumulate
+  
+end
+
+

data/lib/facets/core/enumerable/collect_if.rb

@@ -0,0 +1,15 @@
+
+module Enumerable
+
+  def collect_if(&b)
+    a = map(&b)
+    # to get the same semantics as select{|e| e}
+    a.delete(false)
+    a.compact!
+    a
+  end
+
+  alias_method :map_if, :collect_if
+  
+end
+

data/lib/facets/core/enumerable/ew.rb

@@ -1,9 +1,5 @@
 
-begin
-  require 'calibre/functor'
-rescue LoadError
-  require 'facets/support/functor'
-end
+require 'facets/more/functor'
 
 module Enumerable
 

data/lib/facets/core/enumerable/map_if.rb

@@ -0,0 +1,3 @@
+# stub
+require 'facets/core/enumerable/collect_if'
+

data/lib/facets/core/file.rb

@@ -1,5 +1,8 @@
+require 'facets/core/file/self/append'
 require 'facets/core/file/self/create'
 require 'facets/core/file/self/open_as_string'
+require 'facets/core/file/self/read_binary'
 require 'facets/core/file/self/read_list'
 require 'facets/core/file/self/sanitize'
 require 'facets/core/file/self/split_all'
+require 'facets/core/file/self/write'

data/lib/facets/core/file/self/append.rb

@@ -0,0 +1,8 @@
+
+# Append to a file.
+
+def File.append( file, str )
+  File.open( file, 'a' ) { |f|
+    f << str
+  }
+end

data/lib/facets/core/file/self/create.rb

@@ -28,21 +28,26 @@ end
 
   require 'test/unit'
 
-  # FIND TEST DIRECTORY
-  paths = File.expand_path(File.dirname(__FILE__)).split('/')
-  paths.size.downto(1) do |i|
-    f = (paths.slice(0..i)+['test']).join('/')
-    $TESTDIR = File.join(f,'FIXTURE') if File.directory?(f)
+  # mock file
+
+  class File
+    def self.open( fname, mode, &blk )
+      blk.call( self )
+    end
+    def self.read( fname )
+      @mock_content
+    end
+    def self.<<( str )
+      (@mock_content ||="") << str
+    end
   end
-  raise unless $TESTDIR
 
   class TC_CREATE < Test::Unit::TestCase
 
     def test_create
-      f = File.join( $TESTDIR, 'create_file' )
+      f = "not a reasl file"
       t = 'This is a test'
       File.create( f, t )
-      assert( File.exists?( f ) )
       s = File.read( f )
       assert_equal( t, s )
     end
@@ -50,3 +55,4 @@ end
   end
 
 =end
+

data/lib/facets/core/file/self/open_as_string.rb

@@ -12,14 +12,21 @@
 # binary mode (no mapping of the plattform's newlines to "\n" is
 # done) or to append to it.
 #
-# Usage:
+# == Usage
+#
 #   # Reverse contents of "message"
 #   File.open_as_string("message") { |str| str.reverse! }
 #
 #   # Replace "foo" by "bar" in "binary"
 #   File.open_as_string("binary", "b") { |str| str.gsub!("foo", "bar") }
 #
+#--
+# TODO Should it be in-place modification like this? Or would it be better
+# if whatever the block returns is written to the file instead?
+#++
+
 def File.open_as_string(name, mode = "")
+
   unless block_given?
     raise(ArgumentError, "Need to supply block to File.open_as_string")
   end
@@ -32,16 +39,17 @@ def File.open_as_string(name, mode = "")
     mode.delete!("^b+")
   end
 
-  str = File.open(name, "r#{mode}") { |file| file.read } rescue ""
+  str = File.open(name, "r#{mode}") { |file| file.read } #rescue ""
   old_str = str.clone
 
   begin
     yield str
   ensure
-    if str != old_str then
+    if old_str != str then
       File.open(name, "w#{mode}") { |file| file.write(str) }
     end
   end
+
 end
 
 
@@ -56,23 +64,33 @@ end
 
   require 'test/unit'
 
-  # FIND TEST DIRECTORY
-  paths = File.expand_path(File.dirname(__FILE__)).split('/')
-  paths.size.downto(1) do |i|
-    f = (paths.slice(0..i)+['test']).join('/')
-    $TESTDIR = File.join(f,'FIXTURE') if File.directory?(f)
+  # mock File class
+
+  class File
+    def self.mock_content( content )
+      @mock_content = content
+    end
+
+    def self.open( name, mode, &blk )
+      blk.call( self )
+    end
+    def self.read( fname=nil )
+      @mock_content.clone
+    end
+    def self.write( str )
+      @mock_content = str
+    end
   end
-  raise unless $TESTDIR
+
 
   class TC_OPEN_AS_STRING < Test::Unit::TestCase
 
     def test_open_as_string
-      f = File.join( $TESTDIR, 'open_as_string_file' )
+      f = "not a real file"
       t = 'This is a test'
-      File.open( f, 'w' ) { |s| s << t }
-      assert( File.exists?( f ) )
+      File.mock_content( t )
       File.open_as_string(f) { |s| s.reverse! }
-      s = File.read( f )
+      s = File.read(f)
       assert_equal( t.reverse, s )
     end