fc-magnetite: src/condat3/com/src/comlib/cl

author	Mychaela Falconia <falcon@freecalypso.org>
date	Tue, 27 Sep 2016 21:25:36 +0000
parents
children

rev	line source
18 c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +-----------------------------------------------------------------------------
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| Project :
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 \| Modul :
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 +-----------------------------------------------------------------------------
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| Copyright 2002 Texas Instruments Berlin, AG
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \| All rights reserved.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| This file is confidential and a trade secret of Texas
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| Instruments Berlin, AG
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| The receipt of or possession of this file does not convey
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| any rights to reproduce or disclose its contents or to
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| manufacture, use, or sell anything it may describe, in
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| whole, or in part, without the specific written consent of
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 \| Texas Instruments Berlin, AG.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 +-----------------------------------------------------------------------------
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 \| Purpose : This module defines the functions for the List
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 \| processing functions used in components RR/PL of the mobile station.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 +-----------------------------------------------------------------------------
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #ifndef CL_LIST_C
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 #define CL_LIST_C
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 #define ENTITY_RR
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #define ENTITY_PL
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 /==== INCLUDES ===================================================/
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 #include <string.h>
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include <stdlib.h>
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include <stddef.h>
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include "typedefs.h"
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #include "message.h"
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 #include "vsi.h"
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 #include "gsm.h"
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #include "prim.h"
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include "cl_list.h"
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 /==== CONST ======================================================/
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #ifdef TI_PS_FF_QUAD_BAND_SUPPORT
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #define INRANGE(min, x, max) ((unsigned)(x-min) <= (max-min))
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #endif
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 /==== VARIABLES ==================================================/
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 LOCAL const BYTE ByteBitMask[]= {0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x1};
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 /==== EXPORT =====================================================/
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 /==== PRIVATE FUNCTIONS ==========================================/
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 LOCAL UBYTE srv_is_not_in_list (USHORT * channels,
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 USHORT new_channel,
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 USHORT size);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 /==== PUBLIC FUNCTIONS ===========================================/
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 * List processing Functions
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 * RR uses a lot of channel lists. They are organized internally as bitmaps.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 * In the following a set of functions is defined for access to this lists:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 * srv_set_channel
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 * srv_unset_channel
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 * srv_get_channel
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 * srv_create_list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 * srv_clear_list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 * srv_copy_list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 * srv_compare_list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 * srv_merge_list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 * srv_is_empty_list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 * srv_create_chan_mob_alloc
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 * The size of the internal channel lists depends on the supported frequency
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 * band:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 * STD=1 (STD_900) GSM 900
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 * STD=2 (STD_EGSM) E-GSM
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 * STD=3 (STD_1900) PCS 1900
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 * STD=4 (STD_1800) DCS 1800
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 * STD=5 (STD_DUAL) GSM 900 / DCS 1800 DUALBAND
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 * STD=6 (STD_DUAL_EGSM) GSM 900 / E-GSM / DCS 1800 DUALBAND
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 * STD=7 (STD_850) GSM 850
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 * STD=8 (STD_DUAL_US) GSM 850 / PCS 1900 DUALBAND
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 * We use a compressed bit array to store the list of channels.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 * Dependent on the configured or found frequency bands the bit array
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 * needs several numbers of bytes. For the representation of the individual
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 * bits in the array we need the function scr_channel_bit(), setBit(),
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 * resetBit() and getBit().
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 \| STATE : code ROUTINE : setBit \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 PURPOSE : sets bit.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 LOCAL void setBit (UBYTE* bitstream, unsigned bitindex)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 bitstream[bitindex >> 3] \|= ByteBitMask[bitindex & 7];
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 \| STATE : code ROUTINE : resetBit \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 PURPOSE : Resets bit.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 LOCAL void resetBit (UBYTE* bitstream, unsigned bitindex)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 bitstream[bitindex >> 3] &= ~ByteBitMask[bitindex & 7];
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 \| STATE : code ROUTINE : getBit \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 PURPOSE : Gets bit.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 LOCAL BYTE getBit (UBYTE* bitstream, unsigned bitindex)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 unsigned ByteIdx = bitindex >> 3;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 if (bitstream[ByteIdx])
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 return (bitstream[ByteIdx] & ByteBitMask[bitindex & 7]) ? 1 : 0;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 else
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 return 0;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 \| STATE : code ROUTINE : scr_channel_bit \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 PURPOSE : calculate bit position in the bitstream for a given
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 channel and execute function dependent on mode.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 GLOBAL UBYTE scr_channel_bit(T_LIST * list, int channel, int mode)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 int bitposition = -1;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 UBYTE ret = 0;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 * a more efficient way of range checking for ARM
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 * (according to application note 34, ARM DAI 0034A, January 1998)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 * For the following code:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 * if (channel >= low_channel AND channel <= high_channel)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 * bitposition = ...;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 * exist the faster way to implemented this:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 * if ((unsigned)(channel - low_channel) <= (high_channel - low_channel)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 * bitposition = ...;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 * Future versions of the compiler will perform this optimization
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 * automatically.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 * We use the follwing macro:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 * #define INRANGE(min, x, max) ((unsigned)(x-min) <= (max-min))
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 if(channel EQ CHANNEL_0)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 channel = CHANNEL_0_INTERNAL;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 bitposition = BITOFFSET_LIST - channel;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 /*if (channel EQ CHANNEL_0)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 bitposition = (USHORT)(BITOFFSET_DUAL_EGSM_B - CHANNEL_0_INTERNAL);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 else if (INRANGE(LOW_CHANNEL_900,channel,HIGH_CHANNEL_900))
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 bitposition = (USHORT)(BITOFFSET_DUAL_EGSM_A - channel);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 else if (INRANGE(LOW_CHANNEL_EGSM,channel,HIGH_CHANNEL_EGSM))
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 bitposition = (USHORT)(BITOFFSET_DUAL_EGSM_B - channel);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 else if (INRANGE(LOW_CHANNEL_1800,channel,HIGH_CHANNEL_1800))
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 bitposition = (USHORT)(BITOFFSET_DUAL_EGSM_C - channel);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 if (INRANGE(LOW_CHANNEL_850,channel,HIGH_CHANNEL_850))
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 bitposition = (USHORT)(BITOFFSET_DUAL_US_A - channel);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 else if (INRANGE(LOW_CHANNEL_1900,channel,HIGH_CHANNEL_1900))
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 bitposition = (USHORT)(BITOFFSET_DUAL_US_B - channel);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 if (bitposition >=0)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 switch (mode)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 case SET_CHANNEL_BIT:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 setBit (list->channels, bitposition);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 break;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 case RESET_CHANNEL_BIT:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 resetBit (list->channels, bitposition);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 break;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 case GET_CHANNEL_BIT:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 ret = getBit (list->channels, bitposition);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 break;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 case CHECK_CHANNEL:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 ret = 1;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 break;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 return ret;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 \| STATE : code ROUTINE : srv_create_list \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 PURPOSE : Creates a frequency list in USHORT format from the
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 bit list. USHORT format means an array of USHORTs
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 followed by NOT_PRESENT_16BIT (0xFFFF), except for the
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 case when all elements of the array are used, i.e. the
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 array's space is fully occupied.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 In this function the channels are just converted between
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 the formats, any semantic errors are not checked here, ie.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 if the MS is 1800-only and the list contains a 900 channel
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 this will be converted even if this leads to an error.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 This has to be handled by the caller.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 Parameters:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 list - [in] is the input list.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 channel_array - [out] converted list.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 size - [in] defines the maximum number of channels
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 in the list.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 zero_at_start - [in] specifies where the CHANNEL_0 should be
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 put:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 TRUE - at the start of the list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 FALSE - at the end of the list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 start_index - [in] specifies a index into the channel_array.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 new channels are added at the positions
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 following and including the index:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 channel_array[start_index] to
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 channel_array[size-1]
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 If the start_index is not equal zero it is
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 also checked if the new channel is already
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 in the channel_array list (from
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 channel_array[0] to
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 channel_array[start_index-1])
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 If the start_index is equal zero the
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 above check is not performed.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 Return Value:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 number of elements added + start_index
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 GLOBAL int srv_create_list (T_LIST * list, USHORT * channel_array, USHORT size,
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 UBYTE zero_at_start, USHORT start_index)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 int BitOffset, Idx;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 unsigned int ByteValue, BitMask, LeftMask;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 int i = start_index;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 UBYTE *pch;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 USHORT *parray = &channel_array[start_index];
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 pch = &list->channels[T_LIST_MAX_SIZE-1];
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 for(Idx = T_LIST_MAX_SIZE-1; Idx >= 0 AND i < size; Idx--, pch--)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 * check and add all channels
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 if ((ByteValue = *pch) NEQ 0)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 /* byte contains set bits */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 /* check single bits */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 for (BitOffset=7, BitMask=0x01, LeftMask=0xfe;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 BitOffset>=0;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 BitOffset--, BitMask<<=1, LeftMask<<=1)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 if (ByteValue & BitMask)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 *parray = BITOFFSET_LIST - (BitOffset+(Idx<<3));
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 if(!start_index OR
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 srv_is_not_in_list (channel_array, *parray, start_index))
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 /* if the check is ok, ie:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 * always add channel, or the channel has not yet existed
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 * in the list, then advance the pointer and add the
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 * next channel on next position
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 * if the check fails the pointer is not advanced and
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 * the channel will not be added and the next channel
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 * will overwrite the current channel.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 parray++;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 /* check if list is full */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 if (++i >= size)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 break;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 /* check if any bits are left */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 if ((ByteValue & LeftMask) EQ 0)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 break;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 } /* for all bits in byte */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 } /* if Byte NEQ 0 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 } /* for all Bytes in List */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 * If CHANNEL_0 is included in the list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 * it has to be changed from CHANNEL_0_INTERNAL to CHANNEL_0
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 * and then the zero_at_start flag is handled.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 *
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 * If CHANNEL_0 is in the list it is always
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 * at the end of the list.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 if(i NEQ start_index AND
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 *(parray-1) EQ CHANNEL_0_INTERNAL)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 *(parray-1) = CHANNEL_0;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 if(zero_at_start AND (i > 1))
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 memmove(&channel_array[1], &channel_array[0], (int)sizeof(channel_array[0])*(i-1));
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 channel_array[0] = CHANNEL_0;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 * add the end identifier to the output list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 if (i<size)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 *parray = NOT_PRESENT_16BIT;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 return i;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 \| STATE : code ROUTINE : srv_is_not_in_list \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 PURPOSE : Checks if the given channel number is a member of the given
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 list.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 Parameters:
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 channels - contains the existing output list.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 new_channel - is the channel number which shall be checked.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 size - indicates the length of the list.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 static UBYTE srv_is_not_in_list (USHORT * channels,
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 USHORT new_channel,
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 USHORT size)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 USHORT i;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 * for all members of the list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 for (i=0;i<size;i++)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 * The end of the list is reached
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 * that means the new channel is not inside.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 if (channels[i] EQ NOT_PRESENT_16BIT)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 return TRUE;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 * the channel is inside
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 if (channels[i] EQ new_channel)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 return FALSE;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 return TRUE;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 \| STATE : code ROUTINE : srv_clear_list \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 PURPOSE : Clears a list by clearing all bits.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 GLOBAL void srv_clear_list (T_LIST * list)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 * simple algorithm: clear the whole list.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 memset (list, 0, sizeof (T_LIST));
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 \| STATE : code ROUTINE : srv_copy_list \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 PURPOSE : Copies a list.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 GLOBAL void srv_copy_list (T_LIST * target_list, T_LIST * source_list,
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 UBYTE size)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 memcpy (target_list, source_list, size);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 \| STATE : code ROUTINE : srv_compare_list \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 PURPOSE : Compares two lists.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 GLOBAL UBYTE srv_compare_list (T_LIST * list1, T_LIST * list2)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 return (memcmp (list1, list2, sizeof (T_LIST)) EQ 0);
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 \| STATE : code ROUTINE : srv_merge_list \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 PURPOSE : Merges two lists. Both lists are bitmaps. So the merge
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 is done by a bitwise OR.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 GLOBAL void srv_merge_list (T_LIST * target_list, T_LIST * list)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 USHORT i;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 * The maximum list size is T_LIST_MAX_SIZE Bytes for the dualband extended
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 * frequency standard.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 for (i=0;i<T_LIST_MAX_SIZE;i++)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 target_list->channels[i] \|= list->channels[i];
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 \| STATE : code ROUTINE : srv_unmask_list \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 PURPOSE : This routine resets those bits in destination list that are set in
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 the source list.
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 Refer Cell Selection Improvements-LLD section:4.1.1.3.11
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 GLOBAL void srv_unmask_list(T_LIST target,T_LIST source)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 UBYTE count=0;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 for (count=0;count<T_LIST_MAX_SIZE; count++)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 target->channels[count] &= ~source->channels[count];
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 }
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 /*
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 \| PROJECT : GSM-PS (6147) MODULE : RR_SRV \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 \| STATE : code ROUTINE : srv_trace_freq_in_list \|
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 +--------------------------------------------------------------------+
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 PURPOSE : This routine traces the frequencies in the list
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 CSI-LLD section:4.1.1.3.11
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 */
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 GLOBAL void srv_trace_freq_in_list(T_LIST *list)
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 {
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 U16 i;
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499
c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 for(i=CHANNEL_0;i<CHANNEL_0_INTERNAL;i++)

18

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

2 +-----------------------------------------------------------------------------

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

3 | Project :

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

4 | Modul :

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

5 +-----------------------------------------------------------------------------

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

8 |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

9 | This file is confidential and a trade secret of Texas

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

10 | Instruments Berlin, AG

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

11 | The receipt of or possession of this file does not convey

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

12 | any rights to reproduce or disclose its contents or to

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

13 | manufacture, use, or sell anything it may describe, in

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

14 | whole, or in part, without the specific written consent of

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

15 | Texas Instruments Berlin, AG.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

16 +-----------------------------------------------------------------------------

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

17 | Purpose : This module defines the functions for the List

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

18 | processing functions used in components RR/PL of the mobile station.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

19 +-----------------------------------------------------------------------------

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

20 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

21

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

22 #ifndef CL_LIST_C

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

23 #define CL_LIST_C

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

24

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

25 #define ENTITY_RR

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

26 #define ENTITY_PL

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

27

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

28 /*==== INCLUDES ===================================================*/

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

29

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

30 #include <string.h>

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

31 #include <stdlib.h>

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

32 #include <stddef.h>

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

33 #include "typedefs.h"

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

34 #include "message.h"

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

35 #include "vsi.h"

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

36 #include "gsm.h"

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

37 #include "prim.h"

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

38 #include "cl_list.h"

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

39

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

40 /*==== CONST ======================================================*/

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

41 #ifdef TI_PS_FF_QUAD_BAND_SUPPORT

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

42 #define INRANGE(min, x, max) ((unsigned)(x-min) <= (max-min))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

43 #endif

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

44

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

45 /*==== VARIABLES ==================================================*/

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

46 LOCAL const BYTE ByteBitMask[]= {0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x1};

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

47

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

48 /*==== EXPORT =====================================================*/

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

49

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

50 /*==== PRIVATE FUNCTIONS ==========================================*/

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

51 LOCAL UBYTE srv_is_not_in_list (USHORT * channels,

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

52 USHORT new_channel,

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

53 USHORT size);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

54

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

55

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

56 /*==== PUBLIC FUNCTIONS ===========================================*/

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

57 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

58 * List processing Functions

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

59 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

60 * RR uses a lot of channel lists. They are organized internally as bitmaps.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

61 * In the following a set of functions is defined for access to this lists:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

62 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

63 * srv_set_channel

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

64 * srv_unset_channel

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

65 * srv_get_channel

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

66 * srv_create_list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

67 * srv_clear_list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

68 * srv_copy_list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

69 * srv_compare_list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

70 * srv_merge_list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

71 * srv_is_empty_list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

72 * srv_create_chan_mob_alloc

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

73 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

74 * The size of the internal channel lists depends on the supported frequency

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

75 * band:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

76 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

77 * STD=1 (STD_900) GSM 900

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

78 * STD=2 (STD_EGSM) E-GSM

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

79 * STD=3 (STD_1900) PCS 1900

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

80 * STD=4 (STD_1800) DCS 1800

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

81 * STD=5 (STD_DUAL) GSM 900 / DCS 1800 DUALBAND

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

82 * STD=6 (STD_DUAL_EGSM) GSM 900 / E-GSM / DCS 1800 DUALBAND

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

83 * STD=7 (STD_850) GSM 850

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

84 * STD=8 (STD_DUAL_US) GSM 850 / PCS 1900 DUALBAND

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

85 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

86 * We use a compressed bit array to store the list of channels.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

87 * Dependent on the configured or found frequency bands the bit array

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

88 * needs several numbers of bytes. For the representation of the individual

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

89 * bits in the array we need the function scr_channel_bit(), setBit(),

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

90 * resetBit() and getBit().

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

91 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

92 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

93

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

94 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

95 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

96 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

97 | STATE : code ROUTINE : setBit |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

98 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

99

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

100 PURPOSE : sets bit.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

101

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

102 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

103

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

104 LOCAL void setBit (UBYTE* bitstream, unsigned bitindex)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

105 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

106 bitstream[bitindex >> 3] |= ByteBitMask[bitindex & 7];

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

107 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

108

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

109

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

110 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

111 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

112 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

113 | STATE : code ROUTINE : resetBit |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

114 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

115

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

116 PURPOSE : Resets bit.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

117

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

118 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

119

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

120 LOCAL void resetBit (UBYTE* bitstream, unsigned bitindex)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

121 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

122 bitstream[bitindex >> 3] &= ~ByteBitMask[bitindex & 7];

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

123 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

124

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

125 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

126 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

127 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

128 | STATE : code ROUTINE : getBit |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

129 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

130

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

131 PURPOSE : Gets bit.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

132

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

133 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

134

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

135

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

136 LOCAL BYTE getBit (UBYTE* bitstream, unsigned bitindex)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

137 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

138 unsigned ByteIdx = bitindex >> 3;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

139

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

140 if (bitstream[ByteIdx])

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

141 return (bitstream[ByteIdx] & ByteBitMask[bitindex & 7]) ? 1 : 0;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

142 else

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

143 return 0;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

144 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

145

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

146 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

147 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

148 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

149 | STATE : code ROUTINE : scr_channel_bit |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

150 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

151

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

152 PURPOSE : calculate bit position in the bitstream for a given

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

153 channel and execute function dependent on mode.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

154

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

155 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

156

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

157 GLOBAL UBYTE scr_channel_bit(T_LIST * list, int channel, int mode)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

158 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

159 int bitposition = -1;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

160 UBYTE ret = 0;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

161

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

162 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

163 * a more efficient way of range checking for ARM

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

164 * (according to application note 34, ARM DAI 0034A, January 1998)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

165 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

166 * For the following code:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

167 * if (channel >= low_channel AND channel <= high_channel)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

168 * bitposition = ...;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

169 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

170 * exist the faster way to implemented this:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

171 * if ((unsigned)(channel - low_channel) <= (high_channel - low_channel)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

172 * bitposition = ...;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

173 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

174 * Future versions of the compiler will perform this optimization

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

175 * automatically.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

176 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

177 * We use the follwing macro:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

178 * #define INRANGE(min, x, max) ((unsigned)(x-min) <= (max-min))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

179 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

180 if(channel EQ CHANNEL_0)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

181 channel = CHANNEL_0_INTERNAL;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

182

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

183 bitposition = BITOFFSET_LIST - channel;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

184 /*if (channel EQ CHANNEL_0)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

185 bitposition = (USHORT)(BITOFFSET_DUAL_EGSM_B - CHANNEL_0_INTERNAL);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

186 else if (INRANGE(LOW_CHANNEL_900,channel,HIGH_CHANNEL_900))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

187 bitposition = (USHORT)(BITOFFSET_DUAL_EGSM_A - channel);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

188 else if (INRANGE(LOW_CHANNEL_EGSM,channel,HIGH_CHANNEL_EGSM))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

189 bitposition = (USHORT)(BITOFFSET_DUAL_EGSM_B - channel);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

190 else if (INRANGE(LOW_CHANNEL_1800,channel,HIGH_CHANNEL_1800))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

191 bitposition = (USHORT)(BITOFFSET_DUAL_EGSM_C - channel);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

192 if (INRANGE(LOW_CHANNEL_850,channel,HIGH_CHANNEL_850))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

193 bitposition = (USHORT)(BITOFFSET_DUAL_US_A - channel);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

194 else if (INRANGE(LOW_CHANNEL_1900,channel,HIGH_CHANNEL_1900))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

195 bitposition = (USHORT)(BITOFFSET_DUAL_US_B - channel);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

196 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

197 if (bitposition >=0)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

198 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

199 switch (mode)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

200 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

201 case SET_CHANNEL_BIT:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

202 setBit (list->channels, bitposition);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

203 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

204 case RESET_CHANNEL_BIT:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

205 resetBit (list->channels, bitposition);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

206 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

207 case GET_CHANNEL_BIT:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

208 ret = getBit (list->channels, bitposition);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

209 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

210 case CHECK_CHANNEL:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

211 ret = 1;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

212 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

213 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

214 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

215 return ret;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

216 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

217

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

218 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

219 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

220 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

221 | STATE : code ROUTINE : srv_create_list |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

222 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

223

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

224 PURPOSE : Creates a frequency list in USHORT format from the

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

225 bit list. USHORT format means an array of USHORTs

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

226 followed by NOT_PRESENT_16BIT (0xFFFF), except for the

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

227 case when all elements of the array are used, i.e. the

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

228 array's space is fully occupied.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

229 In this function the channels are just converted between

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

230 the formats, any semantic errors are not checked here, ie.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

231 if the MS is 1800-only and the list contains a 900 channel

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

232 this will be converted even if this leads to an error.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

233 This has to be handled by the caller.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

234

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

235 Parameters:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

236 list - [in] is the input list.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

237 channel_array - [out] converted list.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

238 size - [in] defines the maximum number of channels

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

239 in the list.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

240 zero_at_start - [in] specifies where the CHANNEL_0 should be

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

241 put:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

242 TRUE - at the start of the list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

243 FALSE - at the end of the list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

244 start_index - [in] specifies a index into the channel_array.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

245 new channels are added at the positions

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

246 following and including the index:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

247 channel_array[start_index] to

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

248 channel_array[size-1]

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

249

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

250 If the start_index is not equal zero it is

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

251 also checked if the new channel is already

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

252 in the channel_array list (from

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

253 channel_array[0] to

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

254 channel_array[start_index-1])

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

255

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

256 If the start_index is equal zero the

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

257 above check is not performed.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

258

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

259 Return Value:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

260 number of elements added + start_index

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

261

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

262 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

263

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

264 GLOBAL int srv_create_list (T_LIST * list, USHORT * channel_array, USHORT size,

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

265 UBYTE zero_at_start, USHORT start_index)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

266 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

267 int BitOffset, Idx;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

268 unsigned int ByteValue, BitMask, LeftMask;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

269 int i = start_index;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

270 UBYTE *pch;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

271 USHORT *parray = &channel_array[start_index];

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

272

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

273 pch = &list->channels[T_LIST_MAX_SIZE-1];

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

274 for(Idx = T_LIST_MAX_SIZE-1; Idx >= 0 AND i < size; Idx--, pch--)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

275 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

276 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

277 * check and add all channels

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

278 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

279 if ((ByteValue = *pch) NEQ 0)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

280 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

281 /* byte contains set bits */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

282

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

283 /* check single bits */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

284 for (BitOffset=7, BitMask=0x01, LeftMask=0xfe;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

285 BitOffset>=0;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

286 BitOffset--, BitMask<<=1, LeftMask<<=1)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

287 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

288 if (ByteValue & BitMask)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

289 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

290 *parray = BITOFFSET_LIST - (BitOffset+(Idx<<3));

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

291 if(!start_index OR

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

292 srv_is_not_in_list (channel_array, *parray, start_index))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

293 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

294 /* if the check is ok, ie:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

295 * always add channel, or the channel has not yet existed

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

296 * in the list, then advance the pointer and add the

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

297 * next channel on next position

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

298 * if the check fails the pointer is not advanced and

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

299 * the channel will not be added and the next channel

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

300 * will overwrite the current channel.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

301 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

302 parray++;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

303

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

304 /* check if list is full */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

305 if (++i >= size)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

306 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

307 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

308 /* check if any bits are left */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

309 if ((ByteValue & LeftMask) EQ 0)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

310 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

311 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

312 } /* for all bits in byte */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

313 } /* if Byte NEQ 0 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

314 } /* for all Bytes in List */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

