1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855 |
- /*
- Simple DirectMedia Layer
- Copyright (C) 1997-2019 Sam Lantinga <[email protected]>
- This software is provided 'as-is', without any express or implied
- warranty. In no event will the authors be held liable for any damages
- arising from the use of this software.
- Permission is granted to anyone to use this software for any purpose,
- including commercial applications, and to alter it and redistribute it
- freely, subject to the following restrictions:
- 1. The origin of this software must not be misrepresented; you must not
- claim that you wrote the original software. If you use this software
- in a product, an acknowledgment in the product documentation would be
- appreciated but is not required.
- 2. Altered source versions must be plainly marked as such, and must not be
- misrepresented as being the original software.
- 3. This notice may not be removed or altered from any source distribution.
- */
- #if defined(__clang_analyzer__)
- #define SDL_DISABLE_ANALYZE_MACROS 1
- #endif
- #include "../SDL_internal.h"
- /* This file contains portable string manipulation functions for SDL */
- #include "SDL_stdinc.h"
- #if !defined(HAVE_VSSCANF) || !defined(HAVE_STRTOL) || !defined(HAVE_STRTOUL) || !defined(HAVE_STRTOLL) || !defined(HAVE_STRTOULL) || !defined(HAVE_STRTOD)
- #define SDL_isupperhex(X) (((X) >= 'A') && ((X) <= 'F'))
- #define SDL_islowerhex(X) (((X) >= 'a') && ((X) <= 'f'))
- #endif
- #define UTF8_IsLeadByte(c) ((c) >= 0xC0 && (c) <= 0xF4)
- #define UTF8_IsTrailingByte(c) ((c) >= 0x80 && (c) <= 0xBF)
- static int UTF8_TrailingBytes(unsigned char c)
- {
- if (c >= 0xC0 && c <= 0xDF)
- return 1;
- else if (c >= 0xE0 && c <= 0xEF)
- return 2;
- else if (c >= 0xF0 && c <= 0xF4)
- return 3;
- else
- return 0;
- }
- #if !defined(HAVE_VSSCANF) || !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 && text > textstart) {
- if (negative && value) {
- *valuep = -value;
- } else {
- *valuep = value;
- }
- }
- return (text - textstart);
- }
- #endif
- #if !defined(HAVE_VSSCANF) || !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 && text > textstart) {
- *valuep = value;
- }
- return (text - textstart);
- }
- #endif
- #ifndef HAVE_VSSCANF
- 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 && text > textstart) {
- *valuep = value;
- }
- return (text - textstart);
- }
- #endif
- #if !defined(HAVE_VSSCANF) || !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 && text > textstart) {
- if (negative && value) {
- *valuep = -value;
- } else {
- *valuep = value;
- }
- }
- return (text - textstart);
- }
- #endif
- #if !defined(HAVE_VSSCANF) || !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 && text > textstart) {
- *valuep = value;
- }
- return (text - textstart);
- }
- #endif
- #if !defined(HAVE_VSSCANF) || !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 && text > textstart) {
- if (negative && value) {
- *valuep = -value;
- } else {
- *valuep = value;
- }
- }
- return (text - textstart);
- }
- #endif
- void *
- SDL_memset(SDL_OUT_BYTECAP(len) void *dst, int c, size_t len)
- {
- #if defined(HAVE_MEMSET)
- return memset(dst, c, len);
- #else
- size_t left;
- Uint32 *dstp4;
- Uint8 *dstp1 = (Uint8 *) dst;
- Uint8 value1;
- Uint32 value4;
- /* The value used in memset() is a byte, passed as an int */
- c &= 0xff;
- /* The destination pointer needs to be aligned on a 4-byte boundary to
- * execute a 32-bit set. Set first bytes manually if needed until it is
- * aligned. */
- value1 = (Uint8)c;
- while ((intptr_t)dstp1 & 0x3) {
- if (len--) {
- *dstp1++ = value1;
- } else {
- return dst;
- }
- }
- value4 = (c | (c << 8) | (c << 16) | (c << 24));
- dstp4 = (Uint32 *) dstp1;
- left = (len % 4);
- len /= 4;
- while (len--) {
- *dstp4++ = value4;
- }
- dstp1 = (Uint8 *) dstp4;
- switch (left) {
- case 3:
- *dstp1++ = value1;
- case 2:
- *dstp1++ = value1;
- case 1:
- *dstp1++ = value1;
- }
- return dst;
- #endif /* HAVE_MEMSET */
- }
- void *
- SDL_memcpy(SDL_OUT_BYTECAP(len) void *dst, SDL_IN_BYTECAP(len) const void *src, size_t len)
- {
- #ifdef __GNUC__
- /* Presumably this is well tuned for speed.
- On my machine this is twice as fast as the C code below.
- */
- return __builtin_memcpy(dst, src, len);
- #elif defined(HAVE_MEMCPY)
- return memcpy(dst, src, len);
- #elif defined(HAVE_BCOPY)
- bcopy(src, dst, len);
- return dst;
- #else
- /* GCC 4.9.0 with -O3 will generate movaps instructions with the loop
- using Uint32* pointers, so we need to make sure the pointers are
- aligned before we loop using them.
- */
- if (((intptr_t)src & 0x3) || ((intptr_t)dst & 0x3)) {
- /* Do an unaligned byte copy */
- Uint8 *srcp1 = (Uint8 *)src;
- Uint8 *dstp1 = (Uint8 *)dst;
- while (len--) {
- *dstp1++ = *srcp1++;
- }
- } else {
- size_t left = (len % 4);
- Uint32 *srcp4, *dstp4;
- Uint8 *srcp1, *dstp1;
- srcp4 = (Uint32 *) src;
- dstp4 = (Uint32 *) dst;
- len /= 4;
- while (len--) {
- *dstp4++ = *srcp4++;
- }
- srcp1 = (Uint8 *) srcp4;
- dstp1 = (Uint8 *) dstp4;
- switch (left) {
- case 3:
- *dstp1++ = *srcp1++;
- case 2:
- *dstp1++ = *srcp1++;
- case 1:
- *dstp1++ = *srcp1++;
- }
- }
- return dst;
- #endif /* __GNUC__ */
- }
- void *
- SDL_memmove(SDL_OUT_BYTECAP(len) void *dst, SDL_IN_BYTECAP(len) const void *src, size_t len)
- {
- #if defined(HAVE_MEMMOVE)
- return memmove(dst, src, len);
- #else
- char *srcp = (char *) src;
- char *dstp = (char *) dst;
- if (src < dst) {
- srcp += len - 1;
- dstp += len - 1;
- while (len--) {
- *dstp-- = *srcp--;
- }
- } else {
- while (len--) {
- *dstp++ = *srcp++;
- }
- }
- return dst;
- #endif /* HAVE_MEMMOVE */
- }
- int
- SDL_memcmp(const void *s1, const void *s2, size_t len)
- {
- #if defined(HAVE_MEMCMP)
- return memcmp(s1, s2, len);
- #else
- char *s1p = (char *) s1;
- char *s2p = (char *) s2;
- while (len--) {
- if (*s1p != *s2p) {
- return (*s1p - *s2p);
- }
- ++s1p;
- ++s2p;
- }
- return 0;
- #endif /* HAVE_MEMCMP */
- }
- size_t
- SDL_strlen(const char *string)
- {
- #if defined(HAVE_STRLEN)
- return strlen(string);
- #else
- size_t len = 0;
- while (*string++) {
- ++len;
- }
- return len;
- #endif /* HAVE_STRLEN */
- }
- size_t
- SDL_wcslen(const wchar_t * string)
- {
- #if defined(HAVE_WCSLEN)
- return wcslen(string);
- #else
- size_t len = 0;
- while (*string++) {
- ++len;
- }
- return len;
- #endif /* HAVE_WCSLEN */
- }
- size_t
- SDL_wcslcpy(SDL_OUT_Z_CAP(maxlen) wchar_t *dst, const wchar_t *src, size_t maxlen)
- {
- #if defined(HAVE_WCSLCPY)
- return wcslcpy(dst, src, maxlen);
- #else
- size_t srclen = SDL_wcslen(src);
- if (maxlen > 0) {
- size_t len = SDL_min(srclen, maxlen - 1);
- SDL_memcpy(dst, src, len * sizeof(wchar_t));
- dst[len] = '\0';
- }
- return srclen;
- #endif /* HAVE_WCSLCPY */
- }
- size_t
- SDL_wcslcat(SDL_INOUT_Z_CAP(maxlen) wchar_t *dst, const wchar_t *src, size_t maxlen)
- {
- #if defined(HAVE_WCSLCAT)
- return wcslcat(dst, src, maxlen);
- #else
- size_t dstlen = SDL_wcslen(dst);
- size_t srclen = SDL_wcslen(src);
- if (dstlen < maxlen) {
- SDL_wcslcpy(dst + dstlen, src, maxlen - dstlen);
- }
- return dstlen + srclen;
- #endif /* HAVE_WCSLCAT */
- }
- wchar_t *
- SDL_wcsdup(const wchar_t *string)
- {
- size_t len = ((SDL_wcslen(string) + 1) * sizeof(wchar_t));
- wchar_t *newstr = (wchar_t *)SDL_malloc(len);
- if (newstr) {
- SDL_memcpy(newstr, string, len);
- }
- return newstr;
- }
- wchar_t *
- SDL_wcsstr(const wchar_t *haystack, const wchar_t *needle)
- {
- #if defined(HAVE_WCSSTR)
- return SDL_const_cast(wchar_t*,wcsstr(haystack, needle));
- #else
- size_t length = SDL_wcslen(needle);
- while (*haystack) {
- if (SDL_wcsncmp(haystack, needle, length) == 0) {
- return (wchar_t *)haystack;
- }
- ++haystack;
- }
- return NULL;
- #endif /* HAVE_WCSSTR */
- }
- int
- SDL_wcscmp(const wchar_t *str1, const wchar_t *str2)
- {
- #if defined(HAVE_WCSCMP)
- return wcscmp(str1, str2);
- #else
- while (*str1 && *str2) {
- if (*str1 != *str2)
- break;
- ++str1;
- ++str2;
- }
- return (int)(*str1 - *str2);
- #endif /* HAVE_WCSCMP */
- }
- int
- SDL_wcsncmp(const wchar_t *str1, const wchar_t *str2, size_t maxlen)
- {
- #if defined(HAVE_WCSNCMP)
- return wcsncmp(str1, str2, maxlen);
- #else
- while (*str1 && *str2) {
- if (*str1 != *str2)
- break;
- ++str1;
- ++str2;
- }
- return (int)(*str1 - *str2);
- #endif /* HAVE_WCSNCMP */
- }
- size_t
- SDL_strlcpy(SDL_OUT_Z_CAP(maxlen) char *dst, const char *src, size_t maxlen)
- {
- #if defined(HAVE_STRLCPY)
- return strlcpy(dst, src, maxlen);
- #else
- 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 /* HAVE_STRLCPY */
- }
- size_t
- SDL_utf8strlcpy(SDL_OUT_Z_CAP(dst_bytes) char *dst, const char *src, size_t dst_bytes)
- {
- size_t src_bytes = SDL_strlen(src);
- size_t bytes = SDL_min(src_bytes, dst_bytes - 1);
- size_t i = 0;
- char trailing_bytes = 0;
- if (bytes)
- {
- unsigned char c = (unsigned char)src[bytes - 1];
- if (UTF8_IsLeadByte(c))
- --bytes;
- else if (UTF8_IsTrailingByte(c))
- {
- for (i = bytes - 1; i != 0; --i)
- {
- c = (unsigned char)src[i];
- trailing_bytes = UTF8_TrailingBytes(c);
- if (trailing_bytes)
- {
- if (bytes - i != trailing_bytes + 1)
- bytes = i;
- break;
- }
- }
- }
- SDL_memcpy(dst, src, bytes);
- }
- dst[bytes] = '\0';
- return bytes;
- }
- size_t
- SDL_utf8strlen(const char *str)
- {
- size_t retval = 0;
- const char *p = str;
- char ch;
- while ((ch = *(p++)) != 0) {
- /* if top two bits are 1 and 0, it's a continuation byte. */
- if ((ch & 0xc0) != 0x80) {
- retval++;
- }
- }
-
- return retval;
- }
- size_t
- SDL_strlcat(SDL_INOUT_Z_CAP(maxlen) char *dst, const char *src, size_t maxlen)
- {
- #if defined(HAVE_STRLCAT)
- return strlcat(dst, src, maxlen);
- #else
- 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 /* HAVE_STRLCAT */
- }
- char *
- SDL_strdup(const char *string)
- {
- size_t len = SDL_strlen(string) + 1;
- char *newstr = (char *)SDL_malloc(len);
- if (newstr) {
- SDL_memcpy(newstr, string, len);
- }
- return newstr;
- }
- char *
- SDL_strrev(char *string)
- {
- #if defined(HAVE__STRREV)
- return _strrev(string);
- #else
- 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 /* HAVE__STRREV */
- }
- char *
- SDL_strupr(char *string)
- {
- #if defined(HAVE__STRUPR)
- return _strupr(string);
- #else
- char *bufp = string;
- while (*bufp) {
- *bufp = SDL_toupper((unsigned char) *bufp);
- ++bufp;
- }
- return string;
- #endif /* HAVE__STRUPR */
- }
- char *
- SDL_strlwr(char *string)
- {
- #if defined(HAVE__STRLWR)
- return _strlwr(string);
- #else
- char *bufp = string;
- while (*bufp) {
- *bufp = SDL_tolower((unsigned char) *bufp);
- ++bufp;
- }
- return string;
- #endif /* HAVE__STRLWR */
- }
- char *
- SDL_strchr(const char *string, int c)
- {
- #ifdef HAVE_STRCHR
- return SDL_const_cast(char*,strchr(string, c));
- #elif defined(HAVE_INDEX)
- return SDL_const_cast(char*,index(string, c));
- #else
- while (*string) {
- if (*string == c) {
- return (char *) string;
- }
- ++string;
- }
- return NULL;
- #endif /* HAVE_STRCHR */
- }
- char *
- SDL_strrchr(const char *string, int c)
- {
- #ifdef HAVE_STRRCHR
- return SDL_const_cast(char*,strrchr(string, c));
- #elif defined(HAVE_RINDEX)
- return SDL_const_cast(char*,rindex(string, c));
- #else
- const char *bufp = string + SDL_strlen(string) - 1;
- while (bufp >= string) {
- if (*bufp == c) {
- return (char *) bufp;
- }
- --bufp;
- }
- return NULL;
- #endif /* HAVE_STRRCHR */
- }
- char *
- SDL_strstr(const char *haystack, const char *needle)
- {
- #if defined(HAVE_STRSTR)
- return SDL_const_cast(char*,strstr(haystack, needle));
- #else
- size_t length = SDL_strlen(needle);
- while (*haystack) {
- if (SDL_strncmp(haystack, needle, length) == 0) {
- return (char *) haystack;
- }
- ++haystack;
- }
- return NULL;
- #endif /* HAVE_STRSTR */
- }
- #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 */
- char *
- SDL_itoa(int value, char *string, int radix)
- {
- #ifdef HAVE_ITOA
- return itoa(value, string, radix);
- #else
- return SDL_ltoa((long)value, string, radix);
- #endif /* HAVE_ITOA */
- }
- char *
- SDL_uitoa(unsigned int value, char *string, int radix)
- {
- #ifdef HAVE__UITOA
- return _uitoa(value, string, radix);
- #else
- return SDL_ultoa((unsigned long)value, string, radix);
- #endif /* HAVE__UITOA */
- }
- char *
- SDL_ltoa(long value, char *string, int radix)
- {
- #if defined(HAVE__LTOA)
- return _ltoa(value, string, radix);
- #else
- char *bufp = string;
- if (value < 0) {
- *bufp++ = '-';
- SDL_ultoa(-value, bufp, radix);
- } else {
- SDL_ultoa(value, bufp, radix);
- }
- return string;
- #endif /* HAVE__LTOA */
- }
- char *
- SDL_ultoa(unsigned long value, char *string, int radix)
- {
- #if defined(HAVE__ULTOA)
- return _ultoa(value, string, radix);
- #else
- 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 /* HAVE__ULTOA */
- }
- char *
- SDL_lltoa(Sint64 value, char *string, int radix)
- {
- #if defined(HAVE__I64TOA)
- return _i64toa(value, string, radix);
- #else
- char *bufp = string;
- if (value < 0) {
- *bufp++ = '-';
- SDL_ulltoa(-value, bufp, radix);
- } else {
- SDL_ulltoa(value, bufp, radix);
- }
- return string;
- #endif /* HAVE__I64TOA */
- }
- char *
- SDL_ulltoa(Uint64 value, char *string, int radix)
- {
- #if defined(HAVE__UI64TOA)
- return _ui64toa(value, string, radix);
- #else
- 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 /* HAVE__UI64TOA */
- }
- int SDL_atoi(const char *string)
- {
- #ifdef HAVE_ATOI
- return atoi(string);
- #else
- return SDL_strtol(string, NULL, 0);
- #endif /* HAVE_ATOI */
- }
- double SDL_atof(const char *string)
- {
- #ifdef HAVE_ATOF
- return atof(string);
- #else
- return SDL_strtod(string, NULL);
- #endif /* HAVE_ATOF */
- }
- long
- SDL_strtol(const char *string, char **endp, int base)
- {
- #if defined(HAVE_STRTOL)
- return strtol(string, endp, base);
- #else
- size_t len;
- long value = 0;
- 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 /* HAVE_STRTOL */
- }
- unsigned long
- SDL_strtoul(const char *string, char **endp, int base)
- {
- #if defined(HAVE_STRTOUL)
- return strtoul(string, endp, base);
- #else
- size_t len;
- unsigned long value = 0;
- 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 /* HAVE_STRTOUL */
- }
- Sint64
- SDL_strtoll(const char *string, char **endp, int base)
- {
- #if defined(HAVE_STRTOLL)
- return strtoll(string, endp, base);
- #else
- size_t len;
- Sint64 value = 0;
- 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 /* HAVE_STRTOLL */
- }
- Uint64
- SDL_strtoull(const char *string, char **endp, int base)
- {
- #if defined(HAVE_STRTOULL)
- return strtoull(string, endp, base);
- #else
- size_t len;
- Uint64 value = 0;
- 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 /* HAVE_STRTOULL */
- }
- double
- SDL_strtod(const char *string, char **endp)
- {
- #if defined(HAVE_STRTOD)
- return strtod(string, endp);
- #else
- size_t len;
- double value = 0.0;
- len = SDL_ScanFloat(string, &value);
- if (endp) {
- *endp = (char *) string + len;
- }
- return value;
- #endif /* HAVE_STRTOD */
- }
- int
- SDL_strcmp(const char *str1, const char *str2)
- {
- #if defined(HAVE_STRCMP)
- return strcmp(str1, str2);
- #else
- while (*str1 && *str2) {
- if (*str1 != *str2)
- break;
- ++str1;
- ++str2;
- }
- return (int)((unsigned char) *str1 - (unsigned char) *str2);
- #endif /* HAVE_STRCMP */
- }
- int
- SDL_strncmp(const char *str1, const char *str2, size_t maxlen)
- {
- #if defined(HAVE_STRNCMP)
- return strncmp(str1, str2, maxlen);
- #else
- while (*str1 && *str2 && maxlen) {
- if (*str1 != *str2)
- break;
- ++str1;
- ++str2;
- --maxlen;
- }
- if (!maxlen) {
- return 0;
- }
- return (int) ((unsigned char) *str1 - (unsigned char) *str2);
- #endif /* HAVE_STRNCMP */
- }
- int
- SDL_strcasecmp(const char *str1, const char *str2)
- {
- #ifdef HAVE_STRCASECMP
- return strcasecmp(str1, str2);
- #elif defined(HAVE__STRICMP)
- return _stricmp(str1, str2);
- #else
- char a = 0;
- char b = 0;
- while (*str1 && *str2) {
- a = SDL_toupper((unsigned char) *str1);
- b = SDL_toupper((unsigned char) *str2);
- if (a != b)
- break;
- ++str1;
- ++str2;
- }
- a = SDL_toupper(*str1);
- b = SDL_toupper(*str2);
- return (int) ((unsigned char) a - (unsigned char) b);
- #endif /* HAVE_STRCASECMP */
- }
- int
- SDL_strncasecmp(const char *str1, const char *str2, size_t maxlen)
- {
- #ifdef HAVE_STRNCASECMP
- return strncasecmp(str1, str2, maxlen);
- #elif defined(HAVE__STRNICMP)
- return _strnicmp(str1, str2, maxlen);
- #else
- 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;
- }
- if (maxlen == 0) {
- return 0;
- } else {
- a = SDL_tolower((unsigned char) *str1);
- b = SDL_tolower((unsigned char) *str2);
- return (int) ((unsigned char) a - (unsigned char) b);
- }
- #endif /* HAVE_STRNCASECMP */
- }
- int
- SDL_sscanf(const char *text, SDL_SCANF_FORMAT_STRING const char *fmt, ...)
- {
- int rc;
- va_list ap;
- va_start(ap, fmt);
- rc = SDL_vsscanf(text, fmt, ap);
- va_end(ap);
- return rc;
- }
- #ifdef HAVE_VSSCANF
- int
- SDL_vsscanf(const char *text, const char *fmt, va_list ap)
- {
- return vsscanf(text, fmt, ap);
- }
- #else
- int
- SDL_vsscanf(const char *text, const char *fmt, va_list ap)
- {
- int retval = 0;
- if (!text || !*text) {
- return -1;
- }
- 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;
- size_t advance;
- 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':
- if (inttype == DO_LONGLONG) {
- Sint64 value;
- advance = SDL_ScanLongLong(text, radix, &value);
- text += advance;
- if (advance && !suppress) {
- Sint64 *valuep = va_arg(ap, Sint64 *);
- *valuep = value;
- ++retval;
- }
- } else {
- long value;
- advance = SDL_ScanLong(text, radix, &value);
- text += advance;
- if (advance && !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':
- if (inttype == DO_LONGLONG) {
- Uint64 value = 0;
- advance = SDL_ScanUnsignedLongLong(text, radix, &value);
- text += advance;
- if (advance && !suppress) {
- Uint64 *valuep = va_arg(ap, Uint64 *);
- *valuep = value;
- ++retval;
- }
- } else {
- unsigned long value = 0;
- advance = SDL_ScanUnsignedLong(text, radix, &value);
- text += advance;
- if (advance && !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 = 0;
- advance = SDL_ScanUintPtrT(text, 16, &value);
- text += advance;
- if (advance && !suppress) {
- void **valuep = va_arg(ap, void **);
- *valuep = (void *) value;
- ++retval;
- }
- }
- done = SDL_TRUE;
- break;
- case 'f':
- {
- double value;
- advance = SDL_ScanFloat(text, &value);
- text += advance;
- if (advance && !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;
- }
- return retval;
- }
- #endif /* HAVE_VSSCANF */
- int
- SDL_snprintf(SDL_OUT_Z_CAP(maxlen) char *text, size_t maxlen, SDL_PRINTF_FORMAT_STRING const char *fmt, ...)
- {
- va_list ap;
- int retval;
- va_start(ap, fmt);
- retval = SDL_vsnprintf(text, maxlen, fmt, ap);
- va_end(ap);
- return retval;
- }
- #if defined(HAVE_LIBC) && defined(__WATCOMC__)
- /* _vsnprintf() doesn't ensure nul termination */
- int SDL_vsnprintf(SDL_OUT_Z_CAP(maxlen) char *text, size_t maxlen, const char *fmt, va_list ap)
- {
- int retval;
- if (!fmt) fmt = "";
- retval = _vsnprintf(text, maxlen, fmt, ap);
- if (maxlen > 0) text[maxlen-1] = '\0';
- if (retval < 0) retval = (int) maxlen;
- return retval;
- }
- #elif defined(HAVE_VSNPRINTF)
- int SDL_vsnprintf(SDL_OUT_Z_CAP(maxlen) char *text, size_t maxlen, const char *fmt, va_list ap)
- {
- if (!fmt) {
- fmt = "";
- }
- return vsnprintf(text, maxlen, fmt, ap);
- }
- #else
- /* FIXME: implement more of the format specifiers */
- typedef enum
- {
- SDL_CASE_NOCHANGE,
- SDL_CASE_LOWER,
- SDL_CASE_UPPER
- } SDL_letter_case;
- typedef struct
- {
- SDL_bool left_justify; /* for now: ignored. */
- SDL_bool force_sign;
- SDL_bool force_type; /* for now: used only by float printer, ignored otherwise. */
- SDL_bool pad_zeroes;
- SDL_letter_case force_case;
- int width;
- int radix;
- int precision;
- } SDL_FormatInfo;
- static size_t
- SDL_PrintString(char *text, size_t maxlen, SDL_FormatInfo *info, const char *string)
- {
- size_t length = 0;
- size_t slen, sz;
- if (string == NULL) {
- string = "(null)";
- }
- sz = SDL_strlen(string);
- if (info && info->width > 0 && (size_t)info->width > sz) {
- const char fill = info->pad_zeroes ? '0' : ' ';
- size_t width = info->width - sz;
- size_t filllen;
- if (info->precision >= 0 && (size_t)info->precision < sz)
- width += sz - (size_t)info->precision;
- filllen = SDL_min(width, maxlen);
- SDL_memset(text, fill, filllen);
- text += filllen;
- length += filllen;
- maxlen -= filllen;
- }
- slen = SDL_strlcpy(text, string, maxlen);
- length += SDL_min(slen, maxlen);
- if (info) {
- if (info->precision >= 0 && (size_t)info->precision < sz) {
- slen = (size_t)info->precision;
- if (slen < maxlen) {
- text[slen] = 0;
- length -= (sz - slen);
- }
- }
- if (info->force_case == SDL_CASE_LOWER) {
- SDL_strlwr(text);
- } else if (info->force_case == SDL_CASE_UPPER) {
- SDL_strupr(text);
- }
- }
- return length;
- }
- static void
- SDL_IntPrecisionAdjust(char *num, size_t maxlen, SDL_FormatInfo *info)
- {/* left-pad num with zeroes. */
- size_t sz, pad, have_sign;
- if (!info)
- return;
- have_sign = 0;
- if (*num == '-' || *num == '+') {
- have_sign = 1;
- ++num;
- --maxlen;
- }
- sz = SDL_strlen(num);
- if (info->precision > 0 && sz < (size_t)info->precision) {
- pad = (size_t)info->precision - sz;
- if (pad + sz + 1 <= maxlen) { /* otherwise ignore the precision */
- SDL_memmove(num + pad, num, sz + 1);
- SDL_memset(num, '0', pad);
- }
- }
- info->precision = -1;/* so that SDL_PrintString() doesn't make a mess. */
- if (info->pad_zeroes && info->width > 0 && (size_t)info->width > sz + have_sign) {
- /* handle here: spaces are added before the sign
- but zeroes must be placed _after_ the sign. */
- /* sz hasn't changed: we ignore pad_zeroes if a precision is given. */
- pad = (size_t)info->width - sz - have_sign;
- if (pad + sz + 1 <= maxlen) {
- SDL_memmove(num + pad, num, sz + 1);
- SDL_memset(num, '0', pad);
- }
- info->width = 0; /* so that SDL_PrintString() doesn't make a mess. */
- }
- }
- static size_t
- SDL_PrintLong(char *text, size_t maxlen, SDL_FormatInfo *info, long value)
- {
- char num[130], *p = num;
- if (info->force_sign && value >= 0L) {
- *p++ = '+';
- }
- SDL_ltoa(value, p, info ? info->radix : 10);
- SDL_IntPrecisionAdjust(num, maxlen, info);
- return SDL_PrintString(text, maxlen, info, num);
- }
- static size_t
- SDL_PrintUnsignedLong(char *text, size_t maxlen, SDL_FormatInfo *info, unsigned long value)
- {
- char num[130];
- SDL_ultoa(value, num, info ? info->radix : 10);
- SDL_IntPrecisionAdjust(num, maxlen, info);
- return SDL_PrintString(text, maxlen, info, num);
- }
- static size_t
- SDL_PrintLongLong(char *text, size_t maxlen, SDL_FormatInfo *info, Sint64 value)
- {
- char num[130], *p = num;
- if (info->force_sign && value >= (Sint64)0) {
- *p++ = '+';
- }
- SDL_lltoa(value, p, info ? info->radix : 10);
- SDL_IntPrecisionAdjust(num, maxlen, info);
- return SDL_PrintString(text, maxlen, info, num);
- }
- static size_t
- SDL_PrintUnsignedLongLong(char *text, size_t maxlen, SDL_FormatInfo *info, Uint64 value)
- {
- char num[130];
- SDL_ulltoa(value, num, info ? info->radix : 10);
- SDL_IntPrecisionAdjust(num, maxlen, info);
- return SDL_PrintString(text, maxlen, info, num);
- }
- static size_t
- SDL_PrintFloat(char *text, size_t maxlen, SDL_FormatInfo *info, double arg)
- {
- int width;
- size_t len;
- size_t left = maxlen;
- char *textstart = text;
- if (arg) {
- /* This isn't especially accurate, but hey, it's easy. :) */
- unsigned long value;
- if (arg < 0) {
- if (left > 1) {
- *text = '-';
- --left;
- }
- ++text;
- arg = -arg;
- } else if (info->force_sign) {
- if (left > 1) {
- *text = '+';
- --left;
- }
- ++text;
- }
- value = (unsigned long) arg;
- len = SDL_PrintUnsignedLong(text, left, NULL, value);
- if (len >= left) {
- text += (left > 1) ? left - 1 : 0;
- left = SDL_min(left, 1);
- } else {
- text += len;
- left -= len;
- }
- arg -= value;
- if (info->precision < 0) {
- info->precision = 6;
- }
- if (info->force_type || info->precision > 0) {
- int mult = 10;
- if (left > 1) {
- *text = '.';
- --left;
- }
- ++text;
- while (info->precision-- > 0) {
- value = (unsigned long) (arg * mult);
- len = SDL_PrintUnsignedLong(text, left, NULL, value);
- if (len >= left) {
- text += (left > 1) ? left - 1 : 0;
- left = SDL_min(left, 1);
- } else {
- text += len;
- left -= len;
- }
- arg -= (double) value / mult;
- mult *= 10;
- }
- }
- } else {
- if (left > 1) {
- *text = '0';
- --left;
- }
- ++text;
- if (info->force_type) {
- if (left > 1) {
- *text = '.';
- --left;
- }
- ++text;
- }
- }
- width = info->width - (int)(text - textstart);
- if (width > 0) {
- const char fill = info->pad_zeroes ? '0' : ' ';
- char *end = text+left-1;
- len = (text - textstart);
- for (len = (text - textstart); len--; ) {
- if ((textstart+len+width) < end) {
- *(textstart+len+width) = *(textstart+len);
- }
- }
- len = (size_t)width;
- if (len >= left) {
- text += (left > 1) ? left - 1 : 0;
- left = SDL_min(left, 1);
- } else {
- text += len;
- left -= len;
- }
- if (end != textstart) {
- const size_t filllen = SDL_min(len, ((size_t) (end - textstart)) - 1);
- SDL_memset(textstart, fill, filllen);
- }
- }
- return (text - textstart);
- }
- int
- SDL_vsnprintf(SDL_OUT_Z_CAP(maxlen) char *text, size_t maxlen, const char *fmt, va_list ap)
- {
- size_t left = maxlen;
- char *textstart = text;
- if (!fmt) {
- fmt = "";
- }
- while (*fmt && left > 1) {
- if (*fmt == '%') {
- SDL_bool done = SDL_FALSE;
- size_t len = 0;
- SDL_bool check_flag;
- SDL_FormatInfo info;
- enum
- {
- DO_INT,
- DO_LONG,
- DO_LONGLONG
- } inttype = DO_INT;
- SDL_zero(info);
- info.radix = 10;
- info.precision = -1;
- check_flag = SDL_TRUE;
- while (check_flag) {
- ++fmt;
- switch (*fmt) {
- case '-':
- info.left_justify = SDL_TRUE;
- break;
- case '+':
- info.force_sign = SDL_TRUE;
- break;
- case '#':
- info.force_type = SDL_TRUE;
- break;
- case '0':
- info.pad_zeroes = SDL_TRUE;
- break;
- default:
- check_flag = SDL_FALSE;
- break;
- }
- }
- if (*fmt >= '0' && *fmt <= '9') {
- info.width = SDL_strtol(fmt, (char **)&fmt, 0);
- }
- else if (*fmt == '*') {
- ++fmt;
- info.width = va_arg(ap, int);
- }
- if (*fmt == '.') {
- ++fmt;
- if (*fmt >= '0' && *fmt <= '9') {
- info.precision = SDL_strtol(fmt, (char **)&fmt, 0);
- } else if (*fmt == '*') {
- ++fmt;
- info.precision = va_arg(ap, int);
- } else {
- info.precision = 0;
- }
- if (info.precision < 0) {
- info.precision = 0;
- }
- }
- while (!done) {
- switch (*fmt) {
- case '%':
- if (left > 1) {
- *text = '%';
- }
- len = 1;
- done = SDL_TRUE;
- break;
- case 'c':
- /* char is promoted to int when passed through (...) */
- if (left > 1) {
- *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':
- if (info.precision >= 0) {
- info.pad_zeroes = SDL_FALSE;
- }
- switch (inttype) {
- case DO_INT:
- len = SDL_PrintLong(text, left, &info,
- (long) va_arg(ap, int));
- break;
- case DO_LONG:
- len = SDL_PrintLong(text, left, &info,
- va_arg(ap, long));
- break;
- case DO_LONGLONG:
- len = SDL_PrintLongLong(text, left, &info,
- va_arg(ap, Sint64));
- break;
- }
- done = SDL_TRUE;
- break;
- case 'p':
- case 'x':
- info.force_case = SDL_CASE_LOWER;
- /* Fall through to 'X' handling */
- case 'X':
- if (info.force_case == SDL_CASE_NOCHANGE) {
- info.force_case = SDL_CASE_UPPER;
- }
- if (info.radix == 10) {
- info.radix = 16;
- }
- if (*fmt == 'p') {
- inttype = DO_LONG;
- }
- /* Fall through to unsigned handling */
- case 'o':
- if (info.radix == 10) {
- info.radix = 8;
- }
- /* Fall through to unsigned handling */
- case 'u':
- info.force_sign = SDL_FALSE;
- if (info.precision >= 0) {
- info.pad_zeroes = SDL_FALSE;
- }
- switch (inttype) {
- case DO_INT:
- len = SDL_PrintUnsignedLong(text, left, &info,
- (unsigned long)
- va_arg(ap, unsigned int));
- break;
- case DO_LONG:
- len = SDL_PrintUnsignedLong(text, left, &info,
- va_arg(ap, unsigned long));
- break;
- case DO_LONGLONG:
- len = SDL_PrintUnsignedLongLong(text, left, &info,
- va_arg(ap, Uint64));
- break;
- }
- done = SDL_TRUE;
- break;
- case 'f':
- len = SDL_PrintFloat(text, left, &info, va_arg(ap, double));
- done = SDL_TRUE;
- break;
- case 'S':
- {
- /* In practice this is used on Windows for WCHAR strings */
- wchar_t *wide_arg = va_arg(ap, wchar_t *);
- char *arg = SDL_iconv_string("UTF-8", "UTF-16LE", (char *)(wide_arg), (SDL_wcslen(wide_arg)+1)*sizeof(*wide_arg));
- info.pad_zeroes = SDL_FALSE;
- len = SDL_PrintString(text, left, &info, arg);
- SDL_free(arg);
- done = SDL_TRUE;
- }
- break;
- case 's':
- info.pad_zeroes = SDL_FALSE;
- len = SDL_PrintString(text, left, &info, va_arg(ap, char *));
- done = SDL_TRUE;
- break;
- default:
- done = SDL_TRUE;
- break;
- }
- ++fmt;
- }
- if (len >= left) {
- text += (left > 1) ? left - 1 : 0;
- left = SDL_min(left, 1);
- } else {
- text += len;
- left -= len;
- }
- } else {
- *text++ = *fmt++;
- --left;
- }
- }
- if (left > 0) {
- *text = '\0';
- }
- return (int)(text - textstart);
- }
- #endif /* HAVE_VSNPRINTF */
- /* vi: set ts=4 sw=4 expandtab: */
|