1 /* Copyright (C) 1996 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper, <drepper@gnu.ai.mit.edu>.
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
17 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA. */
27 #include "catgetsinfo.h"
30 /* Open the catalog and return a descriptor for the catalog. */
32 catopen (const char *cat_name
, int flag
)
37 result
= (__nl_catd
) malloc (sizeof (__nl_catd
));
39 /* We cannot get enough memory. */
42 result
->status
= closed
;
44 result
->cat_name
= __strdup (cat_name
);
45 if (result
->cat_name
== NULL
)
51 if (strchr (cat_name
, '/') == NULL
)
53 if (flag
== NL_CAT_LOCALE
)
55 env_var
= getenv ("LC_ALL");
58 env_var
= getenv ("LC_MESSAGES");
61 env_var
= getenv ("LANG");
69 env_var
= getenv ("LANG");
74 result
->env_var
= __strdup (env_var
);
75 if (result
->env_var
== NULL
)
77 free ((void *) result
->cat_name
);
78 free ((void *) result
);
82 if (getenv ("NLSPATH") != NULL
)
83 result
->nlspath
= __strdup (getenv ("NLSPATH"));
85 result
->nlspath
= __strdup (NLSPATH
);
87 if (result
->nlspath
== NULL
)
89 free ((void *) result
->cat_name
);
90 free ((void *) result
->env_var
);
91 free ((void *) result
);
97 result
->env_var
= NULL
;
98 result
->nlspath
= NULL
;
101 return (nl_catd
) result
;
105 /* Return message from message catalog. */
107 catgets (nl_catd catalog_desc
, int set
, int message
, const char *string
)
113 /* Be generous if catalog which failed to be open is used. */
114 if (catalog_desc
== (nl_catd
) -1 || ++set
<= 0 || message
< 0)
115 return (char *) string
;
117 catalog
= (__nl_catd
) catalog_desc
;
119 if (catalog
->status
== closed
)
120 __open_catalog (catalog
, 1);
122 if (catalog
->status
== nonexisting
)
123 return (char *) string
;
125 idx
= ((set
* message
) % catalog
->plane_size
) * 3;
129 if (catalog
->name_ptr
[idx
+ 0] == (u_int32_t
) set
130 && catalog
->name_ptr
[idx
+ 1] == (u_int32_t
) message
)
131 return (char *) &catalog
->strings
[catalog
->name_ptr
[idx
+ 2]];
133 idx
+= catalog
->plane_size
* 3;
135 while (++cnt
< catalog
->plane_depth
);
137 return (char *) string
;
141 /* Return resources used for loaded message catalog. */
143 catclose (nl_catd catalog_desc
)
147 catalog
= (__nl_catd
) catalog_desc
;
149 if (catalog
->status
== mmaped
)
150 munmap ((void *) catalog
->file_ptr
, catalog
->file_size
);
151 else if (catalog
->status
== malloced
)
152 free ((void *) catalog
->file_ptr
);
153 else if (catalog
->status
!= closed
&& catalog
->status
!= nonexisting
)
156 if (catalog
->nlspath
)
157 free ((void *) catalog
->nlspath
);
158 if (catalog
->env_var
)
159 free ((void *) catalog
->env_var
);
160 free ((void *) catalog
);