Subversion Repositories DevTools

########################################################################

# Copyright (c) VIX TECHNOLOGY (AUST) LTD

#

# Module name   : jats_xml_play1.pl

# Module type   : JATS Utility

# Compiler(s)   : Perl

# Environment(s): jats

#

# Description   : 

#

# Usage         : See POD at the end of this file

#

#......................................................................#

require 5.008_002;

use strict;

use warnings;

use Pod::Usage;

use Getopt::Long;

use JatsError;

use XML::Writer;

my $opt_outfile = 'tmp.xml';

my $output;

my %macros;

my @libdirs = qw (c:\\dir1 c:\\dir2 c:\\dir3);

my @incdirs = qw (d:\\inc1 d:\\inc2);

my @defines = qw (defined1=12 define2=13);

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

my $PreprocessorDefinitions = join(';', @defines );

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

$macros{ddpMacro0} = 'c:\somewhere\someplace0'; 

$macros{ddpMacro1} = 'c:\somewhere\someplace1'; 

$macros{ddpMacro2} = 'c:\somewhere\someplace2'; 

$macros{ddpMacro3} = 'c:\somewhere\someplace3'; 

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

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

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

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

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

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

foreach my $key ( keys %macros)

{

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

}

$writer->endTag('PropertyGroup');

#$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');

$writer->startTag('ItemGroup');

foreach my $key ( keys %macros)

{

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

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

    $writer->endTag('BuildMacro');

}

$writer->endTag('ItemGroup');

$writer->endTag('Project');

$writer->end();