ikamusume 1.0.0

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,21 @@
+## MAC OS
+.DS_Store
+
+## TEXTMATE
+*.tmproj
+tmtags
+
+## EMACS
+*~
+\#*
+.\#*
+
+## VIM
+*.swp
+
+## PROJECT::GENERAL
+coverage
+rdoc
+pkg
+
+## PROJECT::SPECIFIC

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2010 Yusuke Endoh
+
+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/README.rdoc

@@ -0,0 +1,63 @@
+= ikamusume
+
+ikamusume invades Ruby.
+
+== Usage
+
+Hello, world in ikamusume
+
+  require "ikamusume"
+  "Hello, world" <= ikamusume!
+
+
+fibonacci in ikamusume
+
+  require "ikamusume"
+  shinryaku! <=
+  (shinryaku! <=
+    (shinryaku! <=
+      ikamusume! <=
+      ikamusume!) <=
+    (geso <=
+      ikamusume!)) <=
+  (geso <=
+    "geso") <=
+  (shinryaku! <=
+    (shinryaku! <=
+      (geso <=
+        shinryaku!) <=
+      (shinryaku! <=
+        (geso <=
+          (shinryaku! <=
+            (geso <=
+              shinryaku!))) <=
+        (shinryaku! <=
+          (shinryaku! <=
+            (geso <=
+              shinryaku!) <=
+            (shinryaku! <=
+              (geso <=
+                (shinryaku! <=
+                  (geso <=
+                    "\n"))) <=
+              (shinryaku! <=
+                (geso <=
+                  (shinryaku! <=
+                    ikamusume!)) <=
+                geso))) <=
+          geso))) <=
+    (geso <=
+      (shinryaku! <=
+        (geso <=
+          shinryaku!) <=
+        geso)))
+
+== Links
+
+  http://d.hatena.ne.jp/ku-ma-me/20101215/p1 (in Japanese)
+  http://github.com/mame/ikamusume
+  http://en.wikipedia.org/wiki/Shinryaku!_Ika_Musume
+
+== Copyright
+
+Copyright (c) 2010 Yusuke Endoh. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,52 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "ikamusume"
+    gem.summary = %Q{ikamusume invades Ruby.}
+    gem.description = %Q{ikamusume invades Ruby.}
+    gem.email = "mame@tsg.ne.jp"
+    gem.homepage = "http://github.com/mame/ikamusume"
+    gem.authors = ["Yusuke Endoh"]
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/test_*.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+task :test => :check_dependencies
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "ikamusume #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/lib/ikamusume.rb

@@ -0,0 +1,74 @@
+# coding: utf-8
+
+require "prettyprint"
+
+# Proc と String を侵略してやるでゲソ
+class Proc
+  alias <= call
+end
+
+class String
+  def <=(x)
+    display
+    x
+  end
+end
+
+# 侵略!コンビネータ (S) じゃなイカ？
+def shinryaku!
+  proc {|x| proc {|y| proc {|z| x <= z <= (y <= z) } } }
+end
+
+# ゲソコンビネータ (K) じゃなイカ？
+def geso
+  proc {|x| proc {|y| x } }
+end
+
+# イカ娘!コンビネータ (I) じゃなイカ？
+def ika?
+  proc {|x| x }
+end
+
+[ [:shinryaku!, :"侵略!", :"侵略！"],
+  [:geso, :geso!, :"ゲソ", :"ゲソ!", :"ゲソ！"],
+  [:ika?, :ikamusume!, :"イカ?", :"イカ？", :"イカ娘!", :"イカ娘！"],
+].each do |m, *ms|
+  ms.each do |m2|
+    Kernel.module_eval { alias_method(m2, m) }
+  end
+end
+
+# Unlambda も侵略してやるでゲソ
+def unlambda_to_ikamusume!(src, keywords = [["侵略!", 5], ["ゲソ", 4], ["イカ娘!", 7]])
+  PrettyPrint.format("", 0) do |pp|
+    translate = proc do |need_paren|
+      ch = src.slice!(0, 1)
+      case ch
+      when "`"
+        if need_paren
+          pp.group(2, "(", ")") do
+            translate[false]
+            pp.text " <="
+            pp.breakable
+            translate[true]
+          end
+        else
+          translate[false]
+          pp.text " <="
+          pp.breakable
+          translate[true]
+        end
+      when "s" then pp.text *keywords[0]
+      when "k" then pp.text *keywords[1]
+      when "i" then pp.text *keywords[2]
+      when "." then pp.text src.slice!(0, 1).dump
+      when "r" then pp.text '"\n"'
+      when "#" then src.slice!(/.*/); translate[need_paren]
+      when /\A\s\z/ then translate[need_paren]
+      when nil then raise "unexpected termination"
+      else raise "unimplemented instruction: %p" % ch
+      end
+    end
+    translate[false]
+  end
+end

data/test/test_ikamusume.rb

@@ -0,0 +1,23 @@
+# coding: utf-8
+
+require "ikamusume"
+require 'test/unit'
+
+class TestIkamusume < Test::Unit::TestCase
+  def test_s
+    assert_equal(侵略![proc {|z| proc {|w| w + 2 * z } }][proc {|z| z * 3 }][5], 25)
+  end
+
+  def test_k
+    assert_equal(ゲソ[42][43], 42)
+  end
+
+  def test_i
+    assert_equal(イカ娘![42], 42)
+  end
+
+  def test_apply
+    assert_equal(イカ娘! <= 42, 42)
+    assert_equal(侵略! <= ゲソ <= ゲソ <= 42, 42)
+  end
+end

metadata

@@ -0,0 +1,71 @@
+--- !ruby/object:Gem::Specification 
+name: ikamusume
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 1
+  - 0
+  - 0
+  version: 1.0.0
+platform: ruby
+authors: 
+- Yusuke Endoh
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-12-15 00:00:00 +09:00
+default_executable: 
+dependencies: []
+
+description: ikamusume invades Ruby.
+email: mame@tsg.ne.jp
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- .document
+- .gitignore
+- LICENSE
+- README.rdoc
+- Rakefile
+- lib/ikamusume.rb
+- test/test_ikamusume.rb
+has_rdoc: true
+homepage: http://github.com/mame/ikamusume
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: ikamusume invades Ruby.
+test_files: 
+- test/test_ikamusume.rb