patty/src/server.c

#define _GNU_SOURCE
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/socket.h>
#include <sys/un.h>
#include <errno.h>

#include <patty/ax25.h>
#include <patty/hash.h>

typedef int (*patty_ax25_server_call)(patty_ax25_server *, int);

struct _patty_ax25_server {
    char path[PATTY_AX25_SOCK_PATH_SIZE];

    int fd,     /* fd of UNIX domain socket */
        fd_max;

    struct timeval timeout;

    fd_set fds_watch, /* fds to monitor with select() */
           fds_r;     /* fds select()ed for reading */

    patty_list *ifaces;
    patty_ax25_route_table *routes;

    patty_dict *socks_by_fd,
               *socks_by_client,
               *socks_local,
               *socks_remote;

    patty_dict *clients,
               *clients_by_sock;
};

patty_ax25_server *patty_ax25_server_new(const char *path) {
    patty_ax25_server *server;

    if ((server = malloc(sizeof(*server))) == NULL) {
        goto error_malloc_server;
    }

    memset(server, '\0', sizeof(*server));

    strncpy(server->path, path, PATTY_AX25_SOCK_PATH_SIZE);

    if ((server->ifaces = patty_list_new()) == NULL) {
        goto error_list_new_ifaces;
    }

    if ((server->routes = patty_ax25_route_table_new()) == NULL) {
        goto error_route_table_new;
    }

    if ((server->socks_by_fd = patty_dict_new()) == NULL) {
        goto error_dict_new_socks_by_fd;
    }

    if ((server->socks_by_client = patty_dict_new()) == NULL) {
        goto error_dict_new_socks_by_client;
    }

    if ((server->socks_local = patty_dict_new()) == NULL) {
        goto error_dict_new_socks_local;
    }

    if ((server->socks_remote = patty_dict_new()) == NULL) {
        goto error_dict_new_socks_remote;
    }

    if ((server->clients = patty_dict_new()) == NULL) {
        goto error_dict_new_clients;
    }

    if ((server->clients_by_sock = patty_dict_new()) == NULL) {
        goto error_dict_new_clients_by_sock;
    }

    return server;

error_dict_new_clients_by_sock:
    patty_dict_destroy(server->clients);

error_dict_new_clients:
    patty_dict_destroy(server->socks_remote);

error_dict_new_socks_remote:
    patty_dict_destroy(server->socks_local);

error_dict_new_socks_local:
    patty_dict_destroy(server->socks_by_client);

error_dict_new_socks_by_client:
    patty_dict_destroy(server->socks_by_fd);

error_dict_new_socks_by_fd:
    patty_ax25_route_table_destroy(server->routes);

error_route_table_new:
    patty_list_destroy(server->ifaces);

error_list_new_ifaces:
    free(server);

error_malloc_server:
    return NULL;
}

static int destroy_if(patty_ax25_if *iface, void *ctx) {
    patty_ax25_if_destroy(iface);

    return 0;
}

static int destroy_socks_by_client_entry(uint32_t key, void *value, void *ctx) {
    patty_dict_destroy((patty_dict *)value);

    return 0;
}

void patty_ax25_server_destroy(patty_ax25_server *server) {
    patty_dict_destroy(server->clients_by_sock);
    patty_dict_destroy(server->clients);
    patty_dict_destroy(server->socks_remote);
    patty_dict_destroy(server->socks_local);
    patty_dict_each(server->socks_by_client, destroy_socks_by_client_entry, NULL);
    patty_dict_destroy(server->socks_by_client);
    patty_dict_destroy(server->socks_by_fd);

    patty_ax25_server_each_if(server, destroy_if, NULL);
    patty_ax25_route_table_destroy(server->routes);
    patty_list_destroy(server->ifaces);

    free(server);
}

static inline void fd_watch(patty_ax25_server *server, int fd) {
    FD_SET(fd, &server->fds_watch);

    if (server->fd_max <= fd) {
        server->fd_max  = fd + 1;
    }
}

static inline void fd_clear(patty_ax25_server *server, int fd) {
    int i;

    FD_CLR(fd, &server->fds_watch);

    if (server->fd_max == fd + 1) {
        for (i=0; i<8*sizeof(&server->fds_watch); i++) {
            if (FD_ISSET(i, &server->fds_watch)) {
                server->fd_max = i;
            }
        }

        server->fd_max++;
    }
}

static patty_ax25_sock *sock_by_fd(patty_dict *dict,
                                   int fd) {
    return patty_dict_get(dict, (uint32_t)fd);
}

static patty_ax25_sock *sock_by_addr(patty_dict *dict,
                                     patty_ax25_addr *addr) {
    uint32_t hash;

    patty_hash_init(&hash);
    patty_ax25_addr_hash(&hash, addr);
    patty_hash_end(&hash);

    return patty_dict_get(dict, hash);
}

static patty_ax25_sock *sock_by_addrpair(patty_dict *dict,
                                         patty_ax25_addr *local,
                                         patty_ax25_addr *remote) {
    uint32_t hash;

    patty_hash_init(&hash);
    patty_ax25_addr_hash(&hash, local);
    patty_ax25_addr_hash(&hash, remote);
    patty_hash_end(&hash);

    return patty_dict_get(dict, hash);
}

static int sock_save_by_fd(patty_dict *dict, patty_ax25_sock *sock) {
    if (patty_dict_set(dict, (uint32_t)sock->fd, sock) == NULL) {
        goto error_dict_set;
    }

    return sock->fd;

error_dict_set:
    return -1;
}

