arch/all-mingw32/bsdsocket/closesocket.c

   1 /*
   2     Copyright © 1995-2010, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include <sys/errno.h>
  10
  11 #include "bsdsocket_intern.h"
  12 #include "bsdsocket_util.h"
  13 #include "socket_intern.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19         AROS_LH1(int, CloseSocket,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(int, s, D0),
  23
  24 /*  LOCATION */
  25         struct TaskBase *, taskBase, 20, BSDSocket)
  26
  27 /*  FUNCTION
  28
  29     INPUTS
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43     HISTORY
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     struct Socket *sd;
  50
  51     D(bug("[bsdsocket] CloseSocket(%u)\n", s));
  52
  53     sd = IntCloseSocket(s, taskBase);
  54     if (sd)
  55     {
  56         Remove((struct Node *)sd);
  57         FreePooled(taskBase->pool, sd, sizeof(struct Socket));
  58
  59         taskBase->dTable[s] = NULL;
  60         return 0;
  61     }
  62     else
  63         return -1;
  64
  65     AROS_LIBFUNC_EXIT
  66 } /* CloseSocket */
  67
  68 struct Socket *IntCloseSocket(int s, struct TaskBase *taskBase)
  69 {
  70     struct Socket *sd = GetSocket(s, taskBase);
  71
  72     if (sd)
  73     {
  74         struct bsdsocketBase *SocketBase = taskBase->glob;
  75         int err;
  76
  77         Forbid();
  78         err = WSclosesocket(sd->s);
  79         if (err)
  80             err = WSAGetLastError() - WSABASEERR;
  81         Permit();
  82         D(bug("[CloseSocket] Closed socket %u, error %u\n", s, err));
  83
  84         if (err)
  85         {
  86             SetError(err, taskBase);
  87             sd = NULL;
  88         }
  89     }
  90
  91     return sd;
  92 }