Changeset 84af815 in tol for tol/bbasic/txtalgeb.cpp

Timestamp:

Mar 9, 2012, 3:54:00 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

0fd52fc

Parents:

bfa6580

Message:

refs #1460, #1476, se implementa TextMatch en C (tomado de la implementación interna de tcl), ya no se recurre a Tcl_Eval, el argumento pattern se pasa por referencia evitando una copia temporal, se eliminan algunos warnings de compilación

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

File:

• tol/bbasic/txtalgeb.cpp (modified) (8 diffs)

tol/bbasic/txtalgeb.cpp

@@ -717 +717 @@
   {
     const BChar* beginText;
-    if(beginText = strstr(String() + from, txt.String()))
+    if( (beginText = strstr(String() + from, txt.String())) )
     {
       indexText = (beginText - String());
@@ -849 +849 @@
   number = 0;
   BChar* pos=Buffer();
-  while(pos=strchr(pos, oldChar)) 
+  while( (pos=strchr(pos, oldChar)) ) 
   { 
     *pos = newChar; 
@@ -907 +907 @@
         txt.ReallocateBuffer(2*txt.Size()); 
       }
-      if(pos=strstr(Buffer()+oldPos, oldText.String()))
+      if( (pos=strstr(Buffer()+oldPos, oldText.String())) )
       {
         number++;
@@ -1062 +1062 @@
 
 
-//--------------------------------------------------------------------
-BBool BText::Match(const BText pattern, BBool caseSensitive) const
+#include "StringMatch.cpp"
+
+//--------------------------------------------------------------------
+BBool BText::Match(const BText &pattern, BBool caseSensitive) const
 
 /*! Returns true if the pattern \a pattern makes match with the
@@ -1081 +1083 @@
 {
   assert(IsAllOk());
+  return Tol_StringCaseMatch( String(), pattern.String(), !caseSensitive );
+#if 0
   BBool Ok=BFALSE;
   if(!HasName() || !pattern.HasName()) { Ok=BFALSE; }
@@ -1120 +1124 @@
   }
   return(Ok);
+#endif
 }
 
@@ -1139 +1144 @@
   BText txt;
   BInt len;
-  if(len=strftime(buf, maxSize, fmt, localtime(&t)))
+  if( (len=strftime(buf, maxSize, fmt, localtime(&t))) )
   {
     txt.Copy(buf,len-1);
@@ -1225 +1230 @@
   for(n=0; (n<maxItems) && pos && oldPos[0]; n++)
   {
-    if(pos = strchr(oldPos, sep))
+    if( (pos = strchr(oldPos, sep)) )
     {
       txt[n].Copy(oldPos, 0, pos-oldPos-1);