imapext-2007
view src/osdep/unix/ip4_unix.c @ 0:ada5e610ab86
imap-2007e
| author | yuuji@gentei.org |
|---|---|
| date | Mon, 14 Sep 2009 15:17:45 +0900 |
| parents | |
| children |
line source
1 /* ========================================================================
2 * Copyright 1988-2006 University of Washington
3 *
4 * Licensed under the Apache License, Version 2.0 (the "License");
5 * you may not use this file except in compliance with the License.
6 * You may obtain a copy of the License at
7 *
8 * http://www.apache.org/licenses/LICENSE-2.0
9 *
10 *
11 * ========================================================================
12 */
14 /*
15 * Program: UNIX IPv4 routines
16 *
17 * Author: Mark Crispin
18 * Networks and Distributed Computing
19 * Computing & Communications
20 * University of Washington
21 * Administration Building, AG-44
22 * Seattle, WA 98195
23 * Internet: MRC@CAC.Washington.EDU
24 *
25 * Date: 18 December 2003
26 * Last Edited: 30 August 2006
27 */
29 #define SADRLEN sizeof (struct sockaddr)
31 #define SADR4(sadr) ((struct sockaddr_in *) sadr)
32 #define SADR4LEN sizeof (struct sockaddr_in)
33 #define SADR4ADR(sadr) SADR4 (sadr)->sin_addr
34 #define ADR4LEN sizeof (struct in_addr)
35 #define SADR4PORT(sadr) SADR4 (sadr)->sin_port
38 /* IP abstraction layer */
40 char *ip_sockaddrtostring (struct sockaddr *sadr);
41 long ip_sockaddrtoport (struct sockaddr *sadr);
42 void *ip_stringtoaddr (char *text,size_t *len,int *family);
43 struct sockaddr *ip_newsockaddr (size_t *len);
44 struct sockaddr *ip_sockaddr (int family,void *adr,size_t adrlen,
45 unsigned short port,size_t *len);
46 char *ip_sockaddrtoname (struct sockaddr *sadr);
47 void *ip_nametoaddr (char *name,size_t *len,int *family,char **canonical,
48 void **next);
50 /* Return IP address string from socket address
51 * Accepts: socket address
52 * Returns: IP address as name string
53 */
55 char *ip_sockaddrtostring (struct sockaddr *sadr)
56 {
57 return (sadr->sa_family == PF_INET) ?
58 inet_ntoa (SADR4ADR (sadr)) : "NON-IPv4";
59 }
62 /* Return port from socket address
63 * Accepts: socket address
64 * Returns: port number or -1 if can't determine it
65 */
67 long ip_sockaddrtoport (struct sockaddr *sadr)
68 {
69 return (sadr->sa_family == PF_INET) ? ntohs (SADR4PORT (sadr)) : -1;
70 }
73 /* Return IP address from string
74 * Accepts: name string
75 * pointer to returned length
76 * pointer to returned address family
77 * Returns: address if valid, length and family updated, or NIL
78 */
80 void *ip_stringtoaddr (char *text,size_t *len,int *family)
81 {
82 unsigned long adr;
83 struct in_addr *ret;
84 /* get address */
85 if ((adr = inet_addr (text)) == -1) ret = NIL;
86 else { /* make in_addr */
87 ret = (struct in_addr *) fs_get (*len = ADR4LEN);
88 *family = AF_INET; /* IPv4 */
89 ret->s_addr = adr; /* set address */
90 }
91 return (void *) ret;
92 }
94 /* Create a maximum-size socket address
95 * Accepts: pointer to return maximum socket address length
96 * Returns: new, empty socket address of maximum size
97 */
99 struct sockaddr *ip_newsockaddr (size_t *len)
100 {
101 return (struct sockaddr *) memset (fs_get (SADRLEN),0,*len = SADRLEN);
102 }
105 /* Stuff a socket address
106 * Accepts: address family
107 * IPv4 address
108 * length of address (always 4 in IPv4)
109 * port number
110 * pointer to return socket address length
111 * Returns: socket address or NIL if error
112 */
114 struct sockaddr *ip_sockaddr (int family,void *adr,size_t adrlen,
115 unsigned short port,size_t *len)
116 {
117 struct sockaddr *sadr = ip_newsockaddr (len);
118 switch (family) { /* build socket address based upon family */
119 case AF_INET: /* IPv4 */
120 sadr->sa_family = PF_INET;
121 /* copy host address */
122 memcpy (&SADR4ADR (sadr),adr,adrlen);
123 /* copy port number in network format */
124 SADR4PORT (sadr) = htons (port);
125 *len = SADR4LEN;
126 break;
127 default: /* non-IP?? */
128 sadr->sa_family = PF_UNSPEC;
129 break;
130 }
131 return sadr;
132 }
134 /* Return name from socket address
135 * Accepts: socket address
136 * Returns: canonical name for that address or NIL if none
137 */
139 char *ip_sockaddrtoname (struct sockaddr *sadr)
140 {
141 struct hostent *he;
142 return ((sadr->sa_family == PF_INET) &&
143 (he = gethostbyaddr ((char *) &SADR4ADR (sadr),ADR4LEN,AF_INET))) ?
144 (char *) he->h_name : NIL;
145 }
148 /* Return address from name
149 * Accepts: name or NIL to return next address
150 * pointer to previous/returned length
151 * pointer to previous/returned address family
152 * pointer to previous/returned canonical name
153 * pointer to previous/return state for next-address calls
154 * Returns: address with length/family/canonical updated if needed, or NIL
155 */
157 void *ip_nametoaddr (char *name,size_t *len,int *family,char **canonical,
158 void **next)
159 {
160 char **adl,tmp[MAILTMPLEN];
161 struct hostent *he;
162 if (name) { /* first lookup? */
163 /* yes, do case-independent lookup */
164 if ((strlen (name) < MAILTMPLEN) &&
165 (he = gethostbyname (lcase (strcpy (tmp,name))))) {
166 adl = he->h_addr_list;
167 if (len) *len = he->h_length;
168 if (family) *family = he->h_addrtype;
169 if (canonical) *canonical = (char *) he->h_name;
170 if (next) *next = (void *) adl;
171 }
172 else { /* error */
173 adl = NIL;
174 if (len) *len = 0;
175 if (family) *family = 0;
176 if (canonical) *canonical = NIL;
177 if (next) *next = NIL;
178 }
179 }
180 /* return next in series */
181 else if (next && (adl = (char **) *next)) *next = ++adl;
182 else adl = NIL; /* failure */
183 return adl ? (void *) *adl : NIL;
184 }