mirror/autoconf
2
0
Fork 0
mirror of git://git.sv.gnu.org/autoconf synced 2025-03-31 15:00:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

* lib/Autom4te/General.pm (backname): New.

Browse Source
This commit is contained in:
Akim Demaille 2001-10-24 14:29:16 +00:00
parent d7089440fc
commit eff4e7a6ee
2 changed files with 51 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
2001-10-24 Akim Demaille <akim@epita.fr>
* lib/Autom4te/General.pm (backname): New.
2001-10-24 Akim Demaille <akim@epita.fr>
* m4/: Remove, merged into...

50
lib/Autom4te/General.pm
View File

@ -29,7 +29,8 @@ use strict;
use vars qw (@ISA @EXPORT);
@ISA = qw (Exporter);
@EXPORT = qw (&debug &find_configure_ac &find_file &getopt &mktmpdir &mtime
@EXPORT = qw (&backname &debug &find_configure_ac &find_file
&getopt &mktmpdir &mtime
&uniq &update_file &up_to_date_p &verbose &xsystem
$debug $force $help $me $tmp $verbose $version);
@ -66,6 +67,12 @@ $version = undef;
sub verbose (@);
## ----- ##
## END. ##
## ----- ##
# END
# ---
# Exit nonzero whenever closing STDOUT fails.
@ -99,8 +106,45 @@ sub END
}
# debug(@MESSAGE)
# ---------------
## ----------- ##
## Functions. ##
## ----------- ##
# $BACKPATH
# &backname ($REL-DIR)
# --------------------
# If I `cd $REL-DIR', then to come back, I should `cd $BACKPATH'.
# For instance `src/foo' => `../..'.
# Works with non strictly increasing paths, i.e., `src/../lib' => `..'.
sub backname ($)
{
use File::Spec;
my ($file) = @_;
my $underscore = $_;
my @res;
foreach (split (/\//, $file))
{
next if $_ eq '.' || $_ eq '';
if ($_ eq '..')
{
pop @res;
}
else
{
push (@res, '..');
}
}
$_ = $underscore;
return File::Spec->canonpath (File::Spec->catfile (@res))
}
# &debug(@MESSAGE)
# ----------------
# Messages displayed only if $DEBUG and $VERBOSE.
sub debug (@)
{