regenerate_raw.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

#!/usr/bin/perl

$html = 1;

sub GenRaw {

    $CDRVL = '1 2 3 4 5 6 7 8 8b 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23';

    @cdrVersionList = split( /\s+/, $CDRVL );

    foreach $cdrVersion (@cdrVersionList) {

        # remove all diff files, since they are possible outdated now
        $diffs = 'testset/' . $cdrVersion . '/*.diff';
        `rm -f $diffs`;

        $regrInput = 'testset/' . $cdrVersion . '/regression.in';
        $FL        = `cat $regrInput`;

        @fileList = split( /\n/, $FL );
        foreach $file (@fileList) {
            $filePath = 'testset/' . $cdrVersion . '/' . $file;
            `cdr2raw $filePath >$filePath.raw 2>$filePath.raw`;
            `cdr2xhtml $filePath > $filePath.xhtml 2>/dev/null`;
            `xmllint --c14n --nonet --dropdtd $filePath.xhtml > $filePath.xhtml.tmp 2>/dev/null`;
            `xmllint --format $filePath.xhtml.tmp > $filePath.xhtml 2>/dev/null`;
            `rm $filePath.xhtml.tmp`;
            `cdr2odg $filePath > $filePath.odg 2> /dev/null`;
            `xmllint --c14n --nonet --dropdtd $filePath.odg > $filePath.odg.tmp 2>/dev/null`;
            `xmllint --format $filePath.odg.tmp > $filePath.odg 2>/dev/null`;
            `rm $filePath.odg.tmp`;
        }
    }
}

# Main function
&GenRaw;

1;