Posted to tcl by colin at Mon Oct 31 23:58:23 GMT 2011view raw

  1. sprintf(channelName, "udp_%d", udp_count++);
  2. chan = Tcl_CreateChannel(&udp_chantype, channelName, (ClientData)state, 0);
  3. fprintf(stderr, "CHAN: %s %p\n", channelName, chan);
  4. if (chan == (Tcl_Channel)NULL) {
  5. return TCL_ERROR;
  6. }
  7. chan = Tcl_GetChannel(interp, channelName, NULL); /* The channel to send on. */
  8. fprintf(stderr, "CHAN: %s %p\n", channelName, chan);
  9.  
  10. ===>
  11.  
  12. CHAN: udp_0 0x8d71b98
  13. CHAN: udp_0 (nil)