1 /* Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper, <drepper@gnu.org>.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
10 The GNU C Library 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 GNU
13 Library General Public License for more details.
15 You should have received a copy of the GNU Library General Public
16 License along with the GNU C Library; see the file COPYING.LIB. If not,
17 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA. */
28 #include "catgetsinfo.h"
31 /* Open the catalog and return a descriptor for the catalog. */
33 catopen (const char *cat_name
, int flag
)
36 const char *env_var
= NULL
;
37 const char *nlspath
= NULL
;
38 size_t cat_name_len
= strlen (cat_name
) + 1;
39 size_t env_var_len
= 0;
40 size_t nlspath_len
= 0;
43 if (strchr (cat_name
, '/') == NULL
)
45 if (flag
== NL_CAT_LOCALE
)
47 env_var
= getenv ("LC_ALL");
49 env_var
= getenv ("LC_MESSAGES");
55 env_var
= getenv ("LANG");
60 env_var_len
= strlen (env_var
) + 1;
62 nlspath
= __secure_getenv ("NLSPATH");
63 if (nlspath
!= NULL
&& *nlspath
!= '\0')
65 /* Append the system dependent directory. */
66 size_t len
= strlen (nlspath
) + 1 + sizeof NLSPATH
;
67 char *tmp
= alloca (len
);
69 __stpcpy (__stpcpy (__stpcpy (tmp
, nlspath
), ":"), NLSPATH
);
78 nlspath_len
= sizeof NLSPATH
;
82 result
= (__nl_catd
) malloc (sizeof (*result
) + cat_name_len
83 + env_var_len
+ nlspath_len
);
85 /* We cannot get enough memory. */
88 result
->status
= closed
;
89 result
->cat_name
= endp
= (char *) (result
+ 1);
90 endp
= __mempcpy (endp
, cat_name
, cat_name_len
);
92 result
->env_var
= cat_name_len
!= 0 ? endp
: NULL
;
93 endp
= __mempcpy (endp
, env_var
, env_var_len
);
95 result
->nlspath
= nlspath_len
!= 0 ? endp
: NULL
;
96 memcpy (endp
, nlspath
, nlspath_len
);
98 __libc_lock_init (result
->lock
);
100 return (nl_catd
) result
;
104 /* Return message from message catalog. */
106 catgets (nl_catd catalog_desc
, int set
, int message
, const char *string
)
112 /* Be generous if catalog which failed to be open is used. */
113 if (catalog_desc
== (nl_catd
) -1 || ++set
<= 0 || message
< 0)
114 return (char *) string
;
116 catalog
= (__nl_catd
) catalog_desc
;
118 if (catalog
->status
== closed
)
119 __open_catalog (catalog
);
121 if (catalog
->status
== nonexisting
)
124 return (char *) string
;
127 idx
= ((set
* message
) % catalog
->plane_size
) * 3;
131 if (catalog
->name_ptr
[idx
+ 0] == (u_int32_t
) set
132 && catalog
->name_ptr
[idx
+ 1] == (u_int32_t
) message
)
133 return (char *) &catalog
->strings
[catalog
->name_ptr
[idx
+ 2]];
135 idx
+= catalog
->plane_size
* 3;
137 while (++cnt
< catalog
->plane_depth
);
139 __set_errno (ENOMSG
);
140 return (char *) string
;
144 /* Return resources used for loaded message catalog. */
146 catclose (nl_catd catalog_desc
)
150 catalog
= (__nl_catd
) catalog_desc
;
152 #ifdef _POSIX_MAPPED_FILES
153 if (catalog
->status
== mmapped
)
154 __munmap ((void *) catalog
->file_ptr
, catalog
->file_size
);
156 #endif /* _POSIX_MAPPED_FILES */
157 if (catalog
->status
== malloced
)
158 free ((void *) catalog
->file_ptr
);
159 else if (catalog
->status
!= closed
&& catalog
->status
!= nonexisting
)
165 free ((void *) catalog
);