Check-in [ab947cc1c3]

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

Overview
Comment:Minor expr cleanup
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:ab947cc1c3471226814c3c6a969c6fdc79095806
User & Date: rkeene 2017-12-29 04:08:33
Context
2018-04-28
02:54
Ensure environment is preserved check-in: 2a2001a67e user: rkeene tags: trunk
2017-12-29
04:08
Minor expr cleanup check-in: ab947cc1c3 user: rkeene tags: trunk
2015-05-23
01:59
Updated to return a 500 error when we generate a rivet_error check-in: 65bf739985 user: rkeene tags: trunk
Changes

Changes to packages/tclrivet/tclrivetparser.tcl.

133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
		if { $p == [string length $endtag] } {
		    append outbuf "\n$outputcmd \""
		    set inside 0
		    set p 0
		}
	    } else {
		if { $p > 0 } {
		    append outbuf [string range $endtag 0 [expr $p - 1]]
		    set p 0
		}
		append outbuf $cur
	    }
	}
    }
    return $inside







|







133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
		if { $p == [string length $endtag] } {
		    append outbuf "\n$outputcmd \""
		    set inside 0
		    set p 0
		}
	    } else {
		if { $p > 0 } {
		    append outbuf [string range $endtag 0 [expr {$p - 1}]]
		    set p 0
		}
		append outbuf $cur
	    }
	}
    }
    return $inside