Updated from /gd4/gnu/gettext-0.9.12/intl/loadmsgcat.c
[kopensolaris-gnu/glibc.git] / intl / bindtextdom.c
1 /* bindtextdom.c -- implementation of the bindtextdomain(3) function
2    Copyright (C) 1995 Free Software Foundation, Inc.
3
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2, or (at your option)
7 any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
17
18 #ifdef HAVE_CONFIG_H
19 # include <config.h>
20 #endif
21
22 #if defined STDC_HEADERS || defined _LIBC
23 # include <stdlib.h>
24 #else
25 # ifdef HAVE_MALLOC_H
26 #  include <malloc.h>
27 # else
28 void free ();
29 # endif
30 #endif
31
32 #if defined HAVE_STRING_H || defined _LIBC
33 # include <string.h>
34 #else
35 # include <strings.h>
36 #endif
37
38 #ifdef _LIBC
39 # include <libintl.h>
40 #else
41 # include "libgettext.h"
42 #endif
43 #include "gettext.h"
44 #include "gettextP.h"
45
46 /* @@ end of prolog @@ */
47
48 /* Contains the default location of the message catalogs.  */
49 extern const char _nl_default_dirname[];
50
51 /* List with bindings of specific domains.  */
52 extern struct binding *_nl_domain_bindings;
53
54
55 /* Names for the libintl functions are a problem.  They must not clash
56    with existing names and they should follow ANSI C.  But this source
57    code is also used in GNU C Library where the names have a __
58    prefix.  So we have to make a difference here.  */
59 #ifdef _LIBC
60 # define BINDTEXTDOMAIN __bindtextdomain
61 #else
62 # define BINDTEXTDOMAIN bindtextdomain__
63 #endif
64
65 /* Specify that the DOMAINNAME message catalog will be found
66    in DIRNAME rather than in the system locale data base.  */
67 char *
68 BINDTEXTDOMAIN (domainname, dirname)
69      const char *domainname;
70      const char *dirname;
71 {
72   struct binding *binding;
73
74   /* Some sanity checks.  */
75   if (domainname == NULL || domainname[0] == '\0')
76     return NULL;
77
78   for (binding = _nl_domain_bindings; binding != NULL; binding = binding->next)
79     {
80       int compare = strcmp (domainname, binding->domainname);
81       if (compare == 0)
82         /* We found it!  */
83         break;
84       if (compare < 0)
85         {
86           /* It is not in the list.  */
87           binding = NULL;
88           break;
89         }
90     }
91
92   if (dirname == NULL)
93     /* The current binding has be to returned.  */
94     return binding == NULL ? (char *) _nl_default_dirname : binding->dirname;
95
96   if (binding != NULL)
97     {
98       /* The domain is already bound.  Replace the old binding.  */
99       char *new_dirname;
100
101       if (strcmp (dirname, _nl_default_dirname) == 0)
102         new_dirname = (char *) _nl_default_dirname;
103       else
104         {
105           size_t len = strlen (dirname) + 1;
106           new_dirname = (char *) malloc (len);
107           if (new_dirname == NULL)
108             return NULL;
109
110           memcpy (new_dirname, dirname, len);
111         }
112
113       if (strcmp (binding->dirname, _nl_default_dirname) != 0)
114         free (binding->dirname);
115
116       binding->dirname = new_dirname;
117     }
118   else
119     {
120       /* We have to create a new binding.  */
121       size_t len;
122       struct binding *new_binding =
123         (struct binding *) malloc (sizeof (*new_binding));
124
125       if (new_binding == NULL)
126         return NULL;
127
128       len = strlen (domainname) + 1;
129       new_binding->domainname = (char *) malloc (len);
130       if (new_binding->domainname == NULL)
131           return NULL;
132       memcpy (new_binding->domainname, domainname, len);
133
134       if (strcmp (dirname, _nl_default_dirname) == 0)
135         new_binding->dirname = (char *) _nl_default_dirname;
136       else
137         {
138           len = strlen (dirname) + 1;
139           new_binding->dirname = (char *) malloc (len);
140           if (new_binding->dirname == NULL)
141             return NULL;
142           memcpy (new_binding->dirname, dirname, len);
143         }
144
145       /* Now enqueue it.  */
146       if (_nl_domain_bindings == NULL
147           || strcmp (domainname, _nl_domain_bindings->domainname) < 0)
148         {
149           new_binding->next = _nl_domain_bindings;
150           _nl_domain_bindings = new_binding;
151         }
152       else
153         {
154           binding = _nl_domain_bindings;
155           while (binding->next != NULL
156                  && strcmp (domainname, binding->next->domainname) > 0)
157             binding = binding->next;
158
159           new_binding->next = binding->next;
160           binding->next = new_binding;
161         }
162
163       binding = new_binding;
164     }
165
166   return binding->dirname;
167 }
168
169 #ifdef _LIBC
170 /* Alias for function name in GNU C Library.  */
171 weak_alias (__bindtextdomain, bindtextdomain);
172 #endif