You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
84 lines
1.3 KiB
84 lines
1.3 KiB
#!/usr/bin/perl
|
|
|
|
if ( @ARGV != 1 ) {
|
|
print STDERR "Missing arg: filename\n";
|
|
exit 1;
|
|
}
|
|
|
|
$file = $ARGV[0];
|
|
|
|
$file =~ /^(.*)\.[^\.]*$/;
|
|
$filebase = $1;
|
|
|
|
$file_h = "$filebase.h";
|
|
$file_cpp = "$filebase.cpp";
|
|
|
|
$kcfgc = $file . "c";
|
|
|
|
$cmd = "./tdeconfig_compiler $file $kcfgc";
|
|
|
|
#print "CMD $cmd\n";
|
|
|
|
if ( system( $cmd ) != 0 ) {
|
|
print STDERR "Unable to run tdeconfig_compiler\n";
|
|
exit 1;
|
|
}
|
|
|
|
chectdefile( $file_h );
|
|
chectdefile( $file_cpp );
|
|
|
|
exit 0;
|
|
|
|
sub chectdefile()
|
|
{
|
|
my $file = shift;
|
|
|
|
$file =~ /\/([^\/]*)$/;
|
|
my $filename = $1;
|
|
|
|
print "Checking '$filename':\n";
|
|
|
|
my @ref;
|
|
if ( !open( REF, "$file.ref" ) ) {
|
|
print STDERR "Unable to open $file.ref\n";
|
|
exit 1;
|
|
}
|
|
while( <REF> ) {
|
|
push @ref, $_;
|
|
}
|
|
close REF;
|
|
|
|
if ( !open( READ, $filename ) ) {
|
|
print STDERR "Unable to open $filename\n";
|
|
exit 1;
|
|
}
|
|
|
|
$error = 0;
|
|
$i = 0;
|
|
$line = 1;
|
|
while( <READ> ) {
|
|
$out = $_;
|
|
$ref = @ref[$i++];
|
|
|
|
if ( $out ne $ref ) {
|
|
$error++;
|
|
print " Line $line: Expected : $ref";
|
|
print " Line $line: Compiler output : $out";
|
|
}
|
|
|
|
$line++;
|
|
}
|
|
|
|
close READ;
|
|
|
|
if ( $error > 0 ) {
|
|
print "\n FAILED: $error errors found.\n";
|
|
if ( $error > 5 ) {
|
|
system( "diff -u $file.ref $filename" );
|
|
}
|
|
exit 1;
|
|
} else {
|
|
print " OK\n";
|
|
}
|
|
}
|