315

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

316

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

317 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

318 * If CHANNEL_0 is included in the list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

319 * it has to be changed from CHANNEL_0_INTERNAL to CHANNEL_0

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

320 * and then the zero_at_start flag is handled.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

321 *

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

322 * If CHANNEL_0 is in the list it is always

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

323 * at the end of the list.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

324 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

325 if(i NEQ start_index AND

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

326 *(parray-1) EQ CHANNEL_0_INTERNAL)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

327 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

328 *(parray-1) = CHANNEL_0;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

329

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

330 if(zero_at_start AND (i > 1))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

331 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

332 memmove(&channel_array[1], &channel_array[0], (int)sizeof(channel_array[0])*(i-1));

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

333 channel_array[0] = CHANNEL_0;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

334 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

335 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

336

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

337 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

338 * add the end identifier to the output list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

339 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

340 if (i<size)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

341 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

342 *parray = NOT_PRESENT_16BIT;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

343 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

344

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

345 return i;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

346 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

347

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

348 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

349 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

350 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

351 | STATE : code ROUTINE : srv_is_not_in_list |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

352 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

353

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

354 PURPOSE : Checks if the given channel number is a member of the given

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

355 list.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

356

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

357 Parameters:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

358 channels - contains the existing output list.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

359 new_channel - is the channel number which shall be checked.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

360 size - indicates the length of the list.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

361

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

362 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

363

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

364 static UBYTE srv_is_not_in_list (USHORT * channels,

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

365 USHORT new_channel,

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

366 USHORT size)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

367 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

368 USHORT i;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

369

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

370 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

371 * for all members of the list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

372 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

373 for (i=0;i<size;i++)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

374 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

375 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

376 * The end of the list is reached

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

377 * that means the new channel is not inside.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

378 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

379 if (channels[i] EQ NOT_PRESENT_16BIT)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

380 return TRUE;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

381

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

382 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

383 * the channel is inside

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

384 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

385 if (channels[i] EQ new_channel)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

386 return FALSE;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

387 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

388

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

389 return TRUE;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

390 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

391

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

392 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

393 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

394 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

395 | STATE : code ROUTINE : srv_clear_list |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

396 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

397

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

398 PURPOSE : Clears a list by clearing all bits.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

399

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

400 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

401

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

402 GLOBAL void srv_clear_list (T_LIST * list)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

403 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

404 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

405 * simple algorithm: clear the whole list.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

406 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

407 memset (list, 0, sizeof (T_LIST));

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

408 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

409

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

410 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

411 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

412 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

413 | STATE : code ROUTINE : srv_copy_list |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

414 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

415

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

416 PURPOSE : Copies a list.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

