source: codelist.pl @ ac70242

barnowl_perlaimdebianowlrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since ac70242 was ac70242, checked in by James M. Kretchmar <kretch@mit.edu>, 20 years ago
Makefile.in: define DATADIR, for default owlconf. Makefile.in: provide "all" and "install" rules. configure.in: try also libdes and libkrb4, for people using heimdal configure.in: see if des_ecb_encrypt is already prototyped. configure.in: minor changes to work with new autoconf without needing acconfig.h. configure.in: find the install program. configure.in: test for use_default_colors since some versions of solaris don't have it, so we can at least compile something vaguely working there. keypress.c: ifdefs for keys not defined on at least some solarises. owl.c: don't call use_default_colors if we don't have it readconfig.c: added *commented out* code to try to find a system-default owlconf if the user doesn't have one. Have to ponder if I want this zcrypt.c: don't prototype des_ecb_encrypt if there is a prototype in des.h. zcrypt.c: include owl.h so we get the configure-generated config.h Change to codelist.pl to deal with new code style
  • Property mode set to 100755
File size: 458 bytes
Line 
1
2# $Id$
3
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*$/ || /\)\s*$/)
16            && !/\}/
17            && !/^\{/
18            && !/^#/
19            && !/^static/
20            && !/\/\*/)
21        {s/\s+\{/\;/; s/\)[ \t]*$/\)\;/; print "extern "; print;}
22           
23    }
24    close(FILE);
25    print "\n";
26}
Note: See TracBrowser for help on using the repository browser.