Changeset e2935d7 in tol

Timestamp:

Feb 10, 2011, 5:02:04 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

50aaa05

Parents:

1d01289

Message:

Fixes #1090

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

File:

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

tol/stdlib/general/TolPackage/client.tol

@@ -275 +275 @@
 })};
 
+//////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.DownloadPackage = 
+"Descarga desde el repositorio remoto al path indicado, un paquete "
+"determinado\n";
+Real DownloadPackage(
+  Text repository, Text package, Real showError, Text localRoot)
+//////////////////////////////////////////////////////////////////////////////
+{
+  If(TolConfigManager::Config::Upgrading::TolPackage::LocalOnly, 0, {
+  Real OSDirMake(localRoot);
+//WriteLn("TRACE [RemoteInstallPackage] 1 repository='"<<repository+"'");
+  Text package.version = package;
+  Text If(TextFind(package,"."),
+  {
+    Text package := Tokenizer(package.version,".")[1]
+  },
+  {
+    Text pkgInfo = GetUrlContents(repository+"?"
+      "action=versions&limit=1&"+
+      "package="+package+"&"+
+      min_tol_version_cond);
+    Set pkgLst = IncludeText(pkgInfo);
+    Text package.version := pkgLst[1]->co_name_version
+  });
+
+//WriteLn("TRACE [RemoteInstallPackage] 2 package='"<<package+"'");
+//WriteLn("TRACE [RemoteInstallPackage] 3 package.version='"<<package.version+"'");
+
+  Text pack = package.version+".zip";
+  Text oza = package.version+"/"+package.version+".oza";
+  Text localPack = localRoot+"/"+pack;
+  Text localOza = localRoot+"/"+oza;
+  Text localDir = localRoot+"/"+package.version;
+
+  Text encoded = GetUrlContents(repository+"?"
+    "action=download&"+
+    "format=base64&"+
+    "package="+package.version);
+//WriteLn("TRACE [RemoteInstallPackage] 4 encoded='"<<encoded+"'");
+  Real DecodeBase64ToFile(localPack, encoded);
+  If(!FileExist(localPack), False,
+  {
+  //WriteLn("TRACE DownloadPackage 4 UnpackFull("<<localDir+")");
+    Real PackArchive::UnpackFull("ZipArchive", localDir);
+    Real OSFilRemove(localPack);
+    True
+  });
+//WriteLn("TRACE DownloadPackage 5");
+  FileExist(localOza)  
+})};
 
 //////////////////////////////////////////////////////////////////////////////
@@ -293 +343 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  If(TolConfigManager::Config::Upgrading::TolPackage::LocalOnly, 0, {
-//WriteLn("TRACE [RemoteInstallPackage] 1 repository='"<<repository+"'");
-  Text package.version = package;
-  Text If(TextFind(package,"."),
-  {
-    Text package := Tokenizer(package.version,".")[1]
-  },
-  {
-    Text pkgInfo = GetUrlContents(repository+"?"
-      "action=versions&limit=1&"+
-      "package="+package+"&"+
-      min_tol_version_cond);
-    Set pkgLst = IncludeText(pkgInfo);
-    Text package.version := pkgLst[1]->co_name_version
-  });
-
-//WriteLn("TRACE [RemoteInstallPackage] 2 package='"<<package+"'");
-//WriteLn("TRACE [RemoteInstallPackage] 3 package.version='"<<package.version+"'");
-
-  Text pack = package.version+".zip";
-  Text oza = package.version+"/"+package.version+".oza";
-  Text localPack = TolPackage::Client::_.localRoot+pack;
-  Text localOza = TolPackage::Client::_.localRoot+oza;
-  Text localDir = TolPackage::Client::_.localRoot+package.version;
-
-  Text encoded = GetUrlContents(repository+"?"
-    "action=download&"+
-    "format=base64&"+
-    "package="+package.version);
-//WriteLn("TRACE [RemoteInstallPackage] 4 encoded='"<<encoded+"'");
-  Real DecodeBase64ToFile(localPack, encoded);
-  If(!FileExist(localPack), False,
-  {
-  //WriteLn("TRACE DownloadPackage 4 UnpackFull("<<localDir+")");
-    Real PackArchive::UnpackFull("ZipArchive", localDir);
-    Real OSFilRemove(localPack);
-    True
-  });
-//WriteLn("TRACE DownloadPackage 5");
-  FileExist(localOza)  
-})};
+  DownloadPackage( 
+    repository, package, showError,
+    TolPackage::Client::_.localRoot)
+};
 
 //////////////////////////////////////////////////////////////////////////////
