Changeset ed32db7 in tol

Timestamp:

Apr 16, 2015, 7:40:08 AM (12 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

98bcbd6

Parents:

f5c3010

Message:

Refs #1821
Se modifica la llamada a LocalLastCompatible para evitar un error tras instalar y cargar un paquete automáticamente con #Require.
Se opta por este tipo de soluciones para permitir que TolPackage.4 sea compatible con versiones anteriores de TOL.

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

File:

• tol/stdlib/TolPackage/client.tol (modified) (1 diff)

tol/stdlib/TolPackage/client.tol

@@ -108 +108 @@
         Text Sub(package, 1, length-1), package); // Se elimina el punto final
       @Catalog catalog = GetCatalog(?);
-      AvoidErr.NonDecAct(catalog::ObtainLastCompatible(packageWP))
+      Text ans = AvoidErr.NonDecAct(catalog::ObtainLastCompatible(packageWP));
+      // Es necesario devolver el identificador del paquete sin variante
+      // cuando se llama justo después de instalar un paquete.
+      If(_RemoteInstall.JustCalled, {
+        Real _RemoteInstall.JustCalled := False;
+        Real posN = TextFind(ans, "#");
+        If(posN>0, {
+          Real posP = TextFind(ans, ".", posN);
+          TextSub(ans, 1, posN-1) + If(posP==0, "", TextSub(ans, posP, -1))
+        }, ans)
+      }, ans)
     })
   };
 
   //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//
+  Real _RemoteInstall.JustCalled = False;
+  //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//
   Real RemoteInstall(Text repository, Text package, Real showError)
   //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//
   {
+    // Es necesario que el método LocalLastCompatible devuelva 
+    // el identificador del paquete sin mostrar la variante
+    // cuando se llama justo después de instalar un paquete.
+    Real _RemoteInstall.JustCalled := True;
     Real length = TextLength(package);
     Text packageWP = If(Text Sub(package, length, length)==".",