A very simple perl script to translate a verilog parameters code to specman type definition.

1. The scripts works on a marked text and is invoked from within vim. In this case, you mark the text using vim tags (for example ma and mb for start and end of text) or work on the entire file (using vim % operator). Many examples exist for this kind of scripts in this site. For instance you may have the following lines somewhere in your code. To translate them to specman mark the text and run the script:
   
   :'a,'b! perl ~/bin/vim_ver_param_to_spc_type.pl fsm_usb_
   
   parameter WRIDLE=2'd0;
   parameter WRADDR=2'd1;
   parameter WRACKL=2'd2;
   parameter RDIDLE=2'd3;
   
   And the output is:
   type fsm_usb_type : [WRIDLE = 0, WRADDR = 1, WRACKL = 2, RDIDLE = 3];
   


2. The script is listed below:
   
   
   1. #!/bin/perl
   3. $s="type " . $ARGV[0] . "_type : [";
   4. while (<STDIN>) {
   5.   chomp($_);
   6.   if($_ =~ /^[ \s\t]*parameter[ \s\t]*([a-zA-Z][a-zA-Z0-9_]*)[ \s\t]*=[ \s\t]*[0-9]*'([hdb])([a-fA-F0-9_]*)
   7.   {
   8.     $sig_name=$1; $sig_val=$3; $sig_rad=$2;
   9.     $ix=index($sig_rad, "d");
   10.     if($ix == 0) { #decimal
   11.      $s=$s . $sig_name . " = " . $sig_val . ", ";
   12.     } else {
   13.      $ix=index($sig_rad, "h");
   14.      if($ix == 0) { #hex
   15.       $s=$s . $sig_name . " = 0x" . $sig_val . ", ";
   16.      } else {
   17.       #binary
   18.       $sig_val =~ s/_//g; #remove delimiter if exists
   19.       $sig_val_1 = sprintf('%d', oct("0b$sig_val"));#binary to decimal conversion
   20.       $s=$s . $sig_name . " = " . $sig_val_1 . ", ";
   21.      }
   22.     }
   23.   }
   24. }#while
   25. #remove last '
   26. $l=length($s);
   27. $s=substr($s, 0, $l-2);
   28. $s=$s . "];";
   29. print("$s\n");

Home	How to change the default bash internal field space separator. A simple c-code program to read a memory array from verilog RTL, using VPI.