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)