perl script to parse a VR_AD file and generate write operation commands.

1. This script works on a VR_AD file and generates write operation commands. In my case on each RW register, a VR_AD write command is generated.
   There is also an option to generate a list of registers only (if a parameter is given to the script). This script was used in a very specific case. In most cases one would use a code style as shown in: vr_ad get_all_regs


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_wr_rd.pl
   
   
   The output is:
   var N_0_KUKURVED__012_012_gen : uint(bits : 1);
   gen N_0_KUKURVED__012_012_gen;
   PKFASTFREQ_REG_WRITE KUKU_REG {
     .KUKURVED__012_012=N_0_KUKURVED__012_012_gen;
   };
   
   


4. The script is listed below:
   
   
   1. #!/bin/perl
   3. #%! perl ~/bin/vim_vr_ad_wr_rd.pl
   4. #%! perl ~/bin/vim_vr_ad_wr_rd.pl list
   6. #to avoid same field naming each field is also given a
   7. #number, so the specm aribtrary variable has a uniqe name.
   8. $field_no=0;
   10. #some registers shall not be written randomally.
   11. @no_write_a = ();
   12. push(@no_write_a, "REG_FAST");
   13. push(@no_write_a, "REG_SLOW");
   14. push(@no_write_a, "REG_PARALLEL");
   17. #it is possible to generate only a list of registers
   18. $gen_list_only=index($ARGV[0], "list");
   19. $reg_name="";
   20. while (<STDIN>) {
   21.   chomp($_);
   22.   if($_ =~ /^reg_def[ \s\t]*([A-Za-z][A-Za-z0-9_]*)[ \s\t]*{.*/) {
   23.     $reg_name=$1;
   25.     $ignore_flg=0;
   26.     foreach $ignore ( @no_write_a ) {
   27.       $cmpix=index($reg_name, $ignore);
   28.       if($cmpix == 0) {
   29.         $ignore_flg=1;
   30.         last;
   31.       }
   32.     }
   34.     if($ignore_flg == 0 && $gen_list_only == 0) {
   35.       print(" permitted_to_wr_l.push($reg_name);\n");
   36.     }
   37.   }
   38.   elsif($_ =~ /[ \s\t]*reg_fld[ \s\t]*([A-Za-z][A-Za-z0-9_]*)[ \s\t]*:[ \s\t]*(uint\(bits[ \s\t]*:[ \s\t]*[0-9]*\))/) {
   39.     #get reg_fields
   40.     $reg_fld=$1;
   41.     $reg_fld_uint=$2;
   42.     $skip_on_RESERVED=index($reg_fld, "RESERVED");
   43.     if($ignore_flg == 0 && $skip_on_RESERVED < 0 && $gen_list_only != 0) {
   44.       if($_ =~ /:[ \s\t]*RW[ \s\t]*/) {
   45.         &wr_reg($reg_name, $reg_fld, $reg_fld_uint);
   46.       }
   47.     }
   48.   }
   49. }#while
   51. sub wr_reg {
   52.   #0 reg name
   53.   #1 reg field
   54.   #2 uint(bits:n)
   55.   my $var_name;
   56.   $var_name="N_" . $field_no . "_" . $_[1] . "_gen";
   57.   print("var $var_name : $_[2];\n");
   58.   print("gen $var_name;\n");
   59.   print("PKFASTFREQ_REG_REG_WRITE $_[0] {\n");
   60.   print(" ."); print("$_[1]"); print("=$var_name;\n");
   61.   print("};\n");
   62.   $field_no++;
   63. }

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.