1#define _BSD_SOURCE
2#include <nl_types.h>
3#include <string.h>
4#include <stdint.h>
5#include <endian.h>
6#include <errno.h>
7#include <langinfo.h>
8#include <locale.h>
9#ifdef __wasilibc_unmodified_upstream // wasi-libc doesn't support catgets yet
10#include <sys/mman.h>
11#endif
12#include "libc.h"
13
14#define V(p) be32toh(*(uint32_t *)(p))
15
16#ifdef __wasilibc_unmodified_upstream // wasi-libc doesn't support catgets yet
17static nl_catd do_catopen(const char *name)
18{
19 size_t size;
20 const unsigned char *map = __map_file(name, &size);
21 /* Size recorded in the file must match file size; otherwise
22 * the information needed to unmap the file will be lost. */
23 if (!map || V(map) != 0xff88ff89 || 20+V(map+8) != size) {
24 if(map) munmap((void *)map, size);
25 errno = ENOENT;
26 return (nl_catd)-1;
27 }
28 return (nl_catd)map;
29}
30#endif
31
32nl_catd catopen(const char *name, int oflag)
33{
34#ifdef __wasilibc_unmodified_upstream // wasi-libc doesn't support catgets yet
35 nl_catd catd;
36
37 if (strchr(name, '/')) return do_catopen(name);
38
39 char buf[PATH_MAX];
40 size_t i;
41 const char *path, *lang, *p, *z;
42 if (libc.secure || !(path = getenv("NLSPATH"))) {
43 errno = ENOENT;
44 return (nl_catd)-1;
45 }
46 lang = oflag ? nl_langinfo(_NL_LOCALE_NAME(LC_MESSAGES)) : getenv("LANG");
47 if (!lang) lang = "";
48 for (p=path; *p; p=z) {
49 i = 0;
50 z = __strchrnul(p, ':');
51 for (; p<z; p++) {
52 const char *v;
53 size_t l;
54 if (*p!='%') v=p, l=1;
55 else switch (*++p) {
56 case 'N': v=name; l=strlen(v); break;
57 case 'L': v=lang; l=strlen(v); break;
58 case 'l': v=lang; l=strcspn(v,"_.@"); break;
59 case 't':
60 v=__strchrnul(lang,'_');
61 if (*v) v++;
62 l=strcspn(v,".@");
63 break;
64 case 'c': v="UTF-8"; l=5; break;
65 case '%': v="%"; l=1; break;
66 default: v=0;
67 }
68 if (!v || l >= sizeof buf - i) {
69 break;
70 }
71 memcpy(buf+i, v, l);
72 i += l;
73 }
74 if (!*z && (p<z || !i)) break;
75 if (p<z) continue;
76 if (*z) z++;
77 buf[i] = 0;
78 /* Leading : or :: in NLSPATH is same as %N */
79 catd = do_catopen(i ? buf : name);
80 if (catd != (nl_catd)-1) return catd;
81 }
82 errno = ENOENT;
83#else
84 errno = EOPNOTSUPP;
85#endif
86 return (nl_catd)-1;
87}