cwFlowNet,cwFlowType,cwFlowProc : Initial working and tested version of new preset compile and apply scheme.

cwFlowNet.cpp

@@ -30,16 +30,19 @@ namespace cw
     
     void _network_preset_destroy(network_preset_t& network_preset)
     {
-      preset_value_t* pv = network_preset.value_head;
+      if( network_preset.tid == kPresetVListTId )
-      while( pv != nullptr )
       {
-        preset_value_t* pv0 = pv->link;
+        preset_value_t* pv = network_preset.u.vlist.value_head;
-        _preset_value_destroy(pv);
+        while( pv != nullptr )
-        pv = pv0;
+        {
-      }
+          preset_value_t* pv0 = pv->link;
+          _preset_value_destroy(pv);
+          pv = pv0;
+        }
       
-      network_preset.value_head = nullptr;
+        network_preset.u.vlist.value_head = nullptr;
-      network_preset.value_tail = nullptr;
+        network_preset.u.vlist.value_tail = nullptr;
+      }
       
     }
     
@@ -2443,7 +2446,7 @@ namespace cw
       if((rc = _network_preset_pair_count(net, pair_count  )) != kOkRC )
         goto errLabel;
       
-      // allocate the preset pair tble
+      // allocate the preset pair table
       net.preset_pairA = mem::allocZ<network_preset_pair_t>(pair_count);
       net.preset_pairN = pair_count;
 
@@ -2506,7 +2509,7 @@ namespace cw
       else
       {
         if( proc_id.sfx_id_count == kInvalidCnt )
-          proc_id.sfx_id_count = proc_mult_count(net, proc_label );
+          proc_id.sfx_id_count = proc_mult_count(net, proc_id.label );
       }
 
     errLabel:
@@ -2553,7 +2556,7 @@ namespace cw
         }
                   
         if( var_id.sfx_id_count == kInvalidCnt )
-          var_id.sfx_id_count = var_mult_count(proc, proc_label );
+          var_id.sfx_id_count = var_mult_count(proc, var_id.label );
       }
       
     errLabel:
@@ -2620,15 +2623,14 @@ namespace cw
 
       preset_value->proc       = proc;
       preset_value->var        = var;
-      preset_value->chN        = chN;
       preset_value->pairTblIdx = pairTblIdx;
 
-      if( network_preset.value_head == nullptr )
+      if( network_preset.u.vlist.value_head == nullptr )
-        network_preset.value_head = preset_value;
+        network_preset.u.vlist.value_head = preset_value;
       else
-        network_preset.value_tail->link = preset_value;
+        network_preset.u.vlist.value_tail->link = preset_value;
       
-      network_preset.value_tail = preset_value;
+      network_preset.u.vlist.value_tail = preset_value;
 
     errLabel:
       if(rc != kOkRC )
@@ -2752,8 +2754,75 @@ namespace cw
       return rc;
     }
 
