info script: recurse up until the innermost fileObj is found, if any

[jorge-leon]

If info script is wrapped into a proc, and the proc is then called from inside a sourced script, the fileObj for the script is not found.

Reproduce:

rename info jimsh::info
proc info {command args} {jimsh::info $command {*}$args}
source test.tcl

test.tcl:

puts [jimsh::info script]
puts [info script]

Expected result is:

test.tcl
test.tcl

Result is:

test.tcl

This PR tries to solve the problem by going up the evalFrame until either finding a fileObj or reaching the topEvalFrame and works for the test. However I'm unfamiliar with the jimsh code base and just guessing. Please apologize any style flaws.

[msteveb]

Thanks for the report. In fact info script is almost entirely wrong :-(

I fixed it a different way. See #269 and let me know if you're happy with that.