home *** CD-ROM | disk | FTP | other *** search
/ CICA 1995 May / cica_0595_4.zip / cica_0595_4 / WINSOCK / PASTEL10 / ERROR.INC < prev    next >
Text File  |  1994-11-10  |  5KB  |  112 lines
  1. {
  2.   Error routine used by Pascal Winsock apps.
  3.   Public Domain 1994 by
  4.   Mike Caughran Cedar Island Software  [71034,2371]
  5. }
  6.  
  7. procedure Error(s : String);
  8. begin
  9.   Write(S,' error : ');
  10.   Case WSAGetLastError of
  11.      WSAEINTR           : writeln('WSAEINTR');
  12.      WSAEBADF           : writeln('WSAEINTR');
  13.      WSAEFAULT          : writeln('WSAEFAULT');
  14.      WSAEINVAL          : writeln('WSAEINVAL');
  15.      WSAEMFILE          : writeln('WSAEMFILE');
  16.      WSAEWOULDBLOCK     : writeln('WSAEWOULDBLOCK');
  17.      WSAEINPROGRESS     : writeln('WSAEINPROGRESS');
  18.      WSAEALREADY        : writeln('WSAEALREADY');
  19.      WSAENOTSOCK        : writeln('WSAENOTSOCK');
  20.      WSAEDESTADDRREQ    : writeln('WSAEDESTADDRREQ');
  21.      WSAEMSGSIZE        : writeln('WSAEMSGSIZE');
  22.      WSAEPROTOTYPE      : writeln('WSAEPROTOTYPE');
  23.      WSAENOPROTOOPT     : writeln('WSAENOPROTOOPT');
  24.      WSAEPROTONOSUPPORT : writeln('WSAEPROTONOSUPPORT');
  25.      WSAESOCKTNOSUPPORT : writeln('WSAESOCKTNOSUPPORT');
  26.      WSAEOPNOTSUPP      : writeln('WSAEOPNOTSUPP');
  27.      WSAEPFNOSUPPORT    : writeln('WSAEPFNOSUPPORT');
  28.      WSAEAFNOSUPPORT    : writeln('WSAEAFNOSUPPORT');
  29.      WSAEADDRINUSE      : writeln('WSAEADDRINUSE');
  30.      WSAEADDRNOTAVAIL   : writeln('WSAEADDRNOTAVAIL');
  31.      WSAENETDOWN        : writeln('WSAENETDOWN');
  32.      WSAENETUNREACH     : writeln('WSAENETUNREACH');
  33.      WSAENETRESET       : writeln('WSAENETRESET');
  34.      WSAECONNABORTED    : writeln('WSAECONNABORTED');
  35.      WSAECONNRESET      : writeln('WSAECONNRESET');
  36.      WSAENOBUFS         : writeln('WSAENOBUFS');
  37.      WSAEISCONN         : writeln('WSAEISCONN');
  38.      WSAENOTCONN        : writeln('WSAENOTCONN');
  39.      WSAESHUTDOWN       : writeln('WSAESHUTDOWN');
  40.      WSAETOOMANYREFS    : writeln('WSAETOOMANYREFS');
  41.      WSAETIMEDOUT       : writeln('WSAETIMEDOUT');
  42.      WSAECONNREFUSED    : writeln('WSAECONNREFUSED');
  43.      WSAELOOP           : writeln('WSAELOOP');
  44.      WSAENAMETOOLONG    : writeln('WSAENAMETOOLONG');
  45.      WSAEHOSTDOWN       : writeln('WSAEHOSTDOWN');
  46.      WSAEHOSTUNREACH    : writeln('WSAEHOSTUNREACH');
  47.      WSAENOTEMPTY       : writeln('WSAENOTEMPTY');
  48.      WSAEPROCLIM        : writeln('WSAEPROCLIM');
  49.      WSAEUSERS          : writeln('WSAEUSERS');
  50.      WSAEDQUOT          : writeln('WSAEDQUOT');
  51.      WSAESTALE          : writeln('WSAESTALE');
  52.      WSAEREMOTE         : writeln('WSAEREMOTE');
  53.      WSASYSNOTREADY     : writeln('WSASYSNOTREADY');
  54.      WSAVERNOTSUPPORTED : writeln('WSAVERNOTSUPPORTED');
  55.      WSANOTINITIALISED  : writeln('WSANOTINITIALISED');
  56.      WSAHOST_NOT_FOUND  : writeln('WSAHOST_NOT_FOUND');
  57.      HOST_NOT_FOUND     : writeln('HOST_NOT_FOUND');
  58.      WSATRY_AGAIN       : writeln('WSATRY_AGAIN');
  59.      TRY_AGAIN          : writeln('TRY_AGAIN');
  60.      WSANO_RECOVERY     : writeln('WSANO_RECOVERY');
  61.      NO_RECOVERY        : writeln('NO_RECOVERY');
  62.      WSANO_DATA         : writeln('WSANO_DATA');
  63.      NO_DATA            : writeln('NO_DATA');
  64.      WSANO_ADDRESS      : writeln('WSANO_ADDRESS');
  65.      NO_ADDRESS         : writeln('NO_ADDRESS');
  66.      EWOULDBLOCK        : writeln('EWOULDBLOCK');
  67.      EINPROGRESS        : writeln('EINPROGRESS');
  68.      EALREADY           : writeln('EALREADY');
  69.      ENOTSOCK           : writeln('ENOTSOCK');
  70.      EDESTADDRREQ       : writeln('EDESTADDRREQ');
  71.      EMSGSIZE           : writeln('EMSGSIZE');
  72.      EPROTOTYPE         : writeln('EPROTOTYPE');
  73.      ENOPROTOOPT        : writeln('ENOPROTOOPT');
  74.      EPROTONOSUPPORT    : writeln('EPROTONOSUPPORT');
  75.      ESOCKTNOSUPPORT    : writeln('ESOCKTNOSUPPORT');
  76.      EOPNOTSUPP         : writeln('EOPNOTSUPP');
  77.      EPFNOSUPPORT       : writeln('EPFNOSUPPORT');
  78.      EAFNOSUPPORT       : writeln('EAFNOSUPPORT');
  79.      EADDRINUSE         : writeln('EADDRINUSE');
  80.      EADDRNOTAVAIL      : writeln('EADDRNOTAVAIL');
  81.      ENETDOWN           : writeln('ENETDOWN');
  82.      ENETUNREACH        : writeln('ENETUNREACH');
  83.      ENETRESET          : writeln('ENETRESET');
  84.      ECONNABORTED       : writeln('ECONNABORTED');
  85.      ECONNRESET         : writeln('ECONNRESET');
  86.      ENOBUFS            : writeln('ENOBUFS');
  87.      EISCONN            : writeln('EISCONN');
  88.      ENOTCONN           : writeln('ENOTCONN');
  89.      ESHUTDOWN          : writeln('ESHUTDOWN');
  90.      ETOOMANYREFS       : writeln('ETOOMANYREFS');
  91.      ETIMEDOUT          : writeln('ETIMEDOUT');
  92.      ECONNREFUSED       : writeln('ECONNREFUSED');
  93.      ELOOP              : writeln('ELOOP');
  94.      ENAMETOOLONG       : writeln('ENAMETOOLONG');
  95.      EHOSTDOWN          : writeln('EHOSTDOWN');
  96.      EHOSTUNREACH       : writeln('EHOSTUNREACH');
  97.      ENOTEMPTY          : writeln('ENOTEMPTY');
  98.      EPROCLIM           : writeln('EPROCLIM');
  99.      EUSERS             : writeln('EUSERS');
  100.      EDQUOT             : writeln('EDQUOT');
  101.      ESTALE             : writeln('ESTALE');
  102.      EREMOTE            : writeln('EREMOTE');
  103.   end;
  104. end;
  105.  
  106. procedure Abort(S : String);
  107. begin
  108.   Error(S);
  109.   Writeln('Program halted.');
  110.   CleanUp;
  111.   Halt(255);
  112. end;