Changeset 563a00b in tol

Timestamp:

Feb 3, 2011, 2:23:54 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

2aef478

Parents:

25a98ba

Message:

Claning expression in UnparseNodes

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

File:

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

tol/btol/bgrammar/graimp.cpp

@@ -852 +852 @@
   if((UnparseNodes()>1) && result && !result->Expression().HasName()) 
   {
-    result->PutExpression(BParser::Unparse(tre, "  ", "\n"));
+    BText expr_ = BParser::Unparse(tre, "", " ");
+    expr_.Replace('\'','¬');
+    expr_.Replace('\n',' ');
+    expr_.Replace('\r',' ');
+    expr_.Replace('\t',' ');
+    BText expr_2(expr_, 0, Minimum(250,expr_.Length()));
+    result->PutExpression(expr_2);
   }