blob: 429c4cca974e059e8261aa2aabafa1cb6751b75d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/bin/sh
# $FreeBSD$
#
# Wrapper for the tcl shell "tclsh"
TCLSH=
TCLTK_CONF=%%TCLTK_CONF%%
if [ -f "${TCLTK_CONF}" ]; then
. ${TCLTK_CONF}
if [ -n "${TCLSH}" ]; then
if [ -x "${TCLSH}" ]; then
exec ${TCLSH} "$@"
else
%%ECHO_CMD%% "File not found or not executable: ${TCLSH}"
%%ECHO_CMD%% "Please check variable TCLSH in: ${TCLTK_CONF}"
fi
else
%%ECHO_CMD%% "You do not have set path to default tclsh in the configuration file:"
%%ECHO_CMD%% "%%TCLTK_CONF%%"
%%ECHO_CMD%% "Please see the sample configuration file for details:"
%%ECHO_CMD%% "%%TCLTK_CONF%%.sample"
fi
%%ECHO_CMD%% ""
%%ECHO_CMD%% "You may need a tcl shell installed to use this wrapper from ports like:"
%%ECHO_CMD%% "lang/tcl84 or lang/tcl85"
else
%%ECHO_CMD%% "Configuration file not found: %%TCLTK_CONF%%"
%%ECHO_CMD%% "Please see the sample configuration file for details:"
%%ECHO_CMD%% "%%TCLTK_CONF%%.sample"
fi
|
