Changeset b490920 in tol

Timestamp:

Jun 27, 2012, 9:14:14 AM (14 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

9ac71e4

Parents:

31f6423

Message:

Fixes #1570 in 3.2

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4879 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");
-  Text lastPath = If(FileExist(_.path),_.path,
-  {
-    Set tolAppFiles = GetDir(TolAppDataPath)[1];
+  Set tolApp = GetDir(TolAppDataPath);
+  Text lastPath = Case(
+  FileExist(_.path),
+  {
+  //WriteLn("TRACE [LoadConfig] 1.1");
+    _.path
+  },
+  !Card(tolApp), 
+  {
+  //WriteLn("TRACE [LoadConfig] 1.2");
+    "::,$?"
+  },
+  1==1,
+  {
+  //WriteLn("TRACE [LoadConfig] 1.3");
+    Set tolAppFiles = tolApp[1];
+  //WriteLn("TRACE [LoadConfig] 1.3.1");
     Set tolAppConfig = Select(tolAppFiles,Real(Text fName)
     {
@@ -152 +166 @@
       TextEndAt    (fName,".tol")
     });
+  //WriteLn("TRACE [LoadConfig] 1.3.2");
     Set versions = EvalSet(tolAppConfig,Text(Text fName)
     {
       Replace(Replace(fName,".tolConfig.",""),".tol","")
     });
+  //WriteLn("TRACE [LoadConfig] 1.3.3");
     Set versions.sort = Sort(versions, Real(Text a, Text b)
     {
       Compare.VersionString(b,a)
     });
-    TolAppDataPath+".tolConfig."+versions.sort[1]+".tol"
+  //WriteLn("TRACE [LoadConfig] 1.3.4");
+    If(!Card(versions.sort),"::,$??",
+    TolAppDataPath+".tolConfig."+versions.sort[1]+".tol")
   });
 //WriteLn("TRACE [LoadConfig] 2 _.path='"+_.path+"'");