1 //===-- Implementation of strtol_l ----------------------------------------===//
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 // See https://llvm.org/LICENSE.txt for license information.
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
7 //===----------------------------------------------------------------------===//
9 #include "src/stdlib/strtol_l.h"
10 #include "src/__support/common.h"
11 #include "src/__support/macros/config.h"
12 #include "src/__support/str_to_integer.h"
13 #include "src/errno/libc_errno.h"
15 namespace LIBC_NAMESPACE_DECL
{
17 LLVM_LIBC_FUNCTION(long, strtol_l
,
18 (const char *__restrict str
, char **__restrict str_end
,
19 int base
, locale_t
)) {
20 auto result
= internal::strtointeger
<long>(str
, base
);
21 if (result
.has_error())
22 libc_errno
= result
.error
;
24 if (str_end
!= nullptr)
25 *str_end
= const_cast<char *>(str
+ result
.parsed_len
);
30 } // namespace LIBC_NAMESPACE_DECL