chirp 0.2.0 → 0.3

data/test/rename_file.dir/output

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

data/test/rename_file.dir/program.chirp

@@ -0,0 +1,7 @@
+
+now { pp Dir['*.txt*'].sort }
+
+mv :path=>"*.txt", :output=>'%p.new'
+
+
+now { pp Dir['*.txt*'].sort }

data/test/requires.rb

@@ -0,0 +1,6 @@
+require 'chirp/pathmap'
+require 'chirp/path_filter'
+require 'chirp/span'
+require 'chirp/context'
+require 'chirp/fs_expression'
+require 'chirp/application'

data/test/span.dir/program.chirp

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

data/test/span2.dir/program.chirp

@@ -1 +1,3 @@
-file {line(2,/end/)}
+each :path=>'input' do
+  line :start=>2, :end=>/end/
+end

data/test/string.dir/program.chirp

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

data/test/test_application.rb

@@ -3,8 +3,12 @@
 require 'test/unit'
 require 'stringio'
 require 'fileutils'
+require 'set'
+require 'find'
+require 'requires'
 
-TEST_DIR=File.dirname(__FILE__)
+
+TEST_DIR=File.dirname(__FILE__) unless self.class.const_defined?(:TEST_DIR)
 TEMP_DIR=File.join(TEST_DIR, 'temp')
 
 class TestApplication < Test::Unit::TestCase
@@ -22,16 +26,17 @@ class TestApplication < Test::Unit::TestCase
     FileUtils.cp_r(dir, TEMP_DIR)
 
     program = File.read(File.join(TEMP_DIR, 'program.chirp'))
-    input = File.read(File.join(TEMP_DIR, 'input'))
-    expected_output = File.read(File.join(TEMP_DIR, 'output'))
-    
-    app = Application.new(program)
-    in_stream = StringIO.new(input)
-    out_stream = StringIO.new
+    output_stream = StringIO.new
 
-    FileUtils.chdir(TEMP_DIR) {app.evaluate(in_stream, out_stream)}
+    app = Application.new
+    
+    FileUtils.chdir(TEMP_DIR) do 
+      app.program(File.read('program.chirp'))
+      app.execute($stdin, output_stream)
+      expected_output = File.read('output')
+      assert_equal(expected_output, output_stream.string)
+    end
 
-    assert_equal(expected_output, out_stream.string)
   end
 
   Dir.glob("#{TEST_DIR}/*.dir").each do |dir|

data/test/test_fs_expression.rb

