Posted to tcl by kbk at Wed May 16 00:46:22 GMT 2012view raw
- 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]]"