/*****************************************************************************
 * dirs.c: directories configuration
 *****************************************************************************
 * Copyright (C) 2001-2010 VLC authors and VideoLAN
 * Copyright © 2007-2012 Rémi Denis-Courmont
 *
 * Authors: Gildas Bazin <gbazin@videolan.org>
 *
 * This program 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 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 Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser 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.
 *****************************************************************************/

#ifdef HAVE_CONFIG_H
# include "config.h"
#endif

#define COBJMACROS
#define INITGUID

#ifndef UNICODE
#define UNICODE
#endif
#include <vlc_common.h>

#ifdef __MINGW32__
# include <w32api.h>
#endif
#include <direct.h>
#include <shlobj.h>

#include "../libvlc.h"
#include <vlc_charset.h>
#include <vlc_configuration.h>
#include "config/configuration.h"

#include <assert.h>
#include <limits.h>

#if VLC_WINSTORE_APP
#include <winstring.h>
#include <windows.storage.h>
#include <roapi.h>

#ifndef CSIDL_LOCAL_APPDATA
# define CSIDL_LOCAL_APPDATA 0x001C
#endif

static HRESULT WinRTSHGetFolderPath(HWND hwnd, int csidl, HANDLE hToken, DWORD dwFlags, LPWSTR pszPath)
{
    VLC_UNUSED(hwnd);
    VLC_UNUSED(hToken);

    HRESULT hr;
    IStorageFolder *folder;

    if (dwFlags != SHGFP_TYPE_CURRENT)
        return E_NOTIMPL;

    folder = NULL;
    csidl &= ~0xFF00; /* CSIDL_FLAG_MASK */

    if (csidl == CSIDL_APPDATA) {
        IApplicationDataStatics *appDataStatics = NULL;
        IApplicationData *appData = NULL;
        static const WCHAR *className = L"Windows.Storage.ApplicationData";
        const UINT32 clen = wcslen(className);

        HSTRING hClassName = NULL;
        HSTRING_HEADER header;
        hr = WindowsCreateStringReference(className, clen, &header, &hClassName);
        if (FAILED(hr))
            goto end_appdata;

        hr = RoGetActivationFactory(hClassName, &IID_IApplicationDataStatics, (void**)&appDataStatics);

        if (FAILED(hr))
            goto end_appdata;

        if (!appDataStatics) {
            hr = E_FAIL;
            goto end_appdata;
        }

        hr = IApplicationDataStatics_get_Current(appDataStatics, &appData);

        if (FAILED(hr))
            goto end_appdata;

        if (!appData) {
            hr = E_FAIL;
            goto end_appdata;
        }

        hr = IApplicationData_get_LocalFolder(appData, &folder);

end_appdata:
        WindowsDeleteString(hClassName);
        if (appDataStatics)
            IApplicationDataStatics_Release(appDataStatics);
        if (appData)
            IApplicationData_Release(appData);
    }
    else
    {
        IKnownFoldersStatics *knownFoldersStatics = NULL;
        static const WCHAR *className = L"Windows.Storage.KnownFolders";
        const UINT32 clen = wcslen(className);

        HSTRING hClassName = NULL;
        HSTRING_HEADER header;
        hr = WindowsCreateStringReference(className, clen, &header, &hClassName);
        if (FAILED(hr))
            goto end_other;

        hr = RoGetActivationFactory(hClassName, &IID_IKnownFoldersStatics, (void**)&knownFoldersStatics);

        if (FAILED(hr))
            goto end_other;

        if (!knownFoldersStatics) {
            hr = E_FAIL;
            goto end_other;
        }

        switch (csidl) {
        case CSIDL_PERSONAL:
            hr = IKnownFoldersStatics_get_DocumentsLibrary(knownFoldersStatics, &folder);
            break;
        case CSIDL_MYMUSIC:
            hr = IKnownFoldersStatics_get_MusicLibrary(knownFoldersStatics, &folder);
            break;
        case CSIDL_MYPICTURES:
            hr = IKnownFoldersStatics_get_PicturesLibrary(knownFoldersStatics, &folder);
            break;
        case CSIDL_MYVIDEO:
            hr = IKnownFoldersStatics_get_VideosLibrary(knownFoldersStatics, &folder);
            break;
        default:
            hr = E_NOTIMPL;
        }

end_other:
        WindowsDeleteString(hClassName);
        if (knownFoldersStatics)
            IKnownFoldersStatics_Release(knownFoldersStatics);
    }

    if( SUCCEEDED(hr) && folder != NULL )
    {
        HSTRING path = NULL;
        IStorageItem *item = NULL;
        PCWSTR pszPathTemp;
        hr = IStorageFolder_QueryInterface(folder, &IID_IStorageItem, (void**)&item);
        if (FAILED(hr))
            goto end_folder;
        hr = IStorageItem_get_Path(item, &path);
        if (FAILED(hr))
            goto end_folder;
        pszPathTemp = WindowsGetStringRawBuffer(path, NULL);
        wcscpy(pszPath, pszPathTemp);
end_folder:
        WindowsDeleteString(path);
        IStorageFolder_Release(folder);
        if (item)
            IStorageItem_Release(item);
    }

    return hr;
}
#define SHGetFolderPathW WinRTSHGetFolderPath
#endif

char *config_GetLibDir (void)
{
#if VLC_WINSTORE_APP
    return NULL;
#else
    /* Get our full path */
    MEMORY_BASIC_INFORMATION mbi;
    if (!VirtualQuery (config_GetLibDir, &mbi, sizeof(mbi)))
        goto error;

    wchar_t wpath[MAX_PATH];
    if (!GetModuleFileName ((HMODULE) mbi.AllocationBase, wpath, MAX_PATH))
        goto error;

    wchar_t *file = wcsrchr (wpath, L'\\');
    if (file == NULL)
        goto error;
    *file = L'\0';

    return FromWide (wpath);
error:
    abort ();
#endif
}

char *config_GetDataDir (void)
{
    const char *path = getenv ("VLC_DATA_PATH");
    return (path != NULL) ? strdup (path) : config_GetLibDir ();
}

static char *config_GetShellDir (int csidl)
{
    wchar_t wdir[MAX_PATH];

    if (SHGetFolderPathW (NULL, csidl,
                          NULL, SHGFP_TYPE_CURRENT, wdir ) == S_OK)
        return FromWide (wdir);
    return NULL;
}

static char *config_GetAppDir (void)
{
#if !VLC_WINSTORE_APP
    /* if portable directory exists, use it */
    WCHAR path[MAX_PATH];
    if (GetModuleFileNameW (NULL, path, MAX_PATH))
    {
        WCHAR *lastDir = wcsrchr (path, L'\\');
        if (lastDir)
        {
            *lastDir = L'\0';
            size_t pathlen = wcslen(path);
            if ( pathlen + 1 + wcslen(L"\\portable" ) <= MAX_PATH )
            {
                wcscpy( &path[pathlen], L"\\portable" );
                DWORD attrib = GetFileAttributesW (path);
                if (attrib != INVALID_FILE_ATTRIBUTES &&
                        (attrib & FILE_ATTRIBUTE_DIRECTORY))
                    return FromWide (path);
            }
        }
    }
#endif

    char *psz_dir;
    char *psz_parent = config_GetShellDir (CSIDL_APPDATA);

    if (psz_parent == NULL
     ||  asprintf (&psz_dir, "%s\\vlc", psz_parent) == -1)
        psz_dir = NULL;
    free (psz_parent);
    return psz_dir;
}

#warning FIXME Use known folders on Vista and above
char *config_GetUserDir (vlc_userdir_t type)
{
    switch (type)
    {
        case VLC_HOME_DIR:
            return config_GetShellDir (CSIDL_PERSONAL);
        case VLC_CONFIG_DIR:
        case VLC_DATA_DIR:
            return config_GetAppDir ();
        case VLC_CACHE_DIR:
#if !VLC_WINSTORE_APP
            return config_GetAppDir ();
#else
            return config_GetShellDir (CSIDL_LOCAL_APPDATA);
#endif

        case VLC_DESKTOP_DIR:
        case VLC_DOWNLOAD_DIR:
        case VLC_TEMPLATES_DIR:
        case VLC_PUBLICSHARE_DIR:
        case VLC_DOCUMENTS_DIR:
            return config_GetUserDir(VLC_HOME_DIR);
        case VLC_MUSIC_DIR:
            return config_GetShellDir (CSIDL_MYMUSIC);
        case VLC_PICTURES_DIR:
            return config_GetShellDir (CSIDL_MYPICTURES);
        case VLC_VIDEOS_DIR:
            return config_GetShellDir (CSIDL_MYVIDEO);
    }
    vlc_assert_unreachable ();
}
