Changeset eb8d7c5 in tol

Timestamp:

Mar 4, 2011, 12:28:46 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

8670718

Parents:

57b66e4

Message:

Fixes #1114

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

File:

• tol/btol/real_type/datgrav.cpp (modified) (1 diff)

tol/btol/real_type/datgrav.cpp

@@ -2739 +2739 @@
   TolShowStatus();
 }
+
+//--------------------------------------------------------------------
+DeclareContensClass(BDat, BDatTemporary, BDatSameSet);
+DefExtOpr(1, BDatSameSet, "SameSet", 2, 2, "Set Set",
+"(Set a, Set b)",
+I2("Returns true if both objetcts have the same array of references. "
+   "That is, if by changing one amending the other and vice versa.",
+   "Devuelve cierto si los dos objetos contienen el mismo arreglo "
+   "de referencias. Es decir, si al modificar el uno se cambia el "
+   "otro y viceversa."),
+          BOperClassify::Conversion_);
+void BDatSameSet::CalcContens()
+//--------------------------------------------------------------------
+{
+  BNameBlock& a = ((BUserNameBlock*)Arg(1))->Contens();
+  BNameBlock& b = ((BUserNameBlock*)Arg(2))->Contens();
+  contens_ = (&a==&b);
+}
+
+//--------------------------------------------------------------------
+DeclareContensClass(BDat, BDatTemporary, BDatSameNameBlock);
+DefExtOpr(1, BDatSameNameBlock, "SameNameBlock", 2, 2, 
+"NameBlock NameBlock",
+"(NameBlock a, NameBlock b)",
+I2("Returns true if both objetcts have the same array of references. "
+   "That is, if by changing one amending the other and vice versa.",
+   "Devuelve cierto si los dos objetos contienen el mismo arreglo "
+   "de referencias. Es decir, si al modificar el uno se cambia el "
+   "otro y viceversa."),
+          BOperClassify::Conversion_);
+void BDatSameNameBlock::CalcContens()
+//--------------------------------------------------------------------
+{
+  BSet& a = Set(Arg(1));
+  BSet& b = Set(Arg(2));
+  contens_ = (&a==&b);
+}
+