blob: 8dd8b8af049c3840d686101de2bb951bad96e012 (
plain)
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
# Tests for JNI code.
# Compile a single C file and produce a .so file. OPTIONS is a list
# of options to pass to the compiler. Returns 0 on failure, 1 on
# success.
proc gcj_jni_compile_c_to_so {file {options {}}} {
global srcdir
set name [file rootname [file tail $file]]
set soname lib${name}.so
lappend options "additional_flags=-shared -fPIC"
# Find the generated header.
lappend options "additional_flags=-I. -I.."
# Find jni.h.
lappend options "additional_flags=-I$srcdir/../include"
set x [prune_warnings [target_compile $file $soname executable $options]]
if {$x != ""} {
verbose "target_compile failed: $x" 2
fail "$name.c compilation"
return 0
}
pass "$name.c compilation"
return 1
}
# Build a header file from a .class file. Return 0 on failure.
proc gcj_jni_build_header {file} {
set gcjh [find_gcjh]
set file [file rootname $file]
set x [string trim [prune_warnings \
[lindex [local_exec "$gcjh -jni $file" "" "" 300] 1]]]
if {$x != ""} {
verbose "local_exec failed: $x" 2
fail "$file header generation"
return 0
}
pass "$file header generation"
return 1
}
# Invoke the program and see what happens. Return 0 on failure.
proc gcj_invoke {program expectFile} {
global env
set lib_path $env(LD_LIBRARY_PATH)
setenv LD_LIBRARY_PATH .:$lib_path
setenv SHLIB_PATH .:$lib_path
verbose "LD_LIBRARY_PATH=$env(LD_LIBRARY_PATH)"
set result [libjava_load ./$program]
set status [lindex $result 0]
set output [lindex $result 1]
# Restore setting
setenv LD_LIBRARY_PATH $lib_path
setenv SHLIB_PATH $lib_path
if {$status != "pass"} {
verbose "got $output"
fail "$program run"
untested "$program output"
return 0
}
set id [open $expectFile r]
set expected [read $id]
close $id
if {! [string compare $output $expected]} {
pass "$program output"
return 1
} else {
fail "$program output"
return 0
}
}
# Do all the work for a single JNI test. Return 0 on failure.
proc gcj_jni_test_one {file} {
global runtests
# The base name. We use it for several purposes.
set main [file rootname [file tail $file]]
if {! [runtest_file_p $runtests $main]} {
# Simply skip it.
return 1
}
if {! [bytecompile_file $file [pwd]]} {
fail "bytecompile $file"
# FIXME - should use `untested' on all remaining tests.
# But that is hard.
return 0
}
pass "bytecompile $file"
set bytefile [file rootname [file tail $file]].class
if {! [gcj_jni_build_header $bytefile]} {
# FIXME
return 0
}
set cfile [file rootname $file].c
set cxxflags ""
# If there is no `.c' file, assume there is a `.cc' file.
if {! [file exists $cfile]} {
set cfile [file rootname $file].cc
set cxxflags "-lstdc++"
}
if {! [gcj_jni_compile_c_to_so $cfile]} {
# FIXME
return 0
}
# We use -l$main because the .so is named the same as the main
# program.
set args [list "additional_flags=-fjni -L. -l$main $cxxflags"]
if {! [gcj_link $main $main $file $args]} {
# FIXME
return 0
}
if {! [gcj_invoke $main [file rootname $file].out]} {
# FIXME
return 0
}
# When we succeed we remove all our clutter.
eval gcj_cleanup [glob -nocomplain -- ${main}.*] [list $main lib${main}.so]
return 1
}
# Run the JNI tests.
proc gcj_jni_run {} {
global srcdir subdir
global target_triplet host_triplet
# For now we only test JNI on native builds.
if {$target_triplet == $host_triplet} {
catch "glob -nocomplain ${srcdir}/${subdir}/*.java" srcfiles
foreach x $srcfiles {
gcj_jni_test_one $x
}
} else {
verbose "JNI tests not run in cross-compilation environment"
}
}
gcj_jni_run
|
