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

package require critcl

critcl::config language c++
critcl::clibraries -lstdc++

critcl::ccode {
    class A {
      int value;
    public:
      A() : value (123) {}
      operator int() const { return value; }
    };
}

critcl::cproc tryplus {} int {
        A var;
        return var;
}

puts "tryplus = [tryplus]"