From: SourceForge.net <no...@so...> - 2004-11-30 20:20:24
|
Bugs item #1076248, was opened at 2004-11-30 12:20 Message generated for change (Tracker Item Submitted) made by Item Submitter You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894 Category: 17. Commands I-L Group: current: 8.4.8 Status: Open Resolution: None Priority: 5 Submitted By: Nobody/Anonymous (nobody) Assigned to: Donal K. Fellows (dkf) Summary: if command error Initial Comment: Tested on ActiveTcl build8.4.8 and self-built 8.4.8 on Red hat 9.0 tclsh % set test_string "</Config>" </Config> % if [ regexp "^</(.*)>" $test_string jerk cfg_line ] { puts $cfg_line } elseif [ regexp "^<(.*)>" $test_string jerk cfg_line ] { } /Config % if [ regexp "^</(.*)>" $test_string jerk cfg_line ] { puts $cfg_line } elseif [ regexp "^<(.*)>" $test_string jerk cfg_line2 ] { } Config % ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894 |
From: SourceForge.net <no...@so...> - 2004-12-01 00:06:37
|
Bugs item #1076248, was opened at 2004-11-30 12:20 Message generated for change (Comment added) made by hobbs You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894 Category: 17. Commands I-L Group: current: 8.4.8 >Status: Closed >Resolution: Invalid Priority: 5 Submitted By: Nobody/Anonymous (nobody) Assigned to: Donal K. Fellows (dkf) Summary: if command error Initial Comment: Tested on ActiveTcl build8.4.8 and self-built 8.4.8 on Red hat 9.0 tclsh % set test_string "</Config>" </Config> % if [ regexp "^</(.*)>" $test_string jerk cfg_line ] { puts $cfg_line } elseif [ regexp "^<(.*)>" $test_string jerk cfg_line ] { } /Config % if [ regexp "^</(.*)>" $test_string jerk cfg_line ] { puts $cfg_line } elseif [ regexp "^<(.*)>" $test_string jerk cfg_line2 ] { } Config % ---------------------------------------------------------------------- >Comment By: Jeffrey Hobbs (hobbs) Date: 2004-11-30 16:06 Message: Logged In: YES user_id=72656 Pilot error - you must {} exprs, otherwise they are eval'ed as expected. In both cases, both regexps are evaled, you just change the var for the 2nd RE in the 2nd case. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894 |
From: SourceForge.net <no...@so...> - 2004-12-01 09:09:21
|
Bugs item #1076248, was opened at 2004-11-30 20:20 Message generated for change (Comment added) made by dkf You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894 Category: 17. Commands I-L Group: current: 8.4.8 Status: Closed Resolution: Invalid Priority: 5 Submitted By: Nobody/Anonymous (nobody) Assigned to: Donal K. Fellows (dkf) Summary: if command error Initial Comment: Tested on ActiveTcl build8.4.8 and self-built 8.4.8 on Red hat 9.0 tclsh % set test_string "</Config>" </Config> % if [ regexp "^</(.*)>" $test_string jerk cfg_line ] { puts $cfg_line } elseif [ regexp "^<(.*)>" $test_string jerk cfg_line ] { } /Config % if [ regexp "^</(.*)>" $test_string jerk cfg_line ] { puts $cfg_line } elseif [ regexp "^<(.*)>" $test_string jerk cfg_line2 ] { } Config % ---------------------------------------------------------------------- >Comment By: Donal K. Fellows (dkf) Date: 2004-12-01 09:09 Message: Logged In: YES user_id=79902 Elaborating on what Jeff said, you probably meant to say this: if {[ regexp "^</(.*)>" $test_string jerk cfg_line ]} { puts $cfg_line } elseif {[ regexp "^<(.*)>" $test_string jerk cfg_line ]} { } Notice the {} round the invokations of [regexp]? It's important (and it also helps the code go faster as a bonus.) ---------------------------------------------------------------------- Comment By: Jeffrey Hobbs (hobbs) Date: 2004-12-01 00:06 Message: Logged In: YES user_id=72656 Pilot error - you must {} exprs, otherwise they are eval'ed as expected. In both cases, both regexps are evaled, you just change the var for the 2nd RE in the 2nd case. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894 |
From: SourceForge.net <no...@so...> - 2004-12-01 16:41:57
|
Bugs item #1076248, was opened at 2004-11-30 15:20 Message generated for change (Comment added) made by dgp You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894 Category: 17. Commands I-L Group: current: 8.4.8 Status: Closed Resolution: Invalid Priority: 5 Submitted By: Nobody/Anonymous (nobody) Assigned to: Donal K. Fellows (dkf) Summary: if command error Initial Comment: Tested on ActiveTcl build8.4.8 and self-built 8.4.8 on Red hat 9.0 tclsh % set test_string "</Config>" </Config> % if [ regexp "^</(.*)>" $test_string jerk cfg_line ] { puts $cfg_line } elseif [ regexp "^<(.*)>" $test_string jerk cfg_line ] { } /Config % if [ regexp "^</(.*)>" $test_string jerk cfg_line ] { puts $cfg_line } elseif [ regexp "^<(.*)>" $test_string jerk cfg_line2 ] { } Config % ---------------------------------------------------------------------- >Comment By: Don Porter (dgp) Date: 2004-12-01 11:41 Message: Logged In: YES user_id=80530 The confusion here arises because Tcl was apparently buggy in releases 8.0 through 8.3 on this point, and only in 8.4 did it get corrected. still looking for the relevant bug report. ---------------------------------------------------------------------- Comment By: Donal K. Fellows (dkf) Date: 2004-12-01 04:09 Message: Logged In: YES user_id=79902 Elaborating on what Jeff said, you probably meant to say this: if {[ regexp "^</(.*)>" $test_string jerk cfg_line ]} { puts $cfg_line } elseif {[ regexp "^<(.*)>" $test_string jerk cfg_line ]} { } Notice the {} round the invokations of [regexp]? It's important (and it also helps the code go faster as a bonus.) ---------------------------------------------------------------------- Comment By: Jeffrey Hobbs (hobbs) Date: 2004-11-30 19:06 Message: Logged In: YES user_id=72656 Pilot error - you must {} exprs, otherwise they are eval'ed as expected. In both cases, both regexps are evaled, you just change the var for the 2nd RE in the 2nd case. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894 |
From: SourceForge.net <no...@so...> - 2004-12-01 16:56:52
|
Bugs item #1076248, was opened at 2004-11-30 15:20 Message generated for change (Comment added) made by dgp You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894 Category: 17. Commands I-L Group: current: 8.4.8 Status: Closed Resolution: Invalid Priority: 5 Submitted By: Nobody/Anonymous (nobody) Assigned to: Donal K. Fellows (dkf) Summary: if command error Initial Comment: Tested on ActiveTcl build8.4.8 and self-built 8.4.8 on Red hat 9.0 tclsh % set test_string "</Config>" </Config> % if [ regexp "^</(.*)>" $test_string jerk cfg_line ] { puts $cfg_line } elseif [ regexp "^<(.*)>" $test_string jerk cfg_line ] { } /Config % if [ regexp "^</(.*)>" $test_string jerk cfg_line ] { puts $cfg_line } elseif [ regexp "^<(.*)>" $test_string jerk cfg_line2 ] { } Config % ---------------------------------------------------------------------- >Comment By: Don Porter (dgp) Date: 2004-12-01 11:56 Message: Logged In: YES user_id=80530 Probably was Bug 219166. ---------------------------------------------------------------------- Comment By: Don Porter (dgp) Date: 2004-12-01 11:41 Message: Logged In: YES user_id=80530 The confusion here arises because Tcl was apparently buggy in releases 8.0 through 8.3 on this point, and only in 8.4 did it get corrected. still looking for the relevant bug report. ---------------------------------------------------------------------- Comment By: Donal K. Fellows (dkf) Date: 2004-12-01 04:09 Message: Logged In: YES user_id=79902 Elaborating on what Jeff said, you probably meant to say this: if {[ regexp "^</(.*)>" $test_string jerk cfg_line ]} { puts $cfg_line } elseif {[ regexp "^<(.*)>" $test_string jerk cfg_line ]} { } Notice the {} round the invokations of [regexp]? It's important (and it also helps the code go faster as a bonus.) ---------------------------------------------------------------------- Comment By: Jeffrey Hobbs (hobbs) Date: 2004-11-30 19:06 Message: Logged In: YES user_id=72656 Pilot error - you must {} exprs, otherwise they are eval'ed as expected. In both cases, both regexps are evaled, you just change the var for the 2nd RE in the 2nd case. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1076248&group_id=10894 |