Posted to tcl by mjanssen at Fri Oct 30 17:40:46 GMT 2009view raw
- Author: unknown <MJanssen@.(none)> 2009-10-30 18:38:07
- Committer: unknown <MJanssen@.(none)> 2009-10-30 18:38:07
- Parent: 0262ce298d0b3ed0f8c72327f1915977cef31771 (Cleanup non-writable test directory on Windows.)
- Child: 0000000000000000000000000000000000000000 (Local uncommitted changes, not checked in to index)
- Branch: master
- Follows: core-8-6-b1
- Precedes:
- Changes for auto-expand of leading word
- ---------------------------- tcl/generic/tclParse.c ----------------------------
- index b06b106..02b126f 100644
- @@ -266,6 +266,8 @@ Tcl_ParseCommand(
- const char *termPtr; /* Set by Tcl_ParseBraces/QuotedString to
- * point to char after terminating one. */
- int scanned;
- + int expandWord;
- + int firstWord;
- if ((start == NULL) && (numBytes != 0)) {
- if (interp != NULL) {
- @@ -307,8 +309,14 @@ Tcl_ParseCommand(
- */
- parsePtr->commandStart = src;
- + firstWord = 1;
- while (1) {
- - int expandWord = 0;
- + if (firstWord) {
- + expandWord = 1;
- + firstWord = 0;
- + } else {
- + expandWord = 0;
- + }
- /*
- * Create the token for the word.
- ---------------------------- tcl/library/clock.tcl ----------------------------
- index 7411fd6..b80710a 100644
- @@ -685,6 +685,7 @@ proc ::tcl::clock::format { args } {
- # which contains the name resolution.
- set procName formatproc'$format'$locale
- + puts $procName
- set procName [namespace current]::[string map {: {\:} \\ {\\}} $procName]
- if {[info exists FormatProc($procName)]} {
- set procName $FormatProc($procName)
- @@ -693,7 +694,7 @@ proc ::tcl::clock::format { args } {
- [ParseClockFormatFormat $procName $format $locale]
- }
- - return [$procName $clockval $timezone]
- + return [[list $procName] $clockval $timezone]
- }
- #----------------------------------------------------------------------