ASIC/FPGA Design and Verification Out Source Services

Run a perl script from vim on a specman e-code, to help in a register field process.

  1. In this web site many scripts are presented. Some of them are targeted to be run from within the vim editor. It can also be invoked from the command line, by printing the file (for example by using cat command) and piping the output to the script. Using the vim run option is better. You see the in and out text using vim via its powerful syntax coloring feature.

  2. I used the script in a verification specman project. It was a very short contract project. The host register handler in the verification specman e-code did not handle single field write operations properly. You write one field and all the rest are cleared. Till the issue was solved, I used this little script.

  3. To operate you need to mark an area. This is done using vim's mark command. An input can be as the following example:


    4. reg_def GENESIS__BMCR {
      reg_fld kuku_rst : uint(bits : 1) : RW : 0x0000 : cov; -- Rreturns0s, WSelfClr
      reg_fld kuku_lp : uint(bits : 1) : RW : 0x0000 : cov;
      reg_fld kuku_speed : uint(bits : 1) : RW : 0x0000 : cov;
      reg_fld kuku_nc : uint(bits : 1) : RW : 0x0000 : cov;
      reg_fld kuku_pwr : uint(bits : 1) : R : 0x0000 : cov;
      reg_fld kuku_lpi : uint(bits : 1) : RW : 0x0000 : cov;
      reg_fld kuku_dd : uint(bits : 1) : RW : 0x0000 : cov; -- Rreturns0s, WSelfClr
      reg_fld kuku_id : uint(bits : 1) : RW : 0x0000 : cov;
      reg_fld kuku_fd : uint(bits : 1) : RW : 0x0000 : cov;
      reg_fld kuku_rd : uint(bits : 1) : RW : 0x0000 : cov;
      reg_fld kuku_rese : uint(bits : 6) : R : 0x0000;
    };
  4. The output of the script is:

    5. reg_def GENESIS__BMCR {
      --:'a,'b !perl ~/bin/vim_reg_fld_to_bits.pl
        .kuku_rst   = (read_val >> 15) & 0x01;
        .kuku_lp    = (read_val >> 14) & 0x01;
        .kuku_speed = (read_val >> 13) & 0x01;
        .kuku_nc    = (read_val >> 12) & 0x01;
      --.kuku_pwr   = (read_val >> 11) & 0x01;
        .kuku_lpi   = (read_val >> 10) & 0x01;
        .kuku_dd    = (read_val >>  9) & 0x01;
        .kuku_id    = (read_val >>  8) & 0x01;
        .kuku_fd    = (read_val >>  7) & 0x01;
        .kuku_rd    = (read_val >>  6) & 0x01;
      --.kuku_rese  = (read_val >>  0) & 0x3f;
    };
  5. To run it, do the following:

    6. :'a,'bg !perl ~/bin/vim_reg_fld_to_bits.pl
  6. All that left is to edit the required fields and leave the rest untouched, with the value that was read. The the script is shown below:

    1. #!/bin/perl
    3. @a_f = (); #field
    4. @b_f = (); #bit index
    5. @d_f = (); #read / write
    7. $space=" ";
    8. $max=0;
    9. $shift=0;
    10. while (<STDIN>) {
    11.   chomp($_);
    12.   $bit_ix=0;
    13.   if($_ =~ /reg_fld ([a-zA-Z_0-9]*) .*bits .*: ([0-9]*)\).*RW/) {
    14.     $field=$1; $bits=$2;
    15.     push(@a_f, $field);
    16.     push(@b_f, $bits);
    17.     push(@d_f, "W");
    18.     $max = $max < length($field) ? length($field) : $max;
    19.     $shift+=$bits;
    20.   } else {
    21.     if($_ =~ /reg_fld ([a-zA-Z_0-9]*) .*bits .*: ([0-9]*)\).*R/) {
    22.       $field=$1; $bits=$2;
    23.       push(@a_f, $field);
    24.       push(@b_f, $bits);
    25.       push(@d_f, "R");
    26.       $max = $max < length($field) ? length($field) : $max;
    27.       $shift+=$bits;
    28.     } else {
    29.       #print("$_\n");
    30.     }
    31.   }
    32. }
    33. $i=0;
    34. print("$space");
    35. print("--:'a,'b !perl ~/bin/vim_reg_fld_to_bits.pl\n");
    36. foreach $it ( @a_f ) {
    37.   $m=1;
    38.   for($j=0; $j < $b_f[$i]; $j++) { $m *= 2; }
    39.   $m--;
    40.   $h=sprintf("%02x", $m);
    41.   print("$space");
    42.   if($d_f[$i] eq "W") {
    43.     print(" ");
    44.     $p_f=$a_f[$i]; while(length($p_f) < $max) {$p_f=$p_f . " ";}
    45.     $s1=$shift-$b_f[$i];
    46.     $s=$s1 < 10 ? " " . $s1 : $s1;
    47.     print(".$p_f = (read_val >> $s) & 0x$h;\n");
    48.   }
    49.   else {
    50.     print("--");
    51.     $p_f=$a_f[$i]; while(length($p_f) < $max) {$p_f=$p_f . " ";}
    52.     $s1=$shift-$b_f[$i];
    53.     $s=$s1 < 10 ? " " . $s1 : $s1;
    54.     print(".$p_f = (read_val >> $s) & 0x$h;\n");
    55.   }
    56.   $shift -= $b_f[$i];
    57.   $i++;
    58. }
 


Also available on this project:


Home

Set of scripts indent a code, which is written in e (specman) or verilog or vhdl.

Some tips for controlling the xterm title






Search This Site

Feedback This Site




new pages on this site