Merge up from branch.
[shibboleth/cpp-sp.git] / oncrpc / bindresv.c
1 /*********************************************************************
2  * RPC for the Windows NT Operating System
3  * 1993 by Martin F. Gergeleit
4  * Users may use, copy or modify Sun RPC for the Windows NT Operating 
5  * System according to the Sun copyright below.
6  *
7  * RPC for the Windows NT Operating System COMES WITH ABSOLUTELY NO 
8  * WARRANTY, NOR WILL I BE LIABLE FOR ANY DAMAGES INCURRED FROM THE 
9  * USE OF. USE ENTIRELY AT YOUR OWN RISK!!!
10  *********************************************************************/
11
12 static  char sccsid[] = "@(#)bindresvport.c     2.2 88/07/29 4.0 RPCSRC 1.8 88/02/08 SMI";
13 /*
14  * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
15  * unrestricted use provided that this legend is included on all tape
16  * media and as a part of the software program in whole or part.  Users
17  * may copy or modify Sun RPC without charge, but are not authorized
18  * to license or distribute it to anyone else except as part of a product or
19  * program developed by the user.
20  * 
21  * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
22  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
23  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
24  * 
25  * Sun RPC is provided with no support and without any obligation on the
26  * part of Sun Microsystems, Inc. to assist in its use, correction,
27  * modification or enhancement.
28  * 
29  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
30  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
31  * OR ANY PART THEREOF.
32  * 
33  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
34  * or profits or other special, indirect and consequential damages, even if
35  * Sun has been advised of the possibility of such damages.
36  * 
37  * Sun Microsystems, Inc.
38  * 2550 Garcia Avenue
39  * Mountain View, California  94043
40  */
41
42 /*
43  * Copyright (c) 1987 by Sun Microsystems, Inc.
44  */
45
46 #ifdef WIN32
47 #include <rpc/rpc.h>
48 #include <sys/types.h>
49 #include <errno.h>
50 #else
51 #include <sys/types.h>
52 #include <sys/errno.h>
53 #include <sys/socket.h>
54 #include <netinet/in.h>
55 #endif
56
57 /*
58  * Bind a socket to a privileged IP port
59  */
60 bindresvport(sd, sin)
61 int sd;
62 struct sockaddr_in *sin;
63 {
64         int res;
65         static short port;
66         struct sockaddr_in myaddr;
67 #ifdef WIN32
68         int my_errno;
69 #else
70         extern int errno;
71 #endif
72         int i;
73
74 #define STARTPORT 600
75 #define ENDPORT (IPPORT_RESERVED - 1)
76 #define NPORTS  (ENDPORT - STARTPORT + 1)
77
78         if (sin == (struct sockaddr_in *)0) {
79                 sin = &myaddr;
80                 bzero((char*)sin, sizeof (*sin));
81                 sin->sin_family = AF_INET;
82         } else if (sin->sin_family != AF_INET) {
83 #ifdef WIN32
84                 my_errno = WSAEPFNOSUPPORT;
85 #else
86                 errno = EPFNOSUPPORT;
87 #endif
88
89                 return (-1);
90         }
91         if (port == 0) {
92                 port = (getpid() % NPORTS) + STARTPORT;
93         }
94         res = -1;
95 #ifdef WIN32
96         my_errno = WSAEADDRINUSE;
97         for (i = 0; i < NPORTS && res < 0 && my_errno == WSAEADDRINUSE; i++) {
98 #else
99         errno = EADDRINUSE;
100         for (i = 0; i < NPORTS && res < 0 && errno == EADDRINUSE; i++) {
101 #endif
102                 sin->sin_port = htons(port++);
103                 if (port > ENDPORT) {
104                         port = STARTPORT;
105                 }
106                 res = bind(sd, (struct sockaddr*)sin, sizeof(struct sockaddr_in));
107 #ifdef WIN32
108                 my_errno = WSAerrno;
109 #endif
110         }
111         return (res);
112 }