Súbor: [Platon] / yaadfat / doxy-filter (stiahnutie)
Revízia 1.2, Sun Mar 9 10:34:38 2003 UTC (21 years, 8 months ago) by yenar
Zmeny od 1.1: +1 -0
[lines]
remove #if 0 ... #endif /* 0 */ blocks from doxygen-formatted code (doxy-filter)
|
#!/usr/bin/perl
# copyright 2002 yenar@host.sk
# covered by GNU LGPL
$f = shift;
open (IN, $f);
for (<IN>) {
$in .= $_;
}
close IN;
$_ = $in;
s!/\* {{{ \*/[ \t]*(.*?)[ \t]*/\* }}} \*/!$1!gsm;
s!\#if 0.*?\#endif /* 0 */!!gsm;
#s!/\* {{{ \*/!!gsm;
#s!/\* }}} \*/!!gsm;
#s![ \t]*/\* {{1}{{ \*/[ \t]*!!g;
#s![ \t]*/\* }}{1}} \*/[ \t]*!!g;
print "$_";
Platon Group <platon@platon.sk> http://platon.sk/
|