TCL in RivieraPro

[c4brian]

Does anyone know how to display the pathname of the currently running script in RivieraPro?

Note** This is when executing the script using the "Do" Command (Gear icon), not the "source" command.

 

aka [info script] returns an empty string, so that's out.

[kirloy]

You can have procedures

proc mydo {arg} {
    global RUNNING_SCRIPT_NAME
    set RUNNING_SCRIPT_NAME $arg
    do $RUNNING_SCRIPT_NAME
}

proc whatami {} {
    global RUNNING_SCRIPT_NAME
    echo $RUNNING_SCRIPT_NAME
}

And then run yours script:

mydo 2.do