static inline int client_by_sock(patty_ax25_server *server,
                                 patty_ax25_sock *sock) {
    void *value;

    if ((value = patty_dict_get(server->clients_by_sock,
                                (uint32_t)sock->fd)) == NULL) {
        goto error_dict_get;
    }

    return (int)((int64_t)value);

error_dict_get:
    return -1;
}

static inline int client_save_by_sock(patty_ax25_server *server,
                                      int client,
                                      patty_ax25_sock *sock) {
    if (patty_dict_set(server->clients_by_sock,
                       (uint32_t)sock->fd,
                       NULL + client) == NULL) {
        goto error_dict_set;
    }

    return 0;

error_dict_set:
    return -1;
}

static inline int client_delete_by_sock(patty_ax25_server *server,
                                        patty_ax25_sock *sock) {
    return patty_dict_delete(server->clients_by_sock,
                             (uint32_t)sock->fd);
}

static inline uint32_t hash_addr(patty_ax25_addr *addr) {
    uint32_t hash;

    patty_hash_init(&hash);
    patty_ax25_addr_hash(&hash, addr);
    patty_hash_end(&hash);

    return hash;
}

static inline uint32_t hash_addrpair(patty_ax25_addr *local,
                                     patty_ax25_addr *remote) {
    uint32_t hash;

    patty_hash_init(&hash);
    patty_ax25_addr_hash(&hash, local);
    patty_ax25_addr_hash(&hash, remote);
    patty_hash_end(&hash);

    return hash;
}

static int sock_save_local(patty_ax25_server *server,
                           patty_ax25_sock *sock) {
    uint32_t hash = hash_addr(&sock->local);

    return patty_dict_set(server->socks_local, hash, sock) == NULL?  -1: 0;
}

static int sock_save_remote(patty_ax25_server *server,
                            patty_ax25_sock *sock) {
    uint32_t hash = hash_addrpair(&sock->local, &sock->remote);

    return patty_dict_set(server->socks_remote, hash, sock) == NULL? -1: 0;
}

static int sock_delete_local(patty_ax25_server *server,
                             patty_ax25_sock *sock) {
    uint32_t hash = hash_addr(&sock->local);

    return patty_dict_delete(server->socks_local, hash);
}

static int sock_delete_remote(patty_ax25_server *server,
                              patty_ax25_sock *sock) {
    uint32_t hash = hash_addrpair(&sock->local, &sock->remote);

    return patty_dict_delete(server->socks_remote, hash);
}

static int sock_shutdown(patty_ax25_server *server,
                         patty_ax25_sock *sock) {
    fd_clear(server, sock->fd);

    if (sock->status != PATTY_AX25_SOCK_ESTABLISHED) {
        return 0;
    }

    sock->status = PATTY_AX25_SOCK_PENDING_DISCONNECT;

    return patty_ax25_sock_send_disc(sock, PATTY_AX25_FRAME_POLL);
}

static int sock_save(patty_ax25_server *server,
                     int client,
                     patty_ax25_sock *sock) {
    patty_dict *socks;

    switch (sock->status) {
        case PATTY_AX25_SOCK_LISTENING:
            if (sock_save_local(server, sock) < 0) {
                goto error_sock_save_local;
            }

            break;

        case PATTY_AX25_SOCK_PENDING_ACCEPT:
        case PATTY_AX25_SOCK_PENDING_CONNECT:
        case PATTY_AX25_SOCK_ESTABLISHED:
            if (sock_save_remote(server, sock) < 0) {
                goto error_sock_save_remote;
            }

            break;

        case PATTY_AX25_SOCK_PENDING_DISCONNECT:
        case PATTY_AX25_SOCK_CLOSED:
        case PATTY_AX25_SOCK_PROMISC:
            break;
    }

    if (client_save_by_sock(server, client, sock) < 0) {
        goto error_client_save_by_sock;
    }

    if ((socks = patty_dict_get(server->socks_by_client, client)) == NULL) {
        goto error_dict_get_socks_by_client;
    }

    if (sock_save_by_fd(socks, sock) < 0) {
        goto error_sock_save_by_fd;
    }

    return sock_save_by_fd(server->socks_by_fd, sock);

error_sock_save_by_fd:
error_dict_get_socks_by_client:
error_client_save_by_sock:
error_sock_save_remote:
error_sock_save_local:
    return -1;
}

static int sock_close(patty_ax25_server *server,
                      patty_ax25_sock *sock) {
    int client;
    patty_dict *socks;

    switch (sock->status) {
        case PATTY_AX25_SOCK_LISTENING:
            if (sock_delete_local(server, sock) < 0) {
                goto error_sock_delete_local;
            }

            break;

        case PATTY_AX25_SOCK_PENDING_ACCEPT:
        case PATTY_AX25_SOCK_PENDING_CONNECT:
        case PATTY_AX25_SOCK_PENDING_DISCONNECT:
        case PATTY_AX25_SOCK_ESTABLISHED:
            if (sock_delete_remote(server, sock) < 0) {
                goto error_sock_delete_remote;
            }

            break;

        case PATTY_AX25_SOCK_CLOSED:
        case PATTY_AX25_SOCK_PROMISC:
            break;
    }

    if ((client = client_by_sock(server, sock)) < 0) {
        goto error_client_by_sock;
    }

    if ((socks = patty_dict_get(server->socks_by_client, client)) == NULL) {
        goto error_dict_get_socks_by_client;
    }

    if (patty_dict_delete(socks, (uint32_t)sock->fd) < 0) {
        goto error_dict_delete_by_fd_socks;
    }

    if (patty_dict_delete(server->socks_by_fd, (uint32_t)sock->fd) < 0) {
        goto error_dict_delete_by_fd_socks_by_fd;
    }

    (void)client_delete_by_sock(server, sock);

    fd_clear(server, sock->fd);

    patty_ax25_sock_destroy(sock);

    return 0;

error_dict_delete_by_fd_socks_by_fd:
error_dict_delete_by_fd_socks:
error_dict_get_socks_by_client:
error_client_by_sock:
error_sock_delete_remote:
error_sock_delete_local:
    return -1;
}

int patty_ax25_server_add_if(patty_ax25_server *server,
                             patty_ax25_if *iface) {
    int fd;

    if ((fd = patty_kiss_tnc_fd(iface->tnc)) >= 0) {
        fd_watch(server, fd);
    }

    if (patty_list_append(server->ifaces, iface) == NULL) {
        goto error_list_append;
    }

    return 0;

error_list_append:
    return -1;
}

int patty_ax25_server_delete_if(patty_ax25_server *server,
                                patty_ax25_if *iface) {
    patty_list_item *item = server->ifaces->first;

    int fd, i = 0;

    while (item) {
        if (item->value == iface) {
            if (patty_list_splice(server->ifaces, i) == NULL) {
                goto error_list_splice;
            }

            return 0;
        }

        item = item->next;
        i++;
    }

    if ((fd = patty_kiss_tnc_fd(iface->tnc)) >= 0) {
        fd_clear(server, fd);
    }

    return 0;

error_list_splice:
    return -1;
}

patty_ax25_if *patty_ax25_server_get_if(patty_ax25_server *server,
                                        const char *name) {
    patty_list_item *item = server->ifaces->first;

    while (item) {
        patty_ax25_if *iface = item->value;

        if (strncmp(iface->name, name, sizeof(iface->name)) == 0) {
            return iface;
        }

        item = item->next;
    }

    return NULL;
}

int patty_ax25_server_each_if(patty_ax25_server *server,
                              int (*callback)(patty_ax25_if *, void *),
                              void *ctx) {
    patty_list_item *item = server->ifaces->first;

    while (item) {
        patty_ax25_if *iface = item->value;

        if (callback(iface, ctx) < 0) {
            goto error_callback;
        }

        item = item->next;
    }

    return 0;

error_callback:
    return -1;
}

int patty_ax25_server_add_route(patty_ax25_server *server,
                                patty_ax25_route *route) {
    return patty_ax25_route_table_add(server->routes, route);
}

static int respond_accept(int client,
                          int ret,
                          int eno,
                          patty_ax25_addr *peer,
                          char *path) {
    patty_ax25_call_accept_response response;

    memset(&response, '\0', sizeof(response));

    response.ret = ret;
    response.eno = eno;

    if (peer) {
        memcpy(&response.peer, peer, sizeof(response.peer));
    }

    if (path) {
        strncpy(response.path, path, sizeof(response.path));
    }

    return write(client, &response, sizeof(response));
}

static int respond_connect(int client, int ret, int eno) {
    patty_ax25_call_connect_response response = {
        .ret = ret,
        .eno = eno
    };

    return write(client, &response, sizeof(response));
}

static int server_socket(patty_ax25_server *server, int client) {
    patty_ax25_call_socket_request request;
    patty_ax25_call_socket_response response;

    patty_ax25_sock *sock;

    if (read(client, &request, sizeof(request)) < 0) {
        goto error_read;
    }

    if ((sock = patty_ax25_sock_new(request.proto, request.type)) == NULL) {
        goto error_sock_new;
    }

    if (sock_save(server, client, sock) < 0) {
        goto error_sock_save;
    }

    response.ret = sock->fd;
    response.eno = 0;

    memcpy(response.path, patty_ax25_sock_pty(sock), sizeof(response.path));

    return write(client, &response, sizeof(response));

error_sock_save:
    patty_ax25_sock_destroy(sock);

error_sock_new:
error_read:
    return -1;
}

static int server_setsockopt(patty_ax25_server *server,
                             int client) {
    patty_ax25_call_setsockopt_request request;
    patty_ax25_call_setsockopt_response response;

    patty_ax25_sock *sock;

    if (read(client, &request, sizeof(request)) < 0) {
        goto error_read;
    }

    if ((sock = sock_by_fd(server->socks_by_fd, request.fd)) == NULL) {
        response.ret = -1;
        response.eno = EBADF;

        goto error_sock_by_fd;
    }

    switch (request.opt) {
        case PATTY_AX25_SOCK_IF: {
            patty_ax25_call_setsockopt_if data;
            patty_ax25_if *iface;

            if (sock->type != PATTY_AX25_SOCK_RAW) {
                response.ret = -1;
                response.eno = EINVAL;

                goto error_invalid_type;
            }

            if (read(client, &data, request.len) < 0) {
                goto error_read;
            }

            if ((iface = patty_ax25_server_get_if(server, data.name)) == NULL) {
                response.ret = -1;
                response.eno = ENODEV;

                goto error_get_if;
            }

            patty_ax25_sock_bind_if(sock, iface);

            sock->status = PATTY_AX25_SOCK_PROMISC;

            fd_watch(server, sock->fd);

            break;
        }

        default:
            response.ret = -1;
            response.eno = EINVAL;

            goto error_invalid_opt;
    }

    response.ret = 0;
    response.eno = 0;

error_sock_by_fd:
error_get_if:
error_invalid_type:
error_invalid_opt:
    return write(client, &response, sizeof(response));

error_read:
    return -1;
}

static int server_bind(patty_ax25_server *server,
                       int client) {
    patty_ax25_call_bind_request request;
    patty_ax25_call_bind_response response;

    patty_ax25_sock *sock;

    if (read(client, &request, sizeof(request)) < 0) {
        goto error_io;
    }

    if ((sock = sock_by_fd(server->socks_by_fd, request.fd)) == NULL) {
        response.ret = -1;
        response.eno = EBADF;

        goto error_sock_by_fd;
    }

    if (sock->local.callsign[0] != '\0') {
        response.ret = -1;
        response.eno = EINVAL;

        goto error_bound;
    }

    if (sock_by_addr(server->socks_local, &request.addr) != NULL) {
        response.ret = -1;
        response.eno = EADDRINUSE;

        goto error_exists;
    }

    memcpy(&sock->local, &request.addr, sizeof(request.addr));

    response.ret = 0;
    response.eno = 0;

error_exists:
error_bound:
error_sock_by_fd:
    return write(client, &response, sizeof(response));

error_io:
    return -1;
}

static int server_listen(patty_ax25_server *server,
                         int client) {
    patty_ax25_call_listen_request request;
    patty_ax25_call_listen_response response;

    patty_ax25_sock *sock;

    if (read(client, &request, sizeof(request)) < 0) {
        goto error_io;
    }

    if ((sock = sock_by_fd(server->socks_by_fd, request.fd)) == NULL) {
        response.ret = -1;
        response.eno = EBADF;

        goto error_sock_by_fd;
    }

    if (sock->local.callsign[0] == '\0') {
        response.eno = EINVAL;

        goto error_invalid_fd;
    }

    sock->status = PATTY_AX25_SOCK_LISTENING;

    if (sock_save_local(server, sock) < 0) {
        goto error_sock_save_local;
    }

    response.ret = 0;
    response.eno = 0;

error_invalid_fd:
error_sock_by_fd:
    return write(client, &response, sizeof(response));

error_sock_save_local:
error_io:
    return -1;
}

static int server_accept(patty_ax25_server *server,
                         int client) {
    patty_ax25_call_accept_request request;
    patty_ax25_sock *sock;

    if (read(client, &request, sizeof(request)) < 0) {
        goto error_io;
    }

    if ((sock = sock_by_fd(server->socks_by_fd, request.fd)) == NULL) {
        goto error_sock_by_fd;
    }

    return 0;

error_sock_by_fd:
    return respond_accept(client, -1, EBADF, NULL, NULL);

error_io:
    return -1;
}

static int server_connect(patty_ax25_server *server,
                          int client) {
    patty_ax25_call_connect_request request;

    patty_ax25_sock *sock;
    patty_ax25_route *route;
    patty_ax25_if *iface;

    if (read(client, &request, sizeof(request)) < 0) {
        goto error_io;
    }

    if ((sock = sock_by_fd(server->socks_by_fd, request.fd)) == NULL) {
        return respond_connect(client, -1, EBADF);
    }

    switch (sock->status) {
        case PATTY_AX25_SOCK_LISTENING:
            return respond_connect(client, -1, EINVAL);

        case PATTY_AX25_SOCK_ESTABLISHED:
            return respond_connect(client, -1, EISCONN);

        default:
            break;
    }

    if (sock->local.callsign[0]) {
        /*
         * If there is an address already bound to this socket, locate the
         * appropriate route.
         */
        route = patty_ax25_route_table_find(server->routes, &sock->local);
    } else {
        /*
         * Otherwise, locate the default route.
         */
        route = patty_ax25_route_table_default(server->routes);
    }

    /*
     * If no route could be found, then assume the network is down or not
     * configured.
     */
    if (route == NULL) {
        return respond_connect(client, -1, ENETDOWN);
    }

    patty_ax25_sock_bind_if(sock, iface = route->iface);

    /*
     * If there is no local address bound to this sock, then bind the
     * address of the default route interface.
     */
    if (sock->local.callsign[0] == '\0') {
        memcpy(&sock->local, &iface->addr, sizeof(sock->local));
    }

    /*
     * Bind the requested remote address to the socket.
     */
    memcpy(&sock->remote, &request.peer, sizeof(request.peer));

    sock->status = PATTY_AX25_SOCK_PENDING_CONNECT;

    if (sock_save_remote(server, sock) < 0) {
        goto error_sock_save_remote;
    }

    if (client_save_by_sock(server, client, sock) < 0) {
        goto error_client_save_by_sock;
    }

    /*
     * Send an XID frame, to attempt to negotiate AX.25 v2.2 and its default
     * parameters.
     */
    if (patty_ax25_sock_send_xid(sock, PATTY_AX25_FRAME_COMMAND) < 0) {
        return respond_connect(client, -1, errno);
    }

    /*
     * At this point, we will wait for a DM, FRMR or XID response, which
     * will help us determine what version of AX.25 to apply for this socket,
     * or whether the peer is not accepting connections.
     */
    return 0;

error_client_save_by_sock:
error_sock_save_remote:
error_io:
    return -1;
}

