Subversion Repositories DevTools

use XML::Writer;

# Function        : WinPath 

#

# Description     : Covert path to a windows formatted path

#

# Inputs          : One path element

#

# Returns         : One ugly path element

#

sub WinFullPath

{

    my ($path) = @_;

    $path = FullPath($path);

    $path =~ tr~\\/~\\~s;

    return $path;

}

#-------------------------------------------------------------------------------

# Function        : BuildPropertyPages 

#

# Description     : Create a props file suitable for use by VS2010, VS2012 (possibly others)

#                   Only supported for C/C++ projects

#                   Provide info for:

#                       Include Search paths

#                       Library search paths

#                       Nice Macros 

#

# Inputs          : 

#

# Returns         : 

#

sub BuildPropertyPages

{

    StartBuildPhase();                      # Starting the build phase. No more data collection

    foreach my $platform ( keys %BUILDINFO )

    {

        next unless $BUILDINFO{$platform}{MSBUILDPROPS};

        my $propsFile = $Srcdir . '/jats_'. $BUILDINFO{$platform}{TARGET} . '.props';

        Message("BuildPropertyPages: $propsFile");

        #

        #   Remove files that are created

        #

        if ( $Clobber )

        {

            unlink $propsFile;

            next;

        }

        my %macros;

        my @libpaths;

        my @incpaths;

        my @parts = @{$BUILDINFO{$platform}{PARTS}};

        #

        #   Basic definitions

        #   

        $macros{'GBE_ROOT'}     = WinFullPath(".");

        $macros{'GBE_PLATFORM'} = $BUILDINFO{$platform}{PLATFORM};

        $macros{'GBE_PRODUCT'}  = $BUILDINFO{$platform}{PRODUCT};

        $macros{'GBE_TARGET'}   = $BUILDINFO{$platform}{TARGET};

        $macros{'GBE_MACHTYPE'} = $::GBE_MACHTYPE;

        $macros{'GBE_PKGDIR'}   = WinFullPath('./pkg/' . $BUILDNAME_PACKAGE);

        $macros{'GBE_BUILDNAME'}= $BUILDNAME_PACKAGE;

        #

        #   Paths from the current build

        #       Local directory         - for installed components

        #       Interface directory     - for BuildPkgArchives

        #

        if ( $BUILDLOCAL )

        {

            my $macroName = 'GBE_LOCALDIR';

            $macros{$macroName} = WinFullPath("$BUILDLOCAL") ;

            $macroName = '$(' . $macroName . ')';

            foreach ( @parts )

            {

                push @libpaths, catdir($macroName, 'lib', $_);

                push @incpaths, catdir($macroName ,'include' ,$_);

            }

            push @incpaths, catdir($macroName ,'include');

        }

        my $macroName = 'GBE_INTERFACEDIR';

        $macros{$macroName} = WinFullPath("$BUILDINTERFACE") ;

        $macroName = '$(' . $macroName . ')';

        foreach ( @parts )

        {

                push @libpaths, catdir($macroName, 'lib' , $_);

                push @incpaths, catdir($macroName ,'include' ,$_);

        }

        push @incpaths, catdir($macroName ,'include');

        #

        #   For each LinkPkgArchive

        #

        foreach my $package ( @{$PKGRULES{$platform}} )

        {

            next unless ( $package->{'type'} eq 'link' );

            my $macroName = 'GBE_PACKAGE_'.$package->{'name'};

            $macros{$macroName} = WinFullPath($package->{'base'}) ;

            $macroName = '$(' . $macroName . ')';

            for my $path ( @{$package->{'PLIBDIRS'}} )

            {

                push @libpaths, catdir($macroName, $path);

            }

            for my $path ( @{$package->{'PINCDIRS'}} )

            {

                push @incpaths, catdir($macroName, $path);

            }

        }

        my $AdditionalIncludeDirectories = join(';', @incpaths );

        my $AdditionalLibraryDirectories = join(';', @libpaths);

        my $PreprocessorDefinitions = 'JATS=1';

        #

        #   Create a props file formatted for VS2012

        #

        open (my $XML, '>', $propsFile) || Error ("Cannot create output file: $propsFile", $!);

        my $writer = XML::Writer->new(OUTPUT => $XML, UNSAFE => 0, DATA_INDENT => 4, DATA_MODE => 1);

        $writer->xmlDecl("UTF-8");

        $writer->comment('This file is generated by JATS build');

        $writer->comment('Do not edit this file');

        $writer->comment('Do not version control this file');

        $writer->startTag('Project', "ToolsVersion", "4.0", "xmlns", "http://schemas.microsoft.com/developer/msbuild/2003");

        $writer->emptyTag('ImportGroup', 'Label' , "PropertySheets");

        #

        #   Special Macro for handling production/debug libraries

        #

        $writer->startTag('PropertyGroup', 'Label' , "UserMacros", 'Condition', "'\$(Configuration)' == 'Debug'");

        $writer->dataElement('GBE_TYPE', 'D');

        $writer->endTag('PropertyGroup');

        $writer->startTag('PropertyGroup', 'Label' , "UserMacros", 'Condition', "'\$(Configuration)' != 'Debug'");

        $writer->dataElement('GBE_TYPE', 'P');

        $writer->endTag('PropertyGroup');

        #

        #   Define macros

        #   

        $writer->startTag('PropertyGroup', 'Label' , "UserMacros");

        foreach my $key ( sort keys %macros)

        {

            $writer->dataElement($key, $macros{$key});

        }

        $writer->endTag('PropertyGroup');

        $macros{'GBE_TYPE'}     = 1;

        #

        #   Extend the search paths for includes and libaraies

        #   

        #$writer->emptyTag('ItemDefinitionGroup');

        $writer->startTag('ItemDefinitionGroup');

        $writer->startTag('ClCompile');

        $writer->dataElement('AdditionalIncludeDirectories', $AdditionalIncludeDirectories . ';%(AdditionalIncludeDirectories)');

        $writer->dataElement('PreprocessorDefinitions', $PreprocessorDefinitions . ';%(PreprocessorDefinitions)');

        $writer->endTag('ClCompile');

        $writer->startTag('Link');

        $writer->dataElement('AdditionalLibraryDirectories', $AdditionalLibraryDirectories . ';%(AdditionalLibraryDirectories)');

        $writer->endTag('Link');

        $writer->endTag('ItemDefinitionGroup');

        #

        #   Specify all macro names

        #

        $writer->startTag('ItemGroup');

        foreach my $key ( sort keys %macros)

        {

            $writer->startTag('BuildMacro', 'Include' , $key);

            $writer->dataElement('Value', '$(' . $key . ')');

            $writer->endTag('BuildMacro');

        }

        #

        #   Close tags and write the XML file

        #

        $writer->endTag('ItemGroup');

        $writer->endTag('Project');

        $writer->end();

    }

}

#-------------------------------------------------------------------------------