URL
https://opencores.org/ocsvn/socgen/socgen/trunk
[/] [socgen/] [trunk/] [tools/] [bin/] [ver2xml] - Diff between revs 65 and 82
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 65 |
Rev 82 |
| Line 88... |
Line 88... |
my $mod = shift;
|
my $mod = shift;
|
my $mod_name = $mod->name;
|
my $mod_name = $mod->name;
|
|
|
open(FILE,">xml/${mod_name}.xml") or die "No sym directory";
|
open(FILE,">xml/${mod_name}.xml") or die "No sym directory";
|
|
|
printf FILE ("\n");
|
printf FILE ("\n");
|
|
|
foreach my $sig ($mod->ports_sorted) {
|
foreach my $sig ($mod->ports_sorted) {
|
|
|
my $dir = $sig->direction;
|
my $dir = $sig->direction;
|
my $data_type = $sig->data_type;
|
my $data_type = $sig->data_type;
|
my $sig_name = $sig->name;
|
my $sig_name = $sig->name;
|
$data_type =~ s/reg //;
|
$data_type =~ s/reg //;
|
$data_type =~ s/reg//;
|
$data_type =~ s/reg//;
|
|
|
|
|
printf FILE ("\n %sput\n",$dir);
|
printf FILE ("\n %sput\n",$dir);
|
|
|
|
|
if($data_type)
|
if($data_type)
|
{
|
{
|
printf FILE (" %s\n",$data_type);
|
printf FILE (" %s\n",$data_type);
|
$pin_name = "$sig_name"."$data_type";
|
$pin_name = "$sig_name"."$data_type";
|
}
|
}
|
|
|
printf FILE (" %s\n\n\n",$sig_name);
|
printf FILE (" %s\n\n\n",$sig_name);
|
|
|
}
|
}
|
|
|
|
|
printf FILE ("\n");
|
printf FILE ("\n");
|
|
|
|
|
|
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.