Skip to content

Instantly share code, notes, and snippets.

@CodeByAidan

CodeByAidan/json-sys-design.tcl

Created April 15, 2024 19:10
Show Gist options
  • Save CodeByAidan/7815fd4414554f3b783a95614059f276 to your computer and use it in GitHub Desktop.
Save CodeByAidan/7815fd4414554f3b783a95614059f276 to your computer and use it in GitHub Desktop.
Download ZIP
System architecture sample for a system, builds a simple JSON string
Raw
json-sys-design.tcl
set interface INTERFACE_AX
set streams 4
set bandwidth BANDWIDTH_ADAPT
set vstaCount 1
set vstaConfig {{"interface_": "$interface", "txAtten": 0, "streams": $streams, "bandwidth": "$bandwidth"}}
set vstaConfig [subst -nocommands -nobackslashes $vstaConfig]
set vsta_array [lrepeat $vstaCount $vstaConfig]
set vsta_array [join $vsta_array ", "]
puts $vsta_array
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment