fc-magnetite: src/gpf2/tst/drv/tif2.c annotate

annotate src/gpf2/tst/drv/tif2.c @ 662:8cd8fd15a095

SIM speed enhancement re-enabled and made configurable TI's original code supported SIM speed enhancement, but Openmoko had it disabled, and OM's disabling of speed enhancement somehow caused certain SIM cards to start working which didn't work before (OM's bug #666). Because our FC community is much smaller in year 2020 than OM's community was in their day, we are not able to find one of those #666-affected SIMs, thus the real issue they had encountered remains elusive. Thus our solution is to re-enable SIM speed enhancement and simply wait for if and when someone runs into a #666-affected SIM once again. We provide a SIM_allow_speed_enhancement global variable that allows SIM speed enhancement to be enabled or disabled per session, and an /etc/SIM_spenh file in FFS that allows it to enabled or disabled on a non-volatile basis. SIM speed enhancement is now enabled by default.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Sun, 24 May 2020 05:02:28 +0000
parents	cd37d228dae0
children

rev	line source
294 cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +------------------------------------------------------------------------------
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| File: tif.c
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 +------------------------------------------------------------------------------
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 \| Copyright 2002 Texas Instruments Berlin, AG
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| All rights reserved.
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \| This file is confidential and a trade secret of Texas
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| Instruments Berlin, AG
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| The receipt of or possession of this file does not convey
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| any rights to reproduce or disclose its contents or to
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| manufacture, use, or sell anything it may describe, in
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| whole, or in part, without the specific written consent of
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| Texas Instruments Berlin, AG.
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 +-----------------------------------------------------------------------------
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 \| Purpose : This Modul contains the TIF driver
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 +-----------------------------------------------------------------------------
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 #ifndef __TIF_C__
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 #define __TIF_C__
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #include "typedefs.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 #include "string.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #include "gdi.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 #include "vsi.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 #include "tools.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 #include "glob_defs.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 #include "ccdtable.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include "ccddata.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include "pcon.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include "p_mem.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #include "drvconf.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 #include "tstheader.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include "frame_const.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #include <stdio.h>
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include "printtofile.h"
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #if !defined (_SOLARIS_) && !defined (_LINUX_)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #pragma pack(4)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 /lint -e545 /
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 /==== TYPES ======================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 typedef struct
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 USHORT Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 USHORT EnabledSignalType;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 T_DRV_CB_FUNC Callback;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 USHORT Config;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 } T_TIF_DATA;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 typedef struct
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 unsigned int use_id;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 char *name;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 } T_RIV_USEID_TO_NAME;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 /==== CONSTANTS ==================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 #define ALLOWED_TIF_SIGNALS (DRV_SIGTYPE_READ\|DRV_SIGTYPE_CONNECT\|DRV_SIGTYPE_DISCONNECT)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 #define NAME_LENGTH 4
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 #define TIF_RCV_CMD_SIZE 32
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 #define TIF_MAX_CMD (TIF_RCV_CMD_SIZE-1)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 #define STX 0x02
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 #define LF 0x0a
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 #define PCON_ENABLED 0x0001
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 #define SYNC_MODE 0x0002
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 #undef VSI_CALLER
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 #define VSI_CALLER TST_Handle,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 const T_RIV_USEID_TO_NAME riv_use_id_to_name[] =
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 { 0x00010001, "RVM" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 { 0x00010002, "RVT" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 { 0x000A0001, "R2D" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 { 0x000A0002, "RTC" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 { 0x000A0004, "FFS" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 { 0x000A0008, "KPD" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 { 0x000A0010, "SPI" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 { 0x000A0020, "PWR" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 { 0x000A0040, "RGUI" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 { 0x00140001, "HCI" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 { 0x00140002, "L2CA" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 { 0x00140004, "BTCT" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 { 0x00140008, "RFC" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 { 0x00140010, "SPP" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 { 0x00140020, "HS" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 { 0x00140040, "HSG" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 { 0x00140080, "SDP" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 { 0x00140100, "DUN" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 { 0x00140200, "FAX" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 { 0x00140400, "OBX" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 { 0x00140800, "OPP" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 { 0x00141000, "FTP" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 { 0x00142000, "SYN" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 { 0x001E0001, "EXPL" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 { 0x001E0010, "AUDIO" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 { 0x001E0020, "ETM" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 { 0x001E0040, "DAR" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 { 0x001E0080, "MKS" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 { 0x001E0100, "MPM" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 { 0x001E0200, "LLS" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 { 0x001E0400, "ATP" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 { 0x001E0800, "ATPUART" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 { 0x001E2000, "MDC" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 { 0x001E4000, "TTY" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 { 0x001E8000, "DCM" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 { 0x00280001, "TEST" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 { 0x00280002, "TUT" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 { 0x00320001, "KIL" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 { 0x00320002, "KGC" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 { 0x00320004, "KCL" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 { 0x00320008, "KMM" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 { 0x00320010, "KNM" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 { 0x00320020, "UVM" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 { 0x00320040, "KZP" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 { 0x00320080, "KPG" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 { 0x00320100, "JTM" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 { 0x003C0001, "DEV1" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 { 0x003C0002, "DEV2" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 { 0x003C0003, "DEV3" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 { 0x00460001, "RNET" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 { 0x00460002, "RNET_WS" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 { 0x00460004, "RNET_RT" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 { 0x00460008, "RNET_BR" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 { 0x00640001, "MSME" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 { 0x00640002, "MSFE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 { 0x00640004, "STKE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 { 0x00640008, "BRSE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 { 0x00640010, "BRAE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 { 0x00640020, "PHSE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 { 0x00640040, "IBSE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 { 0x00640080, "MMSE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 { 0x00640100, "SLSE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 { 0x00640200, "SMAE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 { 0x00640400, "MEAE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 { 0x00640800, "SECE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 { 0x00641000, "SELE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 { 0x00642000, "PRSE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 { 0x00644000, "JAAE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 { 0x00648000, "JASE" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 { 0x006E0001, "IT1E" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 { 0x006E0002, "IT2E" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 { 0x006E0004, "IT0E" },
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 { 0x0, NULL}
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 };
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 /==== EXTERNALS ==================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 extern T_HANDLE TST_Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 extern const T_PCON_PROPERTIES *pcon;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 extern ULONG MaxPrimPartSize;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 extern const T_MEM_PROPERTIES *mem;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 #ifdef CTB
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 extern BOOL ctb_sent_to_tap;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 extern BOOL ctb_tick_enabled;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 /==== VARIABLES ==================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 char corruptWarning[] = "corrupt prim received: ";
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 char wrongTSTWarning[] = "wrong (old) TST header used on toolside! ";
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 T_TIF_DATA TIF_Data;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 static ULONG TIF_WrInd = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 BOOL socket_flush = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 extern T_TIF_DATA TIF_Data;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 extern BOOL socket_flush;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 #endif /* RUN_INT_RAM */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 char buffer[80];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 const T_PCON_PROPERTIES pcon_export =
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 pcon_init_prim_coding,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 pcon_decodePrim,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 pcon_codePrim,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 pcon_make_filter,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 PCON_STACK_OFFSET
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 };
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 T_PCON_PROPERTIES const *pcon = &pcon_export;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 /==== FUNCTIONS ==================================================/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 USHORT TIF_Write ( void Buffer, ULONG BytesToWrite );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 \| PROJECT : GSM-Frame (8415) MODULE : TIF \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 \| STATE : code ROUTINE : TIF_Exit \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 PURPOSE : exit a driver
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 LOCAL void TIF_Exit ( void )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 ccddata_exit();
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 #ifndef RUN_FLASH
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 \| PROJECT : GSM-Frame (8415) MODULE : TIF \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 \| STATE : code ROUTINE : TIF_Write \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 PURPOSE : write data to driver
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 /* Lint is not able to analyze the program flow through if...else constructions
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 and therefor bring a bunch of warnings.*/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 /lint -e645 suppress warning -- Symbol '...' may not have been initialized /
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 /lint -e644 suppress warning -- Symbol '...' may not have been initialized /
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 /lint -e613 suppress warning -- possibly use of NULL pointer '...' /
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 USHORT TIF_Write ( void Buffer, ULONG BytesToWrite )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 T_PRIM_HEADER prim = (T_PRIM_HEADER)Buffer;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 T_PRIM_HEADER *prim_ptr = NULL;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 TST_SMALL_HEADER *tst_header_ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 T_S_HEADER *s_hdr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 unsigned int bytes_to_write;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 unsigned int size;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 unsigned int name_len;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 unsigned int length;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 unsigned int org_rcv_len = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 unsigned int opc_len = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 unsigned int bytes_written = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 unsigned int write_flag = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 char *write_ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 char *tst_data_ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 char trace_opc=0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 char Sender[RESOURCE_NAMELEN] = {0};
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 void *coded_prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 void *decoded_prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 int pcon_called = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 int is_primitive = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 int ret = DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 int sts;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 int is_generated_primitive = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 s_hdr = (T_S_HEADER)((ULONG)prim + prim->sh_offset);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 if ( prim->opc & SYS_MASK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 size = prim->len - sizeof(T_PRIM_HEADER);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 tst_data_ptr = (char*)P2D(prim);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 tst_header_ptr = (TST_SMALL_HEADER*) tst_data_ptr - 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 tst_header_ptr->combined[INFO_BYTE] = (~HDR_IDENT_MASK \| IDENT_SYS_PRIM);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 InsertString(s_hdr->rcv, (char*)&tst_header_ptr->receiver, 4);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 is_primitive = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 if ( (length = GetNextToken (tst_data_ptr, buffer, " #")) > 0)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 if ( !strcmp (buffer, FILTER) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 void *filter_prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 if ( (pcon != NULL) && pcon->make_filter(tst_data_ptr+length+1, &filter_prim) == PCON_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 prim = D2P(filter_prim);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 s_hdr = (T_S_HEADER)((ULONG)prim + prim->sh_offset);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 is_primitive = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 is_generated_primitive = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 else if ( (SAP_NR(prim->opc)==TRACE_SAP) \|\| (prim->opc==TRACE_OPC) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 is_primitive = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 size = prim->len - sizeof(T_PRIM_HEADER);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 tst_data_ptr = (char*)P2D(prim);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 if (prim->opc!=TRACE_OPC)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 /* we have a traceclass id */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 trace_opc=(char)PRIM_NR(prim->opc);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 tst_header_ptr = (TST_SMALL_HEADER*) tst_data_ptr - 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 tst_header_ptr->combined[INFO_BYTE] = (~HDR_IDENT_MASK \| IDENT_TRACE);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 InsertString(FRM_PCO_NAME, (char*)&tst_header_ptr->receiver, 4);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 if ( is_primitive == TRUE )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 TST_BIG_HEADER tst_big_header;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 TST_BIG_HEADER *tst_big_header_ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 /* on the tool side the primitive to be duplicated is copied when sent to TST */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 prim_ptr = prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 /* in the target a pointer to the primitive to be duplicated is transported in a carrier of type T_PRIM_X */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 prim_ptr = (T_PRIM_HEADER)((T_PRIM_X)(prim))->prim_ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 size = prim_ptr->len - sizeof(T_PRIM_HEADER);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 tst_data_ptr = (char*)P2D(prim_ptr);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 tst_big_header_ptr = &tst_big_header;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 opc_len = 4;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 org_rcv_len = 4;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 if ( (pcon != NULL) && (TIF_Data.Config & PCON_ENABLED) && !(prim_ptr->opc & VIRTUAL_OPC) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 decoded_prim = P2D(prim_ptr);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 if ( (sts = (int)(pcon->code_prim( prim_ptr->opc, decoded_prim, &coded_prim, (ULONG*)&size, 0, s_hdr->rcv ))) != PCON_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 vsi_o_ttrace (NO_TASK, TC_SYSTEM,"PCON Code Error %d, TIF_Write() aborted", sts );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 return DRV_INTERNAL_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 prim_ptr = D2P(coded_prim);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 tst_data_ptr = coded_prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 pcon_called = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 EXCHANGE_4BYTES_ENDIANESS(&prim_ptr->opc);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 tst_big_header_ptr->opc = prim_ptr->opc;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 tst_big_header_ptr->combined[INFO_BYTE] = (~HDR_IDENT_MASK \| IDENT_PS_PRIM);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 InsertString(s_hdr->rcv, (char*) &tst_big_header_ptr->receiver, 4);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 InsertString(s_hdr->org_rcv, (char*) &tst_big_header_ptr->orgreceiver, 4);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 socket_flush = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 tst_header_ptr = (TST_SMALL_HEADER*) tst_big_header_ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 tst_header_ptr->combined[INFO_BYTE] = ((tst_header_ptr->combined[INFO_BYTE] & (~HDR_VERSION_MASK)) \| HDR_VALID_VERSION_1);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 tst_header_ptr->combined[INFO_BYTE] = ((tst_header_ptr->combined[INFO_BYTE] & (~HDR_TIME_MASK)) \| HDR_TIME_MS);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 tst_header_ptr->time = s_hdr->time;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 EXCHANGE_4BYTES_ENDIANESS(&tst_header_ptr->time);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 tst_header_ptr->sender[0] = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 if ( s_hdr->snd[0] == 0 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 if ( *tst_data_ptr == '~')
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 name_len = GetNextToken ((char*)(tst_data_ptr), Sender, "~");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 InsertString(Sender, (char*) &tst_header_ptr->sender, 4);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 size -= 2+name_len;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 /* rub out a leading ~NAM~ in data field: */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 memcpy ( tst_data_ptr, tst_data_ptr + 2 + name_len, size );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 InsertString(FRM_SYST_NAME, (char*)&tst_header_ptr->sender, 4);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 T_HANDLE TaskHandle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 if ( s_hdr->snd[0] & ~HANDLE_MASK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 TaskHandle = (T_HANDLE)(s_hdr->snd[0]&HANDLE_MASK);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 vsi_e_name ( TST_Handle, TaskHandle, Sender );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 InsertString(Sender, (char*)&tst_header_ptr->sender, 4);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 InsertString(s_hdr->snd, (char*)&tst_header_ptr->sender, 4);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 length = size + TST_HEADER_TRAILING_FIELDS + org_rcv_len + opc_len + (trace_opc ? 1 : 0);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 tst_header_ptr->combined[FIRST_BYTE] = (UBYTE) (LOW_MASK & length);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 tst_header_ptr->combined[SECOND_BYTE] = (UBYTE) (LOW_MASK & (length >> 8));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 bytes_to_write = length + TST_HEADER_LEADING_FIELDS;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 write_ptr = (char*)&tst_header_ptr->combined[INFO_BYTE];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 if (trace_opc)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 /* move small header 1 byte to the left and insert trace class id */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 char *trace_opc_ptr=tst_data_ptr-1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 write_ptr = (char*)tst_header_ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 memcpy(write_ptr,(char*)tst_header_ptr+1,sizeof(TST_SMALL_HEADER)-1);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 *trace_opc_ptr=trace_opc;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 length++;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 else if ( prim_ptr != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 bytes_written = TST_BIG_HEADER_SIZE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 if ( vsi_d_write ( TIF_Data.Handle, 0, write_ptr, bytes_written \| PRIM_HEADER_FLAG ) != VSI_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 ret = DRV_INTERNAL_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 *BytesToWrite = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 write_ptr = tst_data_ptr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 write_flag = PRIM_DATA_FLAG;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 if (ret==DRV_OK)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 #if defined (_TOOLS_) \|\| defined (_LINUX_) \|\| defined (_SOLARIS_)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 socket_flush = TRUE; /* flush socket always on tool side */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 if ( vsi_d_write ( TIF_Data.Handle, 0, write_ptr, (bytes_to_write - bytes_written) \| write_flag ) != VSI_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 ret = DRV_INTERNAL_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 *BytesToWrite = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 if ( pcon_called )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 PFREE(P2D((T_VOID_STRUCT*)prim_ptr));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 if ( is_generated_primitive == TRUE )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 vsi_c_free ( TST_Handle, (T_VOID_STRUCT**)&prim );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 #else /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 if (prim->opc & MEMHANDLE_OPC)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 M_FREE(P_MEMHANDLE_SDU(((T_PRIM_X*)(prim))->prim_ptr));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 #endif /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 #if defined _NUCLEUS_ && !defined _TARGET_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 #ifdef CTB
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 if(ctb_tick_enabled && !ctb_sent_to_tap && !strncmp(tst_header_ptr->receiver,"TAP",3))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 ctb_sent_to_tap = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 return ( (USHORT)ret );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 /lint +e645 /
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 /lint +e613 /
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 \| PROJECT : GSM-Frame (8415) MODULE : TIF \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 \| STATE : code ROUTINE : TIF_SetSignal \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 PURPOSE : enable signal for the driver
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 LOCAL USHORT TIF_SetSignal ( USHORT SignalType )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 if ( !(SignalType & ALLOWED_TIF_SIGNALS) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 return DRV_INVALID_PARAMS;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 TIF_Data.EnabledSignalType \|= SignalType;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 return DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 \| PROJECT : GSM-Frame (8415) MODULE : TIF \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 \| STATE : code ROUTINE : TIF_ResetSignal \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 PURPOSE : disable signal for the driver
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 LOCAL USHORT TIF_ResetSignal ( USHORT SignalType )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 if ( !(SignalType & ALLOWED_TIF_SIGNALS) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 return DRV_INVALID_PARAMS;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 TIF_Data.EnabledSignalType &= ~SignalType;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 return DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 \| PROJECT : GSM-Frame (8415) MODULE : TIF \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 \| STATE : code ROUTINE : TIF_SetConfig \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512 PURPOSE : set configuration for the driver
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 /lint -esym(715,Buffer), suppress Info -- Symbol 'Buffer' not referenced) /
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 LOCAL USHORT TIF_SetConfig ( char *Buffer )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 if ( !strcmp ( TIF_PCON_ENABLE, Buffer ) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520 if ( TIF_Data.Config & PCON_ENABLED)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 /* already in PCON mode */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 return DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 switch (ccddata_init(NULL,0,NULL,NULL))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 case CCDDATA_DLL_OK:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 case CCDDATA_DLL_ALREADY:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 default:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 return DRV_INTERNAL_ERROR;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 TIF_Data.Config \|= PCON_ENABLED;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 printf("TIF: PCON mode selected\n");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 return DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 else if ( !strcmp ( DRV_DEFAULT, Buffer ) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 if ( !(TIF_Data.Config & PCON_ENABLED))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 /* already in default mode */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 return DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 ccddata_exit();
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 TIF_Data.Config &= ~PCON_ENABLED;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 printf("TIF: default mode selected\n");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 return DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 else if ( !strcmp ( ENABLE_SYNC_MODE, Buffer ) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 TIF_Data.Config \|= SYNC_MODE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 PrintToFile("TIF: sync mode enabled\n");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566 return DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 else if ( !strcmp ( DISABLE_SYNC_MODE, Buffer ) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 TIF_Data.Config &= ~SYNC_MODE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 PrintToFile("TIF: sync mode disabled\n");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 return DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 return DRV_INVALID_PARAMS;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 return DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 \| PROJECT : GSM-Frame (8415) MODULE : TIF \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 \| STATE : code ROUTINE : Callback \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 PURPOSE : callback function of the driver
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 /* Lint is not able to analyze the program flow through if...else constructions
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592 and therefor bring a bunch of warnings.*/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 /lint -esym(645,opc_str) suppress warning -- Symbol 'opc_str' may not have been initialized /
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 LOCAL void TIF_Callback ( T_DRV_SIGNAL *Signal )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 T_PRIM_HEADER *prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 T_S_HEADER *s_hdr;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 T_PRIM_X *sys_prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 T_DRV_SIGNAL TIF_Signal;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 TST_BIG_HEADER tst_header;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 unsigned int CorruptByteOffset = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 unsigned int length;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 unsigned int BytesToRead = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 unsigned int BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 unsigned int Bytes = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 unsigned int i;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 unsigned int opc_len = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 unsigned int org_rcv_len = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 unsigned int alloc_size;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 int sts;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 int WrongTSTHeader = FALSE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 char *target;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 void *decoded_prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 char opc_str[4];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 int l1_sigtype = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 switch ( Signal->SignalType )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 case DRV_SIGTYPE_READ_L1:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 l1_sigtype = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 /lint -fallthrough/
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 case DRV_SIGTYPE_READ_RIV:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 if ( vsi_d_read ( TIF_Data.Handle, 0, NULL, &BytesToRead ) != DRV_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 return;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 alloc_size = S_ALLOC_SIZE(BytesToRead + 1);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 if ( ( prim = (T_PRIM_HEADER*)vsi_c_new ( TST_Handle, alloc_size, 0 FILE_LINE_MACRO )) != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 TIF_WrInd = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 Bytes = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 BytesRead = BytesToRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 do
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 vsi_d_read ( TIF_Data.Handle, 0, (void)((char)P2D(prim)+TIF_WrInd), &BytesRead );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 Bytes += BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 if ( Bytes < BytesToRead )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 TIF_WrInd += BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 BytesRead = BytesToRead - BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645 } while ( Bytes < BytesToRead );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 prim->sh_offset = S_HDR_OFFSET(alloc_size - sizeof(T_S_HEADER));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647 s_hdr = (T_S_HEADER)((ULONG)prim + prim->sh_offset);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 s_hdr->time = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 s_hdr->org_rcv[0] = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650 if ( l1_sigtype == 1 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 strcpy ( s_hdr->snd, "L1" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 int i = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 unsigned int use_id = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 unsigned char p = (unsigned char)P2D(prim);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 use_id = use_id \| *p++ << 24;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 use_id = use_id \| *p++ << 16;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661 use_id = use_id \| *p++ << 8;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 use_id = use_id \| *p;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 do
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 if ( riv_use_id_to_name[i].use_id == use_id )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 strcpy ( s_hdr->snd, riv_use_id_to_name[i].name );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 if ( riv_use_id_to_name[i+1].use_id == 0 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 strcpy ( s_hdr->snd, "RIV" );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 } while ( riv_use_id_to_name[++i].use_id != 0 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673 memcpy ( (char)P2D(prim), (char)P2D(prim)+5, BytesToRead);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 strcpy ( s_hdr->rcv, FRM_PCO_NAME );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 sys_prim = (T_PRIM_X*) vsi_c_new ( TST_Handle, alloc_size, 0 FILE_LINE_MACRO );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678 sys_prim->prim_ptr = prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 prim->opc = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 prim->len = BytesToRead + sizeof(T_PRIM_HEADER);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 if ( TIF_Data.EnabledSignalType & DRV_SIGTYPE_READ )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684 VSI_PPM_SEND ( (T_PRIM_HEADER*)sys_prim, TST_Handle );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685 VSI_PPM_SEND ( (T_PRIM_HEADER*)sys_prim->prim_ptr, TST_Handle );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 TIF_Signal.SignalType = DRV_SIGTYPE_READ;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687 TIF_Signal.DrvHandle = TIF_Data.Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 TIF_Signal.UserData = (T_VOID_STRUCT*)sys_prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689 (TIF_Data.Callback)( &TIF_Signal );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694 case DRV_SIGTYPE_READ:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696 * Get the size of the needed buffer to store the data
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699 if ( vsi_d_read ( TIF_Data.Handle, 0, NULL, (ULONG*)&BytesToRead ) != DRV_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 return;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702 if ( BytesToRead )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704 if ( BytesToRead >= TST_SMALL_HEADER_SIZE )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705 BytesToRead -= TST_SMALL_HEADER_SIZE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706 Bytes = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707 TIF_WrInd = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 BytesRead = TST_SMALL_HEADER_SIZE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709 do
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 vsi_d_read ( TIF_Data.Handle, 0, (void)((char)&tst_header.combined[INFO_BYTE]+TIF_WrInd), (ULONG*)&BytesRead );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712 Bytes += BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713 if ( Bytes < TST_SMALL_HEADER_SIZE )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715 TIF_WrInd += BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 BytesRead = TST_SMALL_HEADER_SIZE - BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718 } while ( Bytes < TST_SMALL_HEADER_SIZE );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720 alloc_size = ALIGN(sizeof(T_PRIM_X));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 sys_prim = (T_PRIM_X*) vsi_c_new ( TST_Handle, alloc_size, 0 FILE_LINE_MACRO );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 switch (tst_header.combined[INFO_BYTE] & HDR_IDENT_MASK)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725 case IDENT_ABORT:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726 tst_header.combined[INFO_BYTE] = ((tst_header.combined[INFO_BYTE] & ~HDR_IDENT_MASK) \| IDENT_TRACE);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728 /* TR did loose byte(s)! Primitive is corrupt, no header val can be
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 guaranteed to be valid.
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730 Create a HUGE trace prim with zero time, sender tst, receiver pco,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 org_receiver tst
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 TRACE DATA will contain: a "corrupt prim received: " string,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 the already received part of the prim and all the rest */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 CorruptByteOffset = TST_SMALL_HEADER_SIZE + strlen(corruptWarning) + 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736 /* TR did receive a prim from tool side old TST header format and swiched to new.
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737 Now we have to TRACE the wrong tool side format, because the prim is lost. */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738 WrongTSTHeader = TRUE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 BytesToRead = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740 CorruptByteOffset = strlen(wrongTSTWarning) + 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743 case IDENT_PS_PRIM:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 opc_len = 4;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745 org_rcv_len = 4;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747 default:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 if ( (BytesRead = org_rcv_len) > 0 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753 if ( BytesToRead >= org_rcv_len )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754 BytesToRead -= org_rcv_len;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755 Bytes = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 TIF_WrInd = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757 do
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 vsi_d_read ( TIF_Data.Handle, 0, (void)((char)&tst_header.orgreceiver+TIF_WrInd), (ULONG*)&BytesRead );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760 Bytes += BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761 if ( Bytes < org_rcv_len )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 TIF_WrInd += BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764 BytesRead = org_rcv_len - BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 } while ( Bytes < org_rcv_len );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769 if ( (BytesRead = opc_len) > 0 )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771 if ( BytesToRead >= opc_len )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 BytesToRead -= opc_len;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773 Bytes = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 TIF_WrInd = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 do
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777 vsi_d_read ( TIF_Data.Handle, 0, (void)(opc_str+TIF_WrInd), (ULONG)&BytesRead );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778 Bytes += BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779 if ( Bytes < opc_len )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781 TIF_WrInd += BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782 BytesRead = opc_len - BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784 } while ( Bytes < opc_len );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 alloc_size = S_ALLOC_SIZE(CorruptByteOffset + BytesToRead + 1);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 if ( alloc_size > MAX_PRIM_PARTITION_SIZE - sizeof(T_PRIM_HEADER) - sizeof(T_S_HEADER))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 alloc_size = MAX_PRIM_PARTITION_SIZE - sizeof(T_PRIM_HEADER) - sizeof(T_S_HEADER);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792 if ( alloc_size > MaxPrimPartSize - sizeof(T_PRIM_HEADER) - sizeof(T_S_HEADER) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 alloc_size = MaxPrimPartSize - sizeof(T_PRIM_HEADER) - sizeof(T_S_HEADER);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 if ( ( prim = (T_PRIM_HEADER*)vsi_c_new ( TST_Handle, alloc_size, 0 FILE_LINE_MACRO )) != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797 TIF_WrInd = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 Bytes = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799 if ((BytesToRead + CorruptByteOffset) > alloc_size)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802 PrintToFile("TIF: Reduced a new Prim's size\n");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 BytesToRead = alloc_size - CorruptByteOffset;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806 BytesRead = BytesToRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808 target = (char*) P2D(prim);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 if (WrongTSTHeader)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812 memcpy(target, wrongTSTWarning, strlen(wrongTSTWarning));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813 target += strlen(wrongTSTWarning);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 else if (CorruptByteOffset)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818 PrintToFile("TIF: Byte(s) lost\n");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820 memcpy(target, corruptWarning, strlen(corruptWarning));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 target += strlen(corruptWarning);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 /lint -e420, suppress Warning -- Apparent access beyond array for function 'memcpy(.../
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823 memcpy(target,&tst_header.combined[INFO_BYTE], TST_SMALL_HEADER_SIZE-1);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 /lint +e420 /
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 target += TST_SMALL_HEADER_SIZE - 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829 if (WrongTSTHeader == FALSE && BytesToRead)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 if ( (tst_header.combined[INFO_BYTE] & HDR_IDENT_MASK)==IDENT_TRACE )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833 /* we read the first bytes in advance in case the trace class is carried */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 ULONG bread=1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835 vsi_d_read ( TIF_Data.Handle, 0, (void)((char)target+TIF_WrInd), &bread );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 if (bread==1 && ((char)target)<0x20) /* no character -> assume traceclass id */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 opc_str[0]=((char)target);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840 opc_len=1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842 BytesToRead -= bread;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846 /* ok, we have no traceclass info :-( */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 TIF_WrInd += bread;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848 Bytes += bread;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850 BytesRead = BytesToRead - Bytes;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853 do
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855 vsi_d_read ( TIF_Data.Handle, 0, (void)((char)target+TIF_WrInd), (ULONG*)&BytesRead );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856 Bytes += BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857 if ( Bytes < BytesToRead )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859 TIF_WrInd += BytesRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 BytesRead = BytesToRead - Bytes;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862 } while ( Bytes < BytesToRead );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	865 ((char)target + Bytes) = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	866 prim->sh_offset = S_HDR_OFFSET(alloc_size - sizeof(T_S_HEADER));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867 s_hdr = (T_S_HEADER)((ULONG)prim + prim->sh_offset);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868 switch (tst_header.combined[INFO_BYTE] & HDR_IDENT_MASK)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870 case IDENT_PS_PRIM:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872 EXCHANGE_4BYTES_ENDIANESS(opc_str);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 memcpy((char*)&prim->opc, opc_str, 4);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875 if ( (pcon != NULL) && (TIF_Data.Config & PCON_ENABLED) )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877 if ( (sts = (int)pcon->decode_prim ( prim->opc, &decoded_prim, (void)((char)prim+sizeof(T_PRIM_HEADER)), (ULONG*)&length, 0 )) != PCON_OK )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 if ( sts != PCON_CONFIG_PRIM )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881 vsi_o_ttrace (NO_TASK, TC_SYSTEM,"PCON Deode Error %d, TIF_Callback() aborted", sts );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 PFREE(P2D(sys_prim));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884 PFREE(P2D(prim));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885 return;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887 PFREE(P2D((T_VOID_STRUCT*)prim));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888 sys_prim->prim_ptr = D2P(decoded_prim);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892 sys_prim->prim_ptr = prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893 length = BytesToRead;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895 sys_prim->prim_ptr->sh_offset = S_HDR_OFFSET(length+sizeof(T_PRIM_HEADER));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896 sys_prim->prim_ptr->len = length + sizeof(T_PRIM_HEADER);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897 s_hdr = (T_S_HEADER)((ULONG)sys_prim->prim_ptr + sys_prim->prim_ptr->sh_offset);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899 /* evtl. convert aux sdu to mem handle */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900 if (sys_prim->prim_ptr->opc & MEMHANDLE_OPC && mem!=NULL)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902 if (P_MEMHANDLE_SDU(sys_prim->prim_ptr))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904 U32 mem_handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905 U8 buffer_handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906 U8 user_handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907 U8 *user_data;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 T_sdu *sdu;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909 U16 len;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911 sdu=(T_sdu *)P_MEMHANDLE_SDU(sys_prim->prim_ptr);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912 len=(sdu->l_buf + 7)/8;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914 buffer_handle=mem->create_buffer(MEM_UNORDERED_BUFFER, len);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915 user_handle = mem->create_user(buffer_handle, 23, "TST");
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917 user_data=mem->alloc(user_handle,len,&mem_handle);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918 memcpy(user_data,sdu->buf+(sdu->o_buf+7)/8,len);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919 P_MEMHANDLE(sys_prim->prim_ptr)=mem_handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921 mem->delete_user(user_handle);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 mem->delete_buffer(buffer_handle);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 case IDENT_SYS_PRIM:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	929 sys_prim->prim_ptr = prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930 prim->opc = SYS_MASK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931 prim->len = BytesToRead + sizeof(T_PRIM_HEADER);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934 case IDENT_TRACE:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 sys_prim->prim_ptr = prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936 if (opc_len)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938 /* nice, we found a traceclass info */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939 prim->opc = opc_str[0];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940 prim->opc = prim->opc << 16;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	941 prim->opc \|= EXTENDED_OPC \| VIRTUAL_OPC \| TRACE_SAP;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	942 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	943 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	944 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	945 prim->opc = TRACE_OPC;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	946 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	947 prim->len = CorruptByteOffset + BytesToRead + sizeof(T_PRIM_HEADER);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	948 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	949
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	950 default:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	951 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	952 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	953
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	954 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	955 * Extract Sender and Receiverfrom header
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	956 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	957 if (CorruptByteOffset)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	958 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	959 s_hdr->time = NULL;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	960 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	961 memcpy ( s_hdr->snd, "~TST", 4 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	962 memcpy ( s_hdr->rcv, FRM_TST_NAME, 4 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	963 #else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	964 memcpy ( s_hdr->snd, FRM_TST_NAME, 4 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	965 memcpy ( s_hdr->rcv, FRM_PCO_NAME, 4 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	966 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	967 memcpy ( s_hdr->org_rcv, "TST", 4 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	968 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	969 else
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	970 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	971 s_hdr->time = tst_header.time;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	972
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	973 i = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	974 do
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	975 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	976 s_hdr->snd[i] = tst_header.sender[i];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	977 i++;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	978 } while ( tst_header.sender[i] != 0x20 && i < 4 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	979 s_hdr->snd[i] = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	980
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	981 i = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	982 do
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	983 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	984 s_hdr->rcv[i] = tst_header.receiver[i];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	985 i++;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	986 } while ( tst_header.receiver[i] != 0x20 && i < 4 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	987 s_hdr->rcv[i] = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	988
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	989 if (org_rcv_len)
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	990 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	991 i = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	992 do
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	993 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	994 s_hdr->org_rcv[i] = tst_header.orgreceiver[i];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	995 i++;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	996 } while ( tst_header.orgreceiver[i] != 0x20 && i < 4 );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	997 s_hdr->org_rcv[i] = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	998 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	999 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1000
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1001 if ( TIF_Data.EnabledSignalType & DRV_SIGTYPE_READ )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1002 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1003 VSI_PPM_SEND ( (T_PRIM_HEADER*)sys_prim, TST_Handle );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1004 VSI_PPM_SEND ( (T_PRIM_HEADER*)sys_prim->prim_ptr, TST_Handle );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1005 TIF_Signal.SignalType = DRV_SIGTYPE_READ;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1006 TIF_Signal.DrvHandle = TIF_Data.Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1007 TIF_Signal.UserData = (T_VOID_STRUCT*)sys_prim;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1008 (TIF_Data.Callback)( &TIF_Signal );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1009 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1010 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1011 } /* if ( BytesToRead ) */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1012 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1013 case DRV_SIGTYPE_CONNECT:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1014 case DRV_SIGTYPE_DISCONNECT:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1015 if ( TIF_Data.EnabledSignalType & Signal->SignalType )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1016 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1017 TIF_Signal.SignalType = Signal->SignalType;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1018 TIF_Signal.DrvHandle = TIF_Data.Handle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1019 TIF_Signal.UserData = NULL;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1020 (TIF_Data.Callback)( &TIF_Signal );
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1021 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1022 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1023 default:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1024 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1025 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1026 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1027 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1028
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1029 #ifndef RUN_INT_RAM
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1030 /*
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1031 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1032 \| PROJECT : GSM-Frame (8415) MODULE : TIF \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1033 \| STATE : code ROUTINE : TIF_Init \|
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1034 +--------------------------------------------------------------------+
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1035
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1036 PURPOSE : initialize driver
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1037
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1038 */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1039 GLOBAL USHORT TIF_Init ( USHORT DrvHandle, T_DRV_CB_FUNC CallbackFunc, T_DRV_EXPORT const **DrvInfo )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1040 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1041 static const T_DRV_EXPORT TIF_Info =
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1042 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1043 TIF_NAME,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1044 0,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1045 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1046 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1047 TIF_Init,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1048 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1049 TIF_Exit,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1050 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1051 TIF_Write,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1052 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1053 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1054 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1055 TIF_SetSignal,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1056 TIF_ResetSignal,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1057 TIF_SetConfig,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1058 NULL,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1059 TIF_Callback,
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1060 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1061 };
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1062
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1063 #ifndef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1064 union
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1065 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1066 USHORT s;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1067 UBYTE b[2];
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1068 } test;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1069 #endif /* !_TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1070
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1071 TIF_Data.Handle = DrvHandle;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1072 TIF_Data.EnabledSignalType = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1073 TIF_Data.Config = 0;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1074 TIF_Data.Callback = CallbackFunc;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1075
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1076 #ifdef _TOOLS_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1077 switch (ccddata_init(NULL,0,NULL,NULL))
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1078 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1079 case CCDDATA_DLL_OK:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1080 case CCDDATA_DLL_ALREADY:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1081 break;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1082 default:
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1083 return DRV_INITFAILURE;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1084 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1085 #else /* _TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1086 test.s = 1;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1087 if ( pcon != NULL )
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1088 {
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1089 ULONG sts = pcon->init_prim_coding ( TST_Handle,(UBYTE)((test.b[0]==1) ? PCON_LITTLE : PCON_BIG));
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1090 #ifndef _TARGET_
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1091 vsi_pcheck_register (pcon->pcheck, PCON_OK);
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1092 #endif /* !_TARGET_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1093 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1094 #endif /* !_TOOLS_ */
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1095
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1096 *DrvInfo = &TIF_Info;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1097
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1098 return DRV_OK;
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1099 }
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1100 #endif
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1101
cd37d228dae0 src/gpf2/{misc,tst}: import from TCS211 semi-src Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1102

FreeCalypso > hg > fc-magnetite

annotate src/gpf2/tst/drv/tif2.c @ 662:8cd8fd15a095