Tcl Library Source Code

Changes On Branch tkt-fdf6afed94
Login
Core Home Blog Docs Downloads Tickets Timeline Branches Tags Wiki
Hide Diff Patch Unified Diff

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

Changes In Branch tkt-fdf6afed94 Excluding Merge-Ins

This is equivalent to a diff from 63590365a7 to e01af4e06f

2019-02-21
23:32
Tkt [fdf6afed94] done. Merged tkt-fdf6afed94, full tests passing. check-in: 5e257ddf79 user: aku tags: trunk
2019-02-20
05:39
Test fixes in assorted modules - hook: Updated to match changes in 8.6+ core error stack results. - html: Undone bad removal of some trailing whitespace. - markdown: Fixed bad name of untabify2 function, and fixed result postprocessing in tests. - math::pca is Tcl 8.6+ - string::token::shell: Updated to match result variation starting with 8.6. check-in: e6742077ec user: aku tags: trunk
2019-01-05
19:28
Create new branch named "tkt-6e778502b8" check-in: 38995cc193 user: andrewm tags: tkt-6e778502b8
2018-12-31
05:19
Experimental fix to [7554bfed30] Leaf check-in: 31f9e28d7c user: rkeene tags: fix-dns-udp-ipv6-7554bfed30
03:51
Added lazyset module check-in: 6dba867add user: rkeene tags: add-lazyset
2018-12-15
00:18
Applied submitted patches to fix ticket [fdf6afed94]. Closed-Leaf check-in: e01af4e06f user: andrewm tags: tkt-fdf6afed94
00:08
Create new branch named "tkt-fdf6afed94" check-in: 0d40e3ac79 user: andrewm tags: tkt-fdf6afed94
2018-12-08
20:05
Bringing Trunk up to date with all of the hypnotoad branch changes since the split from the pooryorick branch. check-in: 6ff9027a29 user: hypnotoad tags: hypnotoad
18:18
Pulling a commit to uuid that was missed check-in: 63590365a7 user: hypnotoad tags: trunk
18:12
Fixes to restrict Markdown to just the parts of textutil it is actually using. Fixes to httpd to map all project dependencies to the local fossil checkout on test check-in: 5fa1916707 user: hypnotoad tags: trunk

Changes to modules/cache/ChangeLog. 









1
2
3
4
5
6
7









2013-02-01  Andreas Kupries  <[email protected]>

	*
	* Released and tagged Tcllib 1.15 ========================
	* 

2011-12-13  Andreas Kupries  <[email protected]>

>
>
>
>
>
>
>
>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

2018-08-28  Aldo Buratti

    *
    * BugFix in method 'clear'
        * Added a test in async.test
    * Release 0.3.1
    *

2013-02-01  Andreas Kupries  <[email protected]>

	*
	* Released and tagged Tcllib 1.15 ========================
	* 

2011-12-13  Andreas Kupries  <[email protected]>
︙︙

Changes to modules/cache/async.man. 


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


[manpage_begin cache::async n 0.3]
[keywords asynchronous]
[keywords cache]
[keywords callback]
[keywords synchronous]
[copyright {2008 Andreas Kupries <[email protected]>}]
[moddesc   {In-memory caches}]
[titledesc {Asynchronous in-memory cache}]
[require Tcl 8.4]
[require cache::async [opt 0.3]]
[description]

This package provides objects which cache data in memory, and operate
asynchronously with regard to request and responses. The objects are
agnostic with regard to cache keys and values, and unknown methods are
delegated to the provider of cached data. These two properties make it
easy to use caches as a facade for any data provider.

>
|








|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

[vset Version 0.3.1]
[manpage_begin cache::async n [vset Version]]
[keywords asynchronous]
[keywords cache]
[keywords callback]
[keywords synchronous]
[copyright {2008 Andreas Kupries <[email protected]>}]
[moddesc   {In-memory caches}]
[titledesc {Asynchronous in-memory cache}]
[require Tcl 8.4]
[require cache::async [opt [vset Version]]]
[description]

This package provides objects which cache data in memory, and operate
asynchronously with regard to request and responses. The objects are
agnostic with regard to cache keys and values, and unknown methods are
delegated to the provider of cached data. These two properties make it
easy to use caches as a facade for any data provider.
︙︙

Changes to modules/cache/async.tcl.

︙︙
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

	# not present the state will not change, and queries in flight
	# simply refill the cache as they would do anyway without the
	# 'clear'.

	if {![llength $args]} {
	    array unset myhit  *
	    array unset mymiss *
	} elseif {[llength $arg] == 1} {
	    set key [lindex $args 0]
	    unset -nocomplain  myhit($key)
	    unset -nocomplain mymiss($key)
	} else {
	    WrongArgs ?key?
	}
	return








|








78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

	# not present the state will not change, and queries in flight
	# simply refill the cache as they would do anyway without the
	# 'clear'.

	if {![llength $args]} {
	    array unset myhit  *
	    array unset mymiss *
	} elseif {[llength $args] == 1} {
	    set key [lindex $args 0]
	    unset -nocomplain  myhit($key)
	    unset -nocomplain mymiss($key)
	} else {
	    WrongArgs ?key?
	}
	return
︙︙
178
179
180
181
182
183
184
185


    # ### ### ### ######### ######### #########
}

# ### ### ### ######### ######### #########
## Ready

package provide cache::async 0.3








|

178
179
180
181
182
183
184
185


    # ### ### ### ######### ######### #########
}

# ### ### ### ######### ######### #########
## Ready

package provide cache::async 0.3.1

Changes to modules/cache/async.test.

︙︙
221
222
223
224
225
226
227





























228
229
230

} -cleanup {
    ca destroy
} -result {BEGIN
WAIT
DATA_HOLE get KEY ::ca
DONE {unset KEY}
RESUME}






























# -------------------------------------------------------------------------
testsuiteCleanup








>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>




221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259

} -cleanup {
    ca destroy
} -result {BEGIN
WAIT
DATA_HOLE get KEY ::ca
DONE {unset KEY}
RESUME}

# -- $obj clear ---------------------------------------------------------------

test cache-async-6.0 {clear a not existing value} -setup {
    cache::async ca DATA_NONE
    res!
} -body {
    res+ BEGIN
    ca clear KEY
    res+ END
    res?lines
} -cleanup {
    ca destroy
} -result {BEGIN
END}

test cache-async-6.1 {clear an existing value} -setup {
    cache::async ca DATA_NONE
    ca set KEY VALUE
    res!
} -body {
    res+ BEGIN
    ca clear KEY
    res+ END
    res?lines
} -cleanup {
    ca destroy
} -result {BEGIN
END}

# -------------------------------------------------------------------------
testsuiteCleanup

Changes to modules/cache/pkgIndex.tcl. 

1
2
3

if {![package vsatisfies [package provide Tcl] 8.4]} {return}
package ifneeded cache::async 0.3 [list source [file join $dir async.tcl]]



|


1
2
3

if {![package vsatisfies [package provide Tcl] 8.4]} {return}
package ifneeded cache::async 0.3.1 [list source [file join $dir async.tcl]]

This page was generated in about 0.058s by Fossil 2.24 [f4ffefe708] 2024-04-17 14:02:19