Eliminate unneccessary spaces

3 files changed, 16 insertions, 16 deletions

diff --git a/tools/tclZIC.tcl b/tools/tclZIC.tcl
index 8355a8a..d66f5e4 100755
--- a/tools/tclZIC.tcl
+++ b/tools/tclZIC.tcl
@@ -29,7 +29,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: tclZIC.tcl,v 1.10 2009/04/09 20:07:18 kennykb Exp $
+# RCS: @(#) $Id: tclZIC.tcl,v 1.11 2009/11/18 21:45:36 nijtmans Exp $
 #
 #----------------------------------------------------------------------
 
@@ -361,7 +361,7 @@ proc parseON {on} {
 	  # third possibility - lastWeekday - field 5
 	  last([[:alpha:]]+)
 	)$
-    } $on -> dom1 wday2 dir2 num2 wday3]} then {
+    } $on -> dom1 wday2 dir2 num2 wday3]} {
 	error "can't parse ON field \"$on\""
     }
     if {$dom1 ne ""} {
@@ -509,7 +509,7 @@ proc parseTOD {tod} {
 	(?:
 	    ([wsugz])			# field 4 - type indicator
 	)?
-    } $tod -> hour minute second ind]} then {
+    } $tod -> hour minute second ind]} {
 	puts stderr "$fileName:$lno:can't parse time field \"$tod\""
 	incr errorCount
     }
@@ -558,7 +558,7 @@ proc parseOffsetTime {offset} {
 		:([[:digit:]]{2})	# field 4 - second
 	    )?
 	)?
-    } $offset -> signum hour minute second]} then {
+    } $offset -> signum hour minute second]} {
 	puts stderr "$fileName:$lno:can't parse offset time \"$offset\""
 	incr errorCount
     }
@@ -940,7 +940,7 @@ proc applyRules {ruleSet year startSecs stdGMTOffset DSTOffset nextGMTOffset
 	    if {
 		$earliestSecs > $startSecs &&
 		($until eq "" || $earliestSecs < $untilSecs)
-	    } then {
+	    } {
 		# Test if the initial transition has been done.
 		# If not, do it now.
 
@@ -989,7 +989,7 @@ proc applyRules {ruleSet year startSecs stdGMTOffset DSTOffset nextGMTOffset
 	set date [::tcl::clock::GetJulianDayFromEraYearMonthDay \
 		[dict create era CE year $year month 1 dayOfMonth 1] 2361222]
 	set startSecs [expr {
-	    [dict get $date julianDay] * wide(86400) - 210866803200 
+	    [dict get $date julianDay] * wide(86400) - 210866803200
 		- $stdGMTOffset - $DSTOffset
 	}]
 
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl
index 23b0d30..4b669ad 100755
--- a/tools/tcltk-man2html.tcl
+++ b/tools/tcltk-man2html.tcl
@@ -392,7 +392,7 @@ proc process-text {text} {
 		    {\1\\fI\2\3} ntext]
 	    || [regsub {^([^\\]*)\\fR([^\\]*)\\fR(.*)$} $text \
 		    {\1\\fR\2\3} ntext]
-	} then {
+	} {
 	    manerror "impotent font change: $text"
 	    set text $ntext
 	    continue
@@ -1164,7 +1164,7 @@ proc output-directive {line} {
 			    [next-op-is .nf rest]
 			    || [next-op-is .br rest]
 			    || [next-op-is .fi rest]
-			} then {
+			} {
 			    continue
 			}
 			if {
@@ -1172,7 +1172,7 @@ proc output-directive {line} {
 			    || [next-op-is .SS rest]
 			    || [next-op-is .BE rest]
 			    || [next-op-is .SO rest]
-			} then {
+			} {
 			    backup-text 1
 			    break
 			}
@@ -1432,7 +1432,7 @@ proc output-directive {line} {
 }
 ##
 ## merge copyright listings
-## 
+##
 proc merge-copyrights {l1 l2} {
     set merge {}
     set re1 {^Copyright +(?:\(c\)|\\\(co|&copy;) +(\w.*?)(?:all rights reserved)?(?:\. )*$}
@@ -1912,7 +1912,7 @@ proc make-man-pages {html args} {
 		CrtPhImgFmt DoOneEvent GetBitmap GetColor GetCursor GetDash
 		GetJustify GetPixels GetVisual ParseArgv QueueEvent
 	    }
-	} then {
+	} {
 	    foreach item $toc {
 		puts $outfd $item
 	    }
diff --git a/tools/tsdPerf.c b/tools/tsdPerf.c
index a6a84df..9399b3b 100644
--- a/tools/tsdPerf.c
+++ b/tools/tsdPerf.c
@@ -3,7 +3,7 @@
 static Tcl_ThreadDataKey key;
 
 typedef struct {
-    int value;  
+    int value;
 } TsdPerf;
 
 
@@ -20,16 +20,16 @@ tsdPerfSetObjCmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const
     if (TCL_OK != Tcl_GetIntFromObj(interp, objv[1], &i)) {
 	return TCL_ERROR;
     }
-    
+
     perf->value = i;
-       
+
     return TCL_OK;
 }
 
 int tsdPerfGetObjCmd(ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *const *objv) {
     TsdPerf *perf = Tcl_GetThreadData(&key, sizeof(TsdPerf));
 
-    
+
     Tcl_SetObjResult(interp, Tcl_NewIntObj(perf->value));
 
     return TCL_OK;
@@ -41,7 +41,7 @@ Tsdperf_Init (Tcl_Interp *interp) {
     if (NULL == Tcl_InitStubs(interp, TCL_VERSION, 0)) {
 	return TCL_ERROR;
     }
-    
+
 
     Tcl_CreateObjCommand(interp, "tsdPerfSet", tsdPerfSetObjCmd, (ClientData)NULL,
 			 (Tcl_CmdDeleteProc *)NULL);