Changeset 6995 for trunk/src/ws2_32/socket.cpp

Timestamp:

Oct 10, 2001, 9:08:08 PM (24 years ago)

Author:

phaller

Message:

added wrapper macros

File:

• trunk/src/ws2_32/socket.cpp (modified) (6 diffs)

trunk/src/ws2_32/socket.cpp

@@ -1 @@
-/* $Id: socket.cpp,v 1.9 2001-07-07 14:29:22 achimha Exp $ */
+/* $Id: socket.cpp,v 1.10 2001-10-10 19:08:08 phaller Exp $ */
 /*
  * based on Windows Sockets 1.1 specs
@@ -17 +17 @@
  */
 
+
+/*****************************************************************************
+ * Includes                                                                  *
+ *****************************************************************************/
+
 #include <odin.h>
 #include <winsock2.h>
 #include <debugtools.h>
+#include <odinwrap.h>
+
+
+ODINDEBUGCHANNEL(WS2_32-SOCKET)
+
 
 /***********************************************************************
@@ -25 +35 @@
  *
  */
-WSAEVENT WINAPI WSACreateEvent(void)
+ODINFUNCTION0(WSAEVENT, WSACreateEvent)
 {
     /* Create a manual-reset event, with initial state: unsignealed */
-    TRACE("WSACreateEvent");
     
     return CreateEventA(NULL, TRUE, FALSE, NULL);    
 }
 
-BOOL WINAPI WSASetEvent(WSAEVENT hEvent)
+ODINFUNCTION1(BOOL, WSASetEvent,
+              WSAEVENT, hEvent)
 {
-    TRACE("WSASetEvent event=0x%x\n", hEvent);
     return SetEvent(hEvent);
 }
@@ -43 +52 @@
  *
  */
-BOOL WINAPI WSACloseEvent(WSAEVENT hEvent)
+ODINFUNCTION1(BOOL, WSACloseEvent,
+              WSAEVENT, hEvent)
 {
-    TRACE ("WSACloseEvent event=0x%x\n", hEvent);
-
     return CloseHandle(hEvent);
 }
@@ -54 +62 @@
  *
  */
-SOCKET WINAPI WSASocketA(int af, int type, int protocol,
-                         LPWSAPROTOCOL_INFOA lpProtocolInfo,
-                         GROUP g, DWORD dwFlags)
+ODINFUNCTION6(SOCKET, WSASocketA,
+              int, af,
+              int, type,
+              int, protocol,
+              LPWSAPROTOCOL_INFOA, lpProtocolInfo,
+              GROUP, g,
+              DWORD, dwFlags)
 {
+  dprintf(("WSASocketA incorrectly implemented"));
    /* 
       FIXME: The "advanced" parameters of WSASocketA (lpProtocolInfo,
@@ -73 +86 @@
  *
  */
-SOCKET WINAPI WSASocketW(int af, int type, int protocol,
-                         LPWSAPROTOCOL_INFOW lpProtocolInfo,
-                         GROUP g, DWORD dwFlags)
+ODINFUNCTION6(SOCKET, WSASocketW,
+              int, af,
+              int, type,
+              int, protocol,
+              LPWSAPROTOCOL_INFOW, lpProtocolInfo,
+              GROUP, g,
+              DWORD, dwFlags)
 {
+  dprintf(("WSASocketW incorrectly implemented"));
    /* 
       FIXME: The "advanced" parameters of WSASocketA (lpProtocolInfo,