Changeset 06709e3 in tol

Timestamp:

Jun 15, 2010, 12:39:25 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

8e89cc8

Parents:

3131664

Message:

Refs #916
Revisión de comentarios sobre métodos de actualización
Implementación del resto de métodos

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

File:

• tol/stdlib/general/TolPackage/repository.tol (modified) (5 diffs)

tol/stdlib/general/TolPackage/repository.tol

@@ -128 +128 @@
     {
       Set fields = Tokenizer(line[k],";","\"","\\");
-      {PackageInfo(
+      Set aux = [[{PackageInfo(
         Text repository = url,
         Text name = fields[1],
         Real version.high = Eval(fields[2]),
         Real version.low = Eval(fields[3]),
-        Real name.version
+        Real name.version = If(IsUnknown(version.high),name,
+          name+"."<<version.high+"."<<version.low),
         Text desc = fields[4],
         Text minTolVersion = fields[5],
         Text releaseDate = fields[6],
         Set dependencies = Eval("SetOfText("+fields[7]+")")
-      )}
+      )}]];
+      Set PutName(aux[1]->name.version,aux[1]);
+      aux[1]
     });
     Set _.status := Sort(pckInf,Real(PackageInfo a, PackageInfo b)
     {
-      Compare(a->name.version, b->name.version)
+      Compare(b->name.version, a->name.version)
     });
     Real numErr1 = Copy(NError);
@@ -187 +190 @@
   SetMin(EvalSet(_.status, Real(PackageInfo pi)
   {
+    DownloadFile(pi->name.version)
   })
 };
@@ -197 +201 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  //Sin implementar
-  Today
+  Real pos = FindIndexByName(_.status,package),
+  If(!pos, TheBegin,
+  { 
+    _.status[pos]->lastDate
+  })
 };
 
 //////////////////////////////////////////////////////////////////////////////
 Text _.autodoc.member.Upgrade = 
-"Actualiza automáticamente la versión más avanzada de un paquete cada vez "
-"que caduca la copia local llamando a Install .";
+"Actualiza automáticamente un paquete si ha caducado caduca la copia local "
+"llamando a Install.";
 Real Upgrade(Text package, Real caducityInDays)
 //////////////////////////////////////////////////////////////////////////////
 {
-  //Sin implementar
+  Date localDate = If(!FileExist(_.localRoot+path), TheBegin,
+    FileTime(_.localRoot+path));
+  Date lastDate = LastDate(package);
+  If(lastDate-localDate<=caducityInDays, False, Install(package));
   True
 };
@@ -214 +224 @@
 //////////////////////////////////////////////////////////////////////////////
 Text _.autodoc.member.Upgrade.All = 
-"Actualiza automáticamente la última versión de todos los paquetes "
-"disponibles en un repositorio remoto cada vez que se caduca la copia "
-"local.";
+"Actualiza automáticamentetodos los paquetes disponibles en un repositorio "
+"remoto para los que la copia local haya caducado.";
 Real Upgrade.All(Real caducityInDays)
 //////////////////////////////////////////////////////////////////////////////
 {
-  //Sin implementar
-  True
+  SetSum(EvalSet(_.status, Real(PackageInfo pi)
+  {
+    Upgrade(pi->name.version)
+  })
 };
 
@@ -237 +248 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  //Sin implementar
-  True
+  Real pos = FindIndexByName(_.status,package.version),
+  If(!pos, False,
+  { 
+    Set EvalSet(_.status[pos]->dependencies,Real(Text required)
+    {
+      Set IncludeText("#Require "+required+";\nReal True;");
+      True
+    });
+    True
+  })
 }