diff options
Diffstat (limited to 'lib/erl_interface/src/not_used/ei_send_reg.c')
| -rw-r--r-- | lib/erl_interface/src/not_used/ei_send_reg.c | 108 |
1 files changed, 0 insertions, 108 deletions
diff --git a/lib/erl_interface/src/not_used/ei_send_reg.c b/lib/erl_interface/src/not_used/ei_send_reg.c deleted file mode 100644 index ba9c7348f9..0000000000 --- a/lib/erl_interface/src/not_used/ei_send_reg.c +++ /dev/null @@ -1,108 +0,0 @@ -/* - * %CopyrightBegin% - * - * Copyright Ericsson AB 2001-2016. All Rights Reserved. - * - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - * - * %CopyrightEnd% - * - - */ -#ifdef __WIN32__ -#include <winsock2.h> -#include <windows.h> -#include <winbase.h> - -#elif VXWORKS -#include <sys/types.h> -#include <unistd.h> - -#else /* unix */ -#include <sys/types.h> -#include <unistd.h> -#include <sys/uio.h> -#endif - -#include "eidef.h" -#include "eiext.h" -#include "ei_connect.h" -#include "ei_internal.h" -#include "putget.h" -#include "ei_trace.h" -#include "show_msg.h" - -/* FIXME this is not useed !!!!! */ -/* FIXME merge with ei_send.c */ - -/* length (4), PASS_THROUGH (1), header, message */ -int ei_ei_send_reg_encoded(ei_cnode* ec, int fd, const erlang_pid *from, - const char *to, const char *msg, int msglen) -{ - char *s, header[1400]; /* see size calculation below */ - erlang_trace *token = NULL; - int index = 5; /* reserve 5 bytes for control message */ -#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,(erlang_trace *)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(ec, 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 */ - -#ifdef DEBUG_DIST - if (ei_trace_distribution > 0) ei_show_sendmsg(stderr,header,msg); -#endif - -#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 (writev(fd,v,2) != index+msglen) return -1; - -#else - - /* no writev() */ - if (writesocket(fd,header,index) != index) return -1; - if (writesocket(fd,msg,msglen) != msglen) return -1; - -#endif - - return 0; -} |