IO multiplexing 与 非阻塞网络编程

　　使用I/O multipexing 的网络编程中，一般需要采用非阻塞网络编程的风格，防止服务端在处理高连接量大时候阻塞在某个文件描述符上面，比如某个socket 有大量的数据需要写，但是内核发送缓冲区已经填满，无法在一次write中将需要发送到数据发送出去，程序就会阻塞在该处，导致select/poll/epoll_wait() 此时不能处理其它到来的请求，同样read或者accept也可能出现阻塞的情况，比如当客户端发起connect，之后立刻关闭该链接，在服务端尚未调用accept之前就关闭了该连接，当后来服务端accept得以调用此时完成队列中又没有完成的三次握手的连接，accept就会导致进程睡眠（详细情况可以参见UNPv1非阻塞accept的描述）。因此I/O multiplexing 一般采用非阻塞网络编程的风格。

　　对于read/wirte 操作来说，如果采用了非阻塞编程则需要为每个connection配备应用层缓冲区，read端主要防止一次来到数据太多，write主要防止出现阻塞，可以把没有发送完成的数据写入缓冲区，等到socket 可写之后继续发送。如果在新一次write请求到来的时候，应用层写缓冲区中还有之前未发送完的数据，则应该先将上次未写入内核的数据写入内核缓冲区，保证发送到顺序性。此处给一个简单的例子。

#include <stdio.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <unistd.h>
#include <arpa/inet.h>
#include <sys/types.h>
#include <vector>
#include <string.h>
#include <stdlib.h>
#include <map>
#include <fcntl.h>
#include <errno.h>
#include <string>
#include <iostream>
#include <sys/select.h>

#define SEVER_PORT 1314
#define MAX_LINE_LEN 1024

using namespace std;

int Accept(int fd, struct sockaddr_in *addr)
{
    socklen_t addr_len = static_cast<socklen_t>( sizeof *addr);
    int connfd,flags;

    connfd = accept(fd,reinterpret_cast<struct sockaddr *>(addr),&addr_len);

    flags = fcntl(connfd,F_GETFL,0);
    fcntl(connfd,F_SETFL,flags | O_NONBLOCK);

    if(connfd < 0)
    {
        int ErrorCode = errno;
        switch(ErrorCode)
        {
            case 0:
            case EWOULDBLOCK:
            case ECONNABORTED:
            case EPROTO:
            case EINTR:
            case EMFILE:
                    errno = ErrorCode;
                    printf("Accept Error: %s\n",strerror(ErrorCode));
                break;
            default:
                break;
        }
    }
    return connfd;
}

int Read(int fd, map<int, string> &bufMap)
{
    struct iovec iov[2];
    char buf[MAX_LINE_LEN+1];
    char exbuf[65535]; // 如果一次read很多数据，则动用该缓冲区
    int nrcv;
    
    iov[0].iov_base = buf;
    iov[0].iov_len = MAX_LINE_LEN;
    
    iov[1].iov_base = exbuf;
    iov[1].iov_len = sizeof exbuf;
    
    nrcv = readv(fd, iov, 2);// 使用readv保证能将数据读取完
    
    if(nrcv > MAX_LINE_LEN)
    {
        bufMap[fd] += string(buf) + string(exbuf); // test !
        printf("extrabuf in use! \n");
    }
    else if( nrcv > 0)
    {
        bufMap[fd] += string(buf);
    }
    else
    {
        return nrcv;
    }

    return nrcv;
}

int getSocketError(int fd)
{
    int optval;
    
    socklen_t optlen = static_cast<socklen_t>(sizeof optval);
    
    if (getsockopt(fd, SOL_SOCKET, SO_ERROR, &optval, &optlen) < 0)
    {
        return errno;
    }
    else
    {
        return optval;
    }
}

