int ei_send_encoded_tmo(int fd, const erlang_pid *to, char *msg, int msglen, unsigned ms) { char *s, header[1200]; /* see size calculation below */ erlang_trace *token = NULL; int index = 5; /* reserve 5 bytes for control message */ int res; #ifdef HAVE_WRITEV struct iovec v[2]; #endif /* are we tracing? */ /* check that he can receive trace tokens first */ if (ei_distversion(fd) > 0) token = ei_trace(0,NULL); /* header = SEND, cookie, to max sizes: */ ei_encode_version(header,&index); /* 1 */ if (token) { ei_encode_tuple_header(header,&index,4); /* 2 */ ei_encode_long(header,&index,ERL_SEND_TT); /* 2 */ } else { ei_encode_tuple_header(header,&index,3); ei_encode_long(header,&index,ERL_SEND); } ei_encode_atom(header,&index,ei_getfdcookie(fd)); /* 258 */ ei_encode_pid(header,&index,to); /* 268 */ if (token) ei_encode_trace(header,&index,token); /* 534 */ /* control message (precedes header actually) */ /* length = 1 ('p') + header len + message len */ s = header; put32be(s, index + msglen - 4); /* 4 */ put8(s, ERL_PASS_THROUGH); /* 1 */ /*** sum: 1070 */ if (ei_tracelevel >= 4) ei_show_sendmsg(stderr,header,msg); #ifdef HAVE_WRITEV v[0].iov_base = (char *)header; v[0].iov_len = index; v[1].iov_base = (char *)msg; v[1].iov_len = msglen; if ((res = ei_writev_fill_t(fd,v,2,ms)) != index+msglen) { erl_errno = (res == -2) ? ETIMEDOUT : EIO; return -1; } #else /* !HAVE_WRITEV */ if ((res = ei_write_fill_t(fd,header,index,ms)) != index) { erl_errno = (res == -2) ? ETIMEDOUT : EIO; return -1; } if ((res = ei_write_fill_t(fd,msg,msglen,ms)) != msglen) { erl_errno = (res == -2) ? ETIMEDOUT : EIO; return -1; } #endif /* !HAVE_WRITEV */ return 0; }
int ei_send_reg_encoded_tmo(int fd, const erlang_pid *from, const char *to, char *msg, int msglen, unsigned ms) { char *s, header[1400]; /* see size calculation below */ erlang_trace *token = NULL; int index = 5; /* reserve 5 bytes for control message */ int err; ei_socket_callbacks *cbs; void *ctx; ssize_t len, tot_len; unsigned tmo = ms == 0 ? EI_SCLBK_INF_TMO : ms; err = EI_GET_CBS_CTX__(&cbs, &ctx, fd); if (err) { EI_CONN_SAVE_ERRNO__(err); return ERL_ERROR; } /* are we tracing? */ /* check that he can receive trace tokens first */ if (ei_distversion(fd) > 0) token = ei_trace(0,NULL); /* header = REG_SEND, from, cookie, toname max sizes: */ ei_encode_version(header,&index); /* 1 */ if (token) { ei_encode_tuple_header(header,&index,5); /* 2 */ ei_encode_long(header,&index,ERL_REG_SEND_TT); /* 2 */ } else { ei_encode_tuple_header(header,&index,4); ei_encode_long(header,&index,ERL_REG_SEND); } ei_encode_pid(header, &index, from); /* 268 */ ei_encode_atom(header, &index, ei_getfdcookie(fd)); /* 258 */ ei_encode_atom(header, &index, to); /* 268 */ if (token) ei_encode_trace(header,&index,token); /* 534 */ /* control message (precedes header actually) */ /* length = 1 ('p') + header len + message len */ s = header; put32be(s, index + msglen - 4); /* 4 */ put8(s, ERL_PASS_THROUGH); /* 1 */ /*** sum: 1336 */ if (ei_tracelevel >= 4) ei_show_sendmsg(stderr,header,msg); #ifdef EI_HAVE_STRUCT_IOVEC__ if (ei_socket_callbacks_have_writev__(cbs)) { struct iovec v[2]; v[0].iov_base = (char *)header; v[0].iov_len = index; v[1].iov_base = (char *)msg; v[1].iov_len = msglen; len = tot_len = (ssize_t) index+msglen; err = ei_writev_fill_ctx_t__(cbs, ctx, v, 2, &len, tmo); if (!err && len != tot_len) err = EIO; if (err) { EI_CONN_SAVE_ERRNO__(err); return -1; } return 0; } #endif /* EI_HAVE_STRUCT_IOVEC__ */ /* no writev() */ len = tot_len = (ssize_t) index; err = ei_write_fill_ctx_t__(cbs, ctx, header, &len, tmo); if (!err && len != tot_len) err = EIO; if (err) { EI_CONN_SAVE_ERRNO__(err); return -1; } len = tot_len = (ssize_t) msglen; err = ei_write_fill_ctx_t__(cbs, ctx, msg, &len, tmo); if (!err && len != tot_len) err = EIO; if (err) { EI_CONN_SAVE_ERRNO__(err); return -1; } return 0; }