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, 58 insertions, 0 deletions

diff --git a/tests/errors.tcl b/tests/errors.tcl
new file mode 100644
index 0000000..f6ecc32
--- /dev/null
+++ b/tests/errors.tcl
@@ -0,0 +1,58 @@
+# Package which can generate a variety of errors at known locations
+
+proc error_generator {type} {
+	switch $type \
+		badcmd {
+			bogus command called
+		} \
+		badvar {
+			incr bogus
+		} \
+		error {
+			error bogus
+		} \
+		interpbadvar {
+			set x "some $bogus text"
+		} \
+		interpbadcmd {
+			set x "some $bogus text"
+		} \
+		package {
+			package require dummy
+		} \
+		source {
+			source dummy.tcl
+		} \
+		badpackage {
+			package require bogus
+		} \
+		default {
+			puts "Unknown type=$type"
+		}
+}
+
+
+
+
+
+
+
+# line 40: Some empty lines above so that line numbers don't change
+proc error_caller {type {method call}} {
+	switch $method \
+		call {
+			error_generator $type
+		} \
+		uplevel {
+			uplevel 1 [list error_generator $type]
+		} \
+		eval {
+			eval [list error_generator $type]
+		} \
+		evalstr {
+			eval error_generator $type
+		} \
+		default {
+			puts "Unknown method=$method"
+		}
+}