Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, January 22, 2020

File: [Platon] / yaadfat / stats-filter (download)

Revision 1.1.1.1 (vendor branch), Sun Feb 23 17:43:01 2003 UTC (16 years, 11 months 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/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS
Go to Top