source: codelist.pl @ 1fd0b25

barnowl_perlaimdebianowlrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 1fd0b25 was 1aee7d9, checked in by Erik Nygren <nygren@mit.edu>, 23 years ago
* Added RCS Id strings to all files. * 'show keymaps' shows details of all keymaps after summary list.
  • Property mode set to 100755
File size: 452 bytes
RevLine 
[1aee7d9]1
2# $Id$
3
[7d4fbcd]4if ($#ARGV eq -1) {
5    @ARGV=`ls *.c`;
6    chop(@ARGV);
7}
8
9foreach $file (@ARGV) {
10    open(FILE, $file);
11
12    print "/* -------------------------------- $file -------------------------------- */\n";
13    while (<FILE>) {
14        if (/^\S/
15            && /\{\s*$/
16            && !/\}/
17            && !/^\{/
18            && !/^#include/
19            && !/^static/
20            && !/^#define/
21            && !/\/\*/)
22        {s/\s+\{/\;/; print "extern "; print;}
23           
24    }
25    close(FILE);
26    print "\n";
27}
Note: See TracBrowser for help on using the repository browser.