git.saurik.com Git - apple/libc.git/blob

1 /*-

4 *

5 * Redistribution and use in source and binary forms, with or without

6 * modification, are permitted provided that the following conditions

7 * are met:

8 * 1. Redistributions of source code must retain the above copyright

9 * notice, this list of conditions and the following disclaimer.

10 * 2. Redistributions in binary form must reproduce the above copyright

11 * notice, this list of conditions and the following disclaimer in the

12 * documentation and/or other materials provided with the distribution.

13 * 4. Neither the name of the University nor the names of its contributors

14 * may be used to endorse or promote products derived from this software

15 * without specific prior written permission.

16 *

17 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND

18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

20 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE

21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

27 * SUCH DAMAGE.

28 */

30 #include <sys/cdefs.h>

31 __FBSDID("$FreeBSD: src/lib/libc/locale/wcstol.c,v 1.2 2007/01/09 00:28:01 imp Exp $");

33 #include "xlocale_private.h"

35 #include <ctype.h>

36 #include <errno.h>

37 #include <limits.h>

38 #include <wchar.h>

39 #include <wctype.h>

41 /*

42 * Convert a string to a long integer.

43 */

44 long

 wcstol_l(const wchar_t * __restrict nptr, wchar_t ** __restrict endptr,

46 int base, locale_t loc)

47 {

48 const wchar_t *s;

49 unsigned long acc;

50 wchar_t c;

51 unsigned long cutoff;

52 int neg, any, cutlim;

54 NORMALIZE_LOCALE(loc);

55 /*

56 * See strtol for comments as to the logic used.

57 */

58 s = nptr;

59 do {

60 c = *s++;

         } while (iswspace_l(c, loc));

         if (c == '-') {

63 neg = 1;

64 c = *s++;

65 } else {

66 neg = 0;

                 if (c == L'+')

68 c = *s++;

69 }

         if ((base == 0 || base == 16) &&

             c == L'0' && (*s == L'x' || *s == L'X')) {

72 c = s[1];

73 s += 2;

74 base = 16;

75 }

         if (base == 0)

                 base = c == L'0' ? 8 : 10;

78 acc = any = 0;

         if (base < 2 || base > 36)

80 goto noconv;

         cutoff = neg ? (unsigned long)-(LONG_MIN + LONG_MAX) + LONG_MAX

83 : LONG_MAX;

84 cutlim = cutoff % base;

85 cutoff /= base;

86 for ( ; ; c = *s++) {

87 #ifdef notyet

                 if (iswdigit_l(c, loc))

                         c = digittoint_l(c, loc);

90 else

91 #endif

                 if (c >= L'0' && c <= L'9')

93 c -= L'0';

                 else if (c >= L'A' && c <= L'Z')

                         c -= L'A' - 10;

                 else if (c >= L'a' && c <= L'z')

                         c -= L'a' - 10;

98 else

99 break;

100 if (c >= base)

101 break;

                 if (any < 0 || acc > cutoff || (acc == cutoff && c > cutlim))

103 any = -1;

104 else {

105 any = 1;

106 acc *= base;

107 acc += c;

108 }

109 }

         if (any < 0) {

111 acc = neg ? LONG_MIN : LONG_MAX;

112 errno = ERANGE;

113 } else if (!any) {

114 noconv:

115 errno = EINVAL;

116 } else if (neg)

117 acc = -acc;

118 if (endptr != NULL)

                 *endptr = (wchar_t *)(any ? s - 1 : nptr);

120 return (acc);

121 }

122

123 long

 wcstol(const wchar_t * __restrict nptr, wchar_t ** __restrict endptr, int base)

125 {

         return wcstol_l(nptr, endptr, base, __current_locale());

127 }