1/***************************************************************************
2 *                                  _   _ ____  _
3 *  Project                     ___| | | |  _ \| |
4 *                             / __| | | | |_) | |
5 *                            | (__| |_| |  _ <| |___
6 *                             \___|\___/|_| \_\_____|
7 *
8 * Copyright (C) 1998 - 2011, Daniel Stenberg, <daniel@haxx.se>, et al.
9 *
10 * This software is licensed as described in the file COPYING, which
11 * you should have received as part of this distribution. The terms
12 * are also available at http://curl.haxx.se/docs/copyright.html.
13 *
14 * You may opt to use, copy, modify, merge, publish, distribute and/or sell
15 * copies of the Software, and permit persons to whom the Software is
16 * furnished to do so, under the terms of the COPYING file.
17 *
18 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
19 * KIND, either express or implied.
20 *
21 ***************************************************************************/
22
23#include "setup.h"
24#include "strtoofft.h"
25
26/*
27 * NOTE:
28 *
29 * In the ISO C standard (IEEE Std 1003.1), there is a strtoimax() function we
30 * could use in case strtoll() doesn't exist...  See
31 * http://www.opengroup.org/onlinepubs/009695399/functions/strtoimax.html
32 */
33
34#ifdef NEED_CURL_STRTOLL
35#include <stdlib.h>
36#include <ctype.h>
37#include <errno.h>
38
39/* Range tests can be used for alphanum decoding if characters are consecutive,
40   like in ASCII. Else an array is scanned. Determine this condition now. */
41
42#if('9' - '0') != 9 || ('Z' - 'A') != 25 || ('z' - 'a') != 25
43#include <string.h>
44
45#define NO_RANGE_TEST
46
47static const char valchars[] =
48            "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
49#endif
50
51static int get_char(char c, int base);
52
53/**
54 * Emulated version of the strtoll function.  This extracts a long long
55 * value from the given input string and returns it.
56 */
57curl_off_t
58curlx_strtoll(const char *nptr, char **endptr, int base)
59{
60  char *end;
61  int is_negative = 0;
62  int overflow;
63  int i;
64  curl_off_t value = 0;
65  curl_off_t newval;
66
67  /* Skip leading whitespace. */
68  end = (char *)nptr;
69  while(ISSPACE(end[0])) {
70    end++;
71  }
72
73  /* Handle the sign, if any. */
74  if(end[0] == '-') {
75    is_negative = 1;
76    end++;
77  }
78  else if(end[0] == '+') {
79    end++;
80  }
81  else if(end[0] == '\0') {
82    /* We had nothing but perhaps some whitespace -- there was no number. */
83    if(endptr) {
84      *endptr = end;
85    }
86    return 0;
87  }
88
89  /* Handle special beginnings, if present and allowed. */
90  if(end[0] == '0' && end[1] == 'x') {
91    if(base == 16 || base == 0) {
92      end += 2;
93      base = 16;
94    }
95  }
96  else if(end[0] == '0') {
97    if(base == 8 || base == 0) {
98      end++;
99      base = 8;
100    }
101  }
102
103  /* Matching strtol, if the base is 0 and it doesn't look like
104   * the number is octal or hex, we assume it's base 10.
105   */
106  if(base == 0) {
107    base = 10;
108  }
109
110  /* Loop handling digits. */
111  value = 0;
112  overflow = 0;
113  for(i = get_char(end[0], base);
114      i != -1;
115      end++, i = get_char(end[0], base)) {
116    newval = base * value + i;
117    if(newval < value) {
118      /* We've overflowed. */
119      overflow = 1;
120      break;
121    }
122    else
123      value = newval;
124  }
125
126  if(!overflow) {
127    if(is_negative) {
128      /* Fix the sign. */
129      value *= -1;
130    }
131  }
132  else {
133    if(is_negative)
134      value = CURL_OFF_T_MIN;
135    else
136      value = CURL_OFF_T_MAX;
137
138    SET_ERRNO(ERANGE);
139  }
140
141  if(endptr)
142    *endptr = end;
143
144  return value;
145}
146
147/**
148 * Returns the value of c in the given base, or -1 if c cannot
149 * be interpreted properly in that base (i.e., is out of range,
150 * is a null, etc.).
151 *
152 * @param c     the character to interpret according to base
153 * @param base  the base in which to interpret c
154 *
155 * @return  the value of c in base, or -1 if c isn't in range
156 */
157static int get_char(char c, int base)
158{
159#ifndef NO_RANGE_TEST
160  int value = -1;
161  if(c <= '9' && c >= '0') {
162    value = c - '0';
163  }
164  else if(c <= 'Z' && c >= 'A') {
165    value = c - 'A' + 10;
166  }
167  else if(c <= 'z' && c >= 'a') {
168    value = c - 'a' + 10;
169  }
170#else
171  const char * cp;
172  int value;
173
174  cp = memchr(valchars, c, 10 + 26 + 26);
175
176  if(!cp)
177    return -1;
178
179  value = cp - valchars;
180
181  if(value >= 10 + 26)
182    value -= 26;                /* Lowercase. */
183#endif
184
185  if(value >= base) {
186    value = -1;
187  }
188
189  return value;
190}
191#endif  /* Only present if we need strtoll, but don't have it. */
192