aboutsummaryrefslogtreecommitdiffstats
path: root/distrib/sdl-1.2.12/src/stdlib/SDL_string.c
diff options
context:
space:
mode:
Diffstat (limited to 'distrib/sdl-1.2.12/src/stdlib/SDL_string.c')
-rw-r--r--distrib/sdl-1.2.12/src/stdlib/SDL_string.c1248
1 files changed, 0 insertions, 1248 deletions
diff --git a/distrib/sdl-1.2.12/src/stdlib/SDL_string.c b/distrib/sdl-1.2.12/src/stdlib/SDL_string.c
deleted file mode 100644
index 0ab5af6..0000000
--- a/distrib/sdl-1.2.12/src/stdlib/SDL_string.c
+++ /dev/null
@@ -1,1248 +0,0 @@
-/*
- SDL - Simple DirectMedia Layer
- Copyright (C) 1997-2006 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
generated by cgit v1.1 at 2024-04-28 05:06:24 +0000