Changeset bbfe061 in tol

Timestamp:

Dec 22, 2011, 8:46:46 AM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

6232734

Parents:

0ea4b4d

Message:

Fixes #1370
Fixes #1373

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

File:

• tol/btol/bgrammar/nameblock.cpp (modified) (1 diff)

tol/btol/bgrammar/nameblock.cpp

@@ -1790 +1790 @@
 
 
+//--------------------------------------------------------------------
+DeclareContensClass(BDat, BDatTemporary, BDatAddMember);
+DefExtOpr(1, BDatAddMember, "AddMember", 2, 2, "NameBlock Anything",
+          "(NameBlock nb, Anything member)",
+          I2("Adds a new member to a NameBlock. You cannot add an object "
+       "withoput a valid and non previously used name inside the "
+       "NameBlock.\n"
+       "To avoid problems it is best to create the new member in a "
+       "local environment:\n"
+       "  Real AddMember(nb,{Real _.newMember=2}); \n"
+       "If used on an instance of a class, the new member will "
+       "only affect that instance.\n"
+       "Returns True if success. Otherwise, the consequences could "
+       "be unpredictable, so it is not advisable to use this "
+       "function except for expert users and for cause.",
+             "Añade un nuevo miembro a un NameBlock. No se puede añadir "
+       "un objeto sin un nombre válido y no usado previamente "
+       "dentro del NameBlock.\n"
+       "Para evitar problemas es mejor crear el nuevo miembro en "
+       "un entorno local:\n"
+       "  Real AddMember(nb,{Real _.newMember=2}); \n"
+       "Si se utiliza sobre una instancia de una clase el nuevo "
+       "miembro sólo afectará a esa instancia.\n" 
+       "Devuelve True en caso de éxito. En caso contrario las "
+       "consecuencias son imprevisibles, por lo que no se aconseja "
+       "el uso de esta función salvo para usuarios expertos y con "
+       "causa justificada. "),
+          BOperClassify::System_);
+//--------------------------------------------------------------------
+void BDatAddMember::CalcContens()
+//--------------------------------------------------------------------
+{
+  BNameBlock& nb = ((BUserNameBlock*)(Arg(1)))->Contens();
+  contens_ = nb.AddElement(Arg(2), true, false);  
+}
+
+