use Perlilog;
init;

$top = template->new(name => 'top',
		      tfile => 'top.pt');

$test = template->new(name => 'test',
		      tfile => 'wb_master.pt',
		      parent => $top);

$rom1 = template->new(name => 'rom1',
		      tfile => 'simple_rom.pt',
		      parent => $top);

$rom1->getport('wbport')->const('wb_adr_bits', 2);
$rom1->getport('wbport')->const('wb_adr_select', 0);

$rom2 = template->new(name => 'rom2',
		      tfile => 'simple_rom2.pt',
		      parent => $top);

$rom2->getport('wbport')->const('wb_adr_bits', 2);
$rom2->getport('wbport')->const('wb_adr_select', 1);

$rom3 = template->new(name => 'rom3',
		      tfile => 'simple_rom2.pt',
		      parent => $top);

$rom3->getport('wbport')->const('wb_adr_bits', 2);
$rom3->getport('wbport')->const('wb_adr_select', 2);

$rom3->equivalent($rom2);

interface($rom1->getport('wbport'), $rom2->getport('wbport'),
	  $rom3->getport('wbport'),
	  $test->getport('wbport'), $top->getport('clkrst'));

execute;

silos->new(name => 'silos_configfile_creator')->makesilosfile;