rattler 0.3.0 → 0.4.0

data/spec/rattler/back_end/parser_generator/back_reference_generator_spec.rb

@@ -0,0 +1,181 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../../spec_helper')
+
+include Rattler::BackEnd::ParserGenerator
+include Rattler::Parsers
+
+describe BackReferenceGenerator do
+
+  include ParserGeneratorSpecHelper
+
+  let(:ref) { BackReference[:a] }
+
+  let(:scope) { {:a => 'r0_2'} }
+
+  describe '#gen_basic' do
+
+    context 'when nested' do
+      it 'generates nested regex matching code' do
+        nested_code {|g| g.gen_basic ref, scope }.
+          should == '@scanner.scan(/#{r0_2}/)'
+      end
+    end
+
+    context 'when top-level' do
+      it 'generates top level regex matching code' do
+        top_level_code {|g| g.gen_basic ref, scope }.
+          should == '@scanner.scan(/#{r0_2}/)'
+      end
+    end
+  end
+
+  describe '#gen_assert' do
+
+    context 'when nested' do
+      it 'generates nested regex positive lookahead code' do
+        nested_code {|g| g.gen_assert ref, scope }.
+          should == '(@scanner.skip(/(?=#{r0_2})/) && true)'
+      end
+    end
+
+    context 'when top-level' do
+      it 'generates top level regex positive lookahead code' do
+        top_level_code {|g| g.gen_assert ref, scope }.
+          should == '@scanner.skip(/(?=#{r0_2})/) && true'
+      end
+    end
+  end
+
+  describe '#gen_disallow' do
+
+    context 'when nested' do
+      it 'generates nested regex negative lookahead code' do
+        nested_code {|g| g.gen_disallow ref, scope }.
+          should == '(@scanner.skip(/(?!#{r0_2})/) && true)'
+      end
+    end
+
+    context 'when top-level' do
+      it 'generates top level regex negative lookahead code' do
+        top_level_code {|g| g.gen_disallow ref, scope }.
+          should == '@scanner.skip(/(?!#{r0_2})/) && true'
+      end
+    end
+  end
+
+  describe '#gen_dispatch_action' do
+
+    let(:code) { NodeCode.new('Word', 'parsed') }
+
+    context 'when nested' do
+      it 'generates nested regex matching code with a dispatch action' do
+        nested_code {|g| g.gen_dispatch_action ref, code, scope }.
+          should == (<<-CODE).strip
+begin
+  (r = @scanner.scan(/\#{r0_2}/)) &&
+  Word.parsed([r], :labeled => {:a => r0_2})
+end
+          CODE
+      end
+    end
+
+    context 'when top-level' do
+      it 'generates top level regex matching code with a dispatch action' do
+        top_level_code {|g| g.gen_dispatch_action ref, code, scope }.
+          should == (<<-CODE).strip
+(r = @scanner.scan(/\#{r0_2}/)) &&
+Word.parsed([r], :labeled => {:a => r0_2})
+          CODE
+      end
+    end
+  end
+
+  describe '#gen_direct_action' do
+
+    let(:code) { ActionCode.new('|_| _.to_sym') }
+
+    context 'when nested' do
+      it 'generates nested regex matching code with a direct action' do
+        nested_code {|g| g.gen_direct_action ref, code, scope }.
+          should == (<<-CODE).strip
+begin
+  (r = @scanner.scan(/\#{r0_2}/)) &&
+  (r.to_sym)
+end
+          CODE
+      end
+    end
+
+    context 'when top-level' do
+      it 'generates top level regex matching code with a direct action' do
+        top_level_code {|g| g.gen_direct_action ref, code, scope }.
+          should == (<<-CODE).strip
+(r = @scanner.scan(/\#{r0_2}/)) &&
+(r.to_sym)
+          CODE
+      end
+    end
+  end
+
+  describe '#gen_token' do
+
+    context 'when nested' do
+      it 'generates nested regex matching code' do
+        nested_code {|g| g.gen_token ref, scope }.
+          should == '@scanner.scan(/#{r0_2}/)'
+      end
+    end
+
+    context 'when top-level' do
+      it 'generates top level regex matching code' do
+        top_level_code {|g| g.gen_token ref, scope }.
+          should == '@scanner.scan(/#{r0_2}/)'
+      end
+    end
+  end
+
+  describe '#gen_skip' do
+
+    context 'when nested' do
+      it 'generates nested regex skipping code' do
+        nested_code {|g| g.gen_skip ref, scope }.
+          should == '(@scanner.skip(/#{r0_2}/) && true)'
+      end
+    end
+
+    context 'when top-level' do
+      it 'generates top level regex skipping code' do
+        top_level_code {|g| g.gen_skip ref, scope }.
+          should == '@scanner.skip(/#{r0_2}/) && true'
+      end
+    end
+  end
+
+  describe '#gen_intermediate' do
+    it 'generates basic regex matching code' do
+      nested_code {|g| g.gen_intermediate ref, scope }.
+        should == '@scanner.scan(/#{r0_2}/)'
+    end
+  end
+
+  describe '#gen_intermediate_assert' do
+    it 'generates intermediate regex positive lookahead code' do
+      nested_code {|g| g.gen_intermediate_assert ref, scope }.
+        should == '@scanner.skip(/(?=#{r0_2})/)'
+    end
+  end
+
+  describe '#gen_intermediate_disallow' do
+    it 'generates intermediate regex negative lookahead code' do
+      nested_code {|g| g.gen_intermediate_disallow ref, scope }.
+        should == '@scanner.skip(/(?!#{r0_2})/)'
+    end
+  end
+
+  describe '#gen_intermediate_skip' do
+    it 'generates intermediate regex skipping code' do
+      nested_code {|g| g.gen_intermediate_skip ref, scope }.
+        should == '@scanner.skip(/#{r0_2}/)'
+    end
+  end
+
+end

data/spec/rattler/back_end/parser_generator/choice_generator_spec.rb

@@ -1,15 +1,16 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../../spec_helper')
 
+include Rattler::BackEnd::ParserGenerator
 include Rattler::Parsers
 
-describe Rattler::BackEnd::ParserGenerator::ChoiceGenerator do
-  
+describe ChoiceGenerator do
+
   include ParserGeneratorSpecHelper
-  
+
   let(:choice) { Choice[Match[/[[:alpha:]]+/], Match[/[[:digit:]]+/]] }
-  
+
   describe '#gen_basic' do
-    
+
     context 'when nested' do
       it 'generates nested choice matching code' do
         nested_code(:choice_level => 2) {|g| g.gen_basic choice }.
@@ -21,7 +22,7 @@ end
         CODE
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top-level choice matching code' do
         top_level_code(:choice_level => 0) {|g| g.gen_basic choice }.
@@ -32,9 +33,9 @@ end
       end
     end
   end
-  
+
   describe '#gen_assert' do
-    
+
     context 'when nested' do
       it 'generates nested choice positive lookahead code' do
         nested_code(:choice_level => 2) {|g| g.gen_assert choice }.
@@ -46,7 +47,7 @@ end && true)
         CODE
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top-level choice positive lookahead code' do
         top_level_code(:choice_level => 0) {|g| g.gen_assert choice }.
@@ -59,9 +60,9 @@ end && true
       end
     end
   end
-  
+
   describe '#gen_disallow' do
-    
+
     context 'when nested' do
       it 'generates nested choice negative lookahead code' do
         nested_code(:choice_level => 2) {|g| g.gen_disallow choice }.
@@ -73,7 +74,7 @@ end
         CODE
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top-level choice negative lookahead code' do
         top_level_code(:choice_level => 0) {|g| g.gen_disallow choice }.
@@ -86,12 +87,14 @@ end
       end
     end
   end
-  
+
   describe '#gen_dispatch_action' do
-    
+
+    let(:code) { NodeCode.new('Atom', 'parsed') }
+
     context 'when nested' do
       it 'generates nested choice matching code with a dispatch action' do
-        nested_code(:choice_level => 2) {|g| g.gen_dispatch_action choice, 'Atom', 'parsed' }.
+        nested_code(:choice_level => 2) {|g| g.gen_dispatch_action choice, code }.
           should == (<<-CODE).strip
 begin
   (r = begin
@@ -102,10 +105,10 @@ end
           CODE
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top-level choice matching code with a dispatch action' do
-        top_level_code(:choice_level => 0) {|g| g.gen_dispatch_action choice, 'Atom', 'parsed' }.
+        top_level_code(:choice_level => 0) {|g| g.gen_dispatch_action choice, code }.
           should == (<<-CODE).strip
 (r = begin
   @scanner.scan(/[[:alpha:]]+/) ||
@@ -115,12 +118,14 @@ end) && Atom.parsed([r])
       end
     end
   end
-  
+
   describe '#gen_direct_action' do
-    
+
+    let(:code) { ActionCode.new('|_| _.size') }
+
     context 'when nested' do
       it 'generates nested choice matching code with a direct action' do
-        nested_code(:choice_level => 2) {|g| g.gen_direct_action choice, ActionCode.new('|_| _.size') }.
+        nested_code(:choice_level => 2) {|g| g.gen_direct_action choice, code }.
           should == (<<-CODE).strip
 begin
   (r = begin
@@ -131,10 +136,10 @@ end
           CODE
       end
     end
-    
+
     context 'when top-level' do
       it 'generates nested choice matching code with a direct action' do
-        top_level_code(:choice_level => 0) {|g| g.gen_direct_action choice, ActionCode.new('|_| _.size') }.
+        top_level_code(:choice_level => 0) {|g| g.gen_direct_action choice, code }.
           should == (<<-CODE).strip
 (r = begin
   @scanner.scan(/[[:alpha:]]+/) ||
@@ -144,9 +149,9 @@ end) && (r.size)
       end
     end
   end
-  
+
   describe '#gen_token' do
-    
+
     context 'when nested' do
       it 'generates nested token choice matching code' do
         nested_code(:choice_level => 2) {|g| g.gen_token choice }.
@@ -158,7 +163,7 @@ end
         CODE
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top-level token choice matching code' do
         top_level_code(:choice_level => 0) {|g| g.gen_token choice }.
@@ -169,9 +174,9 @@ end
       end
     end
   end
-  
+
   describe '#gen_skip' do
-    
+
     context 'when nested' do
       it 'generates nested choice skipping code' do
         nested_code(:choice_level => 2) {|g| g.gen_skip choice }.
@@ -183,7 +188,7 @@ end && true)
         CODE
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top-level choice skipping code' do
         top_level_code(:choice_level => 0) {|g| g.gen_skip choice }.
@@ -196,7 +201,7 @@ end && true
       end
     end
   end
-  
+
   describe '#gen_intermediate' do
     it 'generates nested choice matching code' do
       nested_code(:choice_level => 2) {|g| g.gen_intermediate choice }.
@@ -208,7 +213,7 @@ end
       CODE
     end
   end
-  
+
   describe '#gen_intermediate_assert' do
     it 'generates intermediate choice positive lookahead code' do
       nested_code(:choice_level => 2) {|g| g.gen_intermediate_assert choice }.
@@ -220,7 +225,7 @@ end
       CODE
     end
   end
-  
+
   describe '#gen_intermediate_disallow' do
     it 'generates intermediate choice negative lookahead code' do
       nested_code(:choice_level => 2) {|g| g.gen_intermediate_disallow choice }.
@@ -232,7 +237,7 @@ end
       CODE
     end
   end
-  
+
   describe '#gen_intermediate_skip' do
     it 'generates intermediate choice skipping code' do
       nested_code(:choice_level => 2) {|g| g.gen_intermediate_skip choice }.
@@ -244,5 +249,5 @@ end
       CODE
     end
   end
-  
+
 end

data/spec/rattler/back_end/parser_generator/direct_action_generator_spec.rb

@@ -1,15 +1,16 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../../spec_helper')
 
+include Rattler::BackEnd::ParserGenerator
 include Rattler::Parsers
 
-describe Rattler::BackEnd::ParserGenerator::DirectActionGenerator do
-  
+describe DirectActionGenerator do
+
   include ParserGeneratorSpecHelper
-  
+
   let(:action) { DirectAction[Match[/\w+/], '|_| _.to_sym'] }
-  
+
   describe '#gen_basic' do
-    
+
     context 'when nested' do
       it 'generates nested matching code with a direct action' do
         nested_code {|g| g.gen_basic action }.
@@ -21,7 +22,7 @@ end
           CODE
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top level matching code with a direct action' do
         top_level_code {|g| g.gen_basic action }.
@@ -32,16 +33,16 @@ end
       end
     end
   end
-  
+
   describe '#gen_assert' do
-    
+
     context 'when nested' do
       it 'generates nested positive lookahead code' do
         nested_code {|g| g.gen_assert action }.
           should == '(@scanner.skip(/(?=\w+)/) && true)'
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top level positive lookahead code' do
         top_level_code {|g| g.gen_assert action }.
@@ -49,16 +50,16 @@ end
       end
     end
   end
-  
+
   describe '#gen_disallow' do
-    
+
     context 'when nested' do
       it 'generates nested negative lookahead code' do
         nested_code {|g| g.gen_disallow action }.
           should == '(@scanner.skip(/(?!\w+)/) && true)'
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top level negative lookahead code' do
         top_level_code {|g| g.gen_disallow action }.
@@ -66,12 +67,14 @@ end
       end
     end
   end
-  
+
   describe '#gen_dispatch_action' do
-    
+
+    let(:code) { NodeCode.new('Word', 'parsed') }
+
     context 'when nested' do
       it 'generates nested matching code with a direct action and a dispatch action' do
-        nested_code {|g| g.gen_dispatch_action action, 'Word', 'parsed' }.
+        nested_code {|g| g.gen_dispatch_action action, code }.
           should == (<<-CODE).strip
 begin
   (r = begin
@@ -83,10 +86,10 @@ end
           CODE
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top level matching code with a direct action and a dispatch action' do
-        top_level_code {|g| g.gen_dispatch_action action, 'Word', 'parsed' }.
+        top_level_code {|g| g.gen_dispatch_action action, code }.
           should == (<<-CODE).strip
 (r = begin
   (r = @scanner.scan(/\\w+/)) &&
@@ -97,12 +100,14 @@ Word.parsed([r])
       end
     end
   end
-  
+
   describe '#gen_direct_action' do
-    
+
+    let(:code) { ActionCode.new('|_| _.size') }
+
     context 'when nested' do
       it 'generates nested matching code with nested direct actions' do
-        nested_code {|g| g.gen_direct_action action, ActionCode.new('|_| _.size') }.
+        nested_code {|g| g.gen_direct_action action, code }.
           should == (<<-CODE).strip
 begin
   (r = begin
@@ -114,10 +119,10 @@ end
           CODE
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top level matching code with nested direct actions' do
-        top_level_code {|g| g.gen_direct_action action, ActionCode.new('|_| _.size') }.
+        top_level_code {|g| g.gen_direct_action action, code }.
           should == (<<-CODE).strip
 (r = begin
   (r = @scanner.scan(/\\w+/)) &&
@@ -128,16 +133,16 @@ end) &&
       end
     end
   end
-  
+
   describe '#gen_token' do
-    
+
     context 'when nested' do
       it 'generates nested token matching code' do
         nested_code {|g| g.gen_token action }.
           should == '@scanner.scan(/\w+/)'
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top level token matching code' do
         top_level_code {|g| g.gen_token action }.
@@ -145,16 +150,16 @@ end) &&
       end
     end
   end
-  
+
   describe '#gen_skip' do
-    
+
     context 'when nested' do
       it 'generates nested skipping code' do
         nested_code {|g| g.gen_skip action }.
           should == '(@scanner.skip(/\w+/) && true)'
       end
     end
-    
+
     context 'when top-level' do
       it 'generates top level skipping code' do
         top_level_code {|g| g.gen_skip action }.
@@ -162,7 +167,7 @@ end) &&
       end
     end
   end
-  
+
   describe '#gen_intermediate' do
     it 'generates nested matching code with a direct action' do
       nested_code {|g| g.gen_intermediate action }.
@@ -174,26 +179,26 @@ end
         CODE
     end
   end
-  
+
   describe '#gen_intermediate_assert' do
     it 'generates intermediate positive lookahead code' do
       nested_code {|g| g.gen_intermediate_assert action }.
         should == '@scanner.skip(/(?=\w+)/)'
     end
   end
-  
+
   describe '#gen_intermediate_disallow' do
     it 'generates intermediate negative lookahead code' do
       nested_code {|g| g.gen_intermediate_disallow action }.
         should == '@scanner.skip(/(?!\w+)/)'
     end
   end
-  
+
   describe '#gen_intermediate_skip' do
     it 'generates intermediate skipping code' do
       nested_code {|g| g.gen_intermediate_skip action }.
         should == '@scanner.skip(/\w+/)'
     end
   end
-  
+
 end