usr.bin/mklocale/yacc.y

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