find the name of all the primary inputs of a netlist in Modelsim using tcl

[ifforums]

Hi,

I have a gate-level verilog netlist. In modelsim, I need to write a simple tcl code to find the name of all the primary inputs of the netlist. Then,on top of this list, I wanna randomly generate a logic value and assign it to each primary input that are obtained in the previous step.
I am wondering if there is any way to do this process in modelsim?


Thanks