@echo off
: $Header$
: startup script for smalltalk
: actually, simply calls stx, passing all arguments.

: In previous versions, smalltalk used to be the executable itself.
: This lead to problems on systems, where things like the PATH
: or STX_LIBDIR should be set in advance.
: Now, here is a place to do such things ...

if {%1}=={--help} goto usage


: change the line below, if
: the support stuff is not found in the
: directory where stx.com / stx.exe resides ...
: STX_LIB_DIR=<path_to_support_files>
set STX_BIN_DIR=%~dp0
if exist %STX_BIN_DIR%\stx-bin.com (
	set VERSION=6.2.5
	set STX_HOME=%STX_BIN_DIR%\..
	set STX_TOPDIR=%STX_HOME%\lib\smalltalkx\%VERSION%
	set STX_LIBDIR=%STX_TOPDIR%\lib
	set STX_EXE=%STX_BIN_DIR%\stx-bin.com
) else (
	set STX_EXE=%STX_BIN_DIR%\stx.com
)


%STX_EXE% %1 %2 %3 %4 %5 %6 %7 %8 %9 %10
goto end

:usage
echo.
echo usage: smalltalk stx-args
echo.
echo STX args:
%STX_EXE% --help

:end