Subversion Repositories hwlu

#! /usr/bin/perl

#

# File       : change_dw.pl

# Description: Changes values for the DW generic at declaration site.

#              To be used with the "hw_loops<num>_top.vhd" top-level file.

#              Resulting file is expected to be renamed to 

#              "hw_loops<num>_top_fix.vhd".

# Usage      : ./change_dw.pl <file.vhd> <dw>

#

# Author     : Nikolaos Kavvadias (c) 2010

#

open(FILE1,"<$ARGV[0]")|| die "## cannot open file $ARGV[0]\n";

$dw_ix  = 0;

while ($line = <FILE1>)

{

  if ($line =~ m/.*DW.*:.*integer.*8/)

  {

    if ($dw_ix < 1)

    {

      $line =~ s//    DW  : integer := $ARGV[1]/;

      $dw_ix = 1;

    }

  }

  print $line;

}