Mercurial > emacs
comparison src/process.c @ 8287:97c2535b7f37
(Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 19 Jul 1994 19:35:43 +0000 |
parents | 5226ed89c1a6 |
children | 14ddb4c66461 |
comparison
equal
deleted
inserted
replaced
8286:60e866c3e99c | 8287:97c2535b7f37 |
---|---|
1512 error ("Unknown service \"%s\"", XSTRING (service)->data); | 1512 error ("Unknown service \"%s\"", XSTRING (service)->data); |
1513 port = svc_info->s_port; | 1513 port = svc_info->s_port; |
1514 } | 1514 } |
1515 | 1515 |
1516 #ifndef TERM | 1516 #ifndef TERM |
1517 host_info_ptr = gethostbyname (XSTRING (host)->data); | 1517 while (1) |
1518 { | |
1519 host_info_ptr = gethostbyname (XSTRING (host)->data); | |
1520 #ifdef TRY_AGAIN | |
1521 if (! (host_info_ptr == 0 && h_errno == TRY_AGAIN)) | |
1522 #endif | |
1523 break; | |
1524 Fsleep_for (make_number (1), Qnil); | |
1525 } | |
1518 if (host_info_ptr == 0) | 1526 if (host_info_ptr == 0) |
1519 /* Attempt to interpret host as numeric inet address */ | 1527 /* Attempt to interpret host as numeric inet address */ |
1520 { | 1528 { |
1521 numeric_addr = inet_addr ((char *) XSTRING (host)->data); | 1529 numeric_addr = inet_addr ((char *) XSTRING (host)->data); |
1522 if (NUMERIC_ADDR_ERROR) | 1530 if (NUMERIC_ADDR_ERROR) |