Changeset 8a9cc7e in tol

Timestamp:

Nov 9, 2011, 4:39:23 PM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

41e86a8

Parents:

5063abb

Message:

Refs #724

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

File:

• tol/bparser/fil.cpp (modified) (1 diff)

tol/bparser/fil.cpp

@@ -605 +605 @@
 BText BFilter::Transform(const BText& original) const 
 {
-    error_ = false;
-    errorMsg_ = "";
-    BText expression = original;
-    BTextBlock block;
-    GetBlocks(expression, block);
-    expression = "";
-    BText cleaned = "";
-    for(BInt k = 0; k<block.Size(); k++) {
-        BInt blockClass=ClassifyBlock(block[k].text.Buffer());
-        
-        if((blockClass==NormalBlock)) {
-            cleaned += block[k].text + " ";
-        }
-
-        if(blockClass==QuotesBlock) {
-            Clean(cleaned);
-            CleanQuotes(block[k].text);
-            expression += cleaned + " " + block[k].text + " ";
-            cleaned = "";
-        }
-    }
-
-    if(cleaned.HasName()) {
-        Clean(cleaned);
-        expression += cleaned;
-    }
-
-    while(expression.Length() && strchr(" \t\n;",expression.Last())) {
-        expression.PutLength(expression.Length()-1); 
-    }
-
-    if(error_) return errorMsg_;
-    else return expression;
+  error_ = false;
+  errorMsg_ = "";
+  BText expression = original;
+  BTextBlock block;
+  GetBlocks(expression, block);
+  expression = "";
+  BText cleaned = "";
+  for(BInt k = 0; k<block.Size(); k++) 
+  {
+    BInt blockClass=ClassifyBlock(block[k].text.Buffer());
+    if((blockClass==NormalBlock)) 
+    {
+      cleaned += block[k].text + " ";
+    }
+    if(blockClass==QuotesBlock) 
+    {
+      Clean(cleaned);
+      CleanQuotes(block[k].text);
+      expression += cleaned + " " + block[k].text + " ";
+      cleaned = "";
+    }
+  }
+  if(cleaned.HasName()) 
+  {
+    Clean(cleaned);
+    expression += cleaned;
+  }
+
+  while(expression.Length() && strchr(" \t\n;",expression.Last())) 
+  {
+    expression.PutLength(expression.Length()-1); 
+  }
+  if(error_) { return errorMsg_; }
+  else 
+  {
+    BText s20(expression,0,20);
+    s20.Compact();
+  //Std(BText("BFilter::Transform 1 : '")<<s20<<"'");
+    if(s20.BeginWith("#Embed"))
+    {
+      expression = BText("Write ( \" \" ) ; ") << expression;
+    };
+    return expression;
+  }
 }