annotate lldb/source/Host/common/StringConvert.cpp @ 213:25ca0248ac32

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 11 Jul 2021 17:05:31 +0900
parents 2e18cbf3894f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
150
anatofuz
parents:
diff changeset
1 //===-- StringConvert.cpp -------------------------------------------------===//
anatofuz
parents:
diff changeset
2 //
anatofuz
parents:
diff changeset
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
anatofuz
parents:
diff changeset
4 // See https://llvm.org/LICENSE.txt for license information.
anatofuz
parents:
diff changeset
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
anatofuz
parents:
diff changeset
6 //
anatofuz
parents:
diff changeset
7 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
8
207
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
9 #include <cstdlib>
150
anatofuz
parents:
diff changeset
10
anatofuz
parents:
diff changeset
11 #include "lldb/Host/StringConvert.h"
anatofuz
parents:
diff changeset
12
anatofuz
parents:
diff changeset
13 namespace lldb_private {
anatofuz
parents:
diff changeset
14 namespace StringConvert {
anatofuz
parents:
diff changeset
15
anatofuz
parents:
diff changeset
16 int32_t ToSInt32(const char *s, int32_t fail_value, int base,
anatofuz
parents:
diff changeset
17 bool *success_ptr) {
anatofuz
parents:
diff changeset
18 if (s && s[0]) {
anatofuz
parents:
diff changeset
19 char *end = nullptr;
anatofuz
parents:
diff changeset
20 const long sval = ::strtol(s, &end, base);
anatofuz
parents:
diff changeset
21 if (*end == '\0') {
anatofuz
parents:
diff changeset
22 if (success_ptr)
anatofuz
parents:
diff changeset
23 *success_ptr = ((sval <= INT32_MAX) && (sval >= INT32_MIN));
anatofuz
parents:
diff changeset
24 return (int32_t)sval; // All characters were used, return the result
anatofuz
parents:
diff changeset
25 }
anatofuz
parents:
diff changeset
26 }
anatofuz
parents:
diff changeset
27 if (success_ptr)
anatofuz
parents:
diff changeset
28 *success_ptr = false;
anatofuz
parents:
diff changeset
29 return fail_value;
anatofuz
parents:
diff changeset
30 }
anatofuz
parents:
diff changeset
31
anatofuz
parents:
diff changeset
32 uint32_t ToUInt32(const char *s, uint32_t fail_value, int base,
anatofuz
parents:
diff changeset
33 bool *success_ptr) {
anatofuz
parents:
diff changeset
34 if (s && s[0]) {
anatofuz
parents:
diff changeset
35 char *end = nullptr;
anatofuz
parents:
diff changeset
36 const unsigned long uval = ::strtoul(s, &end, base);
anatofuz
parents:
diff changeset
37 if (*end == '\0') {
anatofuz
parents:
diff changeset
38 if (success_ptr)
anatofuz
parents:
diff changeset
39 *success_ptr = (uval <= UINT32_MAX);
anatofuz
parents:
diff changeset
40 return (uint32_t)uval; // All characters were used, return the result
anatofuz
parents:
diff changeset
41 }
anatofuz
parents:
diff changeset
42 }
anatofuz
parents:
diff changeset
43 if (success_ptr)
anatofuz
parents:
diff changeset
44 *success_ptr = false;
anatofuz
parents:
diff changeset
45 return fail_value;
anatofuz
parents:
diff changeset
46 }
anatofuz
parents:
diff changeset
47
anatofuz
parents:
diff changeset
48 int64_t ToSInt64(const char *s, int64_t fail_value, int base,
anatofuz
parents:
diff changeset
49 bool *success_ptr) {
anatofuz
parents:
diff changeset
50 if (s && s[0]) {
anatofuz
parents:
diff changeset
51 char *end = nullptr;
anatofuz
parents:
diff changeset
52 int64_t uval = ::strtoll(s, &end, base);
anatofuz
parents:
diff changeset
53 if (*end == '\0') {
anatofuz
parents:
diff changeset
54 if (success_ptr)
anatofuz
parents:
diff changeset
55 *success_ptr = true;
anatofuz
parents:
diff changeset
56 return uval; // All characters were used, return the result
anatofuz
parents:
diff changeset
57 }
anatofuz
parents:
diff changeset
58 }
anatofuz
parents:
diff changeset
59 if (success_ptr)
anatofuz
parents:
diff changeset
60 *success_ptr = false;
anatofuz
parents:
diff changeset
61 return fail_value;
anatofuz
parents:
diff changeset
62 }
anatofuz
parents:
diff changeset
63
anatofuz
parents:
diff changeset
64 uint64_t ToUInt64(const char *s, uint64_t fail_value, int base,
anatofuz
parents:
diff changeset
65 bool *success_ptr) {
anatofuz
parents:
diff changeset
66 if (s && s[0]) {
anatofuz
parents:
diff changeset
67 char *end = nullptr;
anatofuz
parents:
diff changeset
68 uint64_t uval = ::strtoull(s, &end, base);
anatofuz
parents:
diff changeset
69 if (*end == '\0') {
anatofuz
parents:
diff changeset
70 if (success_ptr)
anatofuz
parents:
diff changeset
71 *success_ptr = true;
anatofuz
parents:
diff changeset
72 return uval; // All characters were used, return the result
anatofuz
parents:
diff changeset
73 }
anatofuz
parents:
diff changeset
74 }
anatofuz
parents:
diff changeset
75 if (success_ptr)
anatofuz
parents:
diff changeset
76 *success_ptr = false;
anatofuz
parents:
diff changeset
77 return fail_value;
anatofuz
parents:
diff changeset
78 }
anatofuz
parents:
diff changeset
79
anatofuz
parents:
diff changeset
80 double ToDouble(const char *s, double fail_value, bool *success_ptr) {
anatofuz
parents:
diff changeset
81 if (s && s[0]) {
anatofuz
parents:
diff changeset
82 char *end = nullptr;
anatofuz
parents:
diff changeset
83 double val = strtod(s, &end);
anatofuz
parents:
diff changeset
84 if (*end == '\0') {
anatofuz
parents:
diff changeset
85 if (success_ptr)
anatofuz
parents:
diff changeset
86 *success_ptr = true;
anatofuz
parents:
diff changeset
87 return val; // All characters were used, return the result
anatofuz
parents:
diff changeset
88 }
anatofuz
parents:
diff changeset
89 }
anatofuz
parents:
diff changeset
90 if (success_ptr)
anatofuz
parents:
diff changeset
91 *success_ptr = false;
anatofuz
parents:
diff changeset
92 return fail_value;
anatofuz
parents:
diff changeset
93 }
anatofuz
parents:
diff changeset
94 }
anatofuz
parents:
diff changeset
95 }