strerror(SOCKET_ERRNO) : "(Error number not translated)"));
strerror(SOCKET_ERRNO) : "(Error number not translated)")));
PUBLIC int HTInetStatus ARGS1(	char *, 	where){#ifdef VMS#ifdef MULTINET    SOCKET_ERRNO = vmserrno;#endif /* MULTINET */#endif /* VMS */    CTRACE(tfp,	"TCP: Error %d in `SOCKET_ERRNO' after call to %s() failed.\n\t%s\n",	   SOCKET_ERRNO,  where,	   /* third arg is transport/platform specific */#ifdef VM	   "(Error number not translated)");	/* What Is the VM equiv? */#define ER_NO_TRANS_DONE#endif /* VM */#ifdef VMS#ifdef MULTINET	   vms_errno_string());#else	   ((SOCKET_ERRNO > 0 && SOCKET_ERRNO <= 65) ?	    strerror(SOCKET_ERRNO) : "(Error number not translated)"));#endif /* MULTINET */#define ER_NO_TRANS_DONE#endif /* VMS */#ifdef HAVE_STRERROR	   strerror(SOCKET_ERRNO));#define ER_NO_TRANS_DONE#endif /* HAVE_STRERROR */#ifndef ER_NO_TRANS_DONE	   (SOCKET_ERRNO < sys_nerr ?	    sys_errlist[SOCKET_ERRNO] : "Unknown error" ));#endif /* !ER_NO_TRANS_DONE */#ifdef VMS#ifndef MULTINET    CTRACE(tfp,	   "         Unix error number (SOCKET_ERRNO) = %ld dec\n",	   SOCKET_ERRNO);    CTRACE(tfp,	   "         VMS error (vaxc$errno)    = %lx hex\n",	   vaxc$errno);#endif /* MULTINET */#endif /* VMS */#ifdef VMS    /*    **	uerrno and errno happen to be zero if vmserrno <> 0    */#ifdef MULTINET    return -vmserrno;#else    return -vaxc$errno;#endif /* MULTINET */#else    return -SOCKET_ERRNO;#endif /* VMS */}