Posted to tcl by colin at Mon Oct 31 23:58:23 GMT 2011view raw
- 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)