Mercurial > hg > xemacs-beta

comparison src/mule-wnnfns.c @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents 131b0175ea99
children 0d2f883870bc
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
338 case WNNSERVER_K: 338 case WNNSERVER_K:
339 strcpy (langname, "ko_KR"); 339 strcpy (langname, "ko_KR");
340 break; 340 break;
341 } 341 }
342 strncpy (envname, XSTRING (lname)->data, 32); 342 strncpy (envname, XSTRING (lname)->data, 32);
343 if (hname == Qnil) strcpy (hostname, ""); 343 if (NILP(hname)) strcpy (hostname, "");
344 else 344 else
345 { 345 {
346 CHECK_STRING (hname); 346 CHECK_STRING (hname);
347 strncpy (hostname, XSTRING (hname)->data, 32); 347 strncpy (hostname, XSTRING (hname)->data, 32);
348 } 348 }
377 int snum; 377 int snum;
378 if ((snum = check_wnn_server_type ()) == -1) return Qnil; 378 if ((snum = check_wnn_server_type ()) == -1) return Qnil;
379 if (!wnnfns_buf[snum]) return Qnil; 379 if (!wnnfns_buf[snum]) return Qnil;
380 if (wnnfns_env_norm[snum]) 380 if (wnnfns_env_norm[snum])
381 { 381 {
382 if (Vwnnenv_sticky == Qnil) jl_env_un_sticky_e (wnnfns_env_norm[snum]); 382 if (NILP(Vwnnenv_sticky)) jl_env_un_sticky_e (wnnfns_env_norm[snum]);
383 else jl_env_sticky_e (wnnfns_env_norm[snum]); 383 else jl_env_sticky_e (wnnfns_env_norm[snum]);
384 jl_disconnect (wnnfns_env_norm[snum]); 384 jl_disconnect (wnnfns_env_norm[snum]);
385 } 385 }
386 if (wnnfns_env_rev[snum]) 386 if (wnnfns_env_rev[snum])
387 { 387 {
388 if (Vwnnenv_sticky == Qnil) jl_env_un_sticky_e (wnnfns_env_rev[snum]); 388 if (NILP(Vwnnenv_sticky)) jl_env_un_sticky_e (wnnfns_env_rev[snum]);
389 else jl_env_sticky_e (wnnfns_env_rev[snum]); 389 else jl_env_sticky_e (wnnfns_env_rev[snum]);
390 jl_disconnect (wnnfns_env_rev[snum]); 390 jl_disconnect (wnnfns_env_rev[snum]);
391 } 391 }
392 jl_env_set (wnnfns_buf[snum], 0); 392 jl_env_set (wnnfns_buf[snum], 0);
393 jl_close (wnnfns_buf[snum]); 393 jl_close (wnnfns_buf[snum]);
408 struct gcpro gcpro1; 408 struct gcpro gcpro1;
409 int snum; 409 int snum;
410 CHECK_STRING (args[0]); 410 CHECK_STRING (args[0]);
411 CHECK_STRING (args[1]); 411 CHECK_STRING (args[1]);
412 CHECK_INT (args[2]); 412 CHECK_INT (args[2]);
413 if (args[5] != Qnil) CHECK_STRING (args[5]); 413 if (! NILP(args[5])) CHECK_STRING (args[5]);
414 if (args[6] != Qnil) CHECK_STRING (args[6]); 414 if (! NILP(args[6])) CHECK_STRING (args[6]);
415 if ((snum = check_wnn_server_type ()) == -1) return Qnil; 415 if ((snum = check_wnn_server_type ()) == -1) return Qnil;
416 if (!wnnfns_buf[snum]) return Qnil; 416 if (!wnnfns_buf[snum]) return Qnil;
417 GCPRO1 (*args); 417 GCPRO1 (*args);
418 gcpro1.nvars = nargs; 418 gcpro1.nvars = nargs;
419 if (jl_dic_add (wnnfns_buf[snum], 419 if (jl_dic_add (wnnfns_buf[snum],
420 XSTRING (args[0])->data, 420 XSTRING (args[0])->data,
421 XSTRING (args[1])->data, 421 XSTRING (args[1])->data,
422 wnnfns_norm ? WNN_DIC_ADD_NOR : WNN_DIC_ADD_REV, 422 wnnfns_norm ? WNN_DIC_ADD_NOR : WNN_DIC_ADD_REV,
423 XINT (args[2]), 423 XINT (args[2]),
424 (args[3] == Qnil) ? WNN_DIC_RDONLY : WNN_DIC_RW, 424 (NILP(args[3])) ? WNN_DIC_RDONLY : WNN_DIC_RW,
425 (args[4] == Qnil) ? WNN_DIC_RDONLY : WNN_DIC_RW, 425 (NILP(args[4])) ? WNN_DIC_RDONLY : WNN_DIC_RW,
426 (args[5] == Qnil) ? 0 : XSTRING (args[5])->data, 426 (NILP(args[5])) ? 0 : XSTRING (args[5])->data,
427 (args[6] == Qnil) ? 0 : XSTRING (args[6])->data, 427 (NILP(args[6])) ? 0 : XSTRING (args[6])->data,
428 yes_or_no, 428 yes_or_no,
429 puts2 ) < 0) 429 puts2 ) < 0)
430 { 430 {
431 UNGCPRO; 431 UNGCPRO;
432 return Qnil; 432 return Qnil;
510 */ 510 */
511 (rev)) 511 (rev))
512 { 512 {
513 int snum; 513 int snum;
514 if ((snum = check_wnn_server_type ()) == -1) return Qnil; 514 if ((snum = check_wnn_server_type ()) == -1) return Qnil;
515 if (rev == Qnil) 515 if (NILP(rev))
516 { 516 {
517 if ((!wnnfns_buf[snum]) || (!wnnfns_env_norm[snum])) return; 517 if ((!wnnfns_buf[snum]) || (!wnnfns_env_norm[snum])) return;
518 jl_env_set (wnnfns_buf[snum], wnnfns_env_norm[snum]); 518 jl_env_set (wnnfns_buf[snum], wnnfns_env_norm[snum]);
519 wnnfns_norm = 1; 519 wnnfns_norm = 1;
520 } 520 }
564 if (!wnnfns_buf[snum]) return Qnil; 564 if (!wnnfns_buf[snum]) return Qnil;
565 no = XINT (bunNo); 565 no = XINT (bunNo);
566 if (Vwnn_uniq_level == Qwnn_no_uniq) uniq_level = WNN_NO_UNIQ; 566 if (Vwnn_uniq_level == Qwnn_no_uniq) uniq_level = WNN_NO_UNIQ;
567 else if (Vwnn_uniq_level == Qwnn_uniq) uniq_level = WNN_UNIQ; 567 else if (Vwnn_uniq_level == Qwnn_uniq) uniq_level = WNN_UNIQ;
568 else uniq_level = WNN_UNIQ_KNJ; 568 else uniq_level = WNN_UNIQ_KNJ;
569 if (dai == Qnil) 569 if (NILP(dai))
570 { 570 {
571 if (offset = jl_zenkouho (wnnfns_buf[snum],no,WNN_USE_MAE, uniq_level) < 0) 571 if (offset = jl_zenkouho (wnnfns_buf[snum],no,WNN_USE_MAE, uniq_level) < 0)
572 return Qnil; 572 return Qnil;
573 } 573 }
574 else 574 else
651 { 651 {
652 int snum; 652 int snum;
653 CHECK_INT (offset); 653 CHECK_INT (offset);
654 if ((snum = check_wnn_server_type ()) == -1) return Qnil; 654 if ((snum = check_wnn_server_type ()) == -1) return Qnil;
655 if (!wnnfns_buf[snum]) return Qnil; 655 if (!wnnfns_buf[snum]) return Qnil;
656 if (dai == Qnil) 656 if (NILP(dai))
657 { 657 {
658 if (jl_set_jikouho (wnnfns_buf[snum], XINT (offset)) < 0) return Qnil; 658 if (jl_set_jikouho (wnnfns_buf[snum], XINT (offset)) < 0) return Qnil;
659 } 659 }
660 else 660 else
661 { 661 {
678 if ((snum = check_wnn_server_type ()) == -1) return Qnil; 678 if ((snum = check_wnn_server_type ()) == -1) return Qnil;
679 if (!wnnfns_buf[snum]) return Qnil; 679 if (!wnnfns_buf[snum]) return Qnil;
680 no = XINT (bunNo); 680 no = XINT (bunNo);
681 #ifdef WNN6 681 #ifdef WNN6
682 if ((cnt = jl_fi_nobi_conv (wnnfns_buf[snum], no, XINT(len), -1, WNN_USE_MAE, 682 if ((cnt = jl_fi_nobi_conv (wnnfns_buf[snum], no, XINT(len), -1, WNN_USE_MAE,
683 (dai == Qnil) ? WNN_SHO : WNN_DAI)) < 0) 683 (NILP(dai)) ? WNN_SHO : WNN_DAI)) < 0)
684 return Qnil; 684 return Qnil;
685 #else 685 #else
686 if ((cnt = jl_nobi_conv (wnnfns_buf[snum], no, XINT(len), -1, WNN_USE_MAE, 686 if ((cnt = jl_nobi_conv (wnnfns_buf[snum], no, XINT(len), -1, WNN_USE_MAE,
687 (dai == Qnil) ? WNN_SHO : WNN_DAI)) < 0) 687 (NILP(dai)) ? WNN_SHO : WNN_DAI)) < 0)
688 return Qnil; 688 return Qnil;
689 #endif 689 #endif
690 return make_int (cnt); 690 return make_int (cnt);
691 } 691 }
692 692
802 { 802 {
803 int no; 803 int no;
804 Lisp_Object val; 804 Lisp_Object val;
805 int snum; 805 int snum;
806 if ((snum = check_wnn_server_type ()) == -1) return Qnil; 806 if ((snum = check_wnn_server_type ()) == -1) return Qnil;
807 if (bunNo == Qnil) no = -1; 807 if (NILP(bunNo)) no = -1;
808 else 808 else
809 { 809 {
810 CHECK_INT (bunNo); 810 CHECK_INT (bunNo);
811 no = XINT (bunNo); 811 no = XINT (bunNo);
812 } 812 }
1212 static void puts2(); 1212 static void puts2();
1213 struct gcpro gcpro1; 1213 struct gcpro gcpro1;
1214 int snum; 1214 int snum;
1215 CHECK_STRING (args[0]); 1215 CHECK_STRING (args[0]);
1216 CHECK_STRING (args[1]); 1216 CHECK_STRING (args[1]);
1217 if (args[3] != Qnil) CHECK_STRING (args[3]); 1217 if (! NILP(args[3])) CHECK_STRING (args[3]);
1218 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1218 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1219 if(!wnnfns_buf[snum]) return Qnil; 1219 if(!wnnfns_buf[snum]) return Qnil;
1220 GCPRO1 (*args); 1220 GCPRO1 (*args);
1221 gcpro1.nvars = nargs; 1221 gcpro1.nvars = nargs;
1222 if(jl_fi_dic_add(wnnfns_buf[snum], 1222 if(jl_fi_dic_add(wnnfns_buf[snum],
1223 XSTRING(args[0])->data, 1223 XSTRING(args[0])->data,
1224 XSTRING(args[1])->data, 1224 XSTRING(args[1])->data,
1225 WNN_FI_SYSTEM_DICT, 1225 WNN_FI_SYSTEM_DICT,
1226 WNN_DIC_RDONLY, 1226 WNN_DIC_RDONLY,
1227 (args[2] == Qnil) ? WNN_DIC_RDONLY : WNN_DIC_RW, 1227 (NILP(args[2])) ? WNN_DIC_RDONLY : WNN_DIC_RW,
1228 0, 1228 0,
1229 (args[3] == Qnil) ? 0 : XSTRING(args[3])->data, 1229 (NILP(args[3])) ? 0 : XSTRING(args[3])->data,
1230 yes_or_no, 1230 yes_or_no,
1231 puts2 ) < 0) { 1231 puts2 ) < 0) {
1232 UNGCPRO; 1232 UNGCPRO;
1233 return Qnil; 1233 return Qnil;
1234 } 1234 }
1247 static void puts2(); 1247 static void puts2();
1248 struct gcpro gcpro1; 1248 struct gcpro gcpro1;
1249 int snum; 1249 int snum;
1250 CHECK_STRING (args[0]); 1250 CHECK_STRING (args[0]);
1251 CHECK_STRING (args[1]); 1251 CHECK_STRING (args[1]);
1252 if (args[4] != Qnil) CHECK_STRING (args[4]); 1252 if (! NILP(args[4])) CHECK_STRING (args[4]);
1253 if (args[5] != Qnil) CHECK_STRING (args[5]); 1253 if (! NILP(args[5])) CHECK_STRING (args[5]);
1254 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1254 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1255 if(!wnnfns_buf[snum]) return Qnil; 1255 if(!wnnfns_buf[snum]) return Qnil;
1256 GCPRO1 (*args); 1256 GCPRO1 (*args);
1257 gcpro1.nvars = nargs; 1257 gcpro1.nvars = nargs;
1258 if(jl_fi_dic_add(wnnfns_buf[snum], 1258 if(jl_fi_dic_add(wnnfns_buf[snum],
1259 XSTRING(args[0])->data, 1259 XSTRING(args[0])->data,
1260 XSTRING(args[1])->data, 1260 XSTRING(args[1])->data,
1261 WNN_FI_USER_DICT, 1261 WNN_FI_USER_DICT,
1262 (args[2] == Qnil) ? WNN_DIC_RDONLY : WNN_DIC_RW, 1262 (NILP(args[2])) ? WNN_DIC_RDONLY : WNN_DIC_RW,
1263 (args[3] == Qnil) ? WNN_DIC_RDONLY : WNN_DIC_RW, 1263 (NILP(args[3])) ? WNN_DIC_RDONLY : WNN_DIC_RW,
1264 (args[4] == Qnil) ? 0 : XSTRING(args[4])->data, 1264 (NILP(args[4])) ? 0 : XSTRING(args[4])->data,
1265 (args[5] == Qnil) ? 0 : XSTRING(args[5])->data, 1265 (NILP(args[5])) ? 0 : XSTRING(args[5])->data,
1266 yes_or_no, 1266 yes_or_no,
1267 puts2 ) < 0) { 1267 puts2 ) < 0) {
1268 UNGCPRO; 1268 UNGCPRO;
1269 return Qnil; 1269 return Qnil;
1270 } 1270 }
1286 struct wnn_env *cur_env; 1286 struct wnn_env *cur_env;
1287 unsigned long vmask = 0; 1287 unsigned long vmask = 0;
1288 struct wnn_henkan_env henv; 1288 struct wnn_henkan_env henv;
1289 CHECK_STRING (args[0]); 1289 CHECK_STRING (args[0]);
1290 CHECK_INT (args[1]); 1290 CHECK_INT (args[1]);
1291 if (args[3] != Qnil) CHECK_STRING (args[3]); 1291 if (! NILP(args[3])) CHECK_STRING (args[3]);
1292 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1292 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1293 if(!wnnfns_buf[snum]) return Qnil; 1293 if(!wnnfns_buf[snum]) return Qnil;
1294 GCPRO1 (*args); 1294 GCPRO1 (*args);
1295 gcpro1.nvars = nargs; 1295 gcpro1.nvars = nargs;
1296 if(wnnfns_norm) 1296 if(wnnfns_norm)
1303 XSTRING(args[0])->data, 1303 XSTRING(args[0])->data,
1304 0, 1304 0,
1305 wnnfns_norm ? WNN_DIC_ADD_NOR : WNN_DIC_ADD_REV, 1305 wnnfns_norm ? WNN_DIC_ADD_NOR : WNN_DIC_ADD_REV,
1306 XINT(args[1]), 1306 XINT(args[1]),
1307 WNN_DIC_RW, WNN_DIC_RW, 1307 WNN_DIC_RW, WNN_DIC_RW,
1308 (args[3] == Qnil) ? 0 : XSTRING(args[3])->data, 1308 (NILP(args[3])) ? 0 : XSTRING(args[3])->data,
1309 0, 1309 0,
1310 yes_or_no, 1310 yes_or_no,
1311 puts2)) < 0) { 1311 puts2)) < 0) {
1312 UNGCPRO; 1312 UNGCPRO;
1313 return Qnil; 1313 return Qnil;
1320 UNGCPRO; 1320 UNGCPRO;
1321 return Qnil; 1321 return Qnil;
1322 } 1322 }
1323 } 1323 }
1324 vmask |= WNN_ENV_MUHENKAN_LEARN_MASK; 1324 vmask |= WNN_ENV_MUHENKAN_LEARN_MASK;
1325 henv.muhenkan_flag = (args[2] == Qnil) ? WNN_DIC_RDONLY : WNN_DIC_RW; 1325 henv.muhenkan_flag = (NILP(args[2])) ? WNN_DIC_RDONLY : WNN_DIC_RW;
1326 if(jl_set_henkan_env(wnnfns_buf[snum], 1326 if(jl_set_henkan_env(wnnfns_buf[snum],
1327 vmask, 1327 vmask,
1328 &henv) < 0) { 1328 &henv) < 0) {
1329 UNGCPRO; 1329 UNGCPRO;
1330 return Qnil; 1330 return Qnil;
1347 struct wnn_env *cur_env; 1347 struct wnn_env *cur_env;
1348 unsigned long vmask = 0; 1348 unsigned long vmask = 0;
1349 struct wnn_henkan_env henv; 1349 struct wnn_henkan_env henv;
1350 CHECK_STRING (args[0]); 1350 CHECK_STRING (args[0]);
1351 CHECK_INT (args[1]); 1351 CHECK_INT (args[1]);
1352 if (args[3] != Qnil) CHECK_STRING (args[3]); 1352 if (! NILP(args[3])) CHECK_STRING (args[3]);
1353 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1353 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1354 if(!wnnfns_buf[snum]) return Qnil; 1354 if(!wnnfns_buf[snum]) return Qnil;
1355 GCPRO1 (*args); 1355 GCPRO1 (*args);
1356 gcpro1.nvars = nargs; 1356 gcpro1.nvars = nargs;
1357 if(wnnfns_norm) 1357 if(wnnfns_norm)
1364 XSTRING(args[0])->data, 1364 XSTRING(args[0])->data,
1365 0, 1365 0,
1366 wnnfns_norm ? WNN_DIC_ADD_NOR : WNN_DIC_ADD_REV, 1366 wnnfns_norm ? WNN_DIC_ADD_NOR : WNN_DIC_ADD_REV,
1367 XINT(args[1]), 1367 XINT(args[1]),
1368 WNN_DIC_RW, WNN_DIC_RW, 1368 WNN_DIC_RW, WNN_DIC_RW,
1369 (args[3] == Qnil) ? 0 : XSTRING(args[3])->data, 1369 (NILP(args[3])) ? 0 : XSTRING(args[3])->data,
1370 0, 1370 0,
1371 yes_or_no, 1371 yes_or_no,
1372 puts2)) < 0) { 1372 puts2)) < 0) {
1373 UNGCPRO; 1373 UNGCPRO;
1374 return Qnil; 1374 return Qnil;
1381 UNGCPRO; 1381 UNGCPRO;
1382 return Qnil; 1382 return Qnil;
1383 } 1383 }
1384 } 1384 }
1385 vmask |= WNN_ENV_BUNSETSUGIRI_LEARN_MASK; 1385 vmask |= WNN_ENV_BUNSETSUGIRI_LEARN_MASK;
1386 henv.bunsetsugiri_flag = (args[2] == Qnil) ? WNN_DIC_RDONLY : WNN_DIC_RW; 1386 henv.bunsetsugiri_flag = (NILP(args[2])) ? WNN_DIC_RDONLY : WNN_DIC_RW;
1387 if(jl_set_henkan_env(wnnfns_buf[snum], 1387 if(jl_set_henkan_env(wnnfns_buf[snum],
1388 vmask, 1388 vmask,
1389 &henv) < 0) { 1389 &henv) < 0) {
1390 UNGCPRO; 1390 UNGCPRO;
1391 return Qnil; 1391 return Qnil;
1403 unsigned long vmask = 0; 1403 unsigned long vmask = 0;
1404 struct wnn_henkan_env henv; 1404 struct wnn_henkan_env henv;
1405 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1405 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1406 if(!wnnfns_buf[snum]) return Qnil; 1406 if(!wnnfns_buf[snum]) return Qnil;
1407 vmask |= WNN_ENV_LAST_IS_FIRST_MASK; 1407 vmask |= WNN_ENV_LAST_IS_FIRST_MASK;
1408 henv.last_is_first_flag = (mode == Qnil) ? False : True; 1408 henv.last_is_first_flag = (NILP(mode)) ? False : True;
1409 if(jl_set_henkan_env(wnnfns_buf[snum], 1409 if(jl_set_henkan_env(wnnfns_buf[snum],
1410 vmask, 1410 vmask,
1411 &henv) < 0) return Qnil; 1411 &henv) < 0) return Qnil;
1412 return Qt; 1412 return Qt;
1413 } 1413 }
1421 unsigned long vmask = 0; 1421 unsigned long vmask = 0;
1422 struct wnn_henkan_env henv; 1422 struct wnn_henkan_env henv;
1423 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1423 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1424 if(!wnnfns_buf[snum]) return Qnil; 1424 if(!wnnfns_buf[snum]) return Qnil;
1425 vmask |= WNN_ENV_COMPLEX_CONV_MASK; 1425 vmask |= WNN_ENV_COMPLEX_CONV_MASK;
1426 henv.complex_flag = (mode == Qnil) ? False : True; 1426 henv.complex_flag = (NILP(mode)) ? False : True;
1427 if(jl_set_henkan_env(wnnfns_buf[snum], 1427 if(jl_set_henkan_env(wnnfns_buf[snum],
1428 vmask, 1428 vmask,
1429 &henv) < 0) return Qnil; 1429 &henv) < 0) return Qnil;
1430 return Qt; 1430 return Qt;
1431 } 1431 }
1439 unsigned long vmask = 0; 1439 unsigned long vmask = 0;
1440 struct wnn_henkan_env henv; 1440 struct wnn_henkan_env henv;
1441 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1441 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1442 if(!wnnfns_buf[snum]) return Qnil; 1442 if(!wnnfns_buf[snum]) return Qnil;
1443 vmask |= WNN_ENV_OKURI_LEARN_MASK; 1443 vmask |= WNN_ENV_OKURI_LEARN_MASK;
1444 henv.okuri_learn_flag = (mode == Qnil) ? False : True; 1444 henv.okuri_learn_flag = (NILP(mode)) ? False : True;
1445 if(jl_set_henkan_env(wnnfns_buf[snum], 1445 if(jl_set_henkan_env(wnnfns_buf[snum],
1446 vmask, 1446 vmask,
1447 &henv) < 0) return Qnil; 1447 &henv) < 0) return Qnil;
1448 return Qt; 1448 return Qt;
1449 } 1449 }
1481 unsigned long vmask = 0; 1481 unsigned long vmask = 0;
1482 struct wnn_henkan_env henv; 1482 struct wnn_henkan_env henv;
1483 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1483 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1484 if(!wnnfns_buf[snum]) return Qnil; 1484 if(!wnnfns_buf[snum]) return Qnil;
1485 vmask |= WNN_ENV_PREFIX_LEARN_MASK; 1485 vmask |= WNN_ENV_PREFIX_LEARN_MASK;
1486 henv.prefix_learn_flag = (mode == Qnil) ? False : True; 1486 henv.prefix_learn_flag = (NILP(mode)) ? False : True;
1487 if(jl_set_henkan_env(wnnfns_buf[snum], 1487 if(jl_set_henkan_env(wnnfns_buf[snum],
1488 vmask, 1488 vmask,
1489 &henv) < 0) return Qnil; 1489 &henv) < 0) return Qnil;
1490 return Qt; 1490 return Qt;
1491 } 1491 }
1521 unsigned long vmask = 0; 1521 unsigned long vmask = 0;
1522 struct wnn_henkan_env henv; 1522 struct wnn_henkan_env henv;
1523 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1523 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1524 if(!wnnfns_buf[snum]) return Qnil; 1524 if(!wnnfns_buf[snum]) return Qnil;
1525 vmask |= WNN_ENV_SUFFIX_LEARN_MASK; 1525 vmask |= WNN_ENV_SUFFIX_LEARN_MASK;
1526 henv.suffix_learn_flag = (mode == Qnil) ? False : True; 1526 henv.suffix_learn_flag = (NILP(mode)) ? False : True;
1527 if(jl_set_henkan_env(wnnfns_buf[snum], 1527 if(jl_set_henkan_env(wnnfns_buf[snum],
1528 vmask, 1528 vmask,
1529 &henv) < 0) return Qnil; 1529 &henv) < 0) return Qnil;
1530 return Qt; 1530 return Qt;
1531 } 1531 }
1539 unsigned long vmask = 0; 1539 unsigned long vmask = 0;
1540 struct wnn_henkan_env henv; 1540 struct wnn_henkan_env henv;
1541 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1541 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1542 if(!wnnfns_buf[snum]) return Qnil; 1542 if(!wnnfns_buf[snum]) return Qnil;
1543 vmask |= WNN_ENV_COMMON_LAERN_MASK; 1543 vmask |= WNN_ENV_COMMON_LAERN_MASK;
1544 henv.common_learn_flag = (mode == Qnil) ? False : True; 1544 henv.common_learn_flag = (NILP(mode)) ? False : True;
1545 if(jl_set_henkan_env(wnnfns_buf[snum], 1545 if(jl_set_henkan_env(wnnfns_buf[snum],
1546 vmask, 1546 vmask,
1547 &henv) < 0) return Qnil; 1547 &henv) < 0) return Qnil;
1548 return Qt; 1548 return Qt;
1549 } 1549 }
1651 unsigned long vmask = 0; 1651 unsigned long vmask = 0;
1652 struct wnn_henkan_env henv; 1652 struct wnn_henkan_env henv;
1653 if ((snum = check_wnn_server_type()) == -1) return Qnil; 1653 if ((snum = check_wnn_server_type()) == -1) return Qnil;
1654 if(!wnnfns_buf[snum]) return Qnil; 1654 if(!wnnfns_buf[snum]) return Qnil;
1655 vmask |= WNN_ENV_YURAGI_MASK; 1655 vmask |= WNN_ENV_YURAGI_MASK;
1656 henv.yuragi_flag = (mode == Qnil) ? False : True; 1656 henv.yuragi_flag = (NILP(mode)) ? False : True;
1657 if(jl_set_henkan_env(wnnfns_buf[snum], 1657 if(jl_set_henkan_env(wnnfns_buf[snum],
1658 vmask, 1658 vmask,
1659 &henv) < 0) return Qnil; 1659 &henv) < 0) return Qnil;
1660 return Qt; 1660 return Qt;
1661 } 1661 }
1830 { 1830 {
1831 case 0x80: 1831 case 0x80:
1832 if (Vwnn_server_type == Qcserver) 1832 if (Vwnn_server_type == Qcserver)
1833 { 1833 {
1834 len = cwnn_yincod_pzy (pzy, wc, 1834 len = cwnn_yincod_pzy (pzy, wc,
1835 (Vcwnn_zhuyin == Qnil) 1835 (NILP(Vcwnn_zhuyin))
1836 ? CWNN_PINYIN 1836 ? CWNN_PINYIN
1837 : CWNN_ZHUYIN); 1837 : CWNN_ZHUYIN);
1838 for (i = 0; i < len; i++) 1838 for (i = 0; i < len; i++)
1839 { 1839 {
1840 if (pzy[i] & 0x80) 1840 if (pzy[i] & 0x80)
1942 {*pin =0; break;} 1942 {*pin =0; break;}
1943 else *pin = *w; 1943 else *pin = *w;
1944 w++; pin++; 1944 w++; pin++;
1945 } 1945 }
1946 len = cwnn_pzy_yincod (ybuf, pbuf, 1946 len = cwnn_pzy_yincod (ybuf, pbuf,
1947 (Vcwnn_zhuyin == Qnil) ? CWNN_PINYIN : CWNN_ZHUYIN); 1947 (NILP(Vcwnn_zhuyin)) ? CWNN_PINYIN : CWNN_ZHUYIN);
1948 if (len <= 0) 1948 if (len <= 0)
1949 return; 1949 return;
1950 1950
1951 pin = ybuf; 1951 pin = ybuf;
1952 while (1) 1952 while (1)
1997 if (*s == 0) return 1; 1997 if (*s == 0) return 1;
1998 c2m (s, mbuf, lb); 1998 c2m (s, mbuf, lb);
1999 /* truncate "(Y/N)" */ 1999 /* truncate "(Y/N)" */
2000 for (len = 0; (mbuf[len]) && (len < 512); len++); 2000 for (len = 0; (mbuf[len]) && (len < 512); len++);
2001 for (; (mbuf[len] != '(') && (len > 0); len--); 2001 for (; (mbuf[len] != '(') && (len > 0); len--);
2002 if (Fy_or_n_p (make_string (mbuf, len)) == Qnil) return 0; 2002 if (NILP(Fy_or_n_p (make_string (mbuf, len)))) return 0;
2003 else return (1); 2003 else return (1);
2004 } 2004 }
2005 2005
2006 static void 2006 static void
2007 puts2 (char *s) 2007 puts2 (char *s)