Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | merge trunk |
|---|---|
| Timelines: | family | ancestors | descendants | both | list-and-dict-types |
| Files: | files | file ages | folders |
| SHA3-256: |
b0b8f8280bee76c2797e717925a1fc7a |
| User & Date: | dkf 2018-11-29 13:57:22.945 |
Context
|
2018-12-06
| ||
| 21:14 | Huge mess of half-converted code, with something horrible inside. Definitely buggy... check-in: 462eec7d43 user: dkf tags: list-and-dict-types | |
|
2018-11-29
| ||
| 13:57 | merge trunk check-in: b0b8f8280b user: dkf tags: list-and-dict-types | |
| 11:34 | This is getting somewhere; next up, using actual types we can now assume in code issue check-in: 0ec315adac user: dkf tags: list-and-dict-types | |
|
2018-11-27
| ||
| 03:07 | Fix bug in finding variable names among the args to 'regexp' check-in: 6311170b65 user: kbk tags: trunk | |
Changes
Changes to demos/perftest/tester.tcl.
| ︙ | ︙ | |||
1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 |
set pq 0
test4a p q
return $pq
}
}
namespace eval ::flightawarebench {
# See https://github.com/flightaware/tclbench/blob/master/math/bench.tcl
proc degrees_radians {degrees} {
return [expr {$degrees * 3.14159265358979323846 / 180.0}]
}
proc latlongs_to_distance {lat1 lon1 lat2 lon2} {
| > > > > > > > > | 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 |
set pq 0
test4a p q
return $pq
}
}
namespace eval ::regexptest {
proc matchvar-1 {needle haystack} {
regexp -indices -- $needle $haystack where
return $where
}
}
namespace eval ::flightawarebench {
# See https://github.com/flightaware/tclbench/blob/master/math/bench.tcl
proc degrees_radians {degrees} {
return [expr {$degrees * 3.14159265358979323846 / 180.0}]
}
proc latlongs_to_distance {lat1 lon1 lat2 lon2} {
|
| ︙ | ︙ | |||
2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 |
{bug-7c599d4029::bug 0x1}
{linesearch::getAllLines1 2}
{linesearch::getAllLines2 2}
# {flightawarebench::test 5 5 2}
# {flightawarebench::clockscan 5 5 5}
parseBuiltinsTxt::main
vartest::check
vartest::throwcheck
nsvartest::check
directtest::check
directtest::alias
{directtest::ary3 abc 3 1}
{directtest::ary4 abc 5}
| > > | 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 |
{bug-7c599d4029::bug 0x1}
{linesearch::getAllLines1 2}
{linesearch::getAllLines2 2}
# {flightawarebench::test 5 5 2}
# {flightawarebench::clockscan 5 5 5}
parseBuiltinsTxt::main
{regexptest::matchvar-1 bra abracadabra}
vartest::check
vartest::throwcheck
nsvartest::check
directtest::check
directtest::alias
{directtest::ary3 abc 3 1}
{directtest::ary4 abc 5}
|
| ︙ | ︙ | |||
2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 |
comps
bug-7c599d4029::*
singleton::*
linesearch::colinear
linesearch::sameline
linesearch::getAllLines1
linesearch::getAllLines2
vartest::*
nsvartest::*
directtest::*
upvar0
upvar0a
upvartest0::*
upvartest1::*
| > | 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 |
comps
bug-7c599d4029::*
singleton::*
linesearch::colinear
linesearch::sameline
linesearch::getAllLines1
linesearch::getAllLines2
regexptest::*
vartest::*
nsvartest::*
directtest::*
upvar0
upvar0a
upvartest0::*
upvartest1::*
|
| ︙ | ︙ |
Changes to quadcode/builtin_specials.tcl.
| ︙ | ︙ | |||
109 110 111 112 113 114 115 |
# After the switches come needle and haystack
incr ind 2
# Anything remaining on the line must be a match variable
| | | 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 |
# After the switches come needle and haystack
incr ind 2
# Anything remaining on the line must be a match variable
if {$ind >= [llength $q]} {
return {killable Inf noCallFrame {} pure {}}
} else {
return [list writes [expr {3-$ind}]]
}
}
|
| ︙ | ︙ |
Changes to quadcode/callframe.tcl.
| ︙ | ︙ | |||
1294 1295 1296 1297 1298 1299 1300 |
if {[lindex $p 0] eq "literal"} {
dict set written [lindex $p 1] {}
} else {
return {0 {}};
}
}
} else {
| < < | 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 |
if {[lindex $p 0] eq "literal"} {
dict set written [lindex $p 1] {}
} else {
return {0 {}};
}
}
} else {
foreach p [lrange $params [expr {-1 - $ind}] end] {
if {[lindex $p 0] eq "literal"} {
dict set written [lindex $p 1] {}
} else {
return {0 {}};
}
}
}
}
}
if {[dict exists $attrs writesNamed]} {
foreach nm [dict get $attrs writesNamed] {
|
| ︙ | ︙ |