[Apparently this page will be filled in later...]
package require critcl
critcl::cproc abc {} Tcl_Obj* {
char test[4] = "abc";
Tcl_Obj * rv = Tcl_NewStringObj ("abc", 3);
Tcl_IncrRefCount (rv);
return rv;
}
critcl::cproc 123 {} Tcl_Obj* {
char test[3] = {1, 2, 3};
Tcl_Obj * obj = Tcl_NewByteArrayObj (test, 3);
Tcl_IncrRefCount (obj);
return obj;
}
puts [abc]
binary scan [123] H* result
puts $result