[svn:parrot] r39818 - trunk/tools/dev

[Infinoid at svn.parrot.org]

Author: Infinoid
Date: Mon Jun 29 02:05:56 2009
New Revision: 39818
URL: https://trac.parrot.org/parrot/changeset/39818

Log:
Apply patch from s1n++ in TT #779.
* Add --lang option to tools/dev/fetch_languages.pl

Modified:
   trunk/tools/dev/fetch_languages.pl

Modified: trunk/tools/dev/fetch_languages.pl
==============================================================================
--- trunk/tools/dev/fetch_languages.pl	Mon Jun 29 02:05:49 2009	(r39817)
+++ trunk/tools/dev/fetch_languages.pl	Mon Jun 29 02:05:56 2009	(r39818)
@@ -9,7 +9,8 @@
 
     perl fetch_languages.pl
 
-    perl fetch_languages.pl --update
+    perl fetch_languages.pl [--update] [--lang=<hll>]
+
 
 =head1 DESCRIPTION
 
@@ -19,6 +20,8 @@
 
 2009-03-14 Salvaged from https:/svn.parrot.org/parrot/trunk/config/gen/makefiles/languages.in at 37396.
 
+2009-06-28 --lang=<hll> option added by s1n++.
+
 =cut
 
 use strict;
@@ -29,8 +32,8 @@
 use Pod::Usage;
 use Cwd;
 
-my ( $update_flag, $checkout_flag ) = ( 0, 1 );
-GetOptions( 'update' => \$update_flag ) or pod2usage();
+my ( $update_flag, $checkout_flag, $lang_flag ) = ( 0, 1, undef );
+GetOptions( 'lang=s' => \$lang_flag, 'update' => \$update_flag ) or pod2usage();
 
 my $languages_dir = 'languages';
 mkdir $languages_dir;
@@ -304,6 +307,7 @@
 );
 
 foreach (@hlls) {
+    next if $lang_flag && $_->{name} ne $lang_flag;
     if ($checkout_flag && ! -d $_->{name}) {
         my @cmd = ( @{ $checkout_cmd{ $_->{scm} } }, $_->{repository}, $_->{name} );
         my $dir = getcwd();