smalltalkable 0.0.1

data/.gitignore

@@ -0,0 +1,6 @@
+*.gem
+.bundle
+Gemfile.lock
+pkg/*
+*.swp
+sample.rb

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in smalltalkable.gemspec
+gemspec

data/README.rdoc

@@ -0,0 +1,78 @@
+= Smalltalkable
+
+* Smalltalkable (http://github.com/technohippy/smalltalkable)
+
+== DESCRIPTION:
+
+Smalltalkable is a library to write your ruby code in smalltalkish way.
+
+== INSTALL:
+
+* sudo gem install sapphire
+
+== EXAMPLE:
+
+=== Code:
+
+  require 'smalltalkable'
+
+  Object.subclass :Counter,
+    instanceVariableNames: 'value step',
+    classVariableNames: 'instanceCount',
+    poolDictionaries: '',
+    category: 'Category-Name'
+
+  Counter.compile '
+    initialize value, step:step
+      @value = value
+      @step = step'
+  Counter.compile '
+    next
+      @value += @step'
+  Counter.compile '
+    value
+      @value'
+  Counter.compile '
+    setValue newValue
+      @value = newValue'
+
+  counter = Counter.new 0, step:2
+  ->{counter.value < 20}.while_true ->{
+    (counter.value % 3 == 0).if_true ->{
+      puts counter.value
+    }
+    counter.next
+  }
+
+=== Result:
+
+  $ ruby -I lib/ sample.rb
+  0
+  6
+  12
+  18
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2012 ANDO Yasushi
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/lib/smalltalkable.rb

@@ -0,0 +1,114 @@
+require "smalltalkable/version"
+
+module Smalltalkable
+end
+
+class Class
+  attr_accessor :category
+
+  def subclass(name, opt={})
+    klass = Class.new(self)
+    if opt[:instanceVariableNames]
+      opt[:instanceVariableNames].split(' ').each do |ivar|
+        klass.instance_variable_set "@#{ivar}", nil
+      end
+    end
+    if opt[:classVariableNames]
+      opt[:classVariableNames].split(' ').each do |cvar|
+        klass.class_variable_set "@@#{cvar}", nil
+      end
+    end
+    if opt[:poolDictionaries] && !opt[:poolDictionaries].empty?
+      raise NotImplementedError.new('pool dictionary is not available') 
+    end
+    if opt[:category]
+      klass.category = opt[:category] unless opt[:category].empty?
+    end
+    Object.const_set name, klass
+  end
+
+  def compile(code)
+    sig, method = code.strip.split "\n", 2
+    name, str_arg = sig.split /\s+/, 2
+    args = []
+    pairs = {}
+    if str_arg
+      first_arg, other_args = str_arg.split /\s*,\s*/, 2
+      args.push first_arg
+      if other_args
+        args.push 'opts={}'
+        other_args.split(/\s+/).each do |pair|
+          key, value = pair.split /\s*:\s*/
+          pairs[key] = value
+        end
+      end
+    end
+
+    self.class_eval <<-EOS
+      def #{name.strip}(#{args.join ', '})
+        #{pairs.map do |k, v| "#{v} = opts[:#{k}]" end.join "\n"}
+        #{method}
+      end
+    EOS
+  end
+end
+
+class TrueClass
+  def if_true(true_proc, opts={})
+    true_proc.call
+  end
+  alias ifTrue if_true
+
+  def if_false(false_proc, opts={})
+    (opts[:if_true] || opts[:ifTrue] || ->{nil}).call
+  end
+  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 NilClass
+  def if_nil(true_proc, opts={})
+    true_proc.call
+  end
+  alias ifNil if_nil
+
+  def if_not_nil(true_proc, opts={})
+    (opts[:if_nil] || opts[:ifNil] || ->{nil}).call
+  end
+  alias ifNotNil if_not_nil
+end
+
+class Object
+  def if_nil(true_proc, opts={})
+    (opts[:if_not_nil] || opts[:ifNotNil] || ->{nil}).call
+  end
+  alias ifNil if_nil
+
+  def if_not_nil(true_proc, opts={})
+    true_proc.call
+  end
+  alias ifNotNil if_not_nil
+end
+
+class Proc
+  def while_true(block)
+    if self.call
+      block.call
+      while_true block
+    end
+  end
+  alias whileTrue while_true
+
+  alias value call
+end

data/lib/smalltalkable/version.rb

