Posted to tcl by rmax at Wed Jan 19 11:45:45 GMT 2011view raw
- 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);