stdlib.c 29 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177
  1. /* Copyright (C) 2002 Manuel Novoa III
  2. * From my (incomplete) stdlib library for linux and (soon) elks.
  3. *
  4. * This library is free software; you can redistribute it and/or
  5. * modify it under the terms of the GNU Library General Public
  6. * License as published by the Free Software Foundation; either
  7. * version 2 of the License, or (at your option) any later version.
  8. *
  9. * This library is distributed in the hope that it will be useful,
  10. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  12. * Library General Public License for more details.
  13. *
  14. * You should have received a copy of the GNU Library General Public
  15. * License along with this library; if not, write to the Free
  16. * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. */
  18. /* ATTENTION! ATTENTION! ATTENTION! ATTENTION! ATTENTION!
  19. *
  20. * This code is currently under development. Also, I plan to port
  21. * it to elks which is a 16-bit environment with a fairly limited
  22. * compiler. Therefore, please refrain from modifying this code
  23. * and, instead, pass any bug-fixes, etc. to me. Thanks. Manuel
  24. *
  25. * ATTENTION! ATTENTION! ATTENTION! ATTENTION! ATTENTION! */
  26. /* Oct 29, 2002
  27. * Fix a couple of 'restrict' bugs in mbstowcs and wcstombs.
  28. *
  29. * Nov 21, 2002
  30. * Add wscto{inttype} functions.
  31. */
  32. #define _ISOC99_SOURCE /* for ULLONG primarily... */
  33. #include <limits.h>
  34. #include <stdint.h>
  35. /* Work around gcc's refusal to create aliases.
  36. * TODO: Add in a define to disable the aliases? */
  37. #if UINT_MAX == ULONG_MAX
  38. #ifdef L_labs
  39. #define abs __ignore_abs
  40. #endif
  41. #ifdef L_atol
  42. #define atoi __ignore_atoi
  43. #endif
  44. #endif
  45. #if defined(ULLONG_MAX) && (ULLONG_MAX == ULONG_MAX)
  46. #ifdef L_labs
  47. #define llabs __ignore_llabs
  48. #endif
  49. #ifdef L_atol
  50. #define atoll __ignore_atoll
  51. #endif
  52. #ifdef L_strtol
  53. #define strtoll __ignore_strtoll
  54. #endif
  55. #ifdef L_strtoul
  56. #define strtoull __ignore_strtoull
  57. #endif
  58. #ifdef L_wcstol
  59. #define wcstoll __ignore_wcstoll
  60. #endif
  61. #ifdef L_wcstoul
  62. #define wcstoull __ignore_wcstoull
  63. #endif
  64. #ifdef strtol_l
  65. #define strtoll_l __ignore_strtoll_l
  66. #endif
  67. #ifdef L_strtoul_l
  68. #define strtoull_l __ignore_strtoull_l
  69. #endif
  70. #ifdef L_wcstol_l
  71. #define wcstoll_l __ignore_wcstoll_l
  72. #endif
  73. #ifdef L_wcstoul_l
  74. #define wcstoull_l __ignore_wcstoull_l
  75. #endif
  76. #endif
  77. #if defined(ULLONG_MAX) && (ULLONG_MAX == UINTMAX_MAX)
  78. #if defined L_labs || defined L_llabs
  79. #define imaxabs __ignore_imaxabs
  80. #endif
  81. #endif
  82. #include <stdint.h>
  83. #include <inttypes.h>
  84. #include <ctype.h>
  85. #include <errno.h>
  86. #include <assert.h>
  87. #include <unistd.h>
  88. #include <stdlib.h>
  89. #include <locale.h>
  90. #ifdef __UCLIBC_HAS_WCHAR__
  91. #include <wchar.h>
  92. #include <wctype.h>
  93. #include <bits/uClibc_uwchar.h>
  94. #ifdef __UCLIBC_HAS_XLOCALE__
  95. #include <xlocale.h>
  96. #endif /* __UCLIBC_HAS_XLOCALE__ */
  97. /* TODO: clean up the following... */
  98. #if WCHAR_MAX > 0xffffUL
  99. #define UTF_8_MAX_LEN 6
  100. #else
  101. #define UTF_8_MAX_LEN 3
  102. #endif
  103. #ifdef __UCLIBC_HAS_LOCALE__
  104. #define ENCODING ((__UCLIBC_CURLOCALE_DATA).encoding)
  105. #ifndef __CTYPE_HAS_UTF_8_LOCALES
  106. #ifdef L_mblen
  107. /* emit only once */
  108. #warning __CTYPE_HAS_UTF_8_LOCALES not set!
  109. #endif
  110. #endif
  111. #else /* __UCLIBC_HAS_LOCALE__ */
  112. #ifdef __UCLIBC_MJN3_ONLY__
  113. #ifdef L_mblen
  114. /* emit only once */
  115. #warning devel checks
  116. #endif
  117. #endif
  118. #ifdef __CTYPE_HAS_8_BIT_LOCALES
  119. #error __CTYPE_HAS_8_BIT_LOCALES is defined!
  120. #endif
  121. #ifdef __CTYPE_HAS_UTF_8_LOCALES
  122. #error __CTYPE_HAS_UTF_8_LOCALES is defined!
  123. #endif
  124. #endif
  125. #endif /* __UCLIBC_HAS_LOCALE__ */
  126. /**********************************************************************/
  127. #ifdef __UCLIBC_HAS_XLOCALE__
  128. extern unsigned long
  129. _stdlib_strto_l_l(register const char * __restrict str,
  130. char ** __restrict endptr, int base, int sflag,
  131. __locale_t locale_arg) attribute_hidden;
  132. #if defined(ULLONG_MAX)
  133. extern unsigned long long
  134. _stdlib_strto_ll_l(register const char * __restrict str,
  135. char ** __restrict endptr, int base, int sflag,
  136. __locale_t locale_arg) attribute_hidden;
  137. #endif
  138. #ifdef __UCLIBC_HAS_WCHAR__
  139. extern unsigned long
  140. _stdlib_wcsto_l_l(register const wchar_t * __restrict str,
  141. wchar_t ** __restrict endptr, int base, int sflag,
  142. __locale_t locale_arg) attribute_hidden;
  143. #if defined(ULLONG_MAX)
  144. extern unsigned long long
  145. _stdlib_wcsto_ll_l(register const wchar_t * __restrict str,
  146. wchar_t ** __restrict endptr, int base, int sflag,
  147. __locale_t locale_arg) attribute_hidden;
  148. #endif
  149. #endif /* __UCLIBC_HAS_WCHAR__ */
  150. #endif /* __UCLIBC_HAS_XLOCALE__ */
  151. extern unsigned long
  152. _stdlib_strto_l(register const char * __restrict str,
  153. char ** __restrict endptr, int base, int sflag) attribute_hidden;
  154. #if defined(ULLONG_MAX)
  155. extern unsigned long long
  156. _stdlib_strto_ll(register const char * __restrict str,
  157. char ** __restrict endptr, int base, int sflag) attribute_hidden;
  158. #endif
  159. #ifdef __UCLIBC_HAS_WCHAR__
  160. extern unsigned long
  161. _stdlib_wcsto_l(register const wchar_t * __restrict str,
  162. wchar_t ** __restrict endptr, int base, int sflag) attribute_hidden;
  163. #if defined(ULLONG_MAX)
  164. extern unsigned long long
  165. _stdlib_wcsto_ll(register const wchar_t * __restrict str,
  166. wchar_t ** __restrict endptr, int base, int sflag) attribute_hidden;
  167. #endif
  168. #endif /* __UCLIBC_HAS_WCHAR__ */
  169. /**********************************************************************/
  170. #ifdef L_atof
  171. libc_hidden_proto(strtod)
  172. double atof(const char *nptr)
  173. {
  174. return strtod(nptr, (char **) NULL);
  175. }
  176. #endif
  177. /**********************************************************************/
  178. #ifdef L_abs
  179. #if INT_MAX < LONG_MAX
  180. int abs(int j)
  181. {
  182. return (j >= 0) ? j : -j;
  183. }
  184. #endif /* INT_MAX < LONG_MAX */
  185. #endif
  186. /**********************************************************************/
  187. #ifdef L_labs
  188. long int labs(long int j)
  189. {
  190. return (j >= 0) ? j : -j;
  191. }
  192. #if UINT_MAX == ULONG_MAX
  193. #undef abs
  194. extern __typeof(labs) abs;
  195. strong_alias(labs,abs)
  196. #endif
  197. #if defined(ULLONG_MAX) && (ULLONG_MAX == ULONG_MAX)
  198. #undef llabs
  199. extern __typeof(labs) llabs;
  200. strong_alias(labs,llabs)
  201. #endif
  202. #if ULONG_MAX == UINTMAX_MAX
  203. #undef imaxabs
  204. extern __typeof(labs) imaxabs;
  205. strong_alias(labs,imaxabs)
  206. #endif
  207. #endif
  208. /**********************************************************************/
  209. #ifdef L_llabs
  210. #if defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX)
  211. long long int llabs(long long int j)
  212. {
  213. return (j >= 0) ? j : -j;
  214. }
  215. #if (ULLONG_MAX == UINTMAX_MAX)
  216. #undef imaxabs
  217. extern __typeof(llabs) imaxabs;
  218. strong_alias(llabs,imaxabs)
  219. #endif
  220. #endif /* defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX) */
  221. #endif
  222. /**********************************************************************/
  223. #ifdef L_atoi
  224. #if INT_MAX < LONG_MAX
  225. libc_hidden_proto(strtol)
  226. libc_hidden_proto(atoi)
  227. int atoi(const char *nptr)
  228. {
  229. return (int) strtol(nptr, (char **) NULL, 10);
  230. }
  231. libc_hidden_def(atoi)
  232. #endif /* INT_MAX < LONG_MAX */
  233. #endif
  234. /**********************************************************************/
  235. #ifdef L_atol
  236. libc_hidden_proto(strtol)
  237. libc_hidden_proto(atol)
  238. long atol(const char *nptr)
  239. {
  240. return strtol(nptr, (char **) NULL, 10);
  241. }
  242. libc_hidden_def(atol)
  243. #if UINT_MAX == ULONG_MAX
  244. #undef atoi
  245. extern __typeof(atol) atoi;
  246. libc_hidden_proto(atoi)
  247. strong_alias(atol,atoi)
  248. libc_hidden_def(atoi)
  249. #endif
  250. #if defined(ULLONG_MAX) && (ULLONG_MAX == ULONG_MAX)
  251. #undef atoll
  252. extern __typeof(atol) atoll;
  253. strong_alias(atol,atoll)
  254. #endif
  255. #endif
  256. /**********************************************************************/
  257. #ifdef L_atoll
  258. #if defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX)
  259. libc_hidden_proto(strtoll)
  260. long long atoll(const char *nptr)
  261. {
  262. return strtoll(nptr, (char **) NULL, 10);
  263. }
  264. #endif /* defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX) */
  265. #endif
  266. /**********************************************************************/
  267. #if defined(L_strtol) || defined(L_strtol_l)
  268. libc_hidden_proto(__XL_NPP(strtol))
  269. long __XL_NPP(strtol)(const char * __restrict str, char ** __restrict endptr,
  270. int base __LOCALE_PARAM)
  271. {
  272. return __XL_NPP(_stdlib_strto_l)(str, endptr, base, 1 __LOCALE_ARG);
  273. }
  274. libc_hidden_def(__XL_NPP(strtol))
  275. #if (ULONG_MAX == UINTMAX_MAX) && !defined(L_strtol_l)
  276. strong_alias(strtol,strtoimax)
  277. #endif
  278. #if defined(ULLONG_MAX) && (ULLONG_MAX == ULONG_MAX)
  279. #ifdef L_strtol_l
  280. #undef strtoll_l
  281. #else
  282. #undef strtoll
  283. #endif
  284. extern __typeof(strtol) __XL_NPP(strtoll);
  285. libc_hidden_proto(__XL_NPP(strtoll))
  286. strong_alias(__XL_NPP(strtol),__XL_NPP(strtoll))
  287. libc_hidden_def(__XL_NPP(strtoll))
  288. #endif
  289. #endif
  290. /**********************************************************************/
  291. #if defined(L_strtoll) || defined(L_strtoll_l)
  292. #if defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX)
  293. libc_hidden_proto(__XL_NPP(strtoll))
  294. long long __XL_NPP(strtoll)(const char * __restrict str,
  295. char ** __restrict endptr, int base
  296. __LOCALE_PARAM)
  297. {
  298. return (long long) __XL_NPP(_stdlib_strto_ll)(str, endptr, base, 1 __LOCALE_ARG);
  299. }
  300. libc_hidden_def(__XL_NPP(strtoll))
  301. #if !defined(L_strtoll_l)
  302. #if (ULLONG_MAX == UINTMAX_MAX)
  303. strong_alias(strtoll,strtoimax)
  304. #endif
  305. strong_alias(strtoll,strtoq)
  306. #endif
  307. #endif /* defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX) */
  308. #endif
  309. /**********************************************************************/
  310. #if defined(L_strtoul) || defined(L_strtoul_l)
  311. libc_hidden_proto(__XL_NPP(strtoul))
  312. unsigned long __XL_NPP(strtoul)(const char * __restrict str,
  313. char ** __restrict endptr, int base
  314. __LOCALE_PARAM)
  315. {
  316. return __XL_NPP(_stdlib_strto_l)(str, endptr, base, 0 __LOCALE_ARG);
  317. }
  318. libc_hidden_def(__XL_NPP(strtoul))
  319. #if (ULONG_MAX == UINTMAX_MAX) && !defined(L_strtoul_l)
  320. strong_alias(strtoul,strtoumax)
  321. #endif
  322. #if defined(ULLONG_MAX) && (ULLONG_MAX == ULONG_MAX)
  323. #ifdef L_strtoul_l
  324. #undef strtoull_l
  325. #else
  326. #undef strtoull
  327. #endif
  328. extern __typeof(strtoul) __XL_NPP(strtoull);
  329. libc_hidden_proto(__XL_NPP(strtoull))
  330. strong_alias(__XL_NPP(strtoul),__XL_NPP(strtoull))
  331. libc_hidden_def(__XL_NPP(strtoull))
  332. #endif
  333. #endif
  334. /**********************************************************************/
  335. #if defined(L_strtoull) || defined(L_strtoull_l)
  336. #if defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX)
  337. libc_hidden_proto(__XL_NPP(strtoull))
  338. unsigned long long __XL_NPP(strtoull)(const char * __restrict str,
  339. char ** __restrict endptr, int base
  340. __LOCALE_PARAM)
  341. {
  342. return __XL_NPP(_stdlib_strto_ll)(str, endptr, base, 0 __LOCALE_ARG);
  343. }
  344. libc_hidden_def(__XL_NPP(strtoull))
  345. #if !defined(L_strtoull_l)
  346. #if (ULLONG_MAX == UINTMAX_MAX)
  347. strong_alias(strtoull,strtoumax)
  348. #endif
  349. strong_alias(strtoull,strtouq)
  350. #endif
  351. #endif /* defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX) */
  352. #endif
  353. /**********************************************************************/
  354. /* Support routines follow */
  355. /**********************************************************************/
  356. /* Set if we want errno set appropriately. */
  357. /* NOTE: Implies _STRTO_ENDPTR below */
  358. #define _STRTO_ERRNO 1
  359. /* Set if we want support for the endptr arg. */
  360. /* Implied by _STRTO_ERRNO. */
  361. #define _STRTO_ENDPTR 1
  362. #if _STRTO_ERRNO
  363. #undef _STRTO_ENDPTR
  364. #define _STRTO_ENDPTR 1
  365. #define SET_ERRNO(X) __set_errno(X)
  366. #else
  367. #define SET_ERRNO(X) ((void)(X)) /* keep side effects */
  368. #endif
  369. /**********************************************************************/
  370. #if defined(L__stdlib_wcsto_l) || defined(L__stdlib_wcsto_l_l)
  371. #ifndef L__stdlib_strto_l
  372. #define L__stdlib_strto_l
  373. #endif
  374. #endif
  375. #if defined(L__stdlib_strto_l) || defined(L__stdlib_strto_l_l)
  376. #if defined(L__stdlib_wcsto_l) || defined(L__stdlib_wcsto_l_l)
  377. #define _stdlib_strto_l _stdlib_wcsto_l
  378. #define _stdlib_strto_l_l _stdlib_wcsto_l_l
  379. #define Wchar wchar_t
  380. #define Wuchar __uwchar_t
  381. #ifdef __UCLIBC_DO_XLOCALE
  382. #define ISSPACE(C) iswspace_l((C), locale_arg)
  383. libc_hidden_proto(iswspace_l)
  384. #else
  385. #define ISSPACE(C) iswspace((C))
  386. libc_hidden_proto(iswspace)
  387. #endif
  388. #else /* defined(L__stdlib_wcsto_l) || defined(L__stdlib_wcsto_l_l) */
  389. #define Wchar char
  390. #define Wuchar unsigned char
  391. #ifdef __UCLIBC_DO_XLOCALE
  392. #define ISSPACE(C) isspace_l((C), locale_arg)
  393. libc_hidden_proto(isspace_l)
  394. #else
  395. #define ISSPACE(C) isspace((C))
  396. libc_hidden_proto(isspace)
  397. #endif
  398. #endif /* defined(L__stdlib_wcsto_l) || defined(L__stdlib_wcsto_l_l) */
  399. #if defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE)
  400. unsigned long attribute_hidden _stdlib_strto_l(register const Wchar * __restrict str,
  401. Wchar ** __restrict endptr, int base,
  402. int sflag)
  403. {
  404. return _stdlib_strto_l_l(str, endptr, base, sflag, __UCLIBC_CURLOCALE);
  405. }
  406. #else /* defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE) */
  407. /* This is the main work fuction which handles both strtol (sflag = 1) and
  408. * strtoul (sflag = 0). */
  409. #ifdef __UCLIBC_HAS_XLOCALE__
  410. libc_hidden_proto(__ctype_b_loc)
  411. #elif defined __UCLIBC_HAS_CTYPE_TABLES__
  412. libc_hidden_proto(__ctype_b)
  413. #endif
  414. unsigned long attribute_hidden __XL_NPP(_stdlib_strto_l)(register const Wchar * __restrict str,
  415. Wchar ** __restrict endptr, int base,
  416. int sflag __LOCALE_PARAM)
  417. {
  418. unsigned long number, cutoff;
  419. #if _STRTO_ENDPTR
  420. const Wchar *fail_char;
  421. #define SET_FAIL(X) fail_char = (X)
  422. #else
  423. #define SET_FAIL(X) ((void)(X)) /* Keep side effects. */
  424. #endif
  425. unsigned char negative, digit, cutoff_digit;
  426. assert(((unsigned int)sflag) <= 1);
  427. SET_FAIL(str);
  428. while (ISSPACE(*str)) { /* Skip leading whitespace. */
  429. ++str;
  430. }
  431. /* Handle optional sign. */
  432. negative = 0;
  433. switch (*str) {
  434. case '-': negative = 1; /* Fall through to increment str. */
  435. case '+': ++str;
  436. }
  437. if (!(base & ~0x10)) { /* Either dynamic (base = 0) or base 16. */
  438. base += 10; /* Default is 10 (26). */
  439. if (*str == '0') {
  440. SET_FAIL(++str);
  441. base -= 2; /* Now base is 8 or 16 (24). */
  442. if ((0x20|(*str)) == 'x') { /* WARNING: assumes ascii. */
  443. ++str;
  444. base += base; /* Base is 16 (16 or 48). */
  445. }
  446. }
  447. if (base > 16) { /* Adjust in case base wasn't dynamic. */
  448. base = 16;
  449. }
  450. }
  451. number = 0;
  452. if (((unsigned)(base - 2)) < 35) { /* Legal base. */
  453. cutoff_digit = ULONG_MAX % base;
  454. cutoff = ULONG_MAX / base;
  455. do {
  456. digit = ((Wuchar)(*str - '0') <= 9)
  457. ? /* 0..9 */ (*str - '0')
  458. : /* else */ (((Wuchar)(0x20 | *str) >= 'a') /* WARNING: assumes ascii. */
  459. ? /* >= A/a */ ((Wuchar)(0x20 | *str) - ('a' - 10))
  460. : /* else */ 40 /* bad value */);
  461. if (digit >= base) {
  462. break;
  463. }
  464. SET_FAIL(++str);
  465. if ((number > cutoff)
  466. || ((number == cutoff) && (digit > cutoff_digit))) {
  467. number = ULONG_MAX;
  468. negative &= sflag;
  469. SET_ERRNO(ERANGE);
  470. } else {
  471. number = number * base + digit;
  472. }
  473. } while (1);
  474. }
  475. #if _STRTO_ENDPTR
  476. if (endptr) {
  477. *endptr = (Wchar *) fail_char;
  478. }
  479. #endif
  480. {
  481. unsigned long tmp = (negative
  482. ? ((unsigned long)(-(1+LONG_MIN)))+1
  483. : LONG_MAX);
  484. if (sflag && (number > tmp)) {
  485. number = tmp;
  486. SET_ERRNO(ERANGE);
  487. }
  488. }
  489. return negative ? (unsigned long)(-((long)number)) : number;
  490. }
  491. #endif /* defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE) */
  492. #endif
  493. /**********************************************************************/
  494. #if defined(L__stdlib_wcsto_ll) || defined(L__stdlib_wcsto_ll_l)
  495. #ifndef L__stdlib_strto_ll
  496. #define L__stdlib_strto_ll
  497. #endif
  498. #endif
  499. #if defined(L__stdlib_strto_ll) || defined(L__stdlib_strto_ll_l)
  500. #if defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX)
  501. #if defined(L__stdlib_wcsto_ll) || defined(L__stdlib_wcsto_ll_l)
  502. #define _stdlib_strto_ll _stdlib_wcsto_ll
  503. #define _stdlib_strto_ll_l _stdlib_wcsto_ll_l
  504. #define Wchar wchar_t
  505. #define Wuchar __uwchar_t
  506. #ifdef __UCLIBC_DO_XLOCALE
  507. #define ISSPACE(C) iswspace_l((C), locale_arg)
  508. libc_hidden_proto(iswspace_l)
  509. #else
  510. #define ISSPACE(C) iswspace((C))
  511. libc_hidden_proto(iswspace)
  512. #endif
  513. #else /* defined(L__stdlib_wcsto_ll) || defined(L__stdlib_wcsto_ll_l) */
  514. #define Wchar char
  515. #define Wuchar unsigned char
  516. #ifdef __UCLIBC_DO_XLOCALE
  517. #define ISSPACE(C) isspace_l((C), locale_arg)
  518. libc_hidden_proto(isspace_l)
  519. #else
  520. #define ISSPACE(C) isspace((C))
  521. libc_hidden_proto(isspace)
  522. #endif
  523. #endif /* defined(L__stdlib_wcsto_ll) || defined(L__stdlib_wcsto_ll_l) */
  524. #if defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE)
  525. unsigned long long attribute_hidden _stdlib_strto_ll(register const Wchar * __restrict str,
  526. Wchar ** __restrict endptr, int base,
  527. int sflag)
  528. {
  529. return _stdlib_strto_ll_l(str, endptr, base, sflag, __UCLIBC_CURLOCALE);
  530. }
  531. #else /* defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE) */
  532. #if !defined __UCLIBC_HAS_XLOCALE__ && defined __UCLIBC_HAS_CTYPE_TABLES__
  533. libc_hidden_proto(__ctype_b)
  534. #endif
  535. /* This is the main work fuction which handles both strtoll (sflag = 1) and
  536. * strtoull (sflag = 0). */
  537. unsigned long long attribute_hidden __XL_NPP(_stdlib_strto_ll)(register const Wchar * __restrict str,
  538. Wchar ** __restrict endptr, int base,
  539. int sflag __LOCALE_PARAM)
  540. {
  541. unsigned long long number;
  542. #if _STRTO_ENDPTR
  543. const Wchar *fail_char;
  544. #define SET_FAIL(X) fail_char = (X)
  545. #else
  546. #define SET_FAIL(X) ((void)(X)) /* Keep side effects. */
  547. #endif
  548. unsigned int n1;
  549. unsigned char negative, digit;
  550. assert(((unsigned int)sflag) <= 1);
  551. SET_FAIL(str);
  552. while (ISSPACE(*str)) { /* Skip leading whitespace. */
  553. ++str;
  554. }
  555. /* Handle optional sign. */
  556. negative = 0;
  557. switch (*str) {
  558. case '-': negative = 1; /* Fall through to increment str. */
  559. case '+': ++str;
  560. }
  561. if (!(base & ~0x10)) { /* Either dynamic (base = 0) or base 16. */
  562. base += 10; /* Default is 10 (26). */
  563. if (*str == '0') {
  564. SET_FAIL(++str);
  565. base -= 2; /* Now base is 8 or 16 (24). */
  566. if ((0x20|(*str)) == 'x') { /* WARNING: assumes ascii. */
  567. ++str;
  568. base += base; /* Base is 16 (16 or 48). */
  569. }
  570. }
  571. if (base > 16) { /* Adjust in case base wasn't dynamic. */
  572. base = 16;
  573. }
  574. }
  575. number = 0;
  576. if (((unsigned)(base - 2)) < 35) { /* Legal base. */
  577. do {
  578. digit = ((Wuchar)(*str - '0') <= 9)
  579. ? /* 0..9 */ (*str - '0')
  580. : /* else */ (((Wuchar)(0x20 | *str) >= 'a') /* WARNING: assumes ascii. */
  581. ? /* >= A/a */ ((Wuchar)(0x20 | *str) - ('a' - 10))
  582. : /* else */ 40 /* bad value */);
  583. if (digit >= base) {
  584. break;
  585. }
  586. SET_FAIL(++str);
  587. #if 1
  588. /* Optional, but speeds things up in the usual case. */
  589. if (number <= (ULLONG_MAX >> 6)) {
  590. number = number * base + digit;
  591. } else
  592. #endif
  593. {
  594. n1 = ((unsigned char) number) * base + digit;
  595. number = (number >> CHAR_BIT) * base;
  596. if (number + (n1 >> CHAR_BIT) <= (ULLONG_MAX >> CHAR_BIT)) {
  597. number = (number << CHAR_BIT) + n1;
  598. } else { /* Overflow. */
  599. number = ULLONG_MAX;
  600. negative &= sflag;
  601. SET_ERRNO(ERANGE);
  602. }
  603. }
  604. } while (1);
  605. }
  606. #if _STRTO_ENDPTR
  607. if (endptr) {
  608. *endptr = (Wchar *) fail_char;
  609. }
  610. #endif
  611. {
  612. unsigned long long tmp = ((negative)
  613. ? ((unsigned long long)(-(1+LLONG_MIN)))+1
  614. : LLONG_MAX);
  615. if (sflag && (number > tmp)) {
  616. number = tmp;
  617. SET_ERRNO(ERANGE);
  618. }
  619. }
  620. return negative ? (unsigned long long)(-((long long)number)) : number;
  621. }
  622. #endif /* defined(__UCLIBC_HAS_XLOCALE__) && !defined(__UCLIBC_DO_XLOCALE) */
  623. #endif /* defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX) */
  624. #endif
  625. /**********************************************************************/
  626. /* Made _Exit() an alias for _exit(), as per C99. */
  627. /* #ifdef L__Exit */
  628. /* libc_hidden_proto(_exit) */
  629. /* void _Exit(int status) */
  630. /* { */
  631. /* _exit(status); */
  632. /* } */
  633. /* #endif */
  634. /**********************************************************************/
  635. #ifdef L_bsearch
  636. void *bsearch(const void *key, const void *base, size_t /* nmemb */ high,
  637. size_t size, int (*compar)(const void *, const void *))
  638. {
  639. register char *p;
  640. size_t low;
  641. size_t mid;
  642. int r;
  643. if (size > 0) { /* TODO: change this to an assert?? */
  644. low = 0;
  645. while (low < high) {
  646. mid = low + ((high - low) >> 1); /* Avoid possible overflow here. */
  647. p = ((char *)base) + mid * size; /* Could overflow here... */
  648. r = (*compar)(key, p); /* but that's an application problem! */
  649. if (r > 0) {
  650. low = mid + 1;
  651. } else if (r < 0) {
  652. high = mid;
  653. } else {
  654. return p;
  655. }
  656. }
  657. }
  658. return NULL;
  659. }
  660. #endif
  661. /**********************************************************************/
  662. #ifdef L_qsort
  663. /* This code is derived from a public domain shell sort routine by
  664. * Ray Gardner and found in Bob Stout's snippets collection. The
  665. * original code is included below in an #if 0/#endif block.
  666. *
  667. * I modified it to avoid the possibility of overflow in the wgap
  668. * calculation, as well as to reduce the generated code size with
  669. * bcc and gcc. */
  670. libc_hidden_proto(qsort)
  671. void qsort(void *base,
  672. size_t nel,
  673. size_t width,
  674. int (*comp)(const void *, const void *))
  675. {
  676. size_t wgap, i, j, k;
  677. char tmp;
  678. if ((nel > 1) && (width > 0)) {
  679. assert(nel <= ((size_t)(-1)) / width); /* check for overflow */
  680. wgap = 0;
  681. do {
  682. wgap = 3 * wgap + 1;
  683. } while (wgap < (nel-1)/3);
  684. /* From the above, we know that either wgap == 1 < nel or */
  685. /* ((wgap-1)/3 < (int) ((nel-1)/3) <= (nel-1)/3 ==> wgap < nel. */
  686. wgap *= width; /* So this can not overflow if wnel doesn't. */
  687. nel *= width; /* Convert nel to 'wnel' */
  688. do {
  689. i = wgap;
  690. do {
  691. j = i;
  692. do {
  693. register char *a;
  694. register char *b;
  695. j -= wgap;
  696. a = j + ((char *)base);
  697. b = a + wgap;
  698. if ((*comp)(a, b) <= 0) {
  699. break;
  700. }
  701. k = width;
  702. do {
  703. tmp = *a;
  704. *a++ = *b;
  705. *b++ = tmp;
  706. } while (--k);
  707. } while (j >= wgap);
  708. i += width;
  709. } while (i < nel);
  710. wgap = (wgap - width)/3;
  711. } while (wgap);
  712. }
  713. }
  714. libc_hidden_def(qsort)
  715. /* ---------- original snippets version below ---------- */
  716. #if 0
  717. /*
  718. ** ssort() -- Fast, small, qsort()-compatible Shell sort
  719. **
  720. ** by Ray Gardner, public domain 5/90
  721. */
  722. #include <stddef.h>
  723. void ssort(void *base,
  724. size_t nel,
  725. size_t width,
  726. int (*comp)(const void *, const void *))
  727. {
  728. size_t wnel, gap, wgap, i, j, k;
  729. char *a, *b, tmp;
  730. wnel = width * nel;
  731. for (gap = 0; ++gap < nel;)
  732. gap *= 3;
  733. while ((gap /= 3) != 0) {
  734. wgap = width * gap;
  735. for (i = wgap; i < wnel; i += width) {
  736. for (j = i - wgap; ;j -= wgap) {
  737. a = j + (char *)base;
  738. b = a + wgap;
  739. if ((*comp)(a, b) <= 0)
  740. break;
  741. k = width;
  742. do {
  743. tmp = *a;
  744. *a++ = *b;
  745. *b++ = tmp;
  746. } while (--k);
  747. if (j < wgap)
  748. break;
  749. }
  750. }
  751. }
  752. }
  753. #endif
  754. #endif
  755. /**********************************************************************/
  756. #ifdef L__stdlib_mb_cur_max
  757. libc_hidden_proto(_stdlib_mb_cur_max)
  758. size_t _stdlib_mb_cur_max(void)
  759. {
  760. #ifdef __CTYPE_HAS_UTF_8_LOCALES
  761. return __UCLIBC_CURLOCALE_DATA.mb_cur_max;
  762. #else
  763. #ifdef __CTYPE_HAS_8_BIT_LOCALES
  764. #ifdef __UCLIBC_MJN3_ONLY__
  765. #warning need to change this when/if transliteration is implemented
  766. #endif
  767. #endif
  768. return 1;
  769. #endif
  770. }
  771. libc_hidden_def(_stdlib_mb_cur_max)
  772. #endif
  773. #ifdef __UCLIBC_HAS_LOCALE__
  774. /*
  775. * The following function return 1 if the encoding is stateful, 0 if stateless.
  776. * To note, until now all the supported encoding are stateless.
  777. */
  778. static inline int is_stateful(unsigned char encoding)
  779. {
  780. switch (encoding)
  781. {
  782. case __ctype_encoding_7_bit:
  783. case __ctype_encoding_utf8:
  784. case __ctype_encoding_8_bit:
  785. return 0;
  786. default:
  787. assert(0);
  788. return -1;
  789. }
  790. }
  791. #else
  792. #define is_stateful(encoding) 0
  793. #endif
  794. /**********************************************************************/
  795. #ifdef L_mblen
  796. libc_hidden_proto(mbrlen)
  797. int mblen(register const char *s, size_t n)
  798. {
  799. static mbstate_t state;
  800. size_t r;
  801. if (!s) {
  802. state.__mask = 0;
  803. /*
  804. In this case we have to return 0 because the only multibyte supported encoding
  805. is utf-8, that is a stateless encoding. See mblen() documentation.
  806. */
  807. return is_stateful(ENCODING);
  808. }
  809. if (*s == '\0')
  810. /* According to the ISO C 89 standard this is the expected behaviour. */
  811. return 0;
  812. if ((r = mbrlen(s, n, &state)) == (size_t) -2) {
  813. /* TODO: Should we set an error state? */
  814. state.__wc = 0xffffU; /* Make sure we're in an error state. */
  815. return -1; /* TODO: Change error code above? */
  816. }
  817. return r;
  818. }
  819. #endif
  820. /**********************************************************************/
  821. #ifdef L_mbtowc
  822. libc_hidden_proto(mbrtowc)
  823. int mbtowc(wchar_t *__restrict pwc, register const char *__restrict s, size_t n)
  824. {
  825. static mbstate_t state;
  826. size_t r;
  827. if (!s) {
  828. state.__mask = 0;
  829. /*
  830. In this case we have to return 0 because the only multibyte supported encoding
  831. is utf-8, that is a stateless encoding. See mbtowc() documentation.
  832. */
  833. return is_stateful(ENCODING);
  834. }
  835. if (*s == '\0')
  836. /* According to the ISO C 89 standard this is the expected behaviour. */
  837. return 0;
  838. if ((r = mbrtowc(pwc, s, n, &state)) == (size_t) -2) {
  839. /* TODO: Should we set an error state? */
  840. state.__wc = 0xffffU; /* Make sure we're in an error state. */
  841. return -1; /* TODO: Change error code above? */
  842. }
  843. return r;
  844. }
  845. #endif
  846. /**********************************************************************/
  847. #ifdef L_wctomb
  848. /* Note: We completely ignore state in all currently supported conversions. */
  849. libc_hidden_proto(wcrtomb)
  850. int wctomb(register char *__restrict s, wchar_t swc)
  851. {
  852. return (!s)
  853. ?
  854. /*
  855. In this case we have to return 0 because the only multibyte supported encoding
  856. is utf-8, that is a stateless encoding. See wctomb() documentation.
  857. */
  858. is_stateful(ENCODING)
  859. : ((ssize_t) wcrtomb(s, swc, NULL));
  860. }
  861. #endif
  862. /**********************************************************************/
  863. #ifdef L_mbstowcs
  864. libc_hidden_proto(mbsrtowcs)
  865. size_t mbstowcs(wchar_t * __restrict pwcs, const char * __restrict s, size_t n)
  866. {
  867. mbstate_t state;
  868. const char *e = s; /* Needed because of restrict. */
  869. state.__mask = 0; /* Always start in initial shift state. */
  870. return mbsrtowcs(pwcs, &e, n, &state);
  871. }
  872. #endif
  873. /**********************************************************************/
  874. #ifdef L_wcstombs
  875. /* Note: We completely ignore state in all currently supported conversions. */
  876. libc_hidden_proto(wcsrtombs)
  877. size_t wcstombs(char * __restrict s, const wchar_t * __restrict pwcs, size_t n)
  878. {
  879. const wchar_t *e = pwcs; /* Needed because of restrict. */
  880. return wcsrtombs(s, &e, n, NULL);
  881. }
  882. #endif
  883. /**********************************************************************/
  884. #if defined(L_wcstol) || defined(L_wcstol_l)
  885. libc_hidden_proto(__XL_NPP(wcstol))
  886. long __XL_NPP(wcstol)(const wchar_t * __restrict str,
  887. wchar_t ** __restrict endptr, int base __LOCALE_PARAM)
  888. {
  889. return __XL_NPP(_stdlib_wcsto_l)(str, endptr, base, 1 __LOCALE_ARG);
  890. }
  891. libc_hidden_def(__XL_NPP(wcstol))
  892. #if (ULONG_MAX == UINTMAX_MAX) && !defined(L_wcstol_l)
  893. strong_alias(wcstol,wcstoimax)
  894. #endif
  895. #if defined(ULLONG_MAX) && (ULLONG_MAX == ULONG_MAX)
  896. #ifdef L_wcstol_l
  897. #undef wcstoll_l
  898. #else
  899. #undef wcstoll
  900. #endif
  901. extern __typeof(wcstol) __XL_NPP(wcstoll);
  902. libc_hidden_proto(__XL_NPP(wcstoll))
  903. strong_alias(__XL_NPP(wcstol),__XL_NPP(wcstoll))
  904. libc_hidden_def(__XL_NPP(wcstoll))
  905. #endif
  906. #endif
  907. /**********************************************************************/
  908. #if defined(L_wcstoll) || defined(L_wcstoll_l)
  909. #if defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX)
  910. libc_hidden_proto(__XL_NPP(wcstoll))
  911. long long __XL_NPP(wcstoll)(const wchar_t * __restrict str,
  912. wchar_t ** __restrict endptr, int base
  913. __LOCALE_PARAM)
  914. {
  915. return (long long) __XL_NPP(_stdlib_wcsto_ll)(str, endptr, base, 1 __LOCALE_ARG);
  916. }
  917. libc_hidden_def(__XL_NPP(wcstoll))
  918. #if !defined(L_wcstoll_l)
  919. #if (ULLONG_MAX == UINTMAX_MAX)
  920. strong_alias(wcstoll,wcstoimax)
  921. #endif
  922. strong_alias(wcstoll,wcstoq)
  923. #endif
  924. #endif /* defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX) */
  925. #endif
  926. /**********************************************************************/
  927. #if defined(L_wcstoul) || defined(L_wcstoul_l)
  928. libc_hidden_proto(__XL_NPP(wcstoul))
  929. unsigned long __XL_NPP(wcstoul)(const wchar_t * __restrict str,
  930. wchar_t ** __restrict endptr, int base
  931. __LOCALE_PARAM)
  932. {
  933. return __XL_NPP(_stdlib_wcsto_l)(str, endptr, base, 0 __LOCALE_ARG);
  934. }
  935. libc_hidden_def(__XL_NPP(wcstoul))
  936. #if (ULONG_MAX == UINTMAX_MAX) && !defined(L_wcstoul_l)
  937. strong_alias(wcstoul,wcstoumax)
  938. #endif
  939. #if defined(ULLONG_MAX) && (ULLONG_MAX == ULONG_MAX)
  940. #ifdef L_wcstoul_l
  941. #undef wcstoull_l
  942. #else
  943. #undef wcstoull
  944. #endif
  945. extern __typeof(wcstoul) __XL_NPP(wcstoull);
  946. libc_hidden_proto(__XL_NPP(wcstoull))
  947. strong_alias(__XL_NPP(wcstoul),__XL_NPP(wcstoull))
  948. libc_hidden_def(__XL_NPP(wcstoull))
  949. #endif
  950. #endif
  951. /**********************************************************************/
  952. #if defined(L_wcstoull) || defined(L_wcstoull_l)
  953. #if defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX)
  954. libc_hidden_proto(__XL_NPP(wcstoull))
  955. unsigned long long __XL_NPP(wcstoull)(const wchar_t * __restrict str,
  956. wchar_t ** __restrict endptr, int base
  957. __LOCALE_PARAM)
  958. {
  959. return __XL_NPP(_stdlib_wcsto_ll)(str, endptr, base, 0 __LOCALE_ARG);
  960. }
  961. libc_hidden_def(__XL_NPP(wcstoull))
  962. #if !defined(L_wcstoull_l)
  963. #if (ULLONG_MAX == UINTMAX_MAX)
  964. strong_alias(wcstoull,wcstoumax)
  965. #endif
  966. strong_alias(wcstoull,wcstouq)
  967. #endif
  968. #endif /* defined(ULLONG_MAX) && (LLONG_MAX > LONG_MAX) */
  969. #endif
  970. /**********************************************************************/