calling shell name

[ytakbob]

I call a tclprogram from a Kornshell (AIX)

from kornshell testit_sh
#!/bin/ksh
/hmu/scripts/testit.tcl

I want testit.tcl to be able to knwo who called it.

$arv0 from within testit.tcl gives "testit.tcl"
What variable would have "testit_sh" - the calling program ?

Thanks

 

[goodegod]

I'd add "$0", ie:

/hmu/scripts/testit.tcl $0

and read it as the first arguement passed:
[lindex $argv 0]