static int server_close(patty_ax25_server *server,
                        int client) {
    patty_ax25_call_close_request request;
    patty_ax25_call_close_response response;

    patty_ax25_sock *sock;
    patty_dict *socks;

    if (read(client, &request, sizeof(request)) < 0) {
        goto error_io;
    }

    if ((sock = sock_by_fd(server->socks_by_fd, request.fd)) == NULL) {
        response.ret = -1;
        response.eno = EBADF;

        goto error_sock_by_fd;
    }

    if ((socks = patty_dict_get(server->socks_by_client, client)) == NULL) {
        response.ret = -1;
        response.eno = EBADF;

        goto error_dict_get_socks_by_client;
    }

    if (sock_shutdown(server, sock) < 0) {
        response.ret = -1;
        response.eno = errno;

        goto error_sock_shutdown;
    }

    if (sock_close(server, sock) < 0) {
        response.ret = -1;
        response.eno = EBADF;

        goto error_sock_close;
    }

    response.ret = 0;
    response.eno = 0;

error_sock_close:
error_sock_shutdown:
error_dict_get_socks_by_client:
error_sock_by_fd:
    return write(client, &response, sizeof(response));

error_io:
    return -1;
}

static patty_ax25_server_call server_calls[PATTY_AX25_CALL_COUNT] = {
    NULL,
    server_socket,
    server_setsockopt,
    server_bind,
    server_listen,
    server_accept,
    server_connect,
    server_close,
    NULL,
    NULL
};

static int listen_unix(patty_ax25_server *server, const char *path) {
    struct sockaddr_un addr;
    struct stat st;

    if (server->fd) {
        errno = EBUSY;

        goto error_listening;
    }

    if (stat(path, &st) >= 0) {
        unlink(path);
    }

    if ((server->fd = socket(PF_UNIX, SOCK_STREAM, 0)) < 0) {
        goto error_socket;
    }

    memset(&addr, '\0', sizeof(addr));
    addr.sun_family = AF_UNIX;
    strncpy(addr.sun_path, path, sizeof(addr.sun_path));

    if (bind(server->fd, (struct sockaddr *)&addr, sizeof(addr)) < 0) {
        goto error_bind;
    }

    if (listen(server->fd, 0) < 0) {
        goto error_listen;
    }

    fd_watch(server, server->fd);

    return 0;

error_listen:
error_bind:
    close(server->fd);

error_socket:
error_listening:
    return -1;
}

static int accept_client(patty_ax25_server *server) {
    int fd;
    struct sockaddr addr;
    socklen_t addrlen = sizeof(addr);
    patty_dict *socks;

    memset(&addr, '\0', addrlen);

    if (!FD_ISSET(server->fd, &server->fds_r)) {
        goto done;
    }

    if ((fd = accept(server->fd, &addr, &addrlen)) < 0) {
        goto error_accept;
    }

    if ((socks = patty_dict_new()) == NULL) {
        goto error_dict_new;
    }

    if (patty_dict_set(server->clients, (uint32_t)fd, NULL + fd) == NULL) {
        goto error_dict_set_clients;
    }

    if (patty_dict_set(server->socks_by_client, (uint32_t)fd, socks) == NULL) {
        goto error_dict_set_socks_by_client;
    }

    fd_watch(server, fd);

done:
    return 0;

error_dict_set_socks_by_client:
error_dict_set_clients:
    patty_dict_destroy(socks);

error_dict_new:
    close(fd);

error_accept:
    return -1;
}

static int client_sock_close(uint32_t key, void *value, void *ctx) {
    patty_ax25_server *server = ctx;
    patty_ax25_sock *sock = value;

    if (sock_shutdown(server, sock) < 0) {
        goto error_sock_shutdown;
    }

    return sock_close(server, sock);

error_sock_shutdown:
    return -1;
}

static int handle_client(uint32_t key,
                         void *value,
                         void *ctx) {
    patty_ax25_server *server = ctx;
    int client = (int)key;

    ssize_t readlen;
    enum patty_ax25_call call;

    if (!FD_ISSET(client, &server->fds_r)) {
        goto done;
    }

    if ((readlen = read(client, &call, sizeof(call))) < 0) {
        goto error_io;
    } else if (readlen == 0) {
        patty_dict *socks;

        fd_clear(server, client);

        if ((socks = patty_dict_get(server->socks_by_client, client)) != NULL) {
            (void)patty_dict_each(socks, client_sock_close, server);
            (void)patty_dict_destroy(socks);
        }

        if (patty_dict_delete(server->socks_by_client, key) < 0) {
            goto error_dict_delete_socks_by_client;
        }

        if (patty_dict_delete(server->clients, key) < 0) {
            goto error_dict_delete_clients;
        }

        if (close(client) < 0) {
            goto error_io;
        }

        goto done;
    }

    if (call <= PATTY_AX25_CALL_NONE || call >= PATTY_AX25_CALL_COUNT) {
        goto error_io;
    }

    if (server_calls[call] == NULL) {
        errno = ENOSYS;

        goto error_not_implemented;
    }

    return server_calls[call](server, client);

done:
    return 0;

error_not_implemented:
error_dict_delete_socks_by_client:
error_dict_delete_clients:
error_io:
    return -1;
}

static int handle_clients(patty_ax25_server *server) {
    return patty_dict_each(server->clients, handle_client, server);
}

static void save_reply_addr(patty_ax25_sock *sock,
                            patty_ax25_frame *frame) {
    unsigned int i,
                 hops = frame->hops > PATTY_AX25_MAX_HOPS?
                                      PATTY_AX25_MAX_HOPS: sock->hops;

    memcpy(&sock->remote, &frame->src,  sizeof(patty_ax25_addr));
    memcpy(&sock->local,  &frame->dest, sizeof(patty_ax25_addr));

    for (i=0; i<hops; i++) {
        memcpy(&sock->repeaters[i],
               &frame->repeaters[hops-1-i],
               sizeof(patty_ax25_addr));
    }

    sock->hops = hops;
}

