Re: [Tclxml-users] Question on -final usage in tclxml-2.4

[Ted N. S. A. GA <te...@ag...>]

>
>There is already an open bug on "-final" in the SF bug
>tracker (#413341).  Please feel free to append your comments
>to that bug.  The bug is currently assigned to Mats, and may be
>worthwhile reminding him (gently) to fix it ;-)
>
>Of course, if you can provide a patch I would be only too
>happy to incorporate it myself and close the bug report if
>it is fixed.
>

Steve,

Thanks.  It seems pretty clear to me after looking at it for
a bit that the following patch is required, but not suficient:

solabel10% diff -c sgmlparser.tcl $a
*** sgmlparser.tcl	Thu Sep 12 17:13:46 2002
--- /home/solabel10/ted/wdc/src/uc/lib/tclxml2.4/sgmlparser.tcl	Mon Dec  9 12:46:41 2002
***************
*** 151,157 ****
      if {[info exists options(-statevariable)]} {
  	# Mats: Several rewrites here to handle -final 0 option.
  	# If any cached unparsed xml (state(leftover)), prepend it.
! 	upvar #0 $opts(-statevariable) state
  	if {[string length $state(leftover)]} {
  	    regsub -all $elemExpr $state(leftover)$sgml $elemSub sgml
  	    set state(leftover) {}
--- 151,157 ----
      if {[info exists options(-statevariable)]} {
  	# Mats: Several rewrites here to handle -final 0 option.
  	# If any cached unparsed xml (state(leftover)), prepend it.
! 	upvar #0 $options(-statevariable) state
  	if {[string length $state(leftover)]} {
  	    regsub -all $elemExpr $state(leftover)$sgml $elemSub sgml
  	    set state(leftover) {}
solabel10% 

This fixes the 

  "can't read "opts(-statevariable)": no such variable while executing"

problem, but something else is wrong as well.


			Ted