C-socket编-epoll反应堆模型

#include <stdio.h>
#include <sys/socket.h>
#include <sys/epoll.h>
#include <arpa/inet.h>
#include <fcntl.h>
#include <unistd.h>
#include <errno.h>
#include <string.h>
#include <stdlib.h>
#include <time.h>

#define MAX_EVENTS 1024 /*监听上限*/
#define BUFLEN  4096    /*缓存区大小*/
#define SERV_PORT 6666  /*端口号*/

void recvdata(int fd,int events,void *arg);
void senddata(int fd,int events,void *arg);

/*描述就绪文件描述符的相关信息*/
struct myevent_s{
        int fd;
        int events;
        void *arg;
        void (*call_back)(int fd,int events,void *arg);
        int status;
        char buf[BUFLEN];
        int len;
        long last_active;
};

int g_efd;      /*全局变量，作为红黑树根*/
struct myevent_s g_events[MAX_EVENTS+1];        /*自定义结构体类型数组. +1-->listen fd*/

/*将结构体 myevent_s 成员变量 初始化*/
void eventset(struct myevent_s *ev,int fd,void (*call_back)(int fd,int events,void *arg),void
 *arg)
{
        ev->fd=fd;
        ev->call_back=call_back;
        ev->events=0;
        ev->arg=arg;
        ev->status=0;
        if(ev->len<=0)
        {
                memset(ev->buf,0,sizeof(ev->buf));
                ev->len = 0;
        }
        ev->last_active= time(NULL);
        return;
}

/* 向 epoll监听的红黑树 添加一个 文件描述符 */
void eventadd(int efd,int events,struct myevent_s *ev)
{
        struct epoll_event epv={0,{0}};
        int op=0;
        epv.data.ptr=ev;
        epv.events=ev->events=events;
        if(ev->status==0)       /*status 说明文件描述符是否在红黑树上 0不在，1 在*/
        {
                op=EPOLL_CTL_ADD;
                ev->status=1;
        }
        if(epoll_ctl(efd,op,ev->fd,&epv)<0)
                printf("event add failed [fd=%d],events[%d]\n",ev->fd,events);
        else
                printf("event add OK [fd=%d],events[%0X]\n",ev->fd,events);
        return;
}
/* 从epoll 监听的 红黑树中删除一个 文件描述符*/
void eventdel(int efd,struct myevent_s *ev)
{
        struct epoll_event epv={0,{0}};
        if(ev->status != 1)
                return;
        epv.data.ptr=NULL;
        ev->status=0;
        epoll_ctl(efd,EPOLL_CTL_DEL,ev->fd,&epv);
        return;
}

/*  当有文件描述符就绪, epoll返回, 调用该函数 与客户端建立链接 */
void acceptconn(int lfd,int events,void *arg)
{
        struct sockaddr_in cin;
        socklen_t len=sizeof(cin);
        int cfd,i;
        if((cfd=accept(lfd,(struct sockaddr *)&cin,&len)) == -1)
        {
                if(errno !=EAGAIN && errno !=EINTR)
                {
                        sleep(1);
                }
                printf("%s:accept,%s\n",__func__,strerror(errno));
                return;
        }
        do
        {
                for(i=0;i<MAX_EVENTS;i++)
                {
                        if(g_events[i].status ==0)
                                break;
                }
                if(i==MAX_EVENTS)
                {
                        printf("%s: max connect limit[%d]\n", __func__, MAX_EVENTS);
                        break;
                        while(0);
                }
                int flag = 0;
                if((flag = fcntl(cfd, F_SETFL, O_NONBLOCK)) < 0)
                {
                        printf("%s: fcntl nonblocking failed, %s\n", __func__, strerror(errno
));
                        break;
                }
                eventset(&g_events[i], cfd, recvdata, &g_events[i]);
                eventadd(g_efd, EPOLLIN, &g_events[i]);
        }while(0);

        printf("new connect[%s:%d],[time:%ld],pos[%d]",inet_ntoa(cin.sin_addr), ntohs(cin.sin
_port), g_events[i].last_active, i);
        return;
}

