Posted to tcl by colin at Mon Oct 31 23:58:23 GMT 2011view pretty
sprintf(channelName, "udp_%d", udp_count++); chan = Tcl_CreateChannel(&udp_chantype, channelName, (ClientData)state, 0); fprintf(stderr, "CHAN: %s %p\n", channelName, chan); if (chan == (Tcl_Channel)NULL) { return TCL_ERROR; } chan = Tcl_GetChannel(interp, channelName, NULL); /* The channel to send on. */ fprintf(stderr, "CHAN: %s %p\n", channelName, chan); ===> CHAN: udp_0 0x8d71b98 CHAN: udp_0 (nil)