- fix infinite recursive loop (call Implementation instead)

- include winsock2.h on windows, so that the code compiles there as well

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@16951 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Author: Henning Kiel

Compiler/runtime/Socket_omc.c

@@ -31,49 +31,14 @@
 #include <stdio.h>
 #include <meta_modelica.h>
 
-#if defined(__MINGW32__) || defined(_MSC_VER)
-
-extern int Socket_waitforconnect(int _inInteger)
-{
-  fprintf(stderr, "Socket NYI\n");
-  MMC_THROW();
-}
-
-extern const char* Socket_handlerequest(int _inInteger)
-{
-  fprintf(stderr, "Socket NYI\n");
-  MMC_THROW();
-}
-
-extern void Socket_cleanup()
-{
-  fprintf(stderr, "Socket NYI\n");
-  MMC_THROW();
-}
-
-extern void Socket_close(int _inInteger)
-{
-  fprintf(stderr, "Socket NYI\n");
-  MMC_THROW();
-}
-
-extern void Socket_sendreply(int _inInteger, const char* _inString)
-{
-  fprintf(stderr, "Socket NYI\n");
-  MMC_THROW();
-}
-
-#else
-
 #include "socketimpl.c"
 #include "meta_modelica.h"
 #include "ModelicaUtilities.h"
 
 extern const char* Socket_handlerequest(int sock)
 {
-  char *str = Socket_handlerequest(sock);
+  char *str = SocketImpl_handlerequest(sock);
   char *res = strcpy(ModelicaAllocateString(strlen(str)),str);
   free(str);
   return res;
 }
-#endif

Compiler/runtime/socketimpl.c

@@ -29,9 +29,16 @@
  */
 
 #include <sys/types.h>
-#include <sys/socket.h>
 #include <stdio.h>
+
+#if defined(__MINGW32__) || defined(_MSC_VER)
+#include <winsock2.h>
+#include <ws2tcpip.h>
+#else
+#include <sys/socket.h>
 #include <netinet/in.h>
+#endif
+
 #include <string.h>
 #include <stdlib.h>
 #include <unistd.h>
@@ -102,7 +109,7 @@ extern int Socket_waitforconnect(int port)
   return ns;
 }
 
-extern const char* SocketImpl_handlerequest(int sock)
+extern char* SocketImpl_handlerequest(int sock)
 {
   int bufSize=4000;
   char *tmpBuf,*buf;