[1120] | 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 | |
---|