From 7f0bcc46a3c9fcfa42f01898330858181838e41f Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Mon, 11 Oct 2010 10:30:22 +1000 Subject: Remove dependence of jim core on stderr Remove Jim_PrintErrorMessage() and create Jim_MakeErrorMessage() instead. Move errorInfo to stdlib since it is now required. Also move lassign from tclcompat to stdlib as a core command. Signed-off-by: Steve Bennett --- tclcompat.tcl | 22 ---------------------- 1 file changed, 22 deletions(-) (limited to 'tclcompat.tcl') diff --git a/tclcompat.tcl b/tclcompat.tcl index c632103..398a916 100644 --- a/tclcompat.tcl +++ b/tclcompat.tcl @@ -36,14 +36,6 @@ proc read {{-nonewline {}} chan} { } -# Tcl 8.5 lassign -proc lassign {list args} { - # in case the list is empty... - lappend list {} - uplevel 1 [list foreach $args $list break] - lrange $list [llength $args] end-1 -} - # case var ?in? pattern action ?pattern action ...? proc case {var args} { # Skip dummy parameter @@ -109,20 +101,6 @@ proc parray {arrayname {pattern *} {puts puts}} { } } -# Sort of replacement for $::errorInfo -# Usage: errorInfo error ?stacktrace? -proc errorInfo {error {stacktrace ""}} { - if {$stacktrace eq ""} { - set stacktrace [info stacktrace] - } - lassign $stacktrace p f l - if {$f ne ""} { - set result "$f:$l " - } - append result "Runtime Error: $error\n" - append result [stackdump $stacktrace] -} - proc {info nameofexecutable} {} { if {[info exists ::jim_argv0]} { if {[string first "/" $::jim_argv0] >= 0} { -- cgit v1.1