I had a file intended to be sourced as well as evalled - that is, it was an executable file but could also be sourced into a running tcl program.  Problem: "source" does not take args.  So it was impossible to use the same argument parsing system for both modes.  Or is it?

  proc srcfile { filename args } {
    global argv

    set argv $args
    source $filename
  }

This proc will, of course, mung your argument vector, so make sure you have parsed it before "srcfile" is used.