+    rc_t _network_preset_parse_dual_label(network_t& net, const object_t* list_cfg, unsigned idx, const char* pri_sec_label, const char* network_preset_label, const network_preset_t*& vlist_ref )
+    {
+      rc_t rc = kOkRC;
+      const char* preset_label = nullptr;
+      const preset_value_list_t* vlist = nullptr;
 
-    rc_t _network_preset_parse( flow_t* p, network_t& net, const object_t* network_preset_dict_cfg, network_preset_t& network_preset )
+      vlist_ref = nullptr;
+      
+      if( !list_cfg->child_ele(idx)->is_string() )
+      {
+        rc = cwLogError(kSyntaxErrorRC,"The dual preset list %s preset is not a string on network preset:'%s'.",pri_sec_label,cwStringNullGuard(network_preset_label));
+        goto errLabel;
+      }
+
+      if((rc = list_cfg->child_ele(idx)->value(preset_label)) != kOkRC )
+      {
+        rc = cwLogError(kOpFailRC,"The dual preset %s preset could not be parsed on network preset:'%s'.",pri_sec_label,cwStringNullGuard(network_preset_label));
+        goto errLabel;
+      }
+
+      if((vlist_ref = network_preset_from_label(net, preset_label )) == nullptr )
+      {
+        rc = cwLogError(kEleNotFoundRC,"The dual preset %s preset could not be found on network preset:'%s'.",pri_sec_label,cwStringNullGuard(network_preset_label));
+        goto errLabel;
+      }
+
+    errLabel:
+      return rc;
+    }
+    
+    rc_t _network_preset_parse_dual(flow_t* p, network_t& net, const object_t* dual_list_cfg, network_preset_t& network_preset )
+    {
+      rc_t rc = kOkRC;
+
+
+      if( dual_list_cfg==nullptr || !dual_list_cfg->is_list() )
+      {
+        rc = cwLogError(kSyntaxErrorRC,"The dual preset specification is not a list on network preset:'%s'.",cwStringNullGuard(network_preset.label));
+        goto errLabel;
+      }
+
+      if( dual_list_cfg->child_count() != 3 )
+      {
+        rc = cwLogError(kSyntaxErrorRC,"The dual preset list does not have 3 elements on network preset:'%s'.",cwStringNullGuard(network_preset.label));
+        goto errLabel;
+      }
+
+      if((rc = _network_preset_parse_dual_label(net,dual_list_cfg, 0, "primary", network_preset.label, network_preset.u.dual.pri )) != kOkRC )
+        goto errLabel;
+      
+
+      if((rc = _network_preset_parse_dual_label(net,dual_list_cfg, 1, "secondary", network_preset.label, network_preset.u.dual.sec )) != kOkRC )
+        goto errLabel;
+        
+      
+      if((rc = dual_list_cfg->child_ele(2)->value(network_preset.u.dual.coeff)) != kOkRC )
+      {
+        rc = cwLogError(kSyntaxErrorRC,"The dual preset coeff could not be parsed on network preset:'%s'.",cwStringNullGuard(network_preset.label));
+        goto errLabel;
+      }
+      
+      network_preset.tid = kPresetDualTId;
+
+
+    errLabel:
+      return rc;
+    }
+    
+    rc_t _network_preset_parse_value_list( flow_t* p, network_t& net, const object_t* network_preset_dict_cfg, network_preset_t& network_preset )
     {
       rc_t rc = kOkRC;
       unsigned procN = 0;
@@ -2764,6 +2833,8 @@ namespace cw
         goto errLabel;
       }
 
+      network_preset.tid = kPresetVListTId;
+      
       procN = network_preset_dict_cfg->child_count();
 
       // for each proc in the network preset
