1 | #!/bin/bash |
---|
2 | # vinelib by Jun Nishii <jun@vinelinux.org> |
---|
3 | # Time-stamp: <2008-03-08 18:44:45 munepi> |
---|
4 | |
---|
5 | . /usr/share/vine/functions |
---|
6 | |
---|
7 | setime(){ |
---|
8 | |
---|
9 | . /usr/share/vine/imelib |
---|
10 | |
---|
11 | setLocale |
---|
12 | |
---|
13 | for arg in $* ; do |
---|
14 | case $arg in |
---|
15 | -k) Kinput2mod=-1; shift ;; |
---|
16 | -h) eval ShowUsage_$LOCALE ${0##*/} ; return 0 ;; |
---|
17 | esac |
---|
18 | done |
---|
19 | |
---|
20 | CheckOption $* || return 1 |
---|
21 | CheckXIMStatus |
---|
22 | |
---|
23 | FE=kinput2 |
---|
24 | for arg in $* ; do |
---|
25 | case $arg in |
---|
26 | status) |
---|
27 | ShowIMEStatus |
---|
28 | unsetImeFuncs |
---|
29 | return 0 |
---|
30 | ;; |
---|
31 | canna|Canna|CANNA) |
---|
32 | IM=canna |
---|
33 | ;; |
---|
34 | wnn|Wnn|WNN) |
---|
35 | IM=wnn |
---|
36 | ;; |
---|
37 | Wnn8|wnn8|Wnn8kinput2|wnn8kinput2) |
---|
38 | IM=wnn8 |
---|
39 | ;; |
---|
40 | Wnn7|wnn7|Wnn7kinput2|wnn7kinput2) |
---|
41 | IM=wnn7 |
---|
42 | ;; |
---|
43 | Wnn6|wnn6|Wnn6kinput2|wnn6kinput2) |
---|
44 | IM=wnn6 |
---|
45 | ;; |
---|
46 | Wnn8le|wnn8le) |
---|
47 | FE=le |
---|
48 | IM=wnn8 |
---|
49 | ;; |
---|
50 | Wnn8scim|wnn8scim) |
---|
51 | FE=scim |
---|
52 | IM=wnn8 |
---|
53 | ;; |
---|
54 | Wnn7xwnmo|wnn7xwnmo) |
---|
55 | FE=xwnmo |
---|
56 | IM=wnn7 |
---|
57 | ;; |
---|
58 | Wnn6xwnmo|wnn6xwnmo) |
---|
59 | FE=xwnmo |
---|
60 | IM=wnn6 |
---|
61 | ;; |
---|
62 | FreeWnn|freewnn|wnn4|Wnn4) |
---|
63 | IM=FreeWnn |
---|
64 | ;; |
---|
65 | atokx|Atokx) |
---|
66 | FE= |
---|
67 | IM=atokx |
---|
68 | ;; |
---|
69 | atokx2|AtokX2) |
---|
70 | FE= |
---|
71 | IM=atokx2 |
---|
72 | ;; |
---|
73 | atokx3|AtokX3) |
---|
74 | FE= |
---|
75 | IM=atokx3 |
---|
76 | ;; |
---|
77 | vje|Vje|VJE) |
---|
78 | IM=vje |
---|
79 | ;; |
---|
80 | skk|SKK) |
---|
81 | IM=skk |
---|
82 | ;; |
---|
83 | uim|UIM|anthy|Anthy|ANTHY) |
---|
84 | IM=uim |
---|
85 | ;; |
---|
86 | scim|SCIM) |
---|
87 | IM=scim |
---|
88 | ;; |
---|
89 | ibus|IBUS|IBus|iBus) |
---|
90 | IM=ibus |
---|
91 | ;; |
---|
92 | none|No_IM) |
---|
93 | IM=No_IM |
---|
94 | ;; |
---|
95 | default) |
---|
96 | IM=default |
---|
97 | ;; |
---|
98 | *) eval ShowUsage_$LOCALE ${0##*/} |
---|
99 | unsetImeFuncs |
---|
100 | return 0 |
---|
101 | ;; |
---|
102 | esac |
---|
103 | done |
---|
104 | |
---|
105 | setIME $IM || return 1 |
---|
106 | |
---|
107 | export XMODIFIERS TK_KCPROTO |
---|
108 | export EMACS_IME XIM_PROG JSERVER WNN6_FRONT_END WNN6_SERVER CANNA_SERVER |
---|
109 | export WNN7_FRONT_END WNN7_SERVER GTK_IM_MODULE QT_IM_MODULE |
---|
110 | export WNN8_FRONT_END WNN8_SERVER QT_IM_MODULE HTT_DISABLE_STATUS_WINDOW |
---|
111 | |
---|
112 | eval ExitMsg_$LOCALE |
---|
113 | |
---|
114 | unsetImeFuncs |
---|
115 | |
---|
116 | return 0 |
---|
117 | } |
---|
118 | |
---|
119 | # Functions to manipulate PATH, addpath and rmpath. |
---|
120 | # developed by M. Kawamura |
---|
121 | # Ver. 1.0 - 2000.07.07 |
---|
122 | |
---|
123 | ckpath () { |
---|
124 | if [ $# -lt 1 ]; then |
---|
125 | echo "Usage: ckpath path" |
---|
126 | return |
---|
127 | fi |
---|
128 | |
---|
129 | local OLD_IFS=$IFS |
---|
130 | IFS=":" |
---|
131 | local ret=0 |
---|
132 | local pdir |
---|
133 | for pdir in $PATH |
---|
134 | do |
---|
135 | if [ "X$pdir" = "X$1" ]; then |
---|
136 | ret=1 |
---|
137 | fi |
---|
138 | done |
---|
139 | IFS=$OLD_IFS |
---|
140 | |
---|
141 | return $ret |
---|
142 | } |
---|
143 | |
---|
144 | addpath () { |
---|
145 | local ADD_PRE=0 |
---|
146 | local opt OPTIND adir pdir |
---|
147 | |
---|
148 | while getopts "p" opt |
---|
149 | do |
---|
150 | case $opt in |
---|
151 | p) ADD_PRE=1 |
---|
152 | ;; |
---|
153 | esac |
---|
154 | done |
---|
155 | |
---|
156 | shift $(($OPTIND-1)) |
---|
157 | |
---|
158 | if [ $# -lt 1 ]; then |
---|
159 | echo "Usage: addpath [option] path" |
---|
160 | echo "option: -p ... add the new path at the head." |
---|
161 | return |
---|
162 | fi |
---|
163 | |
---|
164 | for adir in $@ |
---|
165 | do |
---|
166 | pdir=${adir%/} |
---|
167 | if [ ! -d $pdir ]; then |
---|
168 | echo "No such directory: $pdir" |
---|
169 | return |
---|
170 | fi |
---|
171 | |
---|
172 | if ckpath $pdir; then |
---|
173 | if [ $ADD_PRE -eq 1 ]; then |
---|
174 | PATH=$pdir:$PATH |
---|
175 | else |
---|
176 | PATH=$PATH:$pdir |
---|
177 | fi |
---|
178 | fi |
---|
179 | done |
---|
180 | } |
---|
181 | |
---|
182 | rmpath () { |
---|
183 | if [ $# -lt 1 ]; then |
---|
184 | echo "Usage: rmpath path" |
---|
185 | return |
---|
186 | fi |
---|
187 | |
---|
188 | local adir |
---|
189 | for adir in $@ |
---|
190 | do |
---|
191 | local pdir=${adir%/} |
---|
192 | local OLD_IFS=$IFS NewPath="" list |
---|
193 | IFS=":" |
---|
194 | for list in $PATH |
---|
195 | do |
---|
196 | if [ ! $list = $pdir ]; then |
---|
197 | if [ "X$NewPath" = "X" ]; then |
---|
198 | NewPath=$list |
---|
199 | else |
---|
200 | NewPath=$NewPath:$list |
---|
201 | fi |
---|
202 | fi |
---|
203 | done |
---|
204 | IFS=$OLD_IFS |
---|
205 | PATH=$NewPath |
---|
206 | done |
---|
207 | } |
---|
208 | |
---|