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