arch/all-mingw32/bsdsocket/sendto.c

   1 /*
   2     Copyright © 2000-2010, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #define DEBUG 1
  10
  11 #include <proto/exec.h>
  12
  13 #include <sys/errno.h>
  14 #include <sys/socket.h>
  15
  16 #include "bsdsocket_intern.h"
  17 #include "bsdsocket_util.h"
  18 #include "socket_intern.h"
  19
  20 /* FIXME: AROS libc has incorrect values in errno.h */
  21 #undef  EWOULDBLOCK
  22 #define EWOULDBLOCK 35
  23
  24 /*****************************************************************************
  25
  26     NAME */
  27
  28         AROS_LH6(int, sendto,
  29
  30 /*  SYNOPSIS */
  31         AROS_LHA(int,                     s,     D0),
  32         AROS_LHA(const void *,            msg,   A0),
  33         AROS_LHA(int,                     len,   D1),
  34         AROS_LHA(int,                     flags, D2),
  35         AROS_LHA(const struct sockaddr *, to,    A1),
  36         AROS_LHA(int,                     tolen, D3),
  37
  38 /*  LOCATION */
  39         struct TaskBase *, taskBase, 12, BSDSocket)
  40
  41 /*  FUNCTION
  42
  43     INPUTS
  44
  45     RESULT
  46
  47     NOTES
  48
  49     EXAMPLE
  50
  51     BUGS
  52
  53     SEE ALSO
  54
  55     INTERNALS
  56
  57     HISTORY
  58
  59 *****************************************************************************/
  60 {
  61     AROS_LIBFUNC_INIT
  62
  63     struct bsdsocketBase *SocketBase = taskBase->glob;
  64     int res;
  65     int err = 0;
  66     struct WSsockaddr *sa;
  67     struct Socket *sd;
  68
  69     D(bug("[sendto] Sending %u bytes to socket %u\n", len, s));
  70     sd = GetSocket(s, taskBase);
  71     if (!sd)
  72         return -1;
  73
  74     D(bug("[sendto] Descriptor 0x%p, Windows socket %d\n", sd, sd->s));
  75     sa = MakeSockAddr(to, tolen, taskBase);
  76     if (!sa)
  77         return -1;
  78
  79     Forbid();
  80
  81     res = WSsendto(sd->s, msg, len, flags, sa, tolen);
  82     if (res == -1)
  83         err = WSAGetLastError() - WSABASEERR;
  84
  85     Permit();
  86     FreePooled(taskBase->pool, sa, tolen);
  87     D(bug("[sendto] Result: %d, Error: %u\n", res, err));
  88
  89     /* From Windows side all sockets are asynchronous, but from AROS side
  90        not all are. So if AROS socket is synchronous and Windows returned us
  91        EWOULDBLOCK, we need to wait for completion */
  92     if ((err == EWOULDBLOCK) && (!(sd->flags & SOF_NBIO)))
  93     {
  94         D(bug("[sendto] Waiting for the completion\n"));
  95
  96     }
  97
  98     if (res == -1)
  99         SetError(err, taskBase);
 100
 101     return res;
 102
 103     AROS_LIBFUNC_EXIT
 104
 105 } /* sendto */