Subversion Repositories wdsp

#!/bin/perl

for($n=16;$n<16;$n++) {

printf("        // Slave %0d Interface\n", $n );

printf("        s%0d_data_i, s%0d_data_o, s%0d_addr_o, s%0d_sel_o, s%0d_we_o, s%0d_cyc_o,\n", $n, $n, $n, $n, $n, $n );

printf("        s%0d_stb_o, s%0d_ack_i, s%0d_err_i, s%0d_rty_i,\n\n", $n, $n, $n, $n );

   }

for($n=0;$n<8;$n++) {

printf("// Master %0d Interface\n", $n);

printf("input   [dw-1:0]        m%0d_data_i;\n", $n);

printf("output  [dw-1:0]        m%0d_data_o;\n", $n);

printf("input   [aw-1:0]        m%0d_addr_i;\n", $n);

printf("input   [sw-1:0]        m%0d_sel_i;\n", $n);

printf("input                   m%0d_we_i;\n", $n);

printf("input                   m%0d_cyc_i;\n", $n);

printf("input                   m%0d_stb_i;\n", $n);

printf("output                  m%0d_ack_o;\n", $n);

printf("output                  m%0d_err_o;\n", $n);

printf("output                  m%0d_rty_o;\n\n", $n);

   }

for($n=0;$n<16;$n++) {

printf("// Slave %0d Interface\n", $n);

printf("input   [dw-1:0]        s%0d_data_i;\n", $n);

printf("output  [dw-1:0]        s%0d_data_o;\n", $n);

printf("output  [aw-1:0]        s%0d_addr_o;\n", $n);

printf("output  [sw-1:0]        s%0d_sel_o;\n", $n);

printf("output                  s%0d_we_o;\n", $n);

printf("output                  s%0d_cyc_o;\n", $n);

printf("output                  s%0d_stb_o;\n", $n);

printf("input                   s%0d_ack_i;\n", $n);

printf("input                   s%0d_err_i;\n", $n);

printf("input                   s%0d_rty_i;\n\n", $n);

   }

for($n=8;$n<8;$n++) {

printf("        // Master %0d Interface\n", $n );

printf("        m%0d_data_i, m%0d_data_o, m%0d_addr_i, m%0d_sel_i, m%0d_we_i, m%0d_cyc_i,\n", $n, $n, $n, $n, $n, $n );

printf("        m%0d_stb_i, m%0d_ack_o, m%0d_err_o, m%0d_rty_o,\n\n", $n, $n, $n, $n );

   }