Check-in [8bd2dcddb1]

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 [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Fix handling of @owns when scanning file in a subdirectory of the sources.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8bd2dcddb1747683aab23be96ba0094467d77a41
User & Date: aku 2017-10-04 03:23:23
Context
2017-10-04
19:12
Fix to scanning of files. Do not scan beyond a ^Z eof marker. I.e. do not scan the assets a file may have attached to their end. check-in: c629207a79 user: aku tags: trunk
03:23
Fix handling of @owns when scanning file in a subdirectory of the sources. check-in: 8bd2dcddb1 user: aku tags: trunk
2017-06-14
23:41
Fix sorting of test times in summary output, note we are sorting numbers. check-in: 966cb6e777 user: aku tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to path.tcl.

212
213
214
215
216
217
218


219
220
221
222



223
224
225
226
227
228
229
	    io trace {        * critcl required: Not pure Tcl}
	    continue
	}

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

	lappend files [relativesrc $file]


	# Look for referenced dependent files.
	foreach line [grep {* @owns: *} $contents] {
	    if {![regexp {#\[email protected]:\s+(.*)$} $line -> path]} continue
	    lappend files $path



	}

	# For 'scan'.
	kettle option set @predicate [list $files $pn $pv]
	return 1
    }







>
>



|
>
>
>







212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
	    io trace {        * critcl required: Not pure Tcl}
	    continue
	}

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

	lappend files [relativesrc $file]
	set here [file dirname $file]

	# Look for referenced dependent files.
	foreach line [grep {* @owns: *} $contents] {
	    if {![regexp {#\[email protected]:\s+(.*)$} $line -> path]} continue
		lappend files \
		    [relativesrc \
			 [file normalize \
			      [file join $here [string trim $path]]]]
	}

	# For 'scan'.
	kettle option set @predicate [list $files $pn $pv]
	return 1
    }