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)