TCL: How to get namespace and procedures of calling namespace?

I have some generic procedure. I would like this procedure to be able to get the name of the namespace and names of the procedures within the namespace where this procedure is called.

I have tried following code:

proc register {} {
    puts [info procs]
    puts [namespace current]
}

namespace eval Foo {
    proc bar {} {
        puts bar
    }

    proc _baz {} {
        puts baz
    }

    register
}

However, this prints results for the namespace where register is defined, not for the namespace where it is executed. It looks like there are no dedicated commands for these tasks or at least these are not info or namespace commands.

>Solution :

To get information about the calling context, use uplevel:

proc register {} {
    puts [uplevel 1 [list info procs]]
    puts [uplevel 1 [list namespace current]]
}