There was no nice way of getting in UTF-8 filenames:
[perl.git] / jpl / install-jpl
1 #!/usr/bin/perl
2
3 print <<'END' if $>;
4 NOTE: Since you're not running as root, the installation will su at
5 the appropriate time later.  You will need to supply the root password
6 for the su program.
7
8 END
9
10 # Gather data.
11
12 # JPL_SRC
13
14 chop($JPL_SRC = `pwd`);
15 print "JPL_SRC = $JPL_SRC\n";
16
17 # JAVA_HOME
18
19 foreach $dir (
20     $ENV{JAVA_HOME},
21     "/usr/java",
22     "/usr/local/java",
23     "/usr/lib/java",
24     "/usr/local/lib/java",
25 ) {
26     $JAVA_HOME = $dir, last if $dir and -d "$dir/bin";
27 }
28 die "You must set the \$JAVA_HOME environment variable first.\n"
29         unless $JAVA_HOME;
30 print "JAVA_HOME = $JAVA_HOME\n";
31
32 # JPL_HOME
33
34 ($likelyjpl = $JAVA_HOME) =~ s#(.*)/.*#$1/jpl#;
35
36 print <<"END";
37
38 You need to decide which directory JPL files are to be installed in.
39 Applications will look in subdirectories of this directory for any JPL
40 related files.
41
42 You may use the current directory ($JPL_SRC)
43 or you may use a directory such as $likelyjpl.
44
45 END
46
47 $| = 1;
48 until (-d $JPL_HOME) {
49     print "Install JPL files where: [$JPL_SRC] ";
50     chop($JPL_HOME = <STDIN>);
51     $JPL_HOME ||= $JPL_SRC;
52     unless (-d $JPL_HOME) {
53         print "Warning: $JPL_HOME doesn't exist yet!\n\n";
54         print "Do you want to create it? [y] ";
55         chop($ans = <STDIN>);
56         $ans ||= 'y';
57         next unless $ans =~ /^y/i;
58
59         system "mkdir -p $JPL_HOME";
60         if ($> and not -d $JPL_HOME) {
61             warn "Couldn't create $JPL_HOME!\nTrying again as root...running su...\n";
62             system "set -x
63 su root -c 'mkdir -p $JPL_HOME && chown $> $JPL_HOME && chmod 0755 $JPL_HOME'";
64             warn "Couldn't create $JPL_HOME!\n" unless -d $JPL_HOME;
65         }
66     }
67 }
68 print "JPL_HOME = $JPL_HOME\n";
69
70 #########################################################################
71 # Spit out setvars.
72
73 print "Writing setvars...\n";
74
75 unlink "$JPL_SRC/setvars";
76 open(SETVARS, ">$JPL_HOME/setvars") or die "Can't create setvars: $!\n";
77 while (<DATA>) {
78     s/^JPL_SRC=.*/JPL_SRC='$JPL_SRC'/;
79     s/^JAVA_HOME=.*/JAVA_HOME='$JAVA_HOME'/;
80     s/^JPL_HOME=.*/JPL_HOME='$JPL_HOME'/;
81     print SETVARS $_;
82 }
83 close SETVARS;
84 chmod 0755, "$JPL_HOME/setvars";
85 symlink "$JPL_HOME/setvars", "$JPL_SRC/setvars" if $JPL_HOME ne $JPL_SRC;
86
87 #########################################################################
88 # Pretend we're make.
89
90 eval `./setvars -perl`;         # Take our own medicine.
91
92 print "\n\nStarting install...\n";
93
94 system <<'END' and die "Couldn't install JPL\n";
95 set -x
96 cd JPL
97 perl Makefile.PL
98 make clean
99 perl Makefile.PL
100 make install
101 END
102
103 print "\nInstalling PerlInterpreter class\n";
104
105 system <<'END' and die "Couldn't install PerlInterpreter\n";
106 set -x
107 cd PerlInterpreter
108 perl Makefile.PL
109 make clean
110 perl Makefile.PL
111 make install
112 END
113
114 print "\nInstalling JNI module\n";
115
116 system <<'END' and die "Couldn't install JNI\n";
117 set -x
118 cd JNI
119 perl Makefile.PL -e
120 make clean
121 perl Makefile.PL -e
122 make
123 echo 'Attempting to install JNI as root'
124 su root -c "make install"
125 END
126
127 #touch Makefile
128 #make -f makefile.jv
129 ## These should be executed as root
130 #rm -rf /usr/lib/perl5/site_perl/i586-linux/auto/JNI
131 #rm -rf /usr/lib/perl5/site_perl/auto/JNI
132 #rm -f  /usr/lib/perl5/site_perl/JNI.pm
133 #make -f makefile.jv install UNINST=1 
134
135 print "\nInstalling Sample JPL program\n";
136
137 system <<'END' and die "Couldn't install Sample\n";
138 set -x
139 cd Sample
140 perl Makefile.PL
141 make clean
142 perl Makefile.PL
143 make install
144 END
145
146 # Test
147 print "\n\nTesting Sample...\n";
148 system <<'END' and die "Couldn't run Sample\n";
149 set -x
150 cd Sample
151 JPLDEBUG=1
152 export JPLDEBUG
153 java Sample
154 END
155
156 __END__
157 #!/bin/sh
158
159 # You can edit this, but your changes will only last until the next
160 # time you run install-jpl.
161
162 # Where jpl is currently installed
163
164 cd `dirname $0`
165 JPL_SRC=`pwd`
166
167 # Where java is installed
168
169 JAVA_HOME=/usr/local/java
170 export JAVA_HOME
171
172 # Where jpl will be installed
173
174 JPL_HOME="$JPL_SRC"
175 export JPL_HOME
176
177 # Which perl to run
178
179 JPLPERL=perl`perl -e "print $]"`
180 #JPLPERL=perl5.00404
181 export JPLPERL
182
183 # Some derivative variables
184 archname=`$JPLPERL -MConfig -e 'print $Config{archname}'`
185  archlib=`$JPLPERL -MConfig -e 'print $Config{archlib}'`
186
187 CLASSPATH=".:$JPL_HOME/lib${CLASSPATH:+:$CLASSPATH}"
188 export CLASSPATH
189
190 LD_LIBRARY_PATH=".:$JPL_HOME/lib/$archname:$archlib/CORE${LD_LIBRARY_PATH:+:$LD_LIBRARY_PATH}"
191 export LD_LIBRARY_PATH
192
193 PERL5LIB="$JPL_HOME/perl${PERL5LIB:+:$PERL5LIB}"
194 export PERL5LIB
195
196 # Make sure the right java programs are selected.
197 PATH="$JAVA_HOME/bin:$PATH"
198 export PATH
199
200 case "$1" in
201 -perl)
202     cat <<END
203 \$ENV{PATH} = '$PATH';
204 \$ENV{JAVA_HOME} = '$JAVA_HOME';
205 \$ENV{JPL_HOME} = '$JPL_HOME';
206 \$ENV{JPLPERL} = '$JPLPERL';
207 \$ENV{CLASSPATH} = '$CLASSPATH';
208 \$ENV{LD_LIBRARY_PATH} = '$LD_LIBRARY_PATH';
209 \$ENV{PERL5LIB} = '$PERL5LIB';
210 END
211     ;;
212 -sh)
213     cat <<END
214  PATH='$PATH';export PATH;JAVA_HOME='$JAVA_HOME';export JAVA_HOME;JPL_HOME='$JPL_HOME';export JPL_HOME;JPLPERL='$JPLPERL';export JPLPERL;CLASSPATH='$CLASSPATH';export CLASSPATH;LD_LIBRARY_PATH='$LD_LIBRARY_PATH';export LD_LIBRARY_PATH;PERL5LIB='$PERL5LIB';export PERL5LIB
215 END
216     ;;
217 -csh)
218     cat <<END
219 setenv PATH '$PATH';
220 setenv JAVA_HOME '$JAVA_HOME';
221 setenv JPL_HOME '$JPL_HOME';
222 setenv JPLPERL '$JPLPERL';
223 setenv CLASSPATH '$CLASSPATH';
224 setenv LD_LIBRARY_PATH '$LD_LIBRARY_PATH';
225 setenv PERL5LIB '$PERL5LIB';
226 END
227     ;;
228 esac
229