#!/usr/bin/perl
$html = 1;
sub GenRaw {
$ABWVL = 'abw';
@abwVersionList = split( /\s+/, $ABWVL );
foreach $abwVersion (@abwVersionList) {
# remove all diff files, since they are possible outdated now
$diffs = 'testset/' . $abwVersion . '/*.diff';
`rm -f $diffs`;
$regrInput = 'testset/' . $abwVersion . '/regression.in';
$FL = `cat $regrInput`;
@fileList = split( /\n/, $FL );
foreach $file (@fileList) {
if ( $file =~ /^#/ ) {
next;
}
$filePath = 'testset/' . $abwVersion . '/' . $file;
`abw2raw $filePath >$filePath.raw 2>$filePath.raw`;
`abw2odt --stdout $filePath > $filePath.fodt`;
`xmllint --c14n $filePath.fodt > $filePath.fodt.tmp`;
`xmllint --format $filePath.fodt.tmp > $filePath.fodt`;
`rm $filePath.fodt.tmp`;
}
}
}
# Main function
&GenRaw;
1;