root/codelist.pl @ 7d4fbcdd0df83802711454fdafce2c9d592bf431

if ($#ARGV eq -1) {
    @ARGV=`ls *.c`;
    chop(@ARGV);
}

foreach $file (@ARGV) {
    open(FILE, $file);

    print "/* -------------------------------- $file -------------------------------- */\n";
    while (<FILE>) {
        if (/^\S/
            && /\{\s*$/
            && !/\}/
            && !/^\{/
            && !/^#include/
            && !/^static/
            && !/^#define/
            && !/\/\*/)
        {s/\s+\{/\;/; print "extern "; print;}
            
    }
    close(FILE);
    print "\n";
}