source: codelist.pl @ 7d4fbcd

barnowl_perlaimdebianowlrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 7d4fbcd was 7d4fbcd, checked in by James M. Kretchmar <kretch@mit.edu>, 23 years ago
Initial check in
  • Property mode set to 100755
File size: 443 bytes
Line 
1if ($#ARGV eq -1) {
2    @ARGV=`ls *.c`;
3    chop(@ARGV);
4}
5
6foreach $file (@ARGV) {
7    open(FILE, $file);
8
9    print "/* -------------------------------- $file -------------------------------- */\n";
10    while (<FILE>) {
11        if (/^\S/
12            && /\{\s*$/
13            && !/\}/
14            && !/^\{/
15            && !/^#include/
16            && !/^static/
17            && !/^#define/
18            && !/\/\*/)
19        {s/\s+\{/\;/; print "extern "; print;}
20           
21    }
22    close(FILE);
23    print "\n";
24}
Note: See TracBrowser for help on using the repository browser.