Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Correct handling of case sensitivity specifiers in "string" tests. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
83c630410e955cdce3422863ea6b0c61 |
| User & Date: | pooryorick 2016-08-10 11:43:28 |
Context
|
2016-08-14
| ||
| 07:29 | TEPAM version 0.5.2 - Fix of bug 21c45cb4c4bff37adeac400189809c7f25cea1ea - TEPAM doesn't require Tk package before using Tk commands: The updated TEPAM revision checks if Tk has been loaded prior of using Tk commands. If this is not the case an adequate error will be generated. check-in: ac49d84e58 user: droll tags: trunk | |
|
2016-08-12
| ||
| 17:44 | fileutil::decode - Bumped to version 0.2.1 - Fixed conversion of values to [unsigned]. The clipping mask is dependent on the length of the value (in bytes). This tripped package "zipfile::decode" when trying to handle a zip file containing more than 32K files. Further extended to provide proper error codes when throwing an error. check-in: 139dc57787 user: andreask tags: decode-fixes | |
|
2016-08-10
| ||
| 11:43 | Correct handling of case sensitivity specifiers in "string" tests. check-in: 83c630410e user: pooryorick tags: trunk | |
|
2016-08-09
| ||
| 20:53 | Update generated script for filetypes. check-in: 6bdf76772f user: pooryorick tags: trunk | |
Changes
Changes to modules/fumagic/rtcore.tcl.
| ︙ | ︙ | |||
540 541 542 543 544 545 546 547 548 549 550 551 552 553 |
# The remaining code may assume that $string and $val have the same length
# .
set opnum [dict get {< -1 == 0 eq 0 != 0 ne 0 > 1} $op]
if {{c} in $mod || {C} in $mod} {
if {{c} in $mod && {C} in $mod} {
set string [string tolower $string[set string {}]]
set val [string tolower $val[set val {}]]
} elseif {{c} in $mod} {
foreach sc [split $string] vc [split $val] {
if {[string is lower $sc]} {
set vc [string tolower $vc]
| > | 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 |
# The remaining code may assume that $string and $val have the same length
# .
set opnum [dict get {< -1 == 0 eq 0 != 0 ne 0 > 1} $op]
if {{c} in $mod || {C} in $mod} {
set res 1
if {{c} in $mod && {C} in $mod} {
set string [string tolower $string[set string {}]]
set val [string tolower $val[set val {}]]
} elseif {{c} in $mod} {
foreach sc [split $string] vc [split $val] {
if {[string is lower $sc]} {
set vc [string tolower $vc]
|
| ︙ | ︙ |