static int reply_to(patty_ax25_if *iface,
                    patty_ax25_frame *frame,
                    patty_ax25_frame *reply) {
    ssize_t len;

    frame->cr = PATTY_AX25_FRAME_RESPONSE;

    if ((len = patty_ax25_frame_encode_reply_to(frame,
                                                reply,
                                                iface->tx_buf,
                                                iface->mtu)) < 0) {
        goto error_toobig;
    }

    return patty_ax25_if_send(iface, iface->tx_buf, len);

error_toobig:
    return -1;
}

static int reply_dm(patty_ax25_if *iface,
                    patty_ax25_frame *frame,
                    int flag) {
    patty_ax25_frame reply = {
        .control = PATTY_AX25_FRAME_DM | (flag << 4),
        .proto   = PATTY_AX25_PROTO_NONE,
        .info    = NULL,
        .infolen = 0
    };

    return reply_to(iface, frame, &reply);
}

static int reply_ua(patty_ax25_if *iface,
                    patty_ax25_frame *frame,
                    int flag) {
    patty_ax25_frame reply = {
        .control = PATTY_AX25_FRAME_UA | (flag << 4),
        .proto   = PATTY_AX25_PROTO_NONE,
        .info    = NULL,
        .infolen = 0
    };

    return reply_to(iface, frame, &reply);
}

static int handle_frmr(patty_ax25_server *server,
                       patty_ax25_if *iface,
                       patty_ax25_sock *sock,
                       patty_ax25_frame *frame) {
    if (sock == NULL) {
        return 0;
    }

    return sock->status == PATTY_AX25_SOCK_PENDING_CONNECT?
        patty_ax25_sock_send_sabm(sock, PATTY_AX25_FRAME_POLL): 0;
}

static int handle_sabm(patty_ax25_server *server,
                       patty_ax25_if *iface,
                       patty_ax25_frame *frame) {
    int client,
        created = 0;

    patty_ax25_sock *local, *remote;

    if ((local = sock_by_addr(server->socks_local,
                              &frame->dest)) == NULL) {
        return reply_dm(iface, frame, PATTY_AX25_FRAME_FINAL);
    }

    if ((client = client_by_sock(server, local)) < 0) {
        goto error_client_by_sock;
    }

    /*
     * Look to see if there is already a remote socket created based on an XID
     * packet previously received.
     */
    if ((remote = sock_by_addrpair(server->socks_remote,
                                   &frame->dest,
                                   &frame->src)) == NULL) {
        /*
         * If there is no existing remote socket, we should create one, and
         * associate it with the client.
         */
        if ((remote = patty_ax25_sock_new(local->proto, local->type)) == NULL) {
            goto error_sock_new;
        }

        save_reply_addr(remote, frame);

        created = 1;
    }

    remote->status = PATTY_AX25_SOCK_ESTABLISHED;
    remote->mode   = (frame->type == PATTY_AX25_FRAME_SABME)?
        PATTY_AX25_SOCK_SABME: PATTY_AX25_SOCK_SABM;

    patty_ax25_sock_bind_if(remote, iface);

    if (created) {
        if (sock_save(server, client, remote) < 0) {
            goto error_sock_save;
        }
    }

    fd_watch(server, remote->fd);

    if (respond_accept(client, 0, 0, &frame->src, remote->pty) < 0) {
        goto error_respond_accept;
    }

    return reply_ua(iface, frame, PATTY_AX25_FRAME_FINAL);

error_respond_accept:
error_sock_save:
    patty_ax25_sock_destroy(remote);

error_sock_new:
error_client_by_sock:
    return -1;
}

static int handle_ua(patty_ax25_server *server,
                     patty_ax25_if *iface,
                     patty_ax25_sock *sock,
                     patty_ax25_frame *frame) {
    int client;

    if (sock == NULL) {
        return reply_dm(iface, frame, PATTY_AX25_FRAME_FINAL);
    }

    switch (sock->status) {
        case PATTY_AX25_SOCK_PENDING_CONNECT:
            break;

        case PATTY_AX25_SOCK_PENDING_DISCONNECT:
            return sock_close(server, sock);

        case PATTY_AX25_SOCK_ESTABLISHED:
            return 0;

        default:
            return reply_dm(iface, frame, PATTY_AX25_FRAME_FINAL);
    }

    sock->status = PATTY_AX25_SOCK_ESTABLISHED;

    if ((client = client_by_sock(server, sock)) < 0) {
        goto error_client_by_sock;
    }

    if (sock_save(server, client, sock) < 0) {
        goto error_sock_save;
    }

    fd_watch(server, sock->fd);

    return respond_connect(client, 0, 0);

error_sock_save:
    patty_ax25_sock_destroy(sock);

error_client_by_sock:
    return -1;
}

static int handle_dm(patty_ax25_server *server,
                     patty_ax25_if *iface,
                     patty_ax25_sock *sock,
                     patty_ax25_frame *frame) {
    int client;

    if (sock == NULL || sock->status != PATTY_AX25_SOCK_PENDING_CONNECT) {
        return 0;
    }

    if ((client = client_by_sock(server, sock)) < 0) {
        goto error_client_by_sock;
    }

    patty_ax25_sock_reset(sock);

    return respond_connect(client, -1, ECONNREFUSED);

error_client_by_sock:
    return -1;
}

static int handle_i(patty_ax25_server *server,
                    patty_ax25_if *iface,
                    patty_ax25_sock *sock,
                    patty_ax25_frame *frame) {
    if (sock == NULL || sock->status != PATTY_AX25_SOCK_ESTABLISHED) {
        return frame->pf? reply_dm(iface, frame, PATTY_AX25_FRAME_FINAL): 0;
    }

    if (sock->seq_recv == frame->ns) {
        patty_ax25_sock_seq_recv_incr(sock);
    } else {
        return frame->pf?
            patty_ax25_sock_send_rej(sock, PATTY_AX25_FRAME_RESPONSE, 0): 0;
    }

    if (write(sock->fd, frame->info, frame->infolen) < 0) {
        goto error_write;
    }

    return frame->pf?
        patty_ax25_sock_send_rr(sock, PATTY_AX25_FRAME_RESPONSE, 0): 0;

error_write:
    return -1;
}

static int handle_disc(patty_ax25_server *server,
                       patty_ax25_if *iface,
                       patty_ax25_sock *sock,
                       patty_ax25_frame *frame) {
    if (sock == NULL) {
        goto reply_dm;
    }

    switch (sock->status) {
        case PATTY_AX25_SOCK_ESTABLISHED:
            (void)sock_close(server, sock);

            return reply_ua(iface, frame, PATTY_AX25_FRAME_FINAL);

        case PATTY_AX25_SOCK_PENDING_DISCONNECT:
            return 0;

        default:
            break;
    }

reply_dm:
    return reply_dm(iface, frame, PATTY_AX25_FRAME_FINAL);
}

static int handle_rej(patty_ax25_server *server,
                      patty_ax25_sock *sock,
                      patty_ax25_frame *frame) {
    unsigned int i,
                 end = sock->seq_send;

    if (sock == NULL) {
        return 0;
    }

    if (frame->nr > end) {
        end += (sock->mode == PATTY_AX25_SOCK_SABME)? 128: 8;
    }

    for (i=frame->nr; i<end; i++) {
        if (patty_ax25_sock_resend(sock, i) < 0) {
            goto error_sock_resend;
        }
    }

    return 0;

error_sock_resend:
    return -1;
}

static int handle_srej(patty_ax25_server *server,
                       patty_ax25_sock *sock,
                       patty_ax25_frame *frame) {
    if (sock == NULL) {
        return 0;
    }

    /*
     * TODO: Read the fine print of section 4.3.2.4
     */
    if (patty_ax25_sock_resend(sock, frame->nr) < 0) {
        goto error_sock_resend;
    }

    return 0;

error_sock_resend:
    return -1;
}

static int handle_xid(patty_ax25_server *server,
                      patty_ax25_if *iface,
                      patty_ax25_frame *frame,
                      void *buf,
                      size_t offset,
                      size_t len) {
    patty_ax25_params params;

    patty_ax25_sock *local,
                    *remote;

    if (patty_ax25_frame_decode_xid(&params, buf, offset, len) < 0) {
        goto error_io;
    }

    /*
     * First, check if this XID packet is a response to an XID used to initiate
     * an outbound connection.
     */
    if ((remote = sock_by_addrpair(server->socks_remote,
                                   &frame->dest,
                                   &frame->src)) != NULL) {
        if (remote->status != PATTY_AX25_SOCK_PENDING_CONNECT) {
            goto reply_dm;
        }

        /*
         * Since we've received an XID packet, we can assume that the remote
         * station is capable of speaking AX.25 v2.2.  Therefore, we should
         * upgrade the socket defaults accordingly, and negotiate downwards
         * as necessary.
         */
        if (patty_ax25_sock_upgrade(remote, PATTY_AX25_2_2) < 0) {
            goto error_sock_upgrade;
        }

        if (patty_ax25_sock_params_set(remote, &params) < 0) {
            int client;

            if ((client = client_by_sock(server, remote)) < 0) {
                goto error_client_by_sock;
            }

            patty_ax25_sock_reset(remote);

            return respond_connect(client, -1, errno);
        }

        /*
         * Since this XID frame is for a socket that is awaiting outbound
         * connection, we can send an SABM or SABME packet, as necessary.
         */
        if (params.hdlc & PATTY_AX25_PARAM_HDLC_MODULO_128) {
            remote->mode = PATTY_AX25_SOCK_SABME;
        }


        return patty_ax25_sock_send_sabm(remote, PATTY_AX25_FRAME_POLL);
    }

    /*
     * Second, check if this XID packet is for a listening socket.
     */
    if ((local = sock_by_addr(server->socks_local,
                              &frame->dest)) != NULL) {
        int client;

        if (local->status != PATTY_AX25_SOCK_LISTENING) {
            goto reply_dm;
        }

        if ((client = client_by_sock(server, local)) < 0) {
            goto error_client_by_sock;
        }

        if ((remote = patty_ax25_sock_new(local->proto, local->type)) == NULL) {
            goto error_sock_new;
        }

        remote->status = PATTY_AX25_SOCK_PENDING_ACCEPT;

        if (params.hdlc & PATTY_AX25_PARAM_HDLC_MODULO_128) {
            remote->mode = PATTY_AX25_SOCK_SABME;
        }

        patty_ax25_sock_bind_if(remote, iface);

        patty_ax25_sock_upgrade(remote, PATTY_AX25_2_2);

        if (patty_ax25_sock_params_set(remote, &params) < 0) {
            patty_ax25_sock_destroy(remote);

            return respond_accept(client, -1, errno, NULL, NULL);
        }

        save_reply_addr(remote, frame);

        if (sock_save(server, client, remote) < 0) {
            goto error_sock_save;
        }

        return patty_ax25_sock_send_xid(remote, PATTY_AX25_FRAME_RESPONSE);
    }

reply_dm:
    return reply_dm(iface, frame, PATTY_AX25_FRAME_FINAL);

error_sock_save:
error_sock_new:
error_client_by_sock:
error_sock_upgrade:
error_io:
    return -1;
}

