freecalypso-sw: gsm-fw/gpf/tst_drv/socket.c annotate

annotate gsm-fw/gpf/tst_drv/socket.c @ 923:10b4bed10192

gsm-fw/L1: fix for the DSP patch corruption bug The L1 code we got from the LoCosto fw contains a feature for DSP CPU load measurement. This feature is a LoCosto-ism, i.e., not applicable to earlier DBB chips (Calypso) with their respective earlier DSP ROMs. Most of the code dealing with that feature is conditionalized as #if (DSP >= 38), but one spot was missed, and the MCU code was writing into an API word dealing with this feature. In TCS211 this DSP API word happens to be used by the DSP code patch, hence that write was corrupting the patched DSP code.

author	Mychaela Falconia <falcon@ivan.Harhan.ORG>
date	Mon, 19 Oct 2015 17:13:56 +0000
parents	5d1e22505446
children

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

FreeCalypso > hg > freecalypso-sw

annotate gsm-fw/gpf/tst_drv/socket.c @ 923:10b4bed10192