enhance complete-ant-cmd.pl to know about -file and $ANT_ARGS

Bugzilla Report 57371
Submitted by Christian Schmidt

CONTRIBUTORS

@@ -53,6 +53,7 @@ Charles Hudak
 Charlie Hubbard
 Chris Povirk
 Christian Knorr
+Christian Schmidt
 Christoph Gysin
 Christoph Wilhelms
 Christophe Labouisse

WHATSNEW

@@ -52,6 +52,9 @@ Fixed bugs:
  * <junitreport> now supports nested <classpath> and <factory> elements.
    Bugzilla Report 47002
 
+ * complete-ant-cmd.pl now also knows about the -file option.
+   Bugzilla Report 57371
+
 Other changes:
 --------------
 
@@ -59,6 +62,10 @@ Other changes:
    when using the timestamped authority.
    Bugzilla Report 56678
 
+ * complete-ant-cmd.pl now also analyzes the ANT_ARGS environment
+   variable.
+   Bugzilla Report 57371
+
 Changes from Ant 1.9.3 TO Ant 1.9.4
 ===================================
 

contributors.xml

@@ -233,6 +233,10 @@
     <first>Christian</first>
     <last>Knorr</last>
   </name>
+  <name>
+    <first>Christian</first>
+    <last>Schmidt</last>
+  </name>
   <name>
     <first>Christoph</first>
     <last>Gysin</last>

src/script/complete-ant-cmd.pl

@@ -31,14 +31,14 @@
 #     }
 #     compctl -K ant_complete ant build.sh
 
-my $cmdLine = $ENV{'COMP_LINE'};
+my $cmdLine = "$ENV{'ANT_ARGS'} $ENV{'COMP_LINE'}";
 my $antCmd = $ARGV[0];
 my $word = $ARGV[1];
 
 my @completions;
 if ($word =~ /^-/) {
     list( restrict( $word, getArguments() ));
-} elsif ($cmdLine =~ /-(f|buildfile)\s+\S*$/) {
+} elsif ($cmdLine =~ /-(f|file|buildfile)\s+\S*$/) {
     list( getBuildFiles($word) );
 } else {
     list( restrict( $word, getTargets() ));
@@ -58,7 +58,7 @@ sub restrict {
 }
 
 sub getArguments {
-    qw(-buildfile -debug -emacs -f -find -help -listener -logfile 
+    qw(-buildfile -debug -emacs -f -file -find -help -listener -logfile 
        -logger -projecthelp -quiet -verbose -version); 
 }
 
@@ -72,7 +72,7 @@ sub getTargets {
 
     # Look for build-file
     my $buildFile = 'build.xml';
-    if ($cmdLine =~ /-(f|buildfile)\s+(\S+)/) {
+    if ($cmdLine =~ /-(f|file|buildfile)\s+(\S+)(?!.*\s-(f|file|buildfile)\s)/) {
         $buildFile = $2;
     }
     return () unless (-f $buildFile);