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]]"