Artifact 8ffdbeb52f1ba1b636f78e9dff86bd2cd6b8dd13:

• Executable file test — part of check-in [92a72f9f80] at 2014-06-15 20:06:39 on branch trunk — Improved error handling (user: rkeene, size: 455) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

lappend auto_path [lindex $argv 0]
package require tcc4tcl

tcc4tcl::cproc test {int i} int { return(i+42); }
tcc4tcl::cproc test1 {int i} int { return(i+42); }
tcc4tcl::cproc ::bob::test1 {int i} int { return(i+42); }

# This will fail
catch {
	tcc4tcl::cproc test2 {int i} int { badcode; }
}

# This should work
tcc4tcl::cproc test3 {int i} int { return(i+42); }

puts [test 1]
puts [test1 1]
puts [test3 1]
puts [::bob::test1 1]