1 /* $OpenBSD: wskbdutil.c,v 1.19 2021/12/30 06:55:11 anton Exp $ */ 2 /* $NetBSD: wskbdutil.c,v 1.7 1999/12/21 11:59:13 drochner Exp $ */ 3 4 /*- 5 * Copyright (c) 1997 The NetBSD Foundation, Inc. 6 * All rights reserved. 7 * 8 * This code is derived from software contributed to The NetBSD Foundation 9 * by Juergen Hannken-Illjes. 10 * 11 * Redistribution and use in source and binary forms, with or without 12 * modification, are permitted provided that the following conditions 13 * are met: 14 * 1. Redistributions of source code must retain the above copyright 15 * notice, this list of conditions and the following disclaimer. 16 * 2. Redistributions in binary form must reproduce the above copyright 17 * notice, this list of conditions and the following disclaimer in the 18 * documentation and/or other materials provided with the distribution. 19 * 20 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 21 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 22 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 23 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 24 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 25 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 26 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 27 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 28 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 29 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 30 * POSSIBILITY OF SUCH DAMAGE. 31 */ 32 33 #include <sys/param.h> 34 #include <sys/errno.h> 35 #include <sys/systm.h> 36 #include <sys/malloc.h> 37 #include <dev/wscons/wsksymdef.h> 38 #include <dev/wscons/wsksymvar.h> 39 40 static struct compose_tab_s { 41 keysym_t elem[2]; 42 keysym_t result; 43 } compose_tab[] = { 44 { { KS_plus, KS_plus }, KS_numbersign }, 45 { { KS_a, KS_a }, KS_at }, 46 { { KS_parenleft, KS_parenleft }, KS_bracketleft }, 47 { { KS_slash, KS_slash }, KS_backslash }, 48 { { KS_parenright, KS_parenright }, KS_bracketright }, 49 { { KS_parenleft, KS_minus }, KS_braceleft }, 50 { { KS_slash, KS_minus }, KS_bar }, 51 { { KS_parenright, KS_minus }, KS_braceright }, 52 { { KS_exclam, KS_exclam }, KS_exclamdown }, 53 { { KS_c, KS_slash }, KS_cent }, 54 { { KS_l, KS_minus }, KS_sterling }, 55 { { KS_y, KS_minus }, KS_yen }, 56 { { KS_s, KS_o }, KS_section }, 57 { { KS_x, KS_o }, KS_currency }, 58 { { KS_c, KS_o }, KS_copyright }, 59 { { KS_less, KS_less }, KS_guillemotleft }, 60 { { KS_greater, KS_greater }, KS_guillemotright }, 61 { { KS_question, KS_question }, KS_questiondown }, 62 { { KS_dead_acute, KS_space }, KS_apostrophe }, 63 { { KS_dead_grave, KS_space }, KS_grave }, 64 { { KS_dead_tilde, KS_space }, KS_asciitilde }, 65 { { KS_dead_circumflex, KS_space }, KS_asciicircum }, 66 { { KS_dead_diaeresis, KS_space }, KS_quotedbl }, 67 { { KS_dead_cedilla, KS_space }, KS_comma }, 68 { { KS_dead_circumflex, KS_A }, KS_Acircumflex }, 69 { { KS_dead_diaeresis, KS_A }, KS_Adiaeresis }, 70 { { KS_dead_grave, KS_A }, KS_Agrave }, 71 { { KS_dead_abovering, KS_A }, KS_Aring }, 72 { { KS_dead_tilde, KS_A }, KS_Atilde }, 73 { { KS_dead_cedilla, KS_C }, KS_Ccedilla }, 74 { { KS_dead_acute, KS_E }, KS_Eacute }, 75 { { KS_dead_circumflex, KS_E }, KS_Ecircumflex }, 76 { { KS_dead_diaeresis, KS_E }, KS_Ediaeresis }, 77 { { KS_dead_grave, KS_E }, KS_Egrave }, 78 { { KS_dead_acute, KS_I }, KS_Iacute }, 79 { { KS_dead_circumflex, KS_I }, KS_Icircumflex }, 80 { { KS_dead_diaeresis, KS_I }, KS_Idiaeresis }, 81 { { KS_dead_grave, KS_I }, KS_Igrave }, 82 { { KS_dead_tilde, KS_N }, KS_Ntilde }, 83 { { KS_dead_acute, KS_O }, KS_Oacute }, 84 { { KS_dead_circumflex, KS_O }, KS_Ocircumflex }, 85 { { KS_dead_diaeresis, KS_O }, KS_Odiaeresis }, 86 { { KS_dead_grave, KS_O }, KS_Ograve }, 87 { { KS_dead_tilde, KS_O }, KS_Otilde }, 88 { { KS_dead_acute, KS_U }, KS_Uacute }, 89 { { KS_dead_circumflex, KS_U }, KS_Ucircumflex }, 90 { { KS_dead_diaeresis, KS_U }, KS_Udiaeresis }, 91 { { KS_dead_grave, KS_U }, KS_Ugrave }, 92 { { KS_dead_acute, KS_Y }, KS_Yacute }, 93 { { KS_dead_acute, KS_a }, KS_aacute }, 94 { { KS_dead_circumflex, KS_a }, KS_acircumflex }, 95 { { KS_dead_diaeresis, KS_a }, KS_adiaeresis }, 96 { { KS_dead_grave, KS_a }, KS_agrave }, 97 { { KS_dead_abovering, KS_a }, KS_aring }, 98 { { KS_dead_tilde, KS_a }, KS_atilde }, 99 { { KS_dead_cedilla, KS_c }, KS_ccedilla }, 100 { { KS_dead_acute, KS_e }, KS_eacute }, 101 { { KS_dead_circumflex, KS_e }, KS_ecircumflex }, 102 { { KS_dead_diaeresis, KS_e }, KS_ediaeresis }, 103 { { KS_dead_grave, KS_e }, KS_egrave }, 104 { { KS_dead_acute, KS_i }, KS_iacute }, 105 { { KS_dead_circumflex, KS_i }, KS_icircumflex }, 106 { { KS_dead_diaeresis, KS_i }, KS_idiaeresis }, 107 { { KS_dead_grave, KS_i }, KS_igrave }, 108 { { KS_dead_tilde, KS_n }, KS_ntilde }, 109 { { KS_dead_acute, KS_o }, KS_oacute }, 110 { { KS_dead_circumflex, KS_o }, KS_ocircumflex }, 111 { { KS_dead_diaeresis, KS_o }, KS_odiaeresis }, 112 { { KS_dead_grave, KS_o }, KS_ograve }, 113 { { KS_dead_tilde, KS_o }, KS_otilde }, 114 { { KS_dead_acute, KS_u }, KS_uacute }, 115 { { KS_dead_circumflex, KS_u }, KS_ucircumflex }, 116 { { KS_dead_diaeresis, KS_u }, KS_udiaeresis }, 117 { { KS_dead_grave, KS_u }, KS_ugrave }, 118 { { KS_dead_acute, KS_y }, KS_yacute }, 119 { { KS_dead_diaeresis, KS_y }, KS_ydiaeresis }, 120 { { KS_quotedbl, KS_A }, KS_Adiaeresis }, 121 { { KS_quotedbl, KS_E }, KS_Ediaeresis }, 122 { { KS_quotedbl, KS_I }, KS_Idiaeresis }, 123 { { KS_quotedbl, KS_O }, KS_Odiaeresis }, 124 { { KS_quotedbl, KS_U }, KS_Udiaeresis }, 125 { { KS_quotedbl, KS_a }, KS_adiaeresis }, 126 { { KS_quotedbl, KS_e }, KS_ediaeresis }, 127 { { KS_quotedbl, KS_i }, KS_idiaeresis }, 128 { { KS_quotedbl, KS_o }, KS_odiaeresis }, 129 { { KS_quotedbl, KS_u }, KS_udiaeresis }, 130 { { KS_quotedbl, KS_y }, KS_ydiaeresis }, 131 { { KS_acute, KS_A }, KS_Aacute }, 132 { { KS_asciicircum, KS_A }, KS_Acircumflex }, 133 { { KS_grave, KS_A }, KS_Agrave }, 134 { { KS_asterisk, KS_A }, KS_Aring }, 135 { { KS_asciitilde, KS_A }, KS_Atilde }, 136 { { KS_cedilla, KS_C }, KS_Ccedilla }, 137 { { KS_acute, KS_E }, KS_Eacute }, 138 { { KS_asciicircum, KS_E }, KS_Ecircumflex }, 139 { { KS_grave, KS_E }, KS_Egrave }, 140 { { KS_acute, KS_I }, KS_Iacute }, 141 { { KS_asciicircum, KS_I }, KS_Icircumflex }, 142 { { KS_grave, KS_I }, KS_Igrave }, 143 { { KS_asciitilde, KS_N }, KS_Ntilde }, 144 { { KS_acute, KS_O }, KS_Oacute }, 145 { { KS_asciicircum, KS_O }, KS_Ocircumflex }, 146 { { KS_grave, KS_O }, KS_Ograve }, 147 { { KS_asciitilde, KS_O }, KS_Otilde }, 148 { { KS_acute, KS_U }, KS_Uacute }, 149 { { KS_asciicircum, KS_U }, KS_Ucircumflex }, 150 { { KS_grave, KS_U }, KS_Ugrave }, 151 { { KS_acute, KS_Y }, KS_Yacute }, 152 { { KS_acute, KS_a }, KS_aacute }, 153 { { KS_asciicircum, KS_a }, KS_acircumflex }, 154 { { KS_grave, KS_a }, KS_agrave }, 155 { { KS_asterisk, KS_a }, KS_aring }, 156 { { KS_asciitilde, KS_a }, KS_atilde }, 157 { { KS_cedilla, KS_c }, KS_ccedilla }, 158 { { KS_acute, KS_e }, KS_eacute }, 159 { { KS_asciicircum, KS_e }, KS_ecircumflex }, 160 { { KS_grave, KS_e }, KS_egrave }, 161 { { KS_acute, KS_i }, KS_iacute }, 162 { { KS_asciicircum, KS_i }, KS_icircumflex }, 163 { { KS_grave, KS_i }, KS_igrave }, 164 { { KS_asciitilde, KS_n }, KS_ntilde }, 165 { { KS_acute, KS_o }, KS_oacute }, 166 { { KS_asciicircum, KS_o }, KS_ocircumflex }, 167 { { KS_grave, KS_o }, KS_ograve }, 168 { { KS_asciitilde, KS_o }, KS_otilde }, 169 { { KS_acute, KS_u }, KS_uacute }, 170 { { KS_asciicircum, KS_u }, KS_ucircumflex }, 171 { { KS_grave, KS_u }, KS_ugrave }, 172 { { KS_acute, KS_y }, KS_yacute }, 173 { { KS_dead_caron, KS_space }, KS_L2_caron }, 174 { { KS_dead_caron, KS_S }, KS_L2_Scaron }, 175 { { KS_dead_caron, KS_Z }, KS_L2_Zcaron }, 176 { { KS_dead_caron, KS_s }, KS_L2_scaron }, 177 { { KS_dead_caron, KS_z }, KS_L2_zcaron } 178 }; 179 180 #define COMPOSE_SIZE nitems(compose_tab) 181 182 static int compose_tab_inorder = 0; 183 184 keysym_t ksym_upcase(keysym_t); 185 void fillmapentry(const keysym_t *, int, struct wscons_keymap *); 186 187 static inline int 188 compose_tab_cmp(struct compose_tab_s *i, struct compose_tab_s *j) 189 { 190 if (i->elem[0] == j->elem[0]) 191 return(i->elem[1] - j->elem[1]); 192 else 193 return(i->elem[0] - j->elem[0]); 194 } 195 196 keysym_t 197 wskbd_compose_value(keysym_t *compose_buf) 198 { 199 int i, j, r; 200 struct compose_tab_s v; 201 202 if (!compose_tab_inorder) { 203 /* Insertion sort. */ 204 for (i = 1; i < COMPOSE_SIZE; i++) { 205 v = compose_tab[i]; 206 /* find correct slot, moving others up */ 207 for (j = i; --j >= 0 && 208 compose_tab_cmp(&v, &compose_tab[j]) < 0;) 209 compose_tab[j + 1] = compose_tab[j]; 210 compose_tab[j + 1] = v; 211 } 212 compose_tab_inorder = 1; 213 } 214 215 for (j = 0, i = COMPOSE_SIZE; i != 0; i /= 2) { 216 if (compose_tab[j + i/2].elem[0] == compose_buf[0]) { 217 if (compose_tab[j + i/2].elem[1] == compose_buf[1]) 218 return(compose_tab[j + i/2].result); 219 r = compose_tab[j + i/2].elem[1] < compose_buf[1]; 220 } else 221 r = compose_tab[j + i/2].elem[0] < compose_buf[0]; 222 if (r) { 223 j += i/2 + 1; 224 i--; 225 } 226 } 227 228 return(KS_voidSymbol); 229 } 230 231 static const u_char latin1_to_upper[256] = { 232 /* 0 8 1 9 2 a 3 b 4 c 5 d 6 e 7 f */ 233 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0 */ 234 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 0 */ 235 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 1 */ 236 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 1 */ 237 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 2 */ 238 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 2 */ 239 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 3 */ 240 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 3 */ 241 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 4 */ 242 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 4 */ 243 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 5 */ 244 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 5 */ 245 0x00, 'A', 'B', 'C', 'D', 'E', 'F', 'G', /* 6 */ 246 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', /* 6 */ 247 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', /* 7 */ 248 'X', 'Y', 'Z', 0x00, 0x00, 0x00, 0x00, 0x00, /* 7 */ 249 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 8 */ 250 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 8 */ 251 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 9 */ 252 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* 9 */ 253 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* a */ 254 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* a */ 255 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* b */ 256 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* b */ 257 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* c */ 258 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* c */ 259 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* d */ 260 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, /* d */ 261 0xc0, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, /* e */ 262 0xc8, 0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce, 0xcf, /* e */ 263 0xd0, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6, 0x00, /* f */ 264 0xd8, 0xd9, 0xda, 0xdb, 0xdc, 0xdd, 0xde, 0x00, /* f */ 265 }; 266 267 keysym_t 268 ksym_upcase(keysym_t ksym) 269 { 270 if (ksym >= KS_f1 && ksym <= KS_f20) 271 return(KS_F1 - KS_f1 + ksym); 272 273 if (KS_GROUP(ksym) == KS_GROUP_Ascii && ksym <= 0xff && 274 latin1_to_upper[ksym] != 0x00) 275 return(latin1_to_upper[ksym]); 276 277 return(ksym); 278 } 279 280 void 281 fillmapentry(const keysym_t *kp, int len, struct wscons_keymap *mapentry) 282 { 283 switch (len) { 284 case 0: 285 mapentry->group1[0] = KS_voidSymbol; 286 mapentry->group1[1] = KS_voidSymbol; 287 mapentry->group2[0] = KS_voidSymbol; 288 mapentry->group2[1] = KS_voidSymbol; 289 break; 290 291 case 1: 292 mapentry->group1[0] = kp[0]; 293 mapentry->group1[1] = ksym_upcase(kp[0]); 294 mapentry->group2[0] = mapentry->group1[0]; 295 mapentry->group2[1] = mapentry->group1[1]; 296 break; 297 298 case 2: 299 mapentry->group1[0] = kp[0]; 300 mapentry->group1[1] = kp[1]; 301 mapentry->group2[0] = mapentry->group1[0]; 302 mapentry->group2[1] = mapentry->group1[1]; 303 break; 304 305 case 3: 306 mapentry->group1[0] = kp[0]; 307 mapentry->group1[1] = kp[1]; 308 mapentry->group2[0] = kp[2]; 309 mapentry->group2[1] = ksym_upcase(kp[2]); 310 break; 311 312 case 4: 313 mapentry->group1[0] = kp[0]; 314 mapentry->group1[1] = kp[1]; 315 mapentry->group2[0] = kp[2]; 316 mapentry->group2[1] = kp[3]; 317 break; 318 319 } 320 } 321 322 void 323 wskbd_get_mapentry(const struct wskbd_mapdata *mapdata, int kc, 324 struct wscons_keymap *mapentry) 325 { 326 kbd_t cur; 327 const keysym_t *kp; 328 const struct wscons_keydesc *mp; 329 int l; 330 keysym_t ksg; 331 332 mapentry->command = KS_voidSymbol; 333 mapentry->group1[0] = KS_voidSymbol; 334 mapentry->group1[1] = KS_voidSymbol; 335 mapentry->group2[0] = KS_voidSymbol; 336 mapentry->group2[1] = KS_voidSymbol; 337 338 for (cur = mapdata->layout & ~KB_HANDLEDBYWSKBD; cur != 0; ) { 339 mp = mapdata->keydesc; 340 while (mp->map_size > 0) { 341 if (mp->name == cur) 342 break; 343 mp++; 344 } 345 346 /* If map not found, return */ 347 if (mp->map_size <= 0) 348 return; 349 350 for (kp = mp->map; kp < mp->map + mp->map_size; kp++) { 351 ksg = KS_GROUP(*kp); 352 if (ksg == KS_GROUP_Keycode && 353 KS_VALUE(*kp) == kc) { 354 /* First skip keycode and possible command */ 355 kp++; 356 if (KS_GROUP(*kp) == KS_GROUP_Command || 357 *kp == KS_Cmd || *kp == KS_Cmd1 || *kp == KS_Cmd2) 358 mapentry->command = *kp++; 359 360 for (l = 0; kp + l < mp->map + mp->map_size; 361 l++) { 362 ksg = KS_GROUP(kp[l]); 363 if (ksg == KS_GROUP_Keycode) 364 break; 365 } 366 if (l > 4) 367 panic("wskbd_get_mapentry: %d(%d): bad entry", 368 mp->name, *kp); 369 fillmapentry(kp, l, mapentry); 370 return; 371 } 372 } 373 374 cur = mp->base; 375 } 376 } 377 378 struct wscons_keymap * 379 wskbd_init_keymap(int maplen) 380 { 381 struct wscons_keymap *map; 382 int i; 383 384 map = mallocarray(maplen, sizeof(*map), M_DEVBUF, M_WAITOK); 385 for (i = 0; i < maplen; i++) { 386 map[i].command = KS_voidSymbol; 387 map[i].group1[0] = KS_voidSymbol; 388 map[i].group1[1] = KS_voidSymbol; 389 map[i].group2[0] = KS_voidSymbol; 390 map[i].group2[1] = KS_voidSymbol; 391 } 392 return map; 393 } 394 395 int 396 wskbd_load_keymap(const struct wskbd_mapdata *mapdata, kbd_t layout, 397 struct wscons_keymap **map, int *maplen) 398 { 399 int i, s, kc, stack_ptr; 400 const keysym_t *kp; 401 const struct wscons_keydesc *mp, *stack[10]; 402 kbd_t cur; 403 keysym_t ksg; 404 405 for (cur = layout & ~KB_HANDLEDBYWSKBD, stack_ptr = 0; 406 cur != 0; stack_ptr++) { 407 mp = mapdata->keydesc; 408 while (mp->map_size > 0) { 409 if (cur == 0 || mp->name == cur) { 410 break; 411 } 412 mp++; 413 } 414 415 if (stack_ptr == nitems(stack)) 416 panic("wskbd_load_keymap: %d: recursion too deep", 417 mapdata->layout); 418 if (mp->map_size <= 0) 419 return(EINVAL); 420 421 stack[stack_ptr] = mp; 422 cur = mp->base; 423 } 424 425 for (i = 0, s = stack_ptr - 1; s >= 0; s--) { 426 mp = stack[s]; 427 for (kp = mp->map; kp < mp->map + mp->map_size; kp++) { 428 ksg = KS_GROUP(*kp); 429 if (ksg == KS_GROUP_Keycode && KS_VALUE(*kp) > i) 430 i = KS_VALUE(*kp); 431 } 432 } 433 434 *map = wskbd_init_keymap(i + 1); 435 *maplen = i + 1; 436 437 for (s = stack_ptr - 1; s >= 0; s--) { 438 mp = stack[s]; 439 for (kp = mp->map; kp < mp->map + mp->map_size; ) { 440 ksg = KS_GROUP(*kp); 441 if (ksg != KS_GROUP_Keycode) 442 panic("wskbd_load_keymap: %d(%d): bad entry", 443 mp->name, *kp); 444 445 kc = KS_VALUE(*kp); 446 kp++; 447 448 if (KS_GROUP(*kp) == KS_GROUP_Command || 449 *kp == KS_Cmd || *kp == KS_Cmd1 || *kp == KS_Cmd2) { 450 (*map)[kc].command = *kp; 451 kp++; 452 } 453 454 for (i = 0; kp + i < mp->map + mp->map_size; i++) { 455 ksg = KS_GROUP(kp[i]); 456 if (ksg == KS_GROUP_Keycode) 457 break; 458 } 459 460 if (i > 4) 461 panic("wskbd_load_keymap: %d(%d): bad entry", 462 mp->name, *kp); 463 464 fillmapentry(kp, i, &(*map)[kc]); 465 kp += i; 466 } 467 } 468 469 return(0); 470 } 471