Changeset 430 for branches/thune/thread_safe/component.c

Timestamp:

07/08/07 05:51:41 (17 months ago)

Author:

krobillard

Message:

Component inputs can now be declared /quiet or /strobe

Files:

• branches/thune/thread_safe/component.c (modified) (7 diffs)

branches/thune/thread_safe/component.c

@@ -39 +39 @@
     int* counter;
     UAtom atom;
+    uint32_t special = 0;
 
 
@@ -60 +61 @@
                 *counter = *counter + 1;
         }
+        else if( ur_is(it, UT_SELECT) )
+        {
+            if( ur_atom(it) >= UT_BI_COUNT )
+            {
+                if( ur_selIsAtom(it) && (counter == &inC) )
+                {
+                    const char* str = ur_atomCStr( ur_sel(it), 0 );
+                    if( *str == 'q' )
+                        special |= 1 << inC;        // Quiet
+                    else if( *str == 's' )
+                        special |= 0x10000 << inC;  // Strobe
+                }
+                *counter = *counter + 1;
+            }
+        }
         ++it;
     }
@@ -75 +91 @@
     while( it != end )
     {
-        if( ur_is(it, UT_WORD) )
+        if( ur_is(it, UT_WORD) || ur_is(it, UT_SELECT) )
         {
             atom = ur_atom(it);
@@ -94 +110 @@
     ++it;
     ur_initType( it, UT_COORD );    // component-counts
-    it->coord.len = 4;
+    it->coord.len = 6;
     ur_ccIn(it)   = inC;
     ur_ccOut(it)  = outC;
     ur_ccLoc(it)  = localC;
     ur_ccMask(it) = 0xffff << inC;
+    ur_ccSpec(it) = special;
     ++it;
     ur_copyCell( it, *bodCell );    // component-body
@@ -120 +137 @@
 
 
+/*
+   (sig body -- comp)
+*/
 UR_CALL( uc_component )
 {
@@ -398 +418 @@
     UCell* val;
     int trigger;
+    uint32_t mask;
+    uint32_t special;
 
     if( wrdN < COMPONENT_CELLS )
@@ -412 +434 @@
         ur_copyCell( val, *nval );
 
+        mask = 0x10001 << wrdN;
+        special = ur_ccSpec(plugCnts) & mask;
+
         trigger = ur_ccMask(plugCnts);
         if( trigger != -1 )
         {
-            trigger |= (1 << wrdN);
-            ur_ccMask(plugCnts) = trigger;
+            trigger |= mask;
+
+            if( special < 0x10000 )             // Not Strobe
+                ur_ccMask(plugCnts) = trigger;
+
             if( trigger != -1 )
                 return;
         }
+
+        if( special & 0xffff )                  // Quiet
+            return;
 
         // All inputs are set; add to execute list...