''[MGS]'' [[2003/09/25]] - Sometimes it is useful to source a file and pass arguments to the script. Unfortunately, the '''[source]''' command only accepts a filename, but you can use the following procedure :

 proc src {file args} {
   set argv $::argv
   set argc $::argc
   set ::argv $args
   set ::argc [llength $args]
   set error [catch {uplevel [list source $file]} return]
   if { $error } { set code error } { set code ok }
   set ::argv $argv
   set ::argc $argc
   return -code $code $return
 }


----
[Category Command] |
[Category Example] |
[Category File]