[BACK]Return to rumpclient.c CVS log [TXT][DIR] Up to [cvs.NetBSD.org] / src / lib / librumpclient

Please note that diffs are not public domain; they are subject to the copyright notices on the relevant files.

Diff for /src/lib/librumpclient/rumpclient.c between version 1.12 and 1.32

version 1.12, 2011/01/06 06:57:14 version 1.32, 2011/02/16 19:26:58
Line 33 
Line 33 
 __RCSID("$NetBSD");  __RCSID("$NetBSD");
   
 #include <sys/param.h>  #include <sys/param.h>
   #include <sys/event.h>
 #include <sys/mman.h>  #include <sys/mman.h>
 #include <sys/socket.h>  #include <sys/socket.h>
   
Line 41  __RCSID("$NetBSD");
Line 42  __RCSID("$NetBSD");
 #include <netinet/tcp.h>  #include <netinet/tcp.h>
   
 #include <assert.h>  #include <assert.h>
   #include <dlfcn.h>
 #include <errno.h>  #include <errno.h>
 #include <fcntl.h>  #include <fcntl.h>
   #include <link.h>
 #include <poll.h>  #include <poll.h>
 #include <pthread.h>  #include <pthread.h>
 #include <signal.h>  #include <signal.h>
 #include <stdarg.h>  #include <stdarg.h>
   #include <stdbool.h>
 #include <stdio.h>  #include <stdio.h>
 #include <stdlib.h>  #include <stdlib.h>
 #include <string.h>  #include <string.h>
Line 54  __RCSID("$NetBSD");
Line 58  __RCSID("$NetBSD");
   
 #include <rump/rumpclient.h>  #include <rump/rumpclient.h>
   
   #define HOSTOPS
   int     (*host_socket)(int, int, int);
   int     (*host_close)(int);
   int     (*host_connect)(int, const struct sockaddr *, socklen_t);
   int     (*host_fcntl)(int, int, ...);
   int     (*host_poll)(struct pollfd *, nfds_t, int);
   ssize_t (*host_read)(int, void *, size_t);
   ssize_t (*host_sendto)(int, const void *, size_t, int,
                          const struct sockaddr *, socklen_t);
   int     (*host_setsockopt)(int, int, int, const void *, socklen_t);
   int     (*host_dup)(int);
   
   int     (*host_kqueue)(void);
   int     (*host_kevent)(int, const struct kevent *, size_t,
                          struct kevent *, size_t, const struct timespec *);
   
   int     (*host_execve)(const char *, char *const[], char *const[]);
   
 #include "sp_common.c"  #include "sp_common.c"
   
 static struct spclient clispc = {  static struct spclient clispc = {
         .spc_fd = -1,          .spc_fd = -1,
 };  };
   
   static int kq = -1;
   static sigset_t fullset;
   
   static int doconnect(bool);
   static int handshake_req(struct spclient *, int, void *, int, bool);
   
 /*  /*
  * This version of waitresp is optimized for single-threaded clients   * Default: don't retry.  Most clients can't handle it
  * and is required by signal-safe clientside rump syscalls.   * (consider e.g. fds suddenly going missing).
  */   */
   static time_t retrytimo = 0;
   
 static void  static int
 releasercvlock(struct spclient *spc)  send_with_recon(struct spclient *spc, const void *data, size_t dlen)
 {  {
           struct timeval starttime, curtime;
           time_t prevreconmsg;
           unsigned reconretries;
           int rv;
   
         pthread_mutex_lock(&spc->spc_mtx);          for (prevreconmsg = 0, reconretries = 0;;) {
         if (spc->spc_istatus == SPCSTATUS_WANTED)                  rv = dosend(spc, data, dlen);
                 kickall(spc);                  if (__predict_false(rv == ENOTCONN || rv == EBADF)) {
         spc->spc_istatus = SPCSTATUS_FREE;                          /* no persistent connections */
                           if (retrytimo == 0) {
                                   rv = ENOTCONN;
                                   break;
                           }
                           if (retrytimo == RUMPCLIENT_RETRYCONN_DIE)
                                   exit(1);
   
                           if (!prevreconmsg) {
                                   prevreconmsg = time(NULL);
                                   gettimeofday(&starttime, NULL);
                           }
                           if (reconretries == 1) {
                                   if (retrytimo == RUMPCLIENT_RETRYCONN_ONCE) {
                                           rv = ENOTCONN;
                                           break;
                                   }
                                   fprintf(stderr, "rump_sp: connection to "
                                       "kernel lost, trying to reconnect ...\n");
                           } else if (time(NULL) - prevreconmsg > 120) {
                                   fprintf(stderr, "rump_sp: still trying to "
                                       "reconnect ...\n");
                                   prevreconmsg = time(NULL);
                           }
   
                           /* check that we aren't over the limit */
                           if (retrytimo > 0) {
                                   struct timeval tmp;
   
                                   gettimeofday(&curtime, NULL);
                                   timersub(&curtime, &starttime, &tmp);
                                   if (tmp.tv_sec >= retrytimo) {
                                           fprintf(stderr, "rump_sp: reconnect "
                                               "failed, %lld second timeout\n",
                                               (long long)retrytimo);
                                           return ENOTCONN;
                                   }
                           }
   
                           /* adhoc backoff timer */
                           if (reconretries < 10) {
                                   usleep(100000 * reconretries);
                           } else {
                                   sleep(MIN(10, reconretries-9));
                           }
                           reconretries++;
   
                           if ((rv = doconnect(false)) != 0)
                                   continue;
                           if ((rv = handshake_req(&clispc, HANDSHAKE_GUEST,
                               NULL, 0, true)) != 0)
                                   continue;
   
                           /*
                            * ok, reconnect succesful.  we need to return to
                            * the upper layer to get the entire PDU resent.
                            */
                           if (reconretries != 1)
                                   fprintf(stderr, "rump_sp: reconnected!\n");
                           rv = EAGAIN;
                           break;
                   } else {
                           _DIAGASSERT(errno != EAGAIN);
                           break;
                   }
           }
   
           return rv;
 }  }
   
 static sigset_t fullset;  
 static int  static int
 waitresp(struct spclient *spc, struct respwait *rw, sigset_t *mask)  cliwaitresp(struct spclient *spc, struct respwait *rw, sigset_t *mask,
           bool keeplock)
 {  {
         struct pollfd pfd;          uint64_t mygen;
         int rv = 0;          bool imalive = true;
   
         sendunlockl(spc);          pthread_mutex_lock(&spc->spc_mtx);
           if (!keeplock)
                   sendunlockl(spc);
           mygen = spc->spc_generation;
   
         rw->rw_error = 0;          rw->rw_error = 0;
         while (rw->rw_data == NULL && rw->rw_error == 0          while (!rw->rw_done && rw->rw_error == 0) {
             && spc->spc_state != SPCSTATE_DYING){                  if (__predict_false(spc->spc_generation != mygen || !imalive))
                           break;
   
                 /* are we free to receive? */                  /* are we free to receive? */
                 if (spc->spc_istatus == SPCSTATUS_FREE) {                  if (spc->spc_istatus == SPCSTATUS_FREE) {
                           struct kevent kev[8];
                           int gotresp, dosig, rv, i;
   
                         spc->spc_istatus = SPCSTATUS_BUSY;                          spc->spc_istatus = SPCSTATUS_BUSY;
                         pthread_mutex_unlock(&spc->spc_mtx);                          pthread_mutex_unlock(&spc->spc_mtx);
   
                         pfd.fd = spc->spc_fd;                          dosig = 0;
                         pfd.events = POLLIN;                          for (gotresp = 0; !gotresp; ) {
                                   switch (readframe(spc)) {
                         switch (readframe(spc)) {                                  case 0:
                         case 0:                                          rv = host_kevent(kq, NULL, 0,
                                 releasercvlock(spc);                                              kev, __arraycount(kev), NULL);
                                 pthread_mutex_unlock(&spc->spc_mtx);  
                                 pollts(&pfd, 1, NULL, mask);                                          if (__predict_false(rv == -1)) {
                                 pthread_mutex_lock(&spc->spc_mtx);                                                  goto cleanup;
                                 continue;                                          }
                         case -1:  
                                 releasercvlock(spc);                                          /*
                                 rv = errno;                                           * XXX: don't know how this can
                                 spc->spc_state = SPCSTATE_DYING;                                           * happen (timeout cannot expire
                                 continue;                                           * since there isn't one), but
                         default:                                           * it does happen
                                 break;                                           */
                         }                                          if (__predict_false(rv == 0))
                                                   continue;
   
                                           for (i = 0; i < rv; i++) {
                                                   if (kev[i].filter
                                                       == EVFILT_SIGNAL)
                                                           dosig++;
                                           }
                                           if (dosig)
                                                   goto cleanup;
   
                                           continue;
                                   case -1:
                                           imalive = false;
                                           goto cleanup;
                                   default:
                                           break;
                                   }
   
                         switch (spc->spc_hdr.rsp_class) {                                  switch (spc->spc_hdr.rsp_class) {
                                 case RUMPSP_RESP:                                  case RUMPSP_RESP:
                                 case RUMPSP_ERROR:                                  case RUMPSP_ERROR:
                                         kickwaiter(spc);                                          kickwaiter(spc);
                                           gotresp = spc->spc_hdr.rsp_reqno ==
                                               rw->rw_reqno;
                                         break;                                          break;
                                 case RUMPSP_REQ:                                  case RUMPSP_REQ:
                                         handlereq(spc);                                          handlereq(spc);
Line 122  waitresp(struct spclient *spc, struct re
Line 249  waitresp(struct spclient *spc, struct re
                                 default:                                  default:
                                         /* panic */                                          /* panic */
                                         break;                                          break;
                                   }
                         }                          }
   
                         releasercvlock(spc);   cleanup:
                           pthread_mutex_lock(&spc->spc_mtx);
                           if (spc->spc_istatus == SPCSTATUS_WANTED)
                                   kickall(spc);
                           spc->spc_istatus = SPCSTATUS_FREE;
   
                           /* take one for the team */
                           if (dosig) {
                                   pthread_mutex_unlock(&spc->spc_mtx);
                                   pthread_sigmask(SIG_SETMASK, mask, NULL);
                                   pthread_sigmask(SIG_SETMASK, &fullset, NULL);
                                   pthread_mutex_lock(&spc->spc_mtx);
                           }
                 } else {                  } else {
                         spc->spc_istatus = SPCSTATUS_WANTED;                          spc->spc_istatus = SPCSTATUS_WANTED;
                         pthread_cond_wait(&rw->rw_cv, &spc->spc_mtx);                          pthread_cond_wait(&rw->rw_cv, &spc->spc_mtx);
Line 134  waitresp(struct spclient *spc, struct re
Line 274  waitresp(struct spclient *spc, struct re
         pthread_mutex_unlock(&spc->spc_mtx);          pthread_mutex_unlock(&spc->spc_mtx);
         pthread_cond_destroy(&rw->rw_cv);          pthread_cond_destroy(&rw->rw_cv);
   
         if (rv)          if (spc->spc_generation != mygen || !imalive) {
                 return rv;  
         if (spc->spc_state == SPCSTATE_DYING)  
                 return ENOTCONN;                  return ENOTCONN;
           }
         return rw->rw_error;          return rw->rw_error;
 }  }
   
   
 static int  static int
 syscall_req(struct spclient *spc, int sysnum,  syscall_req(struct spclient *spc, sigset_t *omask, int sysnum,
         const void *data, size_t dlen, void **resp)          const void *data, size_t dlen, void **resp)
 {  {
         struct rsp_hdr rhdr;          struct rsp_hdr rhdr;
         struct respwait rw;          struct respwait rw;
         sigset_t omask;  
         int rv;          int rv;
   
         rhdr.rsp_len = sizeof(rhdr) + dlen;          rhdr.rsp_len = sizeof(rhdr) + dlen;
Line 156  syscall_req(struct spclient *spc, int sy
Line 293  syscall_req(struct spclient *spc, int sy
         rhdr.rsp_type = RUMPSP_SYSCALL;          rhdr.rsp_type = RUMPSP_SYSCALL;
         rhdr.rsp_sysnum = sysnum;          rhdr.rsp_sysnum = sysnum;
   
         pthread_sigmask(SIG_SETMASK, &fullset, &omask);  
         do {          do {
   
                 putwait(spc, &rw, &rhdr);                  putwait(spc, &rw, &rhdr);
                 rv = dosend(spc, &rhdr, sizeof(rhdr));                  if ((rv = send_with_recon(spc, &rhdr, sizeof(rhdr))) != 0) {
                 rv = dosend(spc, data, dlen);                          unputwait(spc, &rw);
                 if (rv) {                          continue;
                   }
                   if ((rv = send_with_recon(spc, data, dlen)) != 0) {
                         unputwait(spc, &rw);                          unputwait(spc, &rw);
                         pthread_sigmask(SIG_SETMASK, &omask, NULL);                          continue;
                         return rv;  
                 }                  }
   
                 rv = waitresp(spc, &rw, &omask);                  rv = cliwaitresp(spc, &rw, omask, false);
                   if (rv == ENOTCONN)
                           rv = EAGAIN;
         } while (rv == EAGAIN);          } while (rv == EAGAIN);
         pthread_sigmask(SIG_SETMASK, &omask, NULL);  
   
         *resp = rw.rw_data;          *resp = rw.rw_data;
         return rv;          return rv;
 }  }
   
 static int  static int
 handshake_req(struct spclient *spc, uint32_t *auth, int cancel)  handshake_req(struct spclient *spc, int type, void *data,
           int cancel, bool haslock)
 {  {
         struct handshake_fork rf;          struct handshake_fork rf;
         struct rsp_hdr rhdr;          struct rsp_hdr rhdr;
         struct respwait rw;          struct respwait rw;
         sigset_t omask;          sigset_t omask;
           size_t bonus;
         int rv;          int rv;
   
           if (type == HANDSHAKE_FORK) {
                   bonus = sizeof(rf);
           } else {
                   bonus = strlen(getprogname())+1;
           }
   
         /* performs server handshake */          /* performs server handshake */
         rhdr.rsp_len = sizeof(rhdr) + (auth ? sizeof(rf) : 0);          rhdr.rsp_len = sizeof(rhdr) + bonus;
         rhdr.rsp_class = RUMPSP_REQ;          rhdr.rsp_class = RUMPSP_REQ;
         rhdr.rsp_type = RUMPSP_HANDSHAKE;          rhdr.rsp_type = RUMPSP_HANDSHAKE;
         if (auth)          rhdr.rsp_handshake = type;
                 rhdr.rsp_handshake = HANDSHAKE_FORK;  
         else  
                 rhdr.rsp_handshake = HANDSHAKE_GUEST;  
   
         pthread_sigmask(SIG_SETMASK, &fullset, &omask);          pthread_sigmask(SIG_SETMASK, &fullset, &omask);
         putwait(spc, &rw, &rhdr);          if (haslock)
                   putwait_locked(spc, &rw, &rhdr);
           else
                   putwait(spc, &rw, &rhdr);
         rv = dosend(spc, &rhdr, sizeof(rhdr));          rv = dosend(spc, &rhdr, sizeof(rhdr));
         if (auth) {          if (type == HANDSHAKE_FORK) {
                 memcpy(rf.rf_auth, auth, AUTHLEN*sizeof(*auth));                  memcpy(rf.rf_auth, data, sizeof(rf.rf_auth)); /* uh, why? */
                 rf.rf_cancel = cancel;                  rf.rf_cancel = cancel;
                 rv = dosend(spc, &rf, sizeof(rf));                  rv = send_with_recon(spc, &rf, sizeof(rf));
         }          } else {
         if (rv != 0 || cancel) {                  rv = dosend(spc, getprogname(), strlen(getprogname())+1);
                 unputwait(spc, &rw);          }
                 pthread_sigmask(SIG_SETMASK, &omask, NULL);          if (rv || cancel) {
                 return rv;                  if (haslock)
                           unputwait_locked(spc, &rw);
                   else
                           unputwait(spc, &rw);
                   if (cancel) {
                           goto out;
                   }
           } else {
                   rv = cliwaitresp(spc, &rw, &omask, haslock);
         }          }
   
         rv = waitresp(spc, &rw, &omask);  
         pthread_sigmask(SIG_SETMASK, &omask, NULL);  
         if (rv)          if (rv)
                 return rv;                  goto out;
   
         rv = *(int *)rw.rw_data;          rv = *(int *)rw.rw_data;
         free(rw.rw_data);          free(rw.rw_data);
   
    out:
           pthread_sigmask(SIG_SETMASK, &omask, NULL);
         return rv;          return rv;
 }  }
   
 static int  static int
 prefork_req(struct spclient *spc, void **resp)  prefork_req(struct spclient *spc, sigset_t *omask, void **resp)
 {  {
         struct rsp_hdr rhdr;          struct rsp_hdr rhdr;
         struct respwait rw;          struct respwait rw;
         sigset_t omask;  
         int rv;          int rv;
   
         rhdr.rsp_len = sizeof(rhdr);          rhdr.rsp_len = sizeof(rhdr);
Line 232  prefork_req(struct spclient *spc, void *
Line 383  prefork_req(struct spclient *spc, void *
         rhdr.rsp_type = RUMPSP_PREFORK;          rhdr.rsp_type = RUMPSP_PREFORK;
         rhdr.rsp_error = 0;          rhdr.rsp_error = 0;
   
         pthread_sigmask(SIG_SETMASK, &fullset, &omask);          do {
         putwait(spc, &rw, &rhdr);                  putwait(spc, &rw, &rhdr);
         rv = dosend(spc, &rhdr, sizeof(rhdr));                  rv = send_with_recon(spc, &rhdr, sizeof(rhdr));
         if (rv != 0) {                  if (rv != 0) {
                 unputwait(spc, &rw);                          unputwait(spc, &rw);
                 pthread_sigmask(SIG_SETMASK, &omask, NULL);                          continue;
                 return rv;                  }
         }  
                   rv = cliwaitresp(spc, &rw, omask, false);
                   if (rv == ENOTCONN)
                           rv = EAGAIN;
           } while (rv == EAGAIN);
   
         rv = waitresp(spc, &rw, &omask);  
         pthread_sigmask(SIG_SETMASK, &omask, NULL);  
         *resp = rw.rw_data;          *resp = rw.rw_data;
         return rv;          return rv;
 }  }
   
   /*
    * prevent response code from deadlocking with reconnect code
    */
 static int  static int
   resp_sendlock(struct spclient *spc)
   {
           int rv = 0;
   
           pthread_mutex_lock(&spc->spc_mtx);
           while (spc->spc_ostatus != SPCSTATUS_FREE) {
                   if (__predict_false(spc->spc_reconnecting)) {
                           rv = EBUSY;
                           goto out;
                   }
                   spc->spc_ostatus = SPCSTATUS_WANTED;
                   pthread_cond_wait(&spc->spc_cv, &spc->spc_mtx);
           }
           spc->spc_ostatus = SPCSTATUS_BUSY;
   
    out:
           pthread_mutex_unlock(&spc->spc_mtx);
           return rv;
   }
   
   static void
 send_copyin_resp(struct spclient *spc, uint64_t reqno, void *data, size_t dlen,  send_copyin_resp(struct spclient *spc, uint64_t reqno, void *data, size_t dlen,
         int wantstr)          int wantstr)
 {  {
         struct rsp_hdr rhdr;          struct rsp_hdr rhdr;
         int rv;  
   
         if (wantstr)          if (wantstr)
                 dlen = MIN(dlen, strlen(data)+1);                  dlen = MIN(dlen, strlen(data)+1);
Line 263  send_copyin_resp(struct spclient *spc, u
Line 439  send_copyin_resp(struct spclient *spc, u
         rhdr.rsp_type = RUMPSP_COPYIN;          rhdr.rsp_type = RUMPSP_COPYIN;
         rhdr.rsp_sysnum = 0;          rhdr.rsp_sysnum = 0;
   
         sendlock(spc);          if (resp_sendlock(spc) != 0)
         rv = dosend(spc, &rhdr, sizeof(rhdr));                  return;
         rv = dosend(spc, data, dlen);          (void)dosend(spc, &rhdr, sizeof(rhdr));
           (void)dosend(spc, data, dlen);
         sendunlock(spc);          sendunlock(spc);
   
         return rv;  
 }  }
   
 static int  static void
 send_anonmmap_resp(struct spclient *spc, uint64_t reqno, void *addr)  send_anonmmap_resp(struct spclient *spc, uint64_t reqno, void *addr)
 {  {
         struct rsp_hdr rhdr;          struct rsp_hdr rhdr;
         int rv;  
   
         rhdr.rsp_len = sizeof(rhdr) + sizeof(addr);          rhdr.rsp_len = sizeof(rhdr) + sizeof(addr);
         rhdr.rsp_reqno = reqno;          rhdr.rsp_reqno = reqno;
Line 283  send_anonmmap_resp(struct spclient *spc,
Line 457  send_anonmmap_resp(struct spclient *spc,
         rhdr.rsp_type = RUMPSP_ANONMMAP;          rhdr.rsp_type = RUMPSP_ANONMMAP;
         rhdr.rsp_sysnum = 0;          rhdr.rsp_sysnum = 0;
   
         sendlock(spc);          if (resp_sendlock(spc) != 0)
         rv = dosend(spc, &rhdr, sizeof(rhdr));                  return;
         rv = dosend(spc, &addr, sizeof(addr));          (void)dosend(spc, &rhdr, sizeof(rhdr));
           (void)dosend(spc, &addr, sizeof(addr));
         sendunlock(spc);          sendunlock(spc);
   
         return rv;  
 }  }
   
 int  int
Line 296  rumpclient_syscall(int sysnum, const voi
Line 469  rumpclient_syscall(int sysnum, const voi
         register_t *retval)          register_t *retval)
 {  {
         struct rsp_sysresp *resp;          struct rsp_sysresp *resp;
           sigset_t omask;
         void *rdata;          void *rdata;
         int rv;          int rv;
   
           pthread_sigmask(SIG_SETMASK, &fullset, &omask);
   
         DPRINTF(("rumpsp syscall_req: syscall %d with %p/%zu\n",          DPRINTF(("rumpsp syscall_req: syscall %d with %p/%zu\n",
             sysnum, data, dlen));              sysnum, data, dlen));
   
         rv = syscall_req(&clispc, sysnum, data, dlen, &rdata);          rv = syscall_req(&clispc, &omask, sysnum, data, dlen, &rdata);
         if (rv)          if (rv)
                 return rv;                  goto out;
   
         resp = rdata;          resp = rdata;
         DPRINTF(("rumpsp syscall_resp: syscall %d error %d, rv: %d/%d\n",          DPRINTF(("rumpsp syscall_resp: syscall %d error %d, rv: %d/%d\n",
Line 314  rumpclient_syscall(int sysnum, const voi
Line 490  rumpclient_syscall(int sysnum, const voi
         rv = resp->rsys_error;          rv = resp->rsys_error;
         free(rdata);          free(rdata);
   
    out:
           pthread_sigmask(SIG_SETMASK, &omask, NULL);
         return rv;          return rv;
 }  }
   
Line 321  static void
Line 499  static void
 handlereq(struct spclient *spc)  handlereq(struct spclient *spc)
 {  {
         struct rsp_copydata *copydata;          struct rsp_copydata *copydata;
           struct rsp_hdr *rhdr = &spc->spc_hdr;
         void *mapaddr;          void *mapaddr;
         size_t maplen;          size_t maplen;
         int reqtype = spc->spc_hdr.rsp_type;          int reqtype = spc->spc_hdr.rsp_type;
Line 356  handlereq(struct spclient *spc)
Line 535  handlereq(struct spclient *spc)
                 DPRINTF(("rump_sp handlereq: anonmmap: %p\n", mapaddr));                  DPRINTF(("rump_sp handlereq: anonmmap: %p\n", mapaddr));
                 send_anonmmap_resp(spc, spc->spc_hdr.rsp_reqno, mapaddr);                  send_anonmmap_resp(spc, spc->spc_hdr.rsp_reqno, mapaddr);
                 break;                  break;
           case RUMPSP_RAISE:
                   DPRINTF(("rump_sp handlereq: raise sig %d\n", rhdr->rsp_signo));
                   raise((int)rhdr->rsp_signo);
                   /*
                    * We most likely have signals blocked, but the signal
                    * will be handled soon enough when we return.
                    */
                   break;
         default:          default:
                 printf("PANIC: INVALID TYPE %d\n", reqtype);                  printf("PANIC: INVALID TYPE %d\n", reqtype);
                 abort();                  abort();
Line 368  handlereq(struct spclient *spc)
Line 555  handlereq(struct spclient *spc)
 static unsigned ptab_idx;  static unsigned ptab_idx;
 static struct sockaddr *serv_sa;  static struct sockaddr *serv_sa;
   
   /* dup until we get a "good" fd which does not collide with stdio */
 static int  static int
 doconnect(void)  dupgood(int myfd, int mustchange)
 {  {
           int ofds[4];
           int i;
   
           for (i = 0; (myfd <= 2 || mustchange) && myfd != -1; i++) {
                   assert(i < __arraycount(ofds));
                   ofds[i] = myfd;
                   myfd = host_dup(myfd);
                   if (mustchange) {
                           i--; /* prevent closing old fd */
                           mustchange = 0;
                   }
           }
   
           for (i--; i >= 0; i--) {
                   host_close(ofds[i]);
           }
   
           return myfd;
   }
   
   static int
   doconnect(bool noisy)
   {
           struct respwait rw;
           struct rsp_hdr rhdr;
           struct kevent kev[NSIG+1];
         char banner[MAXBANNER];          char banner[MAXBANNER];
         int s, error;          struct pollfd pfd;
           int s, error, flags, i;
         ssize_t n;          ssize_t n;
   
         s = socket(parsetab[ptab_idx].domain, SOCK_STREAM, 0);          if (kq != -1)
                   host_close(kq);
           kq = -1;
           s = -1;
   
           if (clispc.spc_fd != -1)
                   host_close(clispc.spc_fd);
           clispc.spc_fd = -1;
   
           /*
            * for reconnect, gate everyone out of the receiver code
            */
           putwait_locked(&clispc, &rw, &rhdr);
   
           pthread_mutex_lock(&clispc.spc_mtx);
           clispc.spc_reconnecting = 1;
           pthread_cond_broadcast(&clispc.spc_cv);
           clispc.spc_generation++;
           while (clispc.spc_istatus != SPCSTATUS_FREE) {
                   clispc.spc_istatus = SPCSTATUS_WANTED;
                   pthread_cond_wait(&rw.rw_cv, &clispc.spc_mtx);
           }
           kickall(&clispc);
   
           /*
            * we can release it already since we hold the
            * send lock during reconnect
            * XXX: assert it
            */
           clispc.spc_istatus = SPCSTATUS_FREE;
           pthread_mutex_unlock(&clispc.spc_mtx);
           unputwait_locked(&clispc, &rw);
   
           free(clispc.spc_buf);
           clispc.spc_off = 0;
   
           s = dupgood(host_socket(parsetab[ptab_idx].domain, SOCK_STREAM, 0), 0);
         if (s == -1)          if (s == -1)
                 return -1;                  return -1;
   
         if (connect(s, serv_sa, (socklen_t)serv_sa->sa_len) == -1) {          pfd.fd = s;
           pfd.events = POLLIN;
           while (host_connect(s, serv_sa, (socklen_t)serv_sa->sa_len) == -1) {
                   if (errno == EINTR)
                           continue;
                 error = errno;                  error = errno;
                 fprintf(stderr, "rump_sp: client connect failed\n");                  if (noisy)
                           fprintf(stderr, "rump_sp: client connect failed: %s\n",
                               strerror(errno));
                 errno = error;                  errno = error;
                 return -1;                  return -1;
         }          }
   
         if ((error = parsetab[ptab_idx].connhook(s)) != 0) {          if ((error = parsetab[ptab_idx].connhook(s)) != 0) {
                 error = errno;                  error = errno;
                 fprintf(stderr, "rump_sp: connect hook failed\n");                  if (noisy)
                           fprintf(stderr, "rump_sp: connect hook failed\n");
                 errno = error;                  errno = error;
                 return -1;                  return -1;
         }          }
   
         if ((n = read(s, banner, sizeof(banner)-1)) < 0) {          if ((n = host_read(s, banner, sizeof(banner)-1)) < 0) {
                 error = errno;                  error = errno;
                 fprintf(stderr, "rump_sp: failed to read banner\n");                  if (noisy)
                           fprintf(stderr, "rump_sp: failed to read banner\n");
                 errno = error;                  errno = error;
                 return -1;                  return -1;
         }          }
   
         if (banner[n-1] != '\n') {          if (banner[n-1] != '\n') {
                 fprintf(stderr, "rump_sp: invalid banner\n");                  if (noisy)
                           fprintf(stderr, "rump_sp: invalid banner\n");
                 errno = EINVAL;                  errno = EINVAL;
                 return -1;                  return -1;
         }          }
         banner[n] = '\0';          banner[n] = '\0';
   
         /* parse the banner some day */          /* parse the banner some day */
   
           flags = host_fcntl(s, F_GETFL, 0);
           if (host_fcntl(s, F_SETFL, flags | O_NONBLOCK) == -1) {
                   if (noisy)
                           fprintf(stderr, "rump_sp: socket fd NONBLOCK: %s\n",
                               strerror(errno));
                   errno = EINVAL;
                   return -1;
           }
         clispc.spc_fd = s;          clispc.spc_fd = s;
           clispc.spc_state = SPCSTATE_RUNNING;
           clispc.spc_reconnecting = 0;
   
           /* setup kqueue, we want all signals and the fd */
           if ((kq = dupgood(host_kqueue(), 0)) == -1) {
                   error = errno;
                   if (noisy)
                           fprintf(stderr, "rump_sp: cannot setup kqueue");
                   errno = error;
                   return -1;
           }
   
           for (i = 0; i < NSIG; i++) {
                   EV_SET(&kev[i], i+1, EVFILT_SIGNAL, EV_ADD|EV_ENABLE, 0, 0, 0);
           }
           EV_SET(&kev[NSIG], clispc.spc_fd,
               EVFILT_READ, EV_ADD|EV_ENABLE, 0, 0, 0);
           if (host_kevent(kq, kev, NSIG+1, NULL, 0, NULL) == -1) {
                   error = errno;
                   if (noisy)
                           fprintf(stderr, "rump_sp: kevent() failed");
                   errno = error;
                   return -1;
           }
   
           return 0;
   }
   
   static int
   doinit(void)
   {
   
         TAILQ_INIT(&clispc.spc_respwait);          TAILQ_INIT(&clispc.spc_respwait);
         pthread_mutex_init(&clispc.spc_mtx, NULL);          pthread_mutex_init(&clispc.spc_mtx, NULL);
         pthread_cond_init(&clispc.spc_cv, NULL);          pthread_cond_init(&clispc.spc_cv, NULL);
Line 417  doconnect(void)
Line 716  doconnect(void)
         return 0;          return 0;
 }  }
   
   void *(*rumpclient_dlsym)(void *, const char *);
   static int init_done = 0;
   
 int  int
 rumpclient_init()  rumpclient_init()
 {  {
         char *p;          char *p;
         int error;          int error;
           int rv = -1;
           int hstype;
   
         if ((p = getenv("RUMP_SERVER")) == NULL) {          if (init_done)
                 errno = ENOENT;                  return 0;
                 return -1;          init_done = 1;
   
           sigfillset(&fullset);
   
           /* dlsym overrided by rumphijack? */
           if (!rumpclient_dlsym)
                   rumpclient_dlsym = dlsym;
   
           /*
            * sag mir, wo die symbol sind.  zogen fort, der krieg beginnt.
            * wann wird man je verstehen?  wann wird man je verstehen?
            */
   #define FINDSYM2(_name_,_syscall_)                                      \
           if ((host_##_name_ = rumpclient_dlsym(RTLD_NEXT,                \
               #_syscall_)) == NULL)                                       \
                   /* host_##_name_ = _syscall_ */;
   #define FINDSYM(_name_) FINDSYM2(_name_,_name_)
           FINDSYM2(socket,__socket30);
           FINDSYM(close);
           FINDSYM(connect);
           FINDSYM(fcntl);
           FINDSYM(poll);
           FINDSYM(read);
           FINDSYM(sendto);
           FINDSYM(setsockopt);
           FINDSYM(dup);
           FINDSYM(kqueue);
           FINDSYM(execve);
   #if !__NetBSD_Prereq__(5,99,7)
           FINDSYM(kevent);
   #else
           FINDSYM2(kevent,_sys___kevent50);
   #endif
   #undef  FINDSYM
   #undef  FINDSY2
   
           if ((p = getenv("RUMP__PARSEDSERVER")) == NULL) {
                   if ((p = getenv("RUMP_SERVER")) == NULL) {
                           errno = ENOENT;
                           goto out;
                   }
         }          }
   
         if ((error = parseurl(p, &serv_sa, &ptab_idx, 0)) != 0) {          if ((error = parseurl(p, &serv_sa, &ptab_idx, 0)) != 0) {
                 errno = error;                  errno = error;
                 return -1;                  goto out;
         }          }
   
         if (doconnect() == -1)          if (doinit() == -1)
                 return -1;                  goto out;
   
         error = handshake_req(&clispc, NULL, 0);          if ((p = getenv("RUMPCLIENT__EXECFD")) != NULL) {
                   sscanf(p, "%d,%d", &clispc.spc_fd, &kq);
                   unsetenv("RUMPCLIENT__EXECFD");
                   hstype = HANDSHAKE_EXEC;
           } else {
                   if (doconnect(true) == -1)
                           goto out;
                   hstype = HANDSHAKE_GUEST;
           }
   
           error = handshake_req(&clispc, hstype, NULL, 0, false);
         if (error) {          if (error) {
                 pthread_mutex_destroy(&clispc.spc_mtx);                  pthread_mutex_destroy(&clispc.spc_mtx);
                 pthread_cond_destroy(&clispc.spc_cv);                  pthread_cond_destroy(&clispc.spc_cv);
                 close(clispc.spc_fd);                  if (clispc.spc_fd != -1)
                           host_close(clispc.spc_fd);
                 errno = error;                  errno = error;
                 return -1;                  goto out;
         }          }
           rv = 0;
   
         sigfillset(&fullset);   out:
         return 0;          if (rv == -1)
                   init_done = 0;
           return rv;
 }  }
   
 struct rumpclient_fork {  struct rumpclient_fork {
         uint32_t fork_auth[AUTHLEN];          uint32_t fork_auth[AUTHLEN];
           struct spclient fork_spc;
           int fork_kq;
 };  };
   
 struct rumpclient_fork *  struct rumpclient_fork *
 rumpclient_prefork(void)  rumpclient_prefork(void)
 {  {
         struct rumpclient_fork *rpf;          struct rumpclient_fork *rpf;
           sigset_t omask;
         void *resp;          void *resp;
         int rv;          int rv;
   
           pthread_sigmask(SIG_SETMASK, &fullset, &omask);
         rpf = malloc(sizeof(*rpf));          rpf = malloc(sizeof(*rpf));
         if (rpf == NULL)          if (rpf == NULL)
                 return NULL;                  goto out;
   
         if ((rv = prefork_req(&clispc, &resp)) != 0) {          if ((rv = prefork_req(&clispc, &omask, &resp)) != 0) {
                 free(rpf);                  free(rpf);
                 errno = rv;                  errno = rv;
                 return NULL;                  rpf = NULL;
                   goto out;
         }          }
   
         memcpy(rpf->fork_auth, resp, sizeof(rpf->fork_auth));          memcpy(rpf->fork_auth, resp, sizeof(rpf->fork_auth));
         free(resp);          free(resp);
   
           rpf->fork_spc = clispc;
           rpf->fork_kq = kq;
   
    out:
           pthread_sigmask(SIG_SETMASK, &omask, NULL);
         return rpf;          return rpf;
 }  }
   
Line 480  int
Line 848  int
 rumpclient_fork_init(struct rumpclient_fork *rpf)  rumpclient_fork_init(struct rumpclient_fork *rpf)
 {  {
         int error;          int error;
           int osock;
   
         close(clispc.spc_fd);          osock = clispc.spc_fd;
         memset(&clispc, 0, sizeof(clispc));          memset(&clispc, 0, sizeof(clispc));
         clispc.spc_fd = -1;          clispc.spc_fd = osock;
   
         if (doconnect() == -1)          kq = -1; /* kqueue descriptor is not copied over fork() */
   
           if (doinit() == -1)
                   return -1;
           if (doconnect(false) == -1)
                 return -1;                  return -1;
   
         error = handshake_req(&clispc, rpf->fork_auth, 0);          error = handshake_req(&clispc, HANDSHAKE_FORK, rpf->fork_auth,
               0, false);
         if (error) {          if (error) {
                 pthread_mutex_destroy(&clispc.spc_mtx);                  pthread_mutex_destroy(&clispc.spc_mtx);
                 pthread_cond_destroy(&clispc.spc_cv);                  pthread_cond_destroy(&clispc.spc_cv);
Line 498  rumpclient_fork_init(struct rumpclient_f
Line 872  rumpclient_fork_init(struct rumpclient_f
   
         return 0;          return 0;
 }  }
   
   void
   rumpclient_fork_cancel(struct rumpclient_fork *rpf)
   {
   
           /* EUNIMPL */
   }
   
   void
   rumpclient_fork_vparent(struct rumpclient_fork *rpf)
   {
   
           clispc = rpf->fork_spc;
           kq = rpf->fork_kq;
   }
   
   void
   rumpclient_setconnretry(time_t timeout)
   {
   
           if (timeout < RUMPCLIENT_RETRYCONN_DIE)
                   return; /* gigo */
   
           retrytimo = timeout;
   }
   
   int
   rumpclient__closenotify(int *fdp, enum rumpclient_closevariant variant)
   {
           int fd = *fdp;
           int untilfd, rv;
           int newfd;
   
           switch (variant) {
           case RUMPCLIENT_CLOSE_FCLOSEM:
                   untilfd = MAX(clispc.spc_fd, kq);
                   for (; fd <= untilfd; fd++) {
                           if (fd == clispc.spc_fd || fd == kq)
                                   continue;
                           rv = host_close(fd);
                           if (rv == -1)
                                   return -1;
                   }
                   *fdp = fd;
                   break;
   
           case RUMPCLIENT_CLOSE_CLOSE:
           case RUMPCLIENT_CLOSE_DUP2:
                   if (fd == clispc.spc_fd) {
                           struct kevent kev[2];
   
                           newfd = dupgood(clispc.spc_fd, 1);
                           if (newfd == -1)
                                   return -1;
                           /*
                            * now, we have a new socket number, so change
                            * the file descriptor that kqueue is
                            * monitoring.  remove old and add new.
                            */
                           EV_SET(&kev[0], clispc.spc_fd,
                               EVFILT_READ, EV_DELETE, 0, 0, 0);
                           EV_SET(&kev[1], newfd,
                               EVFILT_READ, EV_ADD|EV_ENABLE, 0, 0, 0);
                           if (host_kevent(kq, kev, 2, NULL, 0, NULL) == -1) {
                                   int sverrno = errno;
                                   host_close(newfd);
                                   errno = sverrno;
                                   return -1;
                           }
                           clispc.spc_fd = newfd;
                   }
                   if (fd == kq) {
                           newfd = dupgood(kq, 1);
                           if (newfd == -1)
                                   return -1;
                           kq = newfd;
                   }
                   break;
           }
   
           return 0;
   }
   
   pid_t
   rumpclient_fork()
   {
   
           return rumpclient__dofork(fork);
   }
   
   /*
    * Process is about to exec.  Save info about our existing connection
    * in the env.  rumpclient will check for this info in init().
    * This is mostly for the benefit of rumphijack, but regular applications
    * may use it as well.
    */
   int
   rumpclient_exec(const char *path, char *const argv[], char *const envp[])
   {
           char buf[4096];
           char **newenv;
           char *envstr, *envstr2;
           size_t nelem;
           int rv, sverrno;
   
           snprintf(buf, sizeof(buf), "RUMPCLIENT__EXECFD=%d,%d",
               clispc.spc_fd, kq);
           envstr = malloc(strlen(buf)+1);
           if (envstr == NULL) {
                   return ENOMEM;
           }
           strcpy(envstr, buf);
   
           /* do we have a fully parsed url we want to forward in the env? */
           if (*parsedurl != '\0') {
                   snprintf(buf, sizeof(buf),
                       "RUMP__PARSEDSERVER=%s", parsedurl);
                   envstr2 = malloc(strlen(buf)+1);
                   if (envstr2 == NULL) {
                           free(envstr);
                           return ENOMEM;
                   }
                   strcpy(envstr2, buf);
           } else {
                   envstr2 = NULL;
           }
   
           for (nelem = 0; envp && envp[nelem]; nelem++)
                   continue;
   
           newenv = malloc(sizeof(*newenv) * nelem+3);
           if (newenv == NULL) {
                   free(envstr2);
                   free(envstr);
                   return ENOMEM;
           }
           memcpy(&newenv[0], envp, nelem*sizeof(*envp));
   
           newenv[nelem] = envstr;
           newenv[nelem+1] = envstr2;
           newenv[nelem+2] = NULL;
   
           rv = host_execve(path, argv, newenv);
   
           _DIAGASSERT(rv != 0);
           sverrno = errno;
           free(envstr2);
           free(envstr);
           free(newenv);
           errno = sverrno;
           return rv;
   }
   
   int
   rumpclient_daemon(int nochdir, int noclose)
   {
           struct rumpclient_fork *rf;
           int sverrno;
   
           if ((rf = rumpclient_prefork()) == NULL)
                   return -1;
   
           if (daemon(nochdir, noclose) == -1) {
                   sverrno = errno;
                   rumpclient_fork_cancel(rf);
                   errno = sverrno;
                   return -1;
           }
   
           if (rumpclient_fork_init(rf) == -1)
                   return -1;
   
           return 0;
   }
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.32
CVSweb <webmaster@jp.NetBSD.org>