95 lines
2.6 KiB
Diff
95 lines
2.6 KiB
Diff
--- wishbone.pl~ 2006-11-28 01:22:43.000000000 +0530
|
|
+++ wishbone.pl 2009-08-29 22:32:53.684609104 +0530
|
|
@@ -66,21 +66,24 @@
|
|
use Time::Local;
|
|
use Getopt::Long;
|
|
|
|
+use strict;
|
|
+use warnings;
|
|
+
|
|
# description: users manual
|
|
|
|
my $version='1.0.3';
|
|
my $infile = "wishbone.defines";
|
|
-my $outfile = wb;
|
|
+my $outfile = "wb";
|
|
|
|
my $a;
|
|
my $i=0;
|
|
my $j=0;
|
|
|
|
# default settings
|
|
-my $syscon=syscon;
|
|
-my $intercon=intercon;
|
|
+my $syscon="syscon";
|
|
+my $intercon="intercon";
|
|
my $target="generic";
|
|
-my $hdl=vhdl;
|
|
+my $hdl="vhdl";
|
|
my $ext=".vhd";
|
|
my $signal_groups=0;
|
|
my $comment="--";
|
|
@@ -121,7 +124,24 @@
|
|
my $amp=0;
|
|
my $asp=0;
|
|
my $del=0;
|
|
-my $i;
|
|
+#my $i;
|
|
+
|
|
+my @master;
|
|
+my @slave;
|
|
+my $frame;
|
|
+my $c;
|
|
+my $am;
|
|
+my $ind;
|
|
+my $tmp;
|
|
+my $depend;
|
|
+my $l;
|
|
+my $only_master;
|
|
+my $k;
|
|
+my $noGUI;
|
|
+my $genHeader;
|
|
+my $help;
|
|
+my $file = "";
|
|
+my $tmp1;
|
|
|
|
# open input file
|
|
#if (open(FILE,"<$file")) {
|
|
@@ -804,7 +824,8 @@
|
|
};
|
|
|
|
sub generate_defines {
|
|
- open(OUTFILE,"> $_[0]") or die "could not open $infile for writing";
|
|
+ $infile = $_[0];
|
|
+ open(OUTFILE,">$infile") or die "could not open $infile for writing";
|
|
printf OUTFILE "# Generated by PERL program wishbone.pl.\n";
|
|
printf OUTFILE "# File used as input for wishbone arbiter generation\n";
|
|
$tmp=localtime(time);
|
|
@@ -884,13 +905,13 @@
|
|
printf OUTFILE "%s\n%s Wishbone slaves:\n",$comment,$comment;
|
|
for ($i=1; $i <= $slaves; $i++) {
|
|
printf OUTFILE "%s %s\n",$comment,$slave[$i]{"wbs"};
|
|
- if ($slave[$i]{"size"} ne ffffffff) {
|
|
+ if ($slave[$i]{"size"} ne "ffffffff") {
|
|
printf OUTFILE "%s baseadr 0x%s - size 0x%s\n",$comment,$slave[$i]{"baseadr"},$slave[$i]{"size"}};
|
|
- if ($slave[$i]{"size1"} ne ffffffff) {
|
|
+ if ($slave[$i]{"size1"} ne "ffffffff") {
|
|
printf OUTFILE "%s baseadr 0x%s - size 0x%s\n",$comment,$slave[$i]{"baseadr1"},$slave[$i]{"size1"}};
|
|
- if ($slave[$i]{"size2"} ne ffffffff) {
|
|
+ if ($slave[$i]{"size2"} ne "ffffffff") {
|
|
printf OUTFILE "%s baseadr 0x%s - size 0x%s\n",$comment,$slave[$i]{"baseadr2"},$slave[$i]{"size2"}};
|
|
- if ($slave[$i]{"size3"} ne ffffffff) {
|
|
+ if ($slave[$i]{"size3"} ne "ffffffff") {
|
|
printf OUTFILE "%s baseadr 0x%s - size 0x%s\n",$comment,$slave[$i]{"baseadr3"},$slave[$i]{"size3"}};
|
|
};
|
|
print OUTFILE "$comment---------------------------------------------------------------------------------------\n";
|
|
@@ -1933,7 +1954,8 @@
|
|
|
|
sub gen_optional{
|
|
my ($sig_name,$n_o,$n_i)=@_;
|
|
- my $i,$j;
|
|
+ my $i;
|
|
+ my $j;
|
|
|
|
return if ($n_o == 0) && ($n_i == 0);
|
|
print OUTFILE " -- $sig_name Slave -> Master [Optional]\n";
|