Posted to tcl by rmax at Wed Jan 19 11:45:45 GMT 2011view pretty

Tcl_Obj *objs[4];
Tcl_Obj *cmdline;

objs[0] = Tcl_NewStringObj("m", -1);
objs[1] = Tcl_NewStringObj(jutil_timestamp(), -1);
objs[2] = Tcl_NewStringObj(nick, -1);
objs[3] = Tcl_NewStringObj(message, -1);
cmdline = Tcl_NewListObj(4, objs);
fprintf(logfile, "%s\n", Tcl_GetStringFromObj(cmdline, NULL));
Tcl_DecrRefCount(cmdline);