@@ -0,0 +1,99 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'chirp/fs_expression'
+require 'fileutils'
+
+
+TEST_DIR=File.dirname(__FILE__) unless self.class.const_defined?(:TEST_DIR)
+
+def File.write(path, string='')
+  File.open(path, 'w') {|f| f.print(string)}
+end
+
+
+
+class TestFSExpression < Test::Unit::TestCase
+
+  include Chirp::FSSugar
+
+  def setup
+    FileUtils.chdir(TEST_DIR) do
+      File.write('empty_file')
+      File.write('one_byte', 'x')
+      File.write('one_line', "hello out there\n")
+    end
+  end    
+    
+  def test_length
+    assert  eval_fs_expression(length(0), 'empty_file') 
+    assert !eval_fs_expression(length(1), 'empty_file') 
+    assert !eval_fs_expression(length(2), 'empty_file') 
+  end
+
+  def test_bigger
+    assert !eval_fs_expression(bigger(0), 'empty_file') 
+    assert eval_fs_expression(bigger(0), 'one_byte') 
+    assert !eval_fs_expression(bigger(1), 'one_byte') 
+  end
+
+  def test_smaller
+    assert !eval_fs_expression(smaller(0), 'empty_file') 
+    assert eval_fs_expression(smaller(1), 'empty_file') 
+    assert !eval_fs_expression(smaller(0), 'one_byte') 
+    assert !eval_fs_expression(smaller(1), 'one_byte') 
+    assert eval_fs_expression(smaller(10), 'one_byte') 
+  end
+
+  def test_file
+    assert eval_fs_expression(file?, 'empty_file') 
+    assert eval_fs_expression(file?, 'one_line') 
+    assert !eval_fs_expression(file?, '.') 
+  end
+
+  def test_dir
+    assert !eval_fs_expression(dir?, 'empty_file') 
+    assert !eval_fs_expression(dir?, 'one_line') 
+    assert eval_fs_expression(dir?, '.') 
+  end
+
+  def test_and
+    assert   eval_fs_expression( all & all, 'empty_file') 
+    assert ! eval_fs_expression( all & none, 'empty_file') 
+    assert   eval_fs_expression( file? & file?, 'empty_file') 
+    assert ! eval_fs_expression( file? & dir?, 'empty_file') 
+  end
+
+  def test_or
+    assert   eval_fs_expression( all | all, 'empty_file') 
+    assert   eval_fs_expression( all | none, 'empty_file') 
+    assert ! eval_fs_expression( none | none, 'empty_file') 
+    assert   eval_fs_expression( file? | file?, 'empty_file') 
+    assert ! eval_fs_expression( none | dir?, 'empty_file') 
+  end
+
+  def test_contains
+    assert   eval_fs_expression( contains(/hello/), 'one_line')
+    assert   eval_fs_expression( contains(/out/), 'one_line')
+    assert   eval_fs_expression( contains(/t[hH].*e/), 'one_line')
+
+    assert  !eval_fs_expression( contains(/XX/), 'one_line')
+    assert  !eval_fs_expression( contains(/foo/), 'one_line')
+    assert  !eval_fs_expression( contains(/bar/), 'one_line')
+  end
+
+  def test_not
+    assert  !eval_fs_expression( except(all), 'empty_file') 
+    assert   eval_fs_expression( except(none), 'empty_file') 
+    assert   eval_fs_expression( except(named('foo')), 'empty_file') 
+    assert  !eval_fs_expression( except(named('empty_file')), 'empty_file') 
+    assert  !eval_fs_expression( ~(named('empty_file')), 'empty_file') 
+  end
+
+  def eval_fs_expression(expr, path)
+    FileUtils.chdir(TEST_DIR) do
+      return expr.evaluate(path)
+    end
+  end
+  
+end

data/test/test_span.rb

@@ -0,0 +1,36 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'chirp/context'
+require 'chirp/span'
+
+class TestSpan < Test::Unit::TestCase
+
+  def test_span
+
+    c = Chirp::Context.new()
+    sp = Chirp::Span.new(10, /abc/)
+    c.line = 'junk'
+
+    0.upto(9) do |n|
+      c.line_no = n
+      assert ! sp.evaluate(c)
+    end
+
+    c.line_no = 10
+    assert sp.evaluate(c)
+
+    10.times do 
+       c.line += 'X'
+       assert sp.evaluate(c)
+    end
+
+    c.line = 'this line matches abc 123'
+    assert sp.evaluate(c)
+
+    10.times do |n|
+      c.line = 'foo' + n.to_s
+      assert ! sp.evaluate(c)
+    end
+  end
+end

metadata

@@ -1,17 +1,17 @@
 --- !ruby/object:Gem::Specification 
-rubygems_version: 0.8.10
+rubygems_version: 0.9.4
 specification_version: 1
 name: chirp
 version: !ruby/object:Gem::Version 
-  version: 0.2.0
-date: 2007-11-25
+  version: "0.3"
+date: 2007-12-19 00:00:00 -05:00
 summary: Chirp is a Ruby based text processing DSL similar to awk
 require_paths: 
 - lib
 email: russ@russolsen.com
 homepage: http://www.zenspider.com/ZSS/Products/chirp/
 rubyforge_project: chirp
-description: The author was too lazy to write a description
+description: "== FEATURES/PROBLEMS:  Chirp is a DSL for manipulating file systems. In the same way that rake is aimed at making system buildig easy, chirp is designed to make doing things to entire file systems easy.   Chirp is still very much in development and you should be very careful with it: since chirp does operate on whole directory trees, it is capable of doing a lot of damage.  == SYNOPSIS:  FIX (code sample of usage)"
 autorequire: 
 default_executable: 
 bindir: bin
@@ -23,6 +23,9 @@ required_ruby_version: !ruby/object:Gem::Version::Requirement
       version: 0.0.0
   version: 
 platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
 authors: 
 - Russ Olsen
 files: 
@@ -33,8 +36,17 @@ files:
 - bin/chirp
 - lib/chirp.rb
 - lib/chirp/application.rb
-- lib/chirp/statement.rb
-- test/test_statement.rb
+- lib/chirp/pathmap.rb
+- lib/chirp/context.rb
+- lib/chirp/fs_expression.rb
+- lib/chirp/span.rb
+- lib/chirp/path_filter.rb
+- test/copy_file.dir/output
+- test/copy_file.dir/input
+- test/copy_file.dir/program.chirp
+- test/copy_file.dir/a.txt
+- test/copy_file.dir/b.txt
+- test/copy_file.dir/c.txt
 - test/test_application.rb
 - test/span.dir/output
 - test/span.dir/input
@@ -81,9 +93,43 @@ files:
 - test/account.dir/program.chirp
 - test/account.dir/output
 - test/account.dir/input
+- test/path.dir/output
+- test/path.dir/input
+- test/path.dir/program.chirp
+- test/path.dir/new
+- test/path.dir/dir1/dir2/dir3/a.txt
+- test/test_span.rb
+- test/rename_file.dir/output
+- test/rename_file.dir/input
+- test/rename_file.dir/program.chirp
+- test/rename_file.dir/a.txt
+- test/rename_file.dir/b.txt
+- test/rename_file.dir/c.txt
+- test/copy1.dir/program.chirp
+- test/copy1.dir/source
+- test/copy1.dir/input
+- test/copy1.dir/output
+- test/copy2.dir/program.chirp
+- test/copy2.dir/source
+- test/copy2.dir/input
+- test/copy2.dir/output
+- test/copy3.dir/program.chirp
+- test/copy3.dir/source
+- test/copy3.dir/input
+- test/copy3.dir/output
+- test/test_fs_expression.rb
+- test/fs_expr.dir/output
+- test/fs_expr.dir/input
+- test/fs_expr.dir/program.chirp
+- test/fs_expr.dir/dir1/dir2/dir3/a.txt
+- test/fs_expr.dir/bb.txt
+- test/fs_expr.dir/aa.txt
+- test/fs_expr.dir/cc.txt
+- test/requires.rb
 test_files: 
-- test/test_statement.rb
 - test/test_application.rb
+- test/test_fs_expression.rb
+- test/test_span.rb
 rdoc_options: 
 - --main
 - README.txt
@@ -91,10 +137,21 @@ extra_rdoc_files:
 - History.txt
 - Manifest.txt
 - README.txt
+- test/copy_file.dir/a.txt
+- test/copy_file.dir/b.txt
+- test/copy_file.dir/c.txt
 - test/inplace.dir/a.txt
 - test/inplace.dir/b.txt
 - test/files.dir/b.txt
 - test/files.dir/a.txt
+- test/path.dir/dir1/dir2/dir3/a.txt
+- test/rename_file.dir/a.txt
+- test/rename_file.dir/b.txt
+- test/rename_file.dir/c.txt
+- test/fs_expr.dir/dir1/dir2/dir3/a.txt
+- test/fs_expr.dir/bb.txt
+- test/fs_expr.dir/aa.txt
+- test/fs_expr.dir/cc.txt
 executables: 
 - chirp
 extensions: []

data/lib/chirp/statement.rb

@@ -1,91 +0,0 @@
-#
-# Copyright 2006-2007 Russell Olsen
-# Chirp is distributed under the same license as Ruby itself.
-#
-
-module Chirp
-
-  class StringPredicate
-    def initialize(string)
-      @string = string
-    end
-
-    def evaluate(context)
-      context.line == @string
-    end
-  end
-
-  class LambdaPredicate
-    def initialize(proc)
-      @proc = proc
-    end
-
-    def evaluate(context)
-      context.execute(@proc)
-    end
-  end
-
-  class LineNumberPredicate
-    def initialize(line_no)
-      @line_no = line_no
-    end
-
-    def evaluate(context)
-      context.line_no == @line_no
-    end
-  end
-
-  class MatchPredicate
-    def initialize(regex)
-      @regex = regex
-    end
-
-    def evaluate(context)
-      context.line =~ @regex
-    end
-  end
-
-  class RangePredicate
-    def initialize(range)
-      @range = range
-    end
-
-    def evaluate(context)
-      @range.===(context.line_no)
-    end
-  end
-
-  class SpanPredicate
-    BEFORE_SPAN = 0
-    IN_SPAN = 1
-    AFTER_SPAN = 2
-
-    def initialize(p1, p2)
-      @p1 = p1
-      @p2 = p2
-      @state = BEFORE_SPAN
-    end
-
-    def evaluate(context)
-      if @state == BEFORE_SPAN
-        @state = IN_SPAN if @p1.evaluate(context)
-      end
-      ret = @state == IN_SPAN
-      if @state == IN_SPAN
-        @state = AFTER_SPAN if @p2.evaluate(context)
-      end
-      ret
-    end
-  end
-
-  class Statement
-    def initialize(predicate, action)
-      @predicate = predicate
-      @action = action
-    end
-
-    def evaluate(context)
-      context.execute(@action) if @predicate.evaluate(context)
-    end
-  end
-end

data/test/test_statement.rb

@@ -1,118 +0,0 @@
-#!/usr/bin/env ruby
-
-require 'test/unit'
-require 'chirp/statement'
-require 'chirp/application'
-
-class TestContext
-  attr_accessor :line_no, :file, :line, :fields
-  attr_accessor :action
-
-  def initialize(line_no = nil, file=nil, line=nil, fields=nil)
-    @line_no = line_no
-    @file = file
-    @line = line
-    @fields = fields
-  end
-
-  def execute(action)
-    @action = action
-  end
-end
-
-class TestStatement < Test::Unit::TestCase
-
-  def setup
-  end
-
-  def teardown
-  end
-
-  def test_line_number_predicate
-    c = TestContext.new(10)
-    lnp = Chirp::LineNumberPredicate.new(10)
-    assert lnp.evaluate(c)
-
-    c.line_no = 88
-    assert ! lnp.evaluate(c)
-  end
-
-  def test_match_predicate
-    c = TestContext.new()
-    mp = Chirp::MatchPredicate.new(/abc/)
-
-    %w{ abc abcdef xyzabc }.each do |s|
-      c.line = s
-      assert mp.evaluate(c)
-    end
-
-    %w{ abXc axbxc x }.each do |s|
-      c.line = s
-      assert !mp.evaluate(c)
-    end
-  end
-
-  def test_span_predicate
-
-    c = TestContext.new()
-    p1 = Chirp::LineNumberPredicate.new(10)
-    p2 = Chirp::MatchPredicate.new(/abc/)
-
-    sp = Chirp::SpanPredicate.new(p1, p2)
-    c.line = 'junk'
-
-    0.upto(9) do |n|
-      c.line_no = n
-      assert ! sp.evaluate(c)
-    end
-
-    c.line_no = 10
-    assert sp.evaluate(c)
-
-    10.times do 
-       c.line += 'X'
-       assert sp.evaluate(c)
-    end
-
-    c.line = 'this line matches abc 123'
-    assert sp.evaluate(c)
-
-    10.times do |n|
-      c.line = 'foo' + n.to_s
-      assert ! sp.evaluate(c)
-    end
-  end
-
-  def test_range_predicate
-    c = TestContext.new(10)
-    p = Chirp::RangePredicate.new(5..10)
-
-    0.upto(4) do |n|
-      c.line_no = n
-      assert ! p.evaluate(c)
-    end
-
-    5.upto(10) do |n|
-      c.line_no = n
-      assert p.evaluate(c)
-    end
-
-    11.upto(20) do |n|
-      c.line_no = n
-      assert ! p.evaluate(c)
-    end
-  end
-
-  def test_statement
-    c = TestContext.new(0)
-    
-    s = Chirp::Statement.new( Chirp::LineNumberPredicate.new(10), 'action')
-    s.evaluate(c)
-    assert_nil c.action
-
-    c.line_no = 10
-    s.evaluate(c)
-    assert_equal 'action', c.action
-  end
-
-end