417

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

418 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

419

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

420 GLOBAL void srv_copy_list (T_LIST * target_list, T_LIST * source_list,

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

421 UBYTE size)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

422 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

423 memcpy (target_list, source_list, size);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

424 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

425

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

426 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

427 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

428 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

429 | STATE : code ROUTINE : srv_compare_list |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

430 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

431

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

432 PURPOSE : Compares two lists.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

433

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

434 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

435

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

436 GLOBAL UBYTE srv_compare_list (T_LIST * list1, T_LIST * list2)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

437 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

438 return (memcmp (list1, list2, sizeof (T_LIST)) EQ 0);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

439 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

440

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

441 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

442 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

443 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

444 | STATE : code ROUTINE : srv_merge_list |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

445 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

446

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

447 PURPOSE : Merges two lists. Both lists are bitmaps. So the merge

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

448 is done by a bitwise OR.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

449

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

450 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

451

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

452 GLOBAL void srv_merge_list (T_LIST * target_list, T_LIST * list)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

453 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

454 USHORT i;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

455

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

456 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

457 * The maximum list size is T_LIST_MAX_SIZE Bytes for the dualband extended

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

458 * frequency standard.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

459 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

460

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

461 for (i=0;i<T_LIST_MAX_SIZE;i++)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

462 target_list->channels[i] |= list->channels[i];

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

