gf-tree_visitor 0.0.2 → 0.0.4

data/bin/dirtree.rb

@@ -4,8 +4,8 @@
 # clidirtree
 #
 
-$COMMON_HOME = File.expand_path( File.join( File.dirname( __FILE__), ".." ) )
-$:.unshift( File.join($COMMON_HOME, "lib" ) )
+$TREE_VISITOR_HOME = File.expand_path( File.join( File.dirname( __FILE__), ".." ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "lib" ) )
 
 require "tree_visitor/cli/cli_dir_tree"
 

data/lib/gf_utility/file_utilities.rb

@@ -0,0 +1,27 @@
+#
+# substitute into a file
+#
+def subfile( filename, map )
+  lines = IO.readlines( filename)
+  if $options.backup
+    FileUtils.mv( filename, filename + ".bck" )
+  end
+
+  lines.each_with_index { |l,i|
+    map.each { |l1, l2|
+      #puts "#{l} #{l1} #{l.index(l1)}"
+      if l.index( l1 ) == 0
+        puts "subst #{l1}"
+        lines[i] = l2
+      end
+    }
+  }
+
+  File.open( filename,  "w" ) { |f|
+    lines.each{ |l| f.puts l }
+  }
+  puts "patched #{filename}"
+
+rescue Errno::ENOENT => e
+  puts "file not found '#{filename}'"
+end

data/lib/gf_utility/kwartzhelper.rb

@@ -0,0 +1,83 @@
+# ruby gems
+#
+# Check dependecies
+require 'rubygems'
+begin
+  require "kwartz"
+  require "kwartz/main"
+rescue LoadError
+  abort 'kwartz gem required!!'
+end
+
+#
+# kwartz utility
+# template_dir: directory containing kwartz template
+# template_include_dir: nil or a directory contained kwarz template referenced by template
+# template_out_dir: where the output goes
+#
+def kwartz_compile( template_dir, template_include_dir, template_out_dir )
+  if not File.directory?(template_dir)
+    raise "template_dir: '#{template_dir}' is not a directory"
+  end
+
+  if not File.directory?(template_out_dir)
+    raise "template_out_dir: '#{template_out_dir}' is not a directory"
+  end
+  
+  re_templatefile = /^[^\.](.+).html$/ 
+
+  maxtime_incs = Time.local( 1980 ) 
+  incs = []
+  if template_include_dir
+    if not File.directory?( template_include_dir )
+      raise "include_dir: '#{template_include_dir}' is not a directory"
+    end
+    incs = Dir.new( template_include_dir ).find_all { |f| f =~ re_templatefile }
+    incs = incs.map{ |f| File.join(template_include_dir, f) }
+    maxtime_incs = incs.inject(maxtime_incs) {|t,f|
+      t1 = File.mtime( f )
+      if t1 > t then t1 else t end
+    }
+    incs = incs.join(",")
+  end
+  
+  Dir.foreach( template_dir ) { |f|
+    next unless f =~ re_templatefile
+
+    inpath = File.join(template_dir, f)
+    inpath_time = File.mtime( inpath )
+
+    plogicpath = template_dir + File::Separator + f.sub( /.html$/, ".plogic" )
+    plogicpath_time = Time.local( 1980 )
+    if File.exists?( plogicpath )
+      plogicpath_time = File.mtime( plogicpath )
+    end
+    
+    outpath = File.join( template_out_dir, f.sub( /.html$/, ".rb" ) )
+    outpath_time = Time.local( 1980 )
+    if File.exist?( outpath )
+      outpath_time = File.mtime( outpath )
+    end
+    
+    argv = %w[--delspan -a defun -l ruby]
+    if incs.length > 0
+      argv << "-i"
+      argv.push( incs )
+    end
+
+    if File.exist?( plogicpath )
+      argv.push( "-p", plogicpath )
+    end
+    argv.push( inpath )
+
+    if outpath_time < maxtime_incs or 
+        outpath_time < inpath_time or
+        outpath_time < plogicpath_time
+      puts "kwartz " + argv.join(" ")
+      main = Kwartz::Main.new(argv)
+      output = main.execute()
+      File.open(outpath, 'w') { |f| f.write(output) }      
+    end
+  }
+end
+

data/test/gf_utility/tc_kwartz.rb

