Subversion Repositories wimsdev

#!/usr/bin/perl

use warnings;

use strict;

use Encode qw(encode decode);

#### for an identifier in a taxo, make the list of the modules

#### which refers to this identifier

####

print "prepare taxonomy files ...";

for my $f (glob("src/*")) {

  my $f0=$f ; $f0 =~ s/src\///;

  dicclassification ($f0, ($f));

}

my $prelim="##This file is generated by classif.pl. Do not modify directly\n";

sub  dicclassification { my ($dirout, @liste)=@_;

  my %ref=reverse_dic(@liste);

  my $TEXT=$prelim;

  for my $k (sort keys %ref) {

    if ($ref{$k}) {

      $TEXT .= "$k:$ref{$k}\n";

    }

    out("$dirout", $TEXT);

  }

}

sub reverse_dic { my @liste=@_;

  my %ref = ( ) ; my $ref=\%ref;

  for my $file (@liste) {

    open IN, "$file";

    while (<IN>) {

      next if ($_ =~ /^#/);

      my $text= $_ ; $text=~ s/\n//;

      my @text=split(":", $text);

      next if !($text[1]);

      my $t=$text[0]; $t=~ s/\n//;

      my @L= split(",",$text[1]);

      for my $a (@L) {

       if ($ref{$a}) {  $ref{$a}.= "," . $t ; } else { $ref{$a} = $t ; }

      }

    }

    close IN;

  }

  %ref

}

sub out { my ($bloc, $text) = @_;

  open  (OUT, ">$bloc") ;

  print OUT $text ; close OUT;

}