tcl : for {for} loops to extract array information

[pierre13]

Hello !!

I would need some help regarding a tcl script.
I would like to create different strings from an array such as :

string0 : parameters Rright=9.325k wneqi=50n Rleft=4.65k lneqi=50n wpen=5e-08 wndiff=50n lpen=50n lndiff=50n
srting1 : parameters Rright=9.325k wneqi=50n Rleft=4.65k lneqi=50n wpen=2.875e-07 wndiff=50n lpen=50n lndiff=50n
string2 : parameters Rright=9.325k wneqi=50n Rleft=4.65k lneqi=50n wpen=5.25e-07 wndiff=50n lpen=50n lndiff=50n
string3 : parameters Rright=9.325k wneqi=50n Rleft=4.65k lneqi=50n wpen=2.875e-07 wndiff=50n lpen=60n lndiff=50n

I have, as far as now the following code :

----------------
essai.tcl :

#!/usr/bin/tclsh

set paramTab(wndiff) 50n
set paramTab(lndiff) 50n
set paramTab(wneqi) 50n
set paramTab(lneqi) 50n
set paramTab(wpen) {5e-08 2.875e-07 5.25e-07}
set paramTab(lpen) {50n 60n}
set paramTab(Rleft) 4.65k
set paramTab(Rright) 9.325k


set list_built ""
foreach {element} [array names paramTab] {
set list_value_element_array $paramTab($element)
set length_list_value_element_array [llength $list_value_element_array]
for {set i 0} {$i < $length_list_value_element_array} {incr i} {
set string_example "$element=[lindex $list_value_element_array $i]"
puts "parameters $string_example"
}
}

----------------

> tclsh essai.tcl
parameters Rright=9.325k
parameters wneqi=50n
parameters Rleft=4.65k
parameters lneqi=50n
parameters wpen=5e-08
parameters wpen=2.875e-07
parameters wpen=5.25e-07
parameters wndiff=50n
parameters lpen=50n
parameters lpen=60n
parameters lndiff=50n


The goal is to write the different strings in a cadence netlist for example.

I feel I should play with the loop indexes, but I made different attemps with no success.
Does someone can give me a hint ??

Many thanks.

P.