static int handle_frame(patty_ax25_server *server,
                        patty_ax25_if *iface,
                        void *buf,
                        size_t len) {
    patty_ax25_frame frame;
    enum patty_ax25_frame_format format = PATTY_AX25_FRAME_NORMAL;

    ssize_t decoded,
            offset = 0;

    patty_ax25_sock *sock;

    if ((decoded = patty_ax25_frame_decode_address(&frame, buf, len)) < 0) {
        goto error_io;
    } else {
        offset += decoded;
    }

    if ((sock = sock_by_addrpair(server->socks_remote,
                                 &frame.dest,
                                 &frame.src)) != NULL) {
        if (sock->mode == PATTY_AX25_SOCK_SABME) {
            format = PATTY_AX25_FRAME_EXTENDED;
        }
    }

    if ((decoded = patty_ax25_frame_decode_control(&frame, format, buf, offset, len)) < 0) {
        goto error_io;
    } else {
        offset += decoded;
    }

    switch (frame.type) {
        case PATTY_AX25_FRAME_I:     return handle_i(server, iface, sock, &frame);
        case PATTY_AX25_FRAME_REJ:   return handle_rej(server, sock, &frame);
        case PATTY_AX25_FRAME_SREJ:  return handle_srej(server, sock, &frame);
        case PATTY_AX25_FRAME_XID:   return handle_xid(server, iface, &frame, buf, offset, len);
        case PATTY_AX25_FRAME_SABM:
        case PATTY_AX25_FRAME_SABME: return handle_sabm(server, iface, &frame);
        case PATTY_AX25_FRAME_UA:    return handle_ua(server, iface, sock, &frame);
        case PATTY_AX25_FRAME_DM:    return handle_dm(server, iface, sock, &frame);
        case PATTY_AX25_FRAME_DISC:  return handle_disc(server, iface, sock, &frame);
        case PATTY_AX25_FRAME_FRMR:  return handle_frmr(server, iface, sock, &frame);

        default:
            break;
    }

    return 0;

error_io:
    iface->stats.dropped++;

    return -1;
}

static int handle_iface(patty_ax25_server *server, patty_ax25_if *iface) {
    int fd = patty_kiss_tnc_fd(iface->tnc);

    if (!FD_ISSET(fd, &server->fds_r)) {
        goto done;
    }

    do {
        void *buf;
        ssize_t readlen;

        if ((readlen = patty_ax25_if_recv(iface, &buf)) < 0) {
            goto error_io;
        } else if (readlen == 0) {
            close(fd);

            fd_clear(server, fd);

            goto done;
        }

        if (handle_frame(server, iface, buf, readlen) < 0) {
            goto error_io;
        }
    } while (patty_ax25_if_pending(iface));

done:
    return 0;

error_io:
    return -1;
}

static int handle_ifaces(patty_ax25_server *server) {
    patty_list_item *item = server->ifaces->first;

    while (item) {
        patty_ax25_if *iface = item->value;

        if (handle_iface(server, iface) < 0) {
            goto error_io;
        }

        item = item->next;
    }

    return 0;

error_io:
    return -1;
}

static int handle_sock(uint32_t key,
                       void *value,
                       void *ctx) {
    patty_ax25_server *server = ctx;
    patty_ax25_sock   *sock   = value;

    ssize_t len;

    if (!FD_ISSET(sock->fd, &server->fds_r)) {
        goto done;
    }

    /*
     * NOTE: See AX.25 2.2, Section 6.4.1, "Sending I Frames"
     */
    if (sock->seq_recv + sock->n_window_tx == sock->seq_send) {
        goto done;
    }

    if ((len = read(sock->fd, sock->rx_buf, sock->n_maxlen_rx)) < 0) {
        if (errno == EIO) {
            (void)sock_shutdown(server, sock);

            goto done;
        }

        goto error_io;
    } else if (len == 0) {
        (void)sock_shutdown(server, sock);

        goto done;
    }

    if (patty_ax25_sock_write(sock, sock->rx_buf, len) < 0) {
        goto error_sock_write;
    }

done:
    return 0;

error_sock_write:
error_io:
    return -1;
}

static int handle_socks(patty_ax25_server *server) {
    return patty_dict_each(server->socks_by_fd, handle_sock, server);
}

int patty_ax25_server_run(patty_ax25_server *server) {
    if (listen_unix(server, server->path) < 0) {
        goto error_listen_unix;
    }

    while (1) {
        int nready;

        memcpy(&server->fds_r, &server->fds_watch, sizeof(server->fds_r));

        if ((nready = select( server->fd_max,
                             &server->fds_r,
                             NULL,
                             NULL,
                             NULL)) < 0) {
            goto error_io;
        }

        if (handle_clients(server) < 0) {
            goto error_io;
        }

        if (handle_ifaces(server) < 0) {
            goto error_io;
        }

        if (handle_socks(server) < 0) {
            goto error_io;
        }

        if (accept_client(server) < 0) {
            goto error_io;
        }
    }

    close(server->fd);

    return 0;

error_io:
    close(server->fd);

error_listen_unix:
    return -1;
}