Changeset d7ed887 in tol

Timestamp:

Dec 23, 2011, 10:04:18 AM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

61b922e

Parents:

e4c69c1

Message:

Fixes #1376

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

File:

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

tol/stdlib/general/TolPackage/client.tol

@@ -896 +896 @@
 ////////////////////////////////////////////////////////////////////////////////
 Text _.autodoc.member.GetDeepDependencies.all = 
-"Gets the list of deep depencies of a list of versions of packages";
+"Gets the list of deep depencies of a list of all versions of required "
+"packages.";
 Set GetDeepDependencies.all(Set package.version.list)
 ////////////////////////////////////////////////////////////////////////////////
@@ -902 +903 @@
   Real _trace("GetDeepDependencies.all", "Begin", 1);
   Set tab = EvalSet(package.version.list, GetDeepDependencies.one);
-  Set uni = Unique(SetConcat(tab));
+  Set all = Unique(SetConcat(tab));
   Real _trace("GetDeepDependencies.all", "End", 1);
-  uni
+  all
+};
+
+////////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.GetDeepDependencies.all.last = 
+"Gets the list of deep depencies of a list of last versions of required "
+"packages.";
+Set GetDeepDependencies.all.last(Set package.version.list)
+////////////////////////////////////////////////////////////////////////////////
+{
+  Real _trace("GetDeepDependencies.all.last", "Begin", 1);
+  Set tab = SetConcat(EvalSet(package.version.list, GetDeepDependencies.one));
+  Set cls = Classify(tab,Real(Text a, Text b)
+  {
+    Compare(Tokenizer(a,".")[1],Tokenizer(b,".")[1])
+  });
+  Set srt = EvalSet(cls,Set(Set c)
+  {
+    Sort(c,Real(Text a, Text b) { Compare.VersionString(b,a) })
+  });
+  Set last = EvalSet(srt,Text(Set c) { c[1] });
+  Real _trace("GetDeepDependencies.all.last", "End", 1);
+  last
 };