/* SPDX-License-Identifier: BSD-2-Clause */ #define _GNU_SOURCE #include #include #include #include #include #include #include #include struct lc_msg_t { char locale[64]; char yesstr[256]; char nostr[256]; char yesexpr[256]; char noexpr[256]; } msg[512]; int mcnt = 0; char * xfrm_utf (const wchar_t *ws) { static char xfrm[256]; char *p = xfrm; int wconst = 0; while (*ws) { if (*ws < 0x80 && (!wconst || !wcschr (L"aAbBcCdDeEfF", *ws))) { *p++ = *ws; wconst = 0; } else { p += sprintf (p, "\\x%04lx", *ws); wconst = 1; } ++ws; } *p = '\0'; return xfrm; } void read_locale_messages (char *name) { char *nl; char locale[64]; wchar_t nlbuf[256]; strcpy (locale, name); nl = strchr (locale, '@'); if (nl) stpcpy (stpcpy (nl, ".utf8"), strchr (name, '@')); else strcat (locale, ".utf8"); printf ("%s\n", locale); setlocale (LC_ALL, locale); strcpy (msg[mcnt].locale, name); nl = nl_langinfo (YESSTR); mbstowcs (nlbuf, nl, 256); strcpy (msg[mcnt].yesstr, xfrm_utf (nlbuf)); nl = nl_langinfo (NOSTR); mbstowcs (nlbuf, nl, 256); strcpy (msg[mcnt].nostr, xfrm_utf (nlbuf)); nl = nl_langinfo (YESEXPR); mbstowcs (nlbuf, nl, 256); strcpy (msg[mcnt].yesexpr, xfrm_utf (nlbuf)); nl = nl_langinfo (NOEXPR); mbstowcs (nlbuf, nl, 256); strcpy (msg[mcnt].noexpr, xfrm_utf (nlbuf)); /* Serbian locale rename weirdness */ if (!strncmp (msg[mcnt].locale, "sr_RS", 5)) { /* Create additional equivalent entry for the old locale sr_SP. */ ++mcnt; memcpy (&msg[mcnt], &msg[mcnt - 1], sizeof msg[mcnt]); msg[mcnt].locale[3] = 'S'; msg[mcnt].locale[4] = 'P'; /* Create additional equivalent entry for sr_ME@latin missing in Linux. */ if (!strcmp (msg[mcnt].locale, "sr_SP@latin")) { ++mcnt; memcpy (&msg[mcnt], &msg[mcnt - 1], sizeof msg[mcnt]); msg[mcnt].locale[3] = 'M'; msg[mcnt].locale[4] = 'E'; } } ++mcnt; } int locale_cmp (const void *a, const void *b) { struct lc_msg_t *la = (struct lc_msg_t *) a; struct lc_msg_t *lb = (struct lc_msg_t *) b; return strcmp (la->locale, lb->locale); } void create_list () { FILE *fp = fopen ("lc_msg.h", "w"); FILE *pp = popen ("rpm -q glibc", "r"); char vers[64]; int i; struct tm *tm; time_t tim; char tstr[64]; fgets (vers, 64, pp); pclose (pp); if (strchr (vers, '\n')) *strchr (vers, '\n') = '\0'; tim = time (NULL); tm = gmtime (&tim); strftime (tstr, 64, "%F", tm); fprintf (fp, "/* This struct of LC_MESSAGES data has been generated by fetching locale\n" " data from a Linux system using %s on %s. */\n" "\n" "struct lc_msg_t\n" "{\n" " const char *locale;\n" " const wchar_t *yesexpr;\n" " const wchar_t *noexpr;\n" " const wchar_t *yesstr;\n" " const wchar_t *nostr;\n" "};\n" "\n" "static struct lc_msg_t lc_msg[] =\n" "{\n", vers, tstr); qsort (msg, mcnt, sizeof (struct lc_msg_t), locale_cmp); for (i = 0; i < mcnt; ++i) fprintf (fp, " { \"%s\", L\"%s\", L\"%s\", L\"%s\", L\"%s\" },\n", msg[i].locale, msg[i].yesexpr, msg[i].noexpr, msg[i].yesstr, msg[i].nostr); fputs ("};\n", fp); fclose (fp); } int main () { char name[32], *c; FILE *pp; pp = popen ("locale -a | grep -a '_' | fgrep -v .", "r"); if (!pp) { perror ("popen failed"); return 1; } while (fgets (name, 32, pp)) { c = strchr (name, '\n'); if (c) *c = '\0'; read_locale_messages (name); } pclose (pp); create_list (); return 0; }