@@ -0,0 +1,3 @@
+module Smalltalkable
+  VERSION = "0.0.1"
+end

data/smalltalkable.gemspec

@@ -0,0 +1,20 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "smalltalkable/version"
+
+Gem::Specification.new do |s|
+  s.name        = "smalltalkable"
+  s.version     = Smalltalkable::VERSION
+  s.authors     = ["Ando Yasushi"]
+  s.email       = ["andyjpn@gmail.com"]
+  s.homepage    = "https://github.com/technohippy/smalltalkable"
+  s.summary     = %q{Write your ruby code in smalltalkish way}
+  s.description = %q{Smalltalkable is a library to write your ruby code in smalltalkish way.}
+
+  s.rubyforge_project = "smalltalkable"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+end

data/test/test_smalltalkable.rb

@@ -0,0 +1,78 @@
+require 'test/unit'
+require 'smalltalkable'
+
+class TestSmalltalkable < Test::Unit::TestCase
+  def test_define_class
+    assert_raise(NameError) do Counter end
+    Object.subclass :Counter,
+      instanceVariableNames: 'counterValue',
+      classVariableNames: 'instanceCount',
+      poolDictionaries: '',
+      category: 'Category-Name'
+    assert_nothing_raised do Counter end
+    assert_equal Class, Counter.class
+    assert_equal [:@counterValue, :@category], Counter.instance_variables
+    assert_equal [:@@instanceCount], Counter.class_variables
+    assert_equal 'Category-Name', Counter.category
+  end
+
+  def test_define_method
+    Counter.compile '
+      initialize value
+        @counterValue = value'
+    Counter.compile '
+      counterValue
+        @counterValue'
+    Counter.compile '
+      setCounterValue newValue
+        @counterValue = newValue'
+    Counter.compile '
+      method a1, arg2:a2, arg3:a3
+        [a1, a2, a3]'
+
+    counter = Counter.new 0
+    assert_equal 0, counter.counterValue
+    counter.setCounterValue 1
+    assert_equal 1, counter.counterValue
+    assert_equal [1, 2, 3], counter.method(1, arg2:2, arg3:3)
+    assert_equal [1, 2, 3], counter.method(1, arg3:3, arg2:2)
+    assert_equal [1, 2, nil], counter.method(1, arg2:2)
+    assert_equal [1, nil, 3], counter.method(1, arg3:3)
+  end
+
+  def test_define_class_method
+    Counter.class.compile '
+      classMethod
+        "classMethod"'
+    assert_equal 'classMethod', Counter.classMethod
+  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})
+    assert_equal :true, (1 == 1).if_true(->{:true})
+    assert_nil (0 == 1).if_true(->{:true})
+
+    assert_equal :true, (1 == 1).if_false(->{:false}, if_true:->{:true})
+    assert_equal :false, (0 == 1).if_false(->{:false}, if_true:->{:true})
+    assert_nil (1 == 1).if_false(->{:false})
+    assert_equal :false, (0 == 1).if_false(->{:false})
+  end
+
+  def test_if_nil
+    assert_equal :true, nil.if_nil(->{:true}, if_not_nil:->{:false})
+    assert_equal :false, 1.if_nil(->{:true}, if_not_nil:->{:false})
+    assert_equal :true, nil.if_nil(->{:true})
+    assert_nil 1.if_nil(->{:true})
+  end
+
+  def test_while
+    ret = ''
+    c = 9
+    ->{0 < c}.while_true ->{
+      ret += c.to_s
+      c -= 1
+    }
+    assert_equal '987654321', ret
+  end
+end

metadata

@@ -0,0 +1,54 @@
+--- !ruby/object:Gem::Specification
+name: smalltalkable
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Ando Yasushi
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-01-17 00:00:00.000000000 Z
+dependencies: []
+description: Smalltalkable is a library to write your ruby code in smalltalkish way.
+email:
+- andyjpn@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- README.rdoc
+- Rakefile
+- lib/smalltalkable.rb
+- lib/smalltalkable/version.rb
+- smalltalkable.gemspec
+- test/test_smalltalkable.rb
+homepage: https://github.com/technohippy/smalltalkable
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: smalltalkable
+rubygems_version: 1.8.10
+signing_key: 
+specification_version: 3
+summary: Write your ruby code in smalltalkish way
+test_files:
+- test/test_smalltalkable.rb