How can I find all of the registers in a memory block using TimeQuest Tcl API commands?

Description

To find all the registers in a memory block, find the clock enable fanouts and then get the cell associated with that clock enable. After that, you can get the names of all of the registers in the memory block.  Here is an example:

foreach_in_collection fan [get_fanouts "*ReadClockEnable"] {
    set cell [get_node_info -cell ]
    foreach_in_collection reg [get_cell_info -buried_regs ] {
        set name [get_node_info -name ]
        puts ""
    }
}