Remove superfluous trailing white space from TCL files

site_ansto/instrument/util/check/check_hdb.tcl

@@ -1,7 +1,7 @@
 ## \file
 #  Must be loaded into an instance of SICS with fileeval
 # eg
-#    fileeval tests/query_sics.tcl 
+#    fileeval tests/query_sics.tcl
 fileeval util/check/query_sics.tcl
 set hdb_prop_list {
   {control data} {true false}
@@ -18,7 +18,7 @@ proc checknode {node} {
     set query "$a \{$v\}"
     if {![query_propval $node $query]} {
       clientput "$node: $a should be one of ($v) not [::utility::hgetplainprop $node $a]"
-    } 
+    }
   }
   }
 }

site_ansto/instrument/util/check/check_sobj.tcl

@@ -28,7 +28,7 @@ proc checksobj {} {
         set attlist "$a \{$v\}"
         if {![query_attval $sobj $attlist]} {
           clientput "$sobj: $a should be one of ($v) not [getatt $sobj $a]"
-        } 
+        }
       }
       }
     }

site_ansto/instrument/util/check/query_sics.tcl

@@ -84,14 +84,14 @@ proc query_attval {sobj query} {
 }
 ##
 # prop_list list of property name value pairs
-# value can be a @any @missing a single value or a list optionally preceded by -not 
+# value can be a @any @missing a single value or a list optionally preceded by -not
 # listnode / {data true sicsdev @missing  type {-not part instrument nxvgroup}}
 proc listnode {hpath prop_list} {
   if {$hpath == "/"} {
     foreach hp [hlist /] {
       if [query_propval /$hp $prop_list] {
         clientput "/$hp"
-      } 
+      }
       listnode /$hp $prop_list
     }
   } else {
@@ -108,11 +108,11 @@ proc listsobj {sicstype att_list} {
   foreach sobj [sicslist type $sicstype] {
       if [query_attval $sobj $att_list] {
         clientput "$sobj"
-      } 
+      }
   }
 }
 
 publish query_propval user
 publish query_attval user
 publish listnode user
-publish listsobj user 
+publish listsobj user