redparse 0.8.0

data/lib/redparse/problemfiles.rb

@@ -0,0 +1,84 @@
+=begin           
+    redparse - a ruby parser written in ruby
+    Copyright (C) 2008  Caleb Clausen
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Lesser General Public
+    License as published by the Free Software Foundation; either
+    version 2.1 of the License, or (at your option) any later version.
+
+    This library is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public
+    License along with this library; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+=end
+
+class CachedResults
+  def initialize(name="problemfiles")
+    @bad2offset={}
+    @good2offset={}
+
+    #read list from disk
+    @file=File.open(name,File.exist?(name) ? "r+" : "w+")
+    until @file.eof?
+      at=@file.pos
+      line=@file.readline
+      if line[0]==?# 
+        @good2offset[line[1...-1]]=at
+      else
+        @bad2offset[line[1...-1]]=at
+      end
+    end
+  end
+
+  def bad! pf
+    @bad2offset[pf] and return self
+
+    if pos=@good2offset.delete(pf)
+      @bad2offset[pf]=pos
+      @file.pos=pos
+      @file.putc ' '
+    else
+      @file.seek(0,IO::SEEK_END)
+      @bad2offset[pf]=@file.pos
+      @file.puts " "+pf
+    end
+    @file.flush
+
+    return self
+  end
+
+  def good! pf
+    @good2offset[pf] and return self
+
+    if offset=@bad2offset.delete(pf)
+      @good2offset[pf]=offset
+      @file.pos=offset
+      @file.putc '#'
+    else
+      @file.seek(0,IO::SEEK_END)
+      @good2offset[pf]=@file.pos
+      @file.puts "#"+pf
+    end
+    @file.flush
+    return pf
+  end
+
+  def badlist
+    @bad2offset.keys 
+  end
+
+  def goodlist
+    @good2offset.keys
+  end
+end
+
+class ProblemFiles < CachedResults #old interface
+  alias push bad!
+  alias delete good!
+  alias list badlist
+end

data/lib/redparse/reg_more_sugar.rb

@@ -0,0 +1,99 @@
+=begin           
+    redparse - a ruby parser written in ruby
+    Copyright (C) 2008  Caleb Clausen
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU Lesser General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU Lesser General Public License for more details.
+
+    You should have received a copy of the GNU Lesser General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+=end
+
+  unless defined? ::Reg::Transform and ::Reg::Transform.ancestors.include? ::Reg::HasCmatch
+  #hack, until support for this syntax makes it into the release of reg
+    module ::Reg
+      class Transform;
+        def initialize(left,right)
+          @left,@right=left,right
+        end
+        attr_reader :left,:right
+      end
+      module Reg
+        def >>(rep)
+          Transform.new(self,rep)
+        end
+      end
+    end    
+  end
+
+  unless ::Reg::Reg.instance_methods.include? "lb"
+    module ::Reg
+      module Reg
+        def lb
+          LookBack.new(self)
+        end
+      end
+      class LookBack
+        def initialize(reg)
+          @reg=reg
+        end
+
+        def regs(i)
+          @reg
+        end
+
+        def itemrange
+          0..0
+        end
+      end
+    end 
+  end
+ 
+  unless ::Reg::Reg.instance_methods.include? "la"
+    module ::Reg
+      module Reg
+        def la
+          LookAhead.new(self)
+        end
+      end
+      class LookAhead
+        def initialize(reg)
+          @reg=reg
+        end
+
+        def regs(i)
+          @reg
+        end
+
+        def itemrange
+          0..0
+        end
+      end
+    end 
+  end
+
+  unless ::Reg::Reg.instance_methods.include? "watch"
+    module ::Reg
+      module Reg
+        def watch
+          result=dup
+          class<<result
+            def ===(other)
+              result=super
+              result and p other
+              return result            
+            end
+          end
+          return result
+        end
+      end
+    end
+  end
+

data/nurli/test_control.nurli

@@ -0,0 +1,261 @@
+#;; test_control.nurli
+#;;  tests for Nurli control structures.
+#;;
+#;;  Copyright (c) 2007 Tim Burks, Neon Design Technology, Inc.
+#(converted from nu to nurli by caleb clausen)
+
+load "test"
+
+class TestControl < NuTestCase
+     
+     def testIf #(id)
+          x=0
+          if x==0 then y=0; y+=1
+                   y+=1
+          else if x==1 then  y=10; y+=1 
+                   y+=1
+               else  y=100; y+=1
+               end
+          end
+          assert_equal 2, y
+
+          x=1
+          if x==0 then y=0; y+=1
+                   y+=1
+          else if x==1 then  y=10; y+=1 
+                   y+=1
+               else  y=100; y+=1
+               end
+          end
+          assert_equal 12, y
+
+          x=2
+          if x==0 then y=0; y+=1
+                   y+=1
+          else if x==1 then  y=10; y+=1 
+                   y+=1
+               else  y=100; y+=1
+               end
+          end
+          assert_equal 101, y          
+     end
+     
+     def testUnless  #(id)
+          x=0
+          unless x!=0 then y=0; y+=1
+                   y+=1
+          else unless x!=1 then  y=10; y+=1 
+                   y+=1
+               else  y=100; y+=1
+               end
+          end
+          assert_equal 2, y
+
+          x=1
+          unless x!=0 then y=0; y+=1
+               y+=1
+          else unless x!=1 then  y=10; y+=1 
+               y+=1
+               else  y=100; y+=1
+               end
+          end
+          assert_equal 12, y
+
+          x=2
+          unless x!=0 then y=0; y+=1
+               y+=1
+          else unless x!=1 then  y=10; y+=1 
+               y+=1
+               else  y=100; y+=1
+               end
+          end
+          assert_equal 101, y
+       end
+     
+     def testWhile #(id)
+       x=10
+       y=0
+       while x
+         y+=x
+         x-=1
+       end
+       assert_equal 55,y
+     end
+     
+     def testUntil #(id)
+       x=10
+       y=0
+       until x==0
+         y+=x
+         x-=1
+       end
+       assert_equal 55,y
+     end
+     
+     def testWhileBreak #(id)
+       $count=0
+       x=10
+       while(x!=0)
+         x-=1
+         y=10
+         while(y!=0)
+           y-=1
+           $count+=1
+           break if y==5
+         end
+       end
+       assert_equal 50, $count
+     end
+     
+     def testWhileContinue #(id)
+       $count=0
+       x=10
+       while(x!=0)
+         x-=1
+         y=10
+         while(y!=0)
+           y-=1
+           continue if y>=5
+           $count+=1
+         end
+       end
+       assert_equal 50, $count
+     end
+     
+     
+     def testUntilBreak #(id)
+       $count=0
+       x=10
+       until(x==0)
+         x-=1
+         y=10
+         until(y==0)
+           y-=1
+           $count+=1
+           break if y==5
+         end
+       end
+       assert_equal 50, $count
+     end
+     
+     def testUntilContinue #(id)
+       $count=0
+       x=10
+       until(x==0)
+         x-=1
+         y=10
+         until(y==0)
+           y-=1
+           continue if y>=5
+           $count+=1
+         end
+       end
+       assert_equal 50, $count
+     end
+
+=begin cant do these yet, sorry     
+     (imethod (id) testLoopMacro is
+          ;; here is a simple macro defining an unending loop
+          (macro loop (eval (append '(while t) margs)))
+          ;; here's a macro that decrements a named value
+          (macro decrement (set (unquote (margs car)) (- (unquote (margs car)) 1)))
+          ;; here's a macro that increments a named value
+          (macro increment (set (unquote (margs car)) (+ (unquote (margs car)) 1)))
+          ;; run the loop, breaking out after 5 iterations
+          (set count 0)
+          (set x 10)
+          (loop
+               (decrement x)
+               (increment count)
+               (if (eq x 5) (break)))
+          (assert_equal 5 count)
+          ;; run the loop, breaking out after 10 iterations
+          ;; but only counting until the loop counter (x) drops below 5
+          (set count 0)
+          (set x 10)
+          (loop
+               (decrement x)
+               (if (eq x 0) (break))
+               (if (< x 5) (continue))
+               (increment count))
+          (assert_equal 5 count))
+     
+     (imethod (id) testFor is
+          (set x 0)
+          (for ((set i 1) (< i 10) (set i (+ i 1)))
+               (set x (+ x i)))
+          (assert_equal 45 x))
+     
+     (imethod (id) testForBreak is
+          (set x 0)
+          (for ((set i 1) (< i 10) (set i (+ i 1)))
+               (if (== i 6) (break))
+               (set x (+ x i)))
+          (assert_equal 15 x))
+     
+     (imethod (id) testForContinue is
+          (set x 0)
+          (for ((set i 1) (< i 10) (set i (+ i 1)))
+               (if (== i 6) (continue))
+               (set x (+ x i)))
+          (assert_equal 39 x))
+=end
+
+     def testCond #(id)
+       x=0
+       assert_equal 1,
+         if x==0: y=0; y+=1
+         elsif x==1: y=10; y+=1
+         else y=100; y+=1
+         end     
+
+       x=1
+       assert_equal 11,
+         if x==0: y=0; y+=1
+         elsif x==1: y=10; y+=1
+         else y=100; y+=1
+         end     
+
+       x=2
+       assert_equal 101,
+         if x==0: y=0; y+=1
+         elsif x==1: y=10; y+=1
+         else y=100; y+=1
+         end     
+
+         # ;; test fallthrough          
+
+       assert_equal(1,(if 1; 1 else 2 end))
+       assert_equal(1,(if 0; 0 elsif 1; 1 else 2 end))
+       assert_equal(2,(if 0; 0 elsif 0; 0 else 2 end))
+     end
+
+     def testCase
+       x=0
+       assert_equal 1,
+         case x
+         when 0: y=0;y+=1
+         when 1: y=10;y+=1
+         else    y=100;y+=1
+         end
+
+       x=1
+       assert_equal 11,
+         case x
+         when 0: y=0;y+=1
+         when 1: y=10;y+=1
+         else    y=100;y+=1
+         end
+
+       x=2
+       assert_equal 101,
+         case x
+         when 0: y=0;y+=1
+         when 1: y=10;y+=1
+         else    y=100;y+=1
+         end
+     end          
+end
+
+
+NuTestCase.runAllTests

data/redparse.vpj

@@ -0,0 +1,92 @@
+<!DOCTYPE Project SYSTEM "http://www.slickedit.com/dtd/vse/10.0/vpj.dtd">
+<Project
+	Version="10.0"
+	VendorName="SlickEdit"
+	WorkingDir=".">
+	<Config
+		Name="Release"
+		OutputFile=""
+		CompilerConfigName="Latest Version">
+		<Menu>
+			<Target
+				Name="Compile"
+				MenuCaption="&amp;Compile"
+				CaptureOutputWith="ProcessBuffer"
+				SaveOption="SaveCurrent"
+				RunFromDir="%rw">
+				<Exec/>
+			</Target>
+			<Target
+				Name="Build"
+				MenuCaption="&amp;Build"
+				CaptureOutputWith="ProcessBuffer"
+				SaveOption="SaveWorkspaceFiles"
+				RunFromDir="%rw">
+				<Exec/>
+			</Target>
+			<Target
+				Name="Rebuild"
+				MenuCaption="&amp;Rebuild"
+				CaptureOutputWith="ProcessBuffer"
+				SaveOption="SaveWorkspaceFiles"
+				RunFromDir="%rw">
+				<Exec/>
+			</Target>
+			<Target
+				Name="Debug"
+				MenuCaption="&amp;Debug"
+				SaveOption="SaveNone"
+				RunFromDir="%rw">
+				<Exec/>
+			</Target>
+			<Target
+				Name="Execute"
+				MenuCaption="E&amp;xecute"
+				SaveOption="SaveNone"
+				RunFromDir="%rw">
+				<Exec CmdLine='".exe"'/>
+			</Target>
+		</Menu>
+	</Config>
+	<CustomFolders>
+		<Folder
+			Name="Source Files"
+			Filters="*.c;*.C;*.cc;*.cpp;*.cp;*.cxx;*.prg;*.pas;*.dpr;*.asm;*.s;*.bas;*.java;*.cs;*.sc;*.e;*.cob;*.html;*.rc;*.tcl;*.py;*.pl;*.rb">
+		</Folder>
+		<Folder
+			Name="Header Files"
+			Filters="*.h;*.H;*.hh;*.hpp;*.hxx;*.inc;*.sh;*.cpy;*.if"/>
+		<Folder
+			Name="Resource Files"
+			Filters="*.ico;*.cur;*.dlg"/>
+		<Folder
+			Name="Bitmaps"
+			Filters="*.bmp"/>
+		<Folder
+			Name="Other Files"
+			Filters="">
+		</Folder>
+	</CustomFolders>
+	<Files AutoFolders="DirectoryView">
+		<Folder Name="bin">
+			<F N="bin/redparse"/>
+		</Folder>
+		<Folder Name="lib">
+			<Folder Name="redparse">
+				<F N="lib/redparse/babynodes.rb"/>
+				<F N="lib/redparse/babyparser.rb"/>
+				<F N="lib/redparse/decisiontree.rb"/>
+				<F N="lib/redparse/node.rb"/>
+				<F N="lib/redparse/reg_more_sugar.rb"/>
+				<F N="lib/redparse/version.rb"/>
+			</Folder>
+			<F N="lib/redparse.rb"/>
+		</Folder>
+		<Folder Name="test">
+			<F N="test/problemfiles.rb"/>
+			<F N="test/rp-locatetest.rb"/>
+			<F N="test/test_redparse.rb"/>
+		</Folder>
+		<F N="README.txt"/>
+	</Files>
+</Project>