Antwrap 0.1

data/README

@@ -0,0 +1,13 @@
+# antwrap
+#
+# Copyright Caleb Powell 2007
+#
+# Licensed under the LGPL, see the file COPYING in the distribution
+#
+
+https://rubyforge.org/projects/antwrap/
+
+Questions? 
+Contact: caleb.powell@gmail.com
+
+More documentation to come.

data/lib/antwrap.rb

@@ -0,0 +1,183 @@
+# antwrap
+#
+# Copyright Caleb Powell 2007
+#
+# Licensed under the LGPL, see the file COPYING in the distribution
+#
+require 'fileutils'
+require 'logger'
+require 'java'
+
+module ApacheAnt
+ include_class "org.apache.tools.ant.UnknownElement"
+ include_class "org.apache.tools.ant.RuntimeConfigurable"
+ include_class "org.apache.tools.ant.Project"
+ include_class "org.apache.tools.ant.DefaultLogger"
+end
+
+module JavaLang
+ include_class "java.lang.System"
+end
+
+@@log = Logger.new(STDOUT)
+@@log.level = Logger::DEBUG
+
+class AntTask
+  private
+  @@task_stack = Array.new
+  attr_reader :unknown_element, :project, :taskname
+  
+  public  
+  def initialize(taskname, project, attributes, proc)
+    @taskname = taskname
+    @project = project
+    @unknown_element = ApacheAnt::UnknownElement.new(taskname)
+    @unknown_element.project= project
+    @unknown_element.namespace= ''
+    @unknown_element.QName= taskname
+    @unknown_element.taskType= taskname
+    @unknown_element.taskName= taskname
+    
+    wrapper = ApacheAnt::RuntimeConfigurable.new(@unknown_element, @unknown_element.getTaskName());
+    attributes.each do |key, val| 
+      if(key.to_s != 'pcdata')
+        wrapper.setAttribute(key.to_s, val)
+      else
+        wrapper.addText(val)
+      end
+    end unless attributes == nil
+    
+    if proc
+      @@log.debug("task_stack.push #{taskname} >> #{@@task_stack}") 
+      @@task_stack.push self
+      
+      singleton_class = class << proc; self; end
+      singleton_class.module_eval{
+        def method_missing(m, *a, &proc)
+          @@task_stack.last().send(m, *a, &proc)
+        end
+      }
+      proc.instance_eval &proc
+      @@task_stack.pop 
+    end
+  end
+  
+  def method_missing(sym, *args)
+    @@log.debug("AntTask.method_missing sym[#{sym.to_s}]")
+    begin
+      proc = block_given? ? Proc.new : nil 
+      self.add(AntTask.new(sym.to_s, project, args[0], proc))
+    rescue StandardError
+      @@log.error("AntTask.method_missing error:" + $!)
+    end
+  end  
+  
+  def add(child)
+    @@log.debug("adding child[#{child.unknown_element().getTaskName()}] to [#{@unknown_element.getTaskName()}]")
+    @unknown_element.addChild(child.unknown_element())
+    @unknown_element.getRuntimeConfigurableWrapper().addChild(child.unknown_element().getRuntimeConfigurableWrapper())
+  end
+  
+  def execute
+    @unknown_element.maybeConfigure
+    @unknown_element.execute
+    @executed = true
+  end
+  
+  def was_executed?
+    @executed
+  end
+end
+
+class AntProject
+  
+  attr :project, false
+  attr :declarative, true
+  
+  def initialize(name='', default='', basedir='',declarative=true)
+    @project= ApacheAnt::Project.new
+    @project.name= name
+    @project.default= default
+    @project.basedir= basedir
+    @project.init
+    self.declarative= declarative      
+    default_logger = ApacheAnt::DefaultLogger.new
+    default_logger.messageOutputLevel= 2
+    default_logger.outputPrintStream= JavaLang::System.out
+    default_logger.errorPrintStream= JavaLang::System.err
+    default_logger.emacsMode= false
+    @project.addBuildListener default_logger
+  end
+  
+  def create_task(taskname, attributes, proc)
+    task = AntTask.new(taskname, project(), attributes, proc)
+    task.execute if declarative
+    if taskname == 'macrodef'
+      @@log.debug("Pushing #{attributes[:name]} to tasks")
+      @@tasks.push(attributes[:name]) 
+    end
+    task
+  end
+  
+  def method_missing(sym, *args)
+    if(@@tasks.include?(sym.to_s) || @@types.include?(sym.to_s))
+      begin
+        @@log.info("AntProject.method_missing sym[#{sym.to_s}]")
+        proc = block_given? ? Proc.new : nil 
+        return create_task(sym.to_s, args[0], proc)
+      rescue
+        @@log.error("Error instantiating task[#{sym.to_s}]" + $!)
+      end
+    else
+      @@log.error("Not an Ant Task[#{sym.to_s}]")
+    end
+  end
+
+  #overridden. 'mkdir' conflicts wth the rake library.
+  def mkdir(attributes)
+    create_task('mkdir', attributes, (block_given? ? Proc.new : nil))
+  end  
+  
+  #overridden. 'copy' conflicts wth the rake library.
+  def copy(attributes)
+    create_task('copy', attributes, (block_given? ? Proc.new : nil))
+  end  
+  
+  #overridden. 'java' conflicts wth the JRuby library.
+  def jvm(attributes)
+    create_task('java', attributes, (block_given? ? Proc.new : nil))
+  end  
+  
+  @@tasks = [
+  # standard ant tasks
+      'mkdir', 'javac',   'chmod', 'delete', 'copy', 'move', 'jar', 'rmic', 'cvs', 'get', 'unzip', 
+      'unjar', 'unwar', 'echo', 'javadoc', 'zip', 'gzip', 'gunzip', 'replace', 'java', 'tstamp', 'property', 
+      'xmlproperty', 'taskdef', 'ant', 'exec', 'tar', 'untar', 'available', 'filter', 'fixcrlf', 'patch', 
+      'style', 'xslt', 'touch', 'signjar', 'genkey', 'antstructure', 'execon', 'antcall', 'sql', 'mail', 
+      'fail', 'war', 'uptodate', 'apply', 'record', 'cvspass', 'typedef', 'sleep', 'pathconvert', 'ear', 
+      'parallel', 'sequential', 'condition', 'dependset', 'bzip2', 'bunzip2', 'checksum', 'waitfor', 'input', 
+      'loadfile', 'manifest', 'loadproperties', 'basename', 'dirname', 'cvschangelog', 'cvsversion', 'buildnumber', 
+      'concat', 'cvstagdiff', 'tempfile', 'import', 'whichresource', 'subant', 'sync', 'defaultexcludes', 'presetdef', 
+      'macrodef', 'nice', 'length', 
+  # optional tasks
+      'image', 'script', 'netrexxc', 'renameext', 'ejbc', 'ddcreator', 'wlrun', 'wlstop', 'vssadd', 'vsscheckin', 'vsscheckout', 
+      'vsscp', 'vsscreate', 'vssget', 'vsshistory', 'vsslabel', 'ejbjar', 'mparse', 'mmetrics', 'maudit', 'junit', 'cab', 
+      'ftp', 'icontract', 'javacc', 'jjdoc', 'jjtree', 'stcheckout', 'stcheckin', 'stlabel', 'stlist', 'wljspc', 'jlink', 
+      'native2ascii', 'propertyfile', 'depend', 'antlr', 'vajload', 'vajexport', 'vajimport', 'telnet', 'csc', 'ilasm', 
+      'WsdlToDotnet', 'wsdltodotnet', 'importtypelib', 'stylebook', 'test', 'pvcs', 'p4change', 'p4delete', 'p4label', 'p4labelsync', 
+      'p4have', 'p4sync', 'p4edit', 'p4integrate', 'p4resolve', 'p4submit', 'p4counter', 'p4revert', 'p4reopen', 'p4fstat', 'javah', 
+      'ccupdate', 'cccheckout', 'cccheckin', 'ccuncheckout', 'ccmklbtype', 'ccmklabel', 'ccrmtype', 'cclock', 'ccunlock', 'ccmkbl', 
+      'ccmkattr', 'ccmkelem', 'ccmkdir', 'sound', 'junitreport', 'blgenclient', 'rpm', 'xmlvalidate', 'iplanet-ejbc', 'jdepend', 
+      'mimemail', 'ccmcheckin', 'ccmcheckout', 'ccmcheckintask', 'ccmreconfigure', 'ccmcreatetask', 'jpcoverage', 'jpcovmerge', 
+      'jpcovreport', 'p4add', 'jspc', 'replaceregexp', 'translate', 'sosget', 'soscheckin','soscheckout','soslabel', 'echoproperties', 
+      'splash', 'serverdeploy', 'jarlib-display', 'jarlib-manifest', 'jarlib-available', 'jarlib-resolve', 'setproxy', 'vbc', 'symlink', 
+      'chgrp', 'chown', 'attrib', 'scp', 'sshexec', 'jsharpc', 'rexec', 'scriptdef', 'ildasm', 
+  # deprecated ant tasks (kept for back compatibility)
+      'starteam', 'javadoc2', 'copydir', 'copyfile', 'deltree', 'rename'] 
+  
+  @@types = [ 'classfileset', 'description', 'dirset', 'filelist', 'fileset', 'filterchain', 'filterreader', 'filterset', 'mapper', 'redirector', 
+      'identitymapper', 'flattenmapper', 'globmapper', 'mergemapper', 'regexpmapper', 'packagemapper', 'unpackagemapper', 'compositemapper', 
+      'chainedmapper', 'filtermapper', 'path', 'patternset', 'regexp', 'substitution', 'xmlcatalog', 'extensionSet', 'extension', 'libfileset', 
+      'selector', 'zipfileset', 'scriptfilter', 'propertyset', 'assertions', 'concatfilter', 'isfileselected' ]
+  
+end

