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

Timestamp:

07/07/07 23:25:19 (17 months ago)

Author:

krobillard

Message:

Components can now be copied. Added component test.

Files:

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

branches/thune/thread_safe/series.c

@@ -19 +19 @@
 
 
-#include "os.h"
-#include "urlan.h"
+#include "internal.h"
 #include "charset.h"
-#include "internal.h"
 #include "list.h"
+#ifdef UR_CONFIG_DATAFLOW
+#include "component.h"
+#endif
 
 
@@ -2356 +2357 @@
             }
             break;
+
+#ifdef UR_CONFIG_DATAFLOW
+        case UT_COMPONENT:
+        {
+            UBlock* orig;
+            UBlock* blk;
+            UCell* cnt;
+            UCell* it;
+            UCell* end;
+            UIndex blkN;
+            int len;
+
+            orig = ur_blockPtr( val->ctx.valBlk );
+            it   = orig->ptr.cells;
+            len  = orig->used;
+            blkN = ur_makeBlockT( ut, len, &blk );
+
+            ur_copyCells( it, it + len, blk->ptr.cells );
+            blk->used = len;
+
+            // Point result & self to new values.
+            it = blk->ptr.cells + COMPONENT_SELF;
+            val->ctx.valBlk = it->ctx.valBlk = blkN;
+
+            // Initialize input mask.
+            cnt = blk->ptr.cells + COMPONENT_COUNTS;
+            ur_ccMask(cnt) = 0xffff << ur_ccIn(cnt);
+
+            // Initialize plugs to unset.
+            it = blk->ptr.cells + COMPONENT_CELLS;
+            end = it + ur_ccIn(cnt) + ur_ccOut(cnt);
+            while( it != end )
+            {
+                ur_initType( it, UT_UNSET );
+                ++it;
+            }
+
+            // Initialize locals to none.
+            end = it + ur_ccLoc(cnt);
+            while( it != end )
+            {
+                ur_setNone( it );
+                ++it;
+            }
+
+            // Copy & rebind body.
+            it = blk->ptr.cells + COMPONENT_BODY;
+            ur_clone( ut, it, UR_COPY_ALL, 1 );
+            ur_bindT( ut, it->series.n, val, UR_BIND_PLUG );
+        }
+            break;
+#endif
 
         default:    // keep value...