Changeset 444780d in tol

Timestamp:

Oct 20, 2010, 4:04:11 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

a8c7b37

Parents:

522fbed

Message:

trazas

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

File:

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

tol/stdlib/general/TolPackage/client.tol

@@ -442 +442 @@
   Set repositories = 
     TolConfigManager::Config::Upgrading::TolPackage::Repositories;
-  Set _.packSyncInfo := SetConcat(EvalSet(repositories,Set(Text rep)
+  Set _.packSyncInfo := SetConcat(EvalSet(repositories,Set ev.rep(Text rep)
   {
     Text pkgInfo = GetUrlContents(rep+"?"
@@ -451 +451 @@
   Real SetIndexByName(_.packSyncInfo);
   Set verLst = GetDir(TolPackage::Client::_.localRoot)[2];
-  Set verCls = Classify(verLst,Real(Text a, Text b)
+  Set verCls = Classify(verLst,Real ev.class(Text a, Text b)
   {
     Compare(Tokenizer(a,".")[1], Tokenizer(b,".")[1])
   });
-  Set EvalSet(verCls, Real(Set cls)
+  Set EvalSet(verCls, Real ev.check(Set cls)
   {
     Text pkg = Tokenizer(cls[1],".")[1];
     Real found = FindIndexByName(_.packSyncInfo, pkg);
-    Date If(And(!found,showWarnings), WriteLn(_MID+I2(
+    Real If(And(!found,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"),
-    {
-      Set ord = Sort(cls,Real(Text a, Text b) { Compare(b, a) });
+      " en ningún repositorio"),"W");
+      False
+    },
+    {
+      Set ord = Sort(cls,Real ev.sort(Text a, Text b) { Compare(b, a) });
       Text ver = ord[1];
       Date gmt = Copy(NowGmt);
@@ -473 +477 @@
       Date release.loc = FileTime(oza);
       Date release.gmt = Succ(release.loc,S(0),lag);
-      _.packSyncInfo[found]->co_last_version_local := ver;
-      _.packSyncInfo[found]->dh_release_date_local := release.gmt
+      Date _.packSyncInfo[found]->co_last_version_local := ver;
+      Date _.packSyncInfo[found]->dh_release_date_local := release.gmt;
+      True
     });
     True
@@ -485 +490 @@
     If(And(showWarnings,need),
     {
-      WriteLn("  Local package "+pkg->co_last_version_local+
+      WriteLn("  Local package "<<pkg->co_last_version_local+
               " created at "<<pkg->dh_release_date_local+
-              " could be updated to newer remote patch since "+pkg->dh_release_date_remote)
+              " could be updated to newer remote patch since "<<pkg->dh_release_date_remote)
     });
     need
@@ -507 +512 @@
     If(And(showWarnings,need),
     {
-      WriteLn("  Local package "+pkg->co_last_version_local+
+      WriteLn("  Local package "<<pkg->co_last_version_local+
               " could be upgraded to "<<pkg->co_last_version_remote)
     });