1/* Copyright (c) 2013-2015 Jeffrey Pfau
 2 *
 3 * This Source Code Form is subject to the terms of the Mozilla Public
 4 * License, v. 2.0. If a copy of the MPL was not distributed with this
 5 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
 6#include <mgba-util/formatting.h>
 7
 8#include <float.h>
 9
10int ftostr_l(char* restrict str, size_t size, float f, locale_t locale) {
11#ifdef HAVE_SNPRINTF_L
12	return snprintf_l(str, size, locale, "%.*g", FLT_DIG, f);
13#elif defined(HAVE_LOCALE)
14	locale_t old = uselocale(locale);
15	int res = snprintf(str, size, "%.*g", FLT_DIG, f);
16	uselocale(old);
17	return res;
18#elif defined(HAVE_SETLOCALE)
19	char* old = setlocale(LC_NUMERIC, locale);
20	int res = snprintf(str, size, "%.*g", FLT_DIG, f);
21	setlocale(LC_NUMERIC, old);
22	return res;
23#else
24	UNUSED(locale);
25	return snprintf(str, size, "%.*g", FLT_DIG, f);
26#endif
27}
28
29#ifndef HAVE_STRTOF_L
30float strtof_l(const char* restrict str, char** restrict end, locale_t locale) {
31#ifdef HAVE_LOCALE
32	locale_t old = uselocale(locale);
33	float res = strtof(str, end);
34	uselocale(old);
35	return res;
36#elif defined(HAVE_SETLOCALE)
37	char* old = setlocale(LC_NUMERIC, locale);
38	float res = strtof(str, end);
39	setlocale(LC_NUMERIC, old);
40	return res;
41#else
42	UNUSED(locale);
43	return strtof(str, end);
44#endif
45}
46#endif
47
48int ftostr_u(char* restrict str, size_t size, float f) {
49#if HAVE_LOCALE
50	locale_t l = newlocale(LC_NUMERIC_MASK, "C", 0);
51#else
52	locale_t l = "C";
53#endif
54	int res = ftostr_l(str, size, f, l);
55#if HAVE_LOCALE
56	freelocale(l);
57#endif
58	return res;
59}
60
61float strtof_u(const char* restrict str, char** restrict end) {
62#ifdef GEKKO
63	// strtof_l appears to have broken in devkitPPC sometime around r28
64	// TODO: Investigate further
65	float res = strtof(str, end);
66#else
67#if HAVE_LOCALE
68	locale_t l = newlocale(LC_NUMERIC_MASK, "C", 0);
69#else
70	locale_t l = "C";
71#endif
72	float res = strtof_l(str, end, l);
73#if HAVE_LOCALE
74	freelocale(l);
75#endif
76#endif
77	return res;
78}
79
80#ifndef HAVE_LOCALTIME_R
81struct tm* localtime_r(const time_t* t, struct tm* date) {
82#ifdef _WIN32
83	localtime_s(date, t);
84	return date;
85#elif defined(PSP2)
86	return sceKernelLibcLocaltime_r(t, date);
87#else
88#warning localtime_r not emulated on this platform
89	return 0;
90#endif
91}
92#endif