Mercurial > hg > xemacs-beta
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: $!"; |
