verstehen 0.1.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) 2009 Corban Brook
+
+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,52 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "verstehen"
+    gem.summary = %Q{Ruby List Comprehension}
+    gem.description = %Q{Ruby list comprehension all over your tee tahs}
+    gem.email = "corbanbrook@gmail.com"
+    gem.homepage = "http://github.com/corbanbrook/verstehen"
+    gem.authors = ["Corban Brook"]
+    gem.add_development_dependency "thoughtbot-shoulda", ">= 0"
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: sudo 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 = "verstehen #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.1.0

data/lib/verstehen.rb

@@ -0,0 +1,11 @@
+require 'verstehen/list'
+
+module Kernel
+  def list █ Verstehen::List.new █ end
+end
+
+module Verstehen
+  Dimension = Struct.new(:for, :in, :if)
+  
+  class Context; end
+end

data/lib/verstehen/list.rb

@@ -0,0 +1,52 @@
+module Verstehen
+  class List
+    def initialize &expression
+      @expression = expression
+      @result = []
+      @dimensions = []
+      @context = Context.new
+    end
+
+    def for *symbols
+      @dimensions << Dimension.new(symbols)
+      symbols.each { |sym| Context.send(:attr_accessor, sym) }
+      self
+    end
+
+    def in &range
+      @dimensions.last.in = range
+      self
+    end
+
+    def if &condition
+      @dimensions.last.if = condition
+      self
+    end
+
+    def comprehend
+      generated = ""
+      @dimensions.each_with_index do |dimension, i|
+        block_params = dimension.for.collect {|sym| sym.to_s}.join(", ")
+        generated << "for #{block_params} in @context.instance_eval(&@dimensions[#{i}].in)\n"
+        generated << dimension.for.map {|sym| "@context.#{sym} = #{sym}\n" }.join
+        if dimension == @dimensions.last
+          if @dimensions[i].if 
+            generated << "if @context.instance_eval(&@dimensions[#{i}].if)\n"
+          end
+          generated << "@result << @context.instance_eval(&@expression)\n"
+          if @dimensions[i].if 
+            generated << "end\n"
+          end
+        end
+      end
+      @dimensions.each_with_index do |dimension, i|
+        generated << "end\n"
+      end
+
+      #puts generated
+      eval generated
+      
+      @result
+    end
+  end
+end

data/test/helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'verstehen'
+
+class Test::Unit::TestCase
+end

data/test/test.rb

@@ -0,0 +1,47 @@
+require 'verstehen'
+require 'test/unit'
+
+class TestVerstehen < Test::Unit::TestCase
+  def test_simple
+    assert_equal(
+      [0, 1, 2, 3, 4], 
+      list { x }.for(:x).in{ 0..4 }.comprehend) 
+  end
+
+  def test_simple_expression
+    assert_equal(
+      [0, 5, 10, 15, 20], 
+      list { x * 5 }.for(:x).in{ 0..4 }.comprehend) 
+  end
+
+  def test_simple_condition
+    assert_equal(
+      [0, 64, 128, 192, 256], 
+      list { x * 16 }.for(:x).in{ 0..16 }.if{ x % 4 == 0 }.comprehend)
+  end
+
+  def test_string
+    word = "spam"
+    assert_equal(
+      [["", "spam"], ["s", "pam"], ["sp", "am"], ["spa", "m"], ["spam", ""]], 
+      list { [word[0, i], word[i, word.length]] }.for(:i).in{ 0..word.length }.comprehend)
+  end
+
+  def test_2d_range
+    assert_equal(
+      [1, 2, 2, 4], 
+      list { x * y }.for(:x).in{ 0...3 }.for(:y).in{ 0...3 }.if{ x > 0 and y > 0 }.comprehend)
+  end
+
+  def test_3d_range
+   assert_equal(
+    [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 0, 2, 4, 0, 0, 0, 0, 2, 4, 0, 4, 8], 
+    list { x * y * z }.for(:x).in{ 0...3 }.for(:y).in{ 0...3 }.for(:z).in{0...3}.comprehend)
+  end
+
+  def test_reference_outer
+    assert_equal(
+    [:a, :b, :c, :d, :e, :f, :g, :h, :i],
+    list { l2 }.for(:l1).in{ [[:a, :b, :c], [:d, :e, :f], [:g, :h, :i]] }.for(:l2).in{ l1 }.comprehend)
+  end
+end

data/test/test_verstehen.rb

@@ -0,0 +1,7 @@
+require 'helper'
+
+class TestVerstehen < Test::Unit::TestCase
+  should "probably rename this file and start testing for real" do
+    flunk "hey buddy, you should probably rename this file and start testing for real"
+  end
+end

metadata

@@ -0,0 +1,77 @@
+--- !ruby/object:Gem::Specification 
+name: verstehen
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Corban Brook
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-10-28 00:00:00 -04:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: thoughtbot-shoulda
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: Ruby list comprehension all over your tee tahs
+email: corbanbrook@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README
+files: 
+- .document
+- .gitignore
+- LICENSE
+- README
+- Rakefile
+- VERSION
+- lib/verstehen.rb
+- lib/verstehen/list.rb
+- test/helper.rb
+- test/test.rb
+- test/test_verstehen.rb
+has_rdoc: true
+homepage: http://github.com/corbanbrook/verstehen
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Ruby List Comprehension
+test_files: 
+- test/helper.rb
+- test/test.rb
+- test/test_verstehen.rb