File: [Platon] / yaadfat / stats-filter (download)
Revision 1.1.1.1 (vendor branch), Sun Feb 23 17:43:01 2003 UTC (21 years, 1 month ago) by yenar
Changes since 1.1: +0 -0
lines
initial import of yaadfat into platon cvs
|
#!/usr/bin/perl
# copyright 2002 yenar@host.sk
# covered by GNU LGPL
my $in;
while (<STDIN>) {
$in .= $_;
}
$_ = $in;
s!(\#if 0\n).*?(\#else /\* \!0 \*/\n)!!gsm;
s!(\#if 0\n).*?(\#endif /\* 0 \*/\n)!!gsm;
s#//.*?$# #gsm;
s#/\*.*?\*/# #gsm;
s#^[ \t]*\n##gsm;
print $_;
Platon Group <platon@platon.org> http://platon.org/
|