Posted to tcl by kbk at Wed May 16 00:46:22 GMT 2012view pretty
package require critcl critcl::config language c++ critcl::clibraries -lstdc++ critcl::cproc dosomething {} int { return 123; } puts "[dosomething]" $ tclsh ../critcl3.kit test0.tcl (provide )can't read "file": no such variable while executing "file tail $file" (procedure "Compile" line 20) invoked from within "Compile $file $file $base.c $object" (procedure "::critcl::cbuild" line 39) invoked from within "::critcl::cbuild /home/kennykb/Tcl/critclFileGDB/test0.tcl" (in namespace eval "::" script line 1) invoked from within "namespace eval :: $auto_index($name)" (procedure "auto_load" line 13) invoked from within "auto_load $name [uplevel 1 {::namespace current}]" (autoloading "dosomething") (procedure "::unknown" line 30) invoked from within "dosomething" invoked from within "puts "[dosomething]"" (file "/home/kennykb/Tcl/critclFileGDB/test0.tcl" line 10) invoked from within "source /home/kennykb/Tcl/critclFileGDB/test0.tcl" ("uplevel" body line 1) invoked from within "uplevel #0 [list source $fn]" (procedure "ProcessInput" line 163) invoked from within "ProcessInput" (procedure "critcl::app::main" line 13) invoked from within "critcl::app::main $argv" (file "/home/kennykb/Tcl/critcl3.kit/main.tcl" line 5) invoked from within "source /home/kennykb/Tcl/critcl3.kit/main.tcl" ("uplevel" body line 1) invoked from within "uplevel [list source [file join $self main.tcl]]"