# HG changeset patch
# User Dario Sestito <darios@symbian.org>
# Date 1270805672 -3600
# Node ID 94716c32894109086f5f84168e1936b34ee5a512
# Parent  b0315c337be6de5f6dd6d4e001cbac83db77fd0f
Fix canonical_system_definition.xml doesn't have XML special characters escaped

diff -r b0315c337be6 -r 94716c328941 common/tools/csvToSysDef.pl
--- a/common/tools/csvToSysDef.pl	Wed Apr 07 14:03:14 2010 +0100
+++ b/common/tools/csvToSysDef.pl	Fri Apr 09 10:34:32 2010 +0100
@@ -153,7 +153,14 @@
 	$tagName =~ s{^main::}{};
 	if ($tagName eq "Characters")
 	{
-		print $tree->{Text};
+		if ($tree->{Text} =~ m{[<>&]})
+		{
+			print "<![CDATA[$tree->{Text}]]>";
+		}
+		else
+		{
+			print $tree->{Text};
+		}
 		return;
 	}
 	
@@ -172,7 +179,11 @@
 		}
 		keys %$tree)
 	{
-		print " $attr=\"$tree->{$attr}\"";
+		my $value_escaped = $tree->{$attr};
+		$value_escaped =~ s/&/&amp;/g;
+		$value_escaped =~ s/</&lt;/g;
+		$value_escaped =~ s/>/&gt;/g;
+		print " $attr=\"$value_escaped\"";
 	}
 
 	my $children = $tree->{Kids};
diff -r b0315c337be6 -r 94716c328941 common/tools/lib/XML/Printer.pm
--- a/common/tools/lib/XML/Printer.pm	Wed Apr 07 14:03:14 2010 +0100
+++ b/common/tools/lib/XML/Printer.pm	Fri Apr 09 10:34:32 2010 +0100
@@ -55,7 +55,11 @@
 		}
 		keys %$tree)
 	{
-		print " $attr=\"$tree->{$attr}\"";
+		my $value_escaped = $tree->{$attr};
+		$value_escaped =~ s/&/&amp;/g;
+		$value_escaped =~ s/</&lt;/g;
+		$value_escaped =~ s/>/&gt;/g;
+		print " $attr=\"$value_escaped\"";
 	}
 
 	my $children = $tree->{Kids} || [];