re PR libfortran/69799 (FAIL: gfortran.dg/coarray_allocate_3.f08 at -O1 and above)
[official-gcc.git] / libstdc++-v3 / include / ext / string_conversions.h
blob8a8fec12d7fc33b0bc28c10b62ccd0bfff9ff1c9
1 // String Conversions -*- C++ -*-
3 // Copyright (C) 2008-2016 Free Software Foundation, Inc.
4 //
5 // This file is part of the GNU ISO C++ Library. This library is free
6 // software; you can redistribute it and/or modify it under the
7 // terms of the GNU General Public License as published by the
8 // Free Software Foundation; either version 3, or (at your option)
9 // any later version.
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 // GNU General Public License for more details.
16 // Under Section 7 of GPL version 3, you are granted additional
17 // permissions described in the GCC Runtime Library Exception, version
18 // 3.1, as published by the Free Software Foundation.
20 // You should have received a copy of the GNU General Public License and
21 // a copy of the GCC Runtime Library Exception along with this program;
22 // see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
23 // <http://www.gnu.org/licenses/>.
25 /** @file ext/string_conversions.h
26 * This file is a GNU extension to the Standard C++ Library.
29 #ifndef _STRING_CONVERSIONS_H
30 #define _STRING_CONVERSIONS_H 1
32 #pragma GCC system_header
34 #if __cplusplus < 201103L
35 # include <bits/c++0x_warning.h>
36 #else
38 #include <bits/c++config.h>
39 #include <ext/numeric_traits.h>
40 #include <bits/functexcept.h>
41 #include <cstdlib>
42 #include <cwchar>
43 #include <cstdio>
44 #include <cerrno>
46 namespace __gnu_cxx _GLIBCXX_VISIBILITY(default)
48 _GLIBCXX_BEGIN_NAMESPACE_VERSION
50 // Helper for all the sto* functions.
51 template<typename _TRet, typename _Ret = _TRet, typename _CharT,
52 typename... _Base>
53 _Ret
54 __stoa(_TRet (*__convf) (const _CharT*, _CharT**, _Base...),
55 const char* __name, const _CharT* __str, std::size_t* __idx,
56 _Base... __base)
58 _Ret __ret;
60 _CharT* __endptr;
62 struct _Save_errno {
63 _Save_errno() : _M_errno(errno) { errno = 0; }
64 ~_Save_errno() { if (errno == 0) errno = _M_errno; }
65 int _M_errno;
66 } const __save_errno;
68 const _TRet __tmp = __convf(__str, &__endptr, __base...);
70 if (__endptr == __str)
71 std::__throw_invalid_argument(__name);
72 else if (errno == ERANGE
73 || (std::__are_same<_Ret, int>::__value
74 && (__tmp < __numeric_traits<int>::__min
75 || __tmp > __numeric_traits<int>::__max)))
76 std::__throw_out_of_range(__name);
77 else
78 __ret = __tmp;
80 if (__idx)
81 *__idx = __endptr - __str;
83 return __ret;
86 // Helper for the to_string / to_wstring functions.
87 template<typename _String, typename _CharT = typename _String::value_type>
88 _String
89 __to_xstring(int (*__convf) (_CharT*, std::size_t, const _CharT*,
90 __builtin_va_list), std::size_t __n,
91 const _CharT* __fmt, ...)
93 // XXX Eventually the result will be constructed in place in
94 // the C++0x string, likely with the help of internal hooks.
95 _CharT* __s = static_cast<_CharT*>(__builtin_alloca(sizeof(_CharT)
96 * __n));
98 __builtin_va_list __args;
99 __builtin_va_start(__args, __fmt);
101 const int __len = __convf(__s, __n, __fmt, __args);
103 __builtin_va_end(__args);
105 return _String(__s, __s + __len);
108 _GLIBCXX_END_NAMESPACE_VERSION
109 } // namespace
111 #endif // C++11
113 #endif // _STRING_CONVERSIONS_H