tools/dev/fetch_languages.pl

   1 # Copyright (C) 2009, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 fetch_languages.pl - Fetch language implementations from their source code
   7 management repositories
   8
   9 =head1 SYNOPSIS
  10
  11     perl fetch_languages.pl
  12
  13     perl fetch_languages.pl [--update] [--lang=<hll>]
  14
  15
  16 =head1 DESCRIPTION
  17
  18 Creates a directory called 'languages' and checks out the languages.
  19
  20 =head1 HISTORY
  21
  22 2009-03-14 Salvaged from https:/svn.parrot.org/parrot/trunk/config/gen/makefiles/languages.in@37396.
  23
  24 2009-06-28 --lang=<hll> option added by s1n++.
  25
  26 =cut
  27
  28 use strict;
  29 use warnings;
  30 use 5.008;
  31
  32 use Getopt::Long;
  33 use Pod::Usage;
  34 use Cwd;
  35
  36 my ( $update_flag, $checkout_flag, $lang_flag ) = ( 0, 1, undef );
  37 GetOptions( 'lang=s' => \$lang_flag, 'update' => \$update_flag ) or pod2usage();
  38
  39 my $languages_dir = 'languages';
  40 mkdir $languages_dir;
  41 chdir $languages_dir;
  42
  43 # some commands
  44 my %checkout_cmd = (
  45     SVN => [qw(svn checkout)],
  46     GIT => [qw(git clone)],
  47     HG  => [qw(hg clone)],
  48 );
  49 my %update_cmd = (
  50     SVN => [qw(svn update)],
  51     GIT => [qw(git pull)],
  52     HG  => [qw(hg pull --update)],
  53 );
  54
  55 my @hlls = (
  56
  57     {
  58         name       => 'bf',
  59         scm        => 'SVN',
  60         repository => 'https://svn.parrot.org/languages/bf/trunk'
  61     },
  62
  63     {
  64         name       => 'blizkost',
  65         scm        => 'GIT',
  66         repository => 'git://github.com/jnthn/blizkost.git'
  67     },
  68
  69     {
  70         name       => 'c99',
  71         scm        => 'SVN',
  72         repository => 'https://svn.parrot.org/languages/c99/trunk'
  73     },
  74
  75     {
  76         name       => 'cardinal',
  77         scm        => 'GIT',
  78         repository => 'git://github.com/cardinal/cardinal.git'
  79     },
  80
  81     {
  82         name       => 'chitchat',
  83         scm        => 'SVN',
  84         repository => 'https://svn.parrot.org/languages/chitchat/trunk'
  85     },
  86
  87     {
  88         name       => 'close',
  89         scm        => 'SVN',
  90         repository => 'http://close.googlecode.com/svn/trunk/'
  91     },
  92
  93     {
  94         name       => 'dotnet',
  95         scm        => 'SVN',
  96         repository => 'https://svn.parrot.org/languages/dotnet/trunk'
  97     },
  98
  99     {
 100         name       => 'eclectus',
 101         scm        => 'GIT',
 102         repository => 'git://github.com/bschmalhofer/eclectus.git'
 103     },
 104
 105     {
 106         name       => 'ecmascript',
 107         scm        => 'SVN',
 108         repository => 'https://svn.parrot.org/languages/ecmascript/trunk'
 109     },
 110
 111     {
 112         name       => 'forth',
 113         scm        => 'SVN',
 114         repository => 'https://svn.parrot.org/languages/forth/trunk'
 115     },
 116
 117     {
 118         name       => 'fun',
 119         scm        => 'GIT',
 120         repository => 'git://github.com/TiMBuS/fun.git'
 121     },
 122
 123     {
 124         name       => 'gil',
 125         scm        => 'GIT',
 126         repository => 'git://github.com/tene/gil.git'
 127     },
 128
 129     {
 130         name       => 'hq9plus',
 131         scm        => 'GIT',
 132         repository => 'git://github.com/bschmalhofer/hq9plus.git'
 133     },
 134
 135     {
 136         name       => 'jako',
 137         scm        => 'SVN',
 138         repository => 'https://svn.parrot.org/languages/jako/trunk'
 139     },
 140
 141     {
 142         name       => 'json',
 143         scm        => 'SVN',
 144         repository => 'https://svn.parrot.org/languages/json/trunk'
 145     },
 146
 147     {
 148         name       => 'kea',
 149         scm        => 'GIT',
 150         repository => 'git://github.com/leto/kea.git'
 151     },
 152
 153     {
 154         name       => 'kea-cl',
 155         scm        => 'SVN',
 156         repository => 'https://rgrjr.dyndns.org/svn/kea-cl/trunk'
 157     },
 158
 159     {
 160         name       => 'lazy-k',
 161         scm        => 'GIT',
 162         repository => 'git://github.com/bschmalhofer/lazy-k.git'
 163     },
 164
 165     {
 166         name       => 'lisp',
 167         scm        => 'SVN',
 168         repository => 'https://svn.parrot.org/languages/lisp/trunk'
 169     },
 170
 171     {
 172         name       => 'lolcode',
 173         scm        => 'SVN',
 174         repository => 'https://svn.parrot.org/languages/lolcode/trunk'
 175     },
 176
 177     {
 178         name       => 'lua',
 179         scm        => 'GIT',
 180         repository => 'git://github.com/fperrad/lua.git'
 181     },
 182
 183     {
 184         name       => 'm4',
 185         scm        => 'GIT',
 186         repository => 'git://github.com/bschmalhofer/m4.git'
 187     },
 188
 189     {
 190         name       => 'markdown',
 191         scm        => 'GIT',
 192         repository => 'git://github.com/fperrad/markdown.git'
 193     },
 194
 195     {
 196         name       => 'matrixy',
 197         scm        => 'GIT',
 198         repository => 'git://github.com/Whiteknight/matrixy.git'
 199     },
 200
 201     {
 202         name       => 'ook',
 203         scm        => 'SVN',
 204         repository => 'https://svn.parrot.org/languages/ook/trunk'
 205     },
 206
 207     {
 208         name       => 'paraplegic',
 209         scm        => 'SVN',
 210         repository => 'http://paraplegic.googlecode.com/svn/trunk'
 211     },
 212
 213     {
 214         name       => 'perk',
 215         scm        => 'GIT',
 216         repository => 'git://github.com/chrisdolan/perk.git'
 217     },
 218
 219     {
 220         name       => 'pheme',
 221         scm        => 'SVN',
 222         repository => 'https://svn.parrot.org/languages/pheme/trunk'
 223     },
 224
 225     {
 226         name       => 'pipp',
 227         scm        => 'GIT',
 228         repository => 'git://github.com/bschmalhofer/pipp.git'
 229     },
 230
 231     {
 232         name       => 'pir',
 233         scm        => 'GIT',
 234         repository => 'http://github.com/parrot/pir.git'
 235     },
 236
 237     {
 238         name       => 'pjs',
 239         scm        => 'SVN',
 240         repository => 'http://parrotjs.googlecode.com/svn/trunk'
 241     },
 242
 243     {
 244         name       => 'pod',
 245         scm        => 'SVN',
 246         repository => 'https://svn.parrot.org/languages/pod/trunk'
 247     },
 248
 249     {
 250         name       => 'porcupine',
 251         scm        => 'SVN',
 252         repository => 'http://porcupinepascal.googlecode.com/svn/trunk'
 253     },
 254
 255     {
 256         name       => 'primitivearc',
 257         scm        => 'GIT',
 258         repository => 'git://github.com/stefano/primitivearc.git'
 259     },
 260
 261     {
 262         name       => 'punie',
 263         scm        => 'SVN',
 264         repository => 'https://svn.parrot.org/languages/punie/trunk'
 265     },
 266
 267     {
 268         name       => 'pynie',
 269         scm        => 'HG',
 270         repository => 'http://bitbucket.org/allison/pynie'
 271     },
 272
 273     {
 274         name       => 'rakudo',
 275         scm        => 'GIT',
 276         repository => 'git://github.com/rakudo/rakudo.git'
 277     },
 278
 279     {
 280         name       => 'scheme',
 281         scm        => 'SVN',
 282         repository => 'https://svn.parrot.org/languages/scheme/trunk'
 283     },
 284
 285     {
 286         name       => 'shakespeare',
 287         scm        => 'HG',
 288         repository => 'http://bitbucket.org/riffraff/shakespeare-parrot'
 289     },
 290
 291     {
 292         name       => 'steme',
 293         scm        => 'GIT',
 294         repository => 'git://github.com/tene/steme.git'
 295     },
 296
 297     {
 298         name       => 'tcl',
 299         scm        => 'GIT',
 300         repository => 'git://github.com/partcl/partcl.git'
 301     },
 302
 303     {
 304         name       => 'unlambda',
 305         scm        => 'GIT',
 306         repository => 'git://github.com/bschmalhofer/unlambda.git'
 307     },
 308
 309     {
 310         name       => 'urm',
 311         scm        => 'SVN',
 312         repository => 'https://svn.parrot.org/languages/urm/trunk'
 313     },
 314
 315     {
 316         name       => 'winxed',
 317         scm        => 'SVN',
 318         repository => 'http://winxed.googlecode.com/svn/trunk/'
 319     },
 320
 321     {
 322         name       => 'wmlscript',
 323         scm        => 'GIT',
 324         repository => 'git://github.com/fperrad/wmlscript.git'
 325     },
 326
 327     {
 328         name       => 'xml',
 329         scm        => 'GIT',
 330         repository => 'git://github.com/fperrad/xml.git'
 331     },
 332 );
 333
 334 foreach (@hlls) {
 335     next if $lang_flag && $_->{name} ne $lang_flag;
 336     if ($checkout_flag && ! -d $_->{name}) {
 337         my @cmd = ( @{ $checkout_cmd{ $_->{scm} } }, $_->{repository}, $_->{name} );
 338         my $dir = getcwd();
 339         print "Running: '@cmd' in $dir.\n";
 340         system(@cmd);
 341     }
 342     if ($update_flag) {
 343         chdir $_->{name};
 344         my @cmd = ( @{ $update_cmd{ $_->{scm} } } );
 345         my $dir = getcwd();
 346         print "Running: '@cmd' in $dir.\n";
 347         system(@cmd);
 348         chdir '..';
 349     }
 350 }
 351
 352 # Local Variables:
 353 #   mode: cperl
 354 #   cperl-indent-level: 4
 355 #   fill-column: 100
 356 # End:
 357 # vim: expandtab shiftwidth=4: