Changeset 176c3d90 in tol

Timestamp:

Jul 24, 2009, 4:40:17 PM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

10e4c70

Parents:

47bb2da

Message:

ClassOf instead of GetClassOf, closes #719

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

File:

• tol/btol/text_type/txtgra.cpp (modified) (3 diffs)

tol/btol/text_type/txtgra.cpp

@@ -33 +33 @@
 #include <tol/tol_btxtgra.h>
 #include <tol/tol_bout.h>
+#include <tol/tol_bnameblock.h>
 #include <tol/tol_bsys.h>
 #include <tol/tol_bdir.h>
@@ -2246 +2247 @@
 }
 
-
+//--------------------------------------------------------------------
+DeclareContensClass(BText, BTxtTemporary, BTxtClassOf);
+DefExtOpr(1, BTxtClassOf, "ClassOf", 1, 1,
+          "NameBlock",
+          "(NameBlock instance )",
+          I2("Returns the class name for a give NameBlock. If the nameBlock does not have Class associated returns empty \"\"",
+             "Retorna el nombre de la clase asociada con un NameBlock. Si el NameBlock no tiene clase asociada retorna cadena vacia \"\""),
+          BOperClassify::General_);
+
+//--------------------------------------------------------------------
+void BTxtClassOf::CalcContens()
+//--------------------------------------------------------------------
+{
+  const BNameBlock& nb = ((BUserNameBlock*)(Arg(1)))->Contens();
+  const BClass* cls = nb.Class( );
+  if ( cls ) {
+    contens_ = cls->getName( );
+  }
+}
 
 //--------------------------------------------------------------------
@@ -2382 +2401 @@
     contens_ = BText(base.c_str());
 }
-
 #endif /* __USE_TC__ */