Tcl Library Source Code

Check-in [367195678d]
Login

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

Overview
Comment: The namespace ::tcl contains parts necessary for the proper operation of the interpreter, since 8.6. Do not delete anymore.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 367195678d118962a1b4e8b4bf50f244402f71b9
User & Date: andreask 2013-03-01 21:07:58
Context
2013-03-01
21:20
Fix inadvertent fork due sync incompleteness. check-in: 5941e8f791 user: andreask tags: trunk
21:07
The namespace ::tcl contains parts necessary for the proper operation of the interpreter, since 8.6. Do not delete anymore. check-in: 367195678d user: andreask tags: trunk
2013-02-27
20:00
(::oo::Helpers::link): New helper command. Makes instance methods available without 'my'. Bumped version to 1.2. check-in: fdc5543d63 user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.








1
2
3
4
5
6
7







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

	* New module 'string'. String/text utilities, 8.5+.
	  First packages:
	  - string::token        - regex based lexing.
	  - string::token::shell - parsing basic shell command line syntax.

>
>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
2013-03-01  Andreas Kupries  <[email protected]>

	* support/devel/sak/validate/syntax.tcl (::sak::validate::syntax::Setup): 
	* support/devel/sak/validate/testsuites.tcl (::sak::validate::testsuites::Setup):
	  The namespace ::tcl contains parts necessary for the proper
	  operation of the interpreter, since 8.6. Do not delete anymore.

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

	* New module 'string'. String/text utilities, 8.5+.
	  First packages:
	  - string::token        - regex based lexing.
	  - string::token::shell - parsing basic shell command line syntax.

Changes to support/devel/sak/validate/syntax.tcl.

190
191
192
193
194
195
196

197

198
199
200
201
202
203
204
	if {[string equal $c set]}       continue
	if {[string equal $c if]}        continue
	if {[string equal $c rename]}    continue
	if {[string equal $c namespace]} continue
	interp eval $ip [list ::rename $c {}]
    }


    interp eval $ip [list ::namespace delete ::tcl]

    interp eval $ip [list ::rename namespace {}]
    interp eval $ip [list ::rename rename    {}]

    foreach m {
	pcx::register unknown
    } {
	interp alias $ip $m {} ::sak::validate::syntax::PCX/[string map {:: _} $m] $ip







>
|
>







190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
	if {[string equal $c set]}       continue
	if {[string equal $c if]}        continue
	if {[string equal $c rename]}    continue
	if {[string equal $c namespace]} continue
	interp eval $ip [list ::rename $c {}]
    }

    if {![package vsatisfies [package present Tcl] 8.6]} {
	interp eval $ip [list ::namespace delete ::tcl]
    }
    interp eval $ip [list ::rename namespace {}]
    interp eval $ip [list ::rename rename    {}]

    foreach m {
	pcx::register unknown
    } {
	interp alias $ip $m {} ::sak::validate::syntax::PCX/[string map {:: _} $m] $ip

Changes to support/devel/sak/validate/testsuites.tcl.

135
136
137
138
139
140
141

142

143
144
145
146
147
148
149
	if {[string equal $c set]}       continue
	if {[string equal $c if]}        continue
	if {[string equal $c rename]}    continue
	if {[string equal $c namespace]} continue
	interp eval $ip [list ::rename $c {}]
    }


    interp eval $ip [list ::namespace delete ::tcl]

    interp eval $ip [list ::rename namespace {}]
    interp eval $ip [list ::rename rename    {}]

    foreach m {
	testing unknown useLocal useLocalKeep useAccel
    } {
	interp alias $ip $m {} ::sak::validate::testsuites::Process/$m $ip







>
|
>







135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
	if {[string equal $c set]}       continue
	if {[string equal $c if]}        continue
	if {[string equal $c rename]}    continue
	if {[string equal $c namespace]} continue
	interp eval $ip [list ::rename $c {}]
    }

    if {![package vsatisfies [package present Tcl] 8.6]} {
	interp eval $ip [list ::namespace delete ::tcl]
    }
    interp eval $ip [list ::rename namespace {}]
    interp eval $ip [list ::rename rename    {}]

    foreach m {
	testing unknown useLocal useLocalKeep useAccel
    } {
	interp alias $ip $m {} ::sak::validate::testsuites::Process/$m $ip