Changeset 82 for trunk/orca/series.c

Timestamp:

03/08/06 18:01:08 (3 years ago)

Author:

krobillard

Message:

find/skip now works on blocks.

Files:

• trunk/orca/series.c (modified) (3 diffs)

trunk/orca/series.c

@@ -1785 +1785 @@
 #define REF_FIND_MATCH  a1+2
 #define REF_FIND_LAST   a1+3
-//#define REF_FIND_PART   a1+4
-//#define REF_FIND_RANGE  a1+5
-//#define REF_FIND_CASE   a1+6
+#define REF_FIND_SKIP   a1+4
+#define REF_FIND_SIZE   a1+5
+//#define REF_FIND_PART   a1+6
+//#define REF_FIND_RANGE  a1+7
+//#define REF_FIND_CASE   a1+8
 
 /*
@@ -1819 +1821 @@
             else
             {
-                while( it != end )
+                int skip = 1;
+
+                if( orRefineSet(REF_FIND_SKIP) )
+                    skip = orInt(REF_FIND_SIZE);
+
+                while( it < end )
                 {
                     if( orEqual(it, a2) )
@@ -1827 +1834 @@
                         return;
                     }
-                    ++it;
+                    it += skip;
                 }
             }