title: How to pass arguments to TCL source
body: <p>In tcl, now I want to source a file with some arguments, for instance, source file arg1 arg2. I use a procedure like this</p>
  
  <pre><code>proc src {file args} {
    set argv $::argv
    set argc $::argc
    set ::argv $args
    set ::argc [llength $args]
    set code [catch {uplevel [list source $file]} return]
    set ::argv $argv
    set ::argc $argc
    return -code $code $return
  }
  </code></pre>
  
  <p>If I do <code>src file arg1 arg2</code>, it works perfectly. However, I can only provide the <code>arg1</code> and <code>arg2</code> as one string, for instance: <code>set string "arg1 arg2"</code>. Then my <code>src</code> proc will take this string as one argument. Is there any way to solve this problem?</p>