1 /* strerror_l - Get errno description string in given locale. Mach version.
2 Copyright (C) 2007-2023 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the 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 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
25 #include <mach/error.h>
27 #include <tls-internal.h>
31 translate (const char *str
, locale_t loc
)
33 locale_t oldloc
= __uselocale (loc
);
34 const char *res
= _(str
);
40 /* Return a string describing the errno code in ERRNUM. */
42 __strerror_l (int errnum
, locale_t loc
)
44 int saved_errno
= errno
;
49 const struct error_system
*es
;
50 extern void __mach_error_map_compat (int *);
52 __mach_error_map_compat (&errnum
);
54 system
= err_get_system (errnum
);
55 sub
= err_get_sub (errnum
);
56 code
= err_get_code (errnum
);
58 if (system
> err_max_system
|| ! __mach_error_systems
[system
].bad_sub
)
60 struct tls_internal_t
*tls_internal
= __glibc_tls_internal ();
61 free (tls_internal
->strerror_l_buf
);
62 if (__asprintf (&tls_internal
->strerror_l_buf
, "%s%X",
63 translate ("Error in unknown error system: ", loc
),
65 tls_internal
->strerror_l_buf
= NULL
;
67 __set_errno (saved_errno
);
68 return tls_internal
->strerror_l_buf
;
71 es
= &__mach_error_systems
[system
];
73 if (sub
>= es
->max_sub
)
74 err
= (char *) translate (es
->bad_sub
, loc
);
75 else if (code
>= es
->subsystem
[sub
].max_code
)
77 struct tls_internal_t
*tls_internal
= __glibc_tls_internal ();
78 free (tls_internal
->strerror_l_buf
);
79 if (__asprintf (&tls_internal
->strerror_l_buf
, "%s%s %d",
80 translate ("Unknown error ", loc
),
81 translate (es
->subsystem
[sub
].subsys_name
, loc
),
83 tls_internal
->strerror_l_buf
= NULL
;
85 err
= tls_internal
->strerror_l_buf
;
88 err
= (char *) translate (es
->subsystem
[sub
].codes
[code
], loc
);
90 __set_errno (saved_errno
);
93 weak_alias (__strerror_l
, strerror_l
)
94 libc_hidden_def (__strerror_l
)