1 /* Copyright (C) 2002 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Lesser General Public
6 License as published by the Free Software Foundation; either
7 version 2.1 of the License, or (at your option) any later version.
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Lesser General Public License for more details.
14 You should have received a copy of the GNU Lesser General Public
15 License along with the GNU C Library; if not, write to the Free
16 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
24 #include <sys/socket.h>
25 #include <sys/fcntl.h>
34 # define __socket(d, t, p) socket ((d), (t), (p))
35 # define __close(f) close ((f))
39 svc_socket (u_long number, int type, int protocol, int reuse)
41 struct sockaddr_in addr;
42 socklen_t len = sizeof (struct sockaddr_in);
43 char rpcdata [1024], servdata [1024];
44 struct rpcent rpcbuf, *rpcp;
45 struct servent servbuf, *servp = NULL;
47 const char *proto = protocol == IPPROTO_TCP ? "tcp" : "udp";
49 if ((sock = __socket (AF_INET, type, protocol)) < 0)
51 perror (_("svc_socket: socket creation problem"));
58 ret = setsockopt (sock, SOL_SOCKET, SO_REUSEADDR, &ret,
62 perror (_("svc_socket: socket reuse problem"));
67 __bzero ((char *) &addr, sizeof (addr));
68 addr.sin_family = AF_INET;
70 ret = getrpcbynumber_r (number, &rpcbuf, rpcdata, sizeof rpcdata,
72 if (ret == 0 && rpcp != NULL)
75 ret = getservbyname_r (rpcp->r_name, proto, &servbuf, servdata,
76 sizeof servdata, &servp);
77 if ((ret != 0 || servp == NULL) && rpcp->r_aliases)
81 /* Then we try aliases. */
82 for (a = (const char **) rpcp->r_aliases; *a != NULL; a++)
84 ret = getservbyname_r (*a, proto, &servbuf, servdata,
85 sizeof servdata, &servp);
86 if (ret == 0 && servp != NULL)
92 if (ret == 0 && servp != NULL)
94 addr.sin_port = servp->s_port;
95 if (bind (sock, (struct sockaddr *) &addr, len) < 0)
97 perror (_("svc_socket: bind problem"));
98 (void) __close (sock);
104 if (bindresvport (sock, &addr))
107 if (bind (sock, (struct sockaddr *) &addr, len) < 0)
109 perror (_("svc_socket: bind problem"));
110 (void) __close (sock);
116 if (sock >= 0 && protocol == IPPROTO_TCP)
118 /* Make the TCP rendezvous socket non-block to avoid
119 * problems with blocking in accept() after a spurious
120 * wakeup from the kernel */
122 if ((flags = fcntl(sock, F_GETFL)) < 0)
124 perror (_("svc_socket: can't get socket flags"));
125 (void) __close (sock);
128 else if (fcntl(sock, F_SETFL, flags|O_NONBLOCK) < 0)
130 perror (_("svc_socket: can't set socket flags"));
131 (void) __close (sock);
140 * Create and bind a TCP socket based on program number
143 svctcp_socket (u_long number, int reuse)
145 return svc_socket (number, SOCK_STREAM, IPPROTO_TCP, reuse);
149 * Create and bind a UDP socket based on program number
152 svcudp_socket (u_long number, int reuse)
154 return svc_socket (number, SOCK_DGRAM, IPPROTO_UDP, reuse);
159 check (u_long number, u_short port, int protocol, int reuse)
163 struct sockaddr_in addr;
164 socklen_t len = sizeof (struct sockaddr_in);
166 if (protocol == IPPROTO_TCP)
167 socket = svctcp_socket (number, reuse);
169 socket = svcudp_socket (number, reuse);
174 result = getsockname (socket, (struct sockaddr *) &addr, &len);
177 if (port != 0 && ntohs (addr.sin_port) != port)
178 printf ("Program: %ld, expect port: %d, got: %d\n",
179 number, port, ntohs (addr.sin_port));
181 printf ("Program: %ld, port: %d\n",
182 number, ntohs (addr.sin_port));
194 result += check (100001, 0, IPPROTO_TCP, 0);
195 result += check (100001, 0, IPPROTO_UDP, 0);
196 result += check (100003, 2049, IPPROTO_TCP, 1);
197 result += check (100003, 2049, IPPROTO_UDP, 1);