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);