@@ -593 +606 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  Real If(Or(updateSyncInfo,Card(_.packSyncInfo)), 
+  Real If(Or(updateSyncInfo,!Card(_.packSyncInfo)), 
     RemoteUpdatePackSyncInfo(False));
   If(!Card(_.packForUpdate), 0,
@@ -609 +622 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  Real If(Or(updateSyncInfo,Card(_.packSyncInfo)), 
+  Real If(Or(updateSyncInfo,!Card(_.packSyncInfo)), 
     RemoteUpdatePackSyncInfo(False));
   If(!Card(_.packForUpgrade), 0,
@@ -616 +629 @@
     RemoteInstallPackage(pkg->te_url, pkg->co_last_version_remote, True)
   })))
+};
+
+////////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.GetCompatibleVersion.one = 
+"Gets the latest version of a package that is compatible with a tol version.";
+Text GetCompatibleVersion.one(Text tol_version, Text package)
+////////////////////////////////////////////////////////////////////////////////
+{
+  Real If(!Card(_.versSyncInfo), 
+   TolPackage::Client::RemoteUpdateVersSyncInfo(True));
+
+  Set sel_compatible = Select(_.versSyncInfo, Real(TolPackage::@VersionSynchro reg)
+  {
+    And(reg->co_name==package, tol_version>=reg->te_min_tol_version)
+  });
+
+  Set last_compatible = Sort(sel_compatible, Real(TolPackage::@VersionSynchro a, TolPackage::@VersionSynchro b)
+  {
+    Compare(b->co_name_version,a->co_name_version)
+  })[1];
+  last_compatible->co_name_version
+};
+
+////////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.GetCompatibleVersion.all = 
+"Gets the latest versions of a set of packages that are compatible with a tol "
+"version.";
+Set GetCompatibleVersion.all(Text tol_version, Set package.list)
+////////////////////////////////////////////////////////////////////////////////
+{
+  EvalSet(package.list, Text (Text pv) 
+  {
+    GetCompatibleVersion.one(tol_version, pv)
+  })
+};
+
+////////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.GetDeepDependencies.one = 
+"Gets the list of deep depencies of a given version of a package";
+Set GetDeepDependencies.one(Text package.version)
+////////////////////////////////////////////////////////////////////////////////
+{
+  Real If(!Card(_.versSyncInfo), 
+   TolPackage::Client::RemoteUpdateVersSyncInfo(True));
+  Set sel = Select(_.versSyncInfo, Real(TolPackage::@VersionSynchro reg)
+  {
+    reg->co_name_version == package.version
+  });
+  If(!Card(sel), sel,
+  {
+    Text depExpr = sel[1]->te_dependencies;
+    Set dep = If(depExpr=="",Copy(Empty),
+    {
+      Tokenizer(depExpr,",")
+    });
+    Unique(SetConcat(EvalSet(dep,GetDeepDependencies.one))<<[[ sel[1]->co_name_version ]])
+  })
+};
+
+////////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.GetDeepDependencies.all = 
+"Gets the list of deep depencies of a list of versions of packages";
+Set GetDeepDependencies.all(Set package.version.list)
+////////////////////////////////////////////////////////////////////////////////
+{
+  Unique(SetConcat(EvalSet(package.version.list, GetDeepDependencies.one)))
+};
+
+////////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.GetVersionInfo = 
+"Gets the TolPackage::@VersionSynchro related to a version of a package";
+Set GetVersionInfo(Set package.version.list)
+////////////////////////////////////////////////////////////////////////////////
+{
+  Real If(!Card(_.versSyncInfo), 
+   TolPackage::Client::RemoteUpdateVersSyncInfo(True));
+  EvalSet(package.version.list, TolPackage::@VersionSynchro(Text pv)
+  {
+    _.versSyncInfo[pv]
+  })
+};
+
+////////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.GetCompatibleDeepDependencies = 
+"Gets the TolPackage::@VersionSynchro related to all deep dependencies of a "
+"list of packages for the last version that is compatible with a tol version";
+Set GetCompatibleDeepDependencies(Text tol_version, Set package.list)
+////////////////////////////////////////////////////////////////////////////////
+{
+  Set package.version.list = GetCompatibleVersion.all(tol_version, package.list);
+  GetVersionInfo(GetDeepDependencies.all(package.version.list))
+};
+
+////////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.DownloadCompatibleDeepDependencies = 
+"Downloads to a local directory all deep dependencies of a list of packages "
+"for the last version that is compatible with a tol version";
+Real DownloadCompatibleDeepDependencies(
+  Text localRoot,
+  Text tol_version, 
+  Set package.list)
+////////////////////////////////////////////////////////////////////////////////
+{
+  Set dep = GetCompatibleDeepDependencies(tol_version, package.list);
+  SetMin(EvalSet(dep, Real(TolPackage::@VersionSynchro vsi)
+  {
+    DownloadPackage(vsi->te_url,vsi->co_name_version,True,localRoot)
+  }))
 }