Posted to tcl by kbk at Wed May 16 00:46:22 GMT 2012view raw

  1. package require critcl
  2.  
  3. critcl::config language c++
  4. critcl::clibraries -lstdc++
  5.  
  6. critcl::cproc dosomething {} int {
  7. return 123;
  8. }
  9.  
  10. puts "[dosomething]"
  11.  
  12. $ tclsh ../critcl3.kit test0.tcl
  13. (provide )can't read "file": no such variable
  14. while executing
  15. "file tail $file"
  16. (procedure "Compile" line 20)
  17. invoked from within
  18. "Compile $file $file $base.c $object"
  19. (procedure "::critcl::cbuild" line 39)
  20. invoked from within
  21. "::critcl::cbuild /home/kennykb/Tcl/critclFileGDB/test0.tcl"
  22. (in namespace eval "::" script line 1)
  23. invoked from within
  24. "namespace eval :: $auto_index($name)"
  25. (procedure "auto_load" line 13)
  26. invoked from within
  27. "auto_load $name [uplevel 1 {::namespace current}]"
  28. (autoloading "dosomething")
  29. (procedure "::unknown" line 30)
  30. invoked from within
  31. "dosomething"
  32. invoked from within
  33. "puts "[dosomething]""
  34. (file "/home/kennykb/Tcl/critclFileGDB/test0.tcl" line 10)
  35. invoked from within
  36. "source /home/kennykb/Tcl/critclFileGDB/test0.tcl"
  37. ("uplevel" body line 1)
  38. invoked from within
  39. "uplevel #0 [list source $fn]"
  40. (procedure "ProcessInput" line 163)
  41. invoked from within
  42. "ProcessInput"
  43. (procedure "critcl::app::main" line 13)
  44. invoked from within
  45. "critcl::app::main $argv"
  46. (file "/home/kennykb/Tcl/critcl3.kit/main.tcl" line 5)
  47. invoked from within
  48. "source /home/kennykb/Tcl/critcl3.kit/main.tcl"
  49. ("uplevel" body line 1)
  50. invoked from within
  51. "uplevel [list source [file join $self main.tcl]]"
  52.