mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-10 03:54:48 +00:00
69 lines
1.7 KiB
Plaintext
69 lines
1.7 KiB
Plaintext
# Tests for .jar files.
|
|
|
|
# Compile a single .jar file to an executable.
|
|
# Returns 0 on failure.
|
|
proc gcj_jar_link {jarfile mainclass} {
|
|
}
|
|
|
|
proc gcj_jar_compile_one {jarfile mainclass} {
|
|
set base [file rootname [file tail $jarfile]]
|
|
set out [file rootname $jarfile].out
|
|
|
|
if {! [gcj_link $base $mainclass [list $jarfile]]} {
|
|
return
|
|
}
|
|
|
|
gcj_invoke $base $out {}
|
|
}
|
|
|
|
proc gcj_jar_interpret {jarfile} {
|
|
global INTERPRETER srcdir
|
|
|
|
set gij [libjava_find_gij]
|
|
set errname [dg-trim-dirname $srcdir $jarfile]
|
|
# libjava_find_gij will return "" if it couldn't find the
|
|
# program; in this case we want to skip the test.
|
|
if {$INTERPRETER != "yes" || $gij == ""} {
|
|
untested "$errname execution - gij test"
|
|
untested "$errname output - gij test"
|
|
return
|
|
}
|
|
|
|
set opts(_) {}
|
|
set out [file rootname $jarfile].out
|
|
libjava_invoke $errname "gij test" opts $gij {} $out \
|
|
"" -jar $jarfile
|
|
}
|
|
|
|
proc gcj_jar_run {} {
|
|
global srcdir subdir env
|
|
foreach jar [lsort [glob -nocomplain ${srcdir}/${subdir}/*.jar]] {
|
|
set xff [file rootname $jar].xfail
|
|
set main {}
|
|
set interp 1
|
|
foreach item [libjava_read_xfail $xff] {
|
|
if {[string match main=* $item]} {
|
|
set main [string range $item 5 end]
|
|
break
|
|
} elseif {$item == "no-interpret"} {
|
|
set interp 0
|
|
}
|
|
}
|
|
|
|
gcj_jar_compile_one $jar $main
|
|
if {$interp} {
|
|
gcj_jar_interpret $jar
|
|
}
|
|
}
|
|
# When we succeed we remove all our clutter.
|
|
eval gcj_cleanup [glob -nocomplain -- ${main}.*] [list $main ]
|
|
|
|
# Reset CLASSPATH that we do not look into testsuite/libjava.jar for *.jar
|
|
# files which do not belong to the libgcj itself.
|
|
set env(CLASSPATH) ""
|
|
|
|
return 1
|
|
}
|
|
|
|
gcj_jar_run
|