Patch to autoexpand leading word

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]
 }
 
 #----------------------------------------------------------------------