comparison src/src-headers @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
26 my ($myName, $srcdir); 26 my ($myName, $srcdir);
27 27
28 ($myName = $0) =~ s@.*/@@; my $usage =" 28 ($myName = $0) =~ s@.*/@@; my $usage ="
29 Usage: $myName 29 Usage: $myName
30 30
31 Generates header file fragments from the Emacs sources 31 Generates header file fragments from the Emacs sources.
32 and writes them to stdout.\n"; 32 ";
33 33
34 die $usage if @ARGV; 34 die $usage if @ARGV;
35 35
36 ($srcdir = $0) =~ s@[^/]+$@@; 36 ($srcdir = $0) =~ s@[^/]+$@@;
37 chdir $srcdir or die "$srcdir: $!"; 37 chdir $srcdir or die "$srcdir: $!";