🚀 go-pugleaf

I was playing with open-network-stream the other day, and was
not satisfied with the error message that it returned if
the connect failed.  I added checks for a few common errors
so that the messages returned are useful.

			Eric Negaard
			negaard@aerospace.aero.org
			...!uunet!aero.org!negaard


diff -c process.c.old process.c
*** process.c.old	Thu Nov  2 09:52:15 1989
--- process.c	Tue Oct 24 10:07:48 1989
***************
*** 1119,1124 ****
--- 1134,1140 ----
    int s, outch, inch;
    char errstring[80];
    int port;
+   int xerrno;
  
    CHECK_STRING (name, 0);
    CHECK_STRING (host, 0);
***************
*** 1146,1155 ****
    if (s < 0) 
      report_file_error ("error creating socket", Fcons (name, Qnil));
  
    if (connect (s, &address, sizeof address) == -1)
      {
        close (s);
!       error ("Host \"%s\" not responding", XSTRING (host)->data);
      }
  
    inch = s;
--- 1162,1191 ----
    if (s < 0) 
      report_file_error ("error creating socket", Fcons (name, Qnil));
  
+ loop:
    if (connect (s, &address, sizeof address) == -1)
      {
+       if (errno == EINTR)
+ 	goto loop;
+       xerrno = errno;
        close (s);
! #ifdef ECONNREFUSED
!       if (xerrno == ECONNREFUSED)
!         error ("Connection refused by host \"%s\"", XSTRING (host)->data);
!       else
! #endif
! #ifdef ENETUNREACH
!       if (xerrno == ENETUNREACH)
!         error ("\"%s\": Network is unreachable", XSTRING (host)->data);
!       else
! #endif
! #ifdef ETIMEDOUT
!       if (xerrno == ETIMEDOUT)
!         error ("Host \"%s\" not responding", XSTRING (host)->data);
!       else
! #endif
!         error ("Can't connect to Host \"%s\"", XSTRING (host)->data);
      }
  
    inch = s;