library/xml/xml.tcl

0 # xml.tcl --
32 # $Id: xml.tcl,v 1.4 2006/09/27 08:12:40 neumann Exp $
34 package provide xml 1.8
38 namespace eval xml {
80 # xml::parser --
108 proc xml::parser {args} {
148 # xml::ParseCommand --
166 proc xml::ParseCommand {parser method args} {
195 # xml::ParseCommand_parse --
201 #	xml	data
206 proc xml::ParseCommand_parse {object xml} {
218 	    [${parent}::sgml::tokenise $xml \
237 # xml::ParseEmpty --
255 proc xml::ParseEmpty {tag attr e} {
270 # xml::ParseAttrs --
288 proc xml::ParseAttrs attrs {
300     set mode name
303 	switch $mode {
311 		set mode value:start
326 				    set mode value:start
331 				set mode end
335 			    set mode value:continue
351 			    set mode value:start
356 			set mode end
368     switch $mode {
381 proc xml::OLDParseAttrs {attrs} {
418 # xml::ParseAttrs:Deprotect --
428 proc xml::ParseAttrs:Deprotect attrs {
442 # xml::ParseCommand_reset --
452 proc xml::ParseCommand_reset object {
461 # xml::noop --
465 proc xml::noop args {}
469 # xml::zapWhite --
479 proc xml::zapWhite data {
488 # xml::parseDTD --
501 proc xml::parseDTD {dtd args} {