Re-indent with Emacs' tcl-mode.indent-tcl-mode-after

7 files changed, 25 insertions, 25 deletions

diff --git a/lib/debugger.exp b/lib/debugger.exp
index 1409f2c..bb2e10d 100644
--- a/lib/debugger.exp
+++ b/lib/debugger.exp
@@ -32,7 +32,7 @@ proc dumpvars { args } {
 	    }
 	}
     }
-       ]
+	      ]
 }
 
 #
@@ -48,7 +48,7 @@ proc dumplocals { args } {
 	    }
 	}
     }
-       ]
+	      ]
 }
 #
 # Dump the body of procedures specified by a regexp.
@@ -204,15 +204,15 @@ proc bt { } {
 # create some stub procedures since we can't alias the command names
 #
 proc dp { args } {
-  uplevel 1 dumprocs $args
+    uplevel 1 dumprocs $args
 }
 
 proc dv { args } {
-  uplevel 1 dumpvars $args
+    uplevel 1 dumpvars $args
 }
 
 proc dl { args } {
-  uplevel 1 dumplocals $args
+    uplevel 1 dumplocals $args
 }
 
 proc dw { args } {
diff --git a/lib/dejagnu.exp b/lib/dejagnu.exp
index 1224f36..4f79f70 100755
--- a/lib/dejagnu.exp
+++ b/lib/dejagnu.exp
@@ -177,9 +177,9 @@ proc host_execute {args} {
 	    verbose "All done" 2
 	}
 	eof {
-#	    unresolved "${executable} died prematurely"
-#	    catch close
-#	    return "${executable} died prematurely"
+	    #	    unresolved "${executable} died prematurely"
+	    #	    catch close
+	    #	    return "${executable} died prematurely"
 	}
 	timeout {
 	    warning "Timed out executing test case"
@@ -187,7 +187,7 @@ proc host_execute {args} {
 		incr timetol
 		exp_continue
 	    } else {
--		catch close
+		-		catch close
 		return "Timed out executing test case"
 	    }
 	}
diff --git a/lib/framework.exp b/lib/framework.exp
index 04a4ceb..b82b7e3 100644
--- a/lib/framework.exp
+++ b/lib/framework.exp
@@ -76,8 +76,8 @@ proc open_logs { } {
     catch "exec rm -f $outdir/$tool.sum"
     set sum_file [open "$outdir/$tool.sum" w]
     if { $xml } {
-       catch "exec rm -f $outdir/$tool.xml"
-       set xml_file [open "$outdir/$tool.xml" w]
+	catch "exec rm -f $outdir/$tool.xml"
+	set xml_file [open "$outdir/$tool.xml" w]
         xml_output "<?xml version=\"1.0\"?>"
         insertdtd
         xml_output "<testsuite>"
@@ -379,7 +379,7 @@ proc log_and_exit {} {
 proc xml_output { message } {
     global xml_file
     if { $xml_file != "" } {
-       puts $xml_file "$message"
+	puts $xml_file "$message"
     }
 }
 
@@ -726,7 +726,7 @@ proc record_test { type message args } {
         global expect_out
 	set rio { "" "" }
 	if { [catch { set rio [split $expect_out(buffer) "\n"] } result]} {
-		#do nothing - leave as { "" "" }
+	    #do nothing - leave as { "" "" }
 	}
 	
         set output ""
@@ -740,7 +740,7 @@ proc record_test { type message args } {
         xml_output "  </test>"
     }
 
-   switch $type {
+    switch $type {
 	PASS {
 	    if $prms_id {
 		set message [concat $message "\t(PRMS $prms_id)"]
diff --git a/lib/libgloss.exp b/lib/libgloss.exp
index 13d30d0..a8edc52 100644
--- a/lib/libgloss.exp
+++ b/lib/libgloss.exp
@@ -449,10 +449,10 @@ proc get_multilibs { args } {
     # extract the options and their directory names as know by gcc
     foreach i "[exec $compiler --print-multi-lib]" {
     	if {$extra != ""} {
-          # string trimright would do the wrong thing if we included
-          # the leading @@ in $extra
- 	  set i [string trimright $i $extra]
-          set i [string trimright $i "@@"]
+	    # string trimright would do the wrong thing if we included
+	    # the leading @@ in $extra
+	    set i [string trimright $i $extra]
+	    set i [string trimright $i "@@"]
 	}
 	set opts ""
 	set dir ""
@@ -847,7 +847,7 @@ proc build_wrapper { gluefile } {
 	lappend flags "additional_flags=[target_info wrap_compile_flags]"
     }
     if { [target_compile ${libdir}/testglue.c ${gluefile} object $flags] == "" } {
-      set gluefile [remote_download host ${gluefile} ${tool}_tg.o]
+	set gluefile [remote_download host ${gluefile} ${tool}_tg.o]
 	return [list $gluefile $result]
     } else {
 	return ""
diff --git a/lib/remote.exp b/lib/remote.exp
index 8fc011e..8864a7c 100644
--- a/lib/remote.exp
+++ b/lib/remote.exp
@@ -1143,9 +1143,9 @@ proc check_for_board_status  { variable } {
     # crashed, regardless of status found elsewhere (e.g. simulator exit
     # code).
     if { [target_info needs_status_wrapper] != "" } then {
-       set nomatch_return 2
+	set nomatch_return 2
     } else {
-       set nomatch_return -1
+	set nomatch_return -1
     }
 
     if [regexp "(^|\[\r\n\])\\*\\*\\* EXIT code" $output] {
diff --git a/lib/rsh.exp b/lib/rsh.exp
index 4c91cec..f0a49d6 100644
--- a/lib/rsh.exp
+++ b/lib/rsh.exp
@@ -124,7 +124,7 @@ proc rsh_open { hostname } {
 		warning "$RSH: already connected."
 	    }
 	    timeout {
-	       warning "$RSH: timed out trying to connect."
+		warning "$RSH: timed out trying to connect."
 	    }
 	    eof {
 		perror "$RSH: got EOF while trying to connect."
@@ -135,7 +135,7 @@ proc rsh_open { hostname } {
     }
 
     if { $result < 0 } {
-#	perror "$RSH: couldn't connect after $tries tries."
+	#	perror "$RSH: couldn't connect after $tries tries."
 	close -i $spawn_id
 	set spawn_id -1
     } else {
diff --git a/lib/utils.exp b/lib/utils.exp
index c3df545..14fdbc4 100644
--- a/lib/utils.exp
+++ b/lib/utils.exp
@@ -362,8 +362,8 @@ proc diff { file_1 file_2 } {
         set line_a [lindex ${list_a} ${i}]
         set line_b [lindex ${list_b} ${i}]
 
-#        verbose "\t${file_1}: ${i}: ${line_a}\n" 3
-#        verbose "\t${file_2}: ${i}: ${line_b}\n" 3
+	#        verbose "\t${file_1}: ${i}: ${line_a}\n" 3
+	#        verbose "\t${file_2}: ${i}: ${line_b}\n" 3
         if [string compare ${line_a} ${line_b}] {
 	    verbose "line #${i}\n" 2
             verbose "\< ${line_a}\n" 2