1/* Message translation utilities.
2 Copyright (C) 2001-2023 Free Software Foundation, Inc.
3
4This file is part of GCC.
5
6GCC is free software; you can redistribute it and/or modify it under
7the terms of the GNU General Public License as published by the Free
8Software Foundation; either version 3, or (at your option) any later
9version.
10
11GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12WARRANTY; without even the implied warranty of MERCHANTABILITY or
13FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14for more details.
15
16You should have received a copy of the GNU General Public License
17along with GCC; see the file COPYING3. If not see
18<http://www.gnu.org/licenses/>. */
19
20#include "config.h"
21#include "system.h"
22#include "coretypes.h"
23#include "intl.h"
24
25#ifdef HAVE_LANGINFO_CODESET
26#include <langinfo.h>
27#endif
28
29/* Opening quotation mark for diagnostics. */
30const char *open_quote = "'";
31
32/* Closing quotation mark for diagnostics. */
33const char *close_quote = "'";
34
35/* The name of the locale encoding. */
36const char *locale_encoding = NULL;
37
38/* Whether the locale is using UTF-8. */
39bool locale_utf8 = false;
40
41#ifdef ENABLE_NLS
42
43/* Initialize the translation library for GCC. This performs the
44 appropriate sequence of calls - setlocale, bindtextdomain,
45 textdomain. LC_CTYPE determines the character set used by the
46 terminal, so it has be set to output messages correctly. */
47
48void
49gcc_init_libintl (void)
50{
51#ifdef HAVE_LC_MESSAGES
52 setlocale (LC_CTYPE, locale: "");
53 setlocale (LC_MESSAGES, locale: "");
54#else
55 setlocale (LC_ALL, "");
56#endif
57
58 (void) bindtextdomain ("gcc", LOCALEDIR);
59 (void) textdomain (domainname: "gcc");
60
61 /* Opening quotation mark. */
62 open_quote = _("`");
63
64 /* Closing quotation mark. */
65 close_quote = _("'");
66
67#if defined HAVE_LANGINFO_CODESET
68 locale_encoding = nl_langinfo (CODESET);
69 if (locale_encoding != NULL
70 && (!strcasecmp (s1: locale_encoding, s2: "utf-8")
71 || !strcasecmp (s1: locale_encoding, s2: "utf8")))
72 locale_utf8 = true;
73#endif
74
75 if (!strcmp (s1: open_quote, s2: "`") && !strcmp (s1: close_quote, s2: "'"))
76 {
77 /* Untranslated quotes that it may be possible to replace with
78 U+2018 and U+2019; but otherwise use "'" instead of "`" as
79 opening quote. */
80 open_quote = "'";
81#if defined HAVE_LANGINFO_CODESET
82 if (locale_utf8)
83 {
84 open_quote = "\xe2\x80\x98";
85 close_quote = "\xe2\x80\x99";
86 }
87#endif
88 }
89}
90
91#if defined HAVE_WCHAR_H && defined HAVE_WORKING_MBSTOWCS && defined HAVE_WCSWIDTH
92#include <wchar.h>
93
94/* Returns the width in columns of MSGSTR, which came from gettext.
95 This is for indenting subsequent output. */
96
97size_t
98gcc_gettext_width (const char *msgstr)
99{
100 size_t nwcs = mbstowcs (pwcs: 0, s: msgstr, n: 0);
101 wchar_t *wmsgstr = XALLOCAVEC (wchar_t, nwcs + 1);
102
103 mbstowcs (pwcs: wmsgstr, s: msgstr, n: nwcs + 1);
104 return wcswidth (s: wmsgstr, n: nwcs);
105}
106
107#else /* no wcswidth */
108
109/* We don't have any way of knowing how wide the string is. Guess
110 the length of the string. */
111
112size_t
113gcc_gettext_width (const char *msgstr)
114{
115 return strlen (msgstr);
116}
117
118#endif
119
120#endif /* ENABLE_NLS */
121
122#ifndef ENABLE_NLS
123
124const char *
125fake_ngettext (const char *singular, const char *plural, unsigned long n)
126{
127 if (n == 1UL)
128 return singular;
129
130 return plural;
131}
132
133#endif
134
135/* Return the indent for successive lines, using the width of
136 the STR. STR must have been translated already. The string
137 must be freed by the caller. */
138
139char *
140get_spaces (const char *str)
141{
142 size_t len = gcc_gettext_width (msgstr: str);
143 char *spaces = XNEWVEC (char, len + 1);
144 memset (s: spaces, c: ' ', n: len);
145 spaces[len] = '\0';
146 return spaces;
147}
148
149
150
151

source code of gcc/intl.cc