home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gettext-0.10.24-bin.lha / share / gettext / intl / finddomain.c < prev    next >
C/C++ Source or Header  |  1996-10-12  |  6KB  |  217 lines

  1. /* finddomain.c -- handle list of needed message catalogs
  2.    Copyright (C) 1995, 1996 Free Software Foundation, Inc.
  3.    Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, 1995.
  4.  
  5. This program is free software; you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation; either version 2, or (at your option)
  8. any later version.
  9.  
  10. This program is distributed in the hope that it will be useful,
  11. but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. GNU General Public License for more details.
  14.  
  15. You should have received a copy of the GNU General Public License
  16. along with this program; if not, write to the Free Software
  17. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  18.  
  19. #ifdef HAVE_CONFIG_H
  20. # include <config.h>
  21. #endif
  22.  
  23. #include <ctype.h>
  24. #include <errno.h>
  25. #include <stdio.h>
  26. #include <sys/types.h>
  27.  
  28. #if defined STDC_HEADERS || defined _LIBC
  29. # include <stdlib.h>
  30. #else
  31. # ifdef HAVE_MALLOC_H
  32. #  include <malloc.h>
  33. # else
  34. void free ();
  35. # endif
  36. #endif
  37.  
  38. #if defined HAVE_STRING_H || defined _LIBC
  39. # include <string.h>
  40. #else
  41. # include <strings.h>
  42. #endif
  43. #if !HAVE_STRCHR && !defined _LIBC
  44. # ifndef strchr
  45. #  define strchr index
  46. # endif
  47. #endif
  48.  
  49. #if defined HAVE_UNISTD_H || defined _LIBC
  50. # include <unistd.h>
  51. #endif
  52.  
  53. #include "gettext.h"
  54. #include "gettextP.h"
  55. #ifdef _LIBC
  56. # include <libintl.h>
  57. #else
  58. # include "libgettext.h"
  59. #endif
  60.  
  61. /* @@ end of prolog @@ */
  62.  
  63. #ifdef _LIBC
  64. /* Rename the non ANSI C functions.  This is required by the standard
  65.    because some ANSI C functions will require linking with this object
  66.    file and the name space must not be polluted.  */
  67. # define stpcpy(dest, src) __stpcpy(dest, src)
  68. #else
  69. # ifndef HAVE_STPCPY
  70. static char *stpcpy PARAMS ((char *dest, const char *src));
  71. # endif
  72. #endif
  73.  
  74. /* List of already loaded domains.  */
  75. static struct loaded_l10nfile *_nl_loaded_domains;
  76.  
  77.  
  78. /* Return a data structure describing the message catalog described by
  79.    the DOMAINNAME and CATEGORY parameters with respect to the currently
  80.    established bindings.  */
  81. struct loaded_l10nfile *
  82. _nl_find_domain (dirname, locale, domainname)
  83.      const char *dirname;
  84.      char *locale;
  85.      const char *domainname;
  86. {
  87.   struct loaded_l10nfile *retval;
  88.   const char *language;
  89.   const char *modifier;
  90.   const char *territory;
  91.   const char *codeset;
  92.   const char *normalized_codeset;
  93.   const char *special;
  94.   const char *sponsor;
  95.   const char *revision;
  96.   const char *alias_value;
  97.   int mask;
  98.  
  99.   /* LOCALE can consist of up to four recognized parts for the XPG syntax:
  100.  
  101.         language[_territory[.codeset]][@modifier]
  102.  
  103.      and six parts for the CEN syntax:
  104.  
  105.     language[_territory][+audience][+special][,sponsor][_revision]
  106.  
  107.      Beside the first all of them are allowed to be missing.  If the
  108.      full specified locale is not found, the less specific one are
  109.      looked for.  The various part will be stripped of according to
  110.      the following order:
  111.         (1) revision
  112.         (2) sponsor
  113.         (3) special
  114.         (4) codeset
  115.         (5) normalized codeset
  116.         (6) territory
  117.         (7) audience/modifier
  118.    */
  119.  
  120.   /* If we have already tested for this locale entry there has to
  121.      be one data set in the list of loaded domains.  */
  122.   retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
  123.                    strlen (dirname) + 1, 0, locale, NULL, NULL,
  124.                    NULL, NULL, NULL, NULL, NULL, domainname, 0);
  125.   if (retval != NULL)
  126.     {
  127.       /* We know something about this locale.  */
  128.       int cnt;
  129.  
  130.       if (retval->decided == 0)
  131.     _nl_load_domain (retval);
  132.  
  133.       if (retval->data != NULL)
  134.     return retval;
  135.  
  136.       for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
  137.     {
  138.       if (retval->successor[cnt]->decided == 0)
  139.         _nl_load_domain (retval->successor[cnt]);
  140.  
  141.       if (retval->successor[cnt]->data != NULL)
  142.         break;
  143.     }
  144.       return cnt >= 0 ? retval : NULL;
  145.       /* NOTREACHED */
  146.     }
  147.  
  148.   /* See whether the locale value is an alias.  If yes its value
  149.      *overwrites* the alias name.  No test for the original value is
  150.      done.  */
  151.   alias_value = _nl_expand_alias (locale);
  152.   if (alias_value != NULL)
  153.     {
  154.       size_t len = strlen (alias_value) + 1;
  155.       locale = (char *) malloc (len);
  156.       if (locale == NULL)
  157.     return NULL;
  158.  
  159.       memcpy (locale, alias_value, len);
  160.     }
  161.  
  162.   /* Now we determine the single parts of the locale name.  First
  163.      look for the language.  Termination symbols are `_' and `@' if
  164.      we use XPG4 style, and `_', `+', and `,' if we use CEN syntax.  */
  165.   mask = _nl_explode_name (locale, &language, &modifier, &territory,
  166.                &codeset, &normalized_codeset, &special,
  167.                &sponsor, &revision);
  168.  
  169.   /* Create all possible locale entries which might be interested in
  170.      generalzation.  */
  171.   retval = _nl_make_l10nflist (&_nl_loaded_domains, dirname,
  172.                    strlen (dirname) + 1, mask, language, territory,
  173.                    codeset, normalized_codeset, modifier, special,
  174.                    sponsor, revision, domainname, 1);
  175.   if (retval == NULL)
  176.     /* This means we are out of core.  */
  177.     return NULL;
  178.  
  179.   if (retval->decided == 0)
  180.     _nl_load_domain (retval);
  181.   if (retval->data == NULL)
  182.     {
  183.       int cnt;
  184.       for (cnt = 0; retval->successor[cnt] != NULL; ++cnt)
  185.     {
  186.       if (retval->successor[cnt]->decided == 0)
  187.         _nl_load_domain (retval->successor[cnt]);
  188.       if (retval->successor[cnt]->data != NULL)
  189.         break;
  190.     }
  191.     }
  192.  
  193.   /* The room for an alias was dynamically allocated.  Free it now.  */
  194.   if (alias_value != NULL)
  195.     free (locale);
  196.  
  197.   return retval;
  198. }
  199.  
  200. /* @@ begin of epilog @@ */
  201.  
  202. /* We don't want libintl.a to depend on any other library.  So we
  203.    avoid the non-standard function stpcpy.  In GNU C Library this
  204.    function is available, though.  Also allow the symbol HAVE_STPCPY
  205.    to be defined.  */
  206. #if !_LIBC && !HAVE_STPCPY
  207. static char *
  208. stpcpy (dest, src)
  209.      char *dest;
  210.      const char *src;
  211. {
  212.   while ((*dest++ = *src++) != '\0')
  213.     /* Do nothing. */ ;
  214.   return dest - 1;
  215. }
  216. #endif
  217.