Tcl Source Code

Check-in [699af4b725]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:msgcat 1.7 uses [tailcall], so requires Tcl 8.6.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip490-msgcat-oo-2
Files: files | file ages | folders
SHA3-256: 699af4b7256911d7eb2faf968711003c13e97f85127c3747aaa72c59bfd46ce7
User & Date: dgp 2018-03-12 13:48:35
Context
2018-03-12
13:58
Implement TIP 490: msgcat for TclOO check-in: f909100ac2 user: dgp tags: core-8-branch
13:48
msgcat 1.7 uses [tailcall], so requires Tcl 8.6. Closed-Leaf check-in: 699af4b725 user: dgp tags: tip490-msgcat-oo-2
2018-01-16
14:53
Comment updated check-in: 8e666511a8 user: oehhar tags: tip490-msgcat-oo-2
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/msgcat/msgcat.tcl.

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
# Copyright (c) 2010-2015 by Harald Oehlmann.
# Copyright (c) 1998-2000 by Ajuba Solutions.
# Copyright (c) 1998 by Mark Harrison.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

package require Tcl 8.5-
# When the version number changes, be sure to update the pkgIndex.tcl file,
# and the installation directory in the Makefiles.
package provide msgcat 1.7.0

namespace eval msgcat {
    namespace export mc mcn mcexists mcload mclocale mcmax\
	    mcmset mcpreferences mcset\






|







7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
# Copyright (c) 2010-2015 by Harald Oehlmann.
# Copyright (c) 1998-2000 by Ajuba Solutions.
# Copyright (c) 1998 by Mark Harrison.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

package require Tcl 8.6-
# When the version number changes, be sure to update the pkgIndex.tcl file,
# and the installation directory in the Makefiles.
package provide msgcat 1.7.0

namespace eval msgcat {
    namespace export mc mcn mcexists mcload mclocale mcmax\
	    mcmset mcpreferences mcset\

Changes to library/msgcat/pkgIndex.tcl.

1

2
if {![package vsatisfies [package provide Tcl] 8.5-]} {return}

package ifneeded msgcat 1.7.0 [list source [file join $dir msgcat.tcl]]
|
>

1
2
3
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
if {![package vsatisfies [package provide Tcl] 8.6-]} {return}
package ifneeded msgcat 1.7.0 [list source [file join $dir msgcat.tcl]]