mem_to_obj

George Peter Staplin: This function is used to create a ByteArray object from a structure/pointer/memory. I use it in combination with obj_to_mem.

 /* REVISION 114 */
 #ifndef MEM_TO_OBJ_C
 #define MEM_TO_OBJ_C
 inline Tcl_Obj *
 mem_to_obj ( void *mem, size_t s ) {
  return Tcl_NewByteArrayObj ((unsigned char *)mem, s);
 }
 #endif /* MEM_TO_OBJ_C */

Example usage:

 GC gc; 
 /* gc = XCreateGC ... */
 Tcl_SetObjResult (interp, mem_to_obj (&gc, sizeof (GC)));

See also: obj_to_mem