349
|
1 |
@echo off
|
|
2 |
:
|
|
3 |
: $Header$
|
|
4 |
:
|
|
5 |
: startup script for smalltalk
|
|
6 |
: actually, simply calls stx, passing all arguments.
|
|
7 |
:
|
|
8 |
:
|
|
9 |
: In previous versions, smalltalk used to be the executable itself.
|
|
10 |
: This lead to problems on systems, where things like the PATH
|
997
|
11 |
: or STX_LIBDIR should be set in advance.
|
349
|
12 |
: Now, here is a place to do such things ...
|
|
13 |
:
|
|
14 |
|
|
15 |
if {%1}=={--help} goto usage
|
|
16 |
|
|
17 |
:
|
|
18 |
: change the line below, if
|
|
19 |
: the support stuff is not found in the
|
997
|
20 |
: directory where stx.com / stx.exe resides ...
|
349
|
21 |
: STX_LIB_DIR=<path_to_support_files>
|
|
22 |
|
|
23 |
stx %1 %2 %3 %4 %5 %6 %7 %8 %9 %10
|
|
24 |
goto end
|
|
25 |
|
|
26 |
:usage
|
|
27 |
echo.
|
|
28 |
echo usage: smalltalk stx-args
|
|
29 |
echo.
|
|
30 |
echo STX args:
|
|
31 |
stx --help
|
|
32 |
|
|
33 |
:end
|