smalltalkable 0.0.2 → 0.3.0

data/README.rdoc

@@ -4,7 +4,7 @@
 
 == DESCRIPTION:
 
-Smalltalkable is a library to write your ruby code in smalltalkish way.
+Smalltalkable allows you to write ruby code in smalltalkish way.
 
 == INSTALL:
 
@@ -12,7 +12,9 @@ Smalltalkable is a library to write your ruby code in smalltalkish way.
 
 == EXAMPLE:
 
-=== Code:
+=== Define and Use a Class
+
+==== Code:
 
   require 'smalltalkable'
 
@@ -44,7 +46,7 @@ Smalltalkable is a library to write your ruby code in smalltalkish way.
     counter.next
   }
 
-=== Result:
+==== Result:
 
   $ ruby -I lib/ sample.rb
   0
@@ -52,11 +54,28 @@ Smalltalkable is a library to write your ruby code in smalltalkish way.
   12
   18
 
+=== Smalltalkize Method
+
+To define smalltalkish methods in rubyish way, use smalltalkize method:
+
+  class Counter
+    def method(arg1, arg2)
+      do_something
+    end
+    smalltalkize :method, :arg2
+    # Usage: Counter.new.method 'arg1', arg2:'arg2'
+  end
+
+This can be used to smalltalkize an existing method:
+
+  String.smalltalkize :center => [:centerWidth, :padding]
+  # Usage: 'foo'.centerWidth 10, padding:'*'
+
 == LICENSE:
 
 (The MIT License)
 
-Copyright (c) 2012 ANDO Yasushi
+Copyright (c) 2013 ANDO Yasushi
 
 Permission is hereby granted, free of charge, to any person obtaining
 a copy of this software and associated documentation files (the

data/lib/smalltalkable/version.rb

@@ -1,3 +1,3 @@
 module Smalltalkable
-  VERSION = "0.0.2"
+  VERSION = "0.3.0"
 end

data/lib/smalltalkable.rb

@@ -53,28 +53,53 @@ class Class
   end
 end
 
-class TrueClass
-  def if_true(true_proc, opts={})
-    true_proc.call
-  end
-  alias ifTrue if_true
+class Object
+  class <<self
+    def smalltalkize(method_name, *args)
+      added_method_name = method_name
+      if method_name.is_a? Hash
+        args = method_name.values.first
+        added_method_name = args.shift
+        method_name = method_name.keys.first
+      end
 
-  def if_false(false_proc, opts={})
-    (opts[:if_true] || opts[:ifTrue] || ->{nil}).call
+      method = self.instance_method method_name
+      return if [0, 1].include? method.arity
+
+      old_method_name = "#{method_name}__old"
+      new_method_name = "#{method_name}__new"
+      self.instance_eval do
+        alias_method old_method_name, method_name
+      end
+      self.class_eval <<-EOS
+        def #{new_method_name}(arg, opts={})
+          args = [arg]
+          #{args.map{|arg| "args.push opts[:#{arg}]"}.join("\n")}
+          #{old_method_name}(*args)
+        end
+      EOS
+      self.instance_eval do
+        alias_method added_method_name, new_method_name
+      end
+    end
+    alias smalltalkise smalltalkize
   end
-  alias ifFalse if_false
-end
 
-class FalseClass
-  def if_true(true_proc, opts={})
-    (opts[:if_false] || opts[:ifFalse] || ->{nil}).call
+  def eigenclass 
+    class << self
+      self
+    end 
+  end 
+
+  def if_nil(true_proc, opts={})
+    (opts[:if_not_nil] || opts[:ifNotNil] || ->{nil}).call
   end
-  alias ifTrue if_true
+  alias ifNil if_nil
 
-  def if_false(false_proc, opts={})
-    false_proc.call
+  def if_not_nil(true_proc, opts={})
+    true_proc.call
   end
-  alias ifFalse if_false
+  alias ifNotNil if_not_nil
 end
 
 class NilClass
@@ -89,16 +114,28 @@ class NilClass
   alias ifNotNil if_not_nil
 end
 
-class Object
-  def if_nil(true_proc, opts={})
-    (opts[:if_not_nil] || opts[:ifNotNil] || ->{nil}).call
+class TrueClass
+  def if_true(true_proc, opts={})
+    true_proc.call
   end
-  alias ifNil if_nil
+  alias ifTrue if_true
 
-  def if_not_nil(true_proc, opts={})
-    true_proc.call
+  def if_false(false_proc, opts={})
+    (opts[:if_true] || opts[:ifTrue] || ->{nil}).call
   end
-  alias ifNotNil if_not_nil
+  alias ifFalse if_false
+end
+
+class FalseClass
+  def if_true(true_proc, opts={})
+    (opts[:if_false] || opts[:ifFalse] || ->{nil}).call
+  end
+  alias ifTrue if_true
+
+  def if_false(false_proc, opts={})
+    false_proc.call
+  end
+  alias ifFalse if_false
 end
 
 class Proc

data/test/test_smalltalkable.rb

@@ -47,6 +47,61 @@ class TestSmalltalkable < Test::Unit::TestCase
     assert_equal 'classMethod', Counter.classMethod
   end
 
+  def test_smalltalkize
+    eval <<-EOS
+      class ::Counter
+        def method0
+          []
+        end
+        smalltalkize :method0
+
+        def method1(arg1)
+          [arg1]
+        end
+        smalltalkize :method1
+
+        def method2(arg1, arg2)
+          [arg1, arg2]
+        end
+        smalltalkize :method2, :arg2
+
+        def method3(arg1, arg2, arg3)
+          [arg1, arg2, arg3]
+        end
+        smalltalkize :method3, :arg2, :arg3
+      end
+    EOS
+    counter = Counter.new 0
+    assert_equal [], counter.method0
+    assert_equal [1], counter.method1(1)
+    assert_equal [1, 2], counter.method2(1, arg2:2)
+    assert_equal [1, 2, 3], counter.method3(1, arg2:2, arg3:3)
+
+    String.smalltalkize :center, :padding
+    assert_equal '***foo****', 'foo'.center(10, padding:'*')
+
+    String.smalltalkize :rjust => [:rjustWidth, :padding]
+    assert_equal '*******foo', 'foo'.rjustWidth(10, padding:'*')
+
+    Time.eigenclass.smalltalkize :gm, :month, :day, :hour, :minute, :second
+    time = Time.gm 2013, month:1, day:2, hour:3, minute:4, second:5
+    assert_equal 2013, time.year
+    assert_equal 1, time.month
+    assert_equal 2, time.day
+    assert_equal 3, time.hour
+    assert_equal 4, time.min
+    assert_equal 5, time.sec
+
+    Time.eigenclass.smalltalkize :local => [:local_year, :month, :day, :hour, :minute, :second]
+    local_time = Time.local_year 2013, month:1, day:2, hour:3, minute:4, second:5
+    assert_equal 2013, local_time.year
+    assert_equal 1, local_time.month
+    assert_equal 2, local_time.day
+    assert_equal 3, local_time.hour
+    assert_equal 4, local_time.min
+    assert_equal 5, local_time.sec
+  end
+
   def test_if
     assert_equal :true, (1 == 1).if_true(->{:true}, if_false:->{:false})
     assert_equal :false, (0 == 1).if_true(->{:true}, if_false:->{:false})

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: smalltalkable
 version: !ruby/object:Gem::Version
-  version: 0.0.2
+  version: 0.3.0
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-01-17 00:00:00.000000000 Z
+date: 2013-01-18 00:00:00.000000000 Z
 dependencies: []
 description: Smalltalkable is a library to write your ruby code in smalltalkish way.
 email: