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

  1. Tcl_Obj *objs[4];
  2. Tcl_Obj *cmdline;
  3.  
  4. objs[0] = Tcl_NewStringObj("m", -1);
  5. objs[1] = Tcl_NewStringObj(jutil_timestamp(), -1);
  6. objs[2] = Tcl_NewStringObj(nick, -1);
  7. objs[3] = Tcl_NewStringObj(message, -1);
  8. cmdline = Tcl_NewListObj(4, objs);
  9. fprintf(logfile, "%s\n", Tcl_GetStringFromObj(cmdline, NULL));
  10. Tcl_DecrRefCount(cmdline);
  11.