subaltern 1.0.0

data/lib/subaltern/kernel.rb

@@ -0,0 +1,64 @@
+#--
+# Copyright (c) 2011-2012, John Mettraux, jmettraux@gmail.com
+#
+# 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.
+#++
+
+
+module Subaltern
+
+  def self.kernel
+
+    {
+      'loop' => LoopFunction.new
+    }
+  end
+
+  class LoopFunction < Function
+
+    def initialize
+    end
+
+    def call(context, tree)
+
+      return nil unless context['__block']
+        # a real Ruby would return an Enumerator instance
+
+      con = Context.new(context, {})
+
+      loop do
+
+        begin
+
+          r = context['__block'].call(con, [], false)
+            # new_context is false
+
+        rescue Command => c
+
+          case c.name
+            when 'break' then break c
+            when 'next' then next c
+            else raise c
+          end
+        end
+      end
+    end
+  end
+end
+

data/lib/subaltern/version.rb

@@ -0,0 +1,28 @@
+#--
+# Copyright (c) 2011-2012, John Mettraux, jmettraux@gmail.com
+#
+# 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.
+#++
+
+
+module Subaltern
+
+  VERSION = '1.0.0'
+end
+

data/spec/array_spec.rb

@@ -0,0 +1,74 @@
+
+require 'spec_helper'
+
+
+describe Subaltern do
+
+  describe Array do
+
+    describe '[]' do
+
+      it 'returns the array' do
+
+        Subaltern.eval('[]').should == []
+        Subaltern.eval('[ 1, 2 ]').should == [ 1, 2 ]
+      end
+    end
+
+    describe 'standard array methods' do
+
+      it 'are accepted' do
+
+        Subaltern.eval('[ 1, 2, 3 ].length').should == 3
+        Subaltern.eval('[ 1, [ 2, 3 ] ].flatten').should == [ 1, 2, 3 ]
+      end
+    end
+
+    describe '#each' do
+
+      it 'works' do
+
+        Subaltern.eval(%[
+          sum = 0
+          [ 1, 2, 3, 4 ].each { |e| sum = sum + e }
+          sum
+        ]).should == 10
+      end
+    end
+
+    describe '#inject' do
+
+      it 'works' do
+
+        Subaltern.eval(%[
+          [ 1, 2, 3 ].inject(0) { |sum, e| sum + e }
+        ]).should == 6
+      end
+    end
+
+    describe '#collect' do
+
+      it 'works' do
+
+        Subaltern.eval(%[
+          [ 1, 2, 3 ].collect { |e| e + 1 }
+        ]).should == [ 2, 3, 4 ]
+      end
+    end
+
+    describe '#select' do
+
+      it 'works' do
+
+        Subaltern.eval(%[
+          [ 1, 2, 3 ].select { |e| true }
+        ]).should == [ 1, 2, 3 ]
+
+        #Subaltern.eval(%[
+        #  [ 1, 2, 3, 4, 5, 6, 7, 8 ].select { |e| e.even? }
+        #]).should == [ 2, 4, 6, 8 ]
+      end
+    end
+  end
+end
+

data/spec/basics_spec.rb

