#!/usr/bin/perl
use Verilog::Getopt;
use Verilog::Preproc;
 
my $opt = new Verilog::Getopt;
@ARGV = $opt->parameter(@ARGV);
 
# call new on derived class
my $vp = My::Verilog::Preproc->new(options=>$opt);

$vp->open(filename=>"../common/tiri_defines.vh");
while (defined (my $line = $vp->getline())) {
   print $line;
}


package My::Verilog::Preproc;  # define derived class
use parent qw(Verilog::Preproc); # inherit from Verilog::Preproc

sub define {
   my $self = shift;
   my $defname = shift;
   my $value = shift;
   my $params = shift;

   print "defname = $defname\n";
   print "  value = $value\n";
   print " params = $params\n";
}

sub def_exists  {
   my $self = shift;
   my $defname = shift;
   print "DEF_EXISTS\n";
}
1;