mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-02-15 18:57:53 +00:00
129 lines
3.4 KiB
C++
129 lines
3.4 KiB
C++
// -*- C++ -*-
|
|
//===-----------------------------------------------------------------------===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#ifndef _LIBCPP___SUPPORT_IBM_XLOCALE_H
|
|
#define _LIBCPP___SUPPORT_IBM_XLOCALE_H
|
|
|
|
#if defined(__MVS__)
|
|
#include <__support/ibm/locale_mgmt_zos.h>
|
|
#endif // defined(__MVS__)
|
|
|
|
#include <stdarg.h>
|
|
|
|
#include "cstdlib"
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
#if defined(__MVS__)
|
|
#include <wctype.h>
|
|
// POSIX routines
|
|
#include <__support/xlocale/__posix_l_fallback.h>
|
|
#endif // defined(__MVS__)
|
|
|
|
namespace {
|
|
|
|
struct __setAndRestore {
|
|
explicit __setAndRestore(locale_t locale) {
|
|
if (locale == (locale_t)0) {
|
|
__cloc = newlocale(LC_ALL_MASK, "C", /* base */ (locale_t)0);
|
|
__stored = uselocale(__cloc);
|
|
} else {
|
|
__stored = uselocale(locale);
|
|
}
|
|
}
|
|
|
|
~__setAndRestore() {
|
|
uselocale(__stored);
|
|
if (__cloc)
|
|
freelocale(__cloc);
|
|
}
|
|
|
|
private:
|
|
locale_t __stored = (locale_t)0;
|
|
locale_t __cloc = (locale_t)0;
|
|
};
|
|
|
|
} // namespace
|
|
|
|
// The following are not POSIX routines. These are quick-and-dirty hacks
|
|
// to make things pretend to work
|
|
inline _LIBCPP_HIDE_FROM_ABI long long
|
|
strtoll_l(const char *__nptr, char **__endptr, int __base, locale_t locale) {
|
|
__setAndRestore __newloc(locale);
|
|
return ::strtoll(__nptr, __endptr, __base);
|
|
}
|
|
|
|
inline _LIBCPP_HIDE_FROM_ABI long
|
|
strtol_l(const char *__nptr, char **__endptr, int __base, locale_t locale) {
|
|
__setAndRestore __newloc(locale);
|
|
return ::strtol(__nptr, __endptr, __base);
|
|
}
|
|
|
|
inline _LIBCPP_HIDE_FROM_ABI double
|
|
strtod_l(const char *__nptr, char **__endptr, locale_t locale) {
|
|
__setAndRestore __newloc(locale);
|
|
return ::strtod(__nptr, __endptr);
|
|
}
|
|
|
|
inline _LIBCPP_HIDE_FROM_ABI float
|
|
strtof_l(const char *__nptr, char **__endptr, locale_t locale) {
|
|
__setAndRestore __newloc(locale);
|
|
return ::strtof(__nptr, __endptr);
|
|
}
|
|
|
|
inline _LIBCPP_HIDE_FROM_ABI long double
|
|
strtold_l(const char *__nptr, char **__endptr, locale_t locale) {
|
|
__setAndRestore __newloc(locale);
|
|
return ::strtold(__nptr, __endptr);
|
|
}
|
|
|
|
inline _LIBCPP_HIDE_FROM_ABI unsigned long long
|
|
strtoull_l(const char *__nptr, char **__endptr, int __base, locale_t locale) {
|
|
__setAndRestore __newloc(locale);
|
|
return ::strtoull(__nptr, __endptr, __base);
|
|
}
|
|
|
|
inline _LIBCPP_HIDE_FROM_ABI unsigned long
|
|
strtoul_l(const char *__nptr, char **__endptr, int __base, locale_t locale) {
|
|
__setAndRestore __newloc(locale);
|
|
return ::strtoul(__nptr, __endptr, __base);
|
|
}
|
|
|
|
inline _LIBCPP_HIDE_FROM_ABI int
|
|
vasprintf(char **strp, const char *fmt, va_list ap) {
|
|
const size_t buff_size = 256;
|
|
if ((*strp = (char *)malloc(buff_size)) == NULL) {
|
|
return -1;
|
|
}
|
|
|
|
va_list ap_copy;
|
|
// va_copy may not be provided by the C library in C++ 03 mode.
|
|
#if defined(_LIBCPP_CXX03_LANG) && __has_builtin(__builtin_va_copy)
|
|
__builtin_va_copy(ap_copy, ap);
|
|
#else
|
|
va_copy(ap_copy, ap);
|
|
#endif
|
|
int str_size = vsnprintf(*strp, buff_size, fmt, ap_copy);
|
|
va_end(ap_copy);
|
|
|
|
if ((size_t) str_size >= buff_size) {
|
|
if ((*strp = (char *)realloc(*strp, str_size + 1)) == NULL) {
|
|
return -1;
|
|
}
|
|
str_size = vsnprintf(*strp, str_size + 1, fmt, ap);
|
|
}
|
|
return str_size;
|
|
}
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
#endif // _LIBCPP___SUPPORT_IBM_XLOCALE_H
|