Mercurial > hg > xemacs-beta

comparison src/mule-wnnfns.c @ 4993:c0934cef10c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
convert some source files to utf-8 -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-02-06 Ben Wing <ben@xemacs.org> * unicode.el: * unicode.el (for): Convert file to utf-8. modules/ChangeLog addition: 2010-02-06 Ben Wing <ben@xemacs.org> * canna/canna_api.c: * canna/canna_api.c (storeResults): * canna/canna_api.c (Fcanna_set_bunsetsu): * canna/canna_api.c (Fcanna_initialize): * canna/canna_api.c (Fcanna_store_yomi): * canna/canna_api.c (Fcanna_henkan_end): Convert file to utf-8. src/ChangeLog addition: 2010-02-06 Ben Wing <ben@xemacs.org> * mule-wnnfns.c: Convert file to utf-8.
author Ben Wing <ben@xemacs.org>
date Sat, 06 Feb 2010 04:26:09 -0600
parents ecf1ebac70d8
children 70ed8a0d8da8
comparison
equal deleted inserted replaced
4988:4cfb6aeb989d 4993:c0934cef10c6
1 /* -*- coding: iso-2022-jp -*- 1 /* -*- coding: utf-8 -*-
2 Copyright (C) 1995 Free Software Foundation, Inc. 2 Copyright (C) 1995 Free Software Foundation, Inc.
3 Copyright (C) 1995 Sun Microsystems, Inc. 3 Copyright (C) 1995 Sun Microsystems, Inc.
4 4
5 This file is part of XEmacs. 5 This file is part of XEmacs.
6 6
33 * (wnn-server-open wnn-host-name login-name) 33 * (wnn-server-open wnn-host-name login-name)
34 * wnn-host-name: STRING or NIL 34 * wnn-host-name: STRING or NIL
35 * login-name: STRING 35 * login-name: STRING
36 * RETURNS: BOOLEAN 36 * RETURNS: BOOLEAN
37 * DESCRIPTION: 37 * DESCRIPTION:
38 * jserver $B$H@\B3$7!"%5!<%P!<FbIt$K@5JQ49!?5UJQ49#2$D$N4D6-$r(B 38 * jserver と接続し、サーバー内部に正変換／逆変換２つの環境を
39 * $B:n$k!#%(%i!<$N;~$O(B nil $B$rJV$9!#(B 39 * 作る。エラーの時は nil を返す。
40 * 40 *
41 * (wnn-server-close) 41 * (wnn-server-close)
42 * RETURNS: BOOLEAN 42 * RETURNS: BOOLEAN
43 * DESCRIPTION: 43 * DESCRIPTION:
44 * jserver $B$H$N@\B3$r@Z$k!#<-=q!"IQEY$O%;!<%V$5$l$J$$!#(B 44 * jserver との接続を切る。辞書、頻度はセーブされない。
45 * 45 *
46 * (wnn-server-dict-add dict-file-name hindo-file-name priority 46 * (wnn-server-dict-add dict-file-name hindo-file-name priority
47 * dict-file-mode hindo-file-mode pw1 pw2) 47 * dict-file-mode hindo-file-mode pw1 pw2)
48 * dict-file-name: STRING 48 * dict-file-name: STRING
49 * hindo-file-name: STRING or NULL-STRING 49 * hindo-file-name: STRING or NULL-STRING
51 * dict-file-mode: BOOLEAN 51 * dict-file-mode: BOOLEAN
52 * hindo-file-mode: BOOLEAN 52 * hindo-file-mode: BOOLEAN
53 * pw1: STRING or NIL 53 * pw1: STRING or NIL
54 * pw2: STRING or NIL 54 * pw2: STRING or NIL
55 * DESCRIPTION: 55 * DESCRIPTION:
56 * $B<-=q%U%!%$%kL>!"IQEY%U%!%$%kL>!"M%@hEY!"<-=q%U%!%$%k%b!<%I(B 56 * 辞書ファイル名、頻度ファイル名、優先度、辞書ファイルモード
57 * $BIQEY%U%!%$%k%b!<%I$G;XDj$7$?<-=q$r%P%C%U%!$KDI2C$9$k!#(B 57 * 頻度ファイルモードで指定した辞書をバッファに追加する。
58 * pw1, pw2 $B$O<-=q%U%!%$%k!"IQEY%U%!%$%k$N%Q%9%o!<%I!#(B 58 * pw1, pw2 は辞書ファイル、頻度ファイルのパスワード。
59 * 59 *
60 * (wnn-server-dict-delete dic-no) 60 * (wnn-server-dict-delete dic-no)
61 * dic-no: INTEGER 61 * dic-no: INTEGER
62 * RETURNS: $B%(%i!<$N;~(B nil 62 * RETURNS: エラーの時 nil
63 * DESCRIPTION: dic-no $B$N<-=qHV9f$N<-=q$r!"%P%C%U%!$+$i(B 63 * DESCRIPTION: dic-no の辞書番号の辞書を、バッファから
64 * $B:o=|$9$k!#(B 64 * 削除する。
65 * 65 *
66 * (wnn-server-dict-list) 66 * (wnn-server-dict-list)
67 * RETURNS: ((dic-no1 file-name1 comment1 word-no1 nice1) 67 * RETURNS: ((dic-no1 file-name1 comment1 word-no1 nice1)
68 * (dic-no2 file-name2 comment2 word-no2 nice2)...) 68 * (dic-no2 file-name2 comment2 word-no2 nice2)...)
69 * DESCRIPTION: $B%P%C%U%!>e$N<-=q$N%j%9%H$rF@$k!#(B 69 * DESCRIPTION: バッファ上の辞書のリストを得る。
70 * 70 *
71 * (wnn-server-dict-comment dic-no comment) 71 * (wnn-server-dict-comment dic-no comment)
72 * RETURNS: $B%(%i!<$N;~(B nil 72 * RETURNS: エラーの時 nil
73 * DESCRIPTION: dic-no $B$N<-=q$K%3%a%s%H$r$D$1$k!#(B 73 * DESCRIPTION: dic-no の辞書にコメントをつける。
74 * 74 *
75 * (wnn-server-set-rev rev) 75 * (wnn-server-set-rev rev)
76 * rev: BOOLEAN 76 * rev: BOOLEAN
77 * rev $B$,(B nil $B$N;~$O@5JQ49!"$=$l0J30$N;~$O5UJQ49(B 77 * rev が nil の時は正変換、それ以外の時は逆変換
78 * 78 *
79 * (wnn-server-henkan-begin henkan-string) 79 * (wnn-server-henkan-begin henkan-string)
80 * henkan-string: STRING 80 * henkan-string: STRING
81 * RETURNS: bunsetu-suu 81 * RETURNS: bunsetu-suu
82 * DESCRIPTION: 82 * DESCRIPTION:
83 * $B2>L>4A;zJQ49$r$7!"Bh0l8uJd$NJ8@a?t$rJV$9!#(B 83 * 仮名漢字変換をし、第一候補の文節数を返す。
84 * 84 *
85 * (wnn-server-zenkouho bunsetu-no dai) 85 * (wnn-server-zenkouho bunsetu-no dai)
86 * bunsetu-no: INTEGER 86 * bunsetu-no: INTEGER
87 * dai: BOOLEAN 87 * dai: BOOLEAN
88 * RETURNS: offset 88 * RETURNS: offset
89 * DESCRIPTION: 89 * DESCRIPTION:
90 * $BJ8@aHV9f$G;XDj$5$l$?J8@a$NA48uJd$r$H$j$@$7(B 90 * 文節番号で指定された文節の全候補をとりだし
91 * $B!"8=:_$N%*%U%;%C%H$rJV$9!#(B 91 * 、現在のオフセットを返す。
92 * 92 *
93 * (wnn-server-get-zenkouho offset) 93 * (wnn-server-get-zenkouho offset)
94 * bunsetu-no: INTEGER 94 * bunsetu-no: INTEGER
95 * dai: BOOLEAN 95 * dai: BOOLEAN
96 * RETURNS: list of zenkouho 96 * RETURNS: list of zenkouho
97 * DESCRIPTION: 97 * DESCRIPTION:
98 * $B%*%U%;%C%H$G;XDj$5$l$?8uJd$rF@$k!#(B 98 * オフセットで指定された候補を得る。
99 * 99 *
100 * (wnn-server-zenkouho-bun) 100 * (wnn-server-zenkouho-bun)
101 * RETURNS: INTEGER 101 * RETURNS: INTEGER
102 * DESCRIPTION: 102 * DESCRIPTION:
103 * $BA48uJd$rI=<($7$F$$$kJ8@aHV9f$rF@$k!#(B 103 * 全候補を表示している文節番号を得る。
104 * 104 *
105 * (wnn-server-zenkouho-suu) 105 * (wnn-server-zenkouho-suu)
106 * RETURNS: INTEGER 106 * RETURNS: INTEGER
107 * DESCRIPTION: 107 * DESCRIPTION:
108 * $BA48uJd$rI=<($7$F$$$kJ8@a$NA48uJd?t$rF@$k!#(B 108 * 全候補を表示している文節の全候補数を得る。
109 * 109 *
110 * (wnn-server-dai-top bun-no) 110 * (wnn-server-dai-top bun-no)
111 * bun-no: INTEGER 111 * bun-no: INTEGER
112 * RETURNS: BOOLEAN 112 * RETURNS: BOOLEAN
113 * DESCRIPTION: 113 * DESCRIPTION:
114 * $BJ8@a$,BgJ8@a$N@hF,$J$i(B t 114 * 文節が大文節の先頭なら t
115 * 115 *
116 * (wnn-server-dai-end bun-no) 116 * (wnn-server-dai-end bun-no)
117 * bun-no: INTEGER 117 * bun-no: INTEGER
118 * RETURNS: INTEGER 118 * RETURNS: INTEGER
119 * DESCRIPTION: 119 * DESCRIPTION:
120 * $B<!$NBgJ8@a$NJ8@aHV9f$rF@$k!#(B 120 * 次の大文節の文節番号を得る。
121 * 121 *
122 * (wnn-server-henkan-kakutei kouho-no dai) 122 * (wnn-server-henkan-kakutei kouho-no dai)
123 * kouho-no: INTEGER 123 * kouho-no: INTEGER
124 * dai: BOOLEAN 124 * dai: BOOLEAN
125 * RETURNS: BOOLEAN 125 * RETURNS: BOOLEAN
126 * DESCRIPTION: 126 * DESCRIPTION:
127 * $B8uJdHV9f$G<($5$l$?8uJd$rA*Br$9$k!#(B 127 * 候補番号で示された候補を選択する。
128 * (wnn-server-zenkouho) $B$r8F$s$F$+$i$G$J$$$H$$$1$J$$!#(B 128 * (wnn-server-zenkouho) を呼んてからでないといけない。
129 * 129 *
130 * (wnn-server-bunsetu-henkou bunsetu-no bunsetu-length dai) 130 * (wnn-server-bunsetu-henkou bunsetu-no bunsetu-length dai)
131 * bunsetu-no: INTEGER 131 * bunsetu-no: INTEGER
132 * bunsetu-length: INTEGER 132 * bunsetu-length: INTEGER
133 * dai: BOOLEAN 133 * dai: BOOLEAN
134 * RETURNS: 134 * RETURNS:
135 * DESCRIPTION: 135 * DESCRIPTION:
136 * $BJ8@a$ND9$5$rJQ99$9$k!#(B 136 * 文節の長さを変更する。
137 * 137 *
138 * (wnn-bunsetu-kouho-inspect bunsetu-no) 138 * (wnn-bunsetu-kouho-inspect bunsetu-no)
139 * bunsetu-no: INTEGER 139 * bunsetu-no: INTEGER
140 * RETURNS: (kanji yomi jisho-no serial-no hinsi hindo 140 * RETURNS: (kanji yomi jisho-no serial-no hinsi hindo
141 * ima hyoka daihyoka kangovect) 141 * ima hyoka daihyoka kangovect)
142 * DESCRIPTION: 142 * DESCRIPTION:
143 * $BJ8@a$N?'!9$J>pJs$rJQ49%P%C%U%!$+$i$H$j=P$9!#(B 143 * 文節の色々な情報を変換バッファからとり出す。
144 * 144 *
145 * (wnn-server-henkan-quit) 145 * (wnn-server-henkan-quit)
146 * RETURNS: BOOLEAN 146 * RETURNS: BOOLEAN
147 * DESCRIPTION: 147 * DESCRIPTION:
148 * $B2?$b$7$J$$!#(B 148 * 何もしない。
149 * 149 *
150 * (wnn-server-bunsetu-kanji bun-no) 150 * (wnn-server-bunsetu-kanji bun-no)
151 * RETURNS: (bunsetu-kanji length) 151 * RETURNS: (bunsetu-kanji length)
152 * DESCRIPTION: 152 * DESCRIPTION:
153 * 153 *
161 * 161 *
162 * (wnn-server-hindo-update &optional bunsetu-no) 162 * (wnn-server-hindo-update &optional bunsetu-no)
163 * bunsetu-no: INTEGER 163 * bunsetu-no: INTEGER
164 * RETURNS: BOOLEAN 164 * RETURNS: BOOLEAN
165 * DESCRIPTION: 165 * DESCRIPTION:
166 * $BIQEY>pJs$r99?7$9$k!#(B 166 * 頻度情報を更新する。
167 * 167 *
168 * (wnn-server-word-add dic-no tango yomi comment hinsi) 168 * (wnn-server-word-add dic-no tango yomi comment hinsi)
169 * dic-no: INTEGER 169 * dic-no: INTEGER
170 * tango: STRING 170 * tango: STRING
171 * yoni: STRING 171 * yoni: STRING
172 * comment: STRING 172 * comment: STRING
173 * hinsi: INTEGER 173 * hinsi: INTEGER
174 * RETURNS: BOOLEAN 174 * RETURNS: BOOLEAN
175 * DESCRIPTION: 175 * DESCRIPTION:
176 * $B<-=q$KC18l$rEPO?$9$k!#(B 176 * 辞書に単語を登録する。
177 * 177 *
178 * (wnn-server-word-delete dic-no entry) 178 * (wnn-server-word-delete dic-no entry)
179 * dic-no: INTEGER 179 * dic-no: INTEGER
180 * entry: INTEGER 180 * entry: INTEGER
181 * RETURNS: BOOLEAN 181 * RETURNS: BOOLEAN
182 * DESCRIPTION: 182 * DESCRIPTION:
183 * $B<-=q$+$i%(%s%H%jHV9f$G<($5$l$kC18l$r:o=|$9$k!#(B 183 * 辞書からエントリ番号で示される単語を削除する。
184 * 184 *
185 * (wnn-server-word-use dic-no entry) 185 * (wnn-server-word-use dic-no entry)
186 * dic-no: INTEGER 186 * dic-no: INTEGER
187 * entry: INTEGER 187 * entry: INTEGER
188 * RETURNS: BOOLEAN 188 * RETURNS: BOOLEAN
189 * DESCRIPTION: 189 * DESCRIPTION:
190 * $B<-=q$+$i%(%s%H%jHV9f$G<($5$l$kC18l$NM-8z!?L58z$r%H%0%k$9$k!#(B 190 * 辞書からエントリ番号で示される単語の有効／無効をトグルする。
191 * 191 *
192 * (wnn-server-word-info dic-no entry) 192 * (wnn-server-word-info dic-no entry)
193 * dic-no: INTEGER 193 * dic-no: INTEGER
194 * entry: INTEGER 194 * entry: INTEGER
195 * RETURNS: (yomi kanji comment hindo hinsi) 195 * RETURNS: (yomi kanji comment hindo hinsi)
196 * DESCRIPTION: 196 * DESCRIPTION:
197 * $B<-=q$+$i%(%s%H%jHV9f$G<($5$l$kC18l$N>pJs$rF@$k!#(B 197 * 辞書からエントリ番号で示される単語の情報を得る。
198 * 198 *
199 * (wnn-server-word-hindo-set dic-no entry hindo) 199 * (wnn-server-word-hindo-set dic-no entry hindo)
200 * dic-no: INTEGER 200 * dic-no: INTEGER
201 * entry: INTEGER 201 * entry: INTEGER
202 * hindo: INTEGER 202 * hindo: INTEGER
203 * RETURNS: BOOLEAN 203 * RETURNS: BOOLEAN
204 * DESCRIPTION: 204 * DESCRIPTION:
205 * $B<-=q$+$i%(%s%H%jHV9f$G<($5$l$kC18l$NIQEY$r@_Dj$9$k!#(B 205 * 辞書からエントリ番号で示される単語の頻度を設定する。
206 * 206 *
207 * (wnn-server-word-search yomi) 207 * (wnn-server-word-search yomi)
208 * yomi: STRING 208 * yomi: STRING
209 * RETURNS: a LIST of dict-joho 209 * RETURNS: a LIST of dict-joho
210 * DESCRIPTION: 210 * DESCRIPTION:
211 * $BA4$F$N<-=q$+$iC18l8!:w$r9T$J$&!#(B 211 * 全ての辞書から単語検索を行なう。
212 * 212 *
213 * (wnn-server-dict-save) 213 * (wnn-server-dict-save)
214 * RETURNS: BOOLEAN 214 * RETURNS: BOOLEAN
215 * DESCRIPTION: 215 * DESCRIPTION:
216 * $BA4$F$N<-=q$HIQEY%U%!%$%k$r%;!<%V$9$k!#(B 216 * 全ての辞書と頻度ファイルをセーブする。
217 * 217 *
218 * (wnn-server-get-param) 218 * (wnn-server-get-param)
219 * RETURNS: (n nsho p1 p2 p3 ... p15) 219 * RETURNS: (n nsho p1 p2 p3 ... p15)
220 * DESCRIPTION: $BJQ49%Q%i%a!<%?$rF@$k!#(B 220 * DESCRIPTION: 変換パラメータを得る。
221 * 221 *
222 * (wnn-server-set-param n sho p1 ... p15) 222 * (wnn-server-set-param n sho p1 ... p15)
223 * RETURNS: $B%(%i!<$N;~(B nil 223 * RETURNS: エラーの時 nil
224 * DESCRIPTION: $BJQ49%Q%i%a!<%?$r@_Dj$9$k!#(B 224 * DESCRIPTION: 変換パラメータを設定する。
225 * 225 *
226 * (wnn-server-get-msg error-no) 226 * (wnn-server-get-msg error-no)
227 * RETURNS: $B%(%i!<%a225;!<%8(B 227 * RETURNS: エラーメ臆技ージ
228 * DESCRIPTION: $B%(%i!<HV9f$+$i%a%C%;!<%8$rF@$k!#(B 228 * DESCRIPTION: エラー番号からメッセージを得る。
229 * 229 *
230 * (wnn-server-fuzokugo-set fname) 230 * (wnn-server-fuzokugo-set fname)
231 * RETURNS: $B%(%i!<$N;~(B nil 231 * RETURNS: エラーの時 nil
232 * DESCRIPTION: $B%P%C%U%!$KImB08l%U%!%$%k$rFI$_9~$`!#(B 232 * DESCRIPTION: バッファに附属語ファイルを読み込む。
233 * 233 *
234 * (wnn-server-fuzokugo-get) 234 * (wnn-server-fuzokugo-get)
235 * RETURNS: $B%U%!%$%kL>(B 235 * RETURNS: ファイル名
236 * DESCRIPTION: $B%P%C%U%!$NImB08l%U%!%$%kL>$rF@$k!#(B 236 * DESCRIPTION: バッファの附属語ファイル名を得る。
237 * 237 *
238 * (wnn-server-isconnect) 238 * (wnn-server-isconnect)
239 * RETURNS: $B%3%M%/%H$7$F$l$P(B t, $B$7$F$J$1$l$P(B nil 239 * RETURNS: コネクトしてれば t, してなければ nil
240 * DESCRIPTION: $B%5!<%P$H7Q$C$F$$$k$+D4$Y$k!#(B 240 * DESCRIPTION: サーバと継っているか調べる。
241 * 241 *
242 * (wnn-server-hinsi-dicts hinsi-no) 242 * (wnn-server-hinsi-dicts hinsi-no)
243 * RETURNS: (dic-no1 dic-no2 ...) 243 * RETURNS: (dic-no1 dic-no2 ...)
244 * DESCRIPTION: hinsi-no $B$NIJ;l$,EPO?$G$-$k<-=q$N%j%9%H$rF@$k!#(B 244 * DESCRIPTION: hinsi-no の品詞が登録できる辞書のリストを得る。
245 * hinsi-no = -1 $B$N$H$-$K$O!"EPO?2DG=$JA4<-=q$rF@$k!#(B 245 * hinsi-no = -1 のときには、登録可能な全辞書を得る。
246 * 246 *
247 * (wnn-server-hinsi-list dic-no name) 247 * (wnn-server-hinsi-list dic-no name)
248 * RETURNS: (name1 name2 ... ) 248 * RETURNS: (name1 name2 ... )
249 * DESCRIPTION: dic-no $B$N<-=q$G!"IJ;l%N!<%I$KB0$9$k(B 249 * DESCRIPTION: dic-no の辞書で、品詞ノードに属する
250 * $BIJ;l%N!<%I!JL>!K$N%j%9%H$rF@$k!#(B 250 * 品詞ノード（名）のリストを得る。
251 * $BIJ;lL>$rM?$($?;~$O!"#0$rJV$9!#(B 251 * 品詞名を与えた時は、０を返す。
252 * 252 *
253 * (wnn-server-hinsi-name hinsi-no) 253 * (wnn-server-hinsi-name hinsi-no)
254 * RETURNS: hinsi-name 254 * RETURNS: hinsi-name
255 * DESCRIPTION: $BIJ;lHV9f$+$iL>A0$r<h$k!#(B 255 * DESCRIPTION: 品詞番号から名前を取る。
256 * 256 *
257 * (wnn-server-hinsi-number hinsi-name) 257 * (wnn-server-hinsi-number hinsi-name)
258 * RETURNS: hinsi-no 258 * RETURNS: hinsi-no
259 * DESCRIPTION: $BIJ;lL>$rIJ;lHV9f$KJQ49$9$k!#(B 259 * DESCRIPTION: 品詞名を品詞番号に変換する。
260 * 260 *
261 * (wnn-server-version) 261 * (wnn-server-version)
262 * RETURNS: version ID(int) 262 * RETURNS: version ID(int)
263 * 263 *
264 */ 264 */
273 #include "wnn/commonhd.h" 273 #include "wnn/commonhd.h"
274 #include "charset.h" 274 #include "charset.h"
275 #include "wnn/jllib.h" 275 #include "wnn/jllib.h"
276 #include "wnn/cplib.h" 276 #include "wnn/cplib.h"
277 277
278 /* UCHAR $B$,Fs=EDj5A$5$l$k$N$G(B */ 278 /* UCHAR が二重定義されるので */
279 #define _UCHAR_T 279 #define _UCHAR_T
280 280
281 #define EGG_TIMEOUT 5 281 #define EGG_TIMEOUT 5
282 #define NSERVER 4 282 #define NSERVER 4
283 #define WNNSERVER_J 0 283 #define WNNSERVER_J 0