2009-10-11 00:48:55 +04:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
2010-06-02 10:25:40 +04:00
|
|
|
$prefix = join(' ', @ARGV);
|
|
|
|
|
$prefix .= ' ' if ($prefix ne '');
|
|
|
|
|
|
|
|
|
|
$lines = join('', <STDIN>);
|
2009-10-11 00:48:55 +04:00
|
|
|
$lines =~ s/File (.+)\nLines (.+)\n(.+\n)*\n/$1 $2\n/g;
|
|
|
|
|
$lines =~ s/.+include\/c\+\+.+\n//g;
|
|
|
|
|
|
2010-06-02 10:25:40 +04:00
|
|
|
foreach $line (split /\n/, $lines)
|
|
|
|
|
{
|
|
|
|
|
print "$prefix$line\n";
|
|
|
|
|
}
|
