Changeset 9c7016b in tol

Timestamp:

Nov 28, 2011, 11:48:29 AM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

a8dad5c

Parents:

e6da686

Message:

Refs #1345

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

File:

• tol/stdlib/general/TolPackage/client.tol (modified) (4 diffs)

tol/stdlib/general/TolPackage/client.tol

@@ -515 +515 @@
   ok
 };
+
+//////////////////////////////////////////////////////////////////////////////
+Text _msg.cannotFindPackage(Text package)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Text minTolVersion = GetMinTolVersionForPackage(package);
+  If(minTolVersion=="", 
+  {
+    Set rep = TolConfigManager::Config::Upgrading::TolPackage::Repositories;
+    I2(
+    "Cannot find package "+package+" in any repository for any TOL "
+    "version.",
+    "No se encuentra el paquete "+package+" en ningún repositorio "
+    "para ninguna versión de TOL.")+"\n"+
+    I2("Instaled repositories","Repositorios instalados")+" : \n"+
+    SetSum(EvalSet(rep,Text(Text r) { "  "<<r+"\n" }))
+  },
+  { 
+    I2(
+    "Cannot find package "+package+" for current TOL version ",
+    "No se encuentra el paquete "+package+" "
+    "para la versión de TOL en curso ")+TolPackage::_.currentTolVersion+
+    ".\n"+I2("You needs to use ", "Es necesario usar ")+minTolVersion
+  })
+};
+
 
 //////////////////////////////////////////////////////////////////////////////
@@ -558 +584 @@
         If(showError,
         {
-          Text minTolVersion = GetMinTolVersionForPackage(package);
-          If(minTolVersion=="", 
-          Error(I2(
-            "Cannot find package "+package+" in any repository for any TOL "
-            "version.",
-            "No se encuentra el paquete "+package+" en ningún repositorio "
-            "para ninguna versión de TOL.")),
-          Error(I2(
-            "Cannot find package "+package+" in any repository for current "
-            "TOL version ",
-            "No se encuentra el paquete "+package+" en ningún repositorio "
-            "para la versión de TOL en curso ")+TolPackage::_.currentTolVersion+
-            ".\n"+I2("You needs to use ", "Es necesario usar ")+minTolVersion))
-        })
+          Error("[RemoteInstall ] "+_msg.cannotFindPackage(package))
+        });
+        false
       },
       {
@@ -622 +637 @@
     {
       Real found = FindIndexByName(_.versSyncInfo, pkg);
-      Date If(!found, WriteLn("[RemoteUpdateVersSyncInfo] "+I2(
-        "Cannot find remote image of local package "+pkg+
-        " in any repository." ,
-        "No se encuentra la imagen remota del paquete local "+pkg+
-        " en ningún repositorio"),"W"),
+      Date If(found, 
       {
         Date gmt = Copy(NowGmt);
@@ -674 +685 @@
       Text pkg = Tokenizer(cls[1],".")[1];
       Real found = FindIndexByName(_.packSyncInfo, pkg);
-      Real If(!found, 
-      {
-        If(showWarnings,
-          WriteLn(_MID+I2(
-          "Cannot find remote image of local package "+pkg+
-          " in any repository." ,
-          "No se encuentra la imagen remota del paquete local "+pkg+
-          " en ningún repositorio"),"W"));
-        False
-      },
+      Real If(found, 
       {
         Set ord = Sort(cls,Real ev.sort(Text a, Text b) {