@@ -2818,14 +2889,15 @@ namespace cw
           {
             io_ele_t var_id = {};
             const object_t* var_pair = var_dict->child_ele(k);
+            unsigned proc_label_sfx_id = proc_id.base_sfx_id + j;
             
             // parse the preset var label
-            if((rc = _parse_network_proc_var_label(net, network_preset.label, var_pair, proc_id.label, proc_id.base_sfx_id + j, var_id )) != kOkRC )
+            if((rc = _parse_network_proc_var_label(net, network_preset.label, var_pair, proc_id.label, proc_label_sfx_id, var_id )) != kOkRC )
               goto errLabel;
 
             // create a preset for each var:sfx_id pair (the var label may refer to multiple var instances) 
             for(unsigned m=0; m<var_id.sfx_id_count; ++m)
-              if((rc = _network_preset_create_value( net, network_preset, proc_id.label, proc_id.base_sfx_id, var_id.label, var_id.base_sfx_id + m, var_pair->pair_value() )) != kOkRC )
+              if((rc = _network_preset_create_value( net, network_preset, proc_id.label, proc_label_sfx_id, var_id.label, var_id.base_sfx_id + m, var_pair->pair_value() )) != kOkRC )
                 goto errLabel;
 
             mem::release(var_id.label);                
@@ -2865,20 +2937,36 @@ namespace cw
         network_preset_t&  network_preset     = net.presetA[i];
 
         // validate the network preset pair
-        if( preset_pair_cfg==nullptr || !preset_pair_cfg->is_pair() || (network_preset.label = preset_pair_cfg->pair_label())==nullptr || preset_pair_cfg->pair_value()==nullptr || !preset_pair_cfg->pair_value()->is_dict() )
+        if( preset_pair_cfg==nullptr || !preset_pair_cfg->is_pair() || (network_preset.label = preset_pair_cfg->pair_label())==nullptr || preset_pair_cfg->pair_value()==nullptr )
         {
           rc = cwLogError(kSyntaxErrorRC,"Invalid syntax encountered on a network preset.");
           goto errLabel;
         }
 
-        // parse the dictionary of proc presets
+        switch( preset_pair_cfg->pair_value()->type_id() )
-        if((rc = _network_preset_parse(p, net, preset_pair_cfg->pair_value(), network_preset)) != kOkRC )
         {
-          rc = cwLogError(kSyntaxErrorRC,"Network preset parse failed on preset:'%s'.",cwStringNullGuard(network_preset.label));
+          case kDictTId: // 'value-list' preset
-          goto errLabel;
+            if((rc = _network_preset_parse_value_list(p, net, preset_pair_cfg->pair_value(), network_preset)) != kOkRC )
+            {
+              rc = cwLogError(kSyntaxErrorRC,"Network value-list preset parse failed on preset:'%s'.",cwStringNullGuard(network_preset.label));
+              goto errLabel;            
+            }
+            break;
 
+          case kListTId: // dual preset
+            if((rc = _network_preset_parse_dual(p, net, preset_pair_cfg->pair_value(), network_preset)) != kOkRC )
+            {
+              rc = cwLogError(kSyntaxErrorRC,"Network dual preset parse failed on preset:'%s'.",cwStringNullGuard(network_preset.label));
+              goto errLabel;              
+            }
+            break;
+
+          default:
+            rc = cwLogError(kAssertFailRC,"Unknown preset type on network preset: '%s'.",cwStringNullGuard(network_preset.label));
+            goto errLabel;
         }
 
+        
         net.presetN += 1;
       }
       
@@ -2909,15 +2997,15 @@ namespace cw
           break;
           
         case kIntTFl:
-          rc = _preset_set_var_from_dual_interp_1(var,v0,v1->u.u,coeff);
+          rc = _preset_set_var_from_dual_interp_1(var,v0,v1->u.i,coeff);
           break;
           
         case kFloatTFl:
-          rc = _preset_set_var_from_dual_interp_1(var,v0,v1->u.u,coeff);
+          rc = _preset_set_var_from_dual_interp_1(var,v0,v1->u.f,coeff);
           break;
           
         case kDoubleTFl:          
-          rc = _preset_set_var_from_dual_interp_1(var,v0,v1->u.u,coeff);
+          rc = _preset_set_var_from_dual_interp_1(var,v0,v1->u.d,coeff);
           break;
           
         default:
@@ -2977,6 +3065,75 @@ namespace cw
     }
 
 
+    rc_t _network_apply_preset( network_t& net,  const preset_value_list_t* vlist, unsigned proc_label_sfx_id )
+    {
+      rc_t                  rc           = kOkRC;
+      const preset_value_t* preset_value = nullptr;
+
+      for(preset_value=vlist->value_head; preset_value!=nullptr; preset_value=preset_value->link)
+      {
+        if( preset_value->proc->label_sfx_id == proc_label_sfx_id )
+          if((rc = var_set( preset_value->var, &preset_value->value )) != kOkRC )
+          {
+            rc = cwLogError(rc,"Preset value apply failed on '%s:%i'-'%s:%i'.",
+                            cwStringNullGuard(preset_value->proc->label),preset_value->proc->label_sfx_id,
+                            cwStringNullGuard(preset_value->var->label),preset_value->var->label_sfx_id);
+            goto errLabel;
+          }
+      }
+      
+    errLabel:      
+      return rc;
+    }
+    
+    rc_t _network_apply_dual_preset( network_t& net,  const network_preset_t* net_ps0, const network_preset_t* net_ps1, double coeff )
+    {
+      rc_t rc = kOkRC;
+      
+      // clear the value field of the preset-pair array
+      for(unsigned i=0; i<net.preset_pairN; ++i)
+        net.preset_pairA[i].value = nullptr;
+
+      // set the value pointer in each of the preset-pair records referenced by preset-1
+      for(const preset_value_t* pv1=net_ps1->u.vlist.value_head; pv1!=nullptr; pv1=pv1->link)
+      {
+        if( pv1->var->chIdx != kAnyChIdx )
+          net.preset_pairA[ pv1->pairTblIdx ].value = &pv1->value;
+        else
+        {
+          for(unsigned i=0; i<net.preset_pairA[ pv1->pairTblIdx ].chN; ++i)
+          {
+            net.preset_pairA[ pv1->pairTblIdx+i ].value = &pv1->value;
+            assert( textIsEqual(net.preset_pairA[ pv1->pairTblIdx+i ].var->label,pv1->var->label) && net.preset_pairA[ pv1->pairTblIdx+i ].var->label_sfx_id == pv1->var->label_sfx_id );        
+          }
+        }    
+      }
+
+      // 
+      for(const preset_value_t* pv0=net_ps0->u.vlist.value_head; pv0!=nullptr; pv0=pv0->link)
+      {
+        if( pv0->var->chIdx != kAnyChIdx )
+        {
+          rc = _preset_set_var_from_dual( pv0, net.preset_pairA[ pv0->pairTblIdx ].value, coeff );
+        }
+        else
+        {
+          for(unsigned i=0; i<net.preset_pairA[ pv0->pairTblIdx ].chN; ++i)
+          {
+            if((rc = _preset_set_var_from_dual( pv0, net.preset_pairA[ pv0->pairTblIdx+i ].value, coeff )) != kOkRC )
+              goto errLabel;
+
+            assert( textIsEqual(net.preset_pairA[ pv0->pairTblIdx+i ].var->label,pv0->var->label) && net.preset_pairA[ pv0->pairTblIdx+i ].var->label_sfx_id == pv0->var->label_sfx_id );        
+          }
+        }    
+    
+      }
+
+    errLabel:
+      return rc;
+    }
+    
+    
   }
 }
 
@@ -3130,32 +3287,41 @@ cw::rc_t cw::flow::network_apply_preset( network_t& net, const char* preset_labe
 {
   rc_t                    rc             = kOkRC;
   const network_preset_t* network_preset = nullptr;
-  const preset_value_t*   preset_value   = nullptr;
 
   if((network_preset = network_preset_from_label(net, preset_label )) == nullptr )
   {
-    rc = cwLogError(kInvalidIdRC,"The network preset '%s' could not be found.", preset_label );
+    rc = cwLogError(kInvalidIdRC,"The network preset '%s' could not be found.", cwStringNullGuard(preset_label) );
     goto errLabel;
   }
 
-  for(preset_value=network_preset->value_head; preset_value!=nullptr; preset_value=preset_value->link)
+  switch( network_preset->tid )
-    if( preset_value->proc->label_sfx_id == proc_label_sfx_id )
+  {
-      if((rc = var_set( preset_value->var, &preset_value->value )) != kOkRC )
+    case kPresetVListTId:
-      {
+      if((rc = _network_apply_preset( net, &network_preset->u.vlist, proc_label_sfx_id )) != kOkRC )
-        rc = cwLogError(rc,"Preset value apply failed on '%s:%i'-'%s:%i' in the network preset:'%s'.",
-                        cwStringNullGuard(preset_value->proc->label),preset_value->proc->label_sfx_id,
-                        cwStringNullGuard(preset_value->var->label),preset_value->var->label_sfx_id,
-                        cwStringNullGuard(preset_label));
         goto errLabel;
-      }
+      break;
+      
+    case kPresetDualTId:
+      if((rc = _network_apply_dual_preset(net,  network_preset->u.dual.pri, network_preset->u.dual.sec, network_preset->u.dual.coeff )) != kOkRC )
+        goto errLabel;
+      break;
+      
+    default:
+      rc = cwLogError(kAssertFailRC,"Unknown preset type.");
+      break;
+  }
   
   cwLogInfo("Activated preset:%s",preset_label);
 
 errLabel:
+  if(rc != kOkRC )
+    rc = cwLogError(rc,"The network application '%s' failed.", cwStringNullGuard(preset_label) );
+     
   return rc;
  
 }
 
+
 cw::rc_t cw::flow::network_apply_dual_preset( network_t& net, const char* preset_label_0, const char* preset_label_1, double coeff )
 {
   rc_t                    rc      = kOkRC;
@@ -3174,55 +3340,17 @@ cw::rc_t cw::flow::network_apply_dual_preset( network_t& net, const char* preset
     goto errLabel;
   }
 
-  // clear the value filed of the preset-pair array
+  if((rc = _network_apply_dual_preset(net,  net_ps0, net_ps1, coeff )) != kOkRC )
-  for(unsigned i=0; i<net.preset_pairN; ++i)
+    goto errLabel;
-    net.preset_pairA[i].value = nullptr;
-
-  // set the value pointer in each of the preset-pair records referenced by preset-1
-  for(const preset_value_t* pv1=net_ps1->value_head; pv1!=nullptr; pv1=pv1->link)
-  {
-    if( pv1->var->chIdx != kAnyChIdx )
-      net.preset_pairA[ pv1->pairTblIdx ].value = &pv1->value;
-    else
-    {
-      for(unsigned i=0; i<net.preset_pairA[ pv1->pairTblIdx ].chN; ++i)
-      {
-        net.preset_pairA[ pv1->pairTblIdx+i ].value = &pv1->value;
-        assert( textIsEqual(net.preset_pairA[ pv1->pairTblIdx+i ].var->label,pv1->var->label) && net.preset_pairA[ pv1->pairTblIdx+i ].var->label_sfx_id == pv1->var->label_sfx_id );        
-      }
-    }    
-  }
-
-  // 
-  for(const preset_value_t* pv0=net_ps0->value_head; pv0!=nullptr; pv0=pv0->link)
-  {
-    if( pv0->var->chIdx != kAnyChIdx )
-    {
-      rc = _preset_set_var_from_dual( pv0, net.preset_pairA[ pv0->pairTblIdx ].value, coeff );
-    }
-    else
-    {
-      for(unsigned i=0; i<net.preset_pairA[ pv0->pairTblIdx ].chN; ++i)
-      {
-        if((rc = _preset_set_var_from_dual( pv0, net.preset_pairA[ pv0->pairTblIdx+i ].value, coeff )) != kOkRC )
-          goto errLabel;
-
-        assert( textIsEqual(net.preset_pairA[ pv0->pairTblIdx+i ].var->label,pv0->var->label) && net.preset_pairA[ pv0->pairTblIdx+i ].var->label_sfx_id == pv0->var->label_sfx_id );        
-      }
-    }    
-    
-  }
 
 errLabel:
   if( rc != kOkRC )
     rc = cwLogError(rc,"Apply dual-preset failed.");  
   
   return rc;
-  
 }
 
 
-
 #ifdef NOT_DEF
 cw::rc_t cw::flow::network_apply_preset( network_t& net, const char* presetLabel, unsigned proc_label_sfx_id )
 {

cwFlowProc.cpp

@@ -3549,6 +3549,12 @@ namespace cw
           p->netA[i].net.proc_array       = mem::allocZ<proc_t*>(p->netA[i].net.proc_arrayAllocN);
           p->netA[i].net.presetsCfg       = p->net_proc->internal_net->presetsCfg;
 
+          p->netA[i].net.presetA          = p->net_proc->internal_net->presetA;
+          p->netA[i].net.presetN          = p->net_proc->internal_net->presetN;
+          
+          p->netA[i].net.preset_pairA     = p->net_proc->internal_net->preset_pairA;
+          p->netA[i].net.preset_pairN     = p->net_proc->internal_net->preset_pairN;
+
           for(unsigned j=0,k=0; j<p->net_proc->internal_net->proc_arrayN; ++j)
             if( p->net_proc->internal_net->proc_array[j]->label_sfx_id == i )
             {

cwFlowTypes.cpp

@@ -1438,12 +1438,23 @@ void cw::flow::network_print( const network_t& net )
     {
       const network_preset_t* net_preset = net.presetA + i;
       cwLogPrint("%i %s\n",i,net_preset->label);
-      const preset_value_t* net_val = net_preset->value_head;
+      switch( net_preset->tid )
-      for(; net_val!=nullptr; net_val=net_val->link)
       {
-        cwLogPrint("    %s:%i %s:%i ",cwStringNullGuard(net_val->proc->label),net_val->proc->label_sfx_id,cwStringNullGuard(net_val->var->label),net_val->var->label_sfx_id);
+        case kPresetVListTId:
-        _value_print( &net_val->value );
+          {
-        cwLogPrint("\n");
+            const preset_value_t* net_val = net_preset->u.vlist.value_head;
+            for(; net_val!=nullptr; net_val=net_val->link)
+            {
+              cwLogPrint("    %s:%i %s:%i ",cwStringNullGuard(net_val->proc->label),net_val->proc->label_sfx_id,cwStringNullGuard(net_val->var->label),net_val->var->label_sfx_id);
+              _value_print( &net_val->value );
+              cwLogPrint("\n");
+            }
+          }
+          break;
+          
+        case kPresetDualTId:
+          cwLogPrint("     %s %s %f",net_preset->u.dual.pri->label,net_preset->u.dual.sec->label,net_preset->u.dual.coeff);
+          break;
       }
     }
     cwLogPrint("\n");
@@ -2245,7 +2256,7 @@ cw::rc_t cw::flow::cfg_to_value( const object_t* cfg, value_t& value_ref )
     case kInt8TId:
     case kInt16TId:
     case kInt32TId:
-      value_ref.tflag = kUIntTFl;
+      value_ref.tflag = kIntTFl;
       if((rc = cfg->value(value_ref.u.i)) != kOkRC )
         rc = cwLogError(rc,"Conversion to int failed.");
       break;

cwFlowTypes.h

@@ -254,28 +254,52 @@ namespace cw
 
     typedef struct preset_value_str
     {
-      proc_t*                  proc;
+      proc_t*                  proc;       // proc target for this preset value
-      variable_t*              var;
+      variable_t*              var;        // var target for this preset value
-      value_t                  value;
+      value_t                  value;      // Preset value.
-      unsigned                 chN;        // count of channels specified by this preset
+      //unsigned                 chN;        // Count of channels specified by this preset
-      unsigned                 pairTblIdx; // index into the preset pair table for this preset value
+      unsigned                 pairTblIdx; // Index into the preset pair table for this preset value
       struct preset_value_str* link;
     } preset_value_t;
 
+    typedef struct preset_value_list_str
+    {
+      preset_value_t* value_head;  // List of preset_value_t for this preset. 
+      preset_value_t* value_tail;  // Last preset value in the list.
+    } preset_value_list_t;
+
+    struct network_preset_str;
+
+    typedef struct dual_preset_str
+    {
+      const struct network_preset_str* pri;
+      const struct network_preset_str* sec;
+      double      coeff;
+    } dual_preset_t;
+
+    typedef enum {
+      kPresetVListTId,
+      kPresetDualTId
+    } preset_type_id_t;
+    
     typedef struct network_preset_str
     {
-      const char*     label;
+      const char*     label;       // Preset label
-      preset_value_t* value_head;  // List of preset_value_t for this preset. 
+      preset_type_id_t tid;
-      preset_value_t* value_tail;
+      
+      union {
+        preset_value_list_t vlist;
+        dual_preset_t       dual;
+      } u;
     } network_preset_t;
 
     typedef struct network_preset_pair_str
     {
-      const proc_t*     proc;
+      const proc_t*     proc;   //
-      const variable_t* var;
+      const variable_t* var;    //
-      unsigned          chIdx;
+      unsigned          chIdx;  // 
-      unsigned          chN;
+      unsigned          chN;    //
-      const value_t*    value;
+      const value_t*    value;  //
     } network_preset_pair_t;
 
     typedef struct network_str