URL
https://opencores.org/ocsvn/socgen/socgen/trunk
[/] [socgen/] [trunk/] [tools/] [yp/] [lib.pm] - Diff between revs 120 and 122
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 120 |
Rev 122 |
| Line 982... |
Line 982... |
}
|
}
|
}
|
}
|
|
|
|
|
|
|
|
#/*********************************************************************************************/
|
|
#/ get_module_name */
|
|
#/ */
|
|
#/ returns module name for component */
|
|
#/ */
|
|
#/ my $module_name = yp::lib::get_module_name($vendor,$library,$component,$version); */
|
|
#/ */
|
|
#/*********************************************************************************************/
|
|
|
|
sub get_module_name
|
|
{
|
|
my @params = @_;
|
|
my $version = pop(@params);
|
|
my $component = pop(@params);
|
|
my $project = pop(@params);
|
|
my $vendor = pop(@params);
|
|
|
|
|
|
return("${component}_${version}");
|
|
|
|
}
|
|
|
|
|
|
|
|
|
sub trim_sort {
|
sub trim_sort {
|
my @output_files = @_;
|
my @output_files = @_;
|
my %trim = ();
|
my %trim = ();
|
foreach my $descriptor (@output_files) { $trim{$descriptor} = 1; }
|
foreach my $descriptor (@output_files) { $trim{$descriptor} = 1; }
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.