Remove superfluous trailing white space from TCL files

site_ansto/instrument/lyrebird/config/tasmad/sicscommon/stddrive.tcl

@@ -1,13 +1,13 @@
 #------------------------------------------------------
 # This is some code for a standard drivable object in
 # the scriptcontext system. It implements an empty
-# object which throws errors when accessed. Users 
-# of such an object can override it to do 
-# something more acceptable. This object also 
-# provides for basic limit checking and status 
+# object which throws errors when accessed. Users
+# of such an object can override it to do
+# something more acceptable. This object also
+# provides for basic limit checking and status
 # checking. It can serve as a basis for creating
 # new drivable objects, for instance environment
-# control devices. A possible user has as the 
+# control devices. A possible user has as the
 # first thing in a write script to set the target
 # node to the desired value.
 #
@@ -61,7 +61,7 @@ proc stddrive::deread {} {
 proc stddrive::dewrite {name} {
 #  hset /sics/${name}/stop 1
   error "$name is not configured, cannot drive"
-} 
+}
 #--------------------------------------------------------
 proc stddrive::deconfigure {name} {
   set allowed [list upperlimit lowerlimit tolerance stop]
@@ -89,12 +89,12 @@ proc stddrive::makestddrive {name sicsclass sct} {
   hset /sics/${name}/lowerlimit 10
   hfactory /sics/${name}/stop plain user int
   hset /sics/${name}/stop 0
-  
+
   hsetprop /sics/${name} checklimits stddrive::stdcheck $name
   hsetprop /sics/${name} checkstatus stddrive::stdstatus $name
   hsetprop /sics/${name} halt stddrive::stop $name
   deconfigure $name
   $sct write /sics/${name}
-  $sct poll /sics/${name} 60 
+  $sct poll /sics/${name} 60
   hupdate /sics/${name} -9999.99
 }