Changeset f01ced8c in tol

Timestamp:

Dec 27, 2010, 6:10:01 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

0db02f4

Parents:

239a237

Message:

Refs #981
New method GetMinTolVersionForPackage
Enhanced error message when a package is not found

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

File:

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

tol/stdlib/general/TolPackage/client.tol

@@ -181 +181 @@
   Real OSDirMake(_.localRoot)
 };
+
+//////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.GetMinTolVersionForPackage = 
+"Devuelve la versión de TOL mínima que requiere un paquete dado"
+"Si no se encuentra el paquete se devuelve la cadena vacía.";
+Text GetMinTolVersionForPackage(Text package)
+//////////////////////////////////////////////////////////////////////////////
+{
+//WriteLn("TRACE [RemoteFindRepository] 1 package='"<<package+"'");
+  If(TolConfigManager::Config::Upgrading::TolPackage::LocalOnly, "", {
+//WriteLn("TRACE [RemoteFindRepository] 2");
+  Set repositories = 
+    TolConfigManager::Config::Upgrading::TolPackage::Repositories;
+  Real K = Card(repositories); 
+  Real k = 1;
+  Text found = "";
+//WriteLn("TRACE [RemoteFindRepository] 3 K="<<K);
+  While(And(found=="", k<=K),
+  {
+  //WriteLn("TRACE [RemoteFindRepository] 4 repositories["<<k+"]="<<repositories[k]);
+    Text pkgInfo = GetUrlContents(repositories[k]+"?"
+      "action=versions&limit=1&"+
+      "package="+package);
+    Set pkgLst = IncludeText(pkgInfo);
+  //WriteLn("TRACE [RemoteFindRepository] 5 pkgInfo="<<pkgInfo);
+  //WriteLn("TRACE [RemoteFindRepository] 6 pkgLst="<<pkgLst);
+  //WriteLn("TRACE [RemoteFindRepository] 7 Card(pkgLst)="<<Card(pkgLst));
+    Text If(Card(pkgLst)>0, found := pkgLst[1]->te_min_tol_version);
+    Real k := k+1
+  });
+  found
+})};
 
 //////////////////////////////////////////////////////////////////////////////
@@ -359 +391 @@
     If(rep=="", 
     {
-      If(showError,Error(I2(
-       "Cannot find package "+package+" in any repository",
-       "No se encuentra el paquete "+package+" en ningún repositorio")))
+      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))
+      })
     },
     {
@@ -575 +620 @@
 
 
+