Changeset 417 for branches/thune/thread_safe/series.c

Timestamp:

06/22/07 20:53:35 (17 months ago)

Author:

krobillard

Message:

Added ur_seriesMem() & fold helper.

Files:

• branches/thune/thread_safe/series.c (modified) (4 diffs)

branches/thune/thread_safe/series.c

@@ -96 +96 @@
 
 /**
-  Get pointers to the start and end characters of a string! or string slice!.
+  Get pointers to the start and end of a series or slice.
 
   \returns
-    Pointer to UString if cell is a string! or string slice!. 
+    Pointer to UBinary if cell is a series or slice.
     Otherwise, zero is returned.
     If the pointer is non-zero then cpA & cpB are set to point to the
@@ -105 +105 @@
     The character pointers will be zero if the string is empty.
 */
+UBinary* ur_seriesMem( UThread* ut, const UCell* cell,
+                       char** cpA, char** cpB )
+{
+    UBinary* bin;
+    int end;
+
+    switch( ur_type(cell) )
+    {
+        case UT_BINARY:
+            bin = ur_bin(cell);
+            if( ! bin->used )
+                goto empty;
+            end = bin->used;
+            goto set_pointers;
+
+        case UT_STRING:
+            bin = ur_bin(cell);
+            if( ! bin->used )
+                goto empty;
+            end = bin->used;
+            if( ur_encoding(cell) == UR_ENC_UTF16 )
+                goto set_pointers2;
+            goto set_pointers;
+
+        case UT_SLICE:
+            if( ur_sliceDT(cell) == UT_BINARY )
+            {
+                bin = ur_bin(cell);
+                if( ! bin->used )
+                    goto empty;
+                end = ur_sliceEnd(cell, bin);
+                goto set_pointers;
+            }
+            else if( ur_sliceDT(cell) == UT_STRING )
+            {
+                bin = ur_bin(cell);
+                if( ! bin->used )
+                    goto empty;
+                end = ur_sliceEnd(cell, bin);
+                if( ur_encoding(cell) == UR_ENC_UTF16 )
+                    goto set_pointers2;
+                goto set_pointers;
+            }
+            break;
+
+        case UT_VECTOR:
+            bin = ur_bin(cell);
+            if( ! bin->used )
+                goto empty;
+            end = bin->used;
+            goto set_pointers4;
+    }
+    return 0;
+
+set_pointers:
+
+    *cpA = bin->ptr.c + cell->series.it;
+    *cpB = bin->ptr.c + end;
+    return bin;
+
+set_pointers2:
+
+    *cpA = (char*) (bin->ptr.u16 + cell->series.it);
+    *cpB = (char*) (bin->ptr.u16 + end);
+    return bin;
+
+set_pointers4:
+
+    *cpA = (char*) (bin->ptr.i + cell->series.it);
+    *cpB = (char*) (bin->ptr.i + end);
+    return bin;
+
+empty:
+
+    *cpA = *cpB = 0;
+    return bin;
+}
+
+
+/**
+  Get pointers to the start and end characters of a string! or string slice!.
+
+  \see ur_seriesMem()
+*/
 UString* ur_stringSlice( UThread* ut, const UCell* cell,
                          char** cpA, char** cpB )
 {
-    UString* str;
-    int end;
-
-    if( ur_is(cell, UT_STRING) )
-    {
-        str = ur_bin(cell);
-        if( ! str->used )
-            goto empty;
-        end = str->used;
-
-set_pointers:
-        
-        if( ur_encoding(cell) == UR_ENC_UTF16 )
-        {
-            *cpA = (char*) (str->ptr.u16 + cell->series.it);
-            *cpB = (char*) (str->ptr.u16 + end);
-        }
-        else
-        {
-            *cpA = str->ptr.c + cell->series.it;
-            *cpB = str->ptr.c + end;
-        }
-        return str;
-    }
-    else if( ur_is(cell, UT_SLICE) && (ur_sliceDT(cell) == UT_STRING) )
-    {
-        str = ur_bin(cell);
-        if( ! str->used )
-            goto empty;
-        end = ur_sliceEnd(cell, str);
-        goto set_pointers;
-    }
+    if( ur_is(cell, UT_STRING) ||
+        (ur_is(cell, UT_SLICE) && (ur_sliceDT(cell) == UT_STRING)) )
+        return ur_seriesMem( ut, cell, cpA, cpB );
     return 0;
-
-empty:
-
-    *cpA = *cpB = 0;
-    return str;
 }
 
@@ -152 +202 @@
   Get pointers to the start and end characters of a binary! or binary slice!.
 
-  \see ur_stringSlice()
+  \see ur_seriesMem()
 */
 UBinary* ur_binarySlice( UThread* ut, const UCell* cell,
                          char** cpA, char** cpB )
 {
-    UBinary* str;
-    int end;
-
-    if( ur_is(cell, UT_BINARY) )
-    {
-        str = ur_bin(cell);
-        if( ! str->used )
-            goto empty;
-        end = str->used;
-
-set_pointers:
-        
-        *cpA = str->ptr.c + cell->series.it;
-        *cpB = str->ptr.c + end;
-        return str;
-    }
-    else if( ur_is(cell, UT_SLICE) && (ur_sliceDT(cell) == UT_BINARY) )
-    {
-        str = ur_bin(cell);
-        if( ! str->used )
-            goto empty;
-        end = ur_sliceEnd(cell, str);
-        goto set_pointers;
-    }
+    if( ur_is(cell, UT_BINARY) ||
+        (ur_is(cell, UT_SLICE) && (ur_sliceDT(cell) == UT_BINARY)) )
+        return ur_seriesMem( ut, cell, cpA, cpB );
     return 0;
-
-empty:
-
-    *cpA = *cpB = 0;
-    return str;
 }
 
@@ -193 +217 @@
   Get pointers to the start and end cells of a block or paren slice!.
 
-  \see ur_stringSlice()
+  \see ur_seriesMem()
 */
 UBlock* ur_blockSlice( UThread* ut, const UCell* cell,