ldeclare -- multi-line list declaration with simple substitution (and comments)

ldeclare.tcl

# -------------------------------------------------------------------------------
# ldeclare -- multi-line list declaration with simple substitution (and comments)
# -------------------------------------------------------------------------------
proc ldeclare l { 
  uplevel "list [string map [list \n "\\\n"] \
    [regsub -all -line {^\s*\#[^\n]*} $l {}]
  ]"
}

# -------------------------------------------------------------------------------

if 0 {;# ## Usage example :

% set a 5; set b "test test"
% puts [ldeclare {
  a $a
  b $b
  c [list $a $b]
  # comment:
  d [list $a {*}$b]
}]

a 5 b {test test} c {5 {test test}} d {5 test test}

};#