Changeset 6052


Ignore:
Timestamp:
03/19/10 13:50:03 (10 years ago)
Author:
curtis
Message:

Add scan-deps target to toplevel Ant script.

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ant/toplevel.xml

    r6049 r6052  
    140140      test-tests" 
    141141    description="test all components"> 
     142  </target> 
     143 
     144  <target name="scan-deps"> 
     145    <exec dir="${root.dir}" executable="perl" failonerror="true"> 
     146      <arg value="scan-deps.pl"/> 
     147      <arg value="-nosummary"/> 
     148    </exec> 
    142149  </target> 
    143150 
  • trunk/scan-deps.pl

    r6050 r6052  
    740740); 
    741741 
     742my $programErrors = 0; 
     743 
     744# -- ARGUMENT PARSING -- 
     745 
     746my $skipSummary = 0; 
     747foreach my $arg (@ARGV) { 
     748  if ($arg eq '-nosummary') { 
     749    $skipSummary = 1; 
     750  } 
     751} 
     752 
    742753# -- DATA COLLECTION -- 
    743754 
     
    929940    print STDERR "\n  component.classpath = @cp\n"; 
    930941    print STDERR "\n"; 
     942    $programErrors++; 
    931943  } 
    932944 
     
    975987    print STDERR "\n  Eclipse classpath = @cp\n"; 
    976988    print STDERR "\n"; 
     989    $programErrors++; 
    977990  } 
    978991 
     
    10241037    print STDERR "\n  component.runtime-cp = @cp\n"; 
    10251038    print STDERR "\n"; 
    1026   } 
     1039    $programErrors++; 
     1040  } 
     1041} 
     1042 
     1043if ($skipSummary) { 
     1044  exit $programErrors; 
    10271045} 
    10281046 
     
    11131131for (my $i = 0; $i < 2; $i++) { 
    11141132  print "$div"; 
    1115   my @arg; 
     1133  my @list; 
    11161134  if ($i == 0) { 
    1117     @arg = @forks; 
     1135    @list = @forks; 
    11181136    print "The following components are forks of third party projects:\n\n"; 
    11191137  } 
    11201138  else { 
    1121     @arg = @stubs; 
     1139    @list = @stubs; 
    11221140    print "The following components are stubs of third party projects:\n\n"; 
    11231141  } 
    1124   foreach my $c (@arg) { 
     1142  foreach my $c (@list) { 
    11251143    print "$$c{TITLE}\n"; 
    11261144    smartSplit("    ", " ", split(/[ \n]/, $$c{DESC})); 
     
    11621180  print "\n"; 
    11631181} 
     1182 
     1183exit $programErrors; 
    11641184 
    11651185# -- SUBROUTINES -- 
Note: See TracChangeset for help on using the changeset viewer.