Use strdup in glibc. Correct comment.
[kopensolaris-gnu/glibc.git] / intl / loadmsgcat.c
1 /* Load needed message catalogs.
2    Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
3
4    This file is part of the GNU C Library.  Its master source is NOT part of
5    the C library, however.
6
7    The GNU C Library is free software; you can redistribute it and/or
8    modify it under the terms of the GNU Library General Public License as
9    published by the Free Software Foundation; either version 2 of the
10    License, or (at your option) any later version.
11
12    The GNU C Library is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15    Library General Public License for more details.
16
17    You should have received a copy of the GNU Library General Public
18    License along with the GNU C Library; see the file COPYING.LIB.  If not,
19    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20    Boston, MA 02111-1307, USA.  */
21
22 #ifdef HAVE_CONFIG_H
23 # include <config.h>
24 #endif
25
26 #include <fcntl.h>
27 #include <sys/types.h>
28 #include <sys/stat.h>
29
30 #if defined STDC_HEADERS || defined _LIBC
31 # include <stdlib.h>
32 #endif
33
34 #if defined HAVE_UNISTD_H || defined _LIBC
35 # include <unistd.h>
36 #endif
37
38 #if (defined HAVE_MMAP && defined HAVE_MUNMAP) || defined _LIBC
39 # include <sys/mman.h>
40 #endif
41
42 #include "gettext.h"
43 #include "gettextP.h"
44
45 /* @@ end of prolog @@ */
46
47 #ifdef _LIBC
48 /* Rename the non ISO C functions.  This is required by the standard
49    because some ISO C functions will require linking with this object
50    file and the name space must not be polluted.  */
51 # define fstat  __fstat
52 # define open   __open
53 # define close  __close
54 # define read   __read
55 # define mmap   __mmap
56 # define munmap __munmap
57 #endif
58
59 /* We need a sign, whether a new catalog was loaded, which can be associated
60    with all translations.  This is important if the translations are
61    cached by one of GCC's features.  */
62 int _nl_msg_cat_cntr = 0;
63
64
65 /* Load the message catalogs specified by FILENAME.  If it is no valid
66    message catalog do nothing.  */
67 void
68 _nl_load_domain (domain_file)
69      struct loaded_l10nfile *domain_file;
70 {
71   int fd;
72   struct stat st;
73   struct mo_file_header *data = (struct mo_file_header *) -1;
74 #if (defined HAVE_MMAP && defined HAVE_MUNMAP && !defined DISALLOW_MMAP) \
75     || defined _LIBC
76   int use_mmap = 0;
77 #endif
78   struct loaded_domain *domain;
79
80   domain_file->decided = 1;
81   domain_file->data = NULL;
82
83   /* If the record does not represent a valid locale the FILENAME
84      might be NULL.  This can happen when according to the given
85      specification the locale file name is different for XPG and CEN
86      syntax.  */
87   if (domain_file->filename == NULL)
88     return;
89
90   /* Try to open the addressed file.  */
91   fd = open (domain_file->filename, O_RDONLY);
92   if (fd == -1)
93     return;
94
95   /* We must know about the size of the file.  */
96   if (fstat (fd, &st) != 0
97       && st.st_size < (off_t) sizeof (struct mo_file_header))
98     {
99       /* Something went wrong.  */
100       close (fd);
101       return;
102     }
103
104 #if (defined HAVE_MMAP && defined HAVE_MUNMAP && !defined DISALLOW_MMAP) \
105     || defined _LIBC
106   /* Now we are ready to load the file.  If mmap() is available we try
107      this first.  If not available or it failed we try to load it.  */
108   data = (struct mo_file_header *) mmap (NULL, st.st_size, PROT_READ,
109                                          MAP_PRIVATE, fd, 0);
110
111   if (data != (struct mo_file_header *) -1)
112     {
113       /* mmap() call was successful.  */
114       close (fd);
115       use_mmap = 1;
116     }
117 #endif
118
119   /* If the data is not yet available (i.e. mmap'ed) we try to load
120      it manually.  */
121   if (data == (struct mo_file_header *) -1)
122     {
123       off_t to_read;
124       char *read_ptr;
125
126       data = (struct mo_file_header *) malloc (st.st_size);
127       if (data == NULL)
128         return;
129
130       to_read = st.st_size;
131       read_ptr = (char *) data;
132       do
133         {
134           long int nb = (long int) read (fd, read_ptr, to_read);
135           if (nb == -1)
136             {
137               close (fd);
138               return;
139             }
140
141           read_ptr += nb;
142           to_read -= nb;
143         }
144       while (to_read > 0);
145
146       close (fd);
147     }
148
149   /* Using the magic number we can test whether it really is a message
150      catalog file.  */
151   if (data->magic != _MAGIC && data->magic != _MAGIC_SWAPPED)
152     {
153       /* The magic number is wrong: not a message catalog file.  */
154 #if (defined HAVE_MMAP && defined HAVE_MUNMAP && !defined DISALLOW_MMAP) \
155     || defined _LIBC
156       if (use_mmap)
157         munmap ((caddr_t) data, st.st_size);
158       else
159 #endif
160         free (data);
161       return;
162     }
163
164   domain_file->data
165     = (struct loaded_domain *) malloc (sizeof (struct loaded_domain));
166   if (domain_file->data == NULL)
167     return;
168
169   domain = (struct loaded_domain *) domain_file->data;
170   domain->data = (char *) data;
171   domain->must_swap = data->magic != _MAGIC;
172
173   /* Fill in the information about the available tables.  */
174   switch (W (domain->must_swap, data->revision))
175     {
176     case 0:
177       domain->nstrings = W (domain->must_swap, data->nstrings);
178       domain->orig_tab = (struct string_desc *)
179         ((char *) data + W (domain->must_swap, data->orig_tab_offset));
180       domain->trans_tab = (struct string_desc *)
181         ((char *) data + W (domain->must_swap, data->trans_tab_offset));
182       domain->hash_size = W (domain->must_swap, data->hash_tab_size);
183       domain->hash_tab = (nls_uint32 *)
184         ((char *) data + W (domain->must_swap, data->hash_tab_offset));
185       break;
186     default:
187       /* This is an illegal revision.  */
188 #if (defined HAVE_MMAP && defined HAVE_MUNMAP && !defined DISALLOW_MMAP) \
189     || defined _LIBC
190       if (use_mmap)
191         munmap ((caddr_t) data, st.st_size);
192       else
193 #endif
194         free (data);
195       free (domain);
196       domain_file->data = NULL;
197       return;
198     }
199
200   /* Show that one domain is changed.  This might make some cached
201      translations invalid.  */
202   ++_nl_msg_cat_cntr;
203 }