git.iko.soy/prybar
on master help sign in
Merge pull request #37 from ALANVF/patch-1
a177213Mason Clayton
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) {
tests/tcl/invalid_command.expnew file+7
@@ -0,0 +1,7 @@
1+#!/usr/bin/expect -f
2+
3+set timeout -1
4+spawn ./prybar-tcl -q -i ./test-files/hi_julia.jl
5+match_max 100000
6+
7+expect -exact "error: invalid command name \"my_number\"\r"