home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2006 April / DPPRO0406DVD.ISO / Essentials / Programming / Eclipse SDK / eclipse-SDK-3.1.1-win32.exe / eclipse / plugins / org.apache.ant_1.6.5 / bin / runant.pl < prev    next >
Encoding:
Perl Script  |  2005-09-29  |  4.1 KB  |  153 lines
  1. #!/usr/bin/perl
  2. #
  3. # Copyright 2000-2004 The Apache Software Foundation
  4. #
  5. #  Licensed under the Apache License, Version 2.0 (the "License");
  6. #  you may not use this file except in compliance with the License.
  7. #  You may obtain a copy of the License at
  8. #
  9. #      http://www.apache.org/licenses/LICENSE-2.0
  10. #
  11. #  Unless required by applicable law or agreed to in writing, software
  12. #  distributed under the License is distributed on an "AS IS" BASIS,
  13. #  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14. #  See the License for the specific language governing permissions and
  15. #  limitations under the License.
  16. #
  17. #######################################################################
  18. #
  19. # runant.pl
  20. #
  21. # wrapper script for invoking ant in a platform with Perl installed
  22. # this may include cgi-bin invocation, which is considered somewhat daft.
  23. # (slo: that should be a separate file which can be derived from this
  24. # and returns the XML formatted output)
  25. #
  26. # the code is not totally portable due to classpath and directory splitting
  27. # issues. oops. (NB, use File::Spec::Functions  will help and the code is
  28. # structured for the catfile() call, but because of perl version funnies
  29. # the code is not included. 
  30. #
  31. # created:         2000-8-24
  32. # author:          Steve Loughran steve_l@sourceforge.net
  33. #######################################################################
  34. #
  35. # Assumptions:
  36. #
  37. # - the "java" executable/script is on the command path
  38. # - ANT_HOME has been set
  39. # - target platform uses ":" as classpath separator or perl indicates it is dos/win32
  40. # - target platform uses "/" as directory separator.
  41.  
  42. #be fussy about variables
  43. use strict;
  44.  
  45. #platform specifics (disabled)
  46. #use File::Spec::Functions;
  47.  
  48. #turn warnings on during dev; generates a few spurious uninitialised var access warnings
  49. #use warnings;
  50.  
  51. #and set $debug to 1 to turn on trace info
  52. my $debug=1;
  53.  
  54. #######################################################################
  55. #
  56. # check to make sure environment is setup
  57. #
  58.  
  59. my $HOME = $ENV{ANT_HOME};
  60. if ($HOME eq "")
  61.         {
  62.     die "\n\nANT_HOME *MUST* be set!\n\n";
  63.         }
  64.  
  65. my $JAVACMD = $ENV{JAVACMD};
  66. $JAVACMD = "java" if $JAVACMD eq "";
  67.  
  68. my $onnetware = 0;
  69. if ($^O eq "NetWare")
  70. {
  71.   $onnetware = 1;
  72. }
  73.  
  74. my $oncygwin = ($^O eq "cygwin");
  75.  
  76. #ISSUE: what java wants to split up classpath varies from platform to platform 
  77. #and perl is not too hot at hinting which box it is on.
  78. #here I assume ":" 'cept on win32, dos, and netware. Add extra tests here as needed.
  79. my $s=":";
  80. if(($^O eq "MSWin32") || ($^O eq "dos") || ($^O eq "cygwin") ||
  81.    ($onnetware == 1))
  82.         {
  83.         $s=";";
  84.         }
  85.  
  86. #build up standard classpath
  87. my $localpath = "$HOME/lib/ant-launcher.jar";
  88. #set JVM options and Ant arguments, if any
  89. my @ANT_OPTS=split(" ", $ENV{ANT_OPTS});
  90. my @ANT_ARGS=split(" ", $ENV{ANT_ARGS});
  91.  
  92. #jikes
  93. if($ENV{JIKESPATH} ne "")
  94.         {
  95.         push @ANT_OPTS, "-Djikes.class.path=$ENV{JIKESPATH}";
  96.         }
  97.  
  98. #construct arguments to java
  99. my @ARGS;
  100. push @ARGS, @ANT_OPTS;
  101.  
  102. my $CYGHOME = "";
  103.  
  104. my $classpath=$ENV{CLASSPATH};
  105. if ($oncygwin == 1) {
  106.   $localpath = `cygpath --path --windows $localpath`;
  107.   chomp ($localpath);
  108.   if (! $classpath eq "")
  109.   {
  110.     $classpath = `cygpath --path --windows "$classpath"`;
  111.     chomp ($classpath);
  112.   }
  113.   $HOME = `cygpath --path --windows $HOME`;
  114.   chomp ($HOME);
  115.   $CYGHOME = `cygpath --path --windows $ENV{HOME}`;
  116.   chomp ($CYGHOME);
  117. }
  118. push @ARGS, "-classpath", "$localpath";
  119. push @ARGS, "-Dant.home=$HOME";
  120. if ( ! $CYGHOME eq "" )
  121. {
  122.   push @ARGS, "-Dcygwin.user.home=\"$CYGHOME\""
  123. }
  124. push @ARGS, "org.apache.tools.ant.launch.Launcher", @ANT_ARGS;
  125. push @ARGS, @ARGV;
  126. if (! $classpath eq "")
  127. {
  128.   if ($onnetware == 1)
  129.   {
  130.     # make classpath literally $CLASSPATH
  131.     # this is to avoid pushing us over the 512 character limit
  132.     # even skip the ; - that is already in $localpath
  133.     push @ARGS, "-lib", "\$CLASSPATH";
  134.   }
  135.   else
  136.   {
  137.     push @ARGS, "-lib", "$classpath";
  138.   }
  139. }
  140. print "\n $JAVACMD @ARGS\n\n" if ($debug);
  141.  
  142. my $returnValue = system $JAVACMD, @ARGS;
  143. if ($returnValue eq 0)
  144.         {
  145.         exit 0;
  146.         }
  147. else
  148.         {
  149.         # only 0 and 1 are widely recognized as exit values
  150.         # so change the exit value to 1
  151.         exit 1;
  152.         }
  153.