463 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

464

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

465 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

466 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

467 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

468 | STATE : code ROUTINE : srv_unmask_list |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

469 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

470

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

471 PURPOSE : This routine resets those bits in destination list that are set in

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

472 the source list.

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

473 Refer Cell Selection Improvements-LLD section:4.1.1.3.11

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

474 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

475

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

476 GLOBAL void srv_unmask_list(T_LIST *target,T_LIST *source)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

477 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

478 UBYTE count=0;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

479 for (count=0;count<T_LIST_MAX_SIZE; count++)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

480 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

481 target->channels[count] &= ~source->channels[count];

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

482 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

483 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

484

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

485

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

486 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

487 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

488 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

489 | STATE : code ROUTINE : srv_trace_freq_in_list |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

490 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

491

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

492 PURPOSE : This routine traces the frequencies in the list

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

493 CSI-LLD section:4.1.1.3.11

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

494 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

495

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

496 GLOBAL void srv_trace_freq_in_list(T_LIST *list)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

497 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

498 U16 i;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

499

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

500 for(i=CHANNEL_0;i<CHANNEL_0_INTERNAL;i++)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

501 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

502 if(srv_get_channel (list, i))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

503 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

504 TRACE_EVENT_P1("arfcn=%u",i);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

505 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

506 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

