Lines Matching defs:parser
3 # This file provides a Tcl implementation of a XML parser.
46 namespace export parser
50 # Counter for creating unique parser objects
55 # xml::parser --
57 # Creates XML parser object.
60 # args Unique name for parser object
83 proc xml::parser {args} {
90 set name parser[incr ParserCounter]
94 return -code error "unable to create parser object \"[namespace current]::$name\" command"
98 upvar \#0 [namespace current]::$name parser
100 array set parser [list name $name \
134 # parser parser object
141 proc xml::ParseCommand {parser method args} {
142 upvar \#0 [namespace current]::$parser state
154 ParseCommand_parse $parser [lindex $args 0]
160 ParseCommand_reset $parser
175 # object parser object
182 upvar \#0 [namespace current]::$object parser
203 [array get parser -*command] \
204 [array get parser -entityvariable] \
205 [array get parser -reportempty] \
206 [array get parser -final] \
208 -internaldtd [list $parser(internaldtd)]
215 # Used by parser to determine whether an element is empty.
359 # Initialize parser data
362 # object parser object
368 upvar \#0 [namespace current]::$object parser
370 array set parser [list \