fork(1) download
copy 
  1. ;# your code goes here
  2. set interface INTERFACE_AX
  3. set streams 4
  4. set bandwidth BANDWIDTH_ADAPT
  5. set vstaCount 1   
  6. set vstaConfig {{"interface_": "$interface", "txAtten": 0, "streams": $streams, "bandwidth": "$bandwidth"}}
  7. set vstaConfig [subst -nocommands -nobackslashes $vstaConfig]
  8. set vsta_array [lrepeat $vstaCount $vstaConfig]
  9. set vsta_array [join $vsta_array ", "]
  10. puts $vsta_array
Success #stdin #stdout 0.01s 5304KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
{"interface_": "INTERFACE_AX", "txAtten": 0, "streams": 4, "bandwidth": "BANDWIDTH_ADAPT"}
https://ideone.com/IqBkmx
language:
TCL (tcl 8.6)
created:
18 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!