/***************************************************************************** * unicode.c: Unicode <-> locale functions ***************************************************************************** * Copyright (C) 2005-2006 the VideoLAN team * Copyright ? 2005-2008 Rémi Denis-Courmont * * Authors: Rémi Denis-Courmont <rem # videolan.org> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program 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 General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA. *****************************************************************************//***************************************************************************** * Preamble *****************************************************************************/#ifdef HAVE_CONFIG_H# include "config.h"#endif#include <vlc_common.h>#include <vlc_charset.h>#include "libvlc.h" /* utf8_mkdir */#include <assert.h>#include <stdio.h>#include <stdarg.h>#include <stdlib.h>#include <errno.h>#include <sys/types.h>#ifdef HAVE_DIRENT_H#  include <dirent.h>#endif#ifdef UNDER_CE#  include <tchar.h>#endif#ifdef HAVE_SYS_STAT_H# include <sys/stat.h>#endif#ifdef HAVE_FCNTL_H# include <fcntl.h>#endif#ifdef WIN32# include <io.h>#else# include <unistd.h>#endif#ifndef HAVE_LSTAT# define lstat( a, b ) stat(a, b)#endif#ifdef __APPLE__/* Define this if the OS always use UTF-8 internally */# define ASSUME_UTF8 1#endif#if defined (ASSUME_UTF8)/* Cool */#elif defined (WIN32) || defined (UNDER_CE)# define USE_MB2MB 1#elif defined (HAVE_ICONV)# define USE_ICONV 1#else# error No UTF8 charset conversion implemented on this platform!#endif#if defined (USE_ICONV)# include <langinfo.h>static char charset[sizeof ("CSISO11SWEDISHFORNAMES")] = "";static void find_charset_once (void){    strlcpy (charset, nl_langinfo (CODESET), sizeof (charset));    if (!strcasecmp (charset, "ASCII")     || !strcasecmp (charset, "ANSI_X3.4-1968"))        strcpy (charset, "UTF-8"); /* superset... */}static int find_charset (void){    static pthread_once_t once = PTHREAD_ONCE_INIT;    pthread_once (&once, find_charset_once);    return !strcasecmp (charset, "UTF-8");}#endifstatic char *locale_fast (const char *string, bool from){#if defined (USE_ICONV)    if (find_charset ())        return (char *)string;    vlc_iconv_t hd = vlc_iconv_open (from ? "UTF-8" : charset,                                     from ? charset : "UTF-8");    if (hd == (vlc_iconv_t)(-1))        return NULL; /* Uho! */    const char *iptr = string;    size_t inb = strlen (string);    size_t outb = inb * 6 + 1;    char output[outb], *optr = output;    if (string == NULL)        return NULL;    while (vlc_iconv (hd, &iptr, &inb, &optr, &outb) == (size_t)(-1))    {        *optr++ = '?';        outb--;        iptr++;        inb--;        vlc_iconv (hd, NULL, NULL, NULL, NULL); /* reset */    }    *optr = '\0';    vlc_iconv_close (hd);    assert (inb == 0);    assert (*iptr == '\0');    assert (*optr == '\0');    assert (strlen (output) == (size_t)(optr - output));    return strdup (output);#elif defined (USE_MB2MB)    char *out;    int len;    if (string == NULL)        return NULL;    len = 1 + MultiByteToWideChar (from ? CP_ACP : CP_UTF8,                                   0, string, -1, NULL, 0);    wchar_t wide[len];    MultiByteToWideChar (from ? CP_ACP : CP_UTF8, 0, string, -1, wide, len);    len = 1 + WideCharToMultiByte (from ? CP_UTF8 : CP_ACP, 0, wide, -1,                                   NULL, 0, NULL, NULL);    out = malloc (len);    if (out == NULL)        return NULL;    WideCharToMultiByte (from ? CP_UTF8 : CP_ACP, 0, wide, -1, out, len,                         NULL, NULL);    return out;#else    (void)from;    return (char *)string;#endif}static inline char *locale_dup (const char *string, bool from){    assert( string );#if defined (USE_ICONV)    if (find_charset ())        return strdup (string);    return locale_fast (string, from);#elif defined (USE_MB2MB)    return locale_fast (string, from);#else    (void)from;    return strdup (string);#endif}/** * Releases (if needed) a localized or uniformized string. * @param str non-NULL return value from FromLocale() or ToLocale(). */void LocaleFree (const char *str){#if defined (USE_ICONV)    if (!find_charset ())        free ((char *)str);#elif defined (USE_MB2MB)    free ((char *)str);#else    (void)str;#endif}/** * Converts a string from the system locale character encoding to UTF-8. * * @param locale nul-terminated string to convert * * @return a nul-terminated UTF-8 string, or NULL in case of error. * To avoid memory leak, you have to pass the result to LocaleFree() * when it is no longer needed. */char *FromLocale (const char *locale){    return locale_fast (locale, true);}/** * converts a string from the system locale character encoding to utf-8, * the result is always allocated on the heap. * * @param locale nul-terminated string to convert * * @return a nul-terminated utf-8 string, or null in case of error. * The result must be freed using free() - as with the strdup() function. */char *FromLocaleDup (const char *locale){    return locale_dup (locale, true);}/** * ToLocale: converts an UTF-8 string to local system encoding. * * @param utf8 nul-terminated string to be converted * * @return a nul-terminated string, or NULL in case of error. * To avoid memory leak, you have to pass the result to LocaleFree() * when it is no longer needed. */char *ToLocale (const char *utf8){    return locale_fast (utf8, false);}/** * converts a string from UTF-8 to the system locale character encoding, * the result is always allocated on the heap. * * @param utf8 nul-terminated string to convert * * @return a nul-terminated string, or null in case of error. * The result must be freed using free() - as with the strdup() function. */char *ToLocaleDup (const char *utf8){    return locale_dup (utf8, false);}/** * Opens a system file handle using UTF-8 paths. * * @param filename file path to open (with UTF-8 encoding) * @param flags open() flags, see the C library open() documentation * @param mode file permissions if creating a new file * @return a file handle on success, -1 on error (see errno). */int utf8_open (const char *filename, int flags, mode_t mode){#if defined (WIN32) || defined (UNDER_CE)    if (GetVersion() < 0x80000000)    {        /* for Windows NT and above */        wchar_t wpath[MAX_PATH + 1];        if (!MultiByteToWideChar (CP_UTF8, 0, filename, -1, wpath, MAX_PATH))        {            errno = ENOENT;            return -1;        }        wpath[MAX_PATH] = L'\0';        /*         * open() cannot open files with non-“ANSI” characters on Windows.         * We use _wopen() instead. Same thing for mkdir() and stat().         */        return _wopen (wpath, flags, mode);    }#endif    const char *local_name = ToLocale (filename);    if (local_name == NULL)    {        errno = ENOENT;        return -1;    }    int fd = open (local_name, flags, mode);    LocaleFree (local_name);    return fd;}/** * Opens a FILE pointer using UTF-8 filenames. * @param filename file path, using UTF-8 encoding * @param mode fopen file open mode * @return NULL on error, an open FILE pointer on success. */FILE *utf8_fopen (const char *filename, const char *mode){    int rwflags = 0, oflags = 0;    bool append = false;    for (const char *ptr = mode; *ptr; ptr++)    {        switch (*ptr)        {            case 'r':                rwflags = O_RDONLY;                break;            case 'a':                rwflags = O_WRONLY;                oflags |= O_CREAT;                append = true;                break;            case 'w':                rwflags = O_WRONLY;                oflags |= O_CREAT | O_TRUNC;                break;            case '+':                rwflags = O_RDWR;                break;#ifdef O_TEXT            case 't':                oflags |= O_TEXT;                break;#endif        }    }    int fd = utf8_open (filename, rwflags | oflags, 0666);    if (fd == -1)        return NULL;    if (append && (lseek (fd, 0, SEEK_END) == -1))    {        close (fd);        return NULL;    }    FILE *stream = fdopen (fd, mode);    if (stream == NULL)        close (fd);    return stream;}/** * Creates a directory using UTF-8 paths. * * @param dirname a UTF-8 string with the name of the directory that you *        want to create. * @param mode directory permissions * @return 0 on success, -1 on error (see errno). */int utf8_mkdir( const char *dirname, mode_t mode ){#if defined (UNDER_CE) || defined (WIN32)    VLC_UNUSED( mode );    wchar_t wname[MAX_PATH + 1];    char mod[MAX_PATH + 1];    int i;    /* Convert '/' into '\' */    for( i = 0; *dirname; i++ )    {        if( i == MAX_PATH )            return -1; /* overflow */        if( *dirname == '/' )            mod[i] = '\\';        else            mod[i] = *dirname;        dirname++;    }    mod[i] = 0;    if( MultiByteToWideChar( CP_UTF8, 0, mod, -1, wname, MAX_PATH ) == 0 )    {        errno = ENOENT;        return -1;    }    wname[MAX_PATH] = L'\0';    if( CreateDirectoryW( wname, NULL ) == 0 )    {        if( GetLastError( ) == ERROR_ALREADY_EXISTS )            errno = EEXIST;        else            errno = ENOENT;        return -1;    }    return 0;#else