Mercurial > hg > xemacs-beta

comparison src/mule-wnnfns.c @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
1 /* 1 /* -*- coding: iso-2022-jp -*-
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
1064 */ 1064 */
1065 (Vsetvalues_alist)) 1065 (Vsetvalues_alist))
1066 { 1066 {
1067 int rc; 1067 int rc;
1068 struct wnn_param param; 1068 struct wnn_param param;
1069 Lisp_Object tail, key, val;
1070 int snum; 1069 int snum;
1071 1070
1072 if ((snum = check_wnn_server_type ()) == -1) return Qnil; 1071 if ((snum = check_wnn_server_type ()) == -1) return Qnil;
1073 if (!wnnfns_buf[snum]) return Qnil; 1072 if (!wnnfns_buf[snum]) return Qnil;
1074 rc = jl_param_get (wnnfns_buf[snum], &param); 1073 rc = jl_param_get (wnnfns_buf[snum], &param);
1075 if (rc < 0) return Qnil; 1074 if (rc < 0) return Qnil;
1076 1075
1077 EXTERNAL_PROPERTY_LIST_LOOP (tail, key, val, Vsetvalues_alist) 1076 {
1078 { 1077 EXTERNAL_PROPERTY_LIST_LOOP_3 (key, val, Vsetvalues_alist)
1079 int setval; 1078 {
1080 CHECK_INT (val); 1079 int setval;
1081 setval = XINT (val); 1080 CHECK_INT (val);
1082 if (EQ (key, Qwnn_n)) param.n = setval; 1081 setval = XINT (val);
1083 else if (EQ (key, Qwnn_nsho)) param.nsho = setval; 1082 if (EQ (key, Qwnn_n)) param.n = setval;
1084 else if (EQ (key, Qwnn_hindo)) param.p1 = setval; 1083 else if (EQ (key, Qwnn_nsho)) param.nsho = setval;
1085 else if (EQ (key, Qwnn_len)) param.p2 = setval; 1084 else if (EQ (key, Qwnn_hindo)) param.p1 = setval;
1086 else if (EQ (key, Qwnn_jiri)) param.p3 = setval; 1085 else if (EQ (key, Qwnn_len)) param.p2 = setval;
1087 else if (EQ (key, Qwnn_flag)) param.p4 = setval; 1086 else if (EQ (key, Qwnn_jiri)) param.p3 = setval;
1088 else if (EQ (key, Qwnn_jisho)) param.p5 = setval; 1087 else if (EQ (key, Qwnn_flag)) param.p4 = setval;
1089 else if (EQ (key, Qwnn_sbn)) param.p6 = setval; 1088 else if (EQ (key, Qwnn_jisho)) param.p5 = setval;
1090 else if (EQ (key, Qwnn_dbn_len)) param.p7 = setval; 1089 else if (EQ (key, Qwnn_sbn)) param.p6 = setval;
1091 else if (EQ (key, Qwnn_sbn_cnt)) param.p8 = setval; 1090 else if (EQ (key, Qwnn_dbn_len)) param.p7 = setval;
1092 else if (EQ (key, Qwnn_suuji)) param.p9 = setval; 1091 else if (EQ (key, Qwnn_sbn_cnt)) param.p8 = setval;
1093 else if (EQ (key, Qwnn_kana)) param.p10 = setval; 1092 else if (EQ (key, Qwnn_suuji)) param.p9 = setval;
1094 else if (EQ (key, Qwnn_eisuu)) param.p11 = setval; 1093 else if (EQ (key, Qwnn_kana)) param.p10 = setval;
1095 else if (EQ (key, Qwnn_kigou)) param.p12 = setval; 1094 else if (EQ (key, Qwnn_eisuu)) param.p11 = setval;
1096 else if (EQ (key, Qwnn_toji_kakko)) param.p13 = setval; 1095 else if (EQ (key, Qwnn_kigou)) param.p12 = setval;
1097 else if (EQ (key, Qwnn_fuzokogo)) param.p14 = setval; 1096 else if (EQ (key, Qwnn_toji_kakko)) param.p13 = setval;
1098 else if (EQ (key, Qwnn_kaikakko)) param.p15 = setval; 1097 else if (EQ (key, Qwnn_fuzokogo)) param.p14 = setval;
1099 else 1098 else if (EQ (key, Qwnn_kaikakko)) param.p15 = setval;
1100 { 1099 else
1101 signal_simple_error ("Invalid wnn keyword", key); 1100 {
1102 return Qnil; 1101 signal_simple_error ("Invalid wnn keyword", key);
1103 } 1102 return Qnil;
1104 } 1103 }
1104 }
1105 }
1105 1106
1106 #if 0 1107 #if 0
1107 printf("wnn_n = %d\n",param.n); 1108 printf("wnn_n = %d\n",param.n);
1108 printf("wnn_nsho = %d\n",param.nsho); 1109 printf("wnn_nsho = %d\n",param.nsho);
1109 printf("wnn_hindo = %d\n",param.p1); 1110 printf("wnn_hindo = %d\n",param.p1);