Mercurial > hg > xemacs-beta

comparison modules/canna/canna_api.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 4aebb0131297
children 11ed8768ac4f
comparison
equal deleted inserted replaced
4988:4cfb6aeb989d 4993:c0934cef10c6
1 /* CANNA interface -*- coding: euc-jp -*- 1 /* CANNA interface -*- coding: utf-8 -*-
2 2
3 Copyright (C) 1995 Free Software Foundation, Inc. 3 Copyright (C) 1995 Free Software Foundation, Inc.
4 Copyright (C) 1995 Sun Microsystems, Inc. 4 Copyright (C) 1995 Sun Microsystems, Inc.
5 Copyright (C) 2005 Ben Wing. 5 Copyright (C) 2005 Ben Wing.
6 6
235 { /* Error detected */ 235 { /* Error detected */
236 val = build_euc_string (jrKanjiError); 236 val = build_euc_string (jrKanjiError);
237 } 237 }
238 else 238 else
239 { 239 {
240 /* 確定した文字列 (the confirmed string) */ 240 /* 腆阪絖 (the confirmed string) */
241 Vcanna_kakutei_string = make_euc_string (buf, len); 241 Vcanna_kakutei_string = make_euc_string (buf, len);
242 val = make_int (len); 242 val = make_int (len);
243 /* 確定した文字列の読みの情報... 243 /* 腆阪絖茯帥...
244 (info about the reading of the confirmed string) */ 244 (info about the reading of the confirmed string) */
245 Vcanna_kakutei_yomi = Vcanna_kakutei_romaji = Qnil; 245 Vcanna_kakutei_yomi = Vcanna_kakutei_romaji = Qnil;
246 if (ks->info & KanjiYomiInfo) 246 if (ks->info & KanjiYomiInfo)
247 { 247 {
248 char *p = buf + len + 1; 248 char *p = buf + len + 1;
251 if (len + yomilen + 1 < KEYTOSTRSIZE) 251 if (len + yomilen + 1 < KEYTOSTRSIZE)
252 { 252 {
253 int yomilen2; 253 int yomilen2;
254 254
255 Vcanna_kakutei_yomi = 255 Vcanna_kakutei_yomi =
256 make_euc_string (p, yomilen); /* 読み (reading) */ 256 make_euc_string (p, yomilen); /* 茯 (reading) */
257 p += yomilen + 1; 257 p += yomilen + 1;
258 yomilen2 = strlen (p); 258 yomilen2 = strlen (p);
259 if (len + yomilen + yomilen2 + 2 < KEYTOSTRSIZE) 259 if (len + yomilen + yomilen2 + 2 < KEYTOSTRSIZE)
260 { 260 {
261 Vcanna_kakutei_romaji = 261 Vcanna_kakutei_romaji =
262 make_euc_string (p, yomilen2); 262 make_euc_string (p, yomilen2);
263 /* ローマ字 (romanization) */ 263 /* 若絖 (romanization) */
264 } 264 }
265 } 265 }
266 } 266 }
267 267
268 268
269 /* 候補表示の文字列です。 269 /* 茖茵腓冴絖с
270 (string for displaying candidate translations) */ 270 (string for displaying candidate translations) */
271 Vcanna_henkan_string = Qnil; 271 Vcanna_henkan_string = Qnil;
272 if (ks->length >= 0) 272 if (ks->length >= 0)
273 { 273 {
274 Vcanna_henkan_string = make_euc_string (ks->echoStr, ks->length); 274 Vcanna_henkan_string = make_euc_string (ks->echoStr, ks->length);
291 &canna_henkan_revLen); 291 &canna_henkan_revLen);
292 } 292 }
293 #endif /* CANNA_MULE */ 293 #endif /* CANNA_MULE */
294 } 294 }
295 295
296 /* 一覧の情報 (information about the echo area menu) */ 296 /* 筝荀с (information about the echo area menu) */
297 Vcanna_ichiran_string = Qnil; 297 Vcanna_ichiran_string = Qnil;
298 if (ks->info & KanjiGLineInfo && ks->gline.length >= 0) 298 if (ks->info & KanjiGLineInfo && ks->gline.length >= 0)
299 { 299 {
300 Vcanna_ichiran_string = make_euc_string (ks->gline.line, 300 Vcanna_ichiran_string = make_euc_string (ks->gline.line,
301 ks->gline.length); 301 ks->gline.length);
309 &canna_ichiran_length, 309 &canna_ichiran_length,
310 &canna_ichiran_revPos, &canna_ichiran_revLen); 310 &canna_ichiran_revPos, &canna_ichiran_revLen);
311 #endif /* CANNA_MULE */ 311 #endif /* CANNA_MULE */
312 } 312 }
313 313
314 /* モードの情報 (mode information) */ 314 /* ≪若 (mode information) */
315 Vcanna_mode_string = Qnil; 315 Vcanna_mode_string = Qnil;
316 if (ks->info & KanjiModeInfo) 316 if (ks->info & KanjiModeInfo)
317 { 317 {
318 Vcanna_mode_string = build_euc_string ((Extbyte *) ks->mode); 318 Vcanna_mode_string = build_euc_string ((Extbyte *) ks->mode);
319 } 319 }
320 320
321 /* その他の情報 (other information) */ 321 /* 篁 (other information) */
322 canna_empty_info = (ks->info & KanjiEmptyInfo) ? 1 : 0; 322 canna_empty_info = (ks->info & KanjiEmptyInfo) ? 1 : 0;
323 canna_through_info = (ks->info & KanjiThroughInfo) ? 1 : 0; 323 canna_through_info = (ks->info & KanjiThroughInfo) ? 1 : 0;
324 } 324 }
325 325
326 return val; 326 return val;
332 No separator will be used otherwise. 332 No separator will be used otherwise.
333 */ 333 */
334 (num)) 334 (num))
335 { 335 {
336 /* This is actually a Boolean! */ 336 /* This is actually a Boolean! */
337 char *kugiri; /* 文節区切りをするか？ (display clause separator?) */ 337 char *kugiri; /* 膀阪鐚 (display clause separator?) */
338 338
339 kugiri = NILP (num) ? (char *) 0 : (char *) 1; 339 kugiri = NILP (num) ? (char *) 0 : (char *) 1;
340 340
341 jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, kugiri); 341 jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, kugiri);
342 342
365 Lisp_Object val; 365 Lisp_Object val;
366 int res; 366 int res;
367 char **p, **q; 367 char **p, **q;
368 368
369 /* This is actually a Boolean! */ 369 /* This is actually a Boolean! */
370 char *kugiri; /* 文節区切りをするか？ (display clause separator?) */ 370 char *kugiri; /* 膀阪鐚 (display clause separator?) */
371 371
372 IRCP_context = -1; 372 IRCP_context = -1;
373 373
374 if (NILP (num)) 374 if (NILP (num))
375 { 375 {
422 } 422 }
423 423
424 if (res == -1) 424 if (res == -1)
425 { 425 {
426 val = Fcons (build_euc_string (jrKanjiError), val); 426 val = Fcons (build_euc_string (jrKanjiError), val);
427 /* イニシャライズで失敗した場合。 (on initialization failure) */ 427 /* ゃ激ｃゃ冴уけ翫 (on initialization failure) */
428 return Fcons (Qnil, val); 428 return Fcons (Qnil, val);
429 } 429 }
430 else 430 else
431 { 431 {
432 jrBeepFunc = call_Fding; 432 jrBeepFunc = call_Fding;
442 jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, kugiri); 442 jrKanjiControl (0, KC_SETBUNSETSUKUGIRI, kugiri);
443 jrKanjiControl (0, KC_SETWIDTH, (char *) 78); 443 jrKanjiControl (0, KC_SETWIDTH, (char *) 78);
444 #ifndef CANNA_MULE 444 #ifndef CANNA_MULE
445 jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1); 445 jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1);
446 #else 446 #else
447 /* mule だったら半角カタカナも使える 447 /* mule ｃ茹帥篏帥
448 (Mule can use half-width katakana) */ 448 (Mule can use half-width katakana) */
449 if (canna_inhibit_hankakukana) 449 if (canna_inhibit_hankakukana)
450 jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1); 450 jrKanjiControl (0, KC_INHIBITHANKAKUKANA, (char *) 1);
451 #endif 451 #endif
452 jrKanjiControl (0, KC_YOMIINFO, (char *) 2); /* ※２: ローマ字まで返す 452 jrKanjiControl (0, KC_YOMIINFO, (char *) 2); /* 誌: 若絖障ц
453 (*2: return to 453 (*2: return to
454 romanized form) */ 454 romanized form) */
455 val = Fcons (Qnil, val); 455 val = Fcons (Qnil, val);
456 return Fcons (CANNA_mode_keys (), val); 456 return Fcons (CANNA_mode_keys (), val);
457 } 457 }
579 sizeof (key_buffer) - ks.length - 1); 579 sizeof (key_buffer) - ks.length - 1);
580 key_buffer[sizeof (key_buffer) - 1] = '\0'; 580 key_buffer[sizeof (key_buffer) - 1] = '\0';
581 } 581 }
582 582
583 ks.echoStr = (unsigned char *) key_buffer; 583 ks.echoStr = (unsigned char *) key_buffer;
584 ksv.buffer = (unsigned char *) key_buffer; /* 返値用 (return value) */ 584 ksv.buffer = (unsigned char *) key_buffer; /* 菴ょ (return value) */
585 ksv.bytes_buffer = KEYTOSTRSIZE; 585 ksv.bytes_buffer = KEYTOSTRSIZE;
586 ksv.ks = &ks; 586 ksv.ks = &ks;
587 587
588 jrKanjiControl (0, KC_STOREYOMI, (char *)&ksv); 588 jrKanjiControl (0, KC_STOREYOMI, (char *)&ksv);
589 589
834 { 834 {
835 if (confirmContext () == 0) 835 if (confirmContext () == 0)
836 { 836 {
837 return Qnil; 837 return Qnil;
838 } 838 }
839 RkEndBun (IRCP_context, 1); /* 学習はいつでも行って良いものなのか？ 839 RkEndBun (IRCP_context, 1); /* 絖膺ゃс茵ｃ鐚
840 (is it OK to invoke learning function 840 (is it OK to invoke learning function
841 at arbitrary times?) */ 841 at arbitrary times?) */
842 return Qt; 842 return Qt;
843 } 843 }
844 844