1 files changed, 199 insertions, 0 deletions

diff --git a/mcs/class/PresentationFramework/System.Windows.Serialization/data-classes-builder.pl b/mcs/class/PresentationFramework/System.Windows.Serialization/data-classes-builder.pl
new file mode 100644
index 00000000000..d2ebd2e8b32
--- /dev/null
+++ b/mcs/class/PresentationFramework/System.Windows.Serialization/data-classes-builder.pl
@@ -0,0 +1,199 @@
+open FILE, "data-classes.txt";
+
+%classes;
+
+while ($line = <FILE>) {
+	chop $line;
+	$properties = "";
+	$magicprops = "";
+	if (index($line, ":") == -1) {
+		$class = $line;
+		if (index($line, ";") != -1) {
+			$class = substr($line, 0, index($line, ";"));
+			$magicprops = substr($line, index($line, ";") + 2);
+			print "$class: $magicprops\n";
+		}
+	} else {
+		$class = substr($line, 0, index($line, ":"));
+		$properties = substr($line, index($line, ":") + 2);
+		if (index($properties, ";") != -1) {
+			$magicprops = substr($properties, index($properties, ";") + 2);
+			$properties = substr($properties, 0, index($properties, ";"));
+		}
+	}
+	if ($line =~ m/Xaml[^(]+\(/) {
+		$parent = $class;
+		$parent =~ s/(Xaml[^(]+)\(([^)]+)\).*/\2/;
+		$clname = $class;
+		$clname =~ s/(Xaml[^(]+)\(([^)]+)\).*/\1/;
+		$class = $clname;
+	} else {
+		$parent = "XamlNode";
+	}
+	$classes{$class} = { parent => $parent, 
+			properties => $properties,
+			magicprops => $magicprops };
+}
+
+sub get_parent {
+	my $x = shift;
+	return $classes{$x}->{"parent"};
+}
+sub get_properties {
+	my $x = shift;
+	return $classes{$x}->{"properties"};
+}
+sub get_magic_properties {
+	my $x = shift;
+	return $classes{$x}->{"magicprops"};
+}
+
+
+sub get_extended_params_list {
+	my $x = shift;
+	my $params = "";
+	while ($x ne "XamlNode") {
+		$x = &get_parent($x);
+		$params = &get_properties($x) . ", " . $params;
+		$params =~ s/, $//;
+	}
+	$params =~ s/^XamlNodeType tokenType, //;
+	return $params;
+}
+
+sub has_parent {
+	my $x = shift;
+	my $parent = shift;
+	while ($x ne "object") {
+		if ($x eq $parent) {
+			return 1;
+		}
+		$x = &get_parent($x);
+	}
+	return 0;
+}
+
+for $class (keys %classes) {
+	print "$class.cs\n";
+	open X, ">$class.cs";
+	print X "// THIS FILE AUTOMATICALLY GENERATED BY data-classes-builder.pl\n";
+	print X "// EDITING IS PROBABLY UNWISE\n";
+	print X "namespace System.Windows.Serialization {\n";
+	print X "using System;\n";
+	print X "using System.Reflection;\n";
+	print X "using System.Windows;\n";
+	$parent = &get_parent($class);
+
+	$props = &get_properties($class);
+	@propl = split /, /, $props;
+
+	$eprops = &get_extended_params_list($class);
+	@epropl = split /, /, $eprops;
+
+	$allprops = $eprops;
+	$allprops .= ", $props" unless ($props eq "");
+	@allpropl = split /, /, $allprops;
+	my @allpropl2 = @allpropl;
+	for $prop (@allpropl2) {
+		$prop =~ s/^\+//;
+	}
+	$allprops = join ", ", @allpropl2;
+
+	$mprops = &get_magic_properties($class);
+	@mpropl = split /, /, $mprops;
+
+	$xamlnodetype = "$class";
+	$xamlnodetype =~ s/^Xaml(.+)Node$/\1/;
+	$xamlnodetype = "XamlNodeType.$xamlnodetype";
+
+	print X "public class $class : " . $parent . " { \n";
+
+	# member variables
+	for $prop (@propl) {
+		next if $prop =~ m/^\+/;
+		print X "\tprivate $prop;\n";
+	}
+	for $prop (@mpropl) {
+		next if $prop =~ m/^\+/;
+		$x = $prop;
+		$x =~ s/ / _/;
+		print X "\tprivate $x;\n";
+	}
+	print X "\n\n";
+
+	# constructor
+	if ($class eq "XamlNode") {
+		print X "\tpublic $class($props)\n";
+		print X "\t{\n";
+		for $prop (@propl) {
+			$propname = substr($prop, index($prop, " ") + 1);
+			print X "\t\tthis.$propname = $propname;\n";
+		}
+		print X "\t}\n";
+	} else {
+		print X "\tpublic $class($allprops)\n";
+		print X "\t\t: this(";
+		my @allpropnames;
+		push @allpropnames, $xamlnodetype;
+		for $prop (@allpropl) {
+			push @allpropnames, substr($prop, index($prop, " ") + 1);
+		}
+		print X (join ", ", @allpropnames);
+		print X ")\n\t{}\n\n\n";
+
+		print X "\tinternal $class(XamlNodeType type, $allprops)\n";
+
+		my @epropnamel;
+		for $prop (@epropl) {
+			push @epropnamel, substr($prop, index($prop, " ") + 1);
+		}
+		$epropnames = join ", ", @epropnamel;
+		print X "\t\t: base(type, $epropnames)\n";
+		print X "\t{\n";
+		for $prop (@propl) {
+			$propname = substr($prop, index($prop, " ") + 1);
+			if ($prop =~ m/^\+/) {
+				$func = substr($propname, 0, 1);
+				$func =~ tr/a-z/A-Z/;
+				$func = "set$func" . substr($propname, 1);
+				print X "\t\tthis.$func($propname);\n";
+			} else {
+				print X "\t\tthis.$propname = $propname;\n";
+			}
+		}
+		print X "\t}\n";
+	}
+
+	#property accessors
+	for $prop (@propl) {
+		$proptype = substr($prop, 0, index($prop, " "));
+		$fieldname = substr($prop, index($prop, " ") + 1);
+
+		$propname = substr($fieldname, 0, 1);
+		$propname =~ tr/a-z/A-Z/;
+		$propname .= substr($fieldname, 1);
+
+		if ($proptype =~ m/^\+/) {
+			next;
+		}
+
+		print X "\n\tpublic $proptype $propname {\n";
+		print X "\t\tget { return $fieldname; }\n";
+		print X "\t}\n";
+	}
+	for $prop (@mpropl) {
+		$proptype = substr($prop, 0, index($prop, " "));
+		$propname = substr($prop, index($prop, " ") + 1);
+		$fieldname = "_$propname";
+
+
+		print X "\n\tpublic $proptype $propname {\n";
+		print X "\t\tget { return $fieldname; }\n";
+		print X "\t}\n";
+		print X "\n\tinternal void set$propname($proptype v) {\n";
+		print X "\t\t$fieldname = v;\n";
+		print X "\t}\n";
+	}
+	print X "}\n}\n\n";
+	close X;
+}