507 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

508

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

509 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

510 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

511 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

512 | STATE : code ROUTINE : srv_count_list |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

513 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

514

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

515 PURPOSE : This routine returns the count of the number of channels

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

516 set in the List

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

517 CSI-LLD section:4.1.1.3.11

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

518 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

519

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

520 GLOBAL U16 srv_count_list(T_LIST *list)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

521 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

522 U16 i;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

523 U16 sum = 0;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

524

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

525 for(i=CHANNEL_0;i<CHANNEL_0_INTERNAL;i++)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

526 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

527 if(srv_get_channel (list, i))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

528 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

529 sum++;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

530 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

531 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

532

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

533 return sum;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

534 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

535

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

536 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

537 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

538 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

539 | STATE : code ROUTINE : srv_is_list_set |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

540 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

541

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

542 PURPOSE : This routine checks if any channel in the list is set

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

543 CSI-LLD section:4.1.1.3.11

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

544 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

545

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

546 GLOBAL BOOL srv_is_list_set(T_LIST *list)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

547 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

548 U8 i;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

549

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

550 for(i=0;i<T_LIST_MAX_SIZE;i++)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

551 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

552 if(list->channels[i])

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

553 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

554 return TRUE;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

555 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

556 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

557

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

558 return FALSE;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

559 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