data/lib/convert.rb

@@ -0,0 +1,84 @@
+# antwrap
+#
+# Copyright Caleb Powell 2007
+#
+# Licensed under the LGPL, see the file COPYING in the distribution
+#
+require 'rexml/document'
+@outfile = File.new('/Users/caleb/projects/antwrap/test/output/Rakefile.rb', 'w+')
+xml = REXML::Document.new(File.open('/Users/caleb/projects/antwrap/test/test-resources/build.xml'))
+
+
+def create_symbol(str)
+    str = rubyize(str)    
+    return str.gsub(/(\w*[^,\s])/, ':\1')
+end
+def rubyize(str)
+  if (str == nil) 
+    str = ''
+  else
+    str = str.gsub(/(\w*)[\-|\.](\w*)/, '\1_\2')
+  end
+  return str
+end
+
+
+@outfile.print "require_gem 'Antwrap'\n"
+@outfile.print "@ant = AntProject.new()\n"
+@one_tab= '   '
+def print_task(task, tab=@one_tab, prefix='')
+  task_name = rubyize(task.name)
+  @outfile.print "#{tab}#{prefix}#{task_name}("
+  
+  if(task_name == 'macrodef')
+    task.attributes['name'] = rubyize(task.attributes['name'])
+  end
+  isFirst = true;
+  task.attributes.each do |key, value|
+    if !isFirst 
+      @outfile.print(",\n#{tab+@one_tab}")
+    end
+    @outfile.print ":#{key} => \"#{value}\""
+    isFirst = false;
+  end
+  
+  if task.has_text?
+    pcdata = task.texts().join
+    if(pcdata.strip() != '')
+      @outfile.print ":pcdata => \"#{pcdata}\""  
+    end
+  end
+  @outfile.print ")"
+  
+  
+  if task.elements.size > 0 
+    @outfile.print "{"
+    task.elements.each do |child|
+      @outfile.print "\n"
+      print_task(child, (tab+@one_tab), '')
+    end
+    @outfile.print "\n#{tab}}"
+  end
+end
+
+xml.elements.each("/project/*") do |node|
+  if node.name != 'target'
+    print_task(node, '', '@ant.')
+    @outfile.print "\n\n"
+  end
+end
+
+xml.elements.each("/project/target") do |node|
+  
+    task = "\ntask " + create_symbol(node.attributes['name']) + 
+         " => [" + create_symbol(node.attributes['depends']) + "] do\n"
+    
+    @outfile.print task
+    
+    node.elements.each do |child|
+      print_task(child, @one_tab, '@ant.')
+      @outfile.print "\n"
+    end
+    @outfile.print "end\n"
+end
+

