From c784ec00faf022476c10fc622ca43f4c68d544e1 Mon Sep 17 00:00:00 2001
From: Maurice Kalinowski <maurice.kalinowski@digia.com>
Date: Tue, 12 Nov 2013 11:48:52 +0100
Subject: [PATCH] WinRT: implement QStandardPaths

need to leave some items out like media folder access, as this is not
available by default and also requires certain capabilities to use
those.

Furthermore updated the tests for sandboxing as well as skip cmd.exe
related tests as that does not exist on WinRT.

Change-Id: I992b1e195b79615bea0be4f84f56cfb8f0d902bf
Reviewed-by: Oliver Wolff <oliver.wolff@digia.com>
---
 src/corelib/io/qstandardpaths_winrt.cpp       | 59 ++++++++++++++++++-
 .../io/qstandardpaths/tst_qstandardpaths.cpp  |  6 +-
 2 files changed, 60 insertions(+), 5 deletions(-)

diff --git a/src/corelib/io/qstandardpaths_winrt.cpp b/src/corelib/io/qstandardpaths_winrt.cpp
index 55a801332e..9b6a088a30 100644
--- a/src/corelib/io/qstandardpaths_winrt.cpp
+++ b/src/corelib/io/qstandardpaths_winrt.cpp
@@ -48,6 +48,17 @@
 
 #include <qt_windows.h>
 
+#include <wrl.h>
+#include <windows.foundation.h>
+#include <windows.storage.h>
+#include <Windows.ApplicationModel.h>
+
+using namespace Microsoft::WRL;
+using namespace Microsoft::WRL::Wrappers;
+using namespace ABI::Windows::Foundation;
+using namespace ABI::Windows::Storage;
+using namespace ABI::Windows::ApplicationModel;
+
 #ifndef QT_NO_STANDARDPATHS
 
 QT_BEGIN_NAMESPACE
@@ -59,9 +70,51 @@ static QString convertCharArray(const wchar_t *path)
 
 QString QStandardPaths::writableLocation(StandardLocation type)
 {
-    Q_UNUSED(type)
-    Q_UNIMPLEMENTED();
-    return QString();
+    QString result;
+
+    switch (type) {
+    case ConfigLocation: // same as DataLocation, on Windows
+    case DataLocation:
+    case GenericDataLocation: {
+        ComPtr<IApplicationDataStatics> applicationDataStatics;
+        if (FAILED(GetActivationFactory(HString::MakeReference(RuntimeClass_Windows_Storage_ApplicationData).Get(), &applicationDataStatics)))
+            break;
+        ComPtr<IApplicationData> applicationData;
+        if (FAILED(applicationDataStatics->get_Current(&applicationData)))
+            break;
+        ComPtr<IStorageFolder> settingsFolder;
+        if (FAILED(applicationData->get_LocalFolder(&settingsFolder)))
+            break;
+        ComPtr<IStorageItem> settingsFolderItem;
+        if (FAILED(settingsFolder.As(&settingsFolderItem)))
+            break;
+        HSTRING path;
+        if (FAILED(settingsFolderItem->get_Path(&path)))
+            break;
+        result = convertCharArray(WindowsGetStringRawBuffer(path, nullptr));
+        if (isTestModeEnabled())
+            result += QLatin1String("/qttest");
+        break;
+    }
+    case CacheLocation:
+        return writableLocation(DataLocation) + QLatin1String("/cache");
+
+    case GenericCacheLocation:
+        return writableLocation(GenericDataLocation) + QLatin1String("/cache");
+
+    case RuntimeLocation:
+    case HomeLocation:
+        result = QDir::homePath();
+        break;
+
+    case TempLocation:
+        result = QDir::tempPath();
+        break;
+    default:
+        Q_UNIMPLEMENTED();
+    }
+    return result;
+
 }
 
 QStringList QStandardPaths::standardLocations(StandardLocation type)
diff --git a/tests/auto/corelib/io/qstandardpaths/tst_qstandardpaths.cpp b/tests/auto/corelib/io/qstandardpaths/tst_qstandardpaths.cpp
index 9ac1526f07..c3a1ad206d 100644
--- a/tests/auto/corelib/io/qstandardpaths/tst_qstandardpaths.cpp
+++ b/tests/auto/corelib/io/qstandardpaths/tst_qstandardpaths.cpp
@@ -283,9 +283,9 @@ void tst_qstandardpaths::testDataLocation()
 {
     // On all platforms, DataLocation should be GenericDataLocation / organization name / app name
     // This allows one app to access the data of another app.
-    // Blackberry OS is an exception to this case, owing to the fact that
+    // Blackberry OS and WinRT are an exception to this case, owing to the fact that
     // applications are sandboxed.
-#ifndef Q_OS_BLACKBERRY
+#if !defined(Q_OS_BLACKBERRY) && !defined(Q_OS_WINRT)
     const QString base = QStandardPaths::writableLocation(QStandardPaths::GenericDataLocation);
     QCOMPARE(QStandardPaths::writableLocation(QStandardPaths::DataLocation), base + "/tst_qstandardpaths");
     QCoreApplication::instance()->setOrganizationName("Qt");
@@ -329,6 +329,7 @@ void tst_qstandardpaths::testFindExecutable_data()
     QTest::addColumn<QString>("needle");
     QTest::addColumn<QString>("expected");
 #ifdef Q_OS_WIN
+# ifndef Q_OS_WINRT
     const QFileInfo cmdFi = QFileInfo(QDir::cleanPath(QString::fromLocal8Bit(qgetenv("COMSPEC"))));
     const QString cmdPath = cmdFi.absoluteFilePath();
 
@@ -352,6 +353,7 @@ void tst_qstandardpaths::testFindExecutable_data()
         QTest::newRow("win8-logo-nosuffix")
             << QString() << logo << logoPath;
     }
+# endif // Q_OS_WINRT
 #else
     const QFileInfo shFi = findSh();
     Q_ASSERT(shFi.exists());