source: codelist.pl @ e74e573

barnowl_perlaimdebianowlrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since e74e573 was 09489b89, checked in by James M. Kretchmar <kretch@mit.edu>, 21 years ago
First pass at making owl build without zephyr
  • Property mode set to 100755
File size: 640 bytes
RevLine 
[69894d2]1#! /usr/bin/perl
[1aee7d9]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/
[ac70242]15            && (/\{\s*$/ || /\)\s*$/)
[7d4fbcd]16            && !/\}/
17            && !/^\{/
[ac70242]18            && !/^#/
[7d4fbcd]19            && !/^static/
[69894d2]20            && !/^system/
[4594d83]21            && !/^XS/
[0ff8fb57]22            && !/\/\*/
23            && !/ZWRITEOPTIONS/
[09489b89]24            && !/owlfaim_priv/)
[0ff8fb57]25        {
[09489b89]26
[4594d83]27            s/\s+\{/\;/;
28            s/\)[ \t]*$/\)\;/;
29            print "extern ";
30            print;
[09489b89]31        } elsif (/^#if/ || /^#else/ || /^#endif/) {
32            print;
[4594d83]33        }
[7d4fbcd]34           
35    }
36    close(FILE);
37    print "\n";
38}
[4594d83]39
40
Note: See TracBrowser for help on using the repository browser.