arch/all-mingw32/bsdsocket/getprotobyname.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 #include <netdb.h>
  11
  12 #include "bsdsocket_intern.h"
  13 #include "bsdsocket_util.h"
  14 #include "netdb_util.h"
  15
  16 /*****************************************************************************
  17
  18     NAME */
  19
  20         AROS_LH1(struct protoent *, getprotobyname,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(char *, name, A0),
  24
  25 /*  LOCATION */
  26         struct TaskBase *, taskBase, 41, BSDSocket)
  27
  28 /*  FUNCTION
  29
  30     INPUTS
  31
  32     RESULT
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44     HISTORY
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     struct bsdsocketBase *SocketBase = taskBase->glob;
  51     struct PROTOENT *wsentry;
  52     struct protoent *arosentry = NULL;
  53     int err = 0;
  54
  55     Forbid();
  56
  57     wsentry = WSgetprotobyname(name);
  58     D(bug("[getprotobyname] Name: %s, WinSock protoent: 0x%p\n", name, wsentry));
  59
  60     if (wsentry)
  61     {
  62         arosentry = CopyProtoEntry(wsentry, taskBase->pool);
  63         D(bug("[getprorobyname] AROS protoent: 0x%p\n", arosentry));
  64         if (!arosentry)
  65             err = ENOMEM;
  66     }
  67     else
  68     {
  69         err = WSAGetLastError() - WSABASEERR;
  70         D(bug("[getprotobyname] WinSock error %u\n", err));
  71     }
  72
  73     Permit();
  74
  75     if (arosentry)
  76     {
  77         if (taskBase->pe)
  78             FreeProtoEntry(taskBase->pe, taskBase->pool);
  79         taskBase->pe = arosentry;
  80     }
  81     else
  82         SetError(err, taskBase);
  83
  84     return arosentry;
  85
  86     AROS_LIBFUNC_EXIT
  87
  88 } /* getprotobyname */