Commit | Line | Data |
---|---|---|
91317f6d GS |
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 |