Is there a way to pass params to a script in TCL that is run using eval source?

Question

I have a script that calls:

 eval source \{$scriptfile\}

where $scriptfile is another TCL script. Is there way to pass parameters to the script? I'd like to do something like:

set sampleData "ID=14678934"
eval source \{$scriptfile\} $sampleData 

I know that this isn't allowed but, is there a way to pass data to a script that is being executed using eval source?

Answer 1

The solution is given in the Tclers Wiki, in the following articles: source with args and SrcFile.

The solution I like the most is srcfile:

proc srcfile { filename args } {
  global argv

  set argv $args
  source $filename
}

The only drawback of this approach is that it will modify argv, so you have to make sure you will not need it in the rest of the script, or backup and restore it.

Answer 2

That's a horrible practice to start. It's much cleaner to call a proc that is within the script you're sourcing.

source script.tcl  ;# defines proc run_script_with_data
run_script_with_data $data