blob: 47bb03304dd349cf6c6ae34c77df236d2080aa1b (
plain)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
#! /bin/sh
# default: tcl gui or not
if test `uname -s` = Darwin; then
tcl=yes
else
tcl=no
fi
# are there reasons not to use the tcl gui?
notcl=no
args=''
unset wait_for_gui
unset wait_for_lang
unset gui_set
# We need "$@ syntax because some paramters may contain spaces.
# In order to make use of this syntax we must pass along ALL parameters.
for p in "$@"; do
# TODO: sanitize $p; abort if necessary
case $p in
-tcl | --tcl)
if test $gui_set; then echo Gui set more than once; exit 1; fi
gui_set=1
if test $wait_for_lang; then echo Language code expected; exit 1; fi
unset wait_for_gui
tcl=yes
;;
-print-platform | --print-platform | -version | --version)
if test $wait_for_lang; then echo Language code expected; exit 1; fi
unset wait_for_gui
notcl=yes
;;
-gui | --gui)
if test $gui_set; then echo Gui set more than once; exit 1; fi
gui_set=1
if test $wait_for_lang; then echo Language code expected; exit 1; fi
tcl=yes
wait_for_gui=1
;;
--gui=* | -gui=*)
if test $gui_set; then echo Gui set more than once; exit 1; fi
gui_set=1
if test $wait_for_lang; then echo Language code expected; exit 1; fi
if test $p = -gui=text -o $p = --gui=text; then
tcl=no
else
tcl=yes
fi
unset wait_for_gui
;;
-no-gui | --no-gui)
if test $wait_for_lang; then echo Language code expected; exit 1; fi
unset wait_for_gui
notcl=yes
;;
-lang | --lang)
if test $wait_for_lang; then echo Language code expected; exit 1; fi
unset wait_for_gui
wait_for_lang=1
;;
-lang=*)
if test $wait_for_lang; then echo Language code expected; exit 1; fi
unset wait_for_gui
LANG=$p
LANG=${LANG#-lang=}
;;
--lang=*)
if test $wait_for_lang; then echo Language code expected; exit 1; fi
unset wait_for_gui
LANG=$p
LANG=${LANG#--lang=}
;;
*)
if test $wait_for_gui; then
if test $p = text; then
tcl=no
else
tcl=yes
fi
unset wait_for_gui
fi
if test $wait_for_lang; then
LANG=$p
unset wait_for_lang
fi
;;
esac
done
if test $notcl = yes; then
tcl=no
fi
export LANG
LC_MESSAGES=$LANG
export LC_MESSAGES
unset LC_ALL
# silence perl locale warnings
PERL_BADLANG=0
export PERL_BADLANG
# We can safely pass all original parameters to perl:
# In install-tl[.pl], from_ext_gui will overrule the gui parameter.
# The lang parameter will not come into play in either perl or tcl.
if test "$tcl" = "yes"; then
exec wish `dirname $0`/install-tl-gui.tcl -- "$@"
else
exec perl `dirname $0`/../../install-tl "$@"
fi
|