source:
codelist.pl
@
31e48a3
Last change on this file since 31e48a3 was 0ff8fb57, checked in by James M. Kretchmar <kretch@mit.edu>, 21 years ago | |
---|---|
|
|
File size: 583 bytes |
Rev | Line | |
---|---|---|
[69894d2] | 1 | #! /usr/bin/perl |
[1aee7d9] | 2 | # $Id$ |
3 | ||
[7d4fbcd] | 4 | if ($#ARGV eq -1) { |
5 | @ARGV=`ls *.c`; | |
6 | chop(@ARGV); | |
7 | } | |
8 | ||
9 | foreach $file (@ARGV) { | |
10 | open(FILE, $file); | |
11 | ||
12 | print "/* -------------------------------- $file -------------------------------- */\n"; | |
13 | while (<FILE>) { | |
14 | if (/^\S/ | |
[ac70242] | 15 | && (/\{\s*$/ || /\)\s*$/) |
[7d4fbcd] | 16 | && !/\}/ |
17 | && !/^\{/ | |
[ac70242] | 18 | && !/^#/ |
[7d4fbcd] | 19 | && !/^static/ |
[69894d2] | 20 | && !/^system/ |
[4594d83] | 21 | && !/^XS/ |
[0ff8fb57] | 22 | && !/\/\*/ |
23 | && !/ZWRITEOPTIONS/ | |
24 | && !/owlfaim_priv/) | |
25 | { | |
[4594d83] | 26 | s/\s+\{/\;/; |
27 | s/\)[ \t]*$/\)\;/; | |
28 | print "extern "; | |
29 | print; | |
30 | } | |
[7d4fbcd] | 31 | |
32 | } | |
33 | close(FILE); | |
34 | print "\n"; | |
35 | } | |
[4594d83] | 36 | |
37 |
Note: See TracBrowser
for help on using the repository browser.