Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Utorok, 16. júl 2024

Súbor: [Platon] / yaadfat / stats-filter (stiahnutie)

Revízia 1.1.1.1, Sun Feb 23 17:43:01 2003 UTC (21 years, 4 months ago) by yenar


Zmeny od 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.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox
Na začiatok