1177633Sdfr/* $NetBSD: clnt_dg.c,v 1.4 2000/07/14 08:40:41 fvdl Exp $ */ 2177633Sdfr 3177633Sdfr/* 4177633Sdfr * Sun RPC is a product of Sun Microsystems, Inc. and is provided for 5177633Sdfr * unrestricted use provided that this legend is included on all tape 6177633Sdfr * media and as a part of the software program in whole or part. Users 7177633Sdfr * may copy or modify Sun RPC without charge, but are not authorized 8177633Sdfr * to license or distribute it to anyone else except as part of a product or 9177633Sdfr * program developed by the user. 10177633Sdfr * 11177633Sdfr * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE 12177633Sdfr * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR 13177633Sdfr * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE. 14177633Sdfr * 15177633Sdfr * Sun RPC is provided with no support and without any obligation on the 16177633Sdfr * part of Sun Microsystems, Inc. to assist in its use, correction, 17177633Sdfr * modification or enhancement. 18177633Sdfr * 19177633Sdfr * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE 20177633Sdfr * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC 21177633Sdfr * OR ANY PART THEREOF. 22177633Sdfr * 23177633Sdfr * In no event will Sun Microsystems, Inc. be liable for any lost revenue 24177633Sdfr * or profits or other special, indirect and consequential damages, even if 25177633Sdfr * Sun has been advised of the possibility of such damages. 26177633Sdfr * 27177633Sdfr * Sun Microsystems, Inc. 28177633Sdfr * 2550 Garcia Avenue 29177633Sdfr * Mountain View, California 94043 30177633Sdfr */ 31177633Sdfr/* 32177633Sdfr * Copyright (c) 1986-1991 by Sun Microsystems Inc. 33177633Sdfr */ 34177633Sdfr 35177633Sdfr#if defined(LIBC_SCCS) && !defined(lint) 36177633Sdfr#ident "@(#)clnt_dg.c 1.23 94/04/22 SMI" 37177633Sdfrstatic char sccsid[] = "@(#)clnt_dg.c 1.19 89/03/16 Copyr 1988 Sun Micro"; 38177633Sdfr#endif 39177633Sdfr#include <sys/cdefs.h> 40177633Sdfr__FBSDID("$FreeBSD$"); 41177633Sdfr 42177633Sdfr/* 43177633Sdfr * Implements a connectionless client side RPC. 44177633Sdfr */ 45177633Sdfr 46177633Sdfr#include <sys/param.h> 47177633Sdfr#include <sys/systm.h> 48180025Sdfr#include <sys/kernel.h> 49177633Sdfr#include <sys/lock.h> 50177633Sdfr#include <sys/malloc.h> 51177633Sdfr#include <sys/mbuf.h> 52177633Sdfr#include <sys/mutex.h> 53177633Sdfr#include <sys/pcpu.h> 54177633Sdfr#include <sys/proc.h> 55177633Sdfr#include <sys/socket.h> 56177633Sdfr#include <sys/socketvar.h> 57177633Sdfr#include <sys/time.h> 58177633Sdfr#include <sys/uio.h> 59177633Sdfr 60196503Szec#include <net/vnet.h> 61196503Szec 62177633Sdfr#include <rpc/rpc.h> 63177685Sdfr#include <rpc/rpc_com.h> 64177633Sdfr 65177633Sdfr 66177633Sdfr#ifdef _FREEFALL_CONFIG 67177633Sdfr/* 68177633Sdfr * Disable RPC exponential back-off for FreeBSD.org systems. 69177633Sdfr */ 70177633Sdfr#define RPC_MAX_BACKOFF 1 /* second */ 71177633Sdfr#else 72177633Sdfr#define RPC_MAX_BACKOFF 30 /* seconds */ 73177633Sdfr#endif 74177633Sdfr 75177633Sdfrstatic bool_t time_not_ok(struct timeval *); 76180025Sdfrstatic enum clnt_stat clnt_dg_call(CLIENT *, struct rpc_callextra *, 77184588Sdfr rpcproc_t, struct mbuf *, struct mbuf **, struct timeval); 78177633Sdfrstatic void clnt_dg_geterr(CLIENT *, struct rpc_err *); 79177633Sdfrstatic bool_t clnt_dg_freeres(CLIENT *, xdrproc_t, void *); 80177633Sdfrstatic void clnt_dg_abort(CLIENT *); 81177633Sdfrstatic bool_t clnt_dg_control(CLIENT *, u_int, void *); 82184588Sdfrstatic void clnt_dg_close(CLIENT *); 83177633Sdfrstatic void clnt_dg_destroy(CLIENT *); 84193272Sjhbstatic int clnt_dg_soupcall(struct socket *so, void *arg, int waitflag); 85177633Sdfr 86177633Sdfrstatic struct clnt_ops clnt_dg_ops = { 87177633Sdfr .cl_call = clnt_dg_call, 88177633Sdfr .cl_abort = clnt_dg_abort, 89177633Sdfr .cl_geterr = clnt_dg_geterr, 90177633Sdfr .cl_freeres = clnt_dg_freeres, 91184588Sdfr .cl_close = clnt_dg_close, 92177633Sdfr .cl_destroy = clnt_dg_destroy, 93177633Sdfr .cl_control = clnt_dg_control 94177633Sdfr}; 95177633Sdfr 96177633Sdfrstatic const char mem_err_clnt_dg[] = "clnt_dg_create: out of memory"; 97177633Sdfr 98177633Sdfr/* 99180025Sdfr * A pending RPC request which awaits a reply. Requests which have 100180025Sdfr * received their reply will have cr_xid set to zero and cr_mrep to 101180025Sdfr * the mbuf chain of the reply. 102177633Sdfr */ 103177633Sdfrstruct cu_request { 104177633Sdfr TAILQ_ENTRY(cu_request) cr_link; 105180025Sdfr CLIENT *cr_client; /* owner */ 106177633Sdfr uint32_t cr_xid; /* XID of request */ 107177633Sdfr struct mbuf *cr_mrep; /* reply received by upcall */ 108177633Sdfr int cr_error; /* any error from upcall */ 109184588Sdfr char cr_verf[MAX_AUTH_BYTES]; /* reply verf */ 110177633Sdfr}; 111177633Sdfr 112177633SdfrTAILQ_HEAD(cu_request_list, cu_request); 113177633Sdfr 114177633Sdfr#define MCALL_MSG_SIZE 24 115177633Sdfr 116177633Sdfr/* 117193272Sjhb * This structure is pointed to by the socket buffer's sb_upcallarg 118177633Sdfr * member. It is separate from the client private data to facilitate 119177633Sdfr * multiple clients sharing the same socket. The cs_lock mutex is used 120177633Sdfr * to protect all fields of this structure, the socket's receive 121177633Sdfr * buffer SOCKBUF_LOCK is used to ensure that exactly one of these 122177633Sdfr * structures is installed on the socket. 123177633Sdfr */ 124177633Sdfrstruct cu_socket { 125177633Sdfr struct mtx cs_lock; 126177633Sdfr int cs_refs; /* Count of clients */ 127177633Sdfr struct cu_request_list cs_pending; /* Requests awaiting replies */ 128193437Srmacklem int cs_upcallrefs; /* Refcnt of upcalls in prog.*/ 129177633Sdfr}; 130177633Sdfr 131193437Srmacklemstatic void clnt_dg_upcallsdone(struct socket *, struct cu_socket *); 132193437Srmacklem 133177633Sdfr/* 134177633Sdfr * Private data kept per client handle 135177633Sdfr */ 136177633Sdfrstruct cu_data { 137180025Sdfr int cu_threads; /* # threads in clnt_vc_call */ 138184588Sdfr bool_t cu_closing; /* TRUE if we are closing */ 139184588Sdfr bool_t cu_closed; /* TRUE if we are closed */ 140177633Sdfr struct socket *cu_socket; /* connection socket */ 141177633Sdfr bool_t cu_closeit; /* opened by library */ 142177633Sdfr struct sockaddr_storage cu_raddr; /* remote address */ 143177633Sdfr int cu_rlen; 144177633Sdfr struct timeval cu_wait; /* retransmit interval */ 145177633Sdfr struct timeval cu_total; /* total time for the call */ 146177633Sdfr struct rpc_err cu_error; 147177633Sdfr uint32_t cu_xid; 148177633Sdfr char cu_mcallc[MCALL_MSG_SIZE]; /* marshalled callmsg */ 149177633Sdfr size_t cu_mcalllen; 150177633Sdfr size_t cu_sendsz; /* send size */ 151177633Sdfr size_t cu_recvsz; /* recv size */ 152177633Sdfr int cu_async; 153177633Sdfr int cu_connect; /* Use connect(). */ 154177633Sdfr int cu_connected; /* Have done connect(). */ 155177633Sdfr const char *cu_waitchan; 156177633Sdfr int cu_waitflag; 157184588Sdfr int cu_cwnd; /* congestion window */ 158184588Sdfr int cu_sent; /* number of in-flight RPCs */ 159184588Sdfr bool_t cu_cwnd_wait; 160177633Sdfr}; 161177633Sdfr 162184588Sdfr#define CWNDSCALE 256 163184588Sdfr#define MAXCWND (32 * CWNDSCALE) 164184588Sdfr 165177633Sdfr/* 166177633Sdfr * Connection less client creation returns with client handle parameters. 167177633Sdfr * Default options are set, which the user can change using clnt_control(). 168177633Sdfr * fd should be open and bound. 169177633Sdfr * NB: The rpch->cl_auth is initialized to null authentication. 170177633Sdfr * Caller may wish to set this something more useful. 171177633Sdfr * 172177633Sdfr * sendsz and recvsz are the maximum allowable packet sizes that can be 173177633Sdfr * sent and received. Normally they are the same, but they can be 174177633Sdfr * changed to improve the program efficiency and buffer allocation. 175177633Sdfr * If they are 0, use the transport default. 176177633Sdfr * 177177633Sdfr * If svcaddr is NULL, returns NULL. 178177633Sdfr */ 179177633SdfrCLIENT * 180177633Sdfrclnt_dg_create( 181177633Sdfr struct socket *so, 182177633Sdfr struct sockaddr *svcaddr, /* servers address */ 183177633Sdfr rpcprog_t program, /* program number */ 184177633Sdfr rpcvers_t version, /* version number */ 185177633Sdfr size_t sendsz, /* buffer recv size */ 186177633Sdfr size_t recvsz) /* buffer send size */ 187177633Sdfr{ 188177633Sdfr CLIENT *cl = NULL; /* client handle */ 189177633Sdfr struct cu_data *cu = NULL; /* private data */ 190177633Sdfr struct cu_socket *cs = NULL; 191193272Sjhb struct sockbuf *sb; 192177633Sdfr struct timeval now; 193177633Sdfr struct rpc_msg call_msg; 194177633Sdfr struct __rpc_sockinfo si; 195177633Sdfr XDR xdrs; 196213756Srmacklem int error; 197177633Sdfr 198177633Sdfr if (svcaddr == NULL) { 199177633Sdfr rpc_createerr.cf_stat = RPC_UNKNOWNADDR; 200177633Sdfr return (NULL); 201177633Sdfr } 202177633Sdfr 203177633Sdfr if (!__rpc_socket2sockinfo(so, &si)) { 204177633Sdfr rpc_createerr.cf_stat = RPC_TLIERROR; 205177633Sdfr rpc_createerr.cf_error.re_errno = 0; 206177633Sdfr return (NULL); 207177633Sdfr } 208177633Sdfr 209177633Sdfr /* 210177633Sdfr * Find the receive and the send size 211177633Sdfr */ 212177633Sdfr sendsz = __rpc_get_t_size(si.si_af, si.si_proto, (int)sendsz); 213177633Sdfr recvsz = __rpc_get_t_size(si.si_af, si.si_proto, (int)recvsz); 214177633Sdfr if ((sendsz == 0) || (recvsz == 0)) { 215177633Sdfr rpc_createerr.cf_stat = RPC_TLIERROR; /* XXX */ 216177633Sdfr rpc_createerr.cf_error.re_errno = 0; 217177633Sdfr return (NULL); 218177633Sdfr } 219177633Sdfr 220177633Sdfr cl = mem_alloc(sizeof (CLIENT)); 221177633Sdfr 222177633Sdfr /* 223177633Sdfr * Should be multiple of 4 for XDR. 224177633Sdfr */ 225177633Sdfr sendsz = ((sendsz + 3) / 4) * 4; 226177633Sdfr recvsz = ((recvsz + 3) / 4) * 4; 227177633Sdfr cu = mem_alloc(sizeof (*cu)); 228180025Sdfr cu->cu_threads = 0; 229180025Sdfr cu->cu_closing = FALSE; 230184588Sdfr cu->cu_closed = FALSE; 231177633Sdfr (void) memcpy(&cu->cu_raddr, svcaddr, (size_t)svcaddr->sa_len); 232177633Sdfr cu->cu_rlen = svcaddr->sa_len; 233177633Sdfr /* Other values can also be set through clnt_control() */ 234180025Sdfr cu->cu_wait.tv_sec = 3; /* heuristically chosen */ 235177633Sdfr cu->cu_wait.tv_usec = 0; 236177633Sdfr cu->cu_total.tv_sec = -1; 237177633Sdfr cu->cu_total.tv_usec = -1; 238177633Sdfr cu->cu_sendsz = sendsz; 239177633Sdfr cu->cu_recvsz = recvsz; 240177633Sdfr cu->cu_async = FALSE; 241177633Sdfr cu->cu_connect = FALSE; 242177633Sdfr cu->cu_connected = FALSE; 243177633Sdfr cu->cu_waitchan = "rpcrecv"; 244177633Sdfr cu->cu_waitflag = 0; 245184588Sdfr cu->cu_cwnd = MAXCWND / 2; 246184588Sdfr cu->cu_sent = 0; 247184588Sdfr cu->cu_cwnd_wait = FALSE; 248177633Sdfr (void) getmicrotime(&now); 249177633Sdfr cu->cu_xid = __RPC_GETXID(&now); 250177633Sdfr call_msg.rm_xid = cu->cu_xid; 251177633Sdfr call_msg.rm_call.cb_prog = program; 252177633Sdfr call_msg.rm_call.cb_vers = version; 253177633Sdfr xdrmem_create(&xdrs, cu->cu_mcallc, MCALL_MSG_SIZE, XDR_ENCODE); 254177633Sdfr if (! xdr_callhdr(&xdrs, &call_msg)) { 255177633Sdfr rpc_createerr.cf_stat = RPC_CANTENCODEARGS; /* XXX */ 256177633Sdfr rpc_createerr.cf_error.re_errno = 0; 257177633Sdfr goto err2; 258177633Sdfr } 259201758Smbr cu->cu_mcalllen = XDR_GETPOS(&xdrs); 260177633Sdfr 261177633Sdfr /* 262177633Sdfr * By default, closeit is always FALSE. It is users responsibility 263177633Sdfr * to do a close on it, else the user may use clnt_control 264177633Sdfr * to let clnt_destroy do it for him/her. 265177633Sdfr */ 266177633Sdfr cu->cu_closeit = FALSE; 267177633Sdfr cu->cu_socket = so; 268213756Srmacklem error = soreserve(so, (u_long)sendsz, (u_long)recvsz); 269213756Srmacklem if (error != 0) { 270213756Srmacklem rpc_createerr.cf_stat = RPC_FAILED; 271213756Srmacklem rpc_createerr.cf_error.re_errno = error; 272213756Srmacklem goto err2; 273213756Srmacklem } 274177633Sdfr 275193272Sjhb sb = &so->so_rcv; 276177633Sdfr SOCKBUF_LOCK(&so->so_rcv); 277177633Sdfrrecheck_socket: 278193272Sjhb if (sb->sb_upcall) { 279193272Sjhb if (sb->sb_upcall != clnt_dg_soupcall) { 280177633Sdfr SOCKBUF_UNLOCK(&so->so_rcv); 281177633Sdfr printf("clnt_dg_create(): socket already has an incompatible upcall\n"); 282177633Sdfr goto err2; 283177633Sdfr } 284193272Sjhb cs = (struct cu_socket *) sb->sb_upcallarg; 285177633Sdfr mtx_lock(&cs->cs_lock); 286177633Sdfr cs->cs_refs++; 287177633Sdfr mtx_unlock(&cs->cs_lock); 288177633Sdfr } else { 289177633Sdfr /* 290177633Sdfr * We are the first on this socket - allocate the 291177633Sdfr * structure and install it in the socket. 292177633Sdfr */ 293193272Sjhb SOCKBUF_UNLOCK(&so->so_rcv); 294177633Sdfr cs = mem_alloc(sizeof(*cs)); 295193272Sjhb SOCKBUF_LOCK(&so->so_rcv); 296193272Sjhb if (sb->sb_upcall) { 297177633Sdfr /* 298177633Sdfr * We have lost a race with some other client. 299177633Sdfr */ 300177633Sdfr mem_free(cs, sizeof(*cs)); 301177633Sdfr goto recheck_socket; 302177633Sdfr } 303177633Sdfr mtx_init(&cs->cs_lock, "cs->cs_lock", NULL, MTX_DEF); 304177633Sdfr cs->cs_refs = 1; 305193437Srmacklem cs->cs_upcallrefs = 0; 306177633Sdfr TAILQ_INIT(&cs->cs_pending); 307193272Sjhb soupcall_set(so, SO_RCV, clnt_dg_soupcall, cs); 308177633Sdfr } 309177633Sdfr SOCKBUF_UNLOCK(&so->so_rcv); 310177633Sdfr 311180025Sdfr cl->cl_refs = 1; 312177633Sdfr cl->cl_ops = &clnt_dg_ops; 313177633Sdfr cl->cl_private = (caddr_t)(void *)cu; 314177633Sdfr cl->cl_auth = authnone_create(); 315177633Sdfr cl->cl_tp = NULL; 316177633Sdfr cl->cl_netid = NULL; 317177633Sdfr return (cl); 318177633Sdfrerr2: 319177633Sdfr if (cl) { 320177633Sdfr mem_free(cl, sizeof (CLIENT)); 321177633Sdfr if (cu) 322177633Sdfr mem_free(cu, sizeof (*cu)); 323177633Sdfr } 324177633Sdfr return (NULL); 325177633Sdfr} 326177633Sdfr 327177633Sdfrstatic enum clnt_stat 328177633Sdfrclnt_dg_call( 329180025Sdfr CLIENT *cl, /* client handle */ 330180025Sdfr struct rpc_callextra *ext, /* call metadata */ 331177633Sdfr rpcproc_t proc, /* procedure number */ 332184588Sdfr struct mbuf *args, /* pointer to args */ 333184588Sdfr struct mbuf **resultsp, /* pointer to results */ 334177633Sdfr struct timeval utimeout) /* seconds to wait before giving up */ 335177633Sdfr{ 336177633Sdfr struct cu_data *cu = (struct cu_data *)cl->cl_private; 337193272Sjhb struct cu_socket *cs; 338184588Sdfr struct rpc_timers *rt; 339180025Sdfr AUTH *auth; 340184588Sdfr struct rpc_err *errp; 341184588Sdfr enum clnt_stat stat; 342177633Sdfr XDR xdrs; 343177633Sdfr struct rpc_msg reply_msg; 344177633Sdfr bool_t ok; 345180025Sdfr int retrans; /* number of re-transmits so far */ 346177633Sdfr int nrefreshes = 2; /* number of times to refresh cred */ 347180025Sdfr struct timeval *tvp; 348180025Sdfr int timeout; 349180025Sdfr int retransmit_time; 350184588Sdfr int next_sendtime, starttime, rtt, time_waited, tv = 0; 351177633Sdfr struct sockaddr *sa; 352177633Sdfr socklen_t salen; 353184588Sdfr uint32_t xid = 0; 354184588Sdfr struct mbuf *mreq = NULL, *results; 355180025Sdfr struct cu_request *cr; 356177633Sdfr int error; 357177633Sdfr 358193272Sjhb cs = cu->cu_socket->so_rcv.sb_upcallarg; 359180025Sdfr cr = malloc(sizeof(struct cu_request), M_RPC, M_WAITOK); 360180025Sdfr 361177633Sdfr mtx_lock(&cs->cs_lock); 362177633Sdfr 363184588Sdfr if (cu->cu_closing || cu->cu_closed) { 364180025Sdfr mtx_unlock(&cs->cs_lock); 365180025Sdfr free(cr, M_RPC); 366180025Sdfr return (RPC_CANTSEND); 367180025Sdfr } 368180025Sdfr cu->cu_threads++; 369177633Sdfr 370184588Sdfr if (ext) { 371180025Sdfr auth = ext->rc_auth; 372184588Sdfr errp = &ext->rc_err; 373184588Sdfr } else { 374180025Sdfr auth = cl->cl_auth; 375184588Sdfr errp = &cu->cu_error; 376184588Sdfr } 377180025Sdfr 378180025Sdfr cr->cr_client = cl; 379180025Sdfr cr->cr_mrep = NULL; 380180025Sdfr cr->cr_error = 0; 381180025Sdfr 382177633Sdfr if (cu->cu_total.tv_usec == -1) { 383180025Sdfr tvp = &utimeout; /* use supplied timeout */ 384177633Sdfr } else { 385180025Sdfr tvp = &cu->cu_total; /* use default timeout */ 386177633Sdfr } 387180025Sdfr if (tvp->tv_sec || tvp->tv_usec) 388180025Sdfr timeout = tvtohz(tvp); 389180025Sdfr else 390180025Sdfr timeout = 0; 391177633Sdfr 392177633Sdfr if (cu->cu_connect && !cu->cu_connected) { 393177633Sdfr mtx_unlock(&cs->cs_lock); 394177633Sdfr error = soconnect(cu->cu_socket, 395177633Sdfr (struct sockaddr *)&cu->cu_raddr, curthread); 396177633Sdfr mtx_lock(&cs->cs_lock); 397177633Sdfr if (error) { 398184588Sdfr errp->re_errno = error; 399184588Sdfr errp->re_status = stat = RPC_CANTSEND; 400177633Sdfr goto out; 401177633Sdfr } 402177633Sdfr cu->cu_connected = 1; 403177633Sdfr } 404177633Sdfr if (cu->cu_connected) { 405177633Sdfr sa = NULL; 406177633Sdfr salen = 0; 407177633Sdfr } else { 408177633Sdfr sa = (struct sockaddr *)&cu->cu_raddr; 409177633Sdfr salen = cu->cu_rlen; 410177633Sdfr } 411180025Sdfr time_waited = 0; 412180025Sdfr retrans = 0; 413184588Sdfr if (ext && ext->rc_timers) { 414184588Sdfr rt = ext->rc_timers; 415184588Sdfr if (!rt->rt_rtxcur) 416184588Sdfr rt->rt_rtxcur = tvtohz(&cu->cu_wait); 417184588Sdfr retransmit_time = next_sendtime = rt->rt_rtxcur; 418184588Sdfr } else { 419184588Sdfr rt = NULL; 420184588Sdfr retransmit_time = next_sendtime = tvtohz(&cu->cu_wait); 421184588Sdfr } 422177633Sdfr 423180025Sdfr starttime = ticks; 424177633Sdfr 425177633Sdfrcall_again: 426177633Sdfr mtx_assert(&cs->cs_lock, MA_OWNED); 427177633Sdfr 428177633Sdfr cu->cu_xid++; 429177633Sdfr xid = cu->cu_xid; 430177633Sdfr 431177633Sdfrsend_again: 432177633Sdfr mtx_unlock(&cs->cs_lock); 433177633Sdfr 434248195Sglebius mreq = m_gethdr(M_WAITOK, MT_DATA); 435184588Sdfr KASSERT(cu->cu_mcalllen <= MHLEN, ("RPC header too big")); 436184588Sdfr bcopy(cu->cu_mcallc, mreq->m_data, cu->cu_mcalllen); 437184588Sdfr mreq->m_len = cu->cu_mcalllen; 438177633Sdfr 439177633Sdfr /* 440177633Sdfr * The XID is the first thing in the request. 441177633Sdfr */ 442177633Sdfr *mtod(mreq, uint32_t *) = htonl(xid); 443177633Sdfr 444177633Sdfr xdrmbuf_create(&xdrs, mreq, XDR_ENCODE); 445177633Sdfr 446184588Sdfr if (cu->cu_async == TRUE && args == NULL) 447177633Sdfr goto get_reply; 448177633Sdfr 449177633Sdfr if ((! XDR_PUTINT32(&xdrs, &proc)) || 450184588Sdfr (! AUTH_MARSHALL(auth, xid, &xdrs, 451184588Sdfr m_copym(args, 0, M_COPYALL, M_WAITOK)))) { 452184588Sdfr errp->re_status = stat = RPC_CANTENCODEARGS; 453177633Sdfr mtx_lock(&cs->cs_lock); 454177633Sdfr goto out; 455177633Sdfr } 456184588Sdfr mreq->m_pkthdr.len = m_length(mreq, NULL); 457177633Sdfr 458180025Sdfr cr->cr_xid = xid; 459177633Sdfr mtx_lock(&cs->cs_lock); 460184588Sdfr 461184588Sdfr /* 462184588Sdfr * Try to get a place in the congestion window. 463184588Sdfr */ 464184588Sdfr while (cu->cu_sent >= cu->cu_cwnd) { 465184588Sdfr cu->cu_cwnd_wait = TRUE; 466184588Sdfr error = msleep(&cu->cu_cwnd_wait, &cs->cs_lock, 467184588Sdfr cu->cu_waitflag, "rpccwnd", 0); 468184588Sdfr if (error) { 469184588Sdfr errp->re_errno = error; 470225234Sart if (error == EINTR || error == ERESTART) 471225234Sart errp->re_status = stat = RPC_INTR; 472225234Sart else 473225234Sart errp->re_status = stat = RPC_CANTSEND; 474184588Sdfr goto out; 475184588Sdfr } 476184588Sdfr } 477184588Sdfr cu->cu_sent += CWNDSCALE; 478184588Sdfr 479180025Sdfr TAILQ_INSERT_TAIL(&cs->cs_pending, cr, cr_link); 480177633Sdfr mtx_unlock(&cs->cs_lock); 481177633Sdfr 482177633Sdfr /* 483177633Sdfr * sosend consumes mreq. 484177633Sdfr */ 485177633Sdfr error = sosend(cu->cu_socket, sa, NULL, mreq, NULL, 0, curthread); 486177633Sdfr mreq = NULL; 487177633Sdfr 488177633Sdfr /* 489177633Sdfr * sub-optimal code appears here because we have 490177633Sdfr * some clock time to spare while the packets are in flight. 491177633Sdfr * (We assume that this is actually only executed once.) 492177633Sdfr */ 493184588Sdfr reply_msg.acpted_rply.ar_verf.oa_flavor = AUTH_NULL; 494184588Sdfr reply_msg.acpted_rply.ar_verf.oa_base = cr->cr_verf; 495184588Sdfr reply_msg.acpted_rply.ar_verf.oa_length = 0; 496184588Sdfr reply_msg.acpted_rply.ar_results.where = NULL; 497184588Sdfr reply_msg.acpted_rply.ar_results.proc = (xdrproc_t)xdr_void; 498177633Sdfr 499177633Sdfr mtx_lock(&cs->cs_lock); 500177633Sdfr if (error) { 501180025Sdfr TAILQ_REMOVE(&cs->cs_pending, cr, cr_link); 502184588Sdfr errp->re_errno = error; 503184588Sdfr errp->re_status = stat = RPC_CANTSEND; 504184588Sdfr cu->cu_sent -= CWNDSCALE; 505184588Sdfr if (cu->cu_cwnd_wait) { 506184588Sdfr cu->cu_cwnd_wait = FALSE; 507184588Sdfr wakeup(&cu->cu_cwnd_wait); 508184588Sdfr } 509177633Sdfr goto out; 510177633Sdfr } 511177633Sdfr 512177633Sdfr /* 513177633Sdfr * Check to see if we got an upcall while waiting for the 514180025Sdfr * lock. 515177633Sdfr */ 516180025Sdfr if (cr->cr_error) { 517180025Sdfr TAILQ_REMOVE(&cs->cs_pending, cr, cr_link); 518184588Sdfr errp->re_errno = cr->cr_error; 519184588Sdfr errp->re_status = stat = RPC_CANTRECV; 520184588Sdfr cu->cu_sent -= CWNDSCALE; 521184588Sdfr if (cu->cu_cwnd_wait) { 522184588Sdfr cu->cu_cwnd_wait = FALSE; 523184588Sdfr wakeup(&cu->cu_cwnd_wait); 524184588Sdfr } 525177633Sdfr goto out; 526177633Sdfr } 527180025Sdfr if (cr->cr_mrep) { 528180025Sdfr TAILQ_REMOVE(&cs->cs_pending, cr, cr_link); 529184588Sdfr cu->cu_sent -= CWNDSCALE; 530184588Sdfr if (cu->cu_cwnd_wait) { 531184588Sdfr cu->cu_cwnd_wait = FALSE; 532184588Sdfr wakeup(&cu->cu_cwnd_wait); 533184588Sdfr } 534177633Sdfr goto got_reply; 535177633Sdfr } 536177633Sdfr 537177633Sdfr /* 538177633Sdfr * Hack to provide rpc-based message passing 539177633Sdfr */ 540180025Sdfr if (timeout == 0) { 541180025Sdfr TAILQ_REMOVE(&cs->cs_pending, cr, cr_link); 542184588Sdfr errp->re_status = stat = RPC_TIMEDOUT; 543184588Sdfr cu->cu_sent -= CWNDSCALE; 544184588Sdfr if (cu->cu_cwnd_wait) { 545184588Sdfr cu->cu_cwnd_wait = FALSE; 546184588Sdfr wakeup(&cu->cu_cwnd_wait); 547184588Sdfr } 548177633Sdfr goto out; 549177633Sdfr } 550177633Sdfr 551177633Sdfrget_reply: 552177633Sdfr for (;;) { 553177633Sdfr /* Decide how long to wait. */ 554180025Sdfr if (next_sendtime < timeout) 555177633Sdfr tv = next_sendtime; 556180025Sdfr else 557180025Sdfr tv = timeout; 558180025Sdfr tv -= time_waited; 559180025Sdfr 560180025Sdfr if (tv > 0) { 561195245Srmacklem if (cu->cu_closing || cu->cu_closed) { 562180025Sdfr error = 0; 563195245Srmacklem cr->cr_error = ESHUTDOWN; 564195245Srmacklem } else { 565180025Sdfr error = msleep(cr, &cs->cs_lock, 566180025Sdfr cu->cu_waitflag, cu->cu_waitchan, tv); 567195245Srmacklem } 568177633Sdfr } else { 569180025Sdfr error = EWOULDBLOCK; 570177633Sdfr } 571177633Sdfr 572180025Sdfr TAILQ_REMOVE(&cs->cs_pending, cr, cr_link); 573184588Sdfr cu->cu_sent -= CWNDSCALE; 574184588Sdfr if (cu->cu_cwnd_wait) { 575184588Sdfr cu->cu_cwnd_wait = FALSE; 576184588Sdfr wakeup(&cu->cu_cwnd_wait); 577184588Sdfr } 578177633Sdfr 579177633Sdfr if (!error) { 580177633Sdfr /* 581177633Sdfr * We were woken up by the upcall. If the 582177633Sdfr * upcall had a receive error, report that, 583177633Sdfr * otherwise we have a reply. 584177633Sdfr */ 585180025Sdfr if (cr->cr_error) { 586184588Sdfr errp->re_errno = cr->cr_error; 587184588Sdfr errp->re_status = stat = RPC_CANTRECV; 588177633Sdfr goto out; 589177633Sdfr } 590184588Sdfr 591184588Sdfr cu->cu_cwnd += (CWNDSCALE * CWNDSCALE 592184588Sdfr + cu->cu_cwnd / 2) / cu->cu_cwnd; 593184588Sdfr if (cu->cu_cwnd > MAXCWND) 594184588Sdfr cu->cu_cwnd = MAXCWND; 595184588Sdfr 596184588Sdfr if (rt) { 597184588Sdfr /* 598184588Sdfr * Add one to the time since a tick 599184588Sdfr * count of N means that the actual 600184588Sdfr * time taken was somewhere between N 601184588Sdfr * and N+1. 602184588Sdfr */ 603184588Sdfr rtt = ticks - starttime + 1; 604184588Sdfr 605184588Sdfr /* 606184588Sdfr * Update our estimate of the round 607184588Sdfr * trip time using roughly the 608184588Sdfr * algorithm described in RFC 609184588Sdfr * 2988. Given an RTT sample R: 610184588Sdfr * 611184588Sdfr * RTTVAR = (1-beta) * RTTVAR + beta * |SRTT-R| 612184588Sdfr * SRTT = (1-alpha) * SRTT + alpha * R 613184588Sdfr * 614184588Sdfr * where alpha = 0.125 and beta = 0.25. 615184588Sdfr * 616184588Sdfr * The initial retransmit timeout is 617184588Sdfr * SRTT + 4*RTTVAR and doubles on each 618184588Sdfr * retransmision. 619184588Sdfr */ 620184588Sdfr if (rt->rt_srtt == 0) { 621184588Sdfr rt->rt_srtt = rtt; 622184588Sdfr rt->rt_deviate = rtt / 2; 623184588Sdfr } else { 624184588Sdfr int32_t error = rtt - rt->rt_srtt; 625184588Sdfr rt->rt_srtt += error / 8; 626184588Sdfr error = abs(error) - rt->rt_deviate; 627184588Sdfr rt->rt_deviate += error / 4; 628184588Sdfr } 629184588Sdfr rt->rt_rtxcur = rt->rt_srtt + 4*rt->rt_deviate; 630184588Sdfr } 631184588Sdfr 632177633Sdfr break; 633177633Sdfr } 634177633Sdfr 635177633Sdfr /* 636177633Sdfr * The sleep returned an error so our request is still 637177633Sdfr * on the list. If we got EWOULDBLOCK, we may want to 638177633Sdfr * re-send the request. 639177633Sdfr */ 640177633Sdfr if (error != EWOULDBLOCK) { 641184588Sdfr errp->re_errno = error; 642225234Sart if (error == EINTR || error == ERESTART) 643184588Sdfr errp->re_status = stat = RPC_INTR; 644177633Sdfr else 645184588Sdfr errp->re_status = stat = RPC_CANTRECV; 646177633Sdfr goto out; 647177633Sdfr } 648177633Sdfr 649180025Sdfr time_waited = ticks - starttime; 650177633Sdfr 651177633Sdfr /* Check for timeout. */ 652180025Sdfr if (time_waited > timeout) { 653184588Sdfr errp->re_errno = EWOULDBLOCK; 654184588Sdfr errp->re_status = stat = RPC_TIMEDOUT; 655177633Sdfr goto out; 656177633Sdfr } 657177633Sdfr 658177633Sdfr /* Retransmit if necessary. */ 659180025Sdfr if (time_waited >= next_sendtime) { 660184588Sdfr cu->cu_cwnd /= 2; 661184588Sdfr if (cu->cu_cwnd < CWNDSCALE) 662184588Sdfr cu->cu_cwnd = CWNDSCALE; 663180025Sdfr if (ext && ext->rc_feedback) { 664180025Sdfr mtx_unlock(&cs->cs_lock); 665180025Sdfr if (retrans == 0) 666180025Sdfr ext->rc_feedback(FEEDBACK_REXMIT1, 667180025Sdfr proc, ext->rc_feedback_arg); 668180025Sdfr else 669180025Sdfr ext->rc_feedback(FEEDBACK_REXMIT2, 670180025Sdfr proc, ext->rc_feedback_arg); 671180025Sdfr mtx_lock(&cs->cs_lock); 672180025Sdfr } 673184588Sdfr if (cu->cu_closing || cu->cu_closed) { 674184588Sdfr errp->re_errno = ESHUTDOWN; 675184588Sdfr errp->re_status = stat = RPC_CANTRECV; 676180025Sdfr goto out; 677180025Sdfr } 678180025Sdfr retrans++; 679177633Sdfr /* update retransmit_time */ 680180025Sdfr if (retransmit_time < RPC_MAX_BACKOFF * hz) 681180025Sdfr retransmit_time = 2 * retransmit_time; 682180025Sdfr next_sendtime += retransmit_time; 683177633Sdfr goto send_again; 684177633Sdfr } 685255284Srmacklem cu->cu_sent += CWNDSCALE; 686180025Sdfr TAILQ_INSERT_TAIL(&cs->cs_pending, cr, cr_link); 687177633Sdfr } 688177633Sdfr 689177633Sdfrgot_reply: 690177633Sdfr /* 691177633Sdfr * Now decode and validate the response. We need to drop the 692177633Sdfr * lock since xdr_replymsg may end up sleeping in malloc. 693177633Sdfr */ 694177633Sdfr mtx_unlock(&cs->cs_lock); 695177633Sdfr 696180025Sdfr if (ext && ext->rc_feedback) 697180025Sdfr ext->rc_feedback(FEEDBACK_OK, proc, ext->rc_feedback_arg); 698180025Sdfr 699180025Sdfr xdrmbuf_create(&xdrs, cr->cr_mrep, XDR_DECODE); 700177633Sdfr ok = xdr_replymsg(&xdrs, &reply_msg); 701180025Sdfr cr->cr_mrep = NULL; 702177633Sdfr 703177633Sdfr if (ok) { 704177633Sdfr if ((reply_msg.rm_reply.rp_stat == MSG_ACCEPTED) && 705184588Sdfr (reply_msg.acpted_rply.ar_stat == SUCCESS)) 706184588Sdfr errp->re_status = stat = RPC_SUCCESS; 707177633Sdfr else 708184588Sdfr stat = _seterr_reply(&reply_msg, &(cu->cu_error)); 709177633Sdfr 710184588Sdfr if (errp->re_status == RPC_SUCCESS) { 711184588Sdfr results = xdrmbuf_getall(&xdrs); 712184588Sdfr if (! AUTH_VALIDATE(auth, xid, 713184588Sdfr &reply_msg.acpted_rply.ar_verf, 714184588Sdfr &results)) { 715184588Sdfr errp->re_status = stat = RPC_AUTHERROR; 716184588Sdfr errp->re_why = AUTH_INVALIDRESP; 717184588Sdfr if (retrans && 718184588Sdfr auth->ah_cred.oa_flavor == RPCSEC_GSS) { 719184588Sdfr /* 720184588Sdfr * If we retransmitted, its 721184588Sdfr * possible that we will 722184588Sdfr * receive a reply for one of 723184588Sdfr * the earlier transmissions 724184588Sdfr * (which will use an older 725184588Sdfr * RPCSEC_GSS sequence 726184588Sdfr * number). In this case, just 727184588Sdfr * go back and listen for a 728184588Sdfr * new reply. We could keep a 729184588Sdfr * record of all the seq 730184588Sdfr * numbers we have transmitted 731184588Sdfr * so far so that we could 732184588Sdfr * accept a reply for any of 733184588Sdfr * them here. 734184588Sdfr */ 735184588Sdfr XDR_DESTROY(&xdrs); 736184588Sdfr mtx_lock(&cs->cs_lock); 737255284Srmacklem cu->cu_sent += CWNDSCALE; 738184588Sdfr TAILQ_INSERT_TAIL(&cs->cs_pending, 739184588Sdfr cr, cr_link); 740184588Sdfr cr->cr_mrep = NULL; 741184588Sdfr goto get_reply; 742184588Sdfr } 743184588Sdfr } else { 744184588Sdfr *resultsp = results; 745177633Sdfr } 746177633Sdfr } /* end successful completion */ 747177633Sdfr /* 748177633Sdfr * If unsuccesful AND error is an authentication error 749177633Sdfr * then refresh credentials and try again, else break 750177633Sdfr */ 751184588Sdfr else if (stat == RPC_AUTHERROR) 752177633Sdfr /* maybe our credentials need to be refreshed ... */ 753177633Sdfr if (nrefreshes > 0 && 754184588Sdfr AUTH_REFRESH(auth, &reply_msg)) { 755177633Sdfr nrefreshes--; 756184588Sdfr XDR_DESTROY(&xdrs); 757184588Sdfr mtx_lock(&cs->cs_lock); 758177633Sdfr goto call_again; 759177633Sdfr } 760177633Sdfr /* end of unsuccessful completion */ 761177633Sdfr } /* end of valid reply message */ 762177633Sdfr else { 763184588Sdfr errp->re_status = stat = RPC_CANTDECODERES; 764177633Sdfr 765177633Sdfr } 766184588Sdfr XDR_DESTROY(&xdrs); 767184588Sdfr mtx_lock(&cs->cs_lock); 768177633Sdfrout: 769177633Sdfr mtx_assert(&cs->cs_lock, MA_OWNED); 770177633Sdfr 771177633Sdfr if (mreq) 772177633Sdfr m_freem(mreq); 773180025Sdfr if (cr->cr_mrep) 774180025Sdfr m_freem(cr->cr_mrep); 775177633Sdfr 776180025Sdfr cu->cu_threads--; 777180025Sdfr if (cu->cu_closing) 778180025Sdfr wakeup(cu); 779180025Sdfr 780177633Sdfr mtx_unlock(&cs->cs_lock); 781180025Sdfr 782184588Sdfr if (auth && stat != RPC_SUCCESS) 783184588Sdfr AUTH_VALIDATE(auth, xid, NULL, NULL); 784184588Sdfr 785180025Sdfr free(cr, M_RPC); 786180025Sdfr 787184588Sdfr return (stat); 788177633Sdfr} 789177633Sdfr 790177633Sdfrstatic void 791177633Sdfrclnt_dg_geterr(CLIENT *cl, struct rpc_err *errp) 792177633Sdfr{ 793177633Sdfr struct cu_data *cu = (struct cu_data *)cl->cl_private; 794177633Sdfr 795177633Sdfr *errp = cu->cu_error; 796177633Sdfr} 797177633Sdfr 798177633Sdfrstatic bool_t 799177633Sdfrclnt_dg_freeres(CLIENT *cl, xdrproc_t xdr_res, void *res_ptr) 800177633Sdfr{ 801177633Sdfr XDR xdrs; 802177633Sdfr bool_t dummy; 803177633Sdfr 804177633Sdfr xdrs.x_op = XDR_FREE; 805177633Sdfr dummy = (*xdr_res)(&xdrs, res_ptr); 806177633Sdfr 807177633Sdfr return (dummy); 808177633Sdfr} 809177633Sdfr 810177633Sdfr/*ARGSUSED*/ 811177633Sdfrstatic void 812177633Sdfrclnt_dg_abort(CLIENT *h) 813177633Sdfr{ 814177633Sdfr} 815177633Sdfr 816177633Sdfrstatic bool_t 817177633Sdfrclnt_dg_control(CLIENT *cl, u_int request, void *info) 818177633Sdfr{ 819177633Sdfr struct cu_data *cu = (struct cu_data *)cl->cl_private; 820193272Sjhb struct cu_socket *cs; 821177633Sdfr struct sockaddr *addr; 822177633Sdfr 823193272Sjhb cs = cu->cu_socket->so_rcv.sb_upcallarg; 824177633Sdfr mtx_lock(&cs->cs_lock); 825177633Sdfr 826177633Sdfr switch (request) { 827177633Sdfr case CLSET_FD_CLOSE: 828177633Sdfr cu->cu_closeit = TRUE; 829177633Sdfr mtx_unlock(&cs->cs_lock); 830177633Sdfr return (TRUE); 831177633Sdfr case CLSET_FD_NCLOSE: 832177633Sdfr cu->cu_closeit = FALSE; 833177633Sdfr mtx_unlock(&cs->cs_lock); 834177633Sdfr return (TRUE); 835177633Sdfr } 836177633Sdfr 837177633Sdfr /* for other requests which use info */ 838177633Sdfr if (info == NULL) { 839177633Sdfr mtx_unlock(&cs->cs_lock); 840177633Sdfr return (FALSE); 841177633Sdfr } 842177633Sdfr switch (request) { 843177633Sdfr case CLSET_TIMEOUT: 844177633Sdfr if (time_not_ok((struct timeval *)info)) { 845177633Sdfr mtx_unlock(&cs->cs_lock); 846177633Sdfr return (FALSE); 847177633Sdfr } 848177633Sdfr cu->cu_total = *(struct timeval *)info; 849177633Sdfr break; 850177633Sdfr case CLGET_TIMEOUT: 851177633Sdfr *(struct timeval *)info = cu->cu_total; 852177633Sdfr break; 853177633Sdfr case CLSET_RETRY_TIMEOUT: 854177633Sdfr if (time_not_ok((struct timeval *)info)) { 855177633Sdfr mtx_unlock(&cs->cs_lock); 856177633Sdfr return (FALSE); 857177633Sdfr } 858177633Sdfr cu->cu_wait = *(struct timeval *)info; 859177633Sdfr break; 860177633Sdfr case CLGET_RETRY_TIMEOUT: 861177633Sdfr *(struct timeval *)info = cu->cu_wait; 862177633Sdfr break; 863177633Sdfr case CLGET_SVC_ADDR: 864177633Sdfr /* 865177633Sdfr * Slightly different semantics to userland - we use 866177633Sdfr * sockaddr instead of netbuf. 867177633Sdfr */ 868177633Sdfr memcpy(info, &cu->cu_raddr, cu->cu_raddr.ss_len); 869177633Sdfr break; 870177633Sdfr case CLSET_SVC_ADDR: /* set to new address */ 871177633Sdfr addr = (struct sockaddr *)info; 872177633Sdfr (void) memcpy(&cu->cu_raddr, addr, addr->sa_len); 873177633Sdfr break; 874177633Sdfr case CLGET_XID: 875177633Sdfr *(uint32_t *)info = cu->cu_xid; 876177633Sdfr break; 877177633Sdfr 878177633Sdfr case CLSET_XID: 879177633Sdfr /* This will set the xid of the NEXT call */ 880177633Sdfr /* decrement by 1 as clnt_dg_call() increments once */ 881177633Sdfr cu->cu_xid = *(uint32_t *)info - 1; 882177633Sdfr break; 883177633Sdfr 884177633Sdfr case CLGET_VERS: 885177633Sdfr /* 886177633Sdfr * This RELIES on the information that, in the call body, 887177633Sdfr * the version number field is the fifth field from the 888177633Sdfr * begining of the RPC header. MUST be changed if the 889177633Sdfr * call_struct is changed 890177633Sdfr */ 891177633Sdfr *(uint32_t *)info = 892177633Sdfr ntohl(*(uint32_t *)(void *)(cu->cu_mcallc + 893177633Sdfr 4 * BYTES_PER_XDR_UNIT)); 894177633Sdfr break; 895177633Sdfr 896177633Sdfr case CLSET_VERS: 897177633Sdfr *(uint32_t *)(void *)(cu->cu_mcallc + 4 * BYTES_PER_XDR_UNIT) 898177633Sdfr = htonl(*(uint32_t *)info); 899177633Sdfr break; 900177633Sdfr 901177633Sdfr case CLGET_PROG: 902177633Sdfr /* 903177633Sdfr * This RELIES on the information that, in the call body, 904177633Sdfr * the program number field is the fourth field from the 905177633Sdfr * begining of the RPC header. MUST be changed if the 906177633Sdfr * call_struct is changed 907177633Sdfr */ 908177633Sdfr *(uint32_t *)info = 909177633Sdfr ntohl(*(uint32_t *)(void *)(cu->cu_mcallc + 910177633Sdfr 3 * BYTES_PER_XDR_UNIT)); 911177633Sdfr break; 912177633Sdfr 913177633Sdfr case CLSET_PROG: 914177633Sdfr *(uint32_t *)(void *)(cu->cu_mcallc + 3 * BYTES_PER_XDR_UNIT) 915177633Sdfr = htonl(*(uint32_t *)info); 916177633Sdfr break; 917177633Sdfr case CLSET_ASYNC: 918177633Sdfr cu->cu_async = *(int *)info; 919177633Sdfr break; 920177633Sdfr case CLSET_CONNECT: 921177633Sdfr cu->cu_connect = *(int *)info; 922177633Sdfr break; 923177633Sdfr case CLSET_WAITCHAN: 924184588Sdfr cu->cu_waitchan = (const char *)info; 925177633Sdfr break; 926177633Sdfr case CLGET_WAITCHAN: 927177633Sdfr *(const char **) info = cu->cu_waitchan; 928177633Sdfr break; 929177633Sdfr case CLSET_INTERRUPTIBLE: 930177633Sdfr if (*(int *) info) 931177633Sdfr cu->cu_waitflag = PCATCH; 932177633Sdfr else 933177633Sdfr cu->cu_waitflag = 0; 934177633Sdfr break; 935177633Sdfr case CLGET_INTERRUPTIBLE: 936177633Sdfr if (cu->cu_waitflag) 937177633Sdfr *(int *) info = TRUE; 938177633Sdfr else 939177633Sdfr *(int *) info = FALSE; 940177633Sdfr break; 941177633Sdfr default: 942177633Sdfr mtx_unlock(&cs->cs_lock); 943177633Sdfr return (FALSE); 944177633Sdfr } 945177633Sdfr mtx_unlock(&cs->cs_lock); 946177633Sdfr return (TRUE); 947177633Sdfr} 948177633Sdfr 949177633Sdfrstatic void 950184588Sdfrclnt_dg_close(CLIENT *cl) 951177633Sdfr{ 952177633Sdfr struct cu_data *cu = (struct cu_data *)cl->cl_private; 953193272Sjhb struct cu_socket *cs; 954180025Sdfr struct cu_request *cr; 955177633Sdfr 956193272Sjhb cs = cu->cu_socket->so_rcv.sb_upcallarg; 957180025Sdfr mtx_lock(&cs->cs_lock); 958177633Sdfr 959184588Sdfr if (cu->cu_closed) { 960184588Sdfr mtx_unlock(&cs->cs_lock); 961184588Sdfr return; 962184588Sdfr } 963184588Sdfr 964184588Sdfr if (cu->cu_closing) { 965184588Sdfr while (cu->cu_closing) 966184588Sdfr msleep(cu, &cs->cs_lock, 0, "rpcclose", 0); 967184588Sdfr KASSERT(cu->cu_closed, ("client should be closed")); 968184588Sdfr mtx_unlock(&cs->cs_lock); 969184588Sdfr return; 970184588Sdfr } 971184588Sdfr 972180025Sdfr /* 973180025Sdfr * Abort any pending requests and wait until everyone 974180025Sdfr * has finished with clnt_vc_call. 975180025Sdfr */ 976180025Sdfr cu->cu_closing = TRUE; 977180025Sdfr TAILQ_FOREACH(cr, &cs->cs_pending, cr_link) { 978180025Sdfr if (cr->cr_client == cl) { 979180025Sdfr cr->cr_xid = 0; 980180025Sdfr cr->cr_error = ESHUTDOWN; 981180025Sdfr wakeup(cr); 982180025Sdfr } 983180025Sdfr } 984180025Sdfr 985180025Sdfr while (cu->cu_threads) 986180025Sdfr msleep(cu, &cs->cs_lock, 0, "rpcclose", 0); 987180025Sdfr 988184588Sdfr cu->cu_closing = FALSE; 989184588Sdfr cu->cu_closed = TRUE; 990184588Sdfr 991184588Sdfr mtx_unlock(&cs->cs_lock); 992184588Sdfr wakeup(cu); 993184588Sdfr} 994184588Sdfr 995184588Sdfrstatic void 996184588Sdfrclnt_dg_destroy(CLIENT *cl) 997184588Sdfr{ 998184588Sdfr struct cu_data *cu = (struct cu_data *)cl->cl_private; 999193272Sjhb struct cu_socket *cs; 1000184588Sdfr struct socket *so = NULL; 1001184588Sdfr bool_t lastsocketref; 1002184588Sdfr 1003193272Sjhb cs = cu->cu_socket->so_rcv.sb_upcallarg; 1004184588Sdfr clnt_dg_close(cl); 1005184588Sdfr 1006227059Srmacklem SOCKBUF_LOCK(&cu->cu_socket->so_rcv); 1007184588Sdfr mtx_lock(&cs->cs_lock); 1008184588Sdfr 1009177633Sdfr cs->cs_refs--; 1010177633Sdfr if (cs->cs_refs == 0) { 1011193437Srmacklem mtx_unlock(&cs->cs_lock); 1012193272Sjhb soupcall_clear(cu->cu_socket, SO_RCV); 1013193437Srmacklem clnt_dg_upcallsdone(cu->cu_socket, cs); 1014177633Sdfr SOCKBUF_UNLOCK(&cu->cu_socket->so_rcv); 1015193437Srmacklem mtx_destroy(&cs->cs_lock); 1016177633Sdfr mem_free(cs, sizeof(*cs)); 1017177633Sdfr lastsocketref = TRUE; 1018177633Sdfr } else { 1019177633Sdfr mtx_unlock(&cs->cs_lock); 1020227059Srmacklem SOCKBUF_UNLOCK(&cu->cu_socket->so_rcv); 1021177633Sdfr lastsocketref = FALSE; 1022177633Sdfr } 1023177633Sdfr 1024180025Sdfr if (cu->cu_closeit && lastsocketref) { 1025177633Sdfr so = cu->cu_socket; 1026177633Sdfr cu->cu_socket = NULL; 1027177633Sdfr } 1028177633Sdfr 1029177633Sdfr if (so) 1030177633Sdfr soclose(so); 1031177633Sdfr 1032177633Sdfr if (cl->cl_netid && cl->cl_netid[0]) 1033177633Sdfr mem_free(cl->cl_netid, strlen(cl->cl_netid) +1); 1034177633Sdfr if (cl->cl_tp && cl->cl_tp[0]) 1035177633Sdfr mem_free(cl->cl_tp, strlen(cl->cl_tp) +1); 1036177633Sdfr mem_free(cu, sizeof (*cu)); 1037177633Sdfr mem_free(cl, sizeof (CLIENT)); 1038177633Sdfr} 1039177633Sdfr 1040177633Sdfr/* 1041177633Sdfr * Make sure that the time is not garbage. -1 value is allowed. 1042177633Sdfr */ 1043177633Sdfrstatic bool_t 1044177633Sdfrtime_not_ok(struct timeval *t) 1045177633Sdfr{ 1046177633Sdfr return (t->tv_sec < -1 || t->tv_sec > 100000000 || 1047177633Sdfr t->tv_usec < -1 || t->tv_usec > 1000000); 1048177633Sdfr} 1049177633Sdfr 1050193272Sjhbint 1051177633Sdfrclnt_dg_soupcall(struct socket *so, void *arg, int waitflag) 1052177633Sdfr{ 1053177633Sdfr struct cu_socket *cs = (struct cu_socket *) arg; 1054177633Sdfr struct uio uio; 1055177633Sdfr struct mbuf *m; 1056177633Sdfr struct mbuf *control; 1057177633Sdfr struct cu_request *cr; 1058177633Sdfr int error, rcvflag, foundreq; 1059177633Sdfr uint32_t xid; 1060177633Sdfr 1061193437Srmacklem cs->cs_upcallrefs++; 1062177633Sdfr uio.uio_resid = 1000000000; 1063177633Sdfr uio.uio_td = curthread; 1064177633Sdfr do { 1065193272Sjhb SOCKBUF_UNLOCK(&so->so_rcv); 1066177633Sdfr m = NULL; 1067177633Sdfr control = NULL; 1068177633Sdfr rcvflag = MSG_DONTWAIT; 1069177633Sdfr error = soreceive(so, NULL, &uio, &m, &control, &rcvflag); 1070177633Sdfr if (control) 1071177633Sdfr m_freem(control); 1072193272Sjhb SOCKBUF_LOCK(&so->so_rcv); 1073177633Sdfr 1074177633Sdfr if (error == EWOULDBLOCK) 1075177633Sdfr break; 1076177633Sdfr 1077177633Sdfr /* 1078177633Sdfr * If there was an error, wake up all pending 1079177633Sdfr * requests. 1080177633Sdfr */ 1081177633Sdfr if (error) { 1082177633Sdfr mtx_lock(&cs->cs_lock); 1083177633Sdfr TAILQ_FOREACH(cr, &cs->cs_pending, cr_link) { 1084180025Sdfr cr->cr_xid = 0; 1085177633Sdfr cr->cr_error = error; 1086177633Sdfr wakeup(cr); 1087177633Sdfr } 1088177633Sdfr mtx_unlock(&cs->cs_lock); 1089177633Sdfr break; 1090177633Sdfr } 1091177633Sdfr 1092177633Sdfr /* 1093177633Sdfr * The XID is in the first uint32_t of the reply. 1094177633Sdfr */ 1095220585Srmacklem if (m->m_len < sizeof(xid) && m_length(m, NULL) < sizeof(xid)) { 1096180025Sdfr /* 1097180025Sdfr * Should never happen. 1098180025Sdfr */ 1099220585Srmacklem m_freem(m); 1100180025Sdfr continue; 1101220585Srmacklem } 1102180025Sdfr 1103217242Srmacklem m_copydata(m, 0, sizeof(xid), (char *)&xid); 1104217242Srmacklem xid = ntohl(xid); 1105177633Sdfr 1106177633Sdfr /* 1107177633Sdfr * Attempt to match this reply with a pending request. 1108177633Sdfr */ 1109177633Sdfr mtx_lock(&cs->cs_lock); 1110177633Sdfr foundreq = 0; 1111177633Sdfr TAILQ_FOREACH(cr, &cs->cs_pending, cr_link) { 1112177633Sdfr if (cr->cr_xid == xid) { 1113177633Sdfr /* 1114180025Sdfr * This one matches. We leave the 1115177633Sdfr * reply mbuf in cr->cr_mrep. Set the 1116180025Sdfr * XID to zero so that we will ignore 1117180025Sdfr * any duplicated replies that arrive 1118180025Sdfr * before clnt_dg_call removes it from 1119180025Sdfr * the queue. 1120177633Sdfr */ 1121177633Sdfr cr->cr_xid = 0; 1122177633Sdfr cr->cr_mrep = m; 1123177633Sdfr cr->cr_error = 0; 1124177633Sdfr foundreq = 1; 1125177633Sdfr wakeup(cr); 1126177633Sdfr break; 1127177633Sdfr } 1128177633Sdfr } 1129177633Sdfr mtx_unlock(&cs->cs_lock); 1130177633Sdfr 1131177633Sdfr /* 1132177633Sdfr * If we didn't find the matching request, just drop 1133177633Sdfr * it - its probably a repeated reply. 1134177633Sdfr */ 1135177633Sdfr if (!foundreq) 1136177633Sdfr m_freem(m); 1137177633Sdfr } while (m); 1138193437Srmacklem cs->cs_upcallrefs--; 1139193437Srmacklem if (cs->cs_upcallrefs < 0) 1140193437Srmacklem panic("rpcdg upcall refcnt"); 1141193437Srmacklem if (cs->cs_upcallrefs == 0) 1142193437Srmacklem wakeup(&cs->cs_upcallrefs); 1143193272Sjhb return (SU_OK); 1144177633Sdfr} 1145177633Sdfr 1146193437Srmacklem/* 1147193437Srmacklem * Wait for all upcalls in progress to complete. 1148193437Srmacklem */ 1149193437Srmacklemstatic void 1150193437Srmacklemclnt_dg_upcallsdone(struct socket *so, struct cu_socket *cs) 1151193437Srmacklem{ 1152193437Srmacklem 1153193437Srmacklem SOCKBUF_LOCK_ASSERT(&so->so_rcv); 1154193437Srmacklem 1155193437Srmacklem while (cs->cs_upcallrefs > 0) 1156193437Srmacklem (void) msleep(&cs->cs_upcallrefs, SOCKBUF_MTX(&so->so_rcv), 0, 1157193437Srmacklem "rpcdgup", 0); 1158193437Srmacklem} 1159