ebuild-deps

   1 #! /usr/bin/perl -w
   2
   3 use strict;
   4
   5 use Parse::RecDescent;
   6 use Term::ProgressBar;
   7 use Term::ANSIColor;
   8 use File::Basename;
   9 use Data::Dumper;
  10 use Getopt::Long;
  11
  12 use constant {
  13     METADATA => '/usr/portage/metadata/cache'
  14 };
  15
  16 open(GRAMMAR, 'grammar.rd')
  17     or die "Can't open grammar file: $!";
  18
  19 my $grammar = do {
  20     local $/;
  21     <GRAMMAR>;
  22 };
  23
  24 close(GRAMMAR);
  25
  26 sub usage {
  27     print <<'END_OF_USAGE';
  28 ebuild-deps [options]
  29
  30   General options:
  31     --log                   <str>  * Put garbage here
  32     --[no-]meta                    * Parse metadata
  33
  34   Validation options:
  35     --try-data | -d         <str>  * Validate a string
  36     --try-file | -f         <str>  * Validate a file
  37
  38     (this is only for testing purpose)
  39
  40   Usage exmaples:
  41
  42     [1] ebuild-deps --log meta.log
  43
  44         clean-up the log file ;)
  45
  46     [2] ebuild-deps --log meta.log --meta
  47
  48         parse everyting in /usr/portage/metadata/cache
  49
  50     [3] ebuild-deps --try-data '>=app-some/pkg-1.0'
  51
  52         validate trivial and not so trivial dependencies
  53
  54 END_OF_USAGE
  55
  56     exit 0;
  57 }
  58
  59 my $log = '/dev/null';
  60 my $meta = 0;
  61
  62 my @todo_data = ();
  63 my @todo_file = ();
  64
  65 my $result = GetOptions(
  66     'log=s' => \$log,
  67     'meta!' => \$meta,
  68     'try-data|d=s' => \@todo_data,
  69     'try-file|f=s' => \@todo_file,
  70     'help|h'  => sub { usage() },
  71 );
  72
  73 open(LOG, '>', $log)
  74     or die "Can't open ${log}: $! \n";
  75
  76 $Parse::RecDescent::skip = '';
  77
  78 my $parser = Parse::RecDescent->new($grammar)
  79     or die "Invalid grammar specification";
  80
  81 my $index = 0;
  82
  83 for my $text (@todo_data) {
  84     my $result = $parser->start($text);
  85
  86     print ">>> Input #$index ... ";
  87
  88     if (defined $result) {
  89         print colored('OK', 'bold green'), "\n";
  90         print Dumper($result);
  91     } else {
  92         print colored('FAILED', 'bold red'), "\n";
  93     }
  94
  95     $index++;
  96 }
  97
  98 for my $file (@todo_file) {
  99     open(INPUT, $file)
 100         or die "Can't open ${file}: $! \n";
 101
 102     my $text = do {
 103         local $/;
 104         <INPUT>;
 105     };
 106
 107     close(INPUT);
 108
 109     my $result = $parser->start($text);
 110
 111     print ">>> File '$file' ... ";
 112
 113     if (defined $result) {
 114         print colored('OK', 'bold green'), "\n";
 115         print Dumper($result);
 116     } else {
 117         print colored('FAILED', 'bold red'), "\n";
 118     }
 119 }
 120
 121 if (not $meta) {
 122     if (not @todo_data and not @todo_file) {
 123         print "Seems nothing to be done. Bye.\n";
 124     }
 125
 126     goto cleanup;
 127 }
 128
 129 my @paths = glob(METADATA . '/*');
 130 my $count = scalar @paths;
 131 my $sofar = 0;
 132
 133 my $progress = Term::ProgressBar->new({
 134     count => $count, ETA => 'linear'});
 135
 136 my ($pkg_ok, $pkg_failed) = (0, 0);
 137
 138 for my $path (@paths) {
 139     if (-d $path) {
 140         for my $file (glob($path . '/*')) {
 141             my $category = basename($path);
 142             my $package  = basename($file);
 143
 144             print LOG $category, '/', $package, ' ... ';
 145
 146             open(INPUT, $file)
 147                 or die "Can't open ${file}: $! \n";
 148
 149             my $depend = <INPUT>;
 150
 151             my $result = $parser->start($depend);
 152
 153             if (defined $result) {
 154                 print LOG "OK\n";
 155                 $pkg_ok++;
 156             } else {
 157                 print LOG "FAILED\n";
 158                 $pkg_failed++;
 159             }
 160
 161             close(INPUT);
 162         }
 163     }
 164
 165     $progress->update(++$sofar);
 166 }
 167
 168 if ($pkg_failed == 0) {
 169     print "\n\nProcessed $pkg_ok versions. All OK. Bye.\n";
 170 }
 171
 172 cleanup:
 173     close(LOG);
 174