git.iko.soy/prybar
on master help sign in
Display error message when running a Tcl file
11359bdalan.invents
languages/tcl/main.go+6−1
compare with master
unifiedsplit
@@ -67,7 +67,12 @@ func (p *Tcl) EvalFile(file string, args []string) {
67 cfile := C.CString(file)
67 cfile := C.CString(file)
68 defer C.free(unsafe.Pointer(cfile))
68 defer C.free(unsafe.Pointer(cfile))
69
69
70− C.Tcl_EvalFile(p.interp, cfile)
70+ status := C.Tcl_EvalFile(p.interp, cfile)
71+
72+ if status != C.TCL_OK {
73+ errstr := C.GoString(C.Tcl_GetStringResult(p.interp))
74+ fmt.Fprintf(os.Stderr, "error: %s\n", errstr)
75+ }
71}
76}
72
77
73func (p *Tcl) Eval(code string) {
78func (p *Tcl) Eval(code string) {