chirp 0.2.0 → 0.3

data/lib/chirp/span.rb

@@ -0,0 +1,38 @@
+module Chirp
+  class Span
+    BEFORE_SPAN = 0
+    IN_SPAN = 1
+    AFTER_SPAN = 2
+
+    def initialize(v1, v2)
+      v2 = 999999999999 unless v2
+      @p1 = predicate(v1)
+      @p2 = predicate(v2)
+      reset
+    end
+
+    def reset
+      @state = BEFORE_SPAN
+    end
+
+    def evaluate(context)
+      if @state == BEFORE_SPAN
+        @state = IN_SPAN if @p1.call(context)
+      end
+      ret = @state == IN_SPAN
+      if @state == IN_SPAN
+        @state = AFTER_SPAN if @p2.call(context)
+      end
+      ret
+    end
+
+    def predicate(value)
+      if value.kind_of?(Regexp)
+        return lambda {|context| value =~ context.line}
+      else
+        return lambda {|context| value == context.line_no}
+      end
+    end
+      
+  end
+end

data/test/account.dir/program.chirp

@@ -1,16 +1,19 @@
 #!/usr/bin/env chirp
+require 'pp'
 
 #
 # Simple bank acccount program, shows the use of fields
 #
-file do
-  before {@sum=0}
+each :path=>'input' do
+  before do
+    @sum=0
+  end
 
-  line(lambda{fields[0] =~ /credit/}) do
+  line :expr=>lambda{fields[0] =~ /credit/}  do
     @sum += fields[1].to_i
   end
 
-  line(lambda{fields[0] =~ /debit/}) do
+  line :expr=>lambda{fields[0] =~ /debit/}  do
     @sum -= fields[1].to_i
   end
 

data/test/action.dir/program.chirp

@@ -1,3 +1,3 @@
-file do
-  line(3) { puts "matched line #{line_no} text is #{line}" }
+each :path=>'input' do
+  line(:number=>3) { puts "matched line #{line_no} text is #{line}" }
 end

data/test/beforeafter.dir/program.chirp

@@ -1,7 +1,7 @@
-run { puts "before any processing" }
-file do
+now { puts "before any processing" }
+each :path=>'input' do
   before { puts "before file" }
   line
   after { puts "after file" }
 end
-run { puts "after any processing" }
+now { puts "after any processing" }

data/test/copy1.dir/output

@@ -0,0 +1,5 @@
+["source"]
+["source", "target"]
+==============
+These are the contents of infile
+These are the contents of infile

data/test/copy1.dir/program.chirp

@@ -0,0 +1,9 @@
+now { pp Dir['source', 'target'].sort }
+
+each :path=>'source', :output=>"target" do
+  line {puts line}
+end
+
+now { pp Dir['source', 'target'].sort }
+now { puts "==============" }
+now { puts File.read('target') }

data/test/copy1.dir/source

@@ -0,0 +1,2 @@
+These are the contents of infile
+These are the contents of infile

data/test/copy2.dir/output

@@ -0,0 +1,5 @@
+["source"]
+["source", "target"]
+==============
+These are the contents of infile
+These are the contents of infile

data/test/copy2.dir/program.chirp

@@ -0,0 +1,9 @@
+now { pp Dir['source', 'target'].sort }
+
+each_line :path=>"source", :output=>"target" do
+  puts line
+end
+
+now { pp Dir['source', 'target'].sort }
+now { puts "==============" }
+now { puts File.read('target') }

data/test/copy2.dir/source

@@ -0,0 +1,2 @@
+These are the contents of infile
+These are the contents of infile

data/test/copy3.dir/output

@@ -0,0 +1,5 @@
+["source"]
+["source", "target"]
+==============
+These are the contents of infile
+These are the contents of infile

data/test/copy3.dir/program.chirp

