[Opensync-commits] r164 - wbxmlTestSuite/trunk

[<dg...@su...>]

Author: bellmich
Date: Mon Jan 19 13:59:01 2009
New Revision: 164
URL: http://libwbxml.opensync.org/changeset/164

Log:
normalize elements of the format <element_name/>

Modified:
   wbxmlTestSuite/trunk/normalize_xml.pl

Modified: wbxmlTestSuite/trunk/normalize_xml.pl
==============================================================================
--- wbxmlTestSuite/trunk/normalize_xml.pl	Mon Jan 19 13:40:30 2009	(r163)
+++ wbxmlTestSuite/trunk/normalize_xml.pl	Mon Jan 19 13:59:01 2009	(r164)
@@ -164,6 +164,7 @@
 	    }
 	    $indent++;
 	    print $NEW_FD "<".$char;
+	    $element = $char;
 	    $state = "ELEMENT";
 	} elsif ($char eq "/") {
 	    ## this is a closing element
@@ -237,6 +238,7 @@
     # read element name
     if ($state eq "ELEMENT" and $char =~ q{[a-zA-Z0-9_]}) {
 	print $NEW_FD $char;
+	$element .= $char;
 	next;
     }
 
@@ -306,8 +308,16 @@
     if (($state eq "ELEMENT" or $state eq "POTENTIAL_ATTRIBUTE")
         and $char eq "/")
     {
-	print $NEW_FD "/";
+	# consume the closing ">" and add the complete closing tag
+	$char = ">";
+	$line =~ s{^\s*>}{};
 	$indent--;
+	print $NEW_FD ">\n";
+	for (my $i = 0; $i < $indent; $i++) {
+	    print $NEW_FD "  ";
+	}
+	print $NEW_FD "</${element}>\n";
+	$state = "NEUTRAL";
 	next;
     }