Changeset 1da3860 in tol

Timestamp:

May 30, 2012, 5:48:49 PM (14 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

63ef228

Parents:

f3e4228

Message:

Refs #1543
Se trata también la función RemoteInstall, llamada también desde el archivo language.cpp. (en el trunk)

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

File:

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

tol/stdlib/TolPackage/client.tol

@@ -101 +101 @@
   //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//
   {
+    Real length = TextLength(package);
+    Text packageWP = If(Text Sub(package, length, length)==".", 
+      Text Sub(package, 1, length-1), package); // Se elimina el punto final
     WriteLn("[TolPackage::Client] Se intentará descargar el paquete '"
-      <<package<<"'.");
-    InstallLastCompatible(package)
+      <<packageWP<<"'.");
+    InstallLastCompatible(packageWP)
   };