| /* |
| SDL - Simple DirectMedia Layer |
| Copyright (C) 1997-2009 Sam Lantinga |
| |
| This library is free software; you can redistribute it and/or |
| modify it under the terms of the GNU Lesser General Public |
| License as published by the Free Software Foundation; either |
| version 2.1 of the License, or (at your option) any later version. |
| |
| This library is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| Lesser General Public License for more details. |
| |
| You should have received a copy of the GNU Lesser General Public |
| License along with this library; if not, write to the Free Software |
| Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
| |
| Sam Lantinga |
| slouken@libsdl.org |
| */ |
| #include "SDL_config.h" |
| |
| /* This file contains portable string manipulation functions for SDL */ |
| |
| #include "SDL_stdinc.h" |
| |
| |
| #define SDL_isupperhex(X) (((X) >= 'A') && ((X) <= 'F')) |
| #define SDL_islowerhex(X) (((X) >= 'a') && ((X) <= 'f')) |
| |
| #if !defined(HAVE_SSCANF) || !defined(HAVE_STRTOL) |
| static size_t SDL_ScanLong(const char *text, int radix, long *valuep) |
| { |
| const char *textstart = text; |
| long value = 0; |
| SDL_bool negative = SDL_FALSE; |
| |
| if ( *text == '-' ) { |
| negative = SDL_TRUE; |
| ++text; |
| } |
| if ( radix == 16 && SDL_strncmp(text, "0x", 2) == 0 ) { |
| text += 2; |
| } |
| for ( ; ; ) { |
| int v; |
| if ( SDL_isdigit((unsigned char) *text) ) { |
| v = *text - '0'; |
| } else if ( radix == 16 && SDL_isupperhex(*text) ) { |
| v = 10 + (*text - 'A'); |
| } else if ( radix == 16 && SDL_islowerhex(*text) ) { |
| v = 10 + (*text - 'a'); |
| } else { |
| break; |
| } |
| value *= radix; |
| value += v; |
| ++text; |
| } |
| if ( valuep ) { |
| if ( negative && value ) { |
| *valuep = -value; |
| } else { |
| *valuep = value; |
| } |
| } |
| return (text - textstart); |
| } |
| #endif |
| |
| #if !defined(HAVE_SSCANF) || !defined(HAVE_STRTOUL) || !defined(HAVE_STRTOD) |
| static size_t SDL_ScanUnsignedLong(const char *text, int radix, unsigned long *valuep) |
| { |
| const char *textstart = text; |
| unsigned long value = 0; |
| |
| if ( radix == 16 && SDL_strncmp(text, "0x", 2) == 0 ) { |
| text += 2; |
| } |
| for ( ; ; ) { |
| int v; |
| if ( SDL_isdigit((unsigned char) *text) ) { |
| v = *text - '0'; |
| } else if ( radix == 16 && SDL_isupperhex(*text) ) { |
| v = 10 + (*text - 'A'); |
| } else if ( radix == 16 && SDL_islowerhex(*text) ) { |
| v = 10 + (*text - 'a'); |
| } else { |
| break; |
| } |
| value *= radix; |
| value += v; |
| ++text; |
| } |
| if ( valuep ) { |
| *valuep = value; |
| } |
| return (text - textstart); |
| } |
| #endif |
| |
| #ifndef HAVE_SSCANF |
| static size_t SDL_ScanUintPtrT(const char *text, int radix, uintptr_t *valuep) |
| { |
| const char *textstart = text; |
| uintptr_t value = 0; |
| |
| if ( radix == 16 && SDL_strncmp(text, "0x", 2) == 0 ) { |
| text += 2; |
| } |
| for ( ; ; ) { |
| int v; |
| if ( SDL_isdigit((unsigned char) *text) ) { |
| v = *text - '0'; |
| } else if ( radix == 16 && SDL_isupperhex(*text) ) { |
| v = 10 + (*text - 'A'); |
| } else if ( radix == 16 && SDL_islowerhex(*text) ) { |
| v = 10 + (*text - 'a'); |
| } else { |
| break; |
| } |
| value *= radix; |
| value += v; |
| ++text; |
| } |
| if ( valuep ) { |
| *valuep = value; |
| } |
| return (text - textstart); |
| } |
| #endif |
| |
| #ifdef SDL_HAS_64BIT_TYPE |
| #if !defined(HAVE_SSCANF) || !defined(HAVE_STRTOLL) |
| static size_t SDL_ScanLongLong(const char *text, int radix, Sint64 *valuep) |
| { |
| const char *textstart = text; |
| Sint64 value = 0; |
| SDL_bool negative = SDL_FALSE; |
| |
| if ( *text == '-' ) { |
| negative = SDL_TRUE; |
| ++text; |
| } |
| if ( radix == 16 && SDL_strncmp(text, "0x", 2) == 0 ) { |
| text += 2; |
| } |
| for ( ; ; ) { |
| int v; |
| if ( SDL_isdigit((unsigned char) *text) ) { |
| v = *text - '0'; |
| } else if ( radix == 16 && SDL_isupperhex(*text) ) { |
| v = 10 + (*text - 'A'); |
| } else if ( radix == 16 && SDL_islowerhex(*text) ) { |
| v = 10 + (*text - 'a'); |
| } else { |
| break; |
| } |
| value *= radix; |
| value += v; |
| ++text; |
| } |
| if ( valuep ) { |
| if ( negative && value ) { |
| *valuep = -value; |
| } else { |
| *valuep = value; |
| } |
| } |
| return (text - textstart); |
| } |
| #endif |
| |
| #if !defined(HAVE_SSCANF) || !defined(HAVE_STRTOULL) |
| static size_t SDL_ScanUnsignedLongLong(const char *text, int radix, Uint64 *valuep) |
| { |
| const char *textstart = text; |
| Uint64 value = 0; |
| |
| if ( radix == 16 && SDL_strncmp(text, "0x", 2) == 0 ) { |
| text += 2; |
| } |
| for ( ; ; ) { |
| int v; |
| if ( SDL_isdigit((unsigned char) *text) ) { |
| v = *text - '0'; |
| } else if ( radix == 16 && SDL_isupperhex(*text) ) { |
| v = 10 + (*text - 'A'); |
| } else if ( radix == 16 && SDL_islowerhex(*text) ) { |
| v = 10 + (*text - 'a'); |
| } else { |
| break; |
| } |
| value *= radix; |
| value += v; |
| ++text; |
| } |
| if ( valuep ) { |
| *valuep = value; |
| } |
| return (text - textstart); |
| } |
| #endif |
| #endif /* SDL_HAS_64BIT_TYPE */ |
| |
| #if !defined(HAVE_SSCANF) || !defined(HAVE_STRTOD) |
| static size_t SDL_ScanFloat(const char *text, double *valuep) |
| { |
| const char *textstart = text; |
| unsigned long lvalue = 0; |
| double value = 0.0; |
| SDL_bool negative = SDL_FALSE; |
| |
| if ( *text == '-' ) { |
| negative = SDL_TRUE; |
| ++text; |
| } |
| text += SDL_ScanUnsignedLong(text, 10, &lvalue); |
| value += lvalue; |
| if ( *text == '.' ) { |
| int mult = 10; |
| ++text; |
| while ( SDL_isdigit((unsigned char) *text) ) { |
| lvalue = *text - '0'; |
| value += (double)lvalue / mult; |
| mult *= 10; |
| ++text; |
| } |
| } |
| if ( valuep ) { |
| if ( negative && value ) { |
| *valuep = -value; |
| } else { |
| *valuep = value; |
| } |
| } |
| return (text - textstart); |
| } |
| #endif |
| |
| #ifndef SDL_memset |
| void *SDL_memset(void *dst, int c, size_t len) |
| { |
| size_t left = (len % 4); |
| if ( len >= 4 ) { |
| Uint32 value = 0; |
| Uint32 *dstp = (Uint32 *)dst; |
| int i; |
| for (i = 0; i < 4; ++i) { |
| value <<= 8; |
| value |= c; |
| } |
| len /= 4; |
| while ( len-- ) { |
| *dstp++ = value; |
| } |
| } |
| if ( left > 0 ) { |
| Uint8 value = (Uint8)c; |
| Uint8 *dstp = (Uint8 *)dst; |
| switch(left) { |
| case 3: |
| *dstp++ = value; |
| case 2: |
| *dstp++ = value; |
| case 1: |
| *dstp++ = value; |
| } |
| } |
| return dst; |
| } |
| #endif |
| |
| #ifndef SDL_memcpy |
| void *SDL_memcpy(void *dst, const void *src, size_t len) |
| { |
| char *srcp = (char *)src; |
| char *dstp = (char *)dst; |
| while ( len-- ) { |
| *dstp++ = *srcp++; |
| } |
| return dst; |
| } |
| #endif |
| |
| #ifndef SDL_revcpy |
| void *SDL_revcpy(void *dst, const void *src, size_t len) |
| { |
| char *srcp = (char *)src; |
| char *dstp = (char *)dst; |
| srcp += len-1; |
| dstp += len-1; |
| while ( len-- ) { |
| *dstp-- = *srcp--; |
| } |
| return dst; |
| } |
| #endif |
| |
| #ifndef SDL_memcmp |
| int SDL_memcmp(const void *s1, const void *s2, size_t len) |
| { |
| char *s1p = (char *)s1; |
| char *s2p = (char *)s2; |
| while ( len-- ) { |
| if ( *s1p != *s2p ) { |
| return (*s1p - *s2p); |
| } |
| ++s1p; |
| ++s2p; |
| } |
| return 0; |
| } |
| #endif |
| |
| #ifndef HAVE_STRLEN |
| size_t SDL_strlen(const char *string) |
| { |
| size_t len = 0; |
| while ( *string++ ) { |
| ++len; |
| } |
| return len; |
| } |
| #endif |
| |
| #ifndef HAVE_STRLCPY |
| size_t SDL_strlcpy(char *dst, const char *src, size_t maxlen) |
| { |
| size_t srclen = SDL_strlen(src); |
| if ( maxlen > 0 ) { |
| size_t len = SDL_min(srclen, maxlen-1); |
| SDL_memcpy(dst, src, len); |
| dst[len] = '\0'; |
| } |
| return srclen; |
| } |
| #endif |
| |
| #ifndef HAVE_STRLCAT |
| size_t SDL_strlcat(char *dst, const char *src, size_t maxlen) |
| { |
| size_t dstlen = SDL_strlen(dst); |
| size_t srclen = SDL_strlen(src); |
| if ( dstlen < maxlen ) { |
| SDL_strlcpy(dst+dstlen, src, maxlen-dstlen); |
| } |
| return dstlen+srclen; |
| } |
| #endif |
| |
| #ifndef HAVE_STRDUP |
| char *SDL_strdup(const char *string) |
| { |
| size_t len = SDL_strlen(string)+1; |
| char *newstr = SDL_malloc(len); |
| if ( newstr ) { |
| SDL_strlcpy(newstr, string, len); |
| } |
| return newstr; |
| } |
| #endif |
| |
| #ifndef HAVE__STRREV |
| char *SDL_strrev(char *string) |
| { |
| size_t len = SDL_strlen(string); |
| char *a = &string[0]; |
| char *b = &string[len-1]; |
| len /= 2; |
| while ( len-- ) { |
| char c = *a; |
| *a++ = *b; |
| *b-- = c; |
| } |
| return string; |
| } |
| #endif |
| |
| #ifndef HAVE__STRUPR |
| char *SDL_strupr(char *string) |
| { |
| char *bufp = string; |
| while ( *bufp ) { |
| *bufp = SDL_toupper((unsigned char) *bufp); |
| ++bufp; |
| } |
| return string; |
| } |
| #endif |
| |
| #ifndef HAVE__STRLWR |
| char *SDL_strlwr(char *string) |
| { |
| char *bufp = string; |
| while ( *bufp ) { |
| *bufp = SDL_tolower((unsigned char) *bufp); |
| ++bufp; |
| } |
| return string; |
| } |
| #endif |
| |
| #ifndef HAVE_STRCHR |
| char *SDL_strchr(const char *string, int c) |
| { |
| while ( *string ) { |
| if ( *string == c ) { |
| return (char *)string; |
| } |
| ++string; |
| } |
| return NULL; |
| } |
| #endif |
| |
| #ifndef HAVE_STRRCHR |
| char *SDL_strrchr(const char *string, int c) |
| { |
| const char *bufp = string + SDL_strlen(string) - 1; |
| while ( bufp >= string ) { |
| if ( *bufp == c ) { |
| return (char *)bufp; |
| } |
| --bufp; |
| } |
| return NULL; |
| } |
| #endif |
| |
| #ifndef HAVE_STRSTR |
| char *SDL_strstr(const char *haystack, const char *needle) |
| { |
| size_t length = SDL_strlen(needle); |
| while ( *haystack ) { |
| if ( SDL_strncmp(haystack, needle, length) == 0 ) { |
| return (char *)haystack; |
| } |
| ++haystack; |
| } |
| return NULL; |
| } |
| #endif |
| |
| #if !defined(HAVE__LTOA) || !defined(HAVE__I64TOA) || \ |
| !defined(HAVE__ULTOA) || !defined(HAVE__UI64TOA) |
| static const char ntoa_table[] = { |
| '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', |
| 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', |
| 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', |
| 'U', 'V', 'W', 'X', 'Y', 'Z' |
| }; |
| #endif /* ntoa() conversion table */ |
| |
| #ifndef HAVE__LTOA |
| char *SDL_ltoa(long value, char *string, int radix) |
| { |
| char *bufp = string; |
| |
| if ( value < 0 ) { |
| *bufp++ = '-'; |
| value = -value; |
| } |
| if ( value ) { |
| while ( value > 0 ) { |
| *bufp++ = ntoa_table[value % radix]; |
| value /= radix; |
| } |
| } else { |
| *bufp++ = '0'; |
| } |
| *bufp = '\0'; |
| |
| /* The numbers went into the string backwards. :) */ |
| if ( *string == '-' ) { |
| SDL_strrev(string+1); |
| } else { |
| SDL_strrev(string); |
| } |
| |
| return string; |
| } |
| #endif |
| |
| #ifndef HAVE__ULTOA |
| char *SDL_ultoa(unsigned long value, char *string, int radix) |
| { |
| char *bufp = string; |
| |
| if ( value ) { |
| while ( value > 0 ) { |
| *bufp++ = ntoa_table[value % radix]; |
| value /= radix; |
| } |
| } else { |
| *bufp++ = '0'; |
| } |
| *bufp = '\0'; |
| |
| /* The numbers went into the string backwards. :) */ |
| SDL_strrev(string); |
| |
| return string; |
| } |
| #endif |
| |
| #ifndef HAVE_STRTOL |
| long SDL_strtol(const char *string, char **endp, int base) |
| { |
| size_t len; |
| long value; |
| |
| if ( !base ) { |
| if ( (SDL_strlen(string) > 2) && (SDL_strncmp(string, "0x", 2) == 0) ) { |
| base = 16; |
| } else { |
| base = 10; |
| } |
| } |
| |
| len = SDL_ScanLong(string, base, &value); |
| if ( endp ) { |
| *endp = (char *)string + len; |
| } |
| return value; |
| } |
| #endif |
| |
| #ifndef HAVE_STRTOUL |
| unsigned long SDL_strtoul(const char *string, char **endp, int base) |
| { |
| size_t len; |
| unsigned long value; |
| |
| if ( !base ) { |
| if ( (SDL_strlen(string) > 2) && (SDL_strncmp(string, "0x", 2) == 0) ) { |
| base = 16; |
| } else { |
| base = 10; |
| } |
| } |
| |
| len = SDL_ScanUnsignedLong(string, base, &value); |
| if ( endp ) { |
| *endp = (char *)string + len; |
| } |
| return value; |
| } |
| #endif |
| |
| #ifdef SDL_HAS_64BIT_TYPE |
| |
| #ifndef HAVE__I64TOA |
| char *SDL_lltoa(Sint64 value, char *string, int radix) |
| { |
| char *bufp = string; |
| |
| if ( value < 0 ) { |
| *bufp++ = '-'; |
| value = -value; |
| } |
| if ( value ) { |
| while ( value > 0 ) { |
| *bufp++ = ntoa_table[value % radix]; |
| value /= radix; |
| } |
| } else { |
| *bufp++ = '0'; |
| } |
| *bufp = '\0'; |
| |
| /* The numbers went into the string backwards. :) */ |
| if ( *string == '-' ) { |
| SDL_strrev(string+1); |
| } else { |
| SDL_strrev(string); |
| } |
| |
| return string; |
| } |
| #endif |
| |
| #ifndef HAVE__UI64TOA |
| char *SDL_ulltoa(Uint64 value, char *string, int radix) |
| { |
| char *bufp = string; |
| |
| if ( value ) { |
| while ( value > 0 ) { |
| *bufp++ = ntoa_table[value % radix]; |
| value /= radix; |
| } |
| } else { |
| *bufp++ = '0'; |
| } |
| *bufp = '\0'; |
| |
| /* The numbers went into the string backwards. :) */ |
| SDL_strrev(string); |
| |
| return string; |
| } |
| #endif |
| |
| #ifndef HAVE_STRTOLL |
| Sint64 SDL_strtoll(const char *string, char **endp, int base) |
| { |
| size_t len; |
| Sint64 value; |
| |
| if ( !base ) { |
| if ( (SDL_strlen(string) > 2) && (SDL_strncmp(string, "0x", 2) == 0) ) { |
| base = 16; |
| } else { |
| base = 10; |
| } |
| } |
| |
| len = SDL_ScanLongLong(string, base, &value); |
| if ( endp ) { |
| *endp = (char *)string + len; |
| } |
| return value; |
| } |
| #endif |
| |
| #ifndef HAVE_STRTOULL |
| Uint64 SDL_strtoull(const char *string, char **endp, int base) |
| { |
| size_t len; |
| Uint64 value; |
| |
| if ( !base ) { |
| if ( (SDL_strlen(string) > 2) && (SDL_strncmp(string, "0x", 2) == 0) ) { |
| base = 16; |
| } else { |
| base = 10; |
| } |
| } |
| |
| len = SDL_ScanUnsignedLongLong(string, base, &value); |
| if ( endp ) { |
| *endp = (char *)string + len; |
| } |
| return value; |
| } |
| #endif |
| |
| #endif /* SDL_HAS_64BIT_TYPE */ |
| |
| #ifndef HAVE_STRTOD |
| double SDL_strtod(const char *string, char **endp) |
| { |
| size_t len; |
| double value; |
| |
| len = SDL_ScanFloat(string, &value); |
| if ( endp ) { |
| *endp = (char *)string + len; |
| } |
| return value; |
| } |
| #endif |
| |
| #ifndef HAVE_STRCMP |
| int SDL_strcmp(const char *str1, const char *str2) |
| { |
| while (*str1 && *str2) { |
| if ( *str1 != *str2 ) |
| break; |
| ++str1; |
| ++str2; |
| } |
| return (int)((unsigned char)*str1 - (unsigned char)*str2); |
| } |
| #endif |
| |
| #ifndef HAVE_STRNCMP |
| int SDL_strncmp(const char *str1, const char *str2, size_t maxlen) |
| { |
| while ( *str1 && *str2 && maxlen ) { |
| if ( *str1 != *str2 ) |
| break; |
| ++str1; |
| ++str2; |
| --maxlen; |
| } |
| if ( ! maxlen ) { |
| return 0; |
| } |
| return (int)((unsigned char)*str1 - (unsigned char)*str2); |
| } |
| #endif |
| |
| #if !defined(HAVE_STRCASECMP) && !defined(HAVE__STRICMP) |
| int SDL_strcasecmp(const char *str1, const char *str2) |
| { |
| char a = 0; |
| char b = 0; |
| while ( *str1 && *str2 ) { |
| a = SDL_tolower((unsigned char) *str1); |
| b = SDL_tolower((unsigned char) *str2); |
| if ( a != b ) |
| break; |
| ++str1; |
| ++str2; |
| } |
| return (int)((unsigned char)a - (unsigned char)b); |
| } |
| #endif |
| |
| #if !defined(HAVE_STRNCASECMP) && !defined(HAVE__STRNICMP) |
| int SDL_strncasecmp(const char *str1, const char *str2, size_t maxlen) |
| { |
| char a = 0; |
| char b = 0; |
| while ( *str1 && *str2 && maxlen ) { |
| a = SDL_tolower((unsigned char) *str1); |
| b = SDL_tolower((unsigned char) *str2); |
| if ( a != b ) |
| break; |
| ++str1; |
| ++str2; |
| --maxlen; |
| } |
| return (int)((unsigned char)a - (unsigned char)b); |
| } |
| #endif |
| |
| #ifndef HAVE_SSCANF |
| int SDL_sscanf(const char *text, const char *fmt, ...) |
| { |
| va_list ap; |
| int retval = 0; |
| |
| va_start(ap, fmt); |
| while ( *fmt ) { |
| if ( *fmt == ' ' ) { |
| while ( SDL_isspace((unsigned char) *text) ) { |
| ++text; |
| } |
| ++fmt; |
| continue; |
| } |
| if ( *fmt == '%' ) { |
| SDL_bool done = SDL_FALSE; |
| long count = 0; |
| int radix = 10; |
| enum { |
| DO_SHORT, |
| DO_INT, |
| DO_LONG, |
| DO_LONGLONG |
| } inttype = DO_INT; |
| SDL_bool suppress = SDL_FALSE; |
| |
| ++fmt; |
| if ( *fmt == '%' ) { |
| if ( *text == '%' ) { |
| ++text; |
| ++fmt; |
| continue; |
| } |
| break; |
| } |
| if ( *fmt == '*' ) { |
| suppress = SDL_TRUE; |
| ++fmt; |
| } |
| fmt += SDL_ScanLong(fmt, 10, &count); |
| |
| if ( *fmt == 'c' ) { |
| if ( ! count ) { |
| count = 1; |
| } |
| if ( suppress ) { |
| while ( count-- ) { |
| ++text; |
| } |
| } else { |
| char *valuep = va_arg(ap, char*); |
| while ( count-- ) { |
| *valuep++ = *text++; |
| } |
| ++retval; |
| } |
| continue; |
| } |
| |
| while ( SDL_isspace((unsigned char) *text) ) { |
| ++text; |
| } |
| |
| /* FIXME: implement more of the format specifiers */ |
| while (!done) { |
| switch(*fmt) { |
| case '*': |
| suppress = SDL_TRUE; |
| break; |
| case 'h': |
| if ( inttype > DO_SHORT ) { |
| ++inttype; |
| } |
| break; |
| case 'l': |
| if ( inttype < DO_LONGLONG ) { |
| ++inttype; |
| } |
| break; |
| case 'I': |
| if ( SDL_strncmp(fmt, "I64", 3) == 0 ) { |
| fmt += 2; |
| inttype = DO_LONGLONG; |
| } |
| break; |
| case 'i': |
| { |
| int index = 0; |
| if ( text[index] == '-' ) { |
| ++index; |
| } |
| if ( text[index] == '0' ) { |
| if ( SDL_tolower((unsigned char) text[index+1]) == 'x' ) { |
| radix = 16; |
| } else { |
| radix = 8; |
| } |
| } |
| } |
| /* Fall through to %d handling */ |
| case 'd': |
| #ifdef SDL_HAS_64BIT_TYPE |
| if ( inttype == DO_LONGLONG ) { |
| Sint64 value; |
| text += SDL_ScanLongLong(text, radix, &value); |
| if ( ! suppress ) { |
| Sint64 *valuep = va_arg(ap, Sint64*); |
| *valuep = value; |
| ++retval; |
| } |
| } |
| else |
| #endif /* SDL_HAS_64BIT_TYPE */ |
| { |
| long value; |
| text += SDL_ScanLong(text, radix, &value); |
| if ( ! suppress ) { |
| switch (inttype) { |
| case DO_SHORT: |
| { short* valuep = va_arg(ap, short*); |
| *valuep = (short)value; |
| } |
| break; |
| case DO_INT: |
| { int* valuep = va_arg(ap, int*); |
| *valuep = (int)value; |
| } |
| break; |
| case DO_LONG: |
| { long* valuep = va_arg(ap, long*); |
| *valuep = value; |
| } |
| break; |
| case DO_LONGLONG: |
| /* Handled above */ |
| break; |
| } |
| ++retval; |
| } |
| } |
| done = SDL_TRUE; |
| break; |
| case 'o': |
| if ( radix == 10 ) { |
| radix = 8; |
| } |
| /* Fall through to unsigned handling */ |
| case 'x': |
| case 'X': |
| if ( radix == 10 ) { |
| radix = 16; |
| } |
| /* Fall through to unsigned handling */ |
| case 'u': |
| #ifdef SDL_HAS_64BIT_TYPE |
| if ( inttype == DO_LONGLONG ) { |
| Uint64 value; |
| text += SDL_ScanUnsignedLongLong(text, radix, &value); |
| if ( ! suppress ) { |
| Uint64 *valuep = va_arg(ap, Uint64*); |
| *valuep = value; |
| ++retval; |
| } |
| } |
| else |
| #endif /* SDL_HAS_64BIT_TYPE */ |
| { |
| unsigned long value; |
| text += SDL_ScanUnsignedLong(text, radix, &value); |
| if ( ! suppress ) { |
| switch (inttype) { |
| case DO_SHORT: |
| { short* valuep = va_arg(ap, short*); |
| *valuep = (short)value; |
| } |
| break; |
| case DO_INT: |
| { int* valuep = va_arg(ap, int*); |
| *valuep = (int)value; |
| } |
| break; |
| case DO_LONG: |
| { long* valuep = va_arg(ap, long*); |
| *valuep = value; |
| } |
| break; |
| case DO_LONGLONG: |
| /* Handled above */ |
| break; |
| } |
| ++retval; |
| } |
| } |
| done = SDL_TRUE; |
| break; |
| case 'p': |
| { |
| uintptr_t value; |
| text += SDL_ScanUintPtrT(text, 16, &value); |
| if ( ! suppress ) { |
| void** valuep = va_arg(ap, void**); |
| *valuep = (void*)value; |
| ++retval; |
| } |
| } |
| done = SDL_TRUE; |
| break; |
| case 'f': |
| { |
| double value; |
| text += SDL_ScanFloat(text, &value); |
| if ( ! suppress ) { |
| float* valuep = va_arg(ap, float*); |
| *valuep = (float)value; |
| ++retval; |
| } |
| } |
| done = SDL_TRUE; |
| break; |
| case 's': |
| if ( suppress ) { |
| while ( !SDL_isspace((unsigned char) *text) ) { |
| ++text; |
| if ( count ) { |
| if ( --count == 0 ) { |
| break; |
| } |
| } |
| } |
| } else { |
| char *valuep = va_arg(ap, char*); |
| while ( !SDL_isspace((unsigned char) *text) ) { |
| *valuep++ = *text++; |
| if ( count ) { |
| if ( --count == 0 ) { |
| break; |
| } |
| } |
| } |
| *valuep = '\0'; |
| ++retval; |
| } |
| done = SDL_TRUE; |
| break; |
| default: |
| done = SDL_TRUE; |
| break; |
| } |
| ++fmt; |
| } |
| continue; |
| } |
| if ( *text == *fmt ) { |
| ++text; |
| ++fmt; |
| continue; |
| } |
| /* Text didn't match format specifier */ |
| break; |
| } |
| va_end(ap); |
| |
| return retval; |
| } |
| #endif |
| |
| #ifndef HAVE_SNPRINTF |
| int SDL_snprintf(char *text, size_t maxlen, const char *fmt, ...) |
| { |
| va_list ap; |
| int retval; |
| |
| va_start(ap, fmt); |
| retval = SDL_vsnprintf(text, maxlen, fmt, ap); |
| va_end(ap); |
| |
| return retval; |
| } |
| #endif |
| |
| #ifndef HAVE_VSNPRINTF |
| static size_t SDL_PrintLong(char *text, long value, int radix, size_t maxlen) |
| { |
| char num[130]; |
| size_t size; |
| |
| SDL_ltoa(value, num, radix); |
| size = SDL_strlen(num); |
| if ( size >= maxlen ) { |
| size = maxlen-1; |
| } |
| SDL_strlcpy(text, num, size+1); |
| |
| return size; |
| } |
| static size_t SDL_PrintUnsignedLong(char *text, unsigned long value, int radix, size_t maxlen) |
| { |
| char num[130]; |
| size_t size; |
| |
| SDL_ultoa(value, num, radix); |
| size = SDL_strlen(num); |
| if ( size >= maxlen ) { |
| size = maxlen-1; |
| } |
| SDL_strlcpy(text, num, size+1); |
| |
| return size; |
| } |
| #ifdef SDL_HAS_64BIT_TYPE |
| static size_t SDL_PrintLongLong(char *text, Sint64 value, int radix, size_t maxlen) |
| { |
| char num[130]; |
| size_t size; |
| |
| SDL_lltoa(value, num, radix); |
| size = SDL_strlen(num); |
| if ( size >= maxlen ) { |
| size = maxlen-1; |
| } |
| SDL_strlcpy(text, num, size+1); |
| |
| return size; |
| } |
| static size_t SDL_PrintUnsignedLongLong(char *text, Uint64 value, int radix, size_t maxlen) |
| { |
| char num[130]; |
| size_t size; |
| |
| SDL_ulltoa(value, num, radix); |
| size = SDL_strlen(num); |
| if ( size >= maxlen ) { |
| size = maxlen-1; |
| } |
| SDL_strlcpy(text, num, size+1); |
| |
| return size; |
| } |
| #endif /* SDL_HAS_64BIT_TYPE */ |
| static size_t SDL_PrintFloat(char *text, double arg, size_t maxlen) |
| { |
| char *textstart = text; |
| if ( arg ) { |
| /* This isn't especially accurate, but hey, it's easy. :) */ |
| const double precision = 0.00000001; |
| size_t len; |
| unsigned long value; |
| |
| if ( arg < 0 ) { |
| *text++ = '-'; |
| --maxlen; |
| arg = -arg; |
| } |
| value = (unsigned long)arg; |
| len = SDL_PrintUnsignedLong(text, value, 10, maxlen); |
| text += len; |
| maxlen -= len; |
| arg -= value; |
| if ( arg > precision && maxlen ) { |
| int mult = 10; |
| *text++ = '.'; |
| while ( (arg > precision) && maxlen ) { |
| value = (unsigned long)(arg * mult); |
| len = SDL_PrintUnsignedLong(text, value, 10, maxlen); |
| text += len; |
| maxlen -= len; |
| arg -= (double)value / mult; |
| mult *= 10; |
| } |
| } |
| } else { |
| *text++ = '0'; |
| } |
| return (text - textstart); |
| } |
| static size_t SDL_PrintString(char *text, const char *string, size_t maxlen) |
| { |
| char *textstart = text; |
| while ( *string && maxlen-- ) { |
| *text++ = *string++; |
| } |
| return (text - textstart); |
| } |
| int SDL_vsnprintf(char *text, size_t maxlen, const char *fmt, va_list ap) |
| { |
| char *textstart = text; |
| if ( maxlen <= 0 ) { |
| return 0; |
| } |
| --maxlen; /* For the trailing '\0' */ |
| while ( *fmt && maxlen ) { |
| if ( *fmt == '%' ) { |
| SDL_bool done = SDL_FALSE; |
| size_t len = 0; |
| SDL_bool do_lowercase = SDL_FALSE; |
| int radix = 10; |
| enum { |
| DO_INT, |
| DO_LONG, |
| DO_LONGLONG |
| } inttype = DO_INT; |
| |
| ++fmt; |
| /* FIXME: implement more of the format specifiers */ |
| while ( *fmt == '.' || (*fmt >= '0' && *fmt <= '9') ) { |
| ++fmt; |
| } |
| while (!done) { |
| switch(*fmt) { |
| case '%': |
| *text = '%'; |
| len = 1; |
| done = SDL_TRUE; |
| break; |
| case 'c': |
| /* char is promoted to int when passed through (...) */ |
| *text = (char)va_arg(ap, int); |
| len = 1; |
| done = SDL_TRUE; |
| break; |
| case 'h': |
| /* short is promoted to int when passed through (...) */ |
| break; |
| case 'l': |
| if ( inttype < DO_LONGLONG ) { |
| ++inttype; |
| } |
| break; |
| case 'I': |
| if ( SDL_strncmp(fmt, "I64", 3) == 0 ) { |
| fmt += 2; |
| inttype = DO_LONGLONG; |
| } |
| break; |
| case 'i': |
| case 'd': |
| switch (inttype) { |
| case DO_INT: |
| len = SDL_PrintLong(text, (long)va_arg(ap, int), radix, maxlen); |
| break; |
| case DO_LONG: |
| len = SDL_PrintLong(text, va_arg(ap, long), radix, maxlen); |
| break; |
| case DO_LONGLONG: |
| #ifdef SDL_HAS_64BIT_TYPE |
| len = SDL_PrintLongLong(text, va_arg(ap, Sint64), radix, maxlen); |
| #else |
| len = SDL_PrintLong(text, va_arg(ap, long), radix, maxlen); |
| #endif |
| break; |
| } |
| done = SDL_TRUE; |
| break; |
| case 'p': |
| case 'x': |
| do_lowercase = SDL_TRUE; |
| /* Fall through to 'X' handling */ |
| case 'X': |
| if ( radix == 10 ) { |
| radix = 16; |
| } |
| if ( *fmt == 'p' ) { |
| inttype = DO_LONG; |
| } |
| /* Fall through to unsigned handling */ |
| case 'o': |
| if ( radix == 10 ) { |
| radix = 8; |
| } |
| /* Fall through to unsigned handling */ |
| case 'u': |
| switch (inttype) { |
| case DO_INT: |
| len = SDL_PrintUnsignedLong(text, (unsigned long)va_arg(ap, unsigned int), radix, maxlen); |
| break; |
| case DO_LONG: |
| len = SDL_PrintUnsignedLong(text, va_arg(ap, unsigned long), radix, maxlen); |
| break; |
| case DO_LONGLONG: |
| #ifdef SDL_HAS_64BIT_TYPE |
| len = SDL_PrintUnsignedLongLong(text, va_arg(ap, Uint64), radix, maxlen); |
| #else |
| len = SDL_PrintUnsignedLong(text, va_arg(ap, unsigned long), radix, maxlen); |
| #endif |
| break; |
| } |
| if ( do_lowercase ) { |
| SDL_strlwr(text); |
| } |
| done = SDL_TRUE; |
| break; |
| case 'f': |
| len = SDL_PrintFloat(text, va_arg(ap, double), maxlen); |
| done = SDL_TRUE; |
| break; |
| case 's': |
| len = SDL_PrintString(text, va_arg(ap, char*), maxlen); |
| done = SDL_TRUE; |
| break; |
| default: |
| done = SDL_TRUE; |
| break; |
| } |
| ++fmt; |
| } |
| text += len; |
| maxlen -= len; |
| } else { |
| *text++ = *fmt++; |
| --maxlen; |
| } |
| } |
| *text = '\0'; |
| |
| return (text - textstart); |
| } |
| #endif |
