Subversion Repositories openrisc

global srcdir subdir

catch { lsort [glob -nocomplain ${srcdir}/${subdir}/*.out] } srcfiles

verbose "srcfiles are $srcfiles"

set prefix ""

foreach x $srcfiles {

    regsub "\\.out$" $x "" prefix

    set bname [file tail $prefix]

    if [file exists $srcdir/$subdir/${bname}.xpo] {

        set resfile "$srcdir/$subdir/${bname}.xpo"

        set options "regexp_match"

    } else {

        set resfile "${prefix}.out"

        set options ""

    }

    if [file exists ${prefix}.inp] {

        set inpfile ${prefix}.inp

    } else {

        set inpfile ""

    }

    set args [libjava_read_xfail $srcdir/$subdir/$bname.xfail]

    verbose "inpfile is $inpfile"

    test_libjava $options "${prefix}.jar" "" $inpfile $resfile $args

    test_libjava $options "${prefix}.jar" "-O3" $inpfile $resfile $args

}

# Local Variables:

# tcl-indent-level:4

# End: