Posted to tcl by stevel at Wed May 16 00:15:54 GMT 2012view raw

  1. package require critcl
  2.  
  3. critcl::config language c++
  4. critcl::clibraries -lstdc++
  5.  
  6. critcl::ccode {
  7. class A {
  8. int value;
  9. public:
  10. A() : value (123) {}
  11. operator int() const { return value; }
  12. };
  13. }
  14.  
  15. critcl::cproc tryplus {} int {
  16. A var;
  17. return var;
  18. }
  19.  
  20. puts "tryplus = [tryplus]"