OpenCores
URL https://opencores.org/ocsvn/socgen/socgen/trunk

Subversion Repositories socgen

[/] [socgen/] [trunk/] [tools/] [verilog/] [gen_verilogLib] - Diff between revs 119 and 120

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 119 Rev 120
Line 136... Line 136...
    open DEFLIST,">$outfile" or die "unable to open $outfile";
    open DEFLIST,">$outfile" or die "unable to open $outfile";
    print  DEFLIST " \n";
    print  DEFLIST " \n";
    foreach  my   $i_name ($spirit_component_file->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:logicalName"))
    foreach  my   $i_name ($spirit_component_file->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:logicalName"))
       {
       {
       my($def_logic)     = $i_name ->findnodes('./text()')->to_literal ;
       my($def_logic)     = $i_name ->findnodes('./text()')->to_literal ;
       my($def_type)      = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ;
 
       if($def_logic )    {print  DEFLIST   sprintf( "\`define %s   _%s\n",   uc($def_logic) ,  $def_logic    );}
       if($def_logic )    {print  DEFLIST   sprintf( "\`define %s   _%s\n",   uc($def_logic) ,  $def_logic    );}
       }
       }
 
 
 
 
    #/**********************************************************************/
    #/**********************************************************************/
    #/*                                                                    */
    #/*                                                                    */
    #/* build a fileset in the following order                             */
    #/* build a fileset in the following order                             */
    #/*                                                                    */
    #/*                                                                    */
    #/* deflist for module names                                           */
    #/* deflist for module names                                           */
    #/* all include files                                                  */
    #/* all include files                                                  */
    #/* verilogSource files                                                */
    #/* all module files                                                   */
    #/*                                                                    */
    #/*                                                                    */
    #/*                                                                    */
    #/*                                                                    */
    #/**********************************************************************/
    #/**********************************************************************/
 
 
    my $outfile ="${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}${comp_xml_sep}/${dest_dir}/filelist";
    my $outfile ="${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}${comp_xml_sep}/${dest_dir}/filelist";
Line 160... Line 159...
    print FILELIST "${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}${comp_xml_sep}/${dest_dir}/deflist\n";
    print FILELIST "${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}${comp_xml_sep}/${dest_dir}/deflist\n";
 
 
    foreach  my   $i_name ($spirit_component_file->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name"))
    foreach  my   $i_name ($spirit_component_file->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name"))
       {
       {
       my($file_name)      = $i_name ->findnodes('./text()')->to_literal ;
       my($file_name)      = $i_name ->findnodes('./text()')->to_literal ;
       my($file_type)      = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ;
       my($file_type)      = $i_name ->findnodes('../spirit:userFileType/text()')->to_literal ;
       my($view_file)      = $i_name ->findnodes('../../spirit:name/text()')->to_literal ;
       my($view_file)      = $i_name ->findnodes('../../spirit:name/text()')->to_literal ;
       if(($file_type eq "verilogInclude")&& (($view_file eq $view_fileset)))
       if(($file_type eq "include")&& (($view_file eq $view_fileset)))
         { print FILELIST  "${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}${comp_xml_sep}/${file_name}\n"};
         { print FILELIST  "${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}${comp_xml_sep}/${file_name}\n"};
       }
       }
 
 
    foreach  my   $i_name ($spirit_component_file->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name"))
    foreach  my   $i_name ($spirit_component_file->findnodes("//spirit:fileSets/spirit:fileSet/spirit:file/spirit:name"))
       {
       {
       my($file_name)      = $i_name ->findnodes('./text()')->to_literal ;
       my($file_name)      = $i_name ->findnodes('./text()')->to_literal ;
       my($file_type)      = $i_name ->findnodes('../spirit:fileType/text()')->to_literal ;
       my($file_type)      = $i_name ->findnodes('../spirit:userFileType/text()')->to_literal ;
       my($view_file)      = $i_name ->findnodes('../../spirit:name/text()')->to_literal ;
       my($view_file)      = $i_name ->findnodes('../../spirit:name/text()')->to_literal ;
       if(($file_type eq "verilogSource")&& (($view_file eq $view_fileset)))
       if(($file_type eq "module")&& (($view_file eq $view_fileset)))
         { print FILELIST  "${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}${comp_xml_sep}/${file_name}\n"};
         { print FILELIST  "${home}${prefix}/${vendor}__${project}${lib_comp_sep}/${component}${comp_xml_sep}/${file_name}\n"};
       }
       }
 
 
 
 
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.