Re^2: verilog-perl vhier usage

i am using this particular program to find the which modules are referenced and which are defined

#!/usr/bin/perl
use Verilog::Netlist;
# set up options so that files can be found
use Verilog::Getopt;
#push(@INC,'pwd');
my $opt=new Verilog::Getopt;
$opt->parameter("-y","i2c",);

# prepare netlist
#$file='home/vp/roopa/i2c/i2c_master_byte_ctrl.v';
my $nl=new Verilog::Netlist(options=>$opt);
foreach my $file('/home/vp/roopa/i2c/i2c_master_top.v')
   {
     $nl->read_file(filename=>$file);

   }
#read in any sub modules
     $nl->link();
     $nl->lint();
     $nl->exit_if_error();
foreach my $mod($nl->top_modules_sorted)
                {
                show_hier($mod, " ","","");
                }

sub show_hier
{

my $mod=shift;
my $indent=shift;
my $hier =shift;
my $cellname=shift;
if(!$cellname)
{
$hier=$mod->name;
#print "\n",$hier;
}
else
{
$hier.=".$cellname";
}
printf("%45s %s\n",$indent."Module ".$mod->name,$hier);

    foreach my$cell($mod->cells_sorted)
    {
    printf($indent."    Cell %s\n", $cell->name);
    
show_hier($cell->submod,$indent." ", hier,$cell->name) if $cell->submo
+d;
    }
}
[download]

Apologize if it is difficult to read becoz of the indentation.copy paste in windows from vi!

OUTPUT

Module i2c_master_top i2c_master_top
     Cell byte_controller
                  Module i2c_master_byte_ctrl i2c_master_top.byte_cont
+roller
      Cell bit_controller
                   Module i2c_master_bit_ctrl i2c_master_top.byte_cont
+roller.bit_controller
     Cell myarbiter
                               Module arbiter i2c_master_top.myarbiter
     Cell mypli1
                                 Module mypli i2c_master_top.mypli1
                                 Module mymux mymux
[download]

The script identifies all the modules defined and referenced. The O/p is interpreted as folllows i2c_master_top.v has the following referenced modules-(the ones given as cells)hierarchy given by top_module.cellname

i2c_master_byte_ctrl
i2c_master_bit_ctrl
myarbiter
mypli
[download]

The problem lies with the module mymux The module mymux is defined in i2c_master_byte_ctrl.v But it shows up as a module in i2c_master_top whereas it is defined only in the child module Only if I remove the mymux module from i2c_master_byte_ctrl,then it does not show I first thought that just comparing the outputs from each file would give me the modules which have been duplicated. But mymux is not duplicated and still it shows up in the outputs of i2c_master_top and i2c_master_byte_ctrl. Could you please help me with this? Thanks for your time

Comment on Re^2: verilog-perl vhier usage Select or Download Code

Replies are listed 'Best First'.
Re^3: verilog-perl vhier usage by toolic (Bishop) on Mar 05, 2009 at 21:54 UTC
Since I do not have your Verilog files, I can not reproduce your problem. However, when I add the strictures to your code (`use warnings; use strict;`), I get a warning message: `Bareword "hier" not allowed while "strict subs" is in use at ...` [download] Although I doubt this is your problem, try fixing your code like this by adding the single quotes: `show_hier($cell->submod, $indent." ", 'hier', $cell->name) if $cell->s +ubmod;` [download] Is there anything special about the "mymux" module? Is it wrapped inside `celldefine compiler directives, for example? Since I have never used Verilog::Netlist, I can not offer you more specific information about its usage. You might try browsing (or asking a question on) the CPAN Verilog Discussion forum: http://www.cpanforum.com/dist/Verilog-Perl. It's too bad the module author is not a PerlMonk :)	[reply] [d/l] [select]
Re^4: verilog-perl vhier usage by perlvoyager (Initiate) on Mar 06, 2009 at 05:36 UTC
the defines file and the timescale file i2c_master_defines.v // bitcontroller states `define I2C_CMD_NOP 4'b0000 `define I2C_CMD_START 4'b0001 `define I2C_CMD_STOP 4'b0010 `define I2C_CMD_WRITE 4'b0100 `define I2C_CMD_READ 4'b1000 [download] timescale.v `timescale 1ns / 10ps [download]	[reply] [d/l] [select]