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
113
114
115
116
117
118
|
#!/bin/sh
wish=''
kvpath=''
cat << 'EOM'
-----------------------------------------------------------
--- kwicview setup ---
ΥץȤϡkwicviewåȥåפΤǤ
mkary, array ѥ뤵Ƥɬפޤ
-----------------------------------------------------------
EOM
echo -n "åȥåפޤ [n]: "
read ans
case "$ans" in
y*)
echo "ǤϼǤ ..."
;;
*)
echo "Ȥޤ ..."
kill $$
;;
esac
cat << 'EOM'
-----------------------------------------------------------
wish (Tcl/Tk)ɬפǤɤ˥ȡ뤵Ƥ
ޤ եѥ̾Ʋ
-----------------------------------------------------------
EOM
while test "$wish" = "" ; do
echo -n "? [/usr/local/bin/wish]: "
read ans
case "$ans" in
'')
echo "ok."
wish=/usr/local/bin/wish
;;
*)
if test -r "$ans"; then
echo "λ"
wish=$ans
else
echo "դޤ " $wish
fi
;;
esac
done
echo -----------------------------------------------------------
echo "wish(Tcl/Tk) = $wish"
echo -----------------------------------------------------------
echo -n "ǤǤ [y]: "
read ans
case "$ans" in
n*)
echo
exit
;;
esac
cat << 'EOM'
-----------------------------------------------------------
SUFARYΥǥ쥯ȥեѥǻꤷޤ
-----------------------------------------------------------
EOM
here=`pwd | sed 's/\/kwicview$//'`
while test "$kvpath" = "" ; do
echo -n "? [" $here "]: "
read ans
case "$ans" in
'')
echo "ok."
kvpath=$here
;;
*)
if test -r "$ans"; then
echo "λ"
kvpath=$ans
else
echo "դޤ " $kvpath
fi
;;
esac
done
echo -----------------------------------------------------------
echo "dir = $kvpath"
echo -----------------------------------------------------------
echo -n "ǤǤ [y]: "
read ans
case "$ans" in
n*)
echo
exit
;;
esac
echo "---------------------------------"
echo " kwicview Ƥޤ "
echo "---------------------------------"
cp kwicview kwicview.old
sed 's%^#\!.*$%#\!'$wish'%' kwicview.old | sed 's%^set sufary_path.*%set sufary_path '$kvpath'%' > kwicview
echo λޤ
echo
|
