our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
$VERSION = 1.0;
@ISA = qw(Exporter);
- @EXPORT = qw(&Init &Log &Notice &Fail &IsSet &Set &UnSet &Append &Override &Get &Test &Include &Finish &FindFile &TryFindFile);
+ @EXPORT = qw(&Init &Log &Notice &Warn &Fail &IsSet &Set &UnSet &Append &Override &Get &Test &Include &Finish &FindFile &TryFindFile);
@EXPORT_OK = qw();
%EXPORT_TAGS = ();
}
print @_ if $vars{"VERBOSE"};
}
+sub Warn($) {
+ print "WARNING: ", @_;
+}
+
sub Fail($) {
- Log((shift @_) . "\n");
+ Log("ERROR: " . (shift @_) . "\n");
exit 1;
}
if ($x =~ /^(\w+)=(.*)/) {
Override($1 => $2);
} elsif ($x =~ /^-(\w+)$/) {
- Override($1 => 1);
+ Override($1 => 0);
delete $vars{$1};
} elsif ($x =~ /^(\w+)$/) {
Override($1 => 1);
} else {
- print STDERR "Invalid option $_\n";
+ print STDERR "Invalid option $x\n";
exit 1;
}
}
Log "done\n";
Log "Generating autoconf.h ... ";
- open X, ">obj/lib/autoconf.h" or Fail $!;
+ open X, ">obj/autoconf.h" or Fail $!;
print X "/* Generated automatically by $0, please don't touch manually. */\n";
foreach my $x (sort keys %vars) {
# Don't export variables which contain no underscores
foreach my $x (sort keys %vars) {
print X "$x=$vars{$x}\n";
}
+ print X "s=\${SRCDIR}\n";
+ print X "o=obj\n";
close X;
Log "done\n";
}