Check-in [a0a7bf998d]

Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

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

Overview
Comment:path::tcl-package-file - Tweaked the critcl rejection patterns to make matching on Tcl data less likely.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:a0a7bf998da67d9c117adb78c56687ba659deb98ffa60cce47d74e892e93424d
User & Date: aku 2018-07-10 22:01:49
Context
2018-07-11
04:01
Extended testsuite support with --valgrind. check-in: 788e5e66a9 user: aku tags: trunk
2018-07-10
22:01
path::tcl-package-file - Tweaked the critcl rejection patterns to make matching on Tcl data less likely. check-in: a0a7bf998d user: aku tags: trunk
2018-04-18
02:28
Added ability to push test execution into a child process, via a new command `kt::sub`. This is useful when each test in a set incurs a large memory penalty. Instead of adding up in the test process each is limited to the child process, keeping the test process small. check-in: ef384673c5 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to path.tcl.

204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
	    io trace {        * $method: Not a 'package provide' command}
	    continue
	}
	if {[catch {package vcompare $pv 0}]} {
	    io trace {        * $pkgver: Not a version number}
	    continue
	}
	if {[llength [rgrep {package\s+require\s+critcl} $contents]]} {
	    io trace {        * critcl required: Not pure Tcl}
	    continue
	}

	io trace {    Accepted: $pn $pv @ [relativesrc $file]}

	lappend files [relativesrc $file]







|







204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
	    io trace {        * $method: Not a 'package provide' command}
	    continue
	}
	if {[catch {package vcompare $pv 0}]} {
	    io trace {        * $pkgver: Not a version number}
	    continue
	}
	if {[llength [rgrep {^\s*package\s+require\s+critcl} $contents]]} {
	    io trace {        * critcl required: Not pure Tcl}
	    continue
	}

	io trace {    Accepted: $pn $pv @ [relativesrc $file]}

	lappend files [relativesrc $file]