560

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

561 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

562 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

563 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

564 | STATE : code ROUTINE : srv_get_region_from_std |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

565 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

566

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

567 PURPOSE : This routine derived "region" from "std"

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

568 CSI-LLD section:4.1.1.3.11

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

569 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

570 GLOBAL U8 srv_get_region_from_std(U8 std)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

571 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

572 #ifdef TI_PS_FF_QUAD_BAND_SUPPORT

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

573 U8 region = BOTH_REGIONS;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

574 #else

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

575 U8 region = EUROPEAN_REGION;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

576 #endif

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

577

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

578 switch(std)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

579 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

580 case STD_850:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

581 case STD_1900:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

582 case STD_DUAL_US:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

583 region = AMERICAN_REGION;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

584 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

585 #ifdef TI_PS_FF_QUAD_BAND_SUPPORT

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

586 case STD_900:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

587 case STD_1800:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

588 case STD_DUAL:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

589 case STD_DUAL_EGSM:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

590 region = EUROPEAN_REGION;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

591 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

592 default:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

593 TRACE_EVENT_P1 ("srv_get_region_from_std: wrong std %x", std);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

594 TRACE_ERROR ("srv_get_region_from_std: wrong std");

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

595 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

596 #endif

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

597 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

598

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

599 return region;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

