xCAT/xNBA
2
0
Fork 0
mirror of https://github.com/xcat2/xNBA.git synced 2025-02-23 05:50:00 +00:00
Code Issues Projects Releases Wiki Activity

If we end up with fragments that are older than config.h, set the

Browse Source 
timestamp on config.h to match the oldest fragment, to prevent make
from always attempting to rebuild the fragments.
This commit is contained in:
Michael Brown 2005-04-17 15:56:32 +00:00
parent 31fdf3da82
commit a107996c9a
1 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/util/mkconfig.pl
View File

@ -1,11 +1,12 @@
#!/usr/bin/perl -w
use File::Spec::Functions qw ( :ALL );
use File::stat;
use strict;
use warnings;
my $cfgdir = "config";
my $config_h = "config.h";
my $config_h = shift || "config.h";
# Read in a whole file
#
@ -38,6 +39,15 @@ sub delete_file {
unlink $file or die "Could not delete $file: $!\n";
}
# Get a file modification time
#
sub file_mtime {
my $file = shift;
my $stat = stat ( $file ) or die "Could not stat $file: $!\n";
return $stat->mtime;
}
# Read a directory listing (excluding the . and .. entries)
#
sub read_dir {
@ -155,9 +165,24 @@ foreach my $file ( keys %$current ) {
unlink catfile ( $cfgdir, $file ) unless exists $new->{$file};
}
# Write out any modified fragments
# Write out any modified fragments, and find the oldest timestamp of
# any unmodified fragments.
#
my $oldest = time ();
foreach my $file ( keys %$new ) {
write_file ( catfile ( $cfgdir, $file ), $new->{$file} )
unless $current->{$file} && $new->{$file} eq $current->{$file};
if ( $current->{$file} && $new->{$file} eq $current->{$file} ) {
# Unmodified
my $time = file_mtime ( catfile ( $cfgdir, $file ) );
$oldest = $time if $time < $oldest;
} else {
write_file ( catfile ( $cfgdir, $file ), $new->{$file} );
}
}
# If we now have fragments that are older than config.h, set the
# timestamp on config.h to match the oldest fragment, to prevent make
# from always attempting to rebuild the fragments.
#
if ( $oldest < file_mtime ( $config_h ) ) {
utime time(), $oldest, $config_h or die "Could not touch $config_h: $!\n";
}