| 1 | global srcdir subdir
|
|---|
| 2 |
|
|---|
| 3 | catch { lsort [glob -nocomplain ${srcdir}/${subdir}/*.out] } srcfiles
|
|---|
| 4 | verbose "srcfiles are $srcfiles"
|
|---|
| 5 |
|
|---|
| 6 | set prefix ""
|
|---|
| 7 | foreach x $srcfiles {
|
|---|
| 8 | regsub "\\.out$" $x "" prefix
|
|---|
| 9 | set bname [file tail $prefix]
|
|---|
| 10 |
|
|---|
| 11 | if [file exists $srcdir/$subdir/${bname}.xpo] {
|
|---|
| 12 | set resfile "$srcdir/$subdir/${bname}.xpo"
|
|---|
| 13 | set options "regexp_match"
|
|---|
| 14 | } else {
|
|---|
| 15 | set resfile "${prefix}.out"
|
|---|
| 16 | set options ""
|
|---|
| 17 | }
|
|---|
| 18 |
|
|---|
| 19 | if [file exists ${prefix}.inp] {
|
|---|
| 20 | set inpfile ${prefix}.inp
|
|---|
| 21 | } else {
|
|---|
| 22 | set inpfile ""
|
|---|
| 23 | }
|
|---|
| 24 |
|
|---|
| 25 | set args [libjava_read_xfail $srcdir/$subdir/$bname.xfail]
|
|---|
| 26 |
|
|---|
|
|---|