@@ -0,0 +1,19 @@
+require 'test/unit'
+
+$TREE_VISITOR_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", ".." ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "lib" ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "test" ) )
+
+require 'gf_utility/kwartzhelper'
+
+class TCDirProcessor < Test::Unit::TestCase
+
+  KWARTZ_TEST_DATA = File.join( $TREE_VISITOR_HOME, "test_data", "gf_utility", "kwartz_test_data" )
+
+  def test_simple
+    template_dir     = File.join( KWARTZ_TEST_DATA, "source" )
+    template_out     = File.join( KWARTZ_TEST_DATA, "out" )
+    kwartz_compile( template_dir, nil, template_out )
+  end
+
+end

data/test/gf_utility/tc_md5.rb

@@ -0,0 +1,18 @@
+# stdlib
+require 'test/unit'
+
+$TREE_VISITOR_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", "..") )
+$:.unshift( File.join($TREE_VISITOR_HOME, "lib" ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "test" ) )
+$TEST_FILE = File.join( $TREE_VISITOR_HOME, "lib", "tree_visitor.rb" )
+
+require 'gf_utility/md5.rb'
+
+class TCMD5 < Test::Unit::TestCase
+
+  def test_simple_build
+    file_name = File.join( $TEST_FILE )
+    MD5.file( file_name )
+  end
+
+end

data/test/gf_utility/tc_numeric.rb

@@ -0,0 +1,19 @@
+# stdlib
+require 'test/unit'
+
+# common
+$TREE_VISITOR_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", "..") )
+$:.unshift( File.join($TREE_VISITOR_HOME, "lib" ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "test" ) )
+
+require 'gf_utility/numeric.rb'
+
+class TCNumeric < Test::Unit::TestCase
+
+  def test_simple
+    assert_equal "10", 10.with_separator
+    assert_equal "10.0", 10.0.with_separator
+    assert_equal "1,000,000", 1000000.with_separator
+  end
+
+end

data/test/tree_visitor/tc_dir_processor.rb

@@ -1,10 +1,10 @@
 require 'test/unit'
 
-$COMMON_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", ".." ) )
-$:.unshift( File.join($COMMON_HOME, "lib" ) )
-$:.unshift( File.join($COMMON_HOME, "test" ) )
+$TREE_VISITOR_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", ".." ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "lib" ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "test" ) )
 
-$TEST_DATA = File.join( $COMMON_HOME, "test", "tree_visitor", "test_data" )
+$TEST_DATA = File.join( $TREE_VISITOR_HOME, "test_data", "tree_visitor", "test_data" )
 
 require 'tree_visitor/dir_processor'
 

data/test/tree_visitor/tc_dir_tree_walker.rb

@@ -2,10 +2,10 @@
 require 'test/unit'
 
 # common
-$COMMON_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", ".." ) )
-$:.unshift( File.join($COMMON_HOME, "lib" ) )
-$:.unshift( File.join($COMMON_HOME, "test" ) )
-$TEST_DATA = File.join( $COMMON_HOME, "test", "tree_visitor", "test_data" )
+$TREE_VISITOR_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", ".." ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "lib" ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "test" ) )
+$TEST_DATA = File.join( $TREE_VISITOR_HOME, "test_data", "tree_visitor", "test_data" )
 
 require 'tree_visitor/dir_tree_walker.rb'
 require 'tree_visitor/tree_node_visitor.rb'

data/test/tree_visitor/tc_tree_node.rb

@@ -2,9 +2,9 @@
 require 'test/unit'
 
 # common
-$COMMON_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", ".." ) )
-$:.unshift( File.join($COMMON_HOME, "lib" ) )
-$:.unshift( File.join($COMMON_HOME, "test" ) )
+$TREE_VISITOR_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", ".." ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "lib" ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "test" ) )
 
 require 'tree_visitor/tree_node.rb'
 

data/test/tree_visitor/tc_tree_node_visitor.rb

@@ -1,8 +1,8 @@
 require 'test/unit'
 
-$COMMON_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", ".." ) )
-$:.unshift( File.join($COMMON_HOME, "lib" ) )
-$:.unshift( File.join($COMMON_HOME, "test" ) )
+$TREE_VISITOR_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", ".." ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "lib" ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "test" ) )
 
 require 'tree_visitor/tree_node.rb'
 require 'tree_visitor/tree_node_visitor.rb'

data/test/ts_tree_visitor.rb

@@ -2,13 +2,13 @@
 require "test/unit"
 
 # common
-$COMMON_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..") )
-$:.unshift( File.join($COMMON_HOME, "lib" ) )
-$:.unshift( File.join($COMMON_HOME, "test" ) )
+$TREE_VISITOR_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..") )
+$:.unshift( File.join($TREE_VISITOR_HOME, "lib" ) )
+$:.unshift( File.join($TREE_VISITOR_HOME, "test" ) )
 
 require "tree_visitor"
 
-require "tree_visitor/utility/tc_md5"
+require "gf_utility/tc_md5"
 
 require "tree_visitor/tc_dir_processor"
 require "tree_visitor/tc_dir_tree_walker"

data/test_data/gf_utility/kwartz_test_data/source/test1.html

@@ -0,0 +1,5 @@
+<table>
+  <tr id="list1">
+    <td id="mark:item1">foo</td>
+  </tr>
+</table>

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: gf-tree_visitor
 version: !ruby/object:Gem::Version 
-  version: 0.0.2
+  version: 0.0.4
 platform: ruby
 authors: 
 - gf
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-05-22 00:00:00 -07:00
+date: 2009-05-23 00:00:00 -07:00
 default_executable: dirtree.rb
 dependencies: []
 
@@ -23,6 +23,10 @@ extra_rdoc_files:
 - LICENSE
 - README.rdoc
 files: 
+- lib/gf_utility/file_utilities.rb
+- lib/gf_utility/kwartzhelper.rb
+- lib/gf_utility/md5.rb
+- lib/gf_utility/numeric.rb
 - lib/tree_visitor.rb
 - lib/tree_visitor/abs_node.rb
 - lib/tree_visitor/build_dir_tree_visitor.rb
@@ -32,9 +36,11 @@ files:
 - lib/tree_visitor/leaf_node.rb
 - lib/tree_visitor/tree_node.rb
 - lib/tree_visitor/tree_node_visitor.rb
-- lib/tree_visitor/utility/md5.rb
-- lib/tree_visitor/utility/numeric.rb
 - lib/tree_visitor/visitor/print_node_visitor2.rb
+- test_data/gf_utility/kwartz_test_data/source/test1.html
+- test_data/tree_visitor/test_data/dir.1/dir.1.2/file.1.2.1
+- test_data/tree_visitor/test_data/dir.1/file.1.1
+- test_data/tree_visitor/test_data/dir.2/file.2.1
 - LICENSE
 - README.rdoc
 has_rdoc: true
@@ -58,16 +64,17 @@ required_rubygems_version: !ruby/object:Gem::Requirement
   version: 
 requirements: []
 
-rubyforge_project: 
+rubyforge_project: ralbum
 rubygems_version: 1.2.0
 signing_key: 
 specification_version: 2
 summary: TODO
 test_files: 
+- test/gf_utility/tc_md5.rb
+- test/gf_utility/tc_kwartz.rb
+- test/gf_utility/tc_numeric.rb
 - test/ts_tree_visitor.rb
 - test/tree_visitor/tc_dir_processor.rb
 - test/tree_visitor/tc_dir_tree_walker.rb
 - test/tree_visitor/tc_tree_node.rb
 - test/tree_visitor/tc_tree_node_visitor.rb
-- test/tree_visitor/utility/tc_md5.rb
-- test/tree_visitor/utility/tc_numeric.rb

data/test/tree_visitor/utility/tc_md5.rb

@@ -1,20 +0,0 @@
-# stdlib
-require 'test/unit'
-
-# common
-$COMMON_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", "..", ".." ) )
-$:.unshift( File.join($COMMON_HOME, "lib" ) )
-$:.unshift( File.join($COMMON_HOME, "test" ) )
-$TEST_FILE = File.join( $COMMON_HOME, "lib", "tree_visitor.rb" )
-
-
-require 'tree_visitor/utility/md5.rb'
-
-class TCMD5 < Test::Unit::TestCase
-
-  def test_simple_build
-    file_name = File.join( $TEST_FILE )
-    MD5.file( file_name )
-  end
-
-end

data/test/tree_visitor/utility/tc_numeric.rb

@@ -1,21 +0,0 @@
-# stdlib
-require 'test/unit'
-
-# common
-$COMMON_HOME = File.expand_path( File.join( File.dirname( __FILE__), "..", "..", ".." ) )
-$:.unshift( File.join($COMMON_HOME, "lib" ) )
-$:.unshift( File.join($COMMON_HOME, "test" ) )
-$TEST_FILE = File.join( $COMMON_HOME, "lib", "tree_visitor.rb" )
-
-
-require 'tree_visitor/utility/numeric.rb'
-
-class TCNumeric < Test::Unit::TestCase
-
-  def test_simple
-    assert_equal "10", 10.with_separator
-    assert_equal "10.0", 10.0.with_separator
-    assert_equal "1,000,000", 1000000.with_separator
-  end
-
-end