Commit | Line | Data |
91317f6d |
1 | #!/usr/bin/perl |
2 | use ExtUtils::MakeMaker; |
3 | use Getopt::Std; |
4 | use Config; |
5 | $ARCHNAME = $Config{archname}; |
6 | use File::Basename; |
7 | |
8 | getopts('e'); # embedding? |
9 | |
10 | $CCFLAGS .= $ENV{CCFLAGS} if defined $ENV{CCFLAGS}; |
11 | |
12 | # $USE_KAFFE is a boolean that tells us whether or not we should use Kaffe. |
13 | # Set by find_includes (it seemed as good a place as any). |
14 | |
15 | # Note that we don't check to see the version of Kaffe is one we support. |
16 | # Currently, the only one we support is the one from CVS. |
17 | |
18 | my $USE_KAFFE = 0; |
19 | |
20 | #require "JNIConfig"; |
21 | |
22 | if ($^O eq 'solaris') { |
23 | $LIBPATH = " -R$Config{archlib}/CORE -L$Config{archlib}/CORE"; |
24 | } elsif ($^O eq 'MSWin32') { |
25 | $LIBPATH = " -L$Config{archlib}\\CORE"; |
26 | # MSR - added MS VC++ default library path |
27 | # bjepson - fixed to support path names w/spaces in them. |
28 | push(@WINLIBS, (split"\;",$ENV{LIB})); |
29 | grep s/\\$//, @WINLIBS; # eliminate trailing \ |
30 | grep s/\/$//, @WINLIBS; # eliminate trailing / |
31 | $LIBPATH .= join(" ", "", map { qq["-L$_" ] } @WINLIBS); |
32 | } else { |
33 | $LIBPATH = " -L$Config{archlib}/CORE"; |
34 | } |
35 | #$LIBS = " -lperl"; |
36 | |
37 | # Figure out where Java might live |
38 | # |
39 | # MSR - added JDK 1.3 |
40 | # |
41 | |
42 | my @JAVA_HOME_GUESSES = qw(/usr/local/java /usr/java /usr/local/jdk117_v3 |
43 | C:\\JDK1.1.8 C:\\JDK1.2.1 C:\\JDK1.2.2 C:\\JDK1.3 ); |
44 | |
45 | my @KAFFE_PREFIX_GUESSES = qw(/usr/local /usr); |
46 | |
47 | if (! defined $ENV{JAVA_HOME}) { |
48 | print "You didn't define JAVA_HOME, so I'm trying a few guesses.\n"; |
49 | print "If this fails, you might want to try setting JAVA_HOME and\n"; |
50 | print "running me again.\n"; |
51 | } else { |
52 | @JAVA_HOME_GUESSES = ( $ENV{JAVA_HOME} ); |
53 | } |
54 | |
55 | if (! defined $ENV{KAFFE_PREFIX}) { |
56 | print "\nYou didn't define KAFFE_PREFIX, so I'm trying a few guesses.", |
57 | "\nIf this fails, and you are using Kaffe, you might want to try\n", |
58 | "setting KAFFE_PREFIX and running me again.\n", |
59 | "If you want to ignore any possible Kaffe installation, set the\n", |
60 | "KAFFE_PREFIX to and empty string.\n\n"; |
61 | } else { |
62 | @KAFFE_PREFIX_GUESSES = ($ENV{KAFFE_PREFIX} eq "") ? () : |
63 | ( $ENV{KAFFE_PREFIX} ); |
64 | } |
65 | |
66 | my(@KAFFE_INCLUDE_GUESSES, @KAFFE_LIB_GUESSES); |
67 | foreach my $kaffePrefix (@KAFFE_PREFIX_GUESSES) { |
68 | push(@KAFFE_INCLUDE_GUESSES, "$kaffePrefix/include/kaffe"); |
69 | push(@KAFFE_LIB_GUESSES, "$kaffePrefix/lib"); |
70 | push(@KAFFE_LIB_GUESSES, "$kaffePrefix/lib/kaffe"); |
71 | } |
72 | $guess .= "/include/kaffe"; |
73 | |
74 | # Let's find out where jni.h lives |
75 | # |
76 | my @INCLUDE = find_includes(); |
77 | |
78 | if ($^O eq 'MSWin32') { |
79 | # MSR - added MS VC++ default include path |
80 | push(@INCLUDE,(split"\;",$ENV{INCLUDE})); |
81 | grep s/\\$//, @INCLUDE; # remove trailing \ |
82 | grep s/\/$//, @INCLUDE; # remove trailing \ |
83 | $INC = join("", map { qq["-I$_" ] } @INCLUDE); |
84 | |
85 | } else { |
86 | $INC = join(" -I", ("", @INCLUDE)); |
87 | } |
88 | |
89 | # Let's find out the name of the Java shared library |
90 | # |
91 | my @JAVALIBS = find_libs(); |
92 | |
93 | # Find out some defines based on the library we are linking to |
94 | # |
95 | foreach (@JAVALIBS) { |
96 | if ( $^O eq 'MSWin32') { # We're on Win32 |
97 | $INC =~ s#/#\\#g; |
98 | $INC =~ s#\\$##; |
99 | print $INC, "\n"; |
100 | $CCFLAGS .= " -DWIN32 -Z7 -D_DEBUG"; |
101 | $MYEXTLIB = "$libjava"; |
102 | } |
103 | } |
104 | |
105 | $CCFLAGS .= " -DKAFFE" if ($USE_KAFFE); |
106 | |
107 | # Let's find out the path of the library we need to link against. |
108 | # |
109 | foreach (@JAVALIBS) { |
110 | if ($^O eq 'MSWin32') { # We're on Win32 |
111 | $_ =~ s#/#\\\\#g; |
112 | } |
113 | my ($libname, $libpath, $libsuffix) = fileparse($_, ("\.so", "\.lib")); |
114 | $libname =~ s/^lib//; |
115 | if ($^O eq 'solaris') { |
116 | $LIBPATH .= " -R$libpath -L$libpath" |
117 | } else { |
118 | $LIBPATH .= " -L$libpath" |
119 | } |
120 | $LIBS .= " -l$libname"; |
121 | } |
122 | |
123 | # Do we need -D_REENTRANT? |
124 | if ($LIBPATH =~ /native/) { |
125 | print "Looks like native threads...\n"; |
126 | $CCFLAGS .= " -D_REENTRANT"; |
127 | } |
128 | |
129 | if ($opt_e) { |
130 | print "We're embedding Perl in Java via libPerlInterpreter.so.\n"; |
131 | eval `../setvars -perl`; |
132 | $CCFLAGS .= " -DEMBEDDEDPERL"; |
133 | $LIBPATH .= " -R$ENV{JPL_HOME}/lib/$ARCHNAME -L$ENV{JPL_HOME}/lib/$ARCHNAME"; |
134 | $LIBS .= " -lPerlInterpreter"; |
135 | } |
136 | |
137 | # Needed for JNI. |
138 | if ($^O eq 'solaris') { |
139 | $LIBS = " -lthread -lc $LIBS"; #-lthread must be first!!! |
140 | $CCFLAGS .= " -D_REENTRANT"; |
141 | } |
142 | |
143 | # MSR - clean up LIBS |
144 | $LIBS =~ s/-l$//; |
145 | |
146 | # |
147 | # Next, build JNI/Config.pm. This is a superfluous thing for the SUN and |
148 | # Microsoft JDKs, but absolutely necessary for Kaffe. I think at some |
149 | # point, the Microsoft and SUN implementations should use JNI::Config, too. |
150 | # |
151 | |
152 | if (! -d "JNI") { |
153 | mkdir("JNI", 0755) || die "Unable to make JNI directory: $!"; |
154 | } |
155 | open(JNICONFIG, ">JNI/Config.pm") || die "Unable to open JNI/Config.pm: $!"; |
156 | |
157 | print JNICONFIG "# DO NOT EDIT! Autogenerated by JNI/Makefile.PL\n\n", |
158 | "package JNI::Config;\nuse strict;\nuse Carp;\n", |
159 | "\nuse vars qw(\$KAFFE \$LIB_JAVA \$CLASS_HOME ", |
160 | "\$LIB_HOME);\n\n", |
161 | "\$KAFFE = $USE_KAFFE;\n\$LIB_JAVA = \"$JAVALIBS[0]\";\n"; |
162 | if ($USE_KAFFE) { |
163 | my $path = $JAVALIBS[0]; |
164 | $path =~ s%/(kaffe/)?libkaffevm.so$%%; |
165 | |
166 | print JNICONFIG "\$LIB_HOME = \"$path/kaffe\";\n"; |
167 | $path =~ s%/lib%%; |
168 | print JNICONFIG "\$CLASS_HOME = \"$path/share/kaffe\";\n"; |
169 | } |
170 | print JNICONFIG "\n\n1;\n"; |
171 | close JNICONFIG; |
172 | |
173 | |
174 | my %Makefile = ( |
175 | NAME => 'JNI', |
176 | VERSION_FROM => 'JNI.pm', |
177 | DEFINE => '', |
178 | LINKTYPE => 'dynamic', |
179 | INC => $INC, |
180 | CCFLAGS => "$Config{ccflags} $CCFLAGS", |
181 | ($Config{archname} =~ /mswin32.*-object/i ? ('CAPI' => 'TRUE') : ()), |
182 | |
183 | clean => {FILES => "JNI/* JNI"} |
184 | ); |
185 | |
186 | $Makefile{LIBS} = ["$LIBPATH $LIBS"]; |
187 | if ($MYEXTLIB) { |
188 | $Makefile{MYEXTLIB} = $MYEXTLIB; |
189 | } |
190 | |
191 | # See lib/ExtUtils/MakeMaker.pm for details of how to influence |
192 | # the contents of the Makefile that is written. |
193 | # |
194 | WriteMakefile(%Makefile); |
195 | |
196 | if ($USE_KAFFE) { |
197 | my $path = $JAVALIBS[0]; |
198 | $path =~ s%/libkaffevm.so$%%; |
199 | print "\n\n***NOTE: be sure to have:\n", |
200 | " LD_LIBRARY_PATH=$path\n", |
201 | " in your enviornment (or installed as a system dynamic\n", |
202 | " library location) when you compile and run this.\n"; |
203 | } |
204 | |
205 | # subroutine to find a library |
206 | # |
207 | sub find_stuff { |
208 | |
209 | my ($candidates, $locations) = @_; |
210 | my $lib; |
211 | $wanted = sub { |
212 | foreach my $name (@$candidates) { |
213 | if (/$name$/ and ! /green_threads/ and !/include-old/) { |
214 | $lib = $File::Find::name; |
215 | } |
216 | } |
217 | }; |
218 | |
219 | use File::Find; |
220 | foreach my $guess (@$locations) { |
221 | next unless -d $guess; |
222 | find (\&$wanted, $guess); |
223 | } |
224 | if (! $lib) { |
225 | print "Could not find @$candidates\n"; |
226 | } else { |
227 | print "Found @$candidates as $lib\n\n"; |
228 | } |
229 | return $lib; |
230 | } |
231 | |
232 | # Extra lib for Java 1.2 |
233 | # |
234 | # if we want KAFFE, check for it, otherwise search for Java |
235 | |
236 | sub find_libs { |
237 | my($libjava, $libawt, $libjvm); |
238 | |
239 | if ($USE_KAFFE) { |
240 | $libjava = find_stuff(['libkaffevm.so'], \@KAFFE_LIB_GUESSES); |
241 | $libawt = find_stuff(['libawt.so'], \@KAFFE_LIB_GUESSES); |
242 | } else { |
243 | $libjava = find_stuff(['libjava.so', 'javai.lib', 'jvm.lib'], |
244 | \@JAVA_HOME_GUESSES); |
245 | $libjvm = find_stuff(['libjvm.so'], \@JAVA_HOME_GUESSES); |
246 | $libawt = find_stuff(['libawt.so'], \@JAVA_HOME_GUESSES); |
247 | if (defined $libjvm) { # JDK 1.2 |
248 | my $libhpi = find_stuff(['libhpi.so'], \@JAVA_HOME_GUESSES); |
249 | return($libjava, $libjvm, $libhpi, $libawt); |
250 | } |
251 | } |
252 | return($libjava, $libawt); |
253 | } |
254 | |
255 | # We need to find jni.h and jni_md.h |
256 | # |
257 | |
258 | # Always do find_includes as the first operation, as it has the side effect |
259 | # of deciding whether or not we are looking for Kaffe. --bkuhn |
260 | |
261 | sub find_includes { |
262 | |
263 | my @CANDIDATES = qw(jni.h jni_md.h); |
264 | my @includes; |
265 | |
266 | sub find_inc { |
267 | foreach my $name (@CANDIDATES) { |
268 | if (/$name$/) { |
269 | my ($hname, $hpath, $hsuffix) = |
270 | fileparse($File::Find::name, ("\.h", "\.H")); |
271 | unless ($hpath =~ /include-old/) { |
272 | print "Found $hname$hsuffix in $hpath\n"; |
273 | push @includes, $hpath; |
274 | } |
275 | } |
276 | } |
277 | } |
278 | |
279 | use File::Find; |
280 | foreach my $guess (@KAFFE_INCLUDE_GUESSES) { |
281 | next unless -d $guess; |
282 | find (\&find_inc, $guess); |
283 | } |
284 | # If we have found includes, then we are using Kaffe. |
285 | if (@includes > 0) { |
286 | $USE_KAFFE = 1; |
287 | } else { |
288 | foreach my $guess (@JAVA_HOME_GUESSES) { |
289 | next unless -d $guess; |
290 | find (\&find_inc, $guess); |
291 | } |
292 | } |
293 | die "Could not find Java includes!" unless (@includes); |
294 | |
295 | return @includes; |
296 | } |
297 | |