perl script to parse a VR_AD file and generate mask statement.

1. This script works on a VR_AD file and generates specman mask and compare statements. In my case on each RW register, the mask is set to enable (all bits set to 1).


2. The input might look like:
   
   reg_def KUKU_REG {
     reg_fld KUKU_PAGE_1_A1 : uint(bits : 1) : R : 0x0000 : cov;
     reg_fld KUKUOWLEDGE_1_A1 : uint(bits : 1) : R : 0x0000 : cov;
     reg_fld KUKUTE_FAULT_A1 : uint(bits : 1) : R : 0x0000 : cov;
     reg_fld KUKURVED__012_012 : uint(bits : 1) : RW : 0x0000;
     reg_fld KUKUMETRIC_PAUSE_A1 : uint(bits : 1) : R : 0x0000 : cov;
     reg_fld KUKUE_A1 : uint(bits : 1) : R : 0x0000 : cov;
     reg_fld KUKU0BT4_A1 : uint(bits : 1) : R : 0x0000 : cov;
     reg_fld KUKU0BTX_FD_A1 : uint(bits : 1) : R : 0x0000 : cov;
     reg_fld KUKU0BTX_HD_A1 : uint(bits : 1) : R : 0x0000 : cov;
     reg_fld KUKUBT_FD_A1 : uint(bits : 1) : R : 0x0000 : cov;
     reg_fld KUKUBT_HD_A1 : uint(bits : 1) : R : 0x0000 : cov;
     reg_fld KUKUCTOR_FIELD_A1 : uint(bits : 5) : R : 0x0000 : cov;
   };
   
   


3. The script is invoked from within vim by:
   %! perl ~/bin/vim_vr_ad_set_cmp_mask.pl
   
   
   The out put is:
   extend KUKU_REG vr_ad_reg {
     set_static_info() is {
       set_compare_mask(0x1000);
     };
   };
   
   


4. The script is listed below:
   
   
   1. #!/bin/perl
   3. $reg_name="";
   4. while (<STDIN>) {
   5.    chomp($_);
   6.    if($_ =~ /^reg_def[ \s\t]*([A-Za-z][A-Za-z0-9_]*)[ \s\t]*{.*/) {
   7.      $reg_name=$1;
   8.      $pix=16; #new reg
   9.      $mask=0;
   10.    }
   11.    elsif($_ =~ /[ \s\t]*reg_fld[ \s\t].*uint\(bits[ \s\t]*:[ \s\t]*([0-9]*)\)/) {
   12.      #get reg_fields
   13.      $num_of_bits=$1;
   14.      $field_mask=0;
   15.      &bits_to_mask($field_mask, $num_of_bits);
   16.      if($_ =~ /:[ \s\t]*RW[ \s\t]*:/) {#set mask to enable
   17.        for($j=0; $j < $pix-$num_of_bits; $j++) {
   18.          $field_mask *= 2;
   19.        }
   20.        $mask += $field_mask;
   21.      }
   22.      $pix -= $num_of_bits;
   23.    }
   24.    else {
   25.      $ix=index($_, "};");
   26.      if($ix >= 0) {
   27.        $mask=sprintf("%04x", $mask);
   28.        &wr_reg($reg_name, $mask);
   29.        $reg_name="";
   30.      };
   31.    }
   32. }#while
   34. sub bits_to_mask {
   35.    #0 mask #1 num_of_bits
   36.    if($_[1] > 16) {die("more than 16 bits are not supported");}
   37.    $_[0]=1;
   38.    my $i;
   39.    for($i=1; $i < $_[1]; $i++) {
   40.      $_[0]=($_[0]*2) + 1;
   41.    }#for
   42. }
   44. sub wr_reg {
   45.    #0 reg name
   46.    #1 mask value in hex
   47.    print("extend $_[0] vr_ad_reg {\n");
   48.    print(" set_static_info() is {\n");
   49.    print(" set_compare_mask(0x$_[1]);\n");
   50.    print(" };\n");
   51.    print("};\n");
   52. }

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.