Changeset 315916e in tol

Timestamp:

Mar 25, 2011, 6:49:40 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

2075779

Parents:

eb5dfc6

Message:

Refs #1144

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

Location:

tol

Files:

• bbasic/tol_btext.h (modified) (2 diffs)
• btol/text_type/txtgra.cpp (modified) (1 diff)

tol/bbasic/tol_btext.h

@@ -388 +388 @@
   BBool Match (const BText pattern, BBool caseSensitive=BFALSE) const;
 
+  //! Returns the wrapped text \a txt compacted
+  BText Wrap (
+    int lineSize, 
+    const BText& wordSep_, 
+    const BText& prefix_);
+
   friend ostream& operator<<(ostream& os, const BText& txt);
 
@@ -411 +417 @@
   //! Returns the text \a txt compacted
   friend BText Compact (const BText& txt);
+
 
         friend BText TmpFileName(const BText& path=BText::None(), const BText& prefix=BText::None());

tol/btol/text_type/txtgra.cpp

@@ -2554 +2554 @@
 }
 #endif /* __USE_TC__ */
+
+//--------------------------------------------------------------------
+DeclareContensClass(BText, BTxtTemporary, BTextClassApi);
+DefExtOpr(1, BTextClassApi, "ClassApi", 1, 1, "Text",
+          "(Text className)",
+          I2("Returns the API of a previously defined class.",
+             "Devuelve la API de una clase definida previamente."),
+          BOperClassify::System_);
+void BTextClassApi::CalcContens()
+//--------------------------------------------------------------------
+{
+  BText name = Text(Arg(1));
+  BClass* cls = FindClass(name, true);
+  if(cls)
+  {
+    contens_ = cls->Dump();
+  }
+}
+
+//--------------------------------------------------------------------
+DeclareContensClass(BText, BTxtTemporary, BTexWrap);
+DefExtOpr(1, BTexWrap, "Wrap", 2, 4, "Text Real Text Text",
+"(Text textToWrap, Real maxLineLength [,  "
+"Text wordSeparators=" ", Text prefix=""])",
+I2("Breaks lines with more than <maxLineLength> characters.\n"
+   "Only when a character in <wordSeparators> it will insert a line break.\n"
+   "If <prefix> is not empty it will be insert after each new break line.\n",
+   "Rompe las líneas con más de <maxLineLength> caracteres.\n" 
+   "Sólo cuando se encuentre un caracter de <wordSeparators> se podrá "
+   "insertar un salto de línea. \n"
+   "Si <prefix> no está vacío será insertar después de cada salto de línea "
+   "nueva.\n"),
+          BOperClassify::System_);
+void BTexWrap::CalcContens()
+//--------------------------------------------------------------------
+{
+  BText textToWrap = Text(Arg(1));
+  int maxLineLength = (int)Real(Arg(2));
+  BText wordSeparators = " ";
+  BText prefix = "";
+  if(Arg(3)) { wordSeparators = Text(Arg(3)); }
+  if(Arg(4)) { prefix = Text(Arg(4)); }
+  contens_ = textToWrap.Wrap(maxLineLength, wordSeparators, prefix);
+}