int main()
{
    struct sockaddr_in cli_addr, server_addr;
    vector<int> client(FD_SETSIZE,-1);
    map<int ,string> bufMap;// 简易应用层缓冲区

    fd_set rset,wrset,allset;
    int listenfd, connfd, sockfd, maxfd, nready, ix,maxid, nrcv,flags,nwrt,one;
    char addr_str[INET_ADDRSTRLEN];

    int accepted = 0;

    server_addr.sin_family = AF_INET;
    server_addr.sin_addr.s_addr = htonl(INADDR_ANY);
    server_addr.sin_port = htons(SEVER_PORT);

    listenfd = socket(AF_INET,SOCK_STREAM,0);

    flags = fcntl(listenfd,F_GETFL,0);
    fcntl(listenfd,F_SETFL,flags | O_NONBLOCK);

    one = 1;
    setsockopt(listenfd, SOL_SOCKET, SO_REUSEADDR,&one, sizeof(one));

    if(bind(listenfd,(struct sockaddr *)&server_addr,sizeof server_addr) < 0)
    {
        printf("socket bind error: %s\n",strerror(errno));
        return 0;
    }

    listen(listenfd,10);

    FD_ZERO(&rset);
    FD_ZERO(&wrset);
    FD_ZERO(&allset);
    FD_SET(listenfd,&allset);
    maxfd = listenfd;
    maxid = -1;


    while(1)
    {
        rset = allset;
        nready = select(maxfd + 1, &rset,&wrset,NULL,NULL);


        if(nready < 0)
        {
            printf("select error: %s\n",strerror(errno));
            exit(1);
        }

        if(FD_ISSET(listenfd, &rset))
        {

            connfd = Accept(listenfd,&cli_addr);

            printf("recieve from : %s at port %d\n", inet_ntop(AF_INET,&cli_addr.sin_addr,addr_str,INET_ADDRSTRLEN),cli_addr.sin_port);

            for(ix = 0; ix < static_cast<int>(client.size()); ix++)
            {
                if(client[ix] < 0)
                {
                    client[ix] = connfd;
                    break;
                }
            }

            printf("client[%d] = %d\n",ix,connfd);

            if( FD_SETSIZE == ix)
            {
                printf("too many client! \n");
                exit(1);
            }

            if( connfd > maxfd)
            {
                maxfd = connfd;
            }

            FD_SET(connfd, &allset);

            accepted++;
            printf("accepted: %d\n",accepted);

            if(ix > maxid)
            {
                maxid = ix;
            }
            
            if(--nready == 0)
            {
                continue;
            }

        }

        for(ix = 0; ix <= maxid; ix++)
        {
            if((sockfd = client[ix]) < 0)
            {
                continue;
            }

            if(FD_ISSET(sockfd,&rset))
            {
            
                int left_len = bufMap[sockfd].length();
                
                if( 0 == (nrcv = Read(sockfd,bufMap)))
                {
                    client[ix] = -1;
                    printf("close! \n");
                    FD_CLR(sockfd,&allset);
                    bufMap.erase(sockfd);
                    close(sockfd);
                }
                else if ( nrcv > 0)
                {
                    printf("nrcv = %d \n",nrcv);

                    nrcv += left_len;//next time when client write to

                    //nwrt = write(sockfd,bufMap[sockfd].c_str(),200);// 模拟还有剩余
                    nwrt = write(sockfd,bufMap[sockfd].c_str(),nrcv);

                    if(nwrt < 0)
                    {
                        if( errno != EWOULDBLOCK)
                        {
                            printf("Write error: %s\n", strerror(errno));
                        }
                    }

                    printf("nwrt = %d \n",nwrt);

                    if(nwrt == nrcv) // 全部写到了内核缓冲区
                    {
                        bufMap[sockfd].clear();
                        //bufMap[sockfd].erase(0,nrcv);
                        if(FD_ISSET(sockfd,&wrset))
                        {
                            FD_CLR(sockfd,&wrset);
                        }
                    }
                    else // 还有剩余
                    {
                        printf("write left \n");
                        bufMap[sockfd].erase(0,nwrt);
                        std::cout << " after erase: "<<bufMap[sockfd] <<std::endl;
                        FD_SET(sockfd,&wrset);//开始关注写事件
                    }

                }
                else
                {
                    int err = getSocketError(sockfd);
                    
                    printf("SocketError: %s\n",strerror(err));
                }
            }

            if(FD_ISSET(sockfd,&wrset))
            {
                nrcv = bufMap[sockfd].size();
                printf("write again: nrcv left = %d \n",nrcv);
                nwrt = write(sockfd,bufMap[sockfd].c_str(),nrcv);

                if(nwrt == nrcv)
                {
                    bufMap[sockfd].clear();
                    if(FD_ISSET(sockfd,&wrset))
                    {
                        FD_CLR(sockfd,&wrset);
                    }
                    printf("Write complete! \n");
                }
                else
                {
                    bufMap[sockfd].erase(0,nwrt);
                }
            }

            if(--nready == 0)
            {
                break;
            }
        }
    }

    return 0;
}