108 

   109 #ifdef WITH_ICONV

   110 

   111 #include <iconv.h>

   112 #include <errno.h>

   113 #include "debug.h"

   114 #include "string_func.h"

   115 

   116 const char *GetCurrentLocale(const char *param);

   117 

   118 #define INTERNALCODE "UTF-8"

   119 

   120 /** Try and try to decipher the current locale from environmental

   121  * variables. MacOSX is hardcoded, other OS's are dynamic. If no suitable

   122  * locale can be found, don't do any conversion "" */

   123 static const char *GetLocalCode()

   124 {

   125 #if defined(__APPLE__)

   126 	return "UTF-8-MAC";

   127 #else

   128 	/* Strip locale (eg en_US.UTF-8) to only have UTF-8 */

   129 	const char *locale = GetCurrentLocale("LC_CTYPE");

   130 	if (locale != NULL) locale = strchr(locale, '.');

   131 

   132 	return (locale == NULL) ? "" : locale + 1;

   133 #endif

   134 }

   135 

   136 /** FYI: This is not thread-safe.

   137  * convert between locales, which from and which to is set in the calling

   138  * functions OTTD2FS() and FS2OTTD(). You should NOT use this function directly

   139  * NOTE: iconv was added in OSX 10.3. 10.2.x will still have the invalid char

   140  * issues. There aren't any easy fix for this */

   141 static const char *convert_tofrom_fs(iconv_t convd, const char *name)

   142 {

   143 	static char buf[1024];

   144 	/* Work around buggy iconv implementation where inbuf is wrongly typed as

   145 	 * non-const. Correct implementation is at

   146 	 * http://www.opengroup.org/onlinepubs/007908799/xsh/iconv.html */

   147 #ifdef HAVE_BROKEN_ICONV

   148 	char *inbuf = (char*)name;

   149 #else

   150 	const char *inbuf = name;

   151 #endif

   152 

   153 	char *outbuf  = buf;

   154 	size_t outlen = sizeof(buf) - 1;

   155 	size_t inlen  = strlen(name);

   156 

   157 	ttd_strlcpy(outbuf, name, sizeof(buf));

   158 

   159 	iconv(convd, NULL, NULL, NULL, NULL);

   160 	if (iconv(convd, &inbuf, &inlen, &outbuf, &outlen) == (size_t)(-1)) {

   161 		DEBUG(misc, 0, "[iconv] error converting '%s'. Errno %d", name, errno);

   162 	}

   163 

   164 	*outbuf = '\0';

   165 	/* FIX: invalid characters will abort conversion, but they shouldn't occur? */

   166 	return buf;

   167 }

   168 

   169 /** Convert from OpenTTD's encoding to that of the local environment

   170  * @param name pointer to a valid string that will be converted

   171  * @return pointer to a new stringbuffer that contains the converted string */

   172 const char *OTTD2FS(const char *name)

   173 {

   174 	static iconv_t convd = (iconv_t)(-1);

   175 

   176 	if (convd == (iconv_t)(-1)) {

   177 		const char *env = GetLocalCode();

   178 		convd = iconv_open(env, INTERNALCODE);

   179 		if (convd == (iconv_t)(-1)) {

   180 			DEBUG(misc, 0, "[iconv] conversion from codeset '%s' to '%s' unsupported", INTERNALCODE, env);

   181 			return name;

   182 		}

   183 	}

   184 

   185 	return convert_tofrom_fs(convd, name);

   186 }

   187 

   188 /** Convert to OpenTTD's encoding from that of the local environment

   189  * @param name pointer to a valid string that will be converted

   190  * @return pointer to a new stringbuffer that contains the converted string */

   191 const char *FS2OTTD(const char *name)

   192 {

   193 	static iconv_t convd = (iconv_t)(-1);

   194 

   195 	if (convd == (iconv_t)(-1)) {

   196 		const char *env = GetLocalCode();

   197 		convd = iconv_open(INTERNALCODE, env);

   198 		if (convd == (iconv_t)(-1)) {

   199 			DEBUG(misc, 0, "[iconv] conversion from codeset '%s' to '%s' unsupported", env, INTERNALCODE);

   200 			return name;

   201 		}

   202 	}

   203 

   204 	return convert_tofrom_fs(convd, name);

   205 }

   206 

   207 #else

   208 const char *FS2OTTD(const char *name) {return name;}

   209 const char *OTTD2FS(const char *name) {return name;}

   210 #endif /* WITH_ICONV */