";
foreach $file (@ARGV) {
open (f,$file);
$state = 0;
foreach $i () {
if ($state == 0) { # hors commentaire
if ($i =~ /^\@interface/) { # interface
analyse_interface($i);
&reset_comm;
} elsif ($i =~ /^[-+]/) { # léthode
analyse_method($i);
} elsif ($i =~ /\/\*\*/) { # commentaire
$state = 1;
$comm = "";
} elsif ($i =~ /^\@end/) { # fin
print "\n";
}
} elsif ($state == 1) { # dans un commentaire
if ($i =~ /\*\//) {
$state = 0;
} elsif ($i =~ /\s*\@author\s+(.*)$/) {
$author = $1;
} elsif ($i =~ /\s*\@return\s+(.*)$/) {
$return = $1;
} elsif ($i =~ /\s*\@param\s+(\w+)\s+(.*)$/) {
$param{$1}=$2;
} else {
$comm = "$comm $i";
}
}
}
close(f);
}
print "