Changeset 2a670e5 in tol

Timestamp:

Feb 1, 2012, 6:59:59 PM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

23f300d

Parents:

2f5c82f1

Message:

Refs #992
Mixing older configuration files

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4052 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/TolConfigManager/methods.tol (modified) (2 diffs)

tol/stdlib/TolConfigManager/methods.tol

@@ -144 +144 @@
 {
 //WriteLn("TRACE [LoadConfig] 1");
-  Real Case(!FileExist(_.path),
+  Text lastPath = If(FileExist(_.path),_.path,
   {
-//WriteLn("TRACE [LoadConfig] 2.1");
+    Set tolAppFiles = GetDir(TolAppDataPath)[1];
+    Set tolAppConfig = Select(tolAppFiles,Real(Text fName)
+    {
+      TextBeginWith(fName,".tolConfig.") &
+      TextEndAt    (fName,".tol")
+    });
+    Set versions = EvalSet(tolAppConfig,Text(Text fName)
+    {
+      Replace(Replace(fName,".tolConfig.",""),".tol","")
+    });
+    Set versions.sort = Sort(versions, Real(Text a, Text b)
+    {
+      Compare.VersionString(b,a)
+    });
+    TolAppDataPath+".tolConfig."+versions.sort[1]+".tol"
+  });
+//WriteLn("TRACE [LoadConfig] 2 _.path='"+_.path+"'");
+//WriteLn("TRACE [LoadConfig] 3 lastPath='"+lastPath+"'");
+  Real Case(!FileExist(lastPath),
+  {
+  //WriteLn("TRACE [LoadConfig] 4.1");
     Real SaveConfig(Default);
     NameBlock Config := Include(_.path)[1];
@@ -153 +173 @@
   1==1,
   {
-  //WriteLn("TRACE [LoadConfig] 2.2");
+  //WriteLn("TRACE [LoadConfig] 4.2");
     NameBlock Config := 
-      MergeOptions(TolConfigManager::Default, { Include(_.path)[1] },
+      MergeOptions(TolConfigManager::Default, { Include(lastPath)[1] },
      "TolConfigManager::Config::");
     Real SaveConfig(Config)