id	summary	reporter	owner	description	type	status	priority	milestone	component	version	severity	resolution	keywords	cc	lang	patch	platform
779	[tools] modify fetch_languages.pl to only fetch a specific language	s1n		"In some cases, only a specific language is desired (and not all). The following is a patch to allow a --lang option to specify 1 language (i.e. --lang c99):

{{{
Index: tools/dev/fetch_languages.pl
===================================================================
--- tools/dev/fetch_languages.pl        (revision 39599)
+++ tools/dev/fetch_languages.pl        (working copy)
@@ -29,8 +29,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 +304,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();
}}}

Note this is against r39599."	patch	closed	trivial		none	trunk	low	fixed	languages			applied	all