Whitespace and indentation cleanup

webif/lib/xml.class

@@ -90,7 +90,7 @@ xml method _NextToken {{peek 0}} {
 
 xml method isWellFormed {} {
 	set result [$self _isWellFormed]
-    set loc 0
+	$self reset
 	return $result
 }
 
@@ -122,7 +122,7 @@ xml method _isWellFormed {} {
             # XMLDecl
             if {$val eq "xml"} {
                 if {$seen != 0} { return $emsg(XMLDECLFIRST) }
-                # TODO: check version number exist and only encoding and
+                # TODO: check version number exists and only encoding and
                 # standalone attributes are allowed
                 # Mark as seen XMLDecl
                 incr seen
@@ -219,8 +219,8 @@ proc {xml decodeCharEntities} {xmlText} {
 
 	# This parser <https://github.com/dbohdan/jimhttp/blob/master/json.tcl>
 	# could be used to import the HTML5 entity list from the JSON file at
-        # <https://html.spec.whatwg.org/entities.json> instead of the above. But 
-        # this is XML without any additional DTD.
+	# <https://html.spec.whatwg.org/entities.json> instead of the above.
+	# But this is XML without any additional DTD.
 
         # add any numeric character entity in the input to the mapping
         foreach {e _e xnum num} \
@@ -245,6 +245,7 @@ proc {xml decodeCharEntities} {xmlText} {
 		[lrange $mapping 0 1] \
 		[string map -nocase [lrange $mapping 2 end] $xmlText]]
 }
+
 # test parsing XML; default from tvdb.class with added char entity goodness
 proc {xml test} \
 	{{testXml { <?xml version="1.0" encoding="ISO-8859-1"?>
@@ -265,3 +266,4 @@ proc {xml test} \
 	       puts "looking at: $type '$val' '$attr' '$etype'"
 	}
 }
+