diff options
author | Michael Meeks <michael.meeks@novell.com> | 2010-10-12 22:30:55 +0100 |
---|---|---|
committer | Michael Meeks <michael.meeks@novell.com> | 2010-10-12 22:30:55 +0100 |
commit | 82cdcc2b114024f9186502f54f632be810582d95 (patch) | |
tree | 4cb8ed18f0b5e99d1105f3966848f3607600764d /scp2/macros/macro.pl | |
parent | add stamp file - updated when configuration changes (diff) | |
download | core-82cdcc2b114024f9186502f54f632be810582d95.tar.gz core-82cdcc2b114024f9186502f54f632be810582d95.zip |
cleanup macro.pl - re-build if your config changes
Diffstat (limited to 'scp2/macros/macro.pl')
-rw-r--r-- | scp2/macros/macro.pl | 51 |
1 files changed, 29 insertions, 22 deletions
diff --git a/scp2/macros/macro.pl b/scp2/macros/macro.pl index ce0c197d5d78..d5dc0f8cc956 100644 --- a/scp2/macros/macro.pl +++ b/scp2/macros/macro.pl @@ -25,9 +25,11 @@ # #************************************************************************* +my $outfile; +my $destfile; +my $config_stamp; +my $lastcompletelangiso_var; my $completelangiso_var = $ENV{COMPLETELANGISO_VAR}; -my $lastcompletelangiso_var;; -my $outfile = ""; if ( !defined $completelangiso_var) { print STDERR "ERROR: No language defined!\n"; @@ -42,11 +44,11 @@ foreach $lang (split (/ /, $poorhelplocalizations_var)) { $poorhelplocalizations{$lang}++; } -startup_check(); -if ( "$completelangiso_var" eq "$lastcompletelangiso_var" ) { - print STDERR "No new languages. Keeping old file\n"; +if (!args_require_build()) { + print STDERR "No new languages, or config. Keeping old file\n"; exit 0; } +print STDERR "re-building macros\n"; my @completelangiso = split " +", $completelangiso_var; @@ -75,6 +77,7 @@ write_FILE_ALL_LANG_LETTER(); close OUTFILE; +rename $outfile, $destfile; sub write_ALL_LANG { @@ -256,25 +259,26 @@ sub write_FILE_ALL_LANG_LETTER print OUTFILE "\n\n"; } -sub startup_check +sub args_require_build { - my $i; - for ( $i=0; $i <= $#ARGV; $i++) { - if ( "$ARGV[$i]" eq "-o" ) { - if ( defined $ARGV[ $i + 1] ) { - $outfile = $ARGV[ $i + 1]; - } else { - usage(); - } - } + while (@ARGV) { + $opt = shift @ARGV; + $destfile = shift @ARGV if ($opt eq '-o'); + $config_stamp = shift @ARGV if ($opt eq '-c'); } - usage() if $i<2; - usage() if "$outfile" eq ""; - if ( -f "$outfile" ) { - # changed script - run allways - return if (stat($0))[9] > (stat("$outfile"))[9] ; + usage() if (!defined ($destfile) || !defined ($config_stamp)); + $outfile = "$destfile.tmp"; + + if ( -f "$destfile" ) { + # changed script - run always + return 1 if (stat($0))[9] > (stat("$destfile"))[9] ; - open OLDFILE, "$outfile" or die "$0 - ERROR: $outfile exists but isn't readable.\n"; + # changed set_soenv.stamp - run always + if (-f "$config_stamp") { + return 1 if (stat($config_stamp))[9] > (stat($destfile))[9]; + } + + open OLDFILE, "$destfile" or die "$0 - ERROR: $outfile exists but isn't readable.\n"; while ( $line = <OLDFILE> ) { if ( $line =~ /^\/\/.*completelangiso:/ ) { $lastcompletelangiso_var = $line; @@ -285,12 +289,15 @@ sub startup_check } close OLDFILE; + + return 0 if ( "$completelangiso_var" eq "$lastcompletelangiso_var" ); } + return 1; } sub usage { print STDERR "Generate language dependend macros use in *.scp files\n"; - print STDERR "perl $0 -o outputfile\n"; + print STDERR "perl $0 -o <outputfile> -c <config_stamp_file>\n"; exit 1; } |