Posted to tcl by Bradipo at Sun Mar 20 05:45:48 GMT 2011view pretty

    curStatus = fcntl(esPtr->fdin, F_GETFL);
    /*printf("curStatus = %d\n",curStatus);*/
    if (mode == TCL_MODE_BLOCKING) {
        curStatus &= (~(O_NONBLOCK));
    } else {
        curStatus |= O_NONBLOCK;
    }
    /*printf("new curStatus %d\n",curStatus);*/
    if (fcntl(esPtr->fdin, F_SETFL, curStatus) < 0) {
        return errno;
    }
    curStatus = fcntl(esPtr->fdin, F_GETFL);