static void read_numeric(lexer_state *ls, token_info *info)
{
int seen_dot = 0;
for(;;) {
if(ls->current == '.') {
if(seen_dot) break;
seen_dot = 1;
}
else if(!lisdigit(ls->current)) {
// bad number
if(lisalpha(ls->current)) {
while(lisalnum(ls->current)) save_and_next(ls);
lexer_error(ls, "badly formatted number");
}
// end of number
break;
}
save_and_next(ls);
}
long double number = strtold(ls->buf->buf, NULL);
info->string = strdup(ls->buf->buf);
info->number = number;
}
static int read_id_or_reserved(lexer_state *ls, token_info *info)
{
while(lisalnum(ls->current)) save_and_next(ls);
// check for reserved words
for(int i = 0; i < NUM_TOK; ++i) {
if(!strcmp(ls->buf->buf, tokens[i]))
return FIRST_TOK + i;
}
// not a reserved word, must be an id
info->string = strdup(ls->buf->buf);
return TK_ID;
}
long
strtol(const char *str, char **nptr, int base)
{
long val;
int c;
int xx, neg = 0;
long multmin;
long limit;
const char **ptr = (const char **)nptr;
const unsigned char *ustr = (const unsigned char *)str;
if (ptr != (const char **)0)
*ptr = (char *)ustr; /* in case no number is formed */
if (base < 0 || base > MBASE || base == 1) {
errno = EINVAL;
return (0); /* base is invalid -- should be a fatal error */
}
if (!isalnum(c = *ustr)) {
while (isspace(c))
c = *++ustr;
switch (c) {
case '-':
neg++;
/* FALLTHROUGH */
case '+':
c = *++ustr;
}
}
if (base == 0)
if (c != '0')
base = 10;
else if (ustr[1] == 'x' || ustr[1] == 'X')
base = 16;
else
base = 8;
/*
* for any base > 10, the digits incrementally following
* 9 are assumed to be "abc...z" or "ABC...Z"
*/
if (!lisalnum(c) || (xx = DIGIT(c)) >= base)
return (0); /* no number formed */
if (base == 16 && c == '0' && (ustr[1] == 'x' || ustr[1] == 'X') &&
isxdigit(ustr[2]))
c = *(ustr += 2); /* skip over leading "0x" or "0X" */
/* this code assumes that abs(LONG_MIN) >= abs(LONG_MAX) */
if (neg)
limit = LONG_MIN;
else
limit = -LONG_MAX;
multmin = limit / (long)base;
val = -DIGIT(c);
for (c = *++ustr; lisalnum(c) && (xx = DIGIT(c)) < base; ) {
/* accumulate neg avoids surprises near MAXLONG */
if (val < multmin)
goto overflow;
val *= base;
if (val < limit + xx)
goto overflow;
val -= xx;
c = *++ustr;
}
if (ptr != (const char **)0)
*ptr = (char *)ustr;
return (neg ? val : -val);
overflow:
for (c = *++ustr; lisalnum(c) && (xx = DIGIT(c)) < base; (c = *++ustr))
;
if (ptr != (const char **)0)
*ptr = (char *)ustr;
errno = ERANGE;
return (neg ? LONG_MIN : LONG_MAX);
}
/* All Rights Reserved */
#if defined(_KERNEL) && !defined(_BOOT)
#include <sys/errno.h>
#else /* _KERNEL && !_BOOT */
#if !defined(_BOOT) && !defined(_KMDB)
#include "lint.h"
#endif /* !_BOOT && !_KMDB */
#include <errno.h>
#include <ctype.h>
#include <limits.h>
#include <stdlib.h>
#endif /* _KERNEL && !_BOOT */
#include "strtolctype.h"
#include <sys/types.h>
#if defined(_KERNEL) && !defined(_BOOT)
int
ddi_strtoull(const char *str, char **nptr, int base, u_longlong_t *result)
#else /* _KERNEL && !_BOOT */
u_longlong_t
strtoull(const char *str, char **nptr, int base)
#endif /* _KERNEL && !_BOOT */
{
u_longlong_t val;
int c;
int xx;
int neg = 0;
u_longlong_t multmax;
const char **ptr = (const char **)nptr;
const unsigned char *ustr = (const unsigned char *)str;
if (ptr != (const char **)0)
*ptr = (char *)ustr; /* in case no number is formed */
if (base < 0 || base > MBASE || base == 1) {
/* base is invalid -- should be a fatal error */
#if defined(_KERNEL) && !defined(_BOOT)
return (EINVAL);
#else /* _KERNEL && !_BOOT */
errno = EINVAL;
return (0);
#endif /* _KERNEL && !_BOOT */
}
if (!isalnum(c = *ustr)) {
while (isspace(c))
c = *++ustr;
switch (c) {
case '-':
neg++;
/* FALLTHROUGH */
case '+':
c = *++ustr;
}
}
if (base == 0)
if (c != '0')
base = 10;
else if (ustr[1] == 'x' || ustr[1] == 'X')
base = 16;
else
base = 8;
/*
* for any base > 10, the digits incrementally following
* 9 are assumed to be "abc...z" or "ABC...Z"
*/
if (!lisalnum(c) || (xx = DIGIT(c)) >= base) {
/* no number formed */
#if defined(_KERNEL) && !defined(_BOOT)
return (EINVAL);
#else /* _KERNEL && !_BOOT */
return (0);
#endif /* _KERNEL && !_BOOT */
}
if (base == 16 && c == '0' && (ustr[1] == 'x' || ustr[1] == 'X') &&
isxdigit(ustr[2]))
c = *(ustr += 2); /* skip over leading "0x" or "0X" */
multmax = ULLONG_MAX / (u_longlong_t)base;
val = DIGIT(c);
for (c = *++ustr; lisalnum(c) && (xx = DIGIT(c)) < base; ) {
if (val > multmax)
goto overflow;
val *= base;
if (ULLONG_MAX - val < xx)
goto overflow;
val += xx;
c = *++ustr;
}
if (ptr != (const char **)0)
*ptr = (char *)ustr;
#if defined(_KERNEL) && !defined(_BOOT)
*result = neg ? -val : val;
return (0);
#else /* _KERNEL && !_BOOT */
return (neg ? -val : val);
#endif /* _KERNEL && !_BOOT */
overflow:
for (c = *++ustr; lisalnum(c) && (xx = DIGIT(c)) < base; (c = *++ustr))
;
if (ptr != (const char **)0)
*ptr = (char *)ustr;
#if defined(_KERNEL) && !defined(_BOOT)
return (ERANGE);
#else /* _KERNEL && !_BOOT */
errno = ERANGE;
return (ULLONG_MAX);
#endif /* _KERNEL && !_BOOT */
}