data/test/output/META-INF/MANIFEST.MF

@@ -0,0 +1,3 @@
+Manifest-Version: 1.0
+Created-By: 1.5.0_06 (Apple Computer, Inc.)
+

data/test/tc_antwrap.rb

@@ -0,0 +1,208 @@
+# antwrap
+#
+# Copyright Caleb Powell 2007
+#
+# Licensed under the LGPL, see the file COPYING in the distribution
+#
+require 'test/unit'
+require 'fileutils'
+require '../lib/antwrap.rb'
+
+class TestAntwrap < Test::Unit::TestCase
+  
+  def setup
+    #   ENV is broken as of JRuby 0.9.2 but patched in 0.9.3 (see: http://jira.codehaus.org/browse/JRUBY-349)
+    #   @output_dir = ENV['PWD'] + '/output'
+    #   @resource_dir = ENV['PWD'] + '/test-resources'
+    #   The following is a workaround
+    current_dir = Java::java.lang.System.getProperty("user.dir")
+    @ant = AntProject.new("testProject", "", current_dir, true)
+    @output_dir = current_dir + '/test/output'
+    @resource_dir = current_dir + '/test/test-resources'
+    
+    if File.exists?(@output_dir)
+      FileUtils.remove_dir(@output_dir)
+    end
+    FileUtils.mkdir(@output_dir, :mode => 0775)
+  end
+  
+  def teardown
+    
+  end
+  
+  def test_unzip_task
+    assert_absent @output_dir + '/parent/FooBarParent.class'
+    task = @ant.unzip(:src => @resource_dir + '/parent.jar',
+    :dest => @output_dir)
+    
+    assert_exists @output_dir + '/parent/FooBarParent.class'
+  end
+  
+  def test_copyanddelete_task
+    file = @output_dir + '/foo.txt'
+    assert_absent file
+    @ant.copy(:file => @resource_dir + '/foo.txt', 
+    :todir => @output_dir)
+    assert_exists file
+    
+    @ant.delete(:file => file)
+    assert_absent file
+  end
+  
+  #  <javac srcdir='${src}'
+  #         destdir='${build}'
+  #         classpath='xyz.jar'
+  #         debug='on'
+  #         source='1.4'/>
+  def test_javac_task
+    FileUtils.mkdir(@output_dir + '/classes', :mode => 0775)
+    
+    assert_absent @output_dir + '/classes/foo/bar/FooBar.class'
+    
+    @ant.javac(:srcdir => @resource_dir + '/src', 
+    :destdir => @output_dir + '/classes',
+    :debug => 'on',
+    :verbose => 'no',
+    :fork => 'no',
+    :failonerror => 'yes',
+    :includes => 'foo/bar/**',
+    :excludes => 'foo/bar/baz/**',
+    :classpath => @resource_dir + '/parent.jar')
+    
+    assert_exists @output_dir + '/classes/foo/bar/FooBar.class'
+    assert_absent @output_dir + '/classes/foo/bar/baz/FooBarBaz.class'
+  end
+  
+  def test_javac_task_with_property
+    FileUtils.mkdir(@output_dir + '/classes', :mode => 0775)
+    
+    assert_absent @output_dir + '/classes/foo/bar/FooBar.class'
+    #    <path id="common.class.path">
+    #        <fileset dir="${common.dir}/lib">
+    #            <include name="**/*.jar"/>
+    #        </fileset>
+    #        <pathelement location="${common.classes}"/>
+    #    </path>
+    @ant.property(:name => 'pattern', :value => '**/*.jar') 
+    @ant.property(:name => 'resource_dir', :value => @resource_dir)
+    @ant.path(:id => 'common.class.path'){
+      fileset(:dir => '${resource_dir}'){
+        include(:name => '${pattern}')
+      }
+    }
+    
+    @ant.javac(:srcdir => @resource_dir + '/src', 
+    :destdir => @output_dir + '/classes',
+    :debug => 'on',
+    :verbose => 'no',
+    :fork => 'no',
+    :failonerror => 'yes',
+    :includes => 'foo/bar/**',
+    :excludes => 'foo/bar/baz/**',
+    :classpathref => 'common.class.path')
+    
+    assert_exists @output_dir + '/classes/foo/bar/FooBar.class'
+    assert_absent @output_dir + '/classes/foo/bar/baz/FooBarBaz.class'
+  end
+  
+  #  <jar destfile='${dist}/lib/app.jar' basedir='${build}/classes'/>
+  def test_jar_task
+    assert_absent @output_dir + '/Foo.jar'
+    @ant.property(:name => 'outputdir', :value => @output_dir)
+    @ant.property(:name => 'destfile', :value => '${outputdir}/Foo.jar') 
+    @ant.jar( :destfile => "${destfile}", 
+    :basedir => @resource_dir + '/src',
+    :level => '9',
+    :duplicate => 'preserve')
+    
+    assert_exists @output_dir + '/Foo.jar'
+  end
+  
+  # <java classname="test.Main">
+  #    <arg value="-h"/>
+  #    <classpath>
+  #    <pathelement location="dist/test.jar"/>
+  #    <pathelement path="${java.class.path}"/>
+  #    </classpath>
+  # </java>
+  def test_java_task
+    FileUtils.mkdir(@output_dir + '/classes', :mode => 0775)
+    @ant.javac(:srcdir => @resource_dir + '/src',  
+    :destdir => @output_dir + '/classes',
+    :debug => 'on',
+    :verbose => 'no',
+    :fork => 'no',
+    :failonerror => 'yes',
+    :includes => 'foo/bar/**',
+    :excludes => 'foo/bar/baz/**',
+    :classpath => @resource_dir + '/parent.jar')
+    
+    @ant.property(:name => 'output_dir', :value => @output_dir)
+    @ant.property(:name => 'resource_dir', :value =>@resource_dir)
+    @ant.jvm(:classname => 'foo.bar.FooBar', :fork => 'no') {
+      arg(:value => 'argOne')
+      classpath(){
+        pathelement(:location => '${output_dir}/classes')
+        pathelement(:location => '${resource_dir}/parent.jar')
+      }
+      arg(:value => 'argTwo')
+      jvmarg(:value => 'server')
+      sysproperty(:key=> 'antwrap', :value => 'coolio')
+    }
+  end
+  
+  def test_echo_task
+    @ant.echo(:message => "Antwrap is running an Echo task", :level => 'info')
+  end
+  
+  def test_mkdir_task
+    dir = @output_dir + '/foo'
+    
+    assert_absent dir
+    
+    @ant.mkdir(:dir => dir)
+    
+    assert_exists dir
+  end 
+  
+  def test_mkdir_task_with_property
+    dir = @output_dir + '/foo'
+    
+    assert_absent dir
+    
+    @ant.property(:name => 'outputProperty', :value => dir)
+    @ant.mkdir(:dir => "${outputProperty}")
+    
+    assert_exists dir
+  end 
+  
+  def test_macrodef_task
+    dir = @output_dir + '/foo'
+    
+    assert_absent dir
+    
+    @ant.macrodef(:name => 'testmacrodef'){
+      attribute(:name => 'destination')
+      sequential(){
+        echo(:message => "Creating @{destination}")
+        mkdir(:dir => "@{destination}")
+      }
+    }
+    @ant.testmacrodef(:destination => dir)
+    assert_exists dir
+    
+  end
+  
+  def test_cdata
+    @ant.echo(:pcdata => "Foobar &amp; <><><>")
+  end
+  
+  private 
+  def assert_exists(file_path)
+    assert(File.exists?(file_path), "Does not exist[#{file_path}]")
+  end
+  
+  def assert_absent(file_path)
+    assert(!File.exists?(file_path), "Should not exist[#{file_path}]")
+  end
+end