Improve error handling

*: Improve stack trace handling on errors
*: Add 'info source'
*: Add 'info stacktrace'
*: Add errorInfo procedure to generate a human readable stack trace
*: Add tests for stacktrace

------------------------------------------------------------------------

1 files changed, 21 insertions, 0 deletions

diff --git a/tcl6.tcl b/tcl6.tcl
index 4c41bc1..3d0f43c 100644
--- a/tcl6.tcl
+++ b/tcl6.tcl
@@ -84,4 +84,25 @@ proc parray {arrayname {pattern *}} {
     }
 }
 
+# Sort of replacement for $::errorInfo
+proc errorInfo {error} {
+	set result "Runtime Error: $error"
+	foreach {l f p} [lreverse [info stacktrace]] {
+		append result \n
+		if {$p ne ""} {
+			append result "in procedure '$p' "
+			if {$f ne ""} {
+				append result "called "
+			}
+		}
+		if {$f ne ""} {
+			append result "at file \"$f\", line $l"
+		}
+	}
+	if {[info exists f] && $f ne ""} {
+		return "$f:$l: $result"
+	}
+	return $result
+}
+
 set ::tcl_platform(platform) unix