Changeset 30e0e72 in tol

Timestamp:

Mar 25, 2011, 6:56:11 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

5a9a0ff

Parents:

2075779

Message:

Fixes #1144
Refs #740

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

File:

• tol/bbasic/txtalgeb.cpp (modified) (1 diff)

tol/bbasic/txtalgeb.cpp

@@ -1978 +1978 @@
 }
 
-
+//--------------------------------------------------------------------
+  BText BText::Wrap (
+    int lineSize, 
+    const BText& wordSep_, 
+    const BText& prefix_)
+//--------------------------------------------------------------------
+{
+  const char* wordSep = wordSep_.String(); 
+  const char* prefix = prefix_.String(); 
+  const char* s = String(); 
+  const char *head = s;
+  char* w0 = new char[2*length_];
+  char* w = w0;
+  int pos, lastSpace;
+   
+  pos = lastSpace = 0;
+  while(head[pos]!=0) {
+      int isLf = (head[pos]=='\n');
+      if (isLf || pos==lineSize) {
+          if (isLf || lastSpace == 0) { lastSpace = pos; } // just cut it
+          if (prefix!=NULL) { w+=sprintf(w,"%s", prefix); }
+          while(*head!=0 && lastSpace-- > 0) { w+=sprintf(w,"%c", *head++); }
+          w+=sprintf(w,"\n");
+          if (isLf) { head++; } // jump the line feed
+          while (*head!=0 && strchr(wordSep,*head)) { head++; } // clear the leading space
+          lastSpace = pos = 0;
+      } else {
+          if (strchr(wordSep,head[pos])) { lastSpace = pos; }
+          pos++;
+      }
+  }
+  w+=sprintf(w,"%s\n", head);
+  w[0]='\0';
+  int len = w-w0+1;
+  BText wrap(w0,len);
+  delete [] w0;
+  return(wrap);
+}