bin/tests/sock_test.c

	sock_test.c revision 7251d776466396a2a8f2769c8fa0c13e4db8ef9c

#include "attribute.h"

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>

#include <isc/assertions.h>
#include <isc/memcluster.h>
#include <isc/task.h>
#include <isc/thread.h>
#include <isc/result.h>
#include <isc/socket.h>
#include <isc/timer.h>

#include <sys/types.h>
#include <sys/socket.h>

#include <netinet/in.h>

#include <arpa/inet.h>

isc_memctx_t mctx = NULL;
int sockets_active = 0;

static isc_boolean_t my_send(isc_task_t task, isc_event_t event);
static isc_boolean_t my_recv(isc_task_t task, isc_event_t event);

static isc_boolean_t
my_callback(isc_task_t task, isc_event_t event)
{
    char *name = event->arg;

    printf("task %s (%p)\n", name, task);
    fflush(stdout);
    isc_event_free(&event);

    return (ISC_FALSE);
}

static isc_boolean_t
my_shutdown(isc_task_t task, isc_event_t event)
{
    char *name = event->arg;

    printf("shutdown %s (%p)\n", name, task);
    fflush(stdout);
    isc_event_free(&event);

    return (ISC_TRUE);
}

static isc_boolean_t
my_recv(isc_task_t task, isc_event_t event)
{
    isc_socket_t sock;
    isc_socketevent_t dev;
    struct isc_region region;
    char buf[1024];

    sock = event->sender;
    dev = (isc_socketevent_t)event;

    printf("Socket %s (sock %p, base %p, length %d, n %d, result %d)\n",
           (char *)(event->arg), sock,
           dev->region.base, dev->region.length,
           dev->n, dev->result);
    printf("\tFrom: %s port %d\n", inet_ntoa(dev->address.type.sin.sin_addr),
           ntohs(dev->address.type.sin.sin_port));

    if (dev->result != ISC_R_SUCCESS) {
        isc_socket_detach(&sock);

        isc_event_free(&event);

        sockets_active--;
        if (sockets_active == 0)
            return (1);

        return (0);
    }

    /*
     * Echo the data back
     */
    if (strcmp(event->arg, "so2")) {
        region = dev->region;
        region.base[20] = 0;
        snprintf(buf, sizeof buf, "Received: %s\r\n", region.base);
        region.base = isc_mem_get(event->mctx, strlen(buf) + 1);
        region.length = strlen(buf) + 1;
        strcpy(region.base, buf);  /* strcpy is safe */
        isc_socket_send(sock, &region, task, my_send, event->arg);
    } else {
        region = dev->region;
        region.base[region.length - 1] = 0;
        printf("Received: %s\r\n", region.base);
    }

    isc_socket_recv(sock, &dev->region, ISC_FALSE,
            task, my_recv, event->arg);


    isc_event_free(&event);

    return (0);
}

static isc_boolean_t
my_send(isc_task_t task, isc_event_t event)
{
    isc_socket_t sock;
    isc_socketevent_t dev;

    sock = event->sender;
    dev = (isc_socketevent_t)event;

    printf("my_send: %s task %p\n\t(sock %p, base %p, length %d, n %d, result %d)\n",
           (char *)(event->arg), task, sock,
           dev->region.base, dev->region.length,
           dev->n, dev->result);

    isc_mem_put(event->mctx, dev->region.base, dev->region.length);

    isc_event_free(&event);

    return (0);
}

static isc_boolean_t
my_http_get(isc_task_t task, isc_event_t event)
{
    isc_socket_t sock;
    isc_socketevent_t dev;

    sock = event->sender;
    dev = (isc_socketevent_t)event;

    printf("my_http_get: %s task %p\n\t(sock %p, base %p, length %d, n %d, result %d)\n",
           (char *)(event->arg), task, sock,
           dev->region.base, dev->region.length,
           dev->n, dev->result);

    isc_socket_recv(sock, &dev->region, ISC_FALSE, task, my_recv,
            event->arg);

    isc_event_free(&event);

    return (0);
}

static isc_boolean_t
my_connect(isc_task_t task, isc_event_t event)
{
    isc_socket_t sock;
    isc_socket_connev_t dev;
    struct isc_region region;
    char buf[1024];

    sock = event->sender;
    dev = (isc_socket_connev_t)event;

    printf("%s: Connection result:  %d\n", (char *)(event->arg),
           dev->result);

    if (dev->result != ISC_R_SUCCESS) {
        isc_socket_detach(&sock);
        isc_event_free(&event);

        return (0);
    }

    /*
     * Send a GET string, and set up to receive (and just display)
     * the result.
     */
    strcpy(buf, "GET / HTTP/1.1\r\nHost: www.flame.org\r\nConnection: Close\r\n\r\n");
    region.base = isc_mem_get(event->mctx, strlen(buf) + 1);
    region.length = strlen(buf) + 1;
    strcpy(region.base, buf);  /* strcpy is safe */

    isc_socket_send(sock, &region, task, my_http_get, event->arg);

    isc_event_free(&event);

    return (0);
}

static isc_boolean_t
my_listen(isc_task_t task, isc_event_t event)
{
    char *name = event->arg;
    isc_socket_newconnev_t dev;
    struct isc_region region;
    isc_socket_t oldsock;
    int ret;

    dev = (isc_socket_newconnev_t)event;

    printf("newcon %s (task %p, oldsock %p, newsock %p, result %d)\n",
           name, task, event->sender, dev->newsocket, dev->result);
    fflush(stdout);

    ret = 0;

    if (dev->result == ISC_R_SUCCESS) {
        /*
         * queue another listen on this socket
         */
        isc_socket_accept(event->sender, task, my_listen, event->arg);

        region.base = isc_mem_get(event->mctx, 21);
        region.length = 20;

        /*
         * queue up a read on this socket
         */
        isc_socket_recv(dev->newsocket, &region, ISC_FALSE,
                task, my_recv, event->arg);
        sockets_active++;
    } else {
        printf("detaching from socket %p\n", event->sender);
        oldsock = event->sender;

        isc_socket_detach(&oldsock);

        sockets_active--;
        ret = 1;
    }

    isc_event_free(&event);

    return (ret);
}

static isc_boolean_t
timeout(isc_task_t task, isc_event_t event)
{
    isc_socket_t sock = event->arg;

    printf("Timeout, canceling IO on socket %p\n", sock);

    isc_socket_cancel(sock, NULL, ISC_SOCKCANCEL_ALL);
    isc_timer_detach((isc_timer_t *)&event->sender);

    return (0);
}

int
main(int argc, char *argv[])
{
    isc_taskmgr_t manager = NULL;
    isc_task_t t1 = NULL, t2 = NULL;
    isc_timermgr_t timgr = NULL;
    struct isc_time expires, now;
    struct isc_interval interval;
    isc_timer_t ti1 = NULL;
    isc_event_t event;
    unsigned int workers;
    isc_socketmgr_t socketmgr;
    isc_socket_t so1, so2;
    struct isc_sockaddr sockaddr;
    unsigned int addrlen;


    memset(&sockaddr, 0, sizeof(sockaddr));
    sockaddr.type.sin.sin_port = htons(5544);
    addrlen = sizeof(struct sockaddr_in);

    if (argc > 1)
        workers = atoi(argv[1]);
    else
        workers = 2;
    printf("%d workers\n", workers);

    INSIST(isc_memctx_create(0, 0, &mctx) == ISC_R_SUCCESS);

    INSIST(isc_taskmgr_create(mctx, workers, 0, &manager) ==
           ISC_R_SUCCESS);

    INSIST(isc_task_create(manager, my_shutdown, "1", 0, &t1) ==
           ISC_R_SUCCESS);
    INSIST(isc_task_create(manager, my_shutdown, "2", 0, &t2) ==
           ISC_R_SUCCESS);

    printf("task 1 = %p\n", t1);
    printf("task 2 = %p\n", t2);

    /*
     * create the timer we'll need
     */
    INSIST(isc_timermgr_create(mctx, &timgr) == ISC_R_SUCCESS);

    (void)isc_time_get(&now);

    socketmgr = NULL;
    INSIST(isc_socketmgr_create(mctx, &socketmgr) == ISC_R_SUCCESS);

    /*
     * open up a listener socket
     */
    sockets_active++;
    so1 = NULL;
    memset(&sockaddr, 0, sizeof(sockaddr));
    sockaddr.type.sin.sin_family = AF_INET;
    sockaddr.type.sin.sin_port = htons(5544);
    addrlen = sizeof(struct sockaddr_in);
    INSIST(isc_socket_create(socketmgr, isc_socket_tcp,
                 &so1) == ISC_R_SUCCESS);
    INSIST(isc_socket_bind(so1, &sockaddr, addrlen) == ISC_R_SUCCESS);
    INSIST(isc_socket_listen(so1, 0) == ISC_R_SUCCESS);

    /*
     * queue up the first accept event
     */
    INSIST(isc_socket_accept(so1, t1, my_listen,
                 "so1") == ISC_R_SUCCESS);
    isc_time_settoepoch(&expires);
    isc_interval_set(&interval, 30, 0);
    INSIST(isc_timer_create(timgr, isc_timertype_once, &expires, &interval,
                t1, timeout, so1, &ti1) == ISC_R_SUCCESS);

    /*
     * open up a socket that will connect to www.flame.org, port 80.
     * Why not.  :)
     */
    sockets_active++;
    so2 = NULL;
    memset(&sockaddr, 0, sizeof(sockaddr));
    sockaddr.type.sin.sin_port = htons(80);
    sockaddr.type.sin.sin_family = AF_INET;
    INSIST(inet_aton("204.152.184.97", &sockaddr.type.sin.sin_addr) == 1);
    addrlen = sizeof(struct sockaddr_in);
    INSIST(isc_socket_create(socketmgr, isc_socket_tcp,
                 &so2) == ISC_R_SUCCESS);
    INSIST(isc_socket_connect(so2, &sockaddr, addrlen, t1, my_connect,
                  "so2") == ISC_R_SUCCESS);

    sleep(1);

    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "1",
                   sizeof *event);
    isc_task_send(t1, &event);
    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "1",
                   sizeof *event);
    isc_task_send(t1, &event);
    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "1",
                   sizeof *event);
    isc_task_send(t1, &event);
    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "1",
                   sizeof *event);
    isc_task_send(t1, &event);
    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "1",
                   sizeof *event);
    isc_task_send(t1, &event);
    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "1",
                   sizeof *event);
    isc_task_send(t1, &event);
    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "1",
                   sizeof *event);
    isc_task_send(t1, &event);
    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "1",
                   sizeof *event);
    isc_task_send(t1, &event);
    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "1",
                   sizeof *event);
    isc_task_send(t1, &event);
    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "2",
                   sizeof *event);
    isc_task_send(t2, &event);
    event = isc_event_allocate(mctx, (void *)main, 1, my_callback, "2",
                   sizeof *event);
    isc_task_send(t2, &event);

    sleep(60);

    isc_task_shutdown(t1);
    isc_task_shutdown(t2);
    isc_task_detach(&t1);
    isc_task_detach(&t2);

    printf("Destroying socket manager\n");
    isc_socketmgr_destroy(&socketmgr);
    printf("Destroying task manager\n");
    isc_taskmgr_destroy(&manager);
    printf("destroyed\n");

    isc_mem_stats(mctx, stdout);
    isc_memctx_destroy(&mctx);

    return (0);
}