谢谢这段code,本来想用纯Perl来实现,发现用GOF更方便。加了一个exist_wire检测,不然会出错
my @cells = get_cells("-hier", "-ref", "NAND2BX1");
foreach my $cell (@cells){
my $net = get_net_of("$cell/AN");
if(exist_wire("invof_$net")==0){
new_net("invof_$net", "INVX1", "", "$net");
}
change_gate($cell, "NAND2X2", ".A(invof_$net)");
} |