# HG changeset patch
# User Chris Cannam
# Date 1410338445 -3600
# Node ID a8f91db36e9de56198a1d4d5b8ef8948a01f49b2
# Parent  f161ca450050b87bf8c3cd88041332f1aead1698
If the old and new-style user resource prefixes return different results, move across resources from old to new to prime the new path first time we look it up

diff -r f161ca450050 -r a8f91db36e9d base/ResourceFinder.cpp
--- a/base/ResourceFinder.cpp	Tue Sep 09 20:37:07 2014 +0100
+++ b/base/ResourceFinder.cpp	Wed Sep 10 09:40:45 2014 +0100
@@ -92,15 +92,12 @@
     return list;
 }
 
-QString
-ResourceFinder::getUserResourcePrefix()
+static QString
+getOldStyleUserResourcePrefix()
 {
-#if QT_VERSION >= 0x050000
-    QString loc = QStandardPaths::writableLocation(QStandardPaths::DataLocation);
-    return loc;
-#else
 #ifdef Q_OS_WIN32
-    // This does not work correctly for non-ASCII home directory names
+    // This is awkward and does not work correctly for non-ASCII home
+    // directory names, hence getNewStyleUserResourcePrefix() below
     char *homedrive = getenv("HOMEDRIVE");
     char *homepath = getenv("HOMEPATH");
     QString home;
@@ -124,9 +121,85 @@
         .arg(qApp->applicationName());
 #endif
 #endif
+}
+
+static QString
+getNewStyleUserResourcePrefix()
+{
+#if QT_VERSION >= 0x050000
+    // This is expected to be much more reliable than
+    // getOldStyleUserResourcePrefix(), but it returns a different
+    // directory because it includes the organisation name (which is
+    // fair enough). Hence migrateOldStyleResources() which moves
+    // across any resources found in the old-style path the first time
+    // we look for the new-style one
+    return QStandardPaths::writableLocation(QStandardPaths::DataLocation);
+#else
+    return getOldStyleUserResourcePrefix();
 #endif
 }
 
+static void
+migrateOldStyleResources()
+{
+    QString oldPath = getOldStyleUserResourcePrefix();
+    QString newPath = getNewStyleUserResourcePrefix();
+    
+    if (oldPath != newPath &&
+        QDir(oldPath).exists() &&
+        !QDir(newPath).exists()) {
+
+        QDir d(oldPath);
+        
+        if (!d.mkpath(newPath)) {
+            cerr << "WARNING: Failed to create new-style resource path \""
+                 << newPath << "\" to migrate old resources to" << endl;
+            return;
+        }
+
+        QDir target(newPath);
+
+        bool success = true;
+
+        QStringList entries
+            (d.entryList(QDir::Dirs | QDir::Files | QDir::NoDotAndDotDot));
+
+        foreach (QString entry, entries) {
+            if (d.rename(entry, target.filePath(entry))) {
+                cerr << "NOTE: Successfully moved resource \""
+                     << entry << "\" from old resource path to new" << endl;
+            } else {
+                cerr << "WARNING: Failed to move old resource \""
+                     << entry << "\" from old location \""
+                     << oldPath << "\" to new location \""
+                     << newPath << "\"" << endl;
+                success = false;
+            }
+        }
+
+        if (success) {
+            if (!d.rmdir(oldPath)) {
+                cerr << "WARNING: Failed to remove old resource path \""
+                     << oldPath << "\" after migrating " << entries.size()
+                     << " resource(s) to new path \"" << newPath
+                     << "\" (directory not empty?)" << endl;
+            } else {
+                cerr << "NOTE: Successfully moved " << entries.size()
+                     << " resource(s) from old resource "
+                     << "path \"" << oldPath << "\" to new path \""
+                     << newPath << "\"" << endl;
+            }
+        }
+    }
+}
+
+QString
+ResourceFinder::getUserResourcePrefix()
+{
+    migrateOldStyleResources();
+    return getNewStyleUserResourcePrefix();
+}
+
 QStringList
 ResourceFinder::getResourcePrefixList()
 {