author | Claus Gittinger <cg@exept.de> |
Mon, 16 Jun 2003 11:42:29 +0200 | |
changeset 540 | e27a6c1450bc |
parent 482 | 94e7d89d7844 |
child 1133 | c4e732341636 |
permissions | -rwxr-xr-x |
151 | 1 |
#!/bin/sh |
2 |
||
3 |
# $Header$ |
|
4 |
# |
|
5 |
# |
|
6 |
# startup script for smalltalk |
|
7 |
# actually, simply calls stx, passing all arguments. |
|
8 |
# |
|
9 |
||
10 |
# In previous versions, smalltalk used to be the executable itself. |
|
11 |
# This lead to problems on systems, where things like LD_LIBRARY_PATH |
|
12 |
# should be set in advance. |
|
13 |
# Now, here is a place to do such things ... |
|
14 |
||
164 | 15 |
# |
192 | 16 |
# -x name specifies an explicit executable |
277 | 17 |
# to avoid executing another stx from some directory along the PATH |
18 |
# (i.e to force use: ./smalltalk -x ./stx) |
|
192 | 19 |
# |
277 | 20 |
# -X name specifies an explicit path to the stx executable |
21 |
# to avoid executing another stx from some directory along the PATH |
|
22 |
# (i.e to force use: ./smalltalk -X .) |
|
341 | 23 |
# [almost the same as above] |
277 | 24 |
# |
25 |
# -ldd show ldd-output (to debug, which libs are loaded) |
|
26 |
# |
|
281 | 27 |
# all other args go to stx & the user classes |
277 | 28 |
# |
29 |
||
341 | 30 |
if [ "$1" = "--help" ] |
31 |
then |
|
32 |
echo |
|
482 | 33 |
echo "usage: smalltalk [-x prog] [-X dir] [--ldd] [--gdb] stx-args" |
341 | 34 |
echo |
35 |
echo "Args to the smalltalk startup shell script:" |
|
36 |
echo " -x prog use prog instead of stx as executable" |
|
37 |
echo " -X dir use stx from dir instead of default (PATH)" |
|
482 | 38 |
echo " --ldd show which shared libraries are used" |
39 |
echo " --gdb run with gdb-Debugger (type r in debugger to start)" |
|
341 | 40 |
echo " stx-args stx arguments as follows." |
41 |
echo |
|
42 |
echo "STX args:" |
|
43 |
fi |
|
44 |
||
277 | 45 |
STX=stx |
452 | 46 |
STX_BINDIR=. |
439 | 47 |
DEBUGGER= |
48 |
||
452 | 49 |
if test -x `dirname $0`/stx; then |
50 |
STX_BINDIR=`dirname $0` |
|
454
e8676bb3d081
Don't do a cd to projects/smalltalk if called with absolute pathname
Stefan Vogel <sv@exept.de>
parents:
452
diff
changeset
|
51 |
STX=$STX_BINDIR/stx |
e8676bb3d081
Don't do a cd to projects/smalltalk if called with absolute pathname
Stefan Vogel <sv@exept.de>
parents:
452
diff
changeset
|
52 |
# cd $STX_BINDIR |
452 | 53 |
fi |
54 |
||
476
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
55 |
if [ "$STX_LIBDIR" != "" ] |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
56 |
then |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
57 |
if [ ! -f $STX_LIBDIR/smalltalk.rc ] |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
58 |
then |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
59 |
echo "smalltalk [warning]: ignore wrong STX_LIBDIR setting" |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
60 |
STX_LIBDIR="" |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
61 |
fi |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
62 |
fi |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
63 |
|
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
64 |
|
383 | 65 |
# notice: STXLIBDIR is filled in here by install-sh script |
319 | 66 |
if test -z "$STX_LIBDIR" |
67 |
then |
|
68 |
bindir=`dirname $0` |
|
69 |
case "$bindir" in |
|
70 |
/* ) |
|
71 |
;; |
|
72 |
.* ) |
|
73 |
bindir=`( cd $bindir; pwd ) 2> /dev/null` |
|
74 |
;; |
|
75 |
esac |
|
434
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
76 |
if [ -d ${bindir}/../lib ] |
449 | 77 |
then |
78 |
STX_LIBDIR=`cd ${bindir}/../lib ; pwd` |
|
79 |
fi |
|
319 | 80 |
fi |
452 | 81 |
|
476
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
82 |
if [ -z "$STX_LIBDIR" ] |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
83 |
then |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
84 |
if [ -d ../lib ] |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
85 |
then |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
86 |
STX_LIBDIR=`cd ../lib ; pwd` |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
87 |
fi |
25c3df1d5c43
ignore invalid STX_LIBDIR setting
Claus Gittinger <cg@exept.de>
parents:
454
diff
changeset
|
88 |
fi |
435 | 89 |
if [ ! -d "$STX_LIBDIR" ] |
383 | 90 |
then |
91 |
if [ -d ../lib ] |
|
92 |
then |
|
93 |
STX_LIBDIR=`cd ../lib ; pwd` |
|
94 |
fi |
|
95 |
fi |
|
452 | 96 |
|
399 | 97 |
if test -z "$STX_PACKAGEDIR" |
98 |
then |
|
99 |
if [ -d ../packages ] |
|
100 |
then |
|
101 |
STX_PACKAGEDIR=`cd .. ; pwd` |
|
434
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
102 |
else |
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
103 |
if [ -d $STX_LIBDIR/../packages ] |
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
104 |
then |
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
105 |
STX_PACKAGEDIR=`cd $STX_LIBDIR/../packages ; pwd` |
452 | 106 |
else |
107 |
if [ -f $STX_BINDIR/smalltalk.rc ] |
|
108 |
then |
|
109 |
STX_PACKAGEDIR=`cd $STX_BINDIR/../../.. ; pwd` |
|
110 |
fi |
|
434
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
111 |
fi |
399 | 112 |
fi |
113 |
fi |
|
452 | 114 |
|
401 | 115 |
if test -z "$STX_TOPDIR" |
116 |
then |
|
117 |
if [ -f ../lib/smalltalk.rc ] |
|
118 |
then |
|
119 |
STX_TOPDIR=`cd .. ; pwd` |
|
434
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
120 |
else |
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
121 |
if [ -f $STX_LIBDIR/../lib/smalltalk.rc ] |
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
122 |
then |
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
123 |
STX_TOPDIR=`cd $STX_LIBDIR/.. ; pwd` |
452 | 124 |
else |
125 |
if [ -f $STX_BINDIR/smalltalk.rc ] |
|
126 |
then |
|
127 |
STX_TOPDIR=`cd $STX_BINDIR/../.. ; pwd` |
|
128 |
fi |
|
434
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
129 |
fi |
401 | 130 |
fi |
131 |
fi |
|
383 | 132 |
|
434
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
133 |
# echo STX_LIBDIR is $STX_LIBDIR |
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
134 |
# echo STX_TOPDIR is $STX_TOPDIR |
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
135 |
# echo STX_PACKAGEDIR is $STX_PACKAGEDIR |
f073cdbe422f
oops - LIBDIR/TOPDIR & PACKAGEDIR detection failed,
Claus Gittinger <cg@exept.de>
parents:
401
diff
changeset
|
136 |
|
401 | 137 |
export STX_LIBDIR STX_PACKAGEDIR STX_TOPDIR |
452 | 138 |
|
139 |
# echo STX is $STX |
|
277 | 140 |
|
193 | 141 |
if [ "$1" = "-x" ] |
192 | 142 |
then |
143 |
shift |
|
144 |
STX=$1 |
|
145 |
shift |
|
277 | 146 |
fi |
147 |
||
148 |
if [ "$1" = "-X" ] |
|
149 |
then |
|
150 |
shift |
|
151 |
STX=$1/stx |
|
152 |
shift |
|
192 | 153 |
fi |
154 |
||
482 | 155 |
if [ "$1" = "--gdb" ] |
439 | 156 |
then |
157 |
shift |
|
158 |
DEBUGGER=gdb |
|
159 |
fi |
|
160 |
||
482 | 161 |
if [ "$1" = "--ldd" ] |
262 | 162 |
then |
163 |
shift |
|
341 | 164 |
DEBUGLIB=yes |
262 | 165 |
fi |
166 |
||
192 | 167 |
# |
168 |
# |
|
164 | 169 |
# some have Xlibs in /usr/openwin/lib ... |
170 |
# |
|
157 | 171 |
if [ -d /usr/openwin/lib ] |
172 |
then |
|
234
861d75db3bec
do not clobber existing LD_LIBRARY_PATH
Claus Gittinger <cg@exept.de>
parents:
193
diff
changeset
|
173 |
if [ "$LD_LIBRARY_PATH" != "" ] |
861d75db3bec
do not clobber existing LD_LIBRARY_PATH
Claus Gittinger <cg@exept.de>
parents:
193
diff
changeset
|
174 |
then |
276 | 175 |
LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/usr/openwin/lib:/usr/local/lib/smalltalk/lib |
234
861d75db3bec
do not clobber existing LD_LIBRARY_PATH
Claus Gittinger <cg@exept.de>
parents:
193
diff
changeset
|
176 |
else |
276 | 177 |
LD_LIBRARY_PATH=/usr/openwin/lib:/usr/local/lib/smalltalk/lib |
234
861d75db3bec
do not clobber existing LD_LIBRARY_PATH
Claus Gittinger <cg@exept.de>
parents:
193
diff
changeset
|
178 |
fi |
315 | 179 |
if [ "$SHLIB_PATH" != "" ] |
180 |
then |
|
181 |
SHLIB_PATH=$SHLIB_PATH:/usr/openwin/lib:/usr/local/lib/smalltalk/lib |
|
182 |
else |
|
183 |
SHLIB_PATH=/usr/openwin/lib:/usr/local/lib/smalltalk/lib |
|
184 |
fi |
|
157 | 185 |
else |
234
861d75db3bec
do not clobber existing LD_LIBRARY_PATH
Claus Gittinger <cg@exept.de>
parents:
193
diff
changeset
|
186 |
if [ "$LD_LIBRARY_PATH" != "" ] |
861d75db3bec
do not clobber existing LD_LIBRARY_PATH
Claus Gittinger <cg@exept.de>
parents:
193
diff
changeset
|
187 |
then |
276 | 188 |
LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/usr/local/lib/smalltalk/lib |
234
861d75db3bec
do not clobber existing LD_LIBRARY_PATH
Claus Gittinger <cg@exept.de>
parents:
193
diff
changeset
|
189 |
else |
276 | 190 |
LD_LIBRARY_PATH=/usr/local/lib/smalltalk/lib |
234
861d75db3bec
do not clobber existing LD_LIBRARY_PATH
Claus Gittinger <cg@exept.de>
parents:
193
diff
changeset
|
191 |
fi |
315 | 192 |
if [ "$SHLIB_PATH" != "" ] |
193 |
then |
|
194 |
SHLIB_PATH=$SHLIB_PATH:/usr/local/lib/smalltalk/lib |
|
195 |
else |
|
196 |
SHLIB_PATH=/usr/local/lib/smalltalk/lib |
|
197 |
fi |
|
157 | 198 |
fi |
164 | 199 |
|
200 |
# |
|
201 |
# my own libs may be found in STX_LIBDIR/lib |
|
247 | 202 |
# STX_LIBDIR is to be set to the top of the smalltalk installation |
203 |
# (i.e. where all the .rc files are located) |
|
164 | 204 |
# |
242 | 205 |
|
164 | 206 |
if [ "$STX_LIBDIR" != "" ] |
207 |
then |
|
243 | 208 |
if [ "$STX_LIBDIR" != "/usr/local/smalltalk" ] |
209 |
then |
|
398 | 210 |
LD_LIBRARY_PATH=$STX_LIBDIR:$STX_LIBDIR/lib:$LD_LIBRARY_PATH |
211 |
SHLIB_PATH=$STX_LIBDIR:$STX_LIBDIR/lib:$SHLIB_PATH |
|
243 | 212 |
fi |
452 | 213 |
else |
214 |
STX_LIBDIR=$STX_BINDIR |
|
215 |
fi |
|
216 |
||
217 |
# |
|
218 |
# and in STX_BINDIR |
|
219 |
# |
|
220 |
||
221 |
if [ "$STX_BINDIR" != "" ] |
|
222 |
then |
|
223 |
if [ "$STX_BINDIR" != "/usr/local/bin" ] |
|
224 |
then |
|
482 | 225 |
LD_LIBRARY_PATH=$STX_BINDIR:$LD_LIBRARY_PATH |
226 |
SHLIB_PATH=$STX_BINDIR:$SHLIB_PATH |
|
452 | 227 |
fi |
164 | 228 |
fi |
229 |
||
276 | 230 |
LD_LIBRARY_PATH=.:./lib:$LD_LIBRARY_PATH |
315 | 231 |
SHLIB_PATH=.:./lib:$SHLIB_PATH |
155 | 232 |
export LD_LIBRARY_PATH |
315 | 233 |
export SHLIB_PATH |
247 | 234 |
|
235 |
# |
|
314
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
236 |
# if started via ./smalltalk, prepend . to the PATH |
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
237 |
# (to allow test of ./stx even when stx is found along the PATH) |
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
238 |
# |
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
239 |
case $0 in |
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
240 |
./*) |
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
241 |
PATH=.:$PATH |
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
242 |
export PATH |
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
243 |
;; |
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
244 |
esac |
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
245 |
|
7fbaf542c38c
prepend . to the path, if command was executed as ./xxxx
Claus Gittinger <cg@exept.de>
parents:
286
diff
changeset
|
246 |
# |
280 | 247 |
# debugging which stx & shared libs are used ... |
247 | 248 |
# |
344 | 249 |
whichOne=`/bin/sh -c "type $STX"` |
341 | 250 |
if [ "$STX" = "stx" ] |
251 |
then |
|
252 |
if [ -f stx ] |
|
253 |
then |
|
254 |
whichOne=`/bin/sh -c "type stx"` |
|
255 |
if [ "$whichOne" != "stx is ./stx" ] |
|
256 |
then |
|
257 |
echo "************* WARNING the executed" $whichOne |
|
258 |
echo "************* (may not be appropriate for used shared libs)" |
|
259 |
echo "************* Try './smalltalk -ldd' for more details" |
|
260 |
echo "************* or force the local stx to be used with" |
|
261 |
echo "************* './smalltalk -x ./stx'" |
|
262 |
echo |
|
263 |
fi |
|
264 |
fi |
|
265 |
fi |
|
266 |
||
280 | 267 |
if [ "$DEBUGLIB" = "yes" ] |
277 | 268 |
then |
344 | 269 |
echo "used " $whichOne |
341 | 270 |
echo "used LD_LIBRARY_PATH is " $LD_LIBRARY_PATH |
271 |
echo "used SHLIB_PATH is " $SHLIB_PATH |
|
272 |
echo "used STX_LIBDIR is " $STX_LIBDIR |
|
273 |
case `uname` in |
|
274 |
HP-UX*) |
|
275 |
chatr $STX |
|
276 |
;; |
|
277 | 277 |
|
341 | 278 |
*) |
279 |
ldd -r $STX |
|
280 |
;; |
|
281 |
esac |
|
262 | 282 |
fi |
247 | 283 |
|
316 | 284 |
# |
285 |
# how did HP mess up things so badly ? |
|
286 |
# It takes a veeeery long time for stx to start |
|
287 |
# (the spinning wheel is shown when stx's main |
|
288 |
# starts to run - all the time in between is |
|
289 |
# spent in the systems loader ...) |
|
290 |
# |
|
449 | 291 |
# if [ "`uname`" = "HP-UX" ] |
292 |
# then |
|
293 |
# echo "Please be patient - hp systems are very slow." |
|
294 |
# fi |
|
316 | 295 |
|
452 | 296 |
PATH=$PATH:$STX_BINDIR |
269 | 297 |
export PATH |
452 | 298 |
# echo PATH is $PATH |
299 |
# echo DISPLAY is $DISPLAY |
|
439 | 300 |
exec $DEBUGGER $STX ${1+"$@"} |