@@ -0,0 +1,125 @@
+
+require 'spec_helper'
+
+
+describe Subaltern do
+
+  describe 'bad syntax' do
+
+    it 'raises a Racc::ParseError' do
+
+      lambda {
+        Subaltern.eval('adsfad:12')
+      }.should raise_error(Racc::ParseError)
+    end
+  end
+
+  describe 'a literal, a string, or a boolean' do
+
+    it 'is returned as is' do
+
+      [
+        1, "hello", 1.0, true, false, nil
+      ].each do |lit|
+        Subaltern.eval(lit.inspect).should == lit
+      end
+    end
+  end
+
+  describe 'ranges' do
+
+    it 'is returned as is' do
+
+      Subaltern.eval(%{
+        1..5
+      }).should == (1..5)
+    end
+  end
+
+  describe '==' do
+
+    it 'returns true or false' do
+
+      Subaltern.eval(%{
+        [ true == false, true == true, false == true, false == false ]
+      }).should == [ false, true, false, true ]
+    end
+  end
+
+  describe 'a sequence of code' do
+
+    it 'is executed line by line' do
+
+      Subaltern.eval(%{
+        1
+        2
+      }).should == 2
+    end
+
+    it 'is executed line by line' do
+
+      Subaltern.eval(%{
+        1; 2
+      }).should == 2
+    end
+  end
+
+  describe 'variable lookup' do
+
+    it 'works' do
+
+      Subaltern.eval('a', { 'a' => 1 }).should == 1
+    end
+  end
+
+  describe 'variable assignment' do
+
+    it 'works' do
+
+      Subaltern.eval(%{
+        a = 2; a
+      }).should == 2
+    end
+  end
+
+  describe 'using regular expressions' do
+
+    it 'works' do
+
+      Subaltern.eval(%{
+        /abc/.match('d')
+      }).should == nil
+
+      Subaltern.eval(%{
+        /abc/.match('myabcde')
+      }).class.should == MatchData
+
+      Subaltern.eval(%{
+        /(abc)/.match('abc')[1]
+      }).should == 'abc'
+    end
+  end
+
+  describe 'return' do
+
+    it 'is honored' do
+
+      Subaltern.eval(%{
+        'a'
+        return 'A'
+        'b'
+      }).should == 'A'
+    end
+  end
+
+  describe 'unary -' do
+
+    it 'works' do
+
+      Subaltern.eval(%{
+        [ 1 + -5, - 5 ]
+      }).should == [ -4, -5 ]
+    end
+  end
+end
+

data/spec/boolean_spec.rb

@@ -0,0 +1,129 @@
+
+require 'spec_helper'
+
+
+describe Subaltern do
+
+  describe 'true' do
+
+    it 'is returned as is' do
+
+      Subaltern.eval(%{
+        true
+      }).should == true
+    end
+  end
+
+  describe 'false' do
+
+    it 'is returned as is' do
+
+      Subaltern.eval(%{
+        false
+      }).should == false
+    end
+  end
+
+  describe 'not' do
+
+    it 'works' do
+
+      Subaltern.eval(%{
+        not true
+      }).should == false
+    end
+
+    it 'works (!)' do
+
+      Subaltern.eval(%{
+        ! true
+      }).should == false
+    end
+
+    it 'works (!!)' do
+
+      Subaltern.eval(%{
+        !! "nada"
+      }).should == true
+    end
+  end
+
+  describe 'or' do
+
+    it 'works' do
+
+      Subaltern.eval(%{
+        false or true
+      }).should == true
+    end
+
+    it 'works (||)' do
+
+      Subaltern.eval(%{
+        false || true
+      }).should == true
+    end
+  end
+
+  describe 'and' do
+
+    it 'works' do
+
+      Subaltern.eval(%{
+        true and true
+      }).should == true
+    end
+
+    it 'works (&&)' do
+
+      Subaltern.eval(%{
+        true && true
+      }).should == true
+    end
+  end
+
+  describe '==' do
+
+    it 'works' do
+
+      Subaltern.eval(%{
+        1 == 1
+      }).should == true
+    end
+
+    it 'works (2)' do
+
+      Subaltern.eval(%{
+        1 == 2
+      }).should == false
+    end
+  end
+
+  describe '!=' do
+
+    it 'works' do
+
+      Subaltern.eval(%{
+        1 != 1
+      }).should == false
+    end
+
+    it 'works (2)' do
+
+      Subaltern.eval(%{
+        1 != 2
+      }).should == true
+    end
+  end
+
+  describe '===' do
+
+    it 'works' do
+
+      Subaltern.eval(%{
+        String === ''
+      }).should == true
+    end
+  end
+end
+

data/spec/context_spec.rb

@@ -0,0 +1,23 @@
+
+require 'spec_helper'
+
+
+describe Subaltern do
+
+  describe Subaltern::Context do
+
+    describe '.new' do
+
+      it 'is OK not to pass initial variables' do
+
+        Subaltern::Context.new.eval('1 + 1').should == 2
+      end
+
+      it 'is OK to pass initial variables' do
+
+        Subaltern::Context.new('a' => 7).eval('a + 1').should == 8
+      end
+    end
+  end
+end
+