qemu

FORK: QEMU emulator
git clone https://git.neptards.moe/neptards/qemu.git
Log | Files | Refs | Submodules | LICENSE

main.c (22324B)


      1 /*
      2  * QEMU paravirtual RDMA - rdmacm-mux implementation
      3  *
      4  * Copyright (C) 2018 Oracle
      5  * Copyright (C) 2018 Red Hat Inc
      6  *
      7  * Authors:
      8  *     Yuval Shaia <yuval.shaia@oracle.com>
      9  *     Marcel Apfelbaum <marcel@redhat.com>
     10  *
     11  * This work is licensed under the terms of the GNU GPL, version 2 or later.
     12  * See the COPYING file in the top-level directory.
     13  *
     14  */
     15 
     16 #include "qemu/osdep.h"
     17 #include <sys/poll.h>
     18 #include <sys/ioctl.h>
     19 #include <pthread.h>
     20 #include <syslog.h>
     21 
     22 #include <infiniband/verbs.h>
     23 #include <infiniband/umad.h>
     24 #include <infiniband/umad_types.h>
     25 #include <infiniband/umad_sa.h>
     26 #include <infiniband/umad_cm.h>
     27 
     28 #include "rdmacm-mux.h"
     29 
     30 #define SCALE_US 1000
     31 #define COMMID_TTL 2 /* How many SCALE_US a context of MAD session is saved */
     32 #define SLEEP_SECS 5 /* This is used both in poll() and thread */
     33 #define SERVER_LISTEN_BACKLOG 10
     34 #define MAX_CLIENTS 4096
     35 #define MAD_RMPP_VERSION 0
     36 #define MAD_METHOD_MASK0 0x8
     37 
     38 #define IB_USER_MAD_LONGS_PER_METHOD_MASK (128 / (8 * sizeof(long)))
     39 
     40 #define CM_REQ_DGID_POS      80
     41 #define CM_SIDR_REQ_DGID_POS 44
     42 
     43 /* The below can be override by command line parameter */
     44 #define UNIX_SOCKET_PATH "/var/run/rdmacm-mux"
     45 /* Has format %s-%s-%d" <path>-<rdma-dev--name>-<port> */
     46 #define SOCKET_PATH_MAX (PATH_MAX - NAME_MAX - sizeof(int) - 2)
     47 #define RDMA_PORT_NUM 1
     48 
     49 typedef struct RdmaCmServerArgs {
     50     char unix_socket_path[PATH_MAX];
     51     char rdma_dev_name[NAME_MAX];
     52     int rdma_port_num;
     53 } RdmaCMServerArgs;
     54 
     55 typedef struct CommId2FdEntry {
     56     int fd;
     57     int ttl; /* Initialized to 2, decrement each timeout, entry delete when 0 */
     58     __be64 gid_ifid;
     59 } CommId2FdEntry;
     60 
     61 typedef struct RdmaCmUMadAgent {
     62     int port_id;
     63     int agent_id;
     64     GHashTable *gid2fd; /* Used to find fd of a given gid */
     65     GHashTable *commid2fd; /* Used to find fd on of a given comm_id */
     66 } RdmaCmUMadAgent;
     67 
     68 typedef struct RdmaCmServer {
     69     bool run;
     70     RdmaCMServerArgs args;
     71     struct pollfd fds[MAX_CLIENTS];
     72     int nfds;
     73     RdmaCmUMadAgent umad_agent;
     74     pthread_t umad_recv_thread;
     75     pthread_rwlock_t lock;
     76 } RdmaCMServer;
     77 
     78 static RdmaCMServer server = {0};
     79 
     80 static void usage(const char *progname)
     81 {
     82     printf("Usage: %s [OPTION]...\n"
     83            "Start a RDMA-CM multiplexer\n"
     84            "\n"
     85            "\t-h                    Show this help\n"
     86            "\t-d rdma-device-name   Name of RDMA device to register with\n"
     87            "\t-s unix-socket-path   Path to unix socket to listen on (default %s)\n"
     88            "\t-p rdma-device-port   Port number of RDMA device to register with (default %d)\n",
     89            progname, UNIX_SOCKET_PATH, RDMA_PORT_NUM);
     90 }
     91 
     92 static void help(const char *progname)
     93 {
     94     fprintf(stderr, "Try '%s -h' for more information.\n", progname);
     95 }
     96 
     97 static void parse_args(int argc, char *argv[])
     98 {
     99     int c;
    100     char unix_socket_path[SOCKET_PATH_MAX];
    101 
    102     strcpy(server.args.rdma_dev_name, "");
    103     strcpy(unix_socket_path, UNIX_SOCKET_PATH);
    104     server.args.rdma_port_num = RDMA_PORT_NUM;
    105 
    106     while ((c = getopt(argc, argv, "hs:d:p:")) != -1) {
    107         switch (c) {
    108         case 'h':
    109             usage(argv[0]);
    110             exit(0);
    111 
    112         case 'd':
    113             strncpy(server.args.rdma_dev_name, optarg, NAME_MAX - 1);
    114             break;
    115 
    116         case 's':
    117             /* This is temporary, final name will build below */
    118             strncpy(unix_socket_path, optarg, SOCKET_PATH_MAX - 1);
    119             break;
    120 
    121         case 'p':
    122             server.args.rdma_port_num = atoi(optarg);
    123             break;
    124 
    125         default:
    126             help(argv[0]);
    127             exit(1);
    128         }
    129     }
    130 
    131     if (!strcmp(server.args.rdma_dev_name, "")) {
    132         fprintf(stderr, "Missing RDMA device name\n");
    133         help(argv[0]);
    134         exit(1);
    135     }
    136 
    137     /* Build unique unix-socket file name */
    138     snprintf(server.args.unix_socket_path, PATH_MAX, "%s-%s-%d",
    139              unix_socket_path, server.args.rdma_dev_name,
    140              server.args.rdma_port_num);
    141 
    142     syslog(LOG_INFO, "unix_socket_path=%s", server.args.unix_socket_path);
    143     syslog(LOG_INFO, "rdma-device-name=%s", server.args.rdma_dev_name);
    144     syslog(LOG_INFO, "rdma-device-port=%d", server.args.rdma_port_num);
    145 }
    146 
    147 static void hash_tbl_alloc(void)
    148 {
    149 
    150     server.umad_agent.gid2fd = g_hash_table_new_full(g_int64_hash,
    151                                                      g_int64_equal,
    152                                                      g_free, g_free);
    153     server.umad_agent.commid2fd = g_hash_table_new_full(g_int_hash,
    154                                                         g_int_equal,
    155                                                         g_free, g_free);
    156 }
    157 
    158 static void hash_tbl_free(void)
    159 {
    160     if (server.umad_agent.commid2fd) {
    161         g_hash_table_destroy(server.umad_agent.commid2fd);
    162     }
    163     if (server.umad_agent.gid2fd) {
    164         g_hash_table_destroy(server.umad_agent.gid2fd);
    165     }
    166 }
    167 
    168 
    169 static int _hash_tbl_search_fd_by_ifid(__be64 *gid_ifid)
    170 {
    171     int *fd;
    172 
    173     fd = g_hash_table_lookup(server.umad_agent.gid2fd, gid_ifid);
    174     if (!fd) {
    175         /* Let's try IPv4 */
    176         *gid_ifid |= 0x00000000ffff0000;
    177         fd = g_hash_table_lookup(server.umad_agent.gid2fd, gid_ifid);
    178     }
    179 
    180     return fd ? *fd : 0;
    181 }
    182 
    183 static int hash_tbl_search_fd_by_ifid(int *fd, __be64 *gid_ifid)
    184 {
    185     pthread_rwlock_rdlock(&server.lock);
    186     *fd = _hash_tbl_search_fd_by_ifid(gid_ifid);
    187     pthread_rwlock_unlock(&server.lock);
    188 
    189     if (!*fd) {
    190         syslog(LOG_WARNING, "Can't find matching for ifid 0x%llx\n", *gid_ifid);
    191         return -ENOENT;
    192     }
    193 
    194     return 0;
    195 }
    196 
    197 static int hash_tbl_search_fd_by_comm_id(uint32_t comm_id, int *fd,
    198                                          __be64 *gid_idid)
    199 {
    200     CommId2FdEntry *fde;
    201 
    202     pthread_rwlock_rdlock(&server.lock);
    203     fde = g_hash_table_lookup(server.umad_agent.commid2fd, &comm_id);
    204     pthread_rwlock_unlock(&server.lock);
    205 
    206     if (!fde) {
    207         syslog(LOG_WARNING, "Can't find matching for comm_id 0x%x\n", comm_id);
    208         return -ENOENT;
    209     }
    210 
    211     *fd = fde->fd;
    212     *gid_idid = fde->gid_ifid;
    213 
    214     return 0;
    215 }
    216 
    217 static RdmaCmMuxErrCode add_fd_ifid_pair(int fd, __be64 gid_ifid)
    218 {
    219     int fd1;
    220 
    221     pthread_rwlock_wrlock(&server.lock);
    222 
    223     fd1 = _hash_tbl_search_fd_by_ifid(&gid_ifid);
    224     if (fd1) { /* record already exist - an error */
    225         pthread_rwlock_unlock(&server.lock);
    226         return fd == fd1 ? RDMACM_MUX_ERR_CODE_EEXIST :
    227                            RDMACM_MUX_ERR_CODE_EACCES;
    228     }
    229 
    230     g_hash_table_insert(server.umad_agent.gid2fd, g_memdup(&gid_ifid,
    231                         sizeof(gid_ifid)), g_memdup(&fd, sizeof(fd)));
    232 
    233     pthread_rwlock_unlock(&server.lock);
    234 
    235     syslog(LOG_INFO, "0x%lx registered on socket %d",
    236            be64toh((uint64_t)gid_ifid), fd);
    237 
    238     return RDMACM_MUX_ERR_CODE_OK;
    239 }
    240 
    241 static RdmaCmMuxErrCode delete_fd_ifid_pair(int fd, __be64 gid_ifid)
    242 {
    243     int fd1;
    244 
    245     pthread_rwlock_wrlock(&server.lock);
    246 
    247     fd1 = _hash_tbl_search_fd_by_ifid(&gid_ifid);
    248     if (!fd1) { /* record not exist - an error */
    249         pthread_rwlock_unlock(&server.lock);
    250         return RDMACM_MUX_ERR_CODE_ENOTFOUND;
    251     }
    252 
    253     g_hash_table_remove(server.umad_agent.gid2fd, g_memdup(&gid_ifid,
    254                         sizeof(gid_ifid)));
    255     pthread_rwlock_unlock(&server.lock);
    256 
    257     syslog(LOG_INFO, "0x%lx unregistered on socket %d",
    258            be64toh((uint64_t)gid_ifid), fd);
    259 
    260     return RDMACM_MUX_ERR_CODE_OK;
    261 }
    262 
    263 static void hash_tbl_save_fd_comm_id_pair(int fd, uint32_t comm_id,
    264                                           uint64_t gid_ifid)
    265 {
    266     CommId2FdEntry fde = {fd, COMMID_TTL, gid_ifid};
    267 
    268     pthread_rwlock_wrlock(&server.lock);
    269     g_hash_table_insert(server.umad_agent.commid2fd,
    270                         g_memdup(&comm_id, sizeof(comm_id)),
    271                         g_memdup(&fde, sizeof(fde)));
    272     pthread_rwlock_unlock(&server.lock);
    273 }
    274 
    275 static gboolean remove_old_comm_ids(gpointer key, gpointer value,
    276                                     gpointer user_data)
    277 {
    278     CommId2FdEntry *fde = (CommId2FdEntry *)value;
    279 
    280     return !fde->ttl--;
    281 }
    282 
    283 static gboolean remove_entry_from_gid2fd(gpointer key, gpointer value,
    284                                          gpointer user_data)
    285 {
    286     if (*(int *)value == *(int *)user_data) {
    287         syslog(LOG_INFO, "0x%lx unregistered on socket %d",
    288                be64toh(*(uint64_t *)key), *(int *)value);
    289         return true;
    290     }
    291 
    292     return false;
    293 }
    294 
    295 static void hash_tbl_remove_fd_ifid_pair(int fd)
    296 {
    297     pthread_rwlock_wrlock(&server.lock);
    298     g_hash_table_foreach_remove(server.umad_agent.gid2fd,
    299                                 remove_entry_from_gid2fd, (gpointer)&fd);
    300     pthread_rwlock_unlock(&server.lock);
    301 }
    302 
    303 static int get_fd(const char *mad, int umad_len, int *fd, __be64 *gid_ifid)
    304 {
    305     struct umad_hdr *hdr = (struct umad_hdr *)mad;
    306     char *data = (char *)hdr + sizeof(*hdr);
    307     int32_t comm_id = 0;
    308     uint16_t attr_id = be16toh(hdr->attr_id);
    309     int rc = 0;
    310 
    311     if (umad_len <= sizeof(*hdr)) {
    312         rc = -EINVAL;
    313         syslog(LOG_DEBUG, "Ignoring MAD packets with header only\n");
    314         goto out;
    315     }
    316 
    317     switch (attr_id) {
    318     case UMAD_CM_ATTR_REQ:
    319         if (unlikely(umad_len < sizeof(*hdr) + CM_REQ_DGID_POS +
    320             sizeof(*gid_ifid))) {
    321             rc = -EINVAL;
    322             syslog(LOG_WARNING,
    323                    "Invalid MAD packet size (%d) for attr_id 0x%x\n", umad_len,
    324                     attr_id);
    325             goto out;
    326         }
    327         memcpy(gid_ifid, data + CM_REQ_DGID_POS, sizeof(*gid_ifid));
    328         rc = hash_tbl_search_fd_by_ifid(fd, gid_ifid);
    329         break;
    330 
    331     case UMAD_CM_ATTR_SIDR_REQ:
    332         if (unlikely(umad_len < sizeof(*hdr) + CM_SIDR_REQ_DGID_POS +
    333             sizeof(*gid_ifid))) {
    334             rc = -EINVAL;
    335             syslog(LOG_WARNING,
    336                    "Invalid MAD packet size (%d) for attr_id 0x%x\n", umad_len,
    337                     attr_id);
    338             goto out;
    339         }
    340         memcpy(gid_ifid, data + CM_SIDR_REQ_DGID_POS, sizeof(*gid_ifid));
    341         rc = hash_tbl_search_fd_by_ifid(fd, gid_ifid);
    342         break;
    343 
    344     case UMAD_CM_ATTR_REP:
    345         /* Fall through */
    346     case UMAD_CM_ATTR_REJ:
    347         /* Fall through */
    348     case UMAD_CM_ATTR_DREQ:
    349         /* Fall through */
    350     case UMAD_CM_ATTR_DREP:
    351         /* Fall through */
    352     case UMAD_CM_ATTR_RTU:
    353         data += sizeof(comm_id);
    354         /* Fall through */
    355     case UMAD_CM_ATTR_SIDR_REP:
    356         if (unlikely(umad_len < sizeof(*hdr) + sizeof(comm_id))) {
    357             rc = -EINVAL;
    358             syslog(LOG_WARNING,
    359                    "Invalid MAD packet size (%d) for attr_id 0x%x\n", umad_len,
    360                    attr_id);
    361             goto out;
    362         }
    363         memcpy(&comm_id, data, sizeof(comm_id));
    364         if (comm_id) {
    365             rc = hash_tbl_search_fd_by_comm_id(comm_id, fd, gid_ifid);
    366         }
    367         break;
    368 
    369     default:
    370         rc = -EINVAL;
    371         syslog(LOG_WARNING, "Unsupported attr_id 0x%x\n", attr_id);
    372     }
    373 
    374     syslog(LOG_DEBUG, "mad_to_vm: %d 0x%x 0x%x\n", *fd, attr_id, comm_id);
    375 
    376 out:
    377     return rc;
    378 }
    379 
    380 static void *umad_recv_thread_func(void *args)
    381 {
    382     int rc;
    383     RdmaCmMuxMsg msg = {};
    384     int fd = -2;
    385 
    386     msg.hdr.msg_type = RDMACM_MUX_MSG_TYPE_REQ;
    387     msg.hdr.op_code = RDMACM_MUX_OP_CODE_MAD;
    388 
    389     while (server.run) {
    390         do {
    391             msg.umad_len = sizeof(msg.umad.mad);
    392             rc = umad_recv(server.umad_agent.port_id, &msg.umad, &msg.umad_len,
    393                            SLEEP_SECS * SCALE_US);
    394             if ((rc == -EIO) || (rc == -EINVAL)) {
    395                 syslog(LOG_CRIT, "Fatal error while trying to read MAD");
    396             }
    397 
    398             if (rc == -ETIMEDOUT) {
    399                 g_hash_table_foreach_remove(server.umad_agent.commid2fd,
    400                                             remove_old_comm_ids, NULL);
    401             }
    402         } while (rc && server.run);
    403 
    404         if (server.run) {
    405             rc = get_fd(msg.umad.mad, msg.umad_len, &fd,
    406                         &msg.hdr.sgid.global.interface_id);
    407             if (rc) {
    408                 continue;
    409             }
    410 
    411             send(fd, &msg, sizeof(msg), 0);
    412         }
    413     }
    414 
    415     return NULL;
    416 }
    417 
    418 static int read_and_process(int fd)
    419 {
    420     int rc;
    421     RdmaCmMuxMsg msg = {};
    422     struct umad_hdr *hdr;
    423     uint32_t *comm_id = 0;
    424     uint16_t attr_id;
    425 
    426     rc = recv(fd, &msg, sizeof(msg), 0);
    427     syslog(LOG_DEBUG, "Socket %d, recv %d\n", fd, rc);
    428 
    429     if (rc < 0 && errno != EWOULDBLOCK) {
    430         syslog(LOG_ERR, "Fail to read from socket %d\n", fd);
    431         return -EIO;
    432     }
    433 
    434     if (!rc) {
    435         syslog(LOG_ERR, "Fail to read from socket %d\n", fd);
    436         return -EPIPE;
    437     }
    438 
    439     if (msg.hdr.msg_type != RDMACM_MUX_MSG_TYPE_REQ) {
    440         syslog(LOG_WARNING, "Got non-request message (%d) from socket %d\n",
    441                msg.hdr.msg_type, fd);
    442         return -EPERM;
    443     }
    444 
    445     switch (msg.hdr.op_code) {
    446     case RDMACM_MUX_OP_CODE_REG:
    447         rc = add_fd_ifid_pair(fd, msg.hdr.sgid.global.interface_id);
    448         break;
    449 
    450     case RDMACM_MUX_OP_CODE_UNREG:
    451         rc = delete_fd_ifid_pair(fd, msg.hdr.sgid.global.interface_id);
    452         break;
    453 
    454     case RDMACM_MUX_OP_CODE_MAD:
    455         /* If this is REQ or REP then store the pair comm_id,fd to be later
    456          * used for other messages where gid is unknown */
    457         hdr = (struct umad_hdr *)msg.umad.mad;
    458         attr_id = be16toh(hdr->attr_id);
    459         if ((attr_id == UMAD_CM_ATTR_REQ) || (attr_id == UMAD_CM_ATTR_DREQ) ||
    460             (attr_id == UMAD_CM_ATTR_SIDR_REQ) ||
    461             (attr_id == UMAD_CM_ATTR_REP) || (attr_id == UMAD_CM_ATTR_DREP)) {
    462             comm_id = (uint32_t *)(msg.umad.mad + sizeof(*hdr));
    463             hash_tbl_save_fd_comm_id_pair(fd, *comm_id,
    464                                           msg.hdr.sgid.global.interface_id);
    465         }
    466 
    467         syslog(LOG_DEBUG, "vm_to_mad: %d 0x%x 0x%x\n", fd, attr_id,
    468                comm_id ? *comm_id : 0);
    469         rc = umad_send(server.umad_agent.port_id, server.umad_agent.agent_id,
    470                        &msg.umad, msg.umad_len, 1, 0);
    471         if (rc) {
    472             syslog(LOG_ERR,
    473                   "Fail to send MAD message (0x%x) from socket %d, err=%d",
    474                   attr_id, fd, rc);
    475         }
    476         break;
    477 
    478     default:
    479         syslog(LOG_ERR, "Got invalid op_code (%d) from socket %d",
    480                msg.hdr.msg_type, fd);
    481         rc = RDMACM_MUX_ERR_CODE_EINVAL;
    482     }
    483 
    484     msg.hdr.msg_type = RDMACM_MUX_MSG_TYPE_RESP;
    485     msg.hdr.err_code = rc;
    486     rc = send(fd, &msg, sizeof(msg), 0);
    487 
    488     return rc == sizeof(msg) ? 0 : -EPIPE;
    489 }
    490 
    491 static int accept_all(void)
    492 {
    493     int fd, rc = 0;
    494 
    495     pthread_rwlock_wrlock(&server.lock);
    496 
    497     do {
    498         if ((server.nfds + 1) > MAX_CLIENTS) {
    499             syslog(LOG_WARNING, "Too many clients (%d)", server.nfds);
    500             rc = -EIO;
    501             goto out;
    502         }
    503 
    504         fd = accept(server.fds[0].fd, NULL, NULL);
    505         if (fd < 0) {
    506             if (errno != EWOULDBLOCK) {
    507                 syslog(LOG_WARNING, "accept() failed");
    508                 rc = -EIO;
    509                 goto out;
    510             }
    511             break;
    512         }
    513 
    514         syslog(LOG_INFO, "Client connected on socket %d\n", fd);
    515         server.fds[server.nfds].fd = fd;
    516         server.fds[server.nfds].events = POLLIN;
    517         server.nfds++;
    518     } while (fd != -1);
    519 
    520 out:
    521     pthread_rwlock_unlock(&server.lock);
    522     return rc;
    523 }
    524 
    525 static void compress_fds(void)
    526 {
    527     int i, j;
    528     int closed = 0;
    529 
    530     pthread_rwlock_wrlock(&server.lock);
    531 
    532     for (i = 1; i < server.nfds; i++) {
    533         if (!server.fds[i].fd) {
    534             closed++;
    535             for (j = i; j < server.nfds - 1; j++) {
    536                 server.fds[j] = server.fds[j + 1];
    537             }
    538         }
    539     }
    540 
    541     server.nfds -= closed;
    542 
    543     pthread_rwlock_unlock(&server.lock);
    544 }
    545 
    546 static void close_fd(int idx)
    547 {
    548     close(server.fds[idx].fd);
    549     syslog(LOG_INFO, "Socket %d closed\n", server.fds[idx].fd);
    550     hash_tbl_remove_fd_ifid_pair(server.fds[idx].fd);
    551     server.fds[idx].fd = 0;
    552 }
    553 
    554 static void run(void)
    555 {
    556     int rc, nfds, i;
    557     bool compress = false;
    558 
    559     syslog(LOG_INFO, "Service started");
    560 
    561     while (server.run) {
    562         rc = poll(server.fds, server.nfds, SLEEP_SECS * SCALE_US);
    563         if (rc < 0) {
    564             if (errno != EINTR) {
    565                 syslog(LOG_WARNING, "poll() failed");
    566             }
    567             continue;
    568         }
    569 
    570         if (rc == 0) {
    571             continue;
    572         }
    573 
    574         nfds = server.nfds;
    575         for (i = 0; i < nfds; i++) {
    576             syslog(LOG_DEBUG, "pollfd[%d]: revents 0x%x, events 0x%x\n", i,
    577                    server.fds[i].revents, server.fds[i].events);
    578             if (server.fds[i].revents == 0) {
    579                 continue;
    580             }
    581 
    582             if (server.fds[i].revents != POLLIN) {
    583                 if (i == 0) {
    584                     syslog(LOG_NOTICE, "Unexpected poll() event (0x%x)\n",
    585                            server.fds[i].revents);
    586                 } else {
    587                     close_fd(i);
    588                     compress = true;
    589                 }
    590                 continue;
    591             }
    592 
    593             if (i == 0) {
    594                 rc = accept_all();
    595                 if (rc) {
    596                     continue;
    597                 }
    598             } else {
    599                 rc = read_and_process(server.fds[i].fd);
    600                 if (rc) {
    601                     close_fd(i);
    602                     compress = true;
    603                 }
    604             }
    605         }
    606 
    607         if (compress) {
    608             compress = false;
    609             compress_fds();
    610         }
    611     }
    612 }
    613 
    614 static void fini_listener(void)
    615 {
    616     int i;
    617 
    618     if (server.fds[0].fd <= 0) {
    619         return;
    620     }
    621 
    622     for (i = server.nfds - 1; i >= 0; i--) {
    623         if (server.fds[i].fd) {
    624             close(server.fds[i].fd);
    625         }
    626     }
    627 
    628     unlink(server.args.unix_socket_path);
    629 }
    630 
    631 static void fini_umad(void)
    632 {
    633     if (server.umad_agent.agent_id) {
    634         umad_unregister(server.umad_agent.port_id, server.umad_agent.agent_id);
    635     }
    636 
    637     if (server.umad_agent.port_id) {
    638         umad_close_port(server.umad_agent.port_id);
    639     }
    640 
    641     hash_tbl_free();
    642 }
    643 
    644 static void fini(void)
    645 {
    646     if (server.umad_recv_thread) {
    647         pthread_join(server.umad_recv_thread, NULL);
    648         server.umad_recv_thread = 0;
    649     }
    650     fini_umad();
    651     fini_listener();
    652     pthread_rwlock_destroy(&server.lock);
    653 
    654     syslog(LOG_INFO, "Service going down");
    655 }
    656 
    657 static int init_listener(void)
    658 {
    659     struct sockaddr_un sun;
    660     int rc, on = 1;
    661 
    662     server.fds[0].fd = socket(AF_UNIX, SOCK_STREAM, 0);
    663     if (server.fds[0].fd < 0) {
    664         syslog(LOG_ALERT, "socket() failed");
    665         return -EIO;
    666     }
    667 
    668     rc = setsockopt(server.fds[0].fd, SOL_SOCKET, SO_REUSEADDR, (char *)&on,
    669                     sizeof(on));
    670     if (rc < 0) {
    671         syslog(LOG_ALERT, "setsockopt() failed");
    672         rc = -EIO;
    673         goto err;
    674     }
    675 
    676     rc = ioctl(server.fds[0].fd, FIONBIO, (char *)&on);
    677     if (rc < 0) {
    678         syslog(LOG_ALERT, "ioctl() failed");
    679         rc = -EIO;
    680         goto err;
    681     }
    682 
    683     if (strlen(server.args.unix_socket_path) >= sizeof(sun.sun_path)) {
    684         syslog(LOG_ALERT,
    685                "Invalid unix_socket_path, size must be less than %ld\n",
    686                sizeof(sun.sun_path));
    687         rc = -EINVAL;
    688         goto err;
    689     }
    690 
    691     sun.sun_family = AF_UNIX;
    692     rc = snprintf(sun.sun_path, sizeof(sun.sun_path), "%s",
    693                   server.args.unix_socket_path);
    694     if (rc < 0 || rc >= sizeof(sun.sun_path)) {
    695         syslog(LOG_ALERT, "Could not copy unix socket path\n");
    696         rc = -EINVAL;
    697         goto err;
    698     }
    699 
    700     rc = bind(server.fds[0].fd, (struct sockaddr *)&sun, sizeof(sun));
    701     if (rc < 0) {
    702         syslog(LOG_ALERT, "bind() failed");
    703         rc = -EIO;
    704         goto err;
    705     }
    706 
    707     rc = listen(server.fds[0].fd, SERVER_LISTEN_BACKLOG);
    708     if (rc < 0) {
    709         syslog(LOG_ALERT, "listen() failed");
    710         rc = -EIO;
    711         goto err;
    712     }
    713 
    714     server.fds[0].events = POLLIN;
    715     server.nfds = 1;
    716     server.run = true;
    717 
    718     return 0;
    719 
    720 err:
    721     close(server.fds[0].fd);
    722     return rc;
    723 }
    724 
    725 static int init_umad(void)
    726 {
    727     long method_mask[IB_USER_MAD_LONGS_PER_METHOD_MASK];
    728 
    729     server.umad_agent.port_id = umad_open_port(server.args.rdma_dev_name,
    730                                                server.args.rdma_port_num);
    731 
    732     if (server.umad_agent.port_id < 0) {
    733         syslog(LOG_WARNING, "umad_open_port() failed");
    734         return -EIO;
    735     }
    736 
    737     memset(&method_mask, 0, sizeof(method_mask));
    738     method_mask[0] = MAD_METHOD_MASK0;
    739     server.umad_agent.agent_id = umad_register(server.umad_agent.port_id,
    740                                                UMAD_CLASS_CM,
    741                                                UMAD_SA_CLASS_VERSION,
    742                                                MAD_RMPP_VERSION, method_mask);
    743     if (server.umad_agent.agent_id < 0) {
    744         syslog(LOG_WARNING, "umad_register() failed");
    745         return -EIO;
    746     }
    747 
    748     hash_tbl_alloc();
    749 
    750     return 0;
    751 }
    752 
    753 static void signal_handler(int sig, siginfo_t *siginfo, void *context)
    754 {
    755     static bool warned;
    756 
    757     /* Prevent stop if clients are connected */
    758     if (server.nfds != 1) {
    759         if (!warned) {
    760             syslog(LOG_WARNING,
    761                    "Can't stop while active client exist, resend SIGINT to overid");
    762             warned = true;
    763             return;
    764         }
    765     }
    766 
    767     if (sig == SIGINT) {
    768         server.run = false;
    769         fini();
    770     }
    771 
    772     exit(0);
    773 }
    774 
    775 static int init(void)
    776 {
    777     int rc;
    778     struct sigaction sig = {};
    779 
    780     rc = init_listener();
    781     if (rc) {
    782         return rc;
    783     }
    784 
    785     rc = init_umad();
    786     if (rc) {
    787         return rc;
    788     }
    789 
    790     pthread_rwlock_init(&server.lock, 0);
    791 
    792     rc = pthread_create(&server.umad_recv_thread, NULL, umad_recv_thread_func,
    793                         NULL);
    794     if (rc) {
    795         syslog(LOG_ERR, "Fail to create UMAD receiver thread (%d)\n", rc);
    796         return rc;
    797     }
    798 
    799     sig.sa_sigaction = &signal_handler;
    800     sig.sa_flags = SA_SIGINFO;
    801     rc = sigaction(SIGINT, &sig, NULL);
    802     if (rc < 0) {
    803         syslog(LOG_ERR, "Fail to install SIGINT handler (%d)\n", errno);
    804         return rc;
    805     }
    806 
    807     return 0;
    808 }
    809 
    810 int main(int argc, char *argv[])
    811 {
    812     int rc;
    813 
    814     memset(&server, 0, sizeof(server));
    815 
    816     parse_args(argc, argv);
    817 
    818     rc = init();
    819     if (rc) {
    820         syslog(LOG_ERR, "Fail to initialize server (%d)\n", rc);
    821         rc = -EAGAIN;
    822         goto out;
    823     }
    824 
    825     run();
    826 
    827 out:
    828     fini();
    829 
    830     return rc;
    831 }