Line 55... |
Line 55... |
#/ */
|
#/ */
|
#/ A special work area is created that is the image of the database using symbolic links */
|
#/ A special work area is created that is the image of the database using symbolic links */
|
#/ */
|
#/ */
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
|
|
my $root = "projects/opencores.org";
|
|
|
my $project = $ARGV[0];
|
|
chomp($project);
|
|
|
|
|
|
unless ($project) {$project ="fpgas";}
|
|
|
|
|
|
|
|
my $root = "projects/opencores.org/${project}";
|
$home = cwd();
|
$home = cwd();
|
my $prefix = "/work/";
|
my $prefix = "/work/";
|
$lib_comp_sep = "/ip/";
|
$lib_comp_sep = "/ip/";
|
$comp_xml_sep = "/rtl/xml/";
|
$comp_xml_sep = "/rtl/xml/";
|
$tb_xml_sep = "/sim/xml/";
|
$tb_xml_sep = "/sim/xml/";
|
|
|
|
|
|
my $path = "${home}${prefix}";
|
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
|
|
|
$path = "${home}${prefix}${project}";
|
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
print "Building a work area for ${home}/${root} in ${home}${prefix} \n" ;
|
print "Building a work area for ${home}/${root} in ${home}${prefix} \n" ;
|
|
|
&link_sub( $root,$root, "work" );
|
&link_sub( $root,$root, "work/${project}" );
|
|
|
|
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
#/ */
|
#/ */
|
#/ Each project is given access to the system tools by giving each of them a link to the */
|
#/ Each project is given access to the system tools by giving each of them a link to the */
|
Line 79... |
Line 97... |
#/ library files via symbolic links */
|
#/ library files via symbolic links */
|
#/ */
|
#/ */
|
#/*********************************************************************************************/
|
#/*********************************************************************************************/
|
|
|
|
|
@projects = qx(ls ${home}${prefix} );
|
|
|
|
|
|
foreach my $project (@projects)
|
|
{
|
{
|
chomp($project);
|
|
symlink( "${home}/tools/bin/Makefile.root", "${home}/work/${project}/bin/Makefile.root");
|
symlink( "${home}/tools/bin/Makefile.root", "${home}/work/${project}/bin/Makefile.root");
|
symlink( "${home}/tools/bin/Makefile", "${home}/work/${project}/bin/Makefile");
|
symlink( "${home}/tools/bin/Makefile", "${home}/work/${project}/bin/Makefile");
|
|
|
$cmd ="chmod 755 ${home}/projects/opencores.org/${project}/bin/* \n";
|
$cmd ="chmod 755 ${home}/projects/opencores.org/${project}/bin/* \n";
|
if (system($cmd)) {}
|
if (system($cmd)) {}
|