Changeset 293a860b in tol

Timestamp:

May 25, 2012, 6:10:46 PM (14 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

f3e4228

Parents:

26d815e

Message:

Refs #1535
Se incorporan esos cambios al trunk.

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

Location:

tol/stdlib/TolPackage

Files:

• builder.tol (modified) (1 diff)
• client.tol (modified) (1 diff)
• def_catalog.tol (modified) (1 diff)

tol/stdlib/TolPackage/builder.tol

@@ -323 +323 @@
         "E");
     0}, {
+      Set parts = Tokenizer(identifier, ".");
       If(Card(parts)==3, {
         Server::DB.DeletePackage(repository.db, identifier)
       }, {
-        WriteLn("No se puede destruir sin indicar específicamente "
+        WriteLn("No se puede destruir un paquete sin indicar específicamente "
           <<"su versión.", "E");
       0})

tol/stdlib/TolPackage/client.tol

@@ -66 +66 @@
   };
 
+  ////////////////////////////////////////////////////////////////////////////
+  // Por compatibilidad a las llamadas recomendadas en:
+  //   https://www.tol-project.org/wiki/TolPackageRulesAndComments
+  Real AddRepository(Text url)
+  ////////////////////////////////////////////////////////////////////////////
+  {
+    WriteLn("Método obsoleto. Utilize en su lugar: "
+      <<"TolPackage::AddRepository.");
+    TolPackage::AddRepository(url)
+  };
+
   // Métodos Local* y Remote* mantenidos por compatibilidad
 
-  //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//
+  ////////////////////////////////////////////////////////////////////////////
   Real LocalClean(Text package)
-  //||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||//
+  ////////////////////////////////////////////////////////////////////////////
   {
     Real UninstallPackage( package )

tol/stdlib/TolPackage/def_catalog.tol

@@ -337 +337 @@
   {
     Set rows = SetConcat(EvalSet(repositories, Set (Text repository) {
-      IncludeText(GetUrlContents(repository
-        <<"?tol_package_version=1.1&action=versions"))
+      Text urlAnswer = GetUrlContents(repository
+        <<"?tol_package_version=1.1&action=versions");
+      If(Text Sub(urlAnswer, 1, 3)=="Set", IncludeText(urlAnswer), {
+        Error("El repositorio '"<<repository
+          <<"' no está respondiendo adecuadamente.");
+        Empty
+      })
     }));
     Set records = EvalSet(rows, Set (Set row) {