Changeset f1f6034 in tol

Timestamp:

Feb 28, 2010, 9:58:13 AM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

da7fccc5

Parents:

0e3f1271

Message:

New built-in function Set Concat(Set set1, Set set2 [, Set set3, ...])

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

File:

• tol/btol/set_type/setgra.cpp (modified) (2 diffs)

tol/btol/set_type/setgra.cpp

@@ -589 +589 @@
 }
 
+//--------------------------------------------------------------------
+DeclareContensClass(BSet, BSetTemporary, BSetConcatAll);
+DefIntOpr(1, BSetConcatAll, "Concat", 2, 0,
+          I2("(Set set1, Set set2 [, Set set3, ...])",
+             "(Set cto1, Set cto2 [, Set cto3, ...])"),
+          I2("Returns the concatenation of two or more sets.",
+             "Devuelve la concatenación de dos o más conjuntos."),
+          BOperClassify::SetAlgebra_);
+//--------------------------------------------------------------------
+void BSetConcatAll::CalcContens()
+//--------------------------------------------------------------------
+{
+  BSet setOfSets;
+  setOfSets.PutElement(ArgList());
+  int k, n, totCard = 0;
+  for(n=1; n<=setOfSets.Card(); n++)
+  { 
+    BSet& set = Set(setOfSets[n]);
+    totCard += set.Card(); 
+  }
+  contens_.PrepareStore(totCard);
+  for(n=1; n<=setOfSets.Card(); n++)
+  {
+    BSet& set = Set(setOfSets[n]);
+    for(k=1; k<=set.Card(); k++)
+    {
+      contens_.AddElement(set[k]);
+    }
+  }
+}
+
 
 //--------------------------------------------------------------------
@@ -736 +767 @@
     contens_ = set.Contens();
 }
+