1 @echo off |
1 @echo off |
2 : |
|
3 : $Header$ |
2 : $Header$ |
4 : |
|
5 : startup script for smalltalk |
3 : startup script for smalltalk |
6 : actually, simply calls stx, passing all arguments. |
4 : actually, simply calls stx, passing all arguments. |
7 : |
5 |
8 : |
|
9 : In previous versions, smalltalk used to be the executable itself. |
6 : In previous versions, smalltalk used to be the executable itself. |
10 : This lead to problems on systems, where things like the PATH |
7 : This lead to problems on systems, where things like the PATH |
11 : or STX_LIBDIR should be set in advance. |
8 : or STX_LIBDIR should be set in advance. |
12 : Now, here is a place to do such things ... |
9 : Now, here is a place to do such things ... |
13 : |
|
14 |
10 |
15 if {%1}=={--help} goto usage |
11 if {%1}=={--help} goto usage |
16 |
12 |
17 : |
13 |
18 : change the line below, if |
14 : change the line below, if |
19 : the support stuff is not found in the |
15 : the support stuff is not found in the |
20 : directory where stx.com / stx.exe resides ... |
16 : directory where stx.com / stx.exe resides ... |
21 : STX_LIB_DIR=<path_to_support_files> |
17 : STX_LIB_DIR=<path_to_support_files> |
|
18 set STX_BIN_DIR=%~dp0 |
|
19 if exist %STX_BIN_DIR%\stx-bin.com ( |
|
20 set VERSION=6.2.5 |
|
21 set STX_HOME=%STX_BIN_DIR%\.. |
|
22 set STX_TOPDIR=%STX_HOME%\lib\smalltalkx\%VERSION% |
|
23 set STX_LIBDIR=%STX_TOPDIR%\lib |
|
24 set STX_PACKAGEDIR=%STX_TOPDIR%\packages |
|
25 set STX_EXE=%STX_BIN_DIR%\stx-bin.com |
|
26 ) else ( |
|
27 set STX_EXE=%STX_BIN_DIR%\stx.com |
|
28 ) |
22 |
29 |
23 stx %1 %2 %3 %4 %5 %6 %7 %8 %9 %10 |
30 |
|
31 |
|
32 |
|
33 %STX_EXE% %1 %2 %3 %4 %5 %6 %7 %8 %9 %10 |
24 goto end |
34 goto end |
25 |
35 |
26 :usage |
36 :usage |
27 echo. |
37 echo. |
28 echo usage: smalltalk stx-args |
38 echo usage: smalltalk stx-args |
29 echo. |
39 echo. |
30 echo STX args: |
40 echo STX args: |
31 stx --help |
41 %STX_EXE% --help |
32 |
42 |
33 :end |
43 :end |