source: codelist.pl @ 4f5e38f

release-1.7release-1.8release-1.9
Last change on this file since 4f5e38f was 06adc25, checked in by David Benjamin <davidben@mit.edu>, 11 years ago
Sanitize our include guards somewhat Avoid double underscores to avoid clashing with reserved symbols. Also adding BARNOWL to guard names. While I'm at it, owl_prototypes.h could use guards.
  • Property mode set to 100755
File size: 726 bytes
RevLine 
[69894d2]1#! /usr/bin/perl
[1aee7d9]2
[06adc25]3my $guard_symbol = "INC_BARNOWL_OWL_PROTOTYPES_H";
4print "#ifndef $guard_symbol\n";
5print "#define $guard_symbol\n";
[7d4fbcd]6foreach $file (@ARGV) {
7    open(FILE, $file);
8
9    print "/* -------------------------------- $file -------------------------------- */\n";
10    while (<FILE>) {
11        if (/^\S/
[ac70242]12            && (/\{\s*$/ || /\)\s*$/)
[7d4fbcd]13            && !/\}/
14            && !/^\{/
[ac70242]15            && !/^#/
[7d4fbcd]16            && !/^static/
[69894d2]17            && !/^system/
[4594d83]18            && !/^XS/
[0ff8fb57]19            && !/\/\*/
20            && !/ZWRITEOPTIONS/
[09489b89]21            && !/owlfaim_priv/)
[0ff8fb57]22        {
[09489b89]23
[4594d83]24            s/\s+\{/\;/;
25            s/\)[ \t]*$/\)\;/;
26            print "extern ";
27            print;
[09489b89]28        } elsif (/^#if/ || /^#else/ || /^#endif/) {
29            print;
[4594d83]30        }
[7d4fbcd]31           
32    }
33    close(FILE);
34    print "\n";
35}
[06adc25]36print "#endif /* $guard_symbol */\n";
Note: See TracBrowser for help on using the repository browser.