Mercurial > hg > xemacs-beta

comparison src/make-src-depend @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 8626e4521993
children b8cc9ab3f761
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
27 27
28 ($myName = $0) =~ s@.*/@@; my $usage =" 28 ($myName = $0) =~ s@.*/@@; my $usage ="
29 Usage: $myName 29 Usage: $myName
30 30
31 Generates Makefile dependencies for the XEmacs src directory. 31 Generates Makefile dependencies for the XEmacs src directory.
32 The dependencies are written to stdout. 32 The dependencies are written to stdout.\n";
33 ";
34 33
35 die $usage if @ARGV; 34 die $usage if @ARGV;
36 35
37 ($srcdir = $0) =~ s@[^/]+$@@; 36 ($srcdir = $0) =~ s@[^/]+$@@;
38 $srcdir = "." if $srcdir eq ""; 37 $srcdir = "." if $srcdir eq "";
40 39
41 opendir SRCDIR, "." or die "$srcdir: $!"; 40 opendir SRCDIR, "." or die "$srcdir: $!";
42 for (grep (/\.[ch]$/, readdir (SRCDIR))) { $exists{$_} = 1; } 41 for (grep (/\.[ch]$/, readdir (SRCDIR))) { $exists{$_} = 1; }
43 closedir SRCDIR; 42 closedir SRCDIR;
44 43
45 for (qw (config.h puresize-adjust.h sheap-adjust.h paths.h Emacs.ad.h)) { 44 for (qw (config.h sheap-adjust.h paths.h Emacs.ad.h)) {
46 $generated_header{$_} = 1; 45 $generated_header{$_} = 1;
47 } 46 }
48 47
49 for my $file (keys %exists) { 48 for my $file (keys %exists) {
50 open (FILE, $file) or die "$file: $!"; 49 open (FILE, $file) or die "$file: $!";