and lib/Automake/Struct.pm from Autoconf.
* lib/Automake/XFile.pm: Update comment, Automake is now
the master for this file. Cosmetic changes.
+2003-09-13 Alexandre Duret-Lutz <adl@gnu.org>
+
+ * Makefile.am (FETCHFILES, fetch): Do not fetch lib/Automake/XFile.pm
+ and lib/Automake/Struct.pm from Autoconf.
+ * lib/Automake/XFile.pm: Update comment, Automake is now
+ the master for this file. Cosmetic changes.
+
2003-09-09 Akim Demaille <akim@epita.fr>
* lib/Automake/FileUtils.pm (&update_file): s/cannot not/cannot/g.
INSTALL (autoconf-patches@gnu.org),
config.guess, config.sub (config-patches@gnu.org),
texinfo.tex (bug-texinfo@gnu.org),
- Struct.pm, XFile.pm (autoconf-patches@gnu.org).
Most of them are updated before release with `make fetch'.
* Changes other than bug fixes must be mentioned in NEWS
If not an alpha, announcement must also go to FSF:
Put the files on a public ftp site and send a message to
ftp-upload@gnu.org.
- Then send the announcement to info-gnu@gnu.org.
+ Then send the announcement at least to info-gnu@gnu.org,
+ autotools-announce@gnu.org, and automake@gnu.org.
* Update version number in configure.in to next alpha number.
Re-run autoconf and commit.
## Files that we fetch and which we compare against.
## FIXME should be a lot more here
FETCHFILES = \
-Automake/Struct.pm \
-Automake/XFile.pm \
INSTALL \
config-ml.in \
config.guess \
## Fetch the latest versions of files we care about.
fetch:
rm -rf Fetchdir > /dev/null 2>&1
- mkdir Fetchdir; mkdir Fetchdir/Automake
+ mkdir Fetchdir
## If a get fails then that is a problem.
(cd Fetchdir && \
$(WGET) ftp://ftp.gnu.org/gnu/config/config.guess; \
$(WGET) ftp://ftp.gnu.org/gnu/config/config.sub; \
$(WGET) ftp://ftp.gnu.org/gnu/texinfo/texinfo.tex; \
- $(WGET) http://savannah.gnu.org/cgi-bin/viewcvs/~checkout~/autoconf/autoconf/lib/Autom4te/Struct.pm?content-type=text/plain -O Automake/Struct.pm; \
- $(WGET) http://savannah.gnu.org/cgi-bin/viewcvs/~checkout~/autoconf/autoconf/lib/Autom4te/XFile.pm?content-type=text/plain -O Automake/XFile.pm; \
$(WGET) http://savannah.gnu.org/cgi-bin/viewcvs/~checkout~/autoconf/autoconf/INSTALL?content-type=text/plain -O INSTALL; \
$(WGET) http://savannah.gnu.org/cgi-bin/viewcvs/~checkout~/gcc/gcc/config-ml.in; \
$(WGET) http://savannah.gnu.org/cgi-bin/viewcvs/~checkout~/gcc/gcc/symlink-tree)
WGET = wget
FETCHFILES = \
-Automake/Struct.pm \
-Automake/XFile.pm \
INSTALL \
config-ml.in \
config.guess \
fetch:
rm -rf Fetchdir > /dev/null 2>&1
- mkdir Fetchdir; mkdir Fetchdir/Automake
+ mkdir Fetchdir
(cd Fetchdir && \
$(WGET) ftp://ftp.gnu.org/gnu/config/config.guess; \
$(WGET) ftp://ftp.gnu.org/gnu/config/config.sub; \
$(WGET) ftp://ftp.gnu.org/gnu/texinfo/texinfo.tex; \
- $(WGET) http://savannah.gnu.org/cgi-bin/viewcvs/~checkout~/autoconf/autoconf/lib/Autom4te/Struct.pm?content-type=text/plain -O Automake/Struct.pm; \
- $(WGET) http://savannah.gnu.org/cgi-bin/viewcvs/~checkout~/autoconf/autoconf/lib/Autom4te/XFile.pm?content-type=text/plain -O Automake/XFile.pm; \
$(WGET) http://savannah.gnu.org/cgi-bin/viewcvs/~checkout~/autoconf/autoconf/INSTALL?content-type=text/plain -O INSTALL; \
$(WGET) http://savannah.gnu.org/cgi-bin/viewcvs/~checkout~/gcc/gcc/config-ml.in; \
$(WGET) http://savannah.gnu.org/cgi-bin/viewcvs/~checkout~/gcc/gcc/symlink-tree)
# Written by Akim Demaille <akim@freefriends.org>.
###############################################################
-# The main copy of this file is in Autoconf's CVS repository. #
-# Updates should be sent to autoconf-patches@gnu.org. #
+# The main copy of this file is in Automake's CVS repository. #
+# Updates should be sent to automake-patches@gnu.org. #
###############################################################
package Automake::XFile;
use Automake::XFile;
$fh = new Automake::XFile;
- $fh->open("< file"))
+ $fh->open ("< file");
# No need to check $FH: we died if open failed.
print <$fh>;
$fh->close;
print <$fh>;
undef $fh; # automatically closes the file and checks for errors.
- $fh = new Automake::XFile "file", O_WRONLY|O_APPEND;
+ $fh = new Automake::XFile "file", O_WRONLY | O_APPEND;
# No need to check $FH: we died if new failed.
print $fh "corge\n";
$pos = $fh->getpos;
- $fh->setpos($pos);
+ $fh->setpos ($pos);
undef $fh; # automatically closes the file and checks for errors.
sub new
{
my $type = shift;
- my $class = ref($type) || $type || "Automake::XFile";
+ my $class = ref $type || $type || "Automake::XFile";
my $fh = $class->SUPER::new ();
if (@_)
{
sub open
{
- my ($fh) = shift;
+ my $fh = shift;
my ($file) = @_;
# WARNING: Gross hack: $FH is a typeglob: use its hash slot to store
sub close
{
- my ($fh) = shift;
+ my $fh = shift;
if (!$fh->SUPER::close (@_))
{
my $file = $fh->name;
sub name
{
- my ($fh) = shift;
+ my $fh = shift;
return ${*$fh}{'autom4te_xfile_file'};
}
sub seek
{
- my ($fh) = shift;
+ my $fh = shift;
# Cannot use @_ here.
if (!seek ($fh, $_[0], $_[1]))
{