void recvdata(int fd, int events, void *arg)
{
    struct myevent_s *ev = (struct myevent_s *)arg;
    int len;

    len = recv(fd, ev->buf, sizeof(ev->buf), 0);            //读文件描述符, 数据存入myevent_s
成员buf中

    eventdel(g_efd, ev);        //将该节点从红黑树上摘除

    if (len > 0) {

        ev->len = len;
        ev->buf[len] = '\0';                                //手动添加字符串结束标记
        printf("C[%d]:%s\n", fd, ev->buf);                  

        eventset(ev, fd, senddata, ev);                     //设置该 fd 对应的回调函数为 send
data    
        eventadd(g_efd, EPOLLOUT, ev);                      //将fd加入红黑树g_efd中,监听其写>
事件    

    } else if (len == 0) {
        close(ev->fd);
        /* ev-g_events 地址相减得到偏移元素位置 */
        printf("[fd=%d] pos[%ld], closed\n", fd, ev-g_events);
    } else {
        close(ev->fd);
        printf("recv[fd=%d] error[%d]:%s\n", fd, errno, strerror(errno));
    }   

    return;
}   

void senddata(int fd, int events, void *arg)
{
    struct myevent_s *ev = (struct myevent_s *)arg;
    int len;

    len = send(fd, ev->buf, ev->len, 0);                    //直接将数据 回写给客户端。未作处
理

    eventdel(g_efd, ev);                                //从红黑树g_efd中移除

    if (len > 0) {

        printf("send[fd=%d], [%d]%s\n", fd, len, ev->buf);
        eventset(ev, fd, recvdata, ev);                     //将该fd的 回调函数改为 recvdata
        eventadd(g_efd, EPOLLIN, ev);                       //从新添加到红黑树上， 设为监听读
事件

    } else {
        close(ev->fd);                                      //关闭链接
        printf("send[fd=%d] error %s\n", fd, strerror(errno));
    }

    return ;
}

/*创建 socket, 初始化lfd */

void initlistensocket(int efd, short port)
{
    struct sockaddr_in sin;

    int lfd = socket(AF_INET, SOCK_STREAM, 0);
    fcntl(lfd, F_SETFL, O_NONBLOCK);                                            //将socket设>
为非阻塞

    memset(&sin, 0, sizeof(sin));                                               //bzero(&sin,
 sizeof(sin))
    sin.sin_family = AF_INET;
    sin.sin_addr.s_addr = INADDR_ANY;
    sin.sin_port = htons(port);

    bind(lfd, (struct sockaddr *)&sin, sizeof(sin));

    listen(lfd, 20);

    /* void eventset(struct myevent_s *ev, int fd, void (*call_back)(int, int, void *), void 
*arg);  */
    eventset(&g_events[MAX_EVENTS], lfd, acceptconn, &g_events[MAX_EVENTS]);

    /* void eventadd(int efd, int events, struct myevent_s *ev) */
    eventadd(efd, EPOLLIN, &g_events[MAX_EVENTS]);

    return;
}


int main()
{
        int port=SERV_PORT;
        g_efd = epoll_create(MAX_EVENTS+1);
        if(g_efd <= 0)
                printf("create efd in %s err %s\n", __func__, strerror(errno));
        initlistensocket(g_efd, port);
        struct epoll_event events[MAX_EVENTS+1];
        printf("server running:port[%d]\n", port);

        int checkpos=0;
        int i;
        while(1)
        {
                long now=time(NULL);
                for(i=0;i<100;i++,checkpos++)
                {
                        if(checkpos==MAX_EVENTS);
                                checkpos=0;
                        if(g_events[checkpos].status != 1)
                                continue;
                        long duration=now -g_events[checkpos].last_active;
                        if(duration >= 60)
                        {
                                close(g_events[checkpos].fd);
                                printf("[fd=%d] timeout\n", g_events[checkpos].fd);
                                eventdel(g_efd, &g_events[checkpos]);
                        }
                }

                int nfd = epoll_wait(g_efd, events, MAX_EVENTS+1, 1000);
                if (nfd < 0)
                {
                        printf("epoll_wait error, exit\n");
                        exit(-1);
                }
                for(i=0;i<nfd;i++)
                {
                        struct myevent_s *ev = (struct myevent_s *)events[i].data.ptr;
                        if((events[i].events & EPOLLIN) &&(ev->events & EPOLLIN))
                        {
                                ev->call_back(ev->fd, events[i].events, ev->arg);
                        }
                                if((events[i].events & EPOLLOUT) && (ev->events & EPOLLOUT))
                                {
                                        ev->call_back(ev->fd, events[i].events, ev->arg);
                                }
                }
        }
        return 0;
}