Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch tkt-c974e352d2-ak Excluding Merge-Ins
This is equivalent to a diff from 0e381eadd7 to b27e9f8077
2017-05-29
| ||
22:24 | Merged json fixes check-in: dbdaf3dff4 user: aku tags: trunk | |
22:23 | Extended the token regexp with special cases for partial numbers (no leading cardinal, no fraction), with other parts becoming mandatory. This fixes mismatching and misconversion of numbers like "1." and ".1". Added tests for these cases. Closed-Leaf check-in: b27e9f8077 user: aku tags: tkt-c974e352d2-ak | |
20:56 | Manually applied the patch from the ticket. Further some cleanup and simplification (Use 8.5 features (lassign, {*})) Closed-Leaf check-in: a0ec57b1bd user: aku tags: tkt-8fd2561785-ak | |
19:34 | Added "Jacobi symbol" to numtheory package and corrected the minimum Tcl version for the geometry package. (Still need to check what the failures with Tcl 8.5 are all about) check-in: 0e381eadd7 user: arjenmarkus tags: trunk | |
19:05 | Ticket 214986cedd: Reworked documentation of splitx to describe the handling of capture groups better. check-in: 0512fb6a9e user: aku tags: trunk | |
Changes to modules/json/json.man.
1 | 1 2 3 4 5 6 7 8 9 | - + | [comment {-*- tcl -*- doctools manpage}] |
︙ |
Changes to modules/json/json.tcl.
︙ | |||
215 216 217 218 219 220 221 | 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 | - + + + + + - | # number tokens # negative lookahead (?!0)[[:digit:]]+ might be more elegant, but # would slow down tokenizing by a factor of up to 3! variable positiveRE {[1-9][[:digit:]]*} variable cardinalRE "-?(?:$positiveRE|0)" variable fractionRE {[.][[:digit:]]+} variable exponentialRE {[eE][+-]?[[:digit:]]+} |
︙ | |||
275 276 277 278 279 280 281 | 278 279 280 281 282 283 284 285 | - + | proc ::json::string2json {str} { return "\"$str\"" } # ### ### ### ######### ######### ######### ## Ready |
Changes to modules/json/json_tcl.tcl.
︙ | |||
19 20 21 22 23 24 25 | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | + - + | proc ::json::json2dict_tcl {jsonText} { variable tokenRE set tokens [regexp -all -inline -- $tokenRE $jsonText] set nrTokens [llength $tokens] set tokenCursor 0 #puts I:($jsonText) |
︙ |
Changes to modules/json/pkgIndex.tcl.
1 2 3 | 1 2 3 4 5 6 7 | - + | # Tcl package index file, version 1.1 if {![package vsatisfies [package provide Tcl] 8.4]} {return} |
Changes to modules/json/tests/support.tcl.
︙ | |||
80 81 82 83 84 85 86 | 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | + + + + + + + + + - + | set JSON(emptyList4) {[[]]} set TCL(emptyList4) {{}} set JSON(escapes) {"\t\r\n\f\b\/\\\""} set TCL(escapes) "\t\r\n\f\b/\\\"" foreach {label json tcl} { fp1.1 1.1 1.1 fp1. 1. 1. fp.1 .1 .1 fp0.1 0.1 0.1 fp1 1 1 } { set JSON($label) $json set TCL($label) $tcl |
︙ |