Changeset 37c9aa7 in tol

Timestamp:

May 9, 2012, 2:52:44 PM (14 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

9042aac

Parents:

77a7024

Message:

refs #1502, se corrige un error en UninstallPackage y se restaura LocalClean

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

File:

• tol/stdlib/TolPackage/client.tol (modified) (2 diffs)

tol/stdlib/TolPackage/client.tol

@@ -69 +69 @@
 
   //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//
+  Real LocalClean(Text package)
+  //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//
+  {
+    Real UninstallPackage( package )
+  };
+  
+  //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//
   Text LocalLastCompatible(Text package)
   //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//
@@ -137 +144 @@
     // Se trata el hecho de que pueda haberse indicado la ruta del archivo
     Text pattern = Replace(GetFileName(package), ".zip", "");
-    Text parts = Tokenizer(pattern, ".")[3];
-    Set parts := parts << For(1, 3-Card(parts), Text (Real i) { "*" });
+    Set parts = Tokenizer(pattern, ".");
+    Set Append( parts, For( Card(parts) + 1, 3, Text (Real i) { "*" } ) );
     Text txtPattern = parts[1]<<"."<<parts[2]<<"."<<parts[3];
     Set dir = GetDir(_.localRoot)[2];
     Set sel = EvalSet(GetDir(_.localRoot)[2], Real (Text subdir) {
-      If(TextMatch(sub ,txtPattern), OSDirRemove(_.localRoot<<subdir), 0)
+      If(TextMatch(subdir ,txtPattern), OSDirRemove(_.localRoot<<subdir), 0)
     });
     If(Card(sel), SetSum(sel), 0)