yacc.y revision 116502
1%{ 2/*- 3 * Copyright (c) 1993 4 * The Regents of the University of California. All rights reserved. 5 * 6 * This code is derived from software contributed to Berkeley by 7 * Paul Borman at Krystal Technologies. 8 * 9 * Redistribution and use in source and binary forms, with or without 10 * modification, are permitted provided that the following conditions 11 * are met: 12 * 1. Redistributions of source code must retain the above copyright 13 * notice, this list of conditions and the following disclaimer. 14 * 2. Redistributions in binary form must reproduce the above copyright 15 * notice, this list of conditions and the following disclaimer in the 16 * documentation and/or other materials provided with the distribution. 17 * 3. All advertising materials mentioning features or use of this software 18 * must display the following acknowledgement: 19 * This product includes software developed by the University of 20 * California, Berkeley and its contributors. 21 * 4. Neither the name of the University nor the names of its contributors 22 * may be used to endorse or promote products derived from this software 23 * without specific prior written permission. 24 * 25 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 26 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 27 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 28 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 29 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 30 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 31 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 32 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 33 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 34 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 35 * SUCH DAMAGE. 36 */ 37 38#ifndef lint 39#if 0 40static char sccsid[] = "@(#)yacc.y 8.1 (Berkeley) 6/6/93"; 41#endif /* 0 */ 42#endif /* not lint */ 43 44#include <sys/cdefs.h> 45__FBSDID("$FreeBSD: head/usr.bin/mklocale/yacc.y 116502 2003-06-17 19:58:33Z charnier $"); 46 47#include <arpa/inet.h> 48 49#include <ctype.h> 50#include <err.h> 51#include <rune.h> 52#include <stddef.h> 53#include <stdio.h> 54#include <stdlib.h> 55#include <string.h> 56#include <unistd.h> 57 58#include "ldef.h" 59#include "extern.h" 60 61static void *xmalloc(unsigned int sz); 62static unsigned long *xlalloc(unsigned int sz); 63void yyerror(const char *s); 64static unsigned long *xrelalloc(unsigned long *old, unsigned int sz); 65static void dump_tables(void); 66static void cleanout(void); 67 68const char *locale_file = "<stdout>"; 69 70rune_map maplower = { { 0 }, NULL }; 71rune_map mapupper = { { 0 }, NULL }; 72rune_map types = { { 0 }, NULL }; 73 74_RuneLocale new_locale = { "", "", NULL, NULL, 0, {}, {}, {}, 75 {0, NULL}, {0, NULL}, {0, NULL}, NULL, 0 }; 76 77void set_map(rune_map *, rune_list *, unsigned long); 78void set_digitmap(rune_map *, rune_list *); 79void add_map(rune_map *, rune_list *, unsigned long); 80static void usage(void); 81%} 82 83%union { 84 rune_t rune; 85 int i; 86 char *str; 87 88 rune_list *list; 89} 90 91%token <rune> RUNE 92%token LBRK 93%token RBRK 94%token THRU 95%token MAPLOWER 96%token MAPUPPER 97%token DIGITMAP 98%token <i> LIST 99%token <str> VARIABLE 100%token ENCODING 101%token INVALID 102%token <str> STRING 103 104%type <list> list 105%type <list> map 106 107 108%% 109 110locale : /* empty */ 111 | table 112 { dump_tables(); } 113 ; 114 115table : entry 116 | table entry 117 ; 118 119entry : ENCODING STRING 120 { if (strcmp($2, "NONE") && 121 strcmp($2, "UTF2") && 122 strcmp($2, "UTF-8") && 123 strcmp($2, "EUC") && 124 strcmp($2, "GBK") && 125 strcmp($2, "BIG5") && 126 strcmp($2, "MSKanji")) 127 warnx("ENCODING %s is not supported by libc", $2); 128 strncpy(new_locale.encoding, $2, sizeof(new_locale.encoding)); } 129 | VARIABLE 130 { new_locale.variable_len = strlen($1) + 1; 131 new_locale.variable = xmalloc(new_locale.variable_len); 132 strcpy((char *)new_locale.variable, $1); 133 } 134 | INVALID RUNE 135 { warnx("the INVALID keyword is deprecated"); 136 new_locale.invalid_rune = $2; 137 } 138 | LIST list 139 { set_map(&types, $2, $1); } 140 | MAPLOWER map 141 { set_map(&maplower, $2, 0); } 142 | MAPUPPER map 143 { set_map(&mapupper, $2, 0); } 144 | DIGITMAP map 145 { set_digitmap(&types, $2); } 146 ; 147 148list : RUNE 149 { 150 $$ = (rune_list *)xmalloc(sizeof(rune_list)); 151 $$->min = $1; 152 $$->max = $1; 153 $$->next = 0; 154 } 155 | RUNE THRU RUNE 156 { 157 $$ = (rune_list *)xmalloc(sizeof(rune_list)); 158 $$->min = $1; 159 $$->max = $3; 160 $$->next = 0; 161 } 162 | list RUNE 163 { 164 $$ = (rune_list *)xmalloc(sizeof(rune_list)); 165 $$->min = $2; 166 $$->max = $2; 167 $$->next = $1; 168 } 169 | list RUNE THRU RUNE 170 { 171 $$ = (rune_list *)xmalloc(sizeof(rune_list)); 172 $$->min = $2; 173 $$->max = $4; 174 $$->next = $1; 175 } 176 ; 177 178map : LBRK RUNE RUNE RBRK 179 { 180 $$ = (rune_list *)xmalloc(sizeof(rune_list)); 181 $$->min = $2; 182 $$->max = $2; 183 $$->map = $3; 184 $$->next = 0; 185 } 186 | map LBRK RUNE RUNE RBRK 187 { 188 $$ = (rune_list *)xmalloc(sizeof(rune_list)); 189 $$->min = $3; 190 $$->max = $3; 191 $$->map = $4; 192 $$->next = $1; 193 } 194 | LBRK RUNE THRU RUNE ':' RUNE RBRK 195 { 196 $$ = (rune_list *)xmalloc(sizeof(rune_list)); 197 $$->min = $2; 198 $$->max = $4; 199 $$->map = $6; 200 $$->next = 0; 201 } 202 | map LBRK RUNE THRU RUNE ':' RUNE RBRK 203 { 204 $$ = (rune_list *)xmalloc(sizeof(rune_list)); 205 $$->min = $3; 206 $$->max = $5; 207 $$->map = $7; 208 $$->next = $1; 209 } 210 ; 211%% 212 213int debug; 214FILE *fp; 215 216static void 217cleanout(void) 218{ 219 if (fp != NULL) 220 unlink(locale_file); 221} 222 223int 224main(int ac, char *av[]) 225{ 226 int x; 227 228 fp = stdout; 229 230 while ((x = getopt(ac, av, "do:")) != EOF) { 231 switch(x) { 232 case 'd': 233 debug = 1; 234 break; 235 case 'o': 236 locale_file = optarg; 237 if ((fp = fopen(locale_file, "w")) == 0) 238 err(1, "%s", locale_file); 239 atexit(cleanout); 240 break; 241 default: 242 usage(); 243 } 244 } 245 246 switch (ac - optind) { 247 case 0: 248 break; 249 case 1: 250 if (freopen(av[optind], "r", stdin) == 0) 251 err(1, "%s", av[optind]); 252 break; 253 default: 254 usage(); 255 } 256 for (x = 0; x < _CACHED_RUNES; ++x) { 257 mapupper.map[x] = x; 258 maplower.map[x] = x; 259 } 260 new_locale.invalid_rune = _INVALID_RUNE; 261 memcpy(new_locale.magic, _RUNE_MAGIC_1, sizeof(new_locale.magic)); 262 263 yyparse(); 264 265 return(0); 266} 267 268static void 269usage() 270{ 271 fprintf(stderr, "usage: mklocale [-d] [-o output] [source]\n"); 272 exit(1); 273} 274 275void 276yyerror(s) 277 const char *s; 278{ 279 fprintf(stderr, "%s\n", s); 280} 281 282static void * 283xmalloc(sz) 284 unsigned int sz; 285{ 286 void *r = malloc(sz); 287 if (!r) 288 errx(1, "xmalloc"); 289 return(r); 290} 291 292static unsigned long * 293xlalloc(sz) 294 unsigned int sz; 295{ 296 unsigned long *r = (unsigned long *)malloc(sz * sizeof(unsigned long)); 297 if (!r) 298 errx(1, "xlalloc"); 299 return(r); 300} 301 302static unsigned long * 303xrelalloc(old, sz) 304 unsigned long *old; 305 unsigned int sz; 306{ 307 unsigned long *r = (unsigned long *)realloc((char *)old, 308 sz * sizeof(unsigned long)); 309 if (!r) 310 errx(1, "xrelalloc"); 311 return(r); 312} 313 314void 315set_map(map, list, flag) 316 rune_map *map; 317 rune_list *list; 318 unsigned long flag; 319{ 320 while (list) { 321 rune_list *nlist = list->next; 322 add_map(map, list, flag); 323 list = nlist; 324 } 325} 326 327void 328set_digitmap(map, list) 329 rune_map *map; 330 rune_list *list; 331{ 332 rune_t i; 333 334 while (list) { 335 rune_list *nlist = list->next; 336 for (i = list->min; i <= list->max; ++i) { 337 if (list->map + (i - list->min)) { 338 rune_list *tmp = (rune_list *)xmalloc(sizeof(rune_list)); 339 tmp->min = i; 340 tmp->max = i; 341 add_map(map, tmp, list->map + (i - list->min)); 342 } 343 } 344 free(list); 345 list = nlist; 346 } 347} 348 349void 350add_map(map, list, flag) 351 rune_map *map; 352 rune_list *list; 353 unsigned long flag; 354{ 355 rune_t i; 356 rune_list *lr = 0; 357 rune_list *r; 358 rune_t run; 359 360 while (list->min < _CACHED_RUNES && list->min <= list->max) { 361 if (flag) 362 map->map[list->min++] |= flag; 363 else 364 map->map[list->min++] = list->map++; 365 } 366 367 if (list->min > list->max) { 368 free(list); 369 return; 370 } 371 372 run = list->max - list->min + 1; 373 374 if (!(r = map->root) || (list->max < r->min - 1) 375 || (!flag && list->max == r->min - 1)) { 376 if (flag) { 377 list->types = xlalloc(run); 378 for (i = 0; i < run; ++i) 379 list->types[i] = flag; 380 } 381 list->next = map->root; 382 map->root = list; 383 return; 384 } 385 386 for (r = map->root; r && r->max + 1 < list->min; r = r->next) 387 lr = r; 388 389 if (!r) { 390 /* 391 * We are off the end. 392 */ 393 if (flag) { 394 list->types = xlalloc(run); 395 for (i = 0; i < run; ++i) 396 list->types[i] = flag; 397 } 398 list->next = 0; 399 lr->next = list; 400 return; 401 } 402 403 if (list->max < r->min - 1) { 404 /* 405 * We come before this range and we do not intersect it. 406 * We are not before the root node, it was checked before the loop 407 */ 408 if (flag) { 409 list->types = xlalloc(run); 410 for (i = 0; i < run; ++i) 411 list->types[i] = flag; 412 } 413 list->next = lr->next; 414 lr->next = list; 415 return; 416 } 417 418 /* 419 * At this point we have found that we at least intersect with 420 * the range pointed to by `r', we might intersect with one or 421 * more ranges beyond `r' as well. 422 */ 423 424 if (!flag && list->map - list->min != r->map - r->min) { 425 /* 426 * There are only two cases when we are doing case maps and 427 * our maps needn't have the same offset. When we are adjoining 428 * but not intersecting. 429 */ 430 if (list->max + 1 == r->min) { 431 lr->next = list; 432 list->next = r; 433 return; 434 } 435 if (list->min - 1 == r->max) { 436 list->next = r->next; 437 r->next = list; 438 return; 439 } 440 errx(1, "error: conflicting map entries"); 441 } 442 443 if (list->min >= r->min && list->max <= r->max) { 444 /* 445 * Subset case. 446 */ 447 448 if (flag) { 449 for (i = list->min; i <= list->max; ++i) 450 r->types[i - r->min] |= flag; 451 } 452 free(list); 453 return; 454 } 455 if (list->min <= r->min && list->max >= r->max) { 456 /* 457 * Superset case. Make him big enough to hold us. 458 * We might need to merge with the guy after him. 459 */ 460 if (flag) { 461 list->types = xlalloc(list->max - list->min + 1); 462 463 for (i = list->min; i <= list->max; ++i) 464 list->types[i - list->min] = flag; 465 466 for (i = r->min; i <= r->max; ++i) 467 list->types[i - list->min] |= r->types[i - r->min]; 468 469 free(r->types); 470 r->types = list->types; 471 } else { 472 r->map = list->map; 473 } 474 r->min = list->min; 475 r->max = list->max; 476 free(list); 477 } else if (list->min < r->min) { 478 /* 479 * Our tail intersects his head. 480 */ 481 if (flag) { 482 list->types = xlalloc(r->max - list->min + 1); 483 484 for (i = r->min; i <= r->max; ++i) 485 list->types[i - list->min] = r->types[i - r->min]; 486 487 for (i = list->min; i < r->min; ++i) 488 list->types[i - list->min] = flag; 489 490 for (i = r->min; i <= list->max; ++i) 491 list->types[i - list->min] |= flag; 492 493 free(r->types); 494 r->types = list->types; 495 } else { 496 r->map = list->map; 497 } 498 r->min = list->min; 499 free(list); 500 return; 501 } else { 502 /* 503 * Our head intersects his tail. 504 * We might need to merge with the guy after him. 505 */ 506 if (flag) { 507 r->types = xrelalloc(r->types, list->max - r->min + 1); 508 509 for (i = list->min; i <= r->max; ++i) 510 r->types[i - r->min] |= flag; 511 512 for (i = r->max+1; i <= list->max; ++i) 513 r->types[i - r->min] = flag; 514 } 515 r->max = list->max; 516 free(list); 517 } 518 519 /* 520 * Okay, check to see if we grew into the next guy(s) 521 */ 522 while ((lr = r->next) && r->max >= lr->min) { 523 if (flag) { 524 if (r->max >= lr->max) { 525 /* 526 * Good, we consumed all of him. 527 */ 528 for (i = lr->min; i <= lr->max; ++i) 529 r->types[i - r->min] |= lr->types[i - lr->min]; 530 } else { 531 /* 532 * "append" him on to the end of us. 533 */ 534 r->types = xrelalloc(r->types, lr->max - r->min + 1); 535 536 for (i = lr->min; i <= r->max; ++i) 537 r->types[i - r->min] |= lr->types[i - lr->min]; 538 539 for (i = r->max+1; i <= lr->max; ++i) 540 r->types[i - r->min] = lr->types[i - lr->min]; 541 542 r->max = lr->max; 543 } 544 } else { 545 if (lr->max > r->max) 546 r->max = lr->max; 547 } 548 549 r->next = lr->next; 550 551 if (flag) 552 free(lr->types); 553 free(lr); 554 } 555} 556 557static void 558dump_tables() 559{ 560 int x, first_d, curr_d; 561 rune_list *list; 562 563 /* 564 * See if we can compress some of the istype arrays 565 */ 566 for(list = types.root; list; list = list->next) { 567 list->map = list->types[0]; 568 for (x = 1; x < list->max - list->min + 1; ++x) { 569 if ((rune_t)list->types[x] != list->map) { 570 list->map = 0; 571 break; 572 } 573 } 574 } 575 576 first_d = curr_d = -1; 577 for (x = 0; x < _CACHED_RUNES; ++x) { 578 unsigned long r = types.map[x]; 579 580 if (r & _CTYPE_D) { 581 if (first_d < 0) 582 first_d = curr_d = x; 583 else if (x != curr_d + 1) 584 errx(1, "error: DIGIT range is not contiguous"); 585 else if (x - first_d > 9) 586 errx(1, "error: DIGIT range is too big"); 587 else 588 curr_d++; 589 if (!(r & _CTYPE_X)) 590 errx(1, 591 "error: DIGIT range is not a subset of XDIGIT range"); 592 } 593 } 594 if (first_d < 0) 595 errx(1, "error: no DIGIT range defined in the single byte area"); 596 else if (curr_d - first_d < 9) 597 errx(1, "error: DIGIT range is too small in the single byte area"); 598 599 new_locale.invalid_rune = htonl(new_locale.invalid_rune); 600 601 /* 602 * Fill in our tables. Do this in network order so that 603 * diverse machines have a chance of sharing data. 604 * (Machines like Crays cannot share with little machines due to 605 * word size. Sigh. We tried.) 606 */ 607 for (x = 0; x < _CACHED_RUNES; ++x) { 608 new_locale.runetype[x] = htonl(types.map[x]); 609 new_locale.maplower[x] = htonl(maplower.map[x]); 610 new_locale.mapupper[x] = htonl(mapupper.map[x]); 611 } 612 613 /* 614 * Count up how many ranges we will need for each of the extents. 615 */ 616 list = types.root; 617 618 while (list) { 619 new_locale.runetype_ext.nranges++; 620 list = list->next; 621 } 622 new_locale.runetype_ext.nranges = htonl(new_locale.runetype_ext.nranges); 623 624 list = maplower.root; 625 626 while (list) { 627 new_locale.maplower_ext.nranges++; 628 list = list->next; 629 } 630 new_locale.maplower_ext.nranges = htonl(new_locale.maplower_ext.nranges); 631 632 list = mapupper.root; 633 634 while (list) { 635 new_locale.mapupper_ext.nranges++; 636 list = list->next; 637 } 638 new_locale.mapupper_ext.nranges = htonl(new_locale.mapupper_ext.nranges); 639 640 new_locale.variable_len = htonl(new_locale.variable_len); 641 642 /* 643 * Okay, we are now ready to write the new locale file. 644 */ 645 646 /* 647 * PART 1: The _RuneLocale structure 648 */ 649 if (fwrite((char *)&new_locale, sizeof(new_locale), 1, fp) != 1) { 650 perror(locale_file); 651 exit(1); 652 } 653 /* 654 * PART 2: The runetype_ext structures (not the actual tables) 655 */ 656 list = types.root; 657 658 while (list) { 659 _RuneEntry re; 660 661 re.min = htonl(list->min); 662 re.max = htonl(list->max); 663 re.map = htonl(list->map); 664 665 if (fwrite((char *)&re, sizeof(re), 1, fp) != 1) { 666 perror(locale_file); 667 exit(1); 668 } 669 670 list = list->next; 671 } 672 /* 673 * PART 3: The maplower_ext structures 674 */ 675 list = maplower.root; 676 677 while (list) { 678 _RuneEntry re; 679 680 re.min = htonl(list->min); 681 re.max = htonl(list->max); 682 re.map = htonl(list->map); 683 684 if (fwrite((char *)&re, sizeof(re), 1, fp) != 1) { 685 perror(locale_file); 686 exit(1); 687 } 688 689 list = list->next; 690 } 691 /* 692 * PART 4: The mapupper_ext structures 693 */ 694 list = mapupper.root; 695 696 while (list) { 697 _RuneEntry re; 698 699 re.min = htonl(list->min); 700 re.max = htonl(list->max); 701 re.map = htonl(list->map); 702 703 if (fwrite((char *)&re, sizeof(re), 1, fp) != 1) { 704 perror(locale_file); 705 exit(1); 706 } 707 708 list = list->next; 709 } 710 /* 711 * PART 5: The runetype_ext tables 712 */ 713 list = types.root; 714 715 while (list) { 716 for (x = 0; x < list->max - list->min + 1; ++x) 717 list->types[x] = htonl(list->types[x]); 718 719 if (!list->map) { 720 if (fwrite((char *)list->types, 721 (list->max - list->min + 1) * sizeof(unsigned long), 722 1, fp) != 1) { 723 perror(locale_file); 724 exit(1); 725 } 726 } 727 list = list->next; 728 } 729 /* 730 * PART 5: And finally the variable data 731 */ 732 if (fwrite((char *)new_locale.variable, 733 ntohl(new_locale.variable_len), 1, fp) != 1) { 734 perror(locale_file); 735 exit(1); 736 } 737 if (fclose(fp) != 0) { 738 perror(locale_file); 739 exit(1); 740 } 741 fp = NULL; 742 743 if (!debug) 744 return; 745 746 if (new_locale.encoding[0]) 747 fprintf(stderr, "ENCODING %s\n", new_locale.encoding); 748 if (new_locale.variable) 749 fprintf(stderr, "VARIABLE %s\n", (char *)new_locale.variable); 750 751 fprintf(stderr, "\nMAPLOWER:\n\n"); 752 753 for (x = 0; x < _CACHED_RUNES; ++x) { 754 if (isprint(maplower.map[x])) 755 fprintf(stderr, " '%c'", (int)maplower.map[x]); 756 else if (maplower.map[x]) 757 fprintf(stderr, "%04lx", maplower.map[x]); 758 else 759 fprintf(stderr, "%4x", 0); 760 if ((x & 0xf) == 0xf) 761 fprintf(stderr, "\n"); 762 else 763 fprintf(stderr, " "); 764 } 765 fprintf(stderr, "\n"); 766 767 for (list = maplower.root; list; list = list->next) 768 fprintf(stderr, "\t%04x - %04x : %04x\n", list->min, list->max, list->map); 769 770 fprintf(stderr, "\nMAPUPPER:\n\n"); 771 772 for (x = 0; x < _CACHED_RUNES; ++x) { 773 if (isprint(mapupper.map[x])) 774 fprintf(stderr, " '%c'", (int)mapupper.map[x]); 775 else if (mapupper.map[x]) 776 fprintf(stderr, "%04lx", mapupper.map[x]); 777 else 778 fprintf(stderr, "%4x", 0); 779 if ((x & 0xf) == 0xf) 780 fprintf(stderr, "\n"); 781 else 782 fprintf(stderr, " "); 783 } 784 fprintf(stderr, "\n"); 785 786 for (list = mapupper.root; list; list = list->next) 787 fprintf(stderr, "\t%04x - %04x : %04x\n", list->min, list->max, list->map); 788 789 790 fprintf(stderr, "\nTYPES:\n\n"); 791 792 for (x = 0; x < _CACHED_RUNES; ++x) { 793 unsigned long r = types.map[x]; 794 795 if (r) { 796 if (isprint(x)) 797 fprintf(stderr, " '%c': %2d", x, (int)(r & 0xff)); 798 else 799 fprintf(stderr, "%04x: %2d", x, (int)(r & 0xff)); 800 801 fprintf(stderr, " %4s", (r & _CTYPE_A) ? "alph" : ""); 802 fprintf(stderr, " %4s", (r & _CTYPE_C) ? "ctrl" : ""); 803 fprintf(stderr, " %4s", (r & _CTYPE_D) ? "dig" : ""); 804 fprintf(stderr, " %4s", (r & _CTYPE_G) ? "graf" : ""); 805 fprintf(stderr, " %4s", (r & _CTYPE_L) ? "low" : ""); 806 fprintf(stderr, " %4s", (r & _CTYPE_P) ? "punc" : ""); 807 fprintf(stderr, " %4s", (r & _CTYPE_S) ? "spac" : ""); 808 fprintf(stderr, " %4s", (r & _CTYPE_U) ? "upp" : ""); 809 fprintf(stderr, " %4s", (r & _CTYPE_X) ? "xdig" : ""); 810 fprintf(stderr, " %4s", (r & _CTYPE_B) ? "blnk" : ""); 811 fprintf(stderr, " %4s", (r & _CTYPE_R) ? "prnt" : ""); 812 fprintf(stderr, " %4s", (r & _CTYPE_I) ? "ideo" : ""); 813 fprintf(stderr, " %4s", (r & _CTYPE_T) ? "spec" : ""); 814 fprintf(stderr, " %4s", (r & _CTYPE_Q) ? "phon" : ""); 815 fprintf(stderr, "\n"); 816 } 817 } 818 819 for (list = types.root; list; list = list->next) { 820 if (list->map && list->min + 3 < list->max) { 821 unsigned long r = list->map; 822 823 fprintf(stderr, "%04lx: %2d", 824 (unsigned long)list->min, (int)(r & 0xff)); 825 826 fprintf(stderr, " %4s", (r & _CTYPE_A) ? "alph" : ""); 827 fprintf(stderr, " %4s", (r & _CTYPE_C) ? "ctrl" : ""); 828 fprintf(stderr, " %4s", (r & _CTYPE_D) ? "dig" : ""); 829 fprintf(stderr, " %4s", (r & _CTYPE_G) ? "graf" : ""); 830 fprintf(stderr, " %4s", (r & _CTYPE_L) ? "low" : ""); 831 fprintf(stderr, " %4s", (r & _CTYPE_P) ? "punc" : ""); 832 fprintf(stderr, " %4s", (r & _CTYPE_S) ? "spac" : ""); 833 fprintf(stderr, " %4s", (r & _CTYPE_U) ? "upp" : ""); 834 fprintf(stderr, " %4s", (r & _CTYPE_X) ? "xdig" : ""); 835 fprintf(stderr, " %4s", (r & _CTYPE_B) ? "blnk" : ""); 836 fprintf(stderr, " %4s", (r & _CTYPE_R) ? "prnt" : ""); 837 fprintf(stderr, " %4s", (r & _CTYPE_I) ? "ideo" : ""); 838 fprintf(stderr, " %4s", (r & _CTYPE_T) ? "spec" : ""); 839 fprintf(stderr, " %4s", (r & _CTYPE_Q) ? "phon" : ""); 840 fprintf(stderr, "\n...\n"); 841 842 fprintf(stderr, "%04lx: %2d", 843 (unsigned long)list->max, (int)(r & 0xff)); 844 845 fprintf(stderr, " %4s", (r & _CTYPE_A) ? "alph" : ""); 846 fprintf(stderr, " %4s", (r & _CTYPE_C) ? "ctrl" : ""); 847 fprintf(stderr, " %4s", (r & _CTYPE_D) ? "dig" : ""); 848 fprintf(stderr, " %4s", (r & _CTYPE_G) ? "graf" : ""); 849 fprintf(stderr, " %4s", (r & _CTYPE_L) ? "low" : ""); 850 fprintf(stderr, " %4s", (r & _CTYPE_P) ? "punc" : ""); 851 fprintf(stderr, " %4s", (r & _CTYPE_S) ? "spac" : ""); 852 fprintf(stderr, " %4s", (r & _CTYPE_U) ? "upp" : ""); 853 fprintf(stderr, " %4s", (r & _CTYPE_X) ? "xdig" : ""); 854 fprintf(stderr, " %4s", (r & _CTYPE_B) ? "blnk" : ""); 855 fprintf(stderr, " %4s", (r & _CTYPE_R) ? "prnt" : ""); 856 fprintf(stderr, " %4s", (r & _CTYPE_I) ? "ideo" : ""); 857 fprintf(stderr, " %4s", (r & _CTYPE_T) ? "spec" : ""); 858 fprintf(stderr, " %4s", (r & _CTYPE_Q) ? "phon" : ""); 859 fprintf(stderr, "\n"); 860 } else 861 for (x = list->min; x <= list->max; ++x) { 862 unsigned long r = ntohl(list->types[x - list->min]); 863 864 if (r) { 865 fprintf(stderr, "%04x: %2d", x, (int)(r & 0xff)); 866 867 fprintf(stderr, " %4s", (r & _CTYPE_A) ? "alph" : ""); 868 fprintf(stderr, " %4s", (r & _CTYPE_C) ? "ctrl" : ""); 869 fprintf(stderr, " %4s", (r & _CTYPE_D) ? "dig" : ""); 870 fprintf(stderr, " %4s", (r & _CTYPE_G) ? "graf" : ""); 871 fprintf(stderr, " %4s", (r & _CTYPE_L) ? "low" : ""); 872 fprintf(stderr, " %4s", (r & _CTYPE_P) ? "punc" : ""); 873 fprintf(stderr, " %4s", (r & _CTYPE_S) ? "spac" : ""); 874 fprintf(stderr, " %4s", (r & _CTYPE_U) ? "upp" : ""); 875 fprintf(stderr, " %4s", (r & _CTYPE_X) ? "xdig" : ""); 876 fprintf(stderr, " %4s", (r & _CTYPE_B) ? "blnk" : ""); 877 fprintf(stderr, " %4s", (r & _CTYPE_R) ? "prnt" : ""); 878 fprintf(stderr, " %4s", (r & _CTYPE_I) ? "ideo" : ""); 879 fprintf(stderr, " %4s", (r & _CTYPE_T) ? "spec" : ""); 880 fprintf(stderr, " %4s", (r & _CTYPE_Q) ? "phon" : ""); 881 fprintf(stderr, "\n"); 882 } 883 } 884 } 885} 886