fc-selenite: src/gpf/tst/drv/socket.c annotate

annotate src/gpf/tst/drv/socket.c @ 112:fdecfb3bd860

.../drv_app/r2d/r2d_*.c: LCD include case fixes from Magnetite R2D is not used in Selenite, but we strive to keep the two source trees in sync as much as possible to reduce the diffs.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Sat, 13 Oct 2018 16:56:22 +0000
parents	8b2a9a374324
children

rev	line source
6 8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| File: socket.c
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 \| Copyright 2002 Texas Instruments Berlin, AG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| All rights reserved.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \| This file is confidential and a trade secret of Texas
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| Instruments Berlin, AG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| The receipt of or possession of this file does not convey
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| any rights to reproduce or disclose its contents or to
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| manufacture, use, or sell anything it may describe, in
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| whole, or in part, without the specific written consent of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| Texas Instruments Berlin, AG.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 +-----------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 \| Purpose : This Modul contains the socket driver adaptation
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 +-----------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 #define GNU_COMPILER
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #undef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #undef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 /==== INCLUDES =============================================================/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 #if defined _NUCLEUS_ \|\| defined _TOOLS_ /* socket-driver running on windows OS */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 /lint -e717 suppress info do...while(0); /
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 /lint -esym(550,rc) suppress info not accessed /
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 /lint -e813, suppress Info 813: auto variable has size > 100 -> uncritical in this context /
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 /lint -e801, suppress Info 801: Use of goto is deprecated /
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 #include <windows.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 #include <winsock.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #include <stdio.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #ifdef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #include <stdio.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #include <fcntl.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include <io.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #endif /* SOCK_TRACE */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #endif /* #ifdef _NUCLEUS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #ifdef _PSOS_ /* socket-driver running on pSOS */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 #define _PNA_30_BACK
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 #include <psos.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 #include "bsp.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #include <pna.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 #include <prepc.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 #include <rescfg.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 #endif /* #ifdef _PSOS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 #include "vxWorks.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 #include "sockLib.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #include "inetLib.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 #include "ioLib.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 #include "selectLib.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 #include "errnoLib.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 #include "logLib.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 /* undefine the MALLOC and FREE of VxWorks to avoid warnings */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 #undef MALLOC
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 #undef FREE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 /* More operating systems go here */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 #ifdef _LINUX_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 #include <sys/types.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 #include <sys/socket.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 #include <netinet/in.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 #include <netinet/tcp.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 #include <sys/ioctl.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 #include <errno.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 #include <netdb.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 #ifdef _SOLARIS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 #include <sys/types.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 #include <sys/socket.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 #include <netinet/in.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 #include <netinet/tcp.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 #include <sys/ioctl.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 #include <errno.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 #include <netdb.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 #include <sys/filio.h>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 #ifndef OLD_FRAME
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 #include "typedefs.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 #include "os.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 #include "socket.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 #include "tools.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 #include "vsi.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 #include "drvconf.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 #include "tstheader.h"
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 /==== DEFINITIONS ==========================================================/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 #define MAX_PENDING_CONNECTS 5 /* The backlog allowed for listen() */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 #define SEND_TIMEOUTUSEC 500 /* minimal timeout value for sending*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 #define INVALID_HANDLE NULL
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 #define INVALID_SIGNALTYPE 0
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 #define NO_FLAGS_SET 0 /* Used with recv()/send() */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 #define MAX_ETH_LEN (1500-40) /* Maximum size of a Ethernet packet without IP headers */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 #define WRBUF_LEN 2048
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 #define ALLOWED_SOCKET_SIGNALS (DRV_SIGTYPE_READ\|DRV_SIGTYPE_CONNECT\|DRV_SIGTYPE_DISCONNECT)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 #if defined _NUCLEUS_ \|\| defined _TOOLS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 typedef ULONG SIZETYPE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 #define GETTIME(t) (t = GetTickCount())
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 #define GETREADSIZE(sok,psiz) ioctlsocket(sok, FIONREAD,(ULONG*)psiz)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 #define READ_SOCKET(s,b,l) recv((s),(b),(int)(l),NO_FLAGS_SET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 #define WRITE_SOCKET(s,b,l) send((s),(const char*)(b),(l),NO_FLAGS_SET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 #define CLOSE_SOCKET(s) closesocket(s)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 #endif /* #ifdef _NUCLEUS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 #ifdef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 typedef int SOCKET;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 typedef int SIZETYPE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 typedef struct hostent HOSTENT;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 #define h_addr h_addr_list[0]
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 typedef HOSTENT * PHOSTENT;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 #define FAR /**/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 #define SOCKADDR_IN struct sockaddr_in
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 #define SOCKET_ERROR (-1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 #define INVALID_SOCKET (-1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 #define GETTIME(t) os_GetTime (0, &(t))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 #define GETREADSIZE(sok,psiz) ioctl(sok, FIOREAD,(char*)psiz)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 #define READ_SOCKET(s,b,l) recv((s),(b),(int)(l),NO_FLAGS_SET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 #define WRITE_SOCKET(s,b,l) send((s),(char *)(b),(int)(l),NO_FLAGS_SET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 #define CLOSE_SOCKET(s) close(s)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 #endif /* #ifdef _PSOS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 #define SOCKADDR_IN struct sockaddr_in
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 #define FAR /* nil */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 #define SOCKET_ERROR ERROR
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 #define INVALID_SOCKET ERROR
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 typedef int SOCKET;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 typedef int SIZETYPE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 #define GETTIME(t) os_GetTime (0, &(t))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 #define GETREADSIZE(sok,psiz) ioctl(sok, FIONREAD, (int)psiz)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 #define READ_SOCKET(s,b,l) recv((s), (b), (int)(l), NO_FLAGS_SET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 #define WRITE_SOCKET(s,b,l) send((s), (char *)(b), (int)(l), NO_FLAGS_SET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 #define CLOSE_SOCKET(s) close(s)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 #if defined (_LINUX_) \|\| defined (_SOLARIS_)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 #define SOCKADDR_IN struct sockaddr_in
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 #define FAR /* nil */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 #define SOCKET_ERROR (-1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 #define INVALID_SOCKET (-1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 typedef int SIZETYPE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 #define GETTIME(t) os_GetTime (0, &(t))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 #define GETREADSIZE(sok,psiz) ioctl(sok, FIONREAD, (int)psiz)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 #define READ_SOCKET(s,b,l) recv((s), (b), (int)(l), NO_FLAGS_SET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 #define WRITE_SOCKET(s,b,l) send((s), (char *)(b), (int)(l), NO_FLAGS_SET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 #define CLOSE_SOCKET(s) close(s)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 #define PORT_NO 6392
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 #define TX_BUFFER_SIZE 8192
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 #define RX_BUFFER_SIZE 8192
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 #define TX_TIMEOUT_MSEC 10000
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 #define RX_TIMEOUT_MSEC 10000
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 #define SOCKET_PRIO 115
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 #define SOCKET_STACK 8192
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 #elif defined _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 #define SOCKET_PRIO 110
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 #define SOCKET_STACK 1024
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 #elif defined _TOOLS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 #define SOCKET_PRIO 1
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 #define SOCKET_STACK 1024
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 #define SOCKET_PRIO 1
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 #define SOCKET_STACK 1024
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 #define TI_MODE 0x0001
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 /==== TYPES ================================================================/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 typedef enum
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 SST_PL0, /* 0 bytes of packet length read*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 SST_PL1, /* 1 bytes of packet length read*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 SST_DATA0, /* 0 bytes of data read*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 SST_DATAx /* not all data read */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 } T_SOCK_STATE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 typedef struct
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 USHORT Connect;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 SOCKET Listener;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 SOCKET Socket;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 USHORT EnabledSignals;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 OS_HANDLE ThreadID ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 USHORT SocketHandle;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 T_DRV_CB_FUNC Callback;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 } Client_Type;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 /==== EXTERNALS ============================================================/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 EXTERN BOOL socket_flush;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 /==== LOCAL VARS ===========================================================/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 LOCAL socket_DCB_Type L_DCB ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 LOCAL Client_Type L_ClientData ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 LOCAL BOOL L_ThreadActive ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 LOCAL T_DRV_SIGNAL SocketSignal;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 LOCAL UBYTE wrbuf[WRBUF_LEN+2];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 LOCAL UBYTE *wrbuf_pos = wrbuf;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 T_SOCK_STATE sock_state = SST_PL0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 #ifdef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 ULONG fh_sock = -1;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 LOCAL char stbuf[80];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 LOCAL BOOL isLittleEndian = TRUE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 int tst_socket; /* for psos */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 int tst_socket_initialized; /* flag for pSOS */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 int tst_socket_in_TxLen; /* for pSOS */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 /==== DIAGNOSTICS ==========================================================/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 #ifdef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 #include <STDIO.H>
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 static char *logfile = "socket.log";
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 static char *bufferfullfile = "bufferfull.log";
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 static char *inprocessfile = "inprogress.log";
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 static char *noconnectfile1 = "noconnect1.log";
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 static char *noconnectfile2 = "noconnect2.log";
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 static char *noconnectfile3 = "noconnect3.log";
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 static char *readerrorfile = "readerror.log";
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 static FILE *fp = NULL;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 #endif /* SOCKET_DEBUG */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 /==== END DIAGNOSTICS ======================================================/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 extern USHORT ext_data_pool_handle;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 GLOBAL ULONG drv_socket_task_stack_size = SOCKET_STACK;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 GLOBAL USHORT drv_socket_task_prio = SOCKET_PRIO;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 /==== PRIVATE FUNCTIONS ====================================================/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 \| Function : L_CreateThread
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 \| Description : This function creates a thread.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 \| Parameters : ThreadFunc - pointer to the function beeing a thread
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 \| Return : FALSE - Thread not created
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 \| TRUE - Thread create (Thread ID stored in
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 \| L_ClientData.ThreadID
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 #ifdef OLD_FRAME
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 BOOL L_CreateThread (USHORT (*ThreadFunc)(USHORT,ULONG))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 return (CreateThread ((LPSECURITY_ATTRIBUTES) NULL,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 0,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 (LPTHREAD_START_ROUTINE)ThreadFunc,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 (LPVOID) NULL,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 0,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 &L_ClientData.ThreadID) != NULL);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 BOOL L_CreateThread (void (*ThreadFunc)(T_HANDLE,ULONG))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 if ( os_CreateTask (0, (char*)"SOCKET", ThreadFunc, drv_socket_task_stack_size, drv_socket_task_prio, &L_ClientData.ThreadID, ext_data_pool_handle) < 0L )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 return FALSE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 if ( os_StartTask (0, L_ClientData.ThreadID, 0) < 0 )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 return FALSE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 return TRUE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 \| Function : L_SetSocketBuffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 \| Description : This function sets the IP read and write buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 \| Parameters : in_TxLen - size of transmission buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 \| in_RxLen - size of receiver buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 \| Return : FALSE - either the read or write buffer could not
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 \| be set.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 \| TRUE - OK
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 LOCAL BOOL L_SetSocketBuffer (USHORT in_TxLen, USHORT in_RxLen)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 int in_TxLen1 = (int) in_TxLen;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 int in_RxLen1 = (int) in_RxLen;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 #ifndef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 int nodelay = TRUE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 #if defined (_VXWORKS_) \|\| defined (_LINUX_) \|\| defined (_SOLARIS_)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 struct linger nolinger = {0, 0};
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 int linger = TRUE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 int rc=0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 if (in_TxLen > 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 if ( (rc=setsockopt(L_ClientData.Socket, SOL_SOCKET, SO_SNDBUF,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 (char*)&in_TxLen1, sizeof(in_TxLen1))) != 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 rc = errnoGet ();
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 #if defined (_LINUX_) \|\| defined (_SOLARIS_)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 rc = errno;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 rc = WSAGetLastError();
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 #if defined _NUCLEUS_ \|\| defined _TOOLS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 printf("SOCKET: setsockopt() returned error code %d\n", rc);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 return FALSE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 #if defined (_VXWORKS_) \|\| defined (_LINUX_) \|\| defined (_SOLARIS_)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 if (setsockopt(L_ClientData.Socket, SOL_SOCKET, SO_LINGER,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 (char*)&nolinger, sizeof(nolinger)))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 if (setsockopt(L_ClientData.Socket, SOL_SOCKET, (int)SO_DONTLINGER,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 (char*)&linger, sizeof(linger)))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 return FALSE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 if (setsockopt(L_ClientData.Socket, IPPROTO_TCP, TCP_NODELAY,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 (char*)&nodelay, sizeof(nodelay)))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 return FALSE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 #else /* PSOS */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 tst_socket_in_TxLen = in_TxLen;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 #endif /* PSOS */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 if (in_RxLen > 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 if (setsockopt(L_ClientData.Socket, SOL_SOCKET, SO_RCVBUF,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 (char *) &in_RxLen1, sizeof(in_RxLen1)))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 return FALSE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 return TRUE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 \| Function : L_Disconnect
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 \| Description : This function is called when the connection to the peer entity
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 \| is lost. If the release signal is set a signal is generated.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 \| Parameters : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 \| Return : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 LOCAL void L_Disconnect (void)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 L_ClientData.Connect = FALSE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 if (L_ClientData.EnabledSignals != INVALID_SIGNALTYPE)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 SocketSignal.SignalType = DRV_SIGTYPE_DISCONNECT;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 SocketSignal.DrvHandle = L_ClientData.SocketHandle;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 (*L_ClientData.Callback)(&SocketSignal) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 \| Function : L_AsyncSelect
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 \| Description : This function waits (blocking) for either something to read
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 \| or an execption on the socket.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 \| Parameters : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 \| Return : FALSE - failure on the socket
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 \| TRUE - a read event was signalled
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 LOCAL BOOL L_AsyncSelect (void)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 fd_set fd_r ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 fd_set fd_e ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 int status, rc;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 /* wait for possibility to read */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 FD_ZERO(&fd_r);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 FD_SET(L_ClientData.Socket, &fd_r);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 FD_ZERO(&fd_e);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 FD_SET(L_ClientData.Socket, &fd_e);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 status = select(FD_SETSIZE, &fd_r, NULL, &fd_e, (struct timeval *) 0);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 if (status > 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 if (!FD_ISSET (L_ClientData.Socket, &fd_e))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 if (L_ClientData.Callback != NULL)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 if (FD_ISSET (L_ClientData.Socket, &fd_r))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 SIZETYPE size ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 if ((rc = GETREADSIZE( L_ClientData.Socket, &size)) != 0 \|\| !size)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 #ifdef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 if (fh_sock != -1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 char sstop[10];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 ULONG stop = GetTickCount();
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 sprintf(sstop, "%03d:%03d", (stop/1000) % 1000, stop % 1000);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 sprintf(stbuf, "reset at %s rc=%d size=%d left %d \n",
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 sstop, rc, size,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 wrbuf_pos-wrbuf);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 write (fh_sock, stbuf, strlen(stbuf));
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 /* close(fh_sock);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 fh_sock = -1; */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 os_SuspendTask ( 0, 2 );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 CLOSE_SOCKET (L_ClientData.Socket);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 L_ClientData.Socket = INVALID_SOCKET;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 wrbuf_pos = wrbuf;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 sock_state = SST_PL0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 return FALSE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 /* Indicate that it is possible to read something */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 if (L_ClientData.EnabledSignals & DRV_SIGTYPE_READ)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 SocketSignal.SignalType = DRV_SIGTYPE_READ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 SocketSignal.DrvHandle = L_ClientData.SocketHandle;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 (*L_ClientData.Callback)(&SocketSignal) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 return TRUE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 return FALSE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 \| Function : L_ClientThread
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 \| Description : This function is a thread used if the driver is configured to
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 \| be a client.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 \| Parameters : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 \| Return : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 void L_ClientThread (T_HANDLE Handle, ULONG Value )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 L_ThreadActive = TRUE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 L_SetSocketBuffer (L_DCB.tx_buffer_size, L_DCB.rx_buffer_size) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 /*-------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 Listen what's goning on on the socket
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 -------------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 while (L_ThreadActive)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 if (!L_AsyncSelect())
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 L_ThreadActive = FALSE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 L_Disconnect() ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 \| Function : L_ServerThread
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 \| Description : This function is a thread used if the driver is configured to
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502 \| be a server. It serves only one client. It cycles between
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 \| two modes, wait for a client to connect and listening on the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 \| connection for any further action.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 \| The thread exits when the flag L_ThreadActive is set to false.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 \| Parameters : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 \| Return : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 void L_ServerThread (T_HANDLE TaskHandle, ULONG Value)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 BOOL BufferSizeSet;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 SOCKADDR_IN local_sin; /* Local socket - internet style */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 SOCKADDR_IN clientAddr; /* client */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 int sockAddrSize = sizeof (struct sockaddr_in);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 memset ((char *) &local_sin, 0, sockAddrSize);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 local_sin.sin_len = (u_char) sockAddrSize;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 #endif/* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 L_ClientData.Listener = socket (AF_INET, SOCK_STREAM, 0);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 if (L_ClientData.Listener == INVALID_SOCKET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 goto error;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 if (L_DCB.port == SOCKET_INVALID_PORT)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 goto error;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 local_sin.sin_addr.s_addr = htonl(INADDR_ANY);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 local_sin.sin_family = AF_INET;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 local_sin.sin_port = htons(L_DCB.port); /* Convert to network ordering */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 /*-------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 Associate an address with a socket. (bind)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 -------------------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 #ifdef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 if (bind (L_ClientData.Listener, (struct sockaddr_in*) &local_sin, sizeof(local_sin)) != 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 /* Look at the following cast of local_sin.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 * This is from VxWorks Network 5.4 Programmer�s Guide, example 7-1, page 131
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 if (bind (L_ClientData.Listener, (struct sockaddr*) &local_sin, sockAddrSize) == ERROR)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 #else /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 if (bind (L_ClientData.Listener, (const struct sockaddr FAR *) &local_sin, sizeof(local_sin)) != 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 CLOSE_SOCKET (L_ClientData.Listener);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 goto error;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 if (listen (L_ClientData.Listener, MAX_PENDING_CONNECTS) == ERROR)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 #else /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 if (listen (L_ClientData.Listener, MAX_PENDING_CONNECTS) != 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 CLOSE_SOCKET (L_ClientData.Listener);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 goto error;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 BufferSizeSet = FALSE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 L_ThreadActive = TRUE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 while (L_ThreadActive)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 /*-------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 Wait for somebody to connect
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 -------------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 if (L_ClientData.Socket != INVALID_SOCKET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 #ifdef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 if (fh_sock != -1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 char sstop[10];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 ULONG stop = GetTickCount();
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 sprintf(sstop, "%03d:%03d", (stop/1000) % 1000, stop % 1000);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 sprintf(stbuf, "close at %s socket=%d\n",
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 sstop, L_ClientData.Socket);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 write (fh_sock, stbuf, strlen(stbuf));
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 /* close(fh_sock);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 fh_sock = -1; */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 CLOSE_SOCKET (L_ClientData.Socket);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 L_ClientData.Socket = INVALID_SOCKET;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 wrbuf_pos = wrbuf;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 sock_state = SST_PL0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 if ((L_ClientData.Socket = accept (L_ClientData.Listener,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 (struct sockaddr *) &clientAddr,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 &sockAddrSize)) != ERROR)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 #else /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 L_ClientData.Socket = accept(L_ClientData.Listener, NULL, NULL) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 if (L_ClientData.Socket != INVALID_SOCKET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 #ifdef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 if (fh_sock == -1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 fh_sock = open("SOCK_S.dbg", O_WRONLY\| O_TEXT\| O_TRUNC\| O_CREAT, 0666);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 if (fh_sock != -1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 char sstop[10];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 ULONG stop = GetTickCount();
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 sprintf(sstop, "%03d:%03d", (stop/1000) % 1000, stop % 1000);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 sprintf(stbuf, "accept at %s socket=%d listener=%d\n",
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 sstop, L_ClientData.Socket, L_ClientData.Listener);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 write (fh_sock, stbuf, strlen(stbuf));
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 #ifdef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 ULONG tid;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 int err;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 /* for pSOS */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 /* wait for TST task */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 while( t_ident( FRM_TST_NAME, 0, &tid ) != 0 )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 tm_wkafter( 10 );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626 tst_socket = shr_socket( L_ClientData.Socket, (int)tid );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 if( tst_socket < 0 )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629 err = errno;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 goto error;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 if (!BufferSizeSet)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 L_SetSocketBuffer (L_DCB.tx_buffer_size, L_DCB.rx_buffer_size) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 /* Signalisiere Connect */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 L_ClientData.Connect = TRUE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 if (L_ClientData.EnabledSignals & DRV_SIGTYPE_CONNECT)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 SocketSignal.SignalType = DRV_SIGTYPE_CONNECT;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 SocketSignal.DrvHandle = L_ClientData.SocketHandle;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 (*L_ClientData.Callback)(&SocketSignal) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647 /*-------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 Listen what's goning on on the socket
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 -------------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650 while (L_ThreadActive)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651 if (!L_AsyncSelect())
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 L_Disconnect() ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 break ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 error:
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 #ifndef OLD_FRAME
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661 for(;;)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 os_SuspendTask( 0, 1000 );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668 \| Function : socket_Create
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 \| Description : This function is used to set up the driver to act as a
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 \| server. The function tries to initialize the socket, creates
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 \| a thread in which it awaits first awaits the establishement
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673 \| of a connection by a client. As soon as a client has
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 \| connected a signal (SOCKET_CONNECTED) is generated (call
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 \| socket_SetSignal() to activate a signal). From this time the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676 \| driver is able to send data (socket_write()) to the client and
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 \| to read received data (socket_read()). To get notified about
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678 \| the reception of data the apropriate signal has to be set.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 \| In the case of a successful completion the driver returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 \| DRV_OK.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681 \| If the driver is already busy DRV_INPROCESS is returned.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 \| If the driver is not configured, the function returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683 \| DRV_ NOTCONFIGURED.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685 \| Parameters : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687 \| Return : DRV_OK - Function successful
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 \| DRV_INPROCESS - The driver is currently reading data.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689 \| The data is incomplete.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 \| DRV_NOTCONFIGURED - The driver is not yet configured
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 \| SOCKET_ERRORUNSPEC - Error occured during initialization
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695 LOCAL UBYTE L_CreateServer (void)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697 if (!L_CreateThread (L_ServerThread))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699 CLOSE_SOCKET (L_ClientData.Listener);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 return SOCKET_ERRUNSPEC;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702 #ifdef _TOOLS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703 printf("SOCKET: now listening on port %i ...\n",L_DCB.port);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706 return DRV_OK ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710 \| Function : socket_WriteToOS
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712 \| Description : This function is used to write data to the driver of operating
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713 \| system.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 \| The parameter thr_BufferSize contains the number of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715 \| characters to write. In the case of a successful completion,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 \| the function returns DRV_OK.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718 \| Parameters : in_BufferPtr - This parameter points to the buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 \| that is passed to the driver for
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720 \| further processing
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 \| thr_BufferSize - number of characters to write.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 \| Return : DRV_OK - Function successful
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 \| DRV_INPROCESS - Driver is busy writing data
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725 \| SOCKET_NOCONNECT - Connection not available
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 LOCAL UBYTE socket_WriteToOS (void* in_BufferPtr, USHORT thr_BufferSize)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 int err;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 USHORT c_written;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 #ifndef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 fd_set fd_w;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 fd_set fd_e;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736 struct timeval tv;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738 if (L_ClientData.Socket == INVALID_SOCKET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 return SOCKET_NOCONNECT;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741 if ( L_ClientData.Connect == FALSE )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742 return SOCKET_NOCONNECT ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 tv.tv_sec = (int)(L_DCB.tx_timeout_msec / 1000) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745 tv.tv_usec = SEND_TIMEOUTUSEC ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747 FD_ZERO(&fd_w);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 FD_SET(L_ClientData.Socket, &fd_w);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 FD_ZERO(&fd_e);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 FD_SET(L_ClientData.Socket, &fd_e);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752 if (select(FD_SETSIZE, NULL, &fd_w, &fd_e, &tv) <= 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754 #ifdef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755 char buffer[200];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 char *ptr = in_BufferPtr;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757 char c = ptr[21];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758 fp = fopen(inprocessfile, "at");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 if ( *ptr == 'P' )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760 ptr[21] = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 ptr[thr_BufferSize] = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 strcpy (buffer, "errno:" );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764 sprintf (&buffer[6], "%8d", WSAGetLastError() );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 buffer[14] = ' ';
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 memcpy (&buffer[15], ptr, (thr_BufferSize)+1);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767 fprintf (fp, "%s\n", buffer );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768 ptr[21] = c;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 #endif /* SOCKET_DEBUG */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 err = errnoGet ();
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773 #else /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 err = errno;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 printf("SOCKET: socket write failed with error code: %d\n",err );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778 return DRV_INPROCESS ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781 if (FD_ISSET (L_ClientData.Socket, &fd_e))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783 #ifdef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784 char buffer[200];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 char *ptr = in_BufferPtr;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786 char c = ptr[21];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 fp = fopen(noconnectfile1, "at");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788 if ( *ptr == 'P' )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 ptr[21] = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 ptr[thr_BufferSize] = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792 strcpy (buffer, "errno:" );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 sprintf (&buffer[6], "%8d", WSAGetLastError() );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794 buffer[14] = ' ';
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 memcpy (&buffer[15], ptr, (thr_BufferSize)+1);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 fprintf (fp, "%s\n", buffer );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797 ptr[21] = c;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799 #endif /* SOCKET_DEBUG */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 return SOCKET_NOCONNECT ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803 /*---------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 Send the data
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 ---------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806 c_written = (USHORT) WRITE_SOCKET(L_ClientData.Socket, in_BufferPtr, (USHORT)thr_BufferSize);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808 if (c_written == (USHORT)SOCKET_ERROR \|\| c_written != thr_BufferSize)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 #ifdef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811 char buffer[200];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812 char *ptr = in_BufferPtr;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813 char c = ptr[21];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814 fp = fopen(noconnectfile2, "at");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 if ( *ptr == 'P' )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816 ptr[21] = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818 ptr[thr_BufferSize] = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819 strcpy (buffer, "errno:" );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820 sprintf (&buffer[6], "%8d", WSAGetLastError() );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 buffer[14] = ' ';
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 memcpy (&buffer[15], ptr, (thr_BufferSize)+1);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823 fprintf (fp, "%s\n", buffer );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 ptr[21] = c;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826 #endif /* SOCKET_DEBUG */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827 return SOCKET_NOCONNECT ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 #ifdef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 if (fh_sock != -1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833 char sstop[10];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 ULONG stop = GetTickCount();
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836 sprintf(sstop, "%03d:%03d", (stop/1000) % 1000, stop % 1000);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 sprintf(stbuf, "sent %d at %s\n",
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838 thr_BufferSize,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 sstop);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840 write (fh_sock, stbuf, strlen(stbuf));
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843 return DRV_OK ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 /* pSOS */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849 /*---------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850 Send the data
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851 ---------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852 c_written = (USHORT) WRITE_SOCKET(tst_socket, in_BufferPtr, (USHORT)thr_BufferSize);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854 if (c_written == (USHORT)SOCKET_ERROR \|\| c_written != thr_BufferSize)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856 err = errno;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857 return SOCKET_NOCONNECT ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 return DRV_OK ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 #endif /* _PSOS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864 /==== PUBLIC FUNCTIONS =====================================================/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	865
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	866 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868 \| Function : socket_Exit
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870 \| Description : The function is called when the driver functionality is no
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871 \| longer required. The function "de-allocates" the resources
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872 \| and releases active connections. The driver terminates
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873 \| regardless of any outstanding data to be sent.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875 \| Parameters : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877 \| Return : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881 void socket_Exit (void)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 os_DestroyTask ( 0, L_ClientData.ThreadID );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884 socket_Close() ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890 \| Function : socket_Open
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892 \| Description : This function is used to establish a connection to server or
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893 \| activate the driver to act as a server, using the settings of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894 \| the socket_DCB. A hostname must be specified to open a
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895 \| connection to a server, in this case the driver runs in the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896 \| client mode. If no hostname is specified the driver will run in
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897 \| server mode. In the server mode it serves a single client. As
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898 \| soon as a client is connected the CONNECT signal is generated.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899 \| In case of a successful completion the driver is no able to send
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900 \| data (socket_write()) to the peer entity and to read data
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901 \| received from the peer entity (socket_read()). To get notified
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902 \| about the reception of data the appropriate signal has to be set
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903 \| (socket_SetSignal()).
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904 \| In the case of a successful completion the driver returns DRV_OK.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905 \| If the driver is already busy DRV_INPROCESS is returned.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906 \| If the driver is not configured, the function returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907 \| DRV_NOTCONFIGURED.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 \| If an error occurs while establishing the requested mode, the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909 \| function returns SOCKET_ERRUNSPEC.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911 \| Parameters : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913 \| Return : DRV_OK - Function successful
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914 \| DRV_INPROCESS - The driver is currently reading data.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915 \| The data is incomplete.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916 \| DRV_NOTCONFIGURED - The driver is not yet configured
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917 \| SOCKET_ERRUNSPEC - Error occured during initialization
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921 USHORT socket_Open (void)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923 SOCKADDR_IN dest_sin; /* DESTination Socket INternet */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 SOCKET connectsocket;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926 int sockAddrSize;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927 #else /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 #if defined (_LINUX_) \|\| defined (_SOLARIS_)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	929 struct hostent* phe;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931 PHOSTENT phe;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934 if (L_ThreadActive)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936 return DRV_INPROCESS ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939 /*---------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940 if no hostname is specified we
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	941 open as a server
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	942 ---------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	943 if (!*L_DCB.hostname)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	944 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	945 return L_CreateServer() ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	946 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	947
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	948 connectsocket = socket (AF_INET, SOCK_STREAM, 0);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	949 if (connectsocket == INVALID_SOCKET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	950 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	951 return SOCKET_ERRUNSPEC;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	952 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	953
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	954 #ifdef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	955
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	956 if ( !gethostbyname(L_DCB.hostname, phe))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	957 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	958 CLOSE_SOCKET(connectsocket);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	959 return SOCKET_ERRUNSPEC;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	960 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	961
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	962 #else /* _PSOS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	963 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	964 sockAddrSize = sizeof (struct sockaddr_in);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	965 memset((char *) &dest_sin, 0, sockAddrSize);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	966 dest_sin.sin_len = (u_char) sockAddrSize;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	967 dest_sin.sin_family = AF_INET;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	968 dest_sin.sin_port = htons(L_DCB.port);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	969 if (((dest_sin.sin_addr.s_addr = inet_addr (L_DCB.hostname)) == ERROR) &&
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	970 ((dest_sin.sin_addr.s_addr = hostGetByName (L_DCB.hostname)) == ERROR))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	971 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	972 CLOSE_SOCKET(connectsocket);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	973 return SOCKET_ERRUNSPEC;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	974 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	975 #else /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	976 phe = gethostbyname(L_DCB.hostname);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	977 if (!phe)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	978 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	979 #ifdef _TOOLS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	980 printf("SOCKET: host %s not found ;-(\n",L_DCB.hostname);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	981 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	982 CLOSE_SOCKET(connectsocket);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	983 return SOCKET_ERRUNSPEC;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	984 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	985 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	986 #endif /* _PSOS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	987
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	988 #ifndef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	989 memset(&dest_sin, 0, sizeof(struct sockaddr_in));
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	990 memcpy((char*)&(dest_sin.sin_addr), phe->h_addr, (unsigned int)((int)(phe->h_length)));
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	991 dest_sin.sin_family = AF_INET;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	992 if ( L_DCB.config & TI_MODE )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	993 dest_sin.sin_port = L_DCB.port;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	994 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	995 dest_sin.sin_port = htons(L_DCB.port);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	996 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	997
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	998 #ifdef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	999 if (connect (connectsocket, (struct sockaddr_in*) &dest_sin, sizeof(dest_sin)))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1000 #else /* _PSOS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1001 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1002 if (connect (connectsocket, (struct sockaddr*) &dest_sin, sockAddrSize) == ERROR)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1003 #else /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1004 #if defined (_LINUX_) \|\| defined (_SOLARIS_)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1005 if (connect (connectsocket, (struct sockaddr*) &dest_sin,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1006 sizeof(dest_sin)))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1007 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1008 if (connect (connectsocket, (const PSOCKADDR) &dest_sin,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1009 sizeof(dest_sin)))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1010 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1011 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1012 #endif /* defined(_PSOS_) \|\| defined(_VXWORKS_) */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1013 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1014 #ifdef _TOOLS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1015 printf("SOCKET: connection to %s on port %i failed ;-(\n",L_DCB.hostname,L_DCB.port);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1016 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1017 CLOSE_SOCKET(connectsocket);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1018 return SOCKET_ERRUNSPEC;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1019 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1020 #ifdef _TOOLS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1021 printf("SOCKET: successfully connected to %s on port %i\n",L_DCB.hostname,L_DCB.port);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1022 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1023
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1024 if (!L_CreateThread (L_ClientThread))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1025 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1026 CLOSE_SOCKET (L_ClientData.Listener);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1027 return SOCKET_ERRUNSPEC;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1028 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1029
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1030 L_ClientData.Socket = connectsocket ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1031 L_ClientData.Connect = TRUE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1032 if (L_ClientData.EnabledSignals & DRV_SIGTYPE_CONNECT)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1033 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1034 SocketSignal.SignalType = DRV_SIGTYPE_CONNECT;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1035 SocketSignal.DrvHandle = L_ClientData.SocketHandle;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1036 (*L_ClientData.Callback)(&SocketSignal) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1037 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1038 return DRV_OK ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1039 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1040
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1041 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1042 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1043 \| Function : socket_Close
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1044 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1045 \| Description : This function is used by a client to close the connection or
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1046 \| by server to shut down the server functionality.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1047 \| In case of a successful completion the connection is shutdown
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1048 \| and neither socket_Read nor socket_Write will be successful.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1049 \| To get notified about the termination of a connection the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1050 \| appropriate signal has to be set (socket_SetSignal()).
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1051 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1052 \| Parameters : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1053 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1054 \| Return : -
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1055 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1056 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1057 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1058 USHORT socket_Close (void)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1059 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1060 L_ThreadActive = FALSE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1061
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1062 #ifdef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1063 if (fh_sock != -1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1064 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1065 char sstop[10];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1066 ULONG stop = GetTickCount();
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1067
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1068 sprintf(sstop, "%03d:%03d", (stop/1000) % 1000, stop % 1000);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1069 sprintf(stbuf, "socket_Close at %s socket=%d listener=%d\n",
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1070 sstop, L_ClientData.Socket, L_ClientData.Listener);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1071 write (fh_sock, stbuf, strlen(stbuf));
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1072 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1073 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1074 if (L_ClientData.Socket != INVALID_SOCKET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1075 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1076 CLOSE_SOCKET (L_ClientData.Socket);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1077 L_ClientData.Socket = INVALID_SOCKET;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1078 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1079
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1080 if (L_ClientData.Listener != INVALID_SOCKET)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1081 CLOSE_SOCKET (L_ClientData.Listener);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1082
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1083 L_ClientData.ThreadID = 0 ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1084 return DRV_OK;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1085 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1086
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1087 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1088 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1089 \| Function : socket_Read_with_Timeout
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1090 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1091 \| Description : This function is used to read data from the USART driver.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1092 \| For more details see socket_Read()
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1093 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1094 \| Return: >= 0 - Number of bytes read
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1095 \| SOCKET_ERROR - error occurred
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1096 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1097 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1098 LOCAL ULONG socket_Read_with_Timeout( void* destBuf, ULONG reqLen )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1099 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1100 ULONG timeout,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1101 totalBytes = 0,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1102 stop_timeout ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1103 int readBytes,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1104 attempts = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1105
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1106 /* calculate timeout time */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1107 GETTIME( stop_timeout );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1108 stop_timeout = stop_timeout + L_DCB.rx_timeout_msec ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1109
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1110 /* read nonblocking until requested data is read or timeout */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1111 do
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1112 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1113 readBytes = (SHORT)READ_SOCKET( L_ClientData.Socket,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1114 ((char *)destBuf) + totalBytes,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1115 reqLen - totalBytes );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1116
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1117 if( readBytes < 0 \|\| readBytes == SOCKET_ERROR )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1118 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1119 #ifdef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1120 #ifndef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1121 fp = fopen(readerrorfile, "at");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1122 fprintf (fp, "WSAGetLastError returned: %8d", WSAGetLastError() );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1123 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1124 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1125 #endif /* SOCKET_DEBUG */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1126 return 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1127 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1128 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1129 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1130 totalBytes += (unsigned int)readBytes;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1131
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1132 GETTIME (timeout) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1133
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1134 if( totalBytes < reqLen )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1135 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1136 if (attempts++) /* try to get data by two consecutive accesses
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1137 then sleep (but this should not be necessary) */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1138 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1139 #ifdef OLD_FRAME
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1140 Sleep (1) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1141 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1142 os_SuspendTask ( 0, 1 );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1143 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1144 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1145 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1146 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1147 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1148 return totalBytes;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1149 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1150 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1151 } while (timeout < stop_timeout);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1152
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1153 return 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1154 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1155
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1156 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1157 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1158 \| Function : socket_Read
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1159 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1160 \| Description : This function is used to read data from the USART driver. The
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1161 \| data is copied into the buffer to which out_BufferPtr points.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1162 \| The parameter *thr_BufferSizePtr contains the size of the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1163 \| buffer in characters.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1164 \| In the case of a successful completion, the driver's buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1165 \| is cleared. The driver keeps the data available when calling
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1166 \| the function drv_Look().
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1167 \| If the driver is not configured, the function returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1168 \| DRV_NOTCONFIGURED.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1169 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1170 \| NOTE: When calling the function with a buffer size of 0, the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1171 \| function will return DRV_OK. The size of the buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1172 \| needed to store the available data is stored in the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1173 \| parameter *thr_BufferSizePtr. In this case, the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1174 \| out_BufferPtr can be set to NULL.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1175 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1176 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1177 \| Parameters : out_BufferPtr - This parameter points to the buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1178 \| wherein the data is to be copied
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1179 \| thr_BufferSizePtr - On call: number of characters to
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1180 \| read. If the function returns DRV_OK,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1181 \| it contains the number of characters
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1182 \| read. If the function returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1183 \| DRV_INPROCESS, it contains 0.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1184 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1185 \| Return : DRV_OK - Function successful
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1186 \| DRV_INPROCESS - The driver is currently reading data.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1187 \| The data is incomplete.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1188 \| DRV_NOTCONFIGURED - The driver is not yet configured
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1189 \| SOCKET_NOCONNECT - Connection not available
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1190 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1191 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1192 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1193 USHORT socket_Read (void* out_BufferPtr, ULONG* thr_BufferSizePtr)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1194 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1195 #ifdef _VXWORKS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1196 SIZETYPE pending_data_size = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1197 #else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1198 ULONG pending_data_size = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1199 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1200 ULONG bytesToRead, bytesReq;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1201 int rc;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1202 static USHORT packet_size;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1203 union
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1204 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1205 USHORT s;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1206 UBYTE b[2];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1207 } conv;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1208 #ifdef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1209 static ULONG BytesRead = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1210 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1211 #ifdef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1212 static ULONG start;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1213 static ULONG lasttime = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1214 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1215
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1216 bytesReq = *thr_BufferSizePtr;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1217 thr_BufferSizePtr = 0; / no bytes returned yet */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1218 while ( (rc = (GETREADSIZE( L_ClientData.Socket, &pending_data_size ))) == 0 &&
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1219 pending_data_size > 0 )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1220 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1221 switch (sock_state)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1222 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1223 case SST_PL0:
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1224 #ifdef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1225 GETTIME (start) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1226 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1227 packet_size = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1228 if (pending_data_size >= 2)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1229 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1230 bytesToRead = 2;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1231 sock_state = SST_DATA0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1232 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1233 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1234 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1235 bytesToRead = 1;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1236 sock_state = SST_PL1;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1237 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1238 if ( !(L_DCB.config & TI_MODE) )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1239 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1240 if (socket_Read_with_Timeout(&packet_size, bytesToRead) != bytesToRead)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1241 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1242 sock_state = SST_PL0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1243 return SOCKET_NOCONNECT;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1244 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1245 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1246 break;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1247 case SST_PL1:
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1248 if (socket_Read_with_Timeout(((char*)&packet_size)+1, 1) != 1)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1249 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1250 sock_state = SST_PL0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1251 return SOCKET_NOCONNECT;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1252 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1253 sock_state = SST_DATA0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1254 break;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1255 case SST_DATA0:
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1256 if ( !(L_DCB.config & TI_MODE) && isLittleEndian )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1257 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1258 conv.b[0] = (((UBYTE)&packet_size)+1); /* LSB */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1259 conv.b[1] = * (UBYTE)&packet_size; / MSB */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1260 packet_size = conv.s;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1261 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1262 /lint -fallthrough/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1263 case SST_DATAx:
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1264 /* now read the packet payload or a part of it */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1265 if ( L_DCB.config & TI_MODE )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1266 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1267 bytesToRead = (pending_data_size < bytesReq) ? pending_data_size : bytesReq;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1268 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1269 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1270 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1271 bytesToRead = (packet_size < bytesReq) ? packet_size : bytesReq;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1272 if (pending_data_size < bytesToRead)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1273 bytesToRead = pending_data_size;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1274 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1275 if( (*thr_BufferSizePtr =
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1276 socket_Read_with_Timeout( ((char *)out_BufferPtr), bytesToRead )) !=
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1277 bytesToRead )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1278 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1279 *thr_BufferSizePtr = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1280 if ( !(L_DCB.config & TI_MODE) )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1281 sock_state = SST_PL0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1282 return SOCKET_NOCONNECT;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1283 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1284 #ifdef SOCK_TRACE
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1285 if (fh_sock != -1 && sock_state == SST_DATA0 && bytesToRead >= 13)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1286 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1287 char split[10+1];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1288 char sstart[20], sstop[20];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1289 static ULONG c_received = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1290 ULONG len = packet_size;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1291 ULONG stop = GetTickCount();
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1292
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1293 if (((char*)out_BufferPtr)[13] == 'T')
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1294 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1295 memcpy(split, ((char*)out_BufferPtr)+9, 7);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1296 split[7] = '\0';
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1297 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1298 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1299 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1300 memcpy(split, ((char*)out_BufferPtr)+9, 4);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1301 split[4] = '\0';
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1302 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1303 if (start != lasttime)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1304 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1305 if (lasttime - start > 11)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1306 sprintf(sstart, "->%d %03d:%03d\n", c_received, (start/1000) % 1000, start % 1000);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1307 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1308 sprintf(sstart, "%03d:%03d\n", (start/1000) % 1000, start % 1000);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1309 c_received = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1310 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1311 c_received += packet_size + 2;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1312 if (start != stop)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1313 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1314 sprintf(sstop, "->%d %03d:%03d\n", c_received, (stop/1000) % 1000, stop % 1000);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1315 c_received = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1316 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1317 sprintf(stbuf, "%s%d %s\n%s",
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1318 (start != lasttime) ? sstart : "",
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1319 packet_size + 2, split,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1320 (start != stop) ? sstop : "");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1321 write (fh_sock, stbuf, strlen(stbuf));
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1322 lasttime = stop;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1323 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1324 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1325 if ( !(L_DCB.config & TI_MODE) )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1326 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1327 if (*thr_BufferSizePtr == packet_size)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1328 sock_state = SST_PL0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1329 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1330 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1331 packet_size -= (USHORT)*thr_BufferSizePtr;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1332 sock_state = SST_DATAx;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1333 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1334 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1335 return DRV_OK;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1336 /lint -e527 suppress Warning -- Unreachable /
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1337 break;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1338 /lint +e527 /
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1339 } /* switch */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1340 } /* while */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1341 if (rc)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1342 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1343 sock_state = SST_PL0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1344 return SOCKET_NOCONNECT;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1345 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1346 #ifdef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1347 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1348 static char Buffer[2000];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1349 memcpy (Buffer+BytesRead,out_BufferPtr,*thr_BufferSizePtr);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1350 BytesRead += *thr_BufferSizePtr;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1351 if ( (Buffer[0] == 'P') )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1352 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1353 OS_TIME time;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1354 char c = Buffer[21];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1355 fp = fopen(logfile, "at");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1356 Buffer[21] = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1357 os_GetTime ( 0, &time );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1358 fprintf (fp, "P%ld IN: %s\n", time/10, &Buffer[9] );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1359 Buffer[21] = c;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1360 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1361 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1362 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1363
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1364 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1365 return DRV_OK ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1366 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1367
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1368 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1369 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1370 \| Function : socket_Write
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1371 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1372 \| Description : This function is used to write data to the driver. The
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1373 \| parameter *thr_BufferSizePtr contains the number of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1374 \| characters to write. In the case of a successful completion,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1375 \| the function returns DRV_OK.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1376 \| If the data cannot be written because the storage capacity of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1377 \| the driver has been exhausted, the function returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1378 \| DRV_BUFFER_FULL and the maximum number of characters that can
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1379 \| be written in *thr_BufferSizePtr.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1380 \| If the driver is currently busy writing data and therefore
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1381 \| cannot accept further data to be written, it returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1382 \| DRV_INPROCESS and sets the parameter *thr_BufferSizePtr to 0.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1383 \| If the driver is not configured, the function returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1384 \| DRV_ NOTCONFIGURED.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1385 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1386 \| NOTE: When calling the function with a buffer size of 0, the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1387 \| function will return the number of characters that can be
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1388 \| written in the parameter *thr_BufferSizePtr. In this
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1389 \| case, the in_BufferPtr can be set to NULL.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1390 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1391 \| Parameters : in_BufferPtr - This parameter points to the buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1392 \| that is passed to the driver for
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1393 \| further processing
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1394 \| thr_BufferSizePtr - On call: number of characters to
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1395 \| write. If the function returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1396 \| DRV_BUFFER_FULL, it contains the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1397 \| maximum number of characters that can
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1398 \| be written. If the function returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1399 \| DRV_OK, it contains the number of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1400 \| characters written. If the function
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1401 \| returns DRV_INPROCESS, it contains 0.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1402 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1403 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1404 \| Return : DRV_OK - Function successful
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1405 \| DRV_BUFFER_FULL - Not enough space
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1406 \| DRV_INPROCESS - Driver is busy writing data
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1407 \| DRV_NOTCONFIGURED - The driver is not yet configured
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1408 \| SOCKET_NOCONNECT - Connection not available
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1409 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1410 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1411 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1412 /lint -esym(613,auxb) suppress warning possibly use off NULL pointer auxb /
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1413 /lint -esym(644,auxb) suppress warning possibly not initialized /
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1414 /lint -e668 suppress warning possibly passing NULL pointer to memcpy /
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1415 USHORT socket_Write (void* in_BufferPtr, ULONG* thr_BufferSizePtr)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1416 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1417 UBYTE rc = DRV_OK;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1418 int max_len, rest;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1419 char * auxb;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1420 ULONG buffer_size;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1421
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1422 buffer_size = *thr_BufferSizePtr & ~PRIM_FLAG_MASK;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1423
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1424 #ifndef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1425 #ifdef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1426 UBYTE Prim = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1427 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1428 char *ptr = in_BufferPtr;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1429 if ( *ptr == 'P' )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1430 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1431 OS_TIME time;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1432 char c = ptr[21];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1433 fp = fopen(logfile, "at");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1434 ptr[21] = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1435 os_GetTime ( 0, &time );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1436 fprintf (fp, "P%ld OUT: %s\n", time/10, &ptr[9] );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1437 ptr[21] = c;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1438 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1439 Prim = 1;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1440 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1441 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1442 #endif /* SOCKET_DEBUG */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1443 #else /* _PSOS */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1444 if( !tst_socket_initialized )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1445 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1446 if (tst_socket_in_TxLen > 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1447 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1448 int nodelay = TRUE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1449 if (setsockopt(tst_socket, SOL_SOCKET, SO_SNDBUF,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1450 (char*)&tst_socket_in_TxLen, sizeof(tst_socket_in_TxLen)))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1451 return DRV_INITFAILURE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1452 if (setsockopt(tst_socket, IPPROTO_TCP, TCP_NODELAY,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1453 (char*)&nodelay, sizeof(nodelay)))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1454 return DRV_INITFAILURE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1455 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1456 tst_socket_initialized = 1;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1457 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1458 #endif /* _PSOS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1459
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1460 if ( L_DCB.config & TI_MODE )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1461 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1462 /* add TI-MUX header */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1463 auxb=(char*)malloc(buffer_size+2);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1464 memcpy((void*)(auxb+2),in_BufferPtr,buffer_size);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1465 auxb[0]=19; /* assigned to L23 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1466 auxb[1]=(char)buffer_size;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1467 in_BufferPtr=auxb;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1468 buffer_size+=2;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1469 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1470
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1471 max_len = (L_DCB.tx_buffer_size < WRBUF_LEN) ? L_DCB.tx_buffer_size : WRBUF_LEN;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1472 if (max_len < (int)buffer_size)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1473 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1474 #ifndef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1475 #ifdef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1476 char buffer[200];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1477 char *ptr = in_BufferPtr;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1478 char c = ptr[21];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1479 fp = fopen(bufferfullfile, "at");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1480 if ( *ptr == 'P' )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1481 ptr[21] = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1482 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1483 ptr[buffer_size] = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1484 strcpy (buffer, "errno:" );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1485 sprintf (&buffer[6], "%8d", WSAGetLastError() );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1486 buffer[14] = ' ';
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1487 memcpy (&buffer[15], ptr, (buffer_size)+1);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1488 fprintf (fp, "%s\n", buffer );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1489 ptr[21] = c;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1490 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1491 #endif /* SOCKET_DEBUG */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1492 #endif /* _PSOS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1493 if ( L_DCB.config & TI_MODE )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1494 free(auxb);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1495 *thr_BufferSizePtr = (unsigned int)max_len \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1496 (*thr_BufferSizePtr & PRIM_FLAG_MASK) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1497 return DRV_BUFFER_FULL ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1498 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1499
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1500 rest = MAX_ETH_LEN - (wrbuf_pos - wrbuf);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1501 if (buffer_size + 2 >= (unsigned int)rest) /* more than maximum ethernet packet size needed ?*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1502 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1503 /*---------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1504 send the buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1505 ---------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1506 rc = socket_WriteToOS(wrbuf, (USHORT)(wrbuf_pos - wrbuf));
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1507 wrbuf_pos = wrbuf;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1508
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1509 if (rc != DRV_OK)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1510 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1511 if ( L_DCB.config & TI_MODE )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1512 free(auxb);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1513 thr_BufferSizePtr = (thr_BufferSizePtr & PRIM_FLAG_MASK) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1514 return rc;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1515 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1516 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1517
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1518 if ( !(L_DCB.config & TI_MODE) )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1519 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1520 /*------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1521 put the size of the data into buffer (MSB first)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1522 ------------------------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1523 if (isLittleEndian)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1524 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1525 wrbuf_pos = (((UBYTE)&buffer_size)+1); / MSB */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1526 (wrbuf_pos+1) = (UBYTE)&buffer_size; / LSB */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1527 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1528 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1529 ((USHORT)wrbuf_pos) = (USHORT)buffer_size;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1530 wrbuf_pos += 2;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1531 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1532 /*---------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1533 put the data itself into buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1534 ---------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1535 memcpy(wrbuf_pos, in_BufferPtr, (size_t)buffer_size);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1536 wrbuf_pos += buffer_size;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1537
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1538 if (socket_flush)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1539 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1540 /*---------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1541 send the buffer
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1542 ---------------------------------*/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1543 rc = socket_WriteToOS(wrbuf, (USHORT)(wrbuf_pos - wrbuf));
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1544 wrbuf_pos = wrbuf;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1545 socket_flush = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1546
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1547 if (rc != DRV_OK)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1548 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1549 thr_BufferSizePtr = (thr_BufferSizePtr & PRIM_FLAG_MASK) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1550 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1551 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1552
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1553 if ( L_DCB.config & TI_MODE )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1554 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1555 free(auxb);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1556 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1557 return rc ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1558 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1559
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1560 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1561 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1562 \| Function : socket_Flush
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1563 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1564 \| Description : This function flushes the socket write buffer where data
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1565 \| is stored until a complete packet can be sent or the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1566 \| transmission is forced by an external setting of the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1567 \| socket_flush flag.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1568 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1569 \| Parameters : ---
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1570 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1571 \| Return : DRV_OK - Function completed successfully
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1572 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1573 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1574 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1575 USHORT socket_Flush ( void )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1576 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1577 ULONG len = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1578
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1579 socket_flush = 1;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1580 return ( socket_Write(NULL, &len) );
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1581 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1582
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1583 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1584 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1585 \| Function : socket_SetSignal
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1586 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1587 \| Description : This function is used to define a single or multiple signals
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1588 \| that is/are indicated to the process when the event identified
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1589 \| in the signal information data type as SignalType occurs. The
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1590 \| USART uses only the standard signals defined in [C_8415.0026].
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1591 \| To remove a signal, call the function socket_ResetSignal().
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1592 \| If one of the parameters of the signal information data is
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1593 \| invalid, the function returns DRV_INVALID_PARAMS.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1594 \| If no signal call-back function has been defined at the time
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1595 \| of initialization, the driver returns DRV_SIGFCT_NOTAVAILABLE.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1596 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1597 \| Parameters : in_SignalIDPtr - Pointer to the signal information
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1598 \| data
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1599 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1600 \| Return : DRV_OK - Function completed successfully
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1601 \| DRV_INVALID_PARAMS - One or more parameters are out of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1602 \| range or invalid
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1603 \| DRV_SIGFCT_NOTAVAILABLE - Event signaling functionality is
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1604 \| not available
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1605 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1606 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1607 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1608 USHORT socket_SetSignal (USHORT SignalType)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1609 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1610 if (L_ClientData.Callback == NULL)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1611 return DRV_SIGFCT_NOTAVAILABLE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1612
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1613 if (SignalType & ALLOWED_SOCKET_SIGNALS)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1614 L_ClientData.EnabledSignals \|= SignalType;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1615 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1616 return DRV_INVALID_PARAMS ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1617 return DRV_OK ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1618 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1619
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1620 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1621 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1622 \| Function : socket_ResetSignal
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1623 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1624 \| Description : This function is used to remove previously set single or
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1625 \| multiple signals. The signals that are removed are identified
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1626 \| by the Signal Information Data element called SignalType. All
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1627 \| other elements of the Signal Information Data must be
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1628 \| identical to the signal(s) that are to be removed (process
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1629 \| handle and signal value). If the SignalID provided cannot be
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1630 \| located, the function returns DRV_INVALID_PARAMS.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1631 \| If no signal call-back function has been defined at the time
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1632 \| of initialization, the driver returns DRV_SIGFCT_NOTAVAILABLE.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1633 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1634 \| Parameters : in_SignalIDPtr - Pointer to the signal information
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1635 \| data
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1636 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1637 \| Return : DRV_OK - Function completed successfully
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1638 \| DRV_INVALID_PARAMS - One or more parameters are out of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1639 \| range or invalid
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1640 \| DRV_SIGFCT_NOTAVAILABLE - Event signaling functionality is
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1641 \| not available
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1642 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1643 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1644 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1645 USHORT socket_ResetSignal (USHORT SignalType)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1646 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1647 if (L_ClientData.Callback == NULL)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1648 return DRV_SIGFCT_NOTAVAILABLE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1649
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1650 if (SignalType & ALLOWED_SOCKET_SIGNALS)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1651 L_ClientData.EnabledSignals &= ~SignalType;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1652 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1653 return DRV_INVALID_PARAMS ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1654
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1655 return DRV_OK ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1656 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1657
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1658 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1659 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1660 \| Function : socket_SetConfig
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1661 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1662 \| Description : This function is used to configure the driver (port,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1663 \| transmission rate, flow control, etc). The driver can be
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1664 \| configured at any one time before a connection is opened. The
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1665 \| parameters that can be configured are included in the USART's
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1666 \| device control block socket_DCB_Type. For detailed information
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1667 \| about the contents of the device control block, refer to
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1668 \| Chapter 2.1.1. If any value of the configuration is out of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1669 \| range or invalid in combination with any other value of the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1670 \| configuration, the function returns DRV_INVALID_PARAMS.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1671 \| Call the socket_GetConfig() function to retrieve the driver's
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1672 \| configuration.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1673 \| The driver needs to be configured after initialization. Only
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1674 \| the following functions can be called while the driver is not
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1675 \| configured: socket_Clear, socket_SetSignal and socket_GetSignal.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1676 \| All other functions return DRV_NOTCONFIGURED.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1677 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1678 \| Parameters : in_DCBPtr - Pointer to the driver control block
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1679 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1680 \| Return : DRV_OK - Function completed successfully
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1681 \| DRV_INVALID_PARAMS - One or more parameters are out of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1682 \| range or invalid
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1683 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1684 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1685 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1686 USHORT socket_SetConfig (char* in_DCBPtr)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1687 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1688 char token [SOCKET_MAX_LEN_HOSTNAME+1];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1689 USHORT port;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1690 unsigned int len;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1691
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1692 if ( (len = GetNextToken (in_DCBPtr, token, " #")) == 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1693 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1694 return DRV_INVALID_PARAMS;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1695 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1696 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1697 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1698 in_DCBPtr += (len+1);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1699 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1700
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1701 port = (USHORT)atoi(token);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1702
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1703 if ( (len = GetNextToken (in_DCBPtr, token, " #")) == 0)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1704 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1705 return DRV_INVALID_PARAMS;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1706 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1707 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1708 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1709 in_DCBPtr += (len+1);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1710 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1711
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1712 if ( !strcmp ( DRV_TI_MODE, token ) )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1713 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1714 L_DCB.config = TI_MODE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1715 sock_state = SST_DATAx;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1716 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1717 else if ( !strcmp ( DRV_DEFAULT, token ) )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1718 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1719 L_DCB.config = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1720 sock_state = SST_PL0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1721 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1722 else
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1723 return DRV_INVALID_PARAMS;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1724
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1725 if ( (len = GetNextToken (in_DCBPtr, token, " #")) == 0 )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1726 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1727 #ifdef _TOOLS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1728 gethostname (token,SOCKET_MAX_LEN_HOSTNAME);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1729 #endif /* _TOOLS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1730 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1731
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1732 if (L_ThreadActive)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1733 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1734 /* check if host is already used */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1735 if (strcmp(L_DCB.hostname, token)==0 && L_DCB.port==port)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1736 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1737 #ifdef _TOOLS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1738 printf("SOCKET: keeping connection to host %s on port %u\n",L_DCB.hostname,L_DCB.port);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1739 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1740 return DRV_OK;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1741 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1742
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1743 socket_Close();
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1744 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1745
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1746 L_DCB.port=port;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1747 strcpy ( L_DCB.hostname, token);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1748
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1749 if (socket_Open () != DRV_OK)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1750 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1751 return DRV_INVALID_PARAMS ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1752 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1753
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1754 return DRV_OK ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1755 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1756
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1757 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1758 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1759 \| Function : socket_GetConfig
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1760 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1761 \| Description : This function is used to retrieve the configuration of the
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1762 \| driver. The configuration is returned in the driver control
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1763 \| block to which the pointer provided out_DCBPtr points. For
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1764 \| detailed information about the contents of the device control
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1765 \| block, refer to Chapter 2.1.1. The configuration can be
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1766 \| requested at any one time.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1767 \| If the driver is not configured, the function returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1768 \| DRV_ NOTCONFIGURED.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1769 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1770 \| Parameters : out_DCBPtr - Pointer to the driver control block
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1771 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1772 \| Return : DRV_OK - Function completed successfully
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1773 \| DRV_INVALID_PARAMS - One or more parameters are out of
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1774 \| range or invalid
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1775 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1776 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1777 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1778 USHORT socket_GetConfig (socket_DCB_Type* out_DCBPtr)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1779 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1780 if (out_DCBPtr == NULL)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1781 return DRV_INVALID_PARAMS ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1782
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1783 memcpy (out_DCBPtr, &L_DCB, sizeof (L_DCB)) ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1784 return DRV_OK ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1785 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1786
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1787 /*
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1788 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1789 \| Function : socket_Init
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1790 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1791 \| Description : The function initializes the internal data of the driver.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1792 \| The function returns DRV_INITIALIZED if the driver has
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1793 \| already been initialized and is ready to be used or is
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1794 \| already in use. In the case of an initialization failure,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1795 \| i.e. the driver cannot be used, the function returns
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1796 \| DRV_INITFAILURE.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1797 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1798 \| Parameters : in_SignalCBPtr - This parameter points to the function that
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1799 \| is called at the time an event that is to
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1800 \| be signaled occurs. This value can be set
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1801 \| to NULL if event signaling should not be
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1802 \| possible.
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1803 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1804 \| Return : DRV_OK - Initialization successful
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1805 \| DRV_INITIALIZED - Driver already initialized
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1806 \| DRV_INITFAILURE - Initialization failed
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1807 \|
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1808 +------------------------------------------------------------------------------
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1809 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1810 GLOBAL USHORT socket_Init ( USHORT DrvHandle, T_DRV_CB_FUNC CallbackFunc, T_DRV_EXPORT const **DrvInfo )
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1811 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1812 static const T_DRV_EXPORT Socket_Info =
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1813 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1814 "SOCKET",
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1815 0,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1816 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1817 #ifdef _TOOLS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1818 socket_Init,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1819 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1820 socket_Exit,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1821 socket_Read,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1822 socket_Write,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1823 NULL,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1824 NULL,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1825 socket_Flush,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1826 socket_SetSignal,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1827 socket_ResetSignal,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1828 socket_SetConfig,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1829 NULL,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1830 NULL,
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1831 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1832 };
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1833 union
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1834 {
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1835 USHORT s;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1836 UBYTE b[2];
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1837 } test;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1838
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1839 #ifndef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1840 #if defined (_VXWORKS_) \|\| defined (_LINUX_) \|\| defined (_SOLARIS_)
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1841 /* ToDo: vxWorks-libs initiieren
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1842 sockLib
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1843 inetLib
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1844 */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1845 #else /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1846 WSADATA WSAData;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1847 if (WSAStartup(MAKEWORD(1,1), &WSAData))
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1848 return DRV_INITFAILURE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1849 #endif /* _VXWORKS_ */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1850 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1851
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1852 test.s = 1;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1853 isLittleEndian = (test.b[0] == 1);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1854
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1855 L_ThreadActive = FALSE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1856 L_DCB.config = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1857 L_DCB.port = 6392;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1858 L_DCB.tx_buffer_size = TX_BUFFER_SIZE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1859 L_DCB.rx_buffer_size = RX_BUFFER_SIZE ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1860 L_DCB.tx_timeout_msec = TX_TIMEOUT_MSEC;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1861 L_DCB.rx_timeout_msec = RX_TIMEOUT_MSEC;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1862 *L_DCB.hostname = 0 ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1863 L_ClientData.Connect = FALSE;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1864 L_ClientData.SocketHandle = DrvHandle;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1865 L_ClientData.Socket = INVALID_SOCKET ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1866 L_ClientData.Listener = INVALID_SOCKET ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1867 #ifdef _PSOS_
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1868 tst_socket = INVALID_SOCKET ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1869 tst_socket_initialized = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1870 tst_socket_in_TxLen = 0;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1871 #endif
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1872
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1873 L_ClientData.Callback = CallbackFunc ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1874 L_ClientData.EnabledSignals = ALLOWED_SOCKET_SIGNALS ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1875 *DrvInfo = &Socket_Info;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1876 #ifdef SOCKET_DEBUG
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1877 fp = fopen(logfile,"wt");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1878 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1879 fp = fopen(inprocessfile,"wt");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1880 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1881 fp = fopen(bufferfullfile,"wt");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1882 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1883 fp = fopen(noconnectfile1,"wt");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1884 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1885 fp = fopen(noconnectfile2,"wt");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1886 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1887 fp = fopen(noconnectfile3,"wt");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1888 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1889 fp = fopen(readerrorfile,"wt");
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1890 fclose(fp);
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1891 #endif /* SOCKET_DEBUG */
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1892 return DRV_OK ;
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1893 }
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1894
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1895 /==== END OF FILE ==========================================================/
8b2a9a374324 src/gpf: addition of Magnetite src/gpf2 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1896

FreeCalypso > hg > fc-selenite

annotate src/gpf/tst/drv/socket.c @ 112:fdecfb3bd860