600 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

601

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

602 /*

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

603 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

604 | PROJECT : GSM-PS (6147) MODULE : RR_SRV |

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

605 | STATE : code ROUTINE : srv_get_region_from_std_arfcn|

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

606 +--------------------------------------------------------------------+

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

607

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

608 PURPOSE : This routine derived "region" from "std" and "ARFCN"

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

609 */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

610 #ifdef TI_PS_FF_QUAD_BAND_SUPPORT

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

611 GLOBAL U8 srv_get_region_from_std_arfcn(U8 std, U16 arfcn)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

612 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

613 U8 region = EUROPEAN_REGION;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

614

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

615 switch(std)

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

616 {

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

617 case STD_850_1800:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

618 case STD_850_900_1800:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

619 if (INRANGE(LOW_CHANNEL_850,arfcn,HIGH_CHANNEL_850))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

620 region = AMERICAN_REGION;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

621 else

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

622 region = EUROPEAN_REGION;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

623 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

624

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

625 case STD_900_1900:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

626 if (INRANGE(LOW_CHANNEL_1900,arfcn,HIGH_CHANNEL_1900))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

627 region = AMERICAN_REGION;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

628 else

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

629 region = EUROPEAN_REGION;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

630 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

631

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

632 case STD_850_900_1900:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

633 if (INRANGE(LOW_CHANNEL_1900,arfcn,HIGH_CHANNEL_1900) OR

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

634 INRANGE(LOW_CHANNEL_850,arfcn,HIGH_CHANNEL_850))

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

635 region = AMERICAN_REGION;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

636 else

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

637 region = EUROPEAN_REGION;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

638 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

639 default:

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

640 TRACE_EVENT_P1 ("srv_get_region_from_std_arfcn: wrong std %x", std);

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

641 TRACE_ERROR ("srv_get_region_from_std_arfcn: wrong std");

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

642 break;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

643 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

644

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

645 return region;

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

646 }

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

647 #endif

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

648

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

649 #endif /* !CL_LIST_C */

c8bd5a927942 src/condat3: import of "condat" tree from TCS3.2, pruned

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

650

FreeCalypso > hg > fc-magnetite

annotate src/condat3/com/src/comlib/cl_list.c @ 18:c8bd5a927942