database/mariadb
1
0
Fork 0
mirror of https://github.com/MariaDB/server.git synced 2025-08-05 13:16:09 +03:00
Code Activity

UCS2 fixes

Browse Source
This commit is contained in:
bar@bar.mysql.r18.ru
2002-11-29 14:04:36 +04:00
parent ec7c4ea78d
commit 4b46b19937
1 changed files with 240 additions and 243 deletions
Download Patch File Download Diff File Expand all files Collapse all files

423
strings/ctype-utf8.c
View File

@@ -2555,202 +2555,205 @@ bs:
ulong my_strntoul_ucs2(CHARSET_INFO *cs, ulong my_strntoul_ucs2(CHARSET_INFO *cs,
const char *nptr, uint l, char **endptr, int base) const char *nptr, uint l, char **endptr, int base)
{ {
int negative; int negative=0;
register ulong cutoff;
register unsigned int cutlim;
register ulong i;
register const char *s;
register unsigned char c;
const char *save, *e;
int overflow; int overflow;
int cnv;
my_wc_t wc;
register unsigned int cutlim;
register ulong cutoff;
register ulong res;
register const char *s=nptr;
register const char *e=nptr+l;
const char *save;
if (base < 0 || base == 1 || base > 36) do {
if ((cnv=cs->mb_wc(cs,&wc,s,e))>0)
{
switch (wc)
{
case ' ' : break;
case '\t': break;
case '-' : negative= !negative; break;
case '+' : break;
default : goto bs;
}
}
else /* No more characters or bad multibyte sequence */
{
if (endptr !=NULL )
*endptr = (char*)s;
my_errno = (cnv==MY_CS_ILSEQ) ? EILSEQ : EDOM;
return 0;
}
s+=cnv;
} while (1);
bs:
if (base <= 0 || base == 1 || base > 36)
base = 10; base = 10;
s = nptr; overflow = 0;
e = nptr+l; res = 0;
for( ; s<e && my_isspace(cs, *s); s++);
if (s==e)
{
goto noconv;
}
if (*s == '-')
{
negative = 1;
++s;
}
else if (*s == '+')
{
negative = 0;
++s;
}
else
negative = 0;
if (base == 16 && s[0] == '0' && my_toupper(cs,s[1]) == 'X')
s += 2;
if (base == 0)
{
if (*s == '0')
{
if (my_toupper(cs,s[1]) == 'X')
{
s += 2;
base = 16;
}
else
base = 8;
}
else
base = 10;
}
save = s; save = s;
cutoff = ((ulong)~0L) / (unsigned long int) base; cutoff = ((ulong)~0L) / (unsigned long int) base;
cutlim = (uint) (((ulong)~0L) % (unsigned long int) base); cutlim = (uint) (((ulong)~0L) % (unsigned long int) base);
overflow = 0;
i = 0;
for (c = *s; s != e; c = *++s) do {
if ((cnv=cs->mb_wc(cs,&wc,s,e))>0)
{ {
if (my_isdigit(cs,c)) s+=cnv;
c -= '0'; if ( wc>='0' && wc<='9')
else if (my_isalpha(cs,c)) wc -= '0';
c = my_toupper(cs,c) - 'A' + 10; else if ( wc>='A' && wc<='Z')
wc = wc - 'A' + 10;
else if ( wc>='a' && wc<='z')
wc = wc - 'a' + 10;
else else
break; break;
if (c >= base) if ((int)wc >= base)
break; break;
if (i > cutoff || (i == cutoff && c > cutlim)) if (res > cutoff || (res == cutoff && wc > cutlim))
overflow = 1; overflow = 1;
else else
{ {
i *= (ulong) base; res *= (ulong) base;
i += c; res += wc;
} }
} }
else if (cnv==MY_CS_ILSEQ)
if (s == save) {
goto noconv; if (endptr !=NULL )
*endptr = (char*)s;
my_errno=EILSEQ;
return 0;
}
else
{
/* No more characters */
break;
}
} while(1);
if (endptr != NULL) if (endptr != NULL)
*endptr = (char *) s; *endptr = (char *) s;
if (s == save)
{
my_errno=EDOM;
return 0L;
}
if (overflow) if (overflow)
{ {
my_errno=(ERANGE); my_errno=(ERANGE);
return ((ulong)~0L); return ((ulong)~0L);
} }
return (negative ? -((long) i) : (long) i); return (negative ? -((long) res) : (long) res);
noconv:
my_errno=(EDOM);
if (endptr != NULL)
*endptr = (char *) nptr;
return 0L;
} }
longlong my_strntoll_ucs2(CHARSET_INFO *cs __attribute__((unused)),
longlong my_strntoll_ucs2(CHARSET_INFO *cs,
const char *nptr, uint l, char **endptr, int base) const char *nptr, uint l, char **endptr, int base)
{ {
int negative; int negative=0;
int overflow;
int cnv;
my_wc_t wc;
register ulonglong cutoff; register ulonglong cutoff;
register unsigned int cutlim; register unsigned int cutlim;
register ulonglong i; register ulonglong res;
register const char *s, *e; register const char *s=nptr;
register unsigned char c; register const char *e=nptr+l;
const char *save; const char *save;
int overflow;
if (base < 0 || base == 1 || base > 36) do {
if ((cnv=cs->mb_wc(cs,&wc,s,e))>0)
{
switch (wc)
{
case ' ' : break;
case '\t': break;
case '-' : negative= !negative; break;
case '+' : break;
default : goto bs;
}
}
else /* No more characters or bad multibyte sequence */
{
if (endptr !=NULL )
*endptr = (char*)s;
my_errno = (cnv==MY_CS_ILSEQ) ? EILSEQ : EDOM;
return 0;
}
s+=cnv;
} while (1);
bs:
if (base <= 0 || base == 1 || base > 36)
base = 10; base = 10;
s = nptr; overflow = 0;
e = nptr+l; res = 0;
for(; s<e && my_isspace(cs,*s); s++);
if (s == e)
{
goto noconv;
}
if (*s == '-')
{
negative = 1;
++s;
}
else if (*s == '+')
{
negative = 0;
++s;
}
else
negative = 0;
if (base == 16 && s[0] == '0' && my_toupper(cs,s[1]) == 'X')
s += 2;
if (base == 0)
{
if (*s == '0')
{
if (my_toupper(cs,s[1]) == 'X')
{
s += 2;
base = 16;
}
else
base = 8;
}
else
base = 10;
}
save = s; save = s;
cutoff = (~(ulonglong) 0) / (unsigned long int) base; cutoff = (~(ulonglong) 0) / (unsigned long int) base;
cutlim = (uint) ((~(ulonglong) 0) % (unsigned long int) base); cutlim = (uint) ((~(ulonglong) 0) % (unsigned long int) base);
overflow = 0; do {
i = 0; if ((cnv=cs->mb_wc(cs,&wc,s,e))>0)
for (c = *s; s != e; c = *++s)
{ {
if (my_isdigit(cs,c)) s+=cnv;
c -= '0'; if ( wc>='0' && wc<='9')
else if (my_isalpha(cs,c)) wc -= '0';
c = my_toupper(cs,c) - 'A' + 10; else if ( wc>='A' && wc<='Z')
wc = wc - 'A' + 10;
else if ( wc>='a' && wc<='z')
wc = wc - 'a' + 10;
else else
break; break;
if (c >= base) if ((int)wc >= base)
break; break;
if (i > cutoff || (i == cutoff && c > cutlim)) if (res > cutoff || (res == cutoff && wc > cutlim))
overflow = 1; overflow = 1;
else else
{ {
i *= (ulonglong) base; res *= (ulonglong) base;
i += c; res += wc;
} }
} }
else if (cnv==MY_CS_ILSEQ)
if (s == save) {
goto noconv; if (endptr !=NULL )
*endptr = (char*)s;
my_errno=EILSEQ;
return 0;
}
else
{
/* No more characters */
break;
}
} while(1);
if (endptr != NULL) if (endptr != NULL)
*endptr = (char *) s; *endptr = (char *) s;
if (s == save)
{
my_errno=EDOM;
return 0L;
}
if (negative) if (negative)
{ {
if (i > (ulonglong) LONGLONG_MIN) if (res > (ulonglong) LONGLONG_MIN)
overflow = 1; overflow = 1;
} }
else if (i > (ulonglong) LONGLONG_MAX) else if (res > (ulonglong) LONGLONG_MAX)
overflow = 1; overflow = 1;
if (overflow) if (overflow)
@@ -2759,120 +2762,114 @@ longlong my_strntoll_ucs2(CHARSET_INFO *cs __attribute__((unused)),
return negative ? LONGLONG_MIN : LONGLONG_MAX; return negative ? LONGLONG_MIN : LONGLONG_MAX;
} }
return (negative ? -((longlong) i) : (longlong) i); return (negative ? -((longlong)res) : (longlong)res);
noconv:
my_errno=(EDOM);
if (endptr != NULL)
*endptr = (char *) nptr;
return 0L;
} }
ulonglong my_strntoull_ucs2(CHARSET_INFO *cs, ulonglong my_strntoull_ucs2(CHARSET_INFO *cs,
const char *nptr, uint l, char **endptr, int base) const char *nptr, uint l, char **endptr, int base)
{ {
int negative; int negative=0;
int overflow;
int cnv;
my_wc_t wc;
register ulonglong cutoff; register ulonglong cutoff;
register unsigned int cutlim; register unsigned int cutlim;
register ulonglong i; register ulonglong res;
register const char *s, *e; register const char *s=nptr;
register unsigned char c; register const char *e=nptr+l;
const char *save; const char *save;
int overflow;
if (base < 0 || base == 1 || base > 36) do {
if ((cnv=cs->mb_wc(cs,&wc,s,e))>0)
{
switch (wc)
{
case ' ' : break;
case '\t': break;
case '-' : negative= !negative; break;
case '+' : break;
default : goto bs;
}
}
else /* No more characters or bad multibyte sequence */
{
if (endptr !=NULL )
*endptr = (char*)s;
my_errno = (cnv==MY_CS_ILSEQ) ? EILSEQ : EDOM;
return 0;
}
s+=cnv;
} while (1);
bs:
if (base <= 0 || base == 1 || base > 36)
base = 10; base = 10;
s = nptr; overflow = 0;
e = nptr+l; res = 0;
for(; s<e && my_isspace(cs,*s); s++);
if (s == e)
{
goto noconv;
}
if (*s == '-')
{
negative = 1;
++s;
}
else if (*s == '+')
{
negative = 0;
++s;
}
else
negative = 0;
if (base == 16 && s[0] == '0' && my_toupper(cs,s[1]) == 'X')
s += 2;
if (base == 0)
{
if (*s == '0')
{
if (my_toupper(cs,s[1]) == 'X')
{
s += 2;
base = 16;
}
else
base = 8;
}
else
base = 10;
}
save = s; save = s;
cutoff = (~(ulonglong) 0) / (unsigned long int) base; cutoff = (~(ulonglong) 0) / (unsigned long int) base;
cutlim = (uint) ((~(ulonglong) 0) % (unsigned long int) base); cutlim = (uint) ((~(ulonglong) 0) % (unsigned long int) base);
overflow = 0; do {
i = 0; if ((cnv=cs->mb_wc(cs,&wc,s,e))>0)
for (c = *s; s != e; c = *++s)
{ {
if (my_isdigit(cs,c)) s+=cnv;
c -= '0'; if ( wc>='0' && wc<='9')
else if (my_isalpha(cs,c)) wc -= '0';
c = my_toupper(cs,c) - 'A' + 10; else if ( wc>='A' && wc<='Z')
wc = wc - 'A' + 10;
else if ( wc>='a' && wc<='z')
wc = wc - 'a' + 10;
else else
break; break;
if (c >= base) if ((int)wc >= base)
break; break;
if (i > cutoff || (i == cutoff && c > cutlim)) if (res > cutoff || (res == cutoff && wc > cutlim))
overflow = 1; overflow = 1;
else else
{ {
i *= (ulonglong) base; res *= (ulonglong) base;
i += c; res += wc;
} }
} }
else if (cnv==MY_CS_ILSEQ)
if (s == save) {
goto noconv; if (endptr !=NULL )
*endptr = (char*)s;
my_errno=EILSEQ;
return 0;
}
else
{
/* No more characters */
break;
}
} while(1);
if (endptr != NULL) if (endptr != NULL)
*endptr = (char *) s; *endptr = (char *) s;
if (s == save)
{
my_errno=EDOM;
return 0L;
}
if (overflow) if (overflow)
{ {
my_errno=(ERANGE); my_errno=(ERANGE);
return (~(ulonglong) 0); return (~(ulonglong) 0);
} }
return (negative ? -((longlong) i) : (longlong) i); return (negative ? -((longlong) res) : (longlong) res);
noconv:
my_errno=(EDOM);
if (endptr != NULL)
*endptr = (char *) nptr;
return 0L;
} }
double my_strntod_ucs2(CHARSET_INFO *cs __attribute__((unused)), double my_strntod_ucs2(CHARSET_INFO *cs __attribute__((unused)),
const char *nptr, uint l, char **endptr) const char *nptr, uint l, char **endptr)
{ {