Check-in [91ed5a77fe]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed parsing error
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:91ed5a77fe709c8ec13816a2974bf1faa6710d4e
User & Date: rkeene 2011-05-20 23:06:57
Context
2011-05-20
23:07
Added basic upload support Moved private procedures into rivet namespace check-in: 5f5005e0b0 user: rkeene tags: trunk
23:06
Fixed parsing error check-in: 91ed5a77fe user: rkeene tags: trunk
2011-05-18
00:48
Added internal examples check-in: c91a2dbc7c user: rkeene tags: trunk
Changes

Changes to packages/tclrivet/tclrivetparser.tcl.

96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
	    } else {
		if { $p > 0 } {
		    append outbuf [string range $starttag 0 [expr {$p - 1}]]
		    set p 0
		}
		switch -exact -- $cur {
		    "\{" {
			append outbuf "\\{"
		    }
		    "\}" {
			append outbuf "\\}"
		    }
		    "\$" {
			append outbuf "\\$"
		    }
		    "\[" {
			append outbuf "\\\["
		    }







|


|







96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
	    } else {
		if { $p > 0 } {
		    append outbuf [string range $starttag 0 [expr {$p - 1}]]
		    set p 0
		}
		switch -exact -- $cur {
		    "\{" {
			append outbuf "\\\{"
		    }
		    "\}" {
			append outbuf "\\\}"
		    }
		    "\$" {
			append outbuf "\\$"
		    }
		    "\[" {
			append outbuf "\\\["
		    }