suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use mz_addrinfo, scheme_getnameinfo

Browse Source 
svn: r1726
This commit is contained in:
Matthew Flatt 2005-12-31 03:13:11 +00:00
parent f60df3fbe5
commit cfdbbf6a54
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/openssl/mzssl.c
View File

@ -1037,7 +1037,7 @@ static Scheme_Object *ssl_connect(int argc, Scheme_Object *argv[])
int status; int status;
const char *errstr = "Unknown error"; const char *errstr = "Unknown error";
int err = 0; int err = 0;
GC_CAN_IGNORE struct addrinfo *addr; GC_CAN_IGNORE struct mz_addrinfo *addr;
int sock; int sock;
address = check_host_and_convert("ssl-connect", argc, argv, 0); address = check_host_and_convert("ssl-connect", argc, argv, 0);
@ -1191,7 +1191,7 @@ ssl_listen(int argc, Scheme_Object *argv[])
} }
{ {
GC_CAN_IGNORE struct addrinfo *tcp_listen_addr; GC_CAN_IGNORE struct mz_addrinfo *tcp_listen_addr;
int err; int err;
tcp_listen_addr = scheme_get_host_address(address, id, &err, tcp_listen_addr = scheme_get_host_address(address, id, &err,
@ -1623,16 +1623,14 @@ static Scheme_Object *ssl_addresses(int argc, Scheme_Object *argv[])
} }
there_len = l; there_len = l;
getnameinfo((struct sockaddr *)here, here_len, scheme_getnameinfo((struct sockaddr *)here, here_len,
host_buf, sizeof(host_buf), host_buf, sizeof(host_buf),
NULL, 0, NULL, 0);
NI_NUMERICHOST | NI_NUMERICSERV);
result[0] = scheme_make_utf8_string(host_buf); result[0] = scheme_make_utf8_string(host_buf);
getnameinfo((struct sockaddr *)there, there_len, scheme_getnameinfo((struct sockaddr *)there, there_len,
host_buf, sizeof(host_buf), host_buf, sizeof(host_buf),
NULL, 0, NULL, 0);
NI_NUMERICHOST | NI_NUMERICSERV);
result[1] = scheme_make_utf8_string(host_buf); result[1] = scheme_make_utf8_string(host_buf);
} }