@@ -0,0 +1,7 @@
+now { pp Dir['source', 'target'].sort }
+
+copy :path=>"source", :output=>"target"
+
+now { pp Dir['source', 'target'].sort }
+now { puts "==============" }
+now { puts File.read('target') }

data/test/copy3.dir/source

@@ -0,0 +1,2 @@
+These are the contents of infile
+These are the contents of infile

data/test/copy_file.dir/a.txt

@@ -0,0 +1 @@
+Each path: a.txt output path: a.txt.new

data/test/copy_file.dir/b.txt

@@ -0,0 +1 @@
+Each path: b.txt output path: b.txt.new

data/test/copy_file.dir/c.txt

@@ -0,0 +1 @@
+Each path: c.txt output path: c.txt.new

data/test/copy_file.dir/output

@@ -0,0 +1,2 @@
+["a.txt", "b.txt", "c.txt"]
+["a.txt", "a.txt.new", "b.txt", "b.txt.new", "c.txt", "c.txt.new"]

data/test/copy_file.dir/program.chirp

@@ -0,0 +1,5 @@
+now { pp Dir['*.txt*'].sort }
+
+copy :name=>'*.txt', :type=>:file, :output=>'%p.new'
+
+now { pp Dir['*.txt*'].sort }

data/test/fields.dir/program.chirp

@@ -1,5 +1,5 @@
 require 'pp'
 
-file do
-  line { pp fields }
+each_line :path=>'input' do
+  pp fields
 end

data/test/fields_sep.dir/program.chirp

@@ -1,6 +1,5 @@
 require 'pp'
 
-file do
-  field_separator ':'
+each :path=>'input', :field_separator=>':' do
   line { pp fields }
 end

data/test/files.dir/output

@@ -1,2 +1,5 @@
 paths: a.txtb.txt
 paths: a.txtb.txt
+===================
+path: a.txt
+path: b.txt

data/test/files.dir/program.chirp

@@ -1,6 +1,10 @@
 
-files "*.txt"
+each_line :path=>'*.txt' do
+  puts "paths: #{paths}"
+end
+
+now {puts "==================="}
 
-file do
-  line {puts "paths: #{paths}"}
+each_file :path=>'*.txt' do
+  puts "path: #{path}"
 end

data/test/fs_expr.dir/aa.txt

@@ -0,0 +1 @@
+123456789

data/test/fs_expr.dir/bb.txt

@@ -0,0 +1,9 @@
+total 24
+-rw-r--r-- 1 rolsen rolsen   10 2007-12-13 14:35 aa.txt
+-rw-r--r-- 1 rolsen rolsen    0 2007-12-13 14:54 bb.txt
+drwxr-xr-x 3 rolsen rolsen 4096 2007-12-13 14:33 dir1
+-rw-r--r-- 1 rolsen rolsen    0 2007-12-13 14:33 input
+-rw-r--r-- 1 rolsen rolsen  183 2007-12-13 14:33 output
+-rw-r--r-- 1 rolsen rolsen   69 2007-12-13 14:53 program.chirp
+-rw-r--r-- 1 rolsen rolsen  183 2007-12-13 14:33 qq
+-rw-r--r-- 1 rolsen rolsen  389 2007-12-13 14:33 zzz

data/test/fs_expr.dir/dir1/dir2/dir3/a.txt

@@ -0,0 +1 @@
+example file

data/test/fs_expr.dir/output

@@ -0,0 +1,7 @@
+aa.txt
+=========
+aa.txt
+bb.txt
+=========
+dir1
+=========

data/test/fs_expr.dir/program.chirp

@@ -0,0 +1,17 @@
+
+each_path :path=>"*.txt", :fsexp=>length(10) do
+  puts path
+end
+
+now {puts "========="}
+
+each_path :path=>"*.txt", :fsexp=>bigger(1) do
+  puts path
+end
+
+now {puts "========="}
+each_path :path=>"dir*", :fsexp=>dir? do
+  puts path
+end
+
+now {puts "========="}

data/test/inplace.dir/program.chirp

@@ -1,9 +1,7 @@
-files "*.txt"
+now { puts "before any processing" }
 
-run { puts "before any processing" }
-file do
-  edit_in_place
+each :path=>'*.txt', :output=>'%p' do
   line { puts line.upcase }
 end
-run { puts File.read('a.txt') }
-run { puts File.read('b.txt') }
+now { puts File.read('a.txt') }
+now { puts File.read('b.txt') }

data/test/line_no.dir/output

@@ -1 +1,2 @@
 33
+11

data/test/line_no.dir/program.chirp

@@ -1 +1,5 @@
-file {line(3)}
+each_line :path=>'input', :number=>3
+
+each :path=>'in*' do
+  line :number=>1
+end

data/test/match.dir/program.chirp

@@ -1 +1 @@
-file { line(/abc/) }
+each_line :path=>'input', :pattern=>/abc/

data/test/path.dir/dir1/dir2/dir3/a.txt

@@ -0,0 +1 @@
+example file

data/test/path.dir/new

@@ -0,0 +1,5 @@
+starting_with 'dir1'
+
+each :path=>'dir1/**/*.txt' do
+  before { puts "path: #{path}" }
+end

data/test/path.dir/output

@@ -0,0 +1,20 @@
+path: dir1/dir2/dir3/a.txt
+dirname: dir1/dir2/dir3
+basename: a.txt
+extname: .txt
+name: a
+full_path: ./dir1/dir2/dir3/a.txt
+path_name: dir1/dir2/dir3/a.txt
+path_name.class: Pathname
+full_path_name: ./dir1/dir2/dir3/a.txt
+full_path_name.class: Pathname
+path: dir1/dir2/dir3/a.txt
+====================
+dir1/dir2/dir3/a.txt
+====================
+dir2/dir3
+====================
+dir1/dir2/dir3/a.txt
+====================
+foo.txt
+this is the foo file

data/test/path.dir/program.chirp

@@ -0,0 +1,44 @@
+each :path=>'dir1/**/*.txt' do
+  before { puts "path: #{path}" }
+  before { puts "dirname: #{dirname}" }
+  before { puts "basename: #{basename}" }
+  before { puts "extname: #{extname}" }
+  before { puts "name: #{name}" }
+  before { puts "full_path: #{full_path}" }
+  before { puts "path_name: #{path_name}" }
+  before { puts "path_name.class: #{path_name.class}" }
+  before { puts "full_path_name: #{full_path_name}" }
+  before { puts "full_path_name.class: #{full_path_name.class}" }
+  path { puts "path: #{path}" }
+end
+
+now {puts "===================="}
+
+each :path=>/dir1.*txt$/ do
+  path {puts path}
+end
+
+now {puts "===================="}
+
+now do
+  rm_rf 'dir2'
+  mkdir_p 'dir2/dir3/dir4'
+end
+
+each :dir=>'dir2' do
+  path {puts path}
+end
+
+now {puts "===================="}
+
+each :path=>/dir1.*txt$/ do
+  file {puts path}
+end
+
+now {puts "===================="}
+
+each :path=>'*.txt', :contains=>/foo/ do
+  path {puts path}
+  path {puts contents}
+end
+

data/test/proc.dir/program.chirp

@@ -1,3 +1,3 @@
-file do
-  line(lambda{/russ/=~fields[0]})
+each :path=>'input' do
+  line(:expr=>lambda{/russ/=~fields[0]})
 end

data/test/rename_file.dir/a.txt

@@ -0,0 +1,4 @@
+a.txt
+input
+output
+program.chirp

data/test/rename_file.dir/b.txt

@@ -0,0 +1,4 @@
+a.txt
+input
+output
+program.chirp

data/test/rename_file.dir/c.txt

@@ -0,0 +1,4 @@
+a.txt
+input
+output
+program.chirp