freecalypso-citrine: g23m-aci/aci/ati

author	Mychaela Falconia <falcon@freecalypso.org>
date	Thu, 09 Jun 2016 00:02:41 +0000
parents
children

rev	line source
0 75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +-----------------------------------------------------------------------------
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| Project : GSM-F&D (8411)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 \| Modul : ATI
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 +-----------------------------------------------------------------------------
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| Copyright 2002 Texas Instruments Berlin, AG
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \| All rights reserved.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| This file is confidential and a trade secret of Texas
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| Instruments Berlin, AG
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| The receipt of or possession of this file does not convey
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| any rights to reproduce or disclose its contents or to
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| manufacture, use, or sell anything it may describe, in
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| whole, or in part, without the specific written consent of
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 \| Texas Instruments Berlin, AG.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 +-----------------------------------------------------------------------------
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 \| Purpose : AT Command parameter parser
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 +-----------------------------------------------------------------------------
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 #ifndef ATI_PRS_C
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #define ATI_PRS_C
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #include "config.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 #include "fixedconf.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #include "condat-features.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 #include "aci_conf.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 #include "aci_all.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include <stdio.h>
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include <stdarg.h>
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include <ctype.h>
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 #include "aci_cmh.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 #include "ati_cmd.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #include "aci_cmd.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include "aci_prs.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #ifdef GPRS
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include "gaci_cmh.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #endif /* GPRS */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #include "aci_lst.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #include "ati_int.h"
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 #ifdef OPTION_RELATIVE
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 LOCAL ULONG offset;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #endif
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 static UBYTE parse_index = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 \| STATE : code ROUTINE : parseBin \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 PURPOSE : parse binary value
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 GLOBAL char parseBin (int digits, char b, SHORT *i)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 int found = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 *i = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 while (digits-- AND b >= '0' AND b <= '1')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 found++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 i = 2;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 i += b - '0';
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 return ((found) ? b : 0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 \| STATE : code ROUTINE : parseHex \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 PURPOSE : parse hexadecimal value
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 GLOBAL char parseHex (int digits, char b, UBYTE *i)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 int found = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 *i = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 while (digits-- AND ((b >= '0' AND b <= '9') OR
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 (b >= 'a' AND b <= 'f') OR
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 (b >= 'A' AND b <= 'F')))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 found++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 i = 16;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 if (b >= '0' AND b <= '9')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 i += b - '0';
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 if (b >= 'a' AND b <= 'f')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 i += b - 'a' + 10;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 if (b >= 'A' AND b <= 'F')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 i += b - 'A' + 10;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 return ((found AND found <= 2) ? b : 0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 \| STATE : code ROUTINE : parseHexToLong \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 PURPOSE : parse hexadecimal value
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 GLOBAL char parseHexToLong (int digits, char b, LONG *i)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 *i = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 while (digits-- AND ((b >= '0' AND b <= '9') OR
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 (b >= 'a' AND b <= 'f') OR
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 (b >= 'A' AND b <= 'F')))
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 i = 16;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 if (b >= '0' AND b <= '9')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 i += b - '0';
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 if (b >= 'a' AND b <= 'f')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 i += b - 'a' + 10;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 if (b >= 'A' AND b <= 'F')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 i += b - 'A' + 10;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 return ( digits EQ 0 ? 0 : b );
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 \| STATE : code ROUTINE : parseEnum \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 PURPOSE : parse enum value
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 GLOBAL char parseEnum (int digits, char b, int *i)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 int found = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 *i = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 while (digits-- AND b >= '0' AND b <= '9')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 found++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 i = 10;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 i += b - '0';
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 return ((found) ? b : 0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 \| STATE : code ROUTINE : parseShort \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 PURPOSE : parse Short value
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 GLOBAL char parseShort (int digits, char b, SHORT *i)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 int found = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 *i = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 while (digits-- AND b >= '0' AND b <= '9')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 found++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 i = 10;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 i += b - '0';
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 return ((found) ? b : 0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 \| STATE : code ROUTINE : parseStr \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 PURPOSE : parse string value
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 GLOBAL char parseStr (int digits, char b, char *s)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 int found = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 *s = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 if (*b NEQ '"')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 return 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 while (digits-- AND b AND b >= 0x20)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 found++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 if (*b EQ '"')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 *s = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 break;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 if (*b EQ '\\')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 b = parseHex(2,b+1,(UBYTE ) s); / ES!! ZERO ? */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 if (!b)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 return 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 s++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 else
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 s++ = b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 if(*(b-1) NEQ '"')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 return 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 s = 0; / zero terminated */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 return ((found) ? b : 0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 \| STATE : code ROUTINE : parseZStr \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 PURPOSE : parse string value
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 GLOBAL char parseZStr (int digits, char b, char *s)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 int found = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 *s = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 if (*b NEQ '"')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 return 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 while (digits--)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 found++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 if (*b EQ '"')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 *s = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 break;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 if (*b EQ '\\')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 b = parseHex(2,b+1,(UBYTE ) s); / ES!! ZERO ? */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 if (!b)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 return 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 s++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 else
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 s++ = b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 if(*(b-1) NEQ '"')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 return 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 s = 0; / zero terminated */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 return ((found) ? b : 0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 \| STATE : code ROUTINE : parseNStr \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 PURPOSE : parse string value and if not numeric returns error
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 GLOBAL char parseNStr (int digits, char b, char *s)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 int found = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 *s = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 if (*b NEQ '"')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 return 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 while (digits-- AND b AND b >= 0x20)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 found++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 if (*b EQ '"')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 *s = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 break;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 if (*b EQ '\\')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 b = parseHex(2,b+1,(UBYTE ) s); / ES!! ZERO ? */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 if (!b)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 return 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 s++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 if ( b > '9' OR b < '0')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 return 0; /check if numeric value/
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 else
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 s++ = b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 if(*(b-1) NEQ '"')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 return 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 s = 0; / zero terminated */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 return ((found) ? b : 0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 \| STATE : code ROUTINE : parseASCII \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 PURPOSE : parse ASCII value
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 GLOBAL char parseASCII (int digits, char b, char *i)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 int found = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 *i = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 while (digits-- AND b NEQ ' ' AND b NEQ ',' AND *b NEQ ';' )
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 found++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 i = b;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 i++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 return ((found) ? b : 0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 \| STATE : code ROUTINE : parseQASCII \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 PURPOSE : parse ASCII value and terminate with 0
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 GLOBAL char parseQASCII (int digits, char b, char *i)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 int found = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 *i = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 while (digits-- AND b NEQ ',' AND b NEQ ';' AND *b NEQ '\0')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 found++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 i = b;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 i++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 if (found)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 *i = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 return (b);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 return (NULL);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 \| STATE : code ROUTINE : parseStrLen \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 PURPOSE : parse sting, return length and startpoint
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 GLOBAL char parseStrLen (USHORT len, char b, char *p)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 *len = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 if( *b EQ '"' )
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 /* Check if the string is a null string like "" */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 if( *b EQ '"' )
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 /* return new buffer position without setting p, thereby omitting the parameter */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 return b;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 *p = b;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 while ( b NEQ '\0' AND b NEQ ',' AND b NEQ ';' AND b NEQ '"' )
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 (*len)++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 if(*b EQ '"')
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 return ((*len) ? b : 0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 #ifdef GPRS
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 \| PROJECT : UMTS MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 \| STATE : devellopment ROUTINE : parseExpo \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 PURPOSE : parse exponential expresion (ex. 2E3)
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 GLOBAL char parseExpo( int digits, char b, T_PS_ber *e )
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 BOOL valid = FALSE;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 e->ratio_mant = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 e->ratio_exp = 0;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 if( b EQ '"' ) / start of string */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 while( digits-- AND b >= '0' AND b <= '9' )
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 e->ratio_mant *= 10;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 e->ratio_mant += *b - '0';
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 if( *b EQ 'E' )
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 while( digits-- AND b >= '0' AND b <= '9' )
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 e->ratio_exp *= 10;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 e->ratio_exp += *b - '0';
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 valid = TRUE;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 if( b EQ '"' ) / end of string */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 b++;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 else
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 valid = FALSE;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 else
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 valid = FALSE;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 else
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 {
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 valid = FALSE;
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 }
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 return ((valid) ? b : 0);
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 } /* END parseExpo(...) */
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 /*
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 \| PROJECT : UMTS MODULE : ACI_PRS \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 \| STATE : Finished ROUTINE : parseCid_list \|
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 +--------------------------------------------------------------------+
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 PURPOSE : Parse a list of Cids. If the parsing is sucessfull the
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 number of parsed cids is returned otherwise -1 is returned.
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499
75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 */

0

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

3 | Project : GSM-F&D (8411)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

4 | Modul : ATI

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

8 |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

10 | Instruments Berlin, AG

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

15 | Texas Instruments Berlin, AG.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

17 | Purpose : AT Command parameter parser

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

18 +-----------------------------------------------------------------------------

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

19 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

20

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

21 #ifndef ATI_PRS_C

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

22 #define ATI_PRS_C

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

23

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

24 #include "config.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

25 #include "fixedconf.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

26 #include "condat-features.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

27 #include "aci_conf.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

28

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

29 #include "aci_all.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

30

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

31 #include <stdio.h>

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

32 #include <stdarg.h>

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

33 #include <ctype.h>

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

34

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

35 #include "aci_cmh.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

36 #include "ati_cmd.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

37 #include "aci_cmd.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

38 #include "aci_prs.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

39

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

40 #ifdef GPRS

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

41 #include "gaci_cmh.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

42 #endif /* GPRS */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

43

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

44 #include "aci_lst.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

45 #include "ati_int.h"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

46

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

47 #ifdef OPTION_RELATIVE

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

48 LOCAL ULONG offset;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

49 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

50

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

51 static UBYTE parse_index = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

52 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

53 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

54 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

55 | STATE : code ROUTINE : parseBin |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

56 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

57

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

58 PURPOSE : parse binary value

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

59

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

60 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

61

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

62 GLOBAL char *parseBin (int digits, char *b, SHORT *i)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

63 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

64 int found = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

65

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

66 *i = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

67 while (digits-- AND *b >= '0' AND *b <= '1')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

68 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

69 found++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

70 *i *= 2;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

71 *i += *b - '0';

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

72 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

73 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

74

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

75 return ((found) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

76 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

77

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

78

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

79 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

80 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

81 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

82 | STATE : code ROUTINE : parseHex |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

83 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

84

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

85 PURPOSE : parse hexadecimal value

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

86

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

87 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

88

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

89 GLOBAL char *parseHex (int digits, char *b, UBYTE *i)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

90 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

91 int found = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

92

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

93 *i = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

94 while (digits-- AND ((*b >= '0' AND *b <= '9') OR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

95 (*b >= 'a' AND *b <= 'f') OR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

96 (*b >= 'A' AND *b <= 'F')))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

97 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

98 found++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

99 *i *= 16;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

100 if (*b >= '0' AND *b <= '9')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

101 *i += *b - '0';

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

102 if (*b >= 'a' AND *b <= 'f')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

103 *i += *b - 'a' + 10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

104 if (*b >= 'A' AND *b <= 'F')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

105 *i += *b - 'A' + 10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

106 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

107 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

108

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

109 return ((found AND found <= 2) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

110 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

111

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

112 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

113 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

114 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

115 | STATE : code ROUTINE : parseHexToLong |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

116 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

117

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

118 PURPOSE : parse hexadecimal value

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

119

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

120 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

121

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

122 GLOBAL char *parseHexToLong (int digits, char *b, LONG *i)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

123 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

124 *i = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

125 while (digits-- AND ((*b >= '0' AND *b <= '9') OR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

126 (*b >= 'a' AND *b <= 'f') OR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

127 (*b >= 'A' AND *b <= 'F')))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

128 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

129 *i *= 16;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

130 if (*b >= '0' AND *b <= '9')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

131 *i += *b - '0';

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

132 if (*b >= 'a' AND *b <= 'f')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

133 *i += *b - 'a' + 10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

134 if (*b >= 'A' AND *b <= 'F')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

135 *i += *b - 'A' + 10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

136 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

137 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

138

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

139 return ( digits EQ 0 ? 0 : b );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

140 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

141

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

142 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

143 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

144 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

145 | STATE : code ROUTINE : parseEnum |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

146 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

147

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

148 PURPOSE : parse enum value

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

149

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

150 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

151

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

152 GLOBAL char *parseEnum (int digits, char *b, int *i)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

153 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

154 int found = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

155

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

156 *i = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

157 while (digits-- AND *b >= '0' AND *b <= '9')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

158 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

159 found++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

160 *i *= 10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

161 *i += *b - '0';

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

162 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

163 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

164

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

165 return ((found) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

166 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

167

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

168 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

169 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

170 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

171 | STATE : code ROUTINE : parseShort |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

172 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

173

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

174 PURPOSE : parse Short value

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

175

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

176 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

177

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

178 GLOBAL char *parseShort (int digits, char *b, SHORT *i)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

179 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

180 int found = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

181

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

182 *i = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

183 while (digits-- AND *b >= '0' AND *b <= '9')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

184 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

185 found++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

186 *i *= 10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

187 *i += *b - '0';

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

188 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

189 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

190

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

191 return ((found) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

192 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

193

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

194 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

195 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

196 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

197 | STATE : code ROUTINE : parseStr |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

198 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

199

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

200 PURPOSE : parse string value

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

201

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

202 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

203

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

204 GLOBAL char *parseStr (int digits, char *b, char *s)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

205 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

206 int found = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

207

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

208 *s = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

209 if (*b NEQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

210 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

211 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

212 while (digits-- AND *b AND *b >= 0x20)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

213 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

214 found++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

215 if (*b EQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

216 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

217 *s = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

218 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

219 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

220 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

221 if (*b EQ '\\')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

222 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

223 b = parseHex(2,b+1,(UBYTE *) s); /* ES!! ZERO ? */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

224 if (!b)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

225 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

226 s++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

227 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

228 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

229 *s++ = *b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

230 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

231 if(*(b-1) NEQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

232 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

233 *s = 0; /* zero terminated */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

234

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

235 return ((found) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

236 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

237

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

238 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

239 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

240 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

241 | STATE : code ROUTINE : parseZStr |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

242 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

243

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

244 PURPOSE : parse string value

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

245

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

246 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

247

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

248 GLOBAL char *parseZStr (int digits, char *b, char *s)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

249 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

250 int found = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

251

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

252 *s = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

253 if (*b NEQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

254 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

255 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

256 while (digits--)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

257 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

258 found++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

259 if (*b EQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

260 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

261 *s = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

262 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

263 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

264 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

265 if (*b EQ '\\')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

266 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

267 b = parseHex(2,b+1,(UBYTE *) s); /* ES!! ZERO ? */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

268 if (!b)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

269 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

270 s++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

271 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

272 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

273 *s++ = *b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

274 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

275 if(*(b-1) NEQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

276 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

277 *s = 0; /* zero terminated */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

278

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

279 return ((found) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

280 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

281

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

282 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

283 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

284 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

285 | STATE : code ROUTINE : parseNStr |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

286 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

287

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

288 PURPOSE : parse string value and if not numeric returns error

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

289

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

290 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

291

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

292 GLOBAL char *parseNStr (int digits, char *b, char *s)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

293 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

294 int found = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

295

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

296 *s = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

297 if (*b NEQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

298 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

299 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

300 while (digits-- AND *b AND *b >= 0x20)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

301 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

302 found++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

303 if (*b EQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

304 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

305 *s = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

306 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

307 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

308 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

309 if (*b EQ '\\')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

310 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

311 b = parseHex(2,b+1,(UBYTE *) s); /* ES!! ZERO ? */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

312 if (!b)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

313 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

314 s++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

315 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

316 if ( *b > '9' OR *b < '0')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

317 return 0; /*check if numeric value*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

318 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

319 *s++ = *b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

320 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

321 if(*(b-1) NEQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

322 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

323 *s = 0; /* zero terminated */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

324

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

325 return ((found) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

326 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

327

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

328 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

329 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

330 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

331 | STATE : code ROUTINE : parseASCII |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

332 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

333

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

334 PURPOSE : parse ASCII value

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

335

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

336 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

337

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

338 GLOBAL char *parseASCII (int digits, char *b, char *i)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

339 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

340 int found = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

341

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

342 *i = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

343 while (digits-- AND *b NEQ ' ' AND *b NEQ ',' AND *b NEQ ';' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

344 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

345 found++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

346 *i = *b;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

347 i++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

348 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

349 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

350

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

351 return ((found) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

352 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

353

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

354 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

355 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

356 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

357 | STATE : code ROUTINE : parseQASCII |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

358 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

359

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

360 PURPOSE : parse ASCII value and terminate with 0

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

361

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

362 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

363

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

364 GLOBAL char *parseQASCII (int digits, char *b, char *i)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

365 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

366 int found = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

367

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

368 *i = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

369 while (digits-- AND *b NEQ ',' AND *b NEQ ';' AND *b NEQ '\0')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

370 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

371 found++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

372 *i = *b;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

373 i++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

374 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

375 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

376

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

377 if (found)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

378 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

379 *i = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

380 return (b);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

381 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

382

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

383 return (NULL);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

384 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

385

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

386

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

387 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

388 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

389 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

390 | STATE : code ROUTINE : parseStrLen |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

391 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

392

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

393 PURPOSE : parse sting, return length and startpoint

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

394

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

395 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

396

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

397 GLOBAL char *parseStrLen (USHORT *len, char *b, char **p)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

398 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

399 *len = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

400 if( *b EQ '"' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

401 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

402

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

403 /* Check if the string is a null string like "" */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

404 if( *b EQ '"' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

405 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

406 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

407

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

408 /* return new buffer position without setting p, thereby omitting the parameter */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

409 return b;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

410 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

411

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

412 *p = b;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

413

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

414 while ( *b NEQ '\0' AND *b NEQ ',' AND *b NEQ ';' AND *b NEQ '"' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

415 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

416 (*len)++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

417 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

418 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

419

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

420 if(*b EQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

421 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

422 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

423 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

424

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

425 return ((*len) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

426 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

427

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

428

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

429 #ifdef GPRS

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

430

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

431 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

432 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

433 | PROJECT : UMTS MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

434 | STATE : devellopment ROUTINE : parseExpo |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

435 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

436

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

437 PURPOSE : parse exponential expresion (ex. 2E3)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

438

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

439 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

440

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

441 GLOBAL char *parseExpo( int digits, char *b, T_PS_ber *e )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

442 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

443 BOOL valid = FALSE;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

444

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

445 e->ratio_mant = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

446 e->ratio_exp = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

447 if( *b EQ '"' ) /* start of string */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

448 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

449 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

450 while( digits-- AND *b >= '0' AND *b <= '9' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

451 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

452 e->ratio_mant *= 10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

453 e->ratio_mant += *b - '0';

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

454 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

455 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

456 if( *b EQ 'E' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

457 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

458 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

459 while( digits-- AND *b >= '0' AND *b <= '9' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

460 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

461 e->ratio_exp *= 10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

462 e->ratio_exp += *b - '0';

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

463 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

464 valid = TRUE;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

465 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

466

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

467 if( *b EQ '"' ) /* end of string */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

468 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

469 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

470 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

471 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

472 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

473 valid = FALSE;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

474 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

475

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

476 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

477 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

478 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

479 valid = FALSE;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

480 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

481 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

482 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

483 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

484 valid = FALSE;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

485 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

486

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

487 return ((valid) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

488

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

489 } /* END parseExpo(...) */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

490

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

491 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

492 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

493 | PROJECT : UMTS MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

494 | STATE : Finished ROUTINE : parseCid_list |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

495 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

496

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

497 PURPOSE : Parse a list of Cids. If the parsing is sucessfull the

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

498 number of parsed cids is returned otherwise -1 is returned.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

499

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

500 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

501 GLOBAL char *parseCid_list(char *b, U8 *cid_list_length, U8 *cid_list)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

502 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

503 U8 no_of_cids;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

504 char *end;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

505

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

506 /* Parse all cids into the cid_list */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

507 no_of_cids = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

508 do

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

509 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

510

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

511 /* If it's not the first cid remove the "," */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

512 if( no_of_cids )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

513 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

514

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

515 /* Set the entry to omitted. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

516 cid_list[no_of_cids] = PDP_CONTEXT_CID_OMITTED;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

517

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

518 /* Parse the value */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

519 cid_list[no_of_cids] = (U8) strtol( b, &end, 10 );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

520 b = end;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

521

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

522 /* If a cid is omitted no cids must be specified at all. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

523 if( cid_list[no_of_cids] EQ PDP_CONTEXT_CID_OMITTED )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

524 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

525 if( no_of_cids NEQ 0 )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

526 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

527 /* Don't accept omitted cids inside if it's not the first (ex. 1,,2,3 is not allowed). */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

528 cmdCmeError( CME_ERR_OpNotSupp );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

529 return( NULL );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

530 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

531 /* Break the while */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

532 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

533 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

534 if( (!b) OR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

535 (cid_list[no_of_cids] < PDP_CONTEXT_CID_MIN) OR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

536 (cid_list[no_of_cids] > PDP_CONTEXT_CID_MAX) OR

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

537 (no_of_cids >= PDP_CONTEXT_CID_MAX) )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

538 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

539 cmdCmeError( CME_ERR_OpNotSupp );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

540 return( NULL );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

541 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

542 no_of_cids++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

543 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

544

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

545 while( *b EQ ',' AND

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

546 no_of_cids < *cid_list_length );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

547

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

548 cid_list[no_of_cids+1] = PDP_CONTEXT_CID_INVALID;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

549

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

550 *cid_list_length = no_of_cids;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

551 return( b );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

552

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

553 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

554

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

555 #endif /* GPRS */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

556

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

557 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

558 +----------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

559 | PROJECT : UMTS MODULE : ATI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

560 | STATE : - ROUTINE : parsePointerToString |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

561 -----------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

562

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

563 PURPOSE : Parse pointer to input string. returns pointer to end of string.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

564

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

565 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

566 GLOBAL char *parsePointerToString(char chars, char *b, char **p_begin)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

567 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

568 if( b AND *b EQ '"' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

569 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

570 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

571 *p_begin = b;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

572

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

573 while (chars-- AND *b AND *b NEQ '"')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

574 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

575 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

576 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

577 if( *b EQ '"' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

578 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

579 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

580 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

581 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

582 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

583 if( !chars )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

584 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

585 b = NULL;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

586 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

587 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

588 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

589

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

590 return b;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

591 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

592

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

593 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

594 +----------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

595 | PROJECT : UMTS MODULE : ATI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

596 | STATE : - ROUTINE : StrToU16 |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

597 -----------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

598

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

599 PURPOSE : Parse string value to U16.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

600

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

601 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

602

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

603 char *StrToU16(char *p_str, U16 *p_result)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

604 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

605 U32 val = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

606

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

607 if( p_str )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

608 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

609 if( *p_str >= '0' AND *p_str <= '9' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

610 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

611 while( *p_str >= '0' AND *p_str <= '9' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

612 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

613 val *= 10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

614 val += (int)(*p_str - '0');

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

615 p_str++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

616 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

617 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

618 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

619

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

620 if( val <= 0xffff ) /* 0xffff = max value of U16 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

621 *p_result = (U16)(val);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

622 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

623 p_str = NULL;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

624

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

625 return p_str;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

626

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

627 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

628

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

629 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

630 +---------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

631 | PROJECT : UMTS MODULE : ATI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

632 | STATE : - ROUTINE : parseDSNP_U16 |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

633 ----------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

634

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

635 PURPOSE : parse dot-separated numeric parameters from the

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

636 input string to an array of U8.

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

637

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

638 ex. input p_in = "192.124.13.3"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

639 output p_out = {192,124,13,3}

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

640

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

641 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

642 GLOBAL char *parseDSNP_U16( char blocks, char *p_in, U16 *p_out )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

643 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

644 if( p_in AND p_out )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

645 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

646 if( *p_in EQ '.' ) p_in++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

647 while( blocks-- AND *p_in NEQ 0x00 )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

648 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

649 p_in = StrToU16(p_in, p_out);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

650

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

651 if( p_in AND blocks AND *p_in EQ '.' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

652 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

653 p_in++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

654 p_out++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

655 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

656 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

657 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

658 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

659 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

660 return p_in;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

661 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

662

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

663 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

664 +---------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

665 | PROJECT : UMTS MODULE : ATI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

666 | STATE : - ROUTINE : parseIPv4Address |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

667 ----------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

668 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

669 GLOBAL char *parseIPv4Address(char *p_in, U8 * p_ip_addr, U8 * is_ip_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

670 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

671 U16 ip_addr[4];

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

672 char i;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

673 char *p_out = NULL;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

674

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

675 if( p_in AND p_ip_addr )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

676 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

677 p_out = parseDSNP_U16(4, p_in, ip_addr);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

678 for(i=0; i<4; i++)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

679 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

680 if(ip_addr[i] <= 255)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

681 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

682 p_ip_addr[i] = (U8) ip_addr[i];

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

683 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

684 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

685 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

686 p_out = NULL;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

687 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

688

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

689 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

690 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

691 * is_ip_valid = (p_out NEQ NULL);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

692

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

693 return p_out;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

694 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

695

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

696 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

697 +---------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

698 | PROJECT : UMTS MODULE : ATI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

699 | STATE : - ROUTINE : parseIPv6Address |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

700 ----------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

701 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

702 GLOBAL char *parseIPv6Address(char *p_in, U8 *p_ip_addr, U8 * is_ip_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

703 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

704 U16 ip_addr[16];

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

705 char i;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

706 char *p_out = NULL;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

707

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

708 if( p_in AND p_ip_addr )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

709 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

710 p_out = parseDSNP_U16(16, p_in, ip_addr);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

711 for(i=0; i<16; i++)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

712 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

713 if(ip_addr[i] > 255)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

714 p_out = NULL;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

715 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

716 p_ip_addr[i] = (U8) ip_addr[i];

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

717 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

718 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

719

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

720 * is_ip_valid = (p_out NEQ NULL);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

721

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

722 return p_out;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

723 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

724

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

725 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

726 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

727 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

728 | STATE : code ROUTINE : parse |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

729 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

730

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

731 PURPOSE : parse AT command parameter

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

732

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

733 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

734

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

735 GLOBAL char *parse (char *b, char *f, ...)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

736 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

737 char fc;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

738 USHORT *i;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

739

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

740 #ifdef GPRS

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

741 U8 *j;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

742 #endif /* GPRS */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

743 LONG digits = -1;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

744 BOOL value_is_valid;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

745 /*lint -e516 -e10*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

746 va_list varpars;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

747

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

748 va_start (varpars, f); /* Initialize variable arguments. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

749

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

750 parse_index=0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

751 while ((fc = *f++) NEQ 0)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

752 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

753 parse_index++; /* Save the position of current parsing item */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

754 value_is_valid = TRUE;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

755 if (islower(fc))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

756 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

757 if (*b EQ 0 OR *b EQ ';')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

758 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

759 va_end (varpars); /* Reset variable arguments. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

760 return b;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

761 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

762 if (*b EQ ',')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

763 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

764 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

765 value_is_valid = FALSE;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

766 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

767 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

768

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

769 switch (toupper(fc))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

770 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

771 case 'B':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

772 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

773 b = parseBin(-1,b,va_arg (varpars, short*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

774 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

775 (void)va_arg (varpars, short*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

776 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

777

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

778 case 'X':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

779 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

780 b = parseHex(-1,b,va_arg (varpars, unsigned char*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

781 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

782 (void)va_arg (varpars, short*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

783 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

784

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

785 case 'Y':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

786 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

787 b = parseHexToLong(-1,b,va_arg (varpars, long*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

788 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

789 (void)va_arg (varpars, short*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

790 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

791

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

792 case 'D':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

793 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

794 b = parseEnum(-1,b,va_arg (varpars, int*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

795 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

796 (void)va_arg (varpars, int*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

797 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

798

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

799 case 'R':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

800 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

801 b = parseShort(-1,b,va_arg (varpars, short*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

802 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

803 (void)va_arg (varpars, short*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

804 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

805

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

806 case 'S':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

807 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

808 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

809 digits=va_arg (varpars, long);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

810 b = parseStr(digits,b,va_arg (varpars, char*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

811 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

812 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

813 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

814 (void)va_arg (varpars, long);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

815 (void)va_arg (varpars, char*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

816 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

817 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

818

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

819 case 'N':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

820 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

821 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

822 digits=va_arg (varpars, long);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

823 b = parseNStr(digits,b,va_arg (varpars, char*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

824 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

825 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

826 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

827 (void)va_arg (varpars, long);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

828 (void)va_arg (varpars, char*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

829 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

830 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

831

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

832 case 'Z':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

833 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

834 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

835 char* c = b;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

836 USHORT* plen = NULL;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

837

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

838 char* cmdPtr;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

839 USHORT cmdLen;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

840

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

841 digits = va_arg ( varpars, long );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

842 cmdLen = va_arg ( varpars, unsigned );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

843 cmdPtr = va_arg ( varpars, char* );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

844 plen = va_arg ( varpars, unsigned short*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

845 b = parseZStr

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

846 ( MINIMUM (digits, cmdLen - ( b - cmdPtr )),

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

847 b, va_arg ( varpars, char* ) );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

848

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

849 if ( plen NEQ NULL )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

850 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

851 if ( b NEQ NULL )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

852 *plen = b - c - 2; /* a string always includes two characters '"' */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

853 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

854 *plen = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

855 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

856 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

857 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

858 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

859 (void)va_arg (varpars, long);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

860 (void)va_arg (varpars, unsigned short*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

861 (void)va_arg (varpars, char*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

862 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

863 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

864

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

865 case 'A':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

866 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

867 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

868 digits=va_arg (varpars, long);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

869 b = parseASCII(digits,b,va_arg (varpars, char*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

870 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

871 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

872 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

873 (void)va_arg (varpars, long);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

874 (void)va_arg (varpars, char*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

875 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

876 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

877

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

878 case 'Q':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

879 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

880 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

881 digits=va_arg (varpars, long);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

882 b = parseQASCII(digits,b,va_arg (varpars, char*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

883 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

884 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

885 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

886 (void)va_arg (varpars, long);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

887 (void)va_arg (varpars, char*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

888 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

889 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

890

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

891 case 'L':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

892 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

893 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

894 i = va_arg(varpars, unsigned short*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

895 b = parseStrLen (i,b,va_arg(varpars, char**));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

896 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

897 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

898 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

899 (void)va_arg (varpars, int*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

900 (void)va_arg (varpars, char**);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

901 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

902 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

903

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

904 #ifdef GPRS

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

905

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

906 case 'E':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

907 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

908 {/*lint -e78 -e26 -e530*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

909 b = parseExpo( -1, b, va_arg(varpars, T_PS_ber*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

910 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

911 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

912 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

913 (void)va_arg (varpars, T_PS_ber*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

914 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

915 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

916

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

917 #endif

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

918

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

919 case 'C':

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

920 if (value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

921 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

922 b = parseByte( -1, b, va_arg(varpars, unsigned char*));

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

923 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

924 else

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

925 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

926 (void)va_arg (varpars, unsigned char*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

927 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

928 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

929

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

930 #ifdef GPRS

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

931

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

932 case 'I': /* Parse cid_list */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

933 if( value_is_valid )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

934 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

935 j = va_arg(varpars, unsigned char*);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

936

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

937 b = parseCid_list( b, j, va_arg(varpars, unsigned char*) );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

938 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

939 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

940 #endif /* GPRS */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

941

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

942 case 'P': /* Parse pointer to string */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

943 if( value_is_valid )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

944 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

945 b = parsePointerToString( (char)-1, b, va_arg(varpars, char**) );

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

946 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

947 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

948

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

949 case '*': /* Parse '*' */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

950 if( value_is_valid )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

951 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

952 if( *b NEQ '*' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

953 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

954 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

955 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

956 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

957 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

958 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

959

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

960 case '#': /* Parse '#' */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

961 if( value_is_valid )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

962 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

963 if( *b NEQ '#' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

964 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

965 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

966 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

967 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

968 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

969 break;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

970 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

971 if (!b)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

972 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

973 va_end (varpars); /* Reset variable arguments. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

974 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

975 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

976

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

977 if (*f AND *b EQ ',' AND value_is_valid)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

978 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

979 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

980 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

981 else if (*b AND *b NEQ ';' AND *b NEQ ',' AND value_is_valid) /* if comma or semicolon is missing */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

982 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

983 TRACE_EVENT ("missing separator detected, aborting parse!");

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

984 va_end (varpars);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

985 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

986 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

987 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

988 if (*b AND *b NEQ ';')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

989 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

990 va_end (varpars); /* Reset variable arguments. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

991 return 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

992 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

993 va_end (varpars); /* Reset variable arguments. */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

994 /*lint +e516 +e10*/

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

995 return b;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

996 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

997

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

998

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

999 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1000 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1001 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1002 | STATE : code ROUTINE : parse |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1003 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1004

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1005 PURPOSE : get last parsed index (to determinate which component was malicious)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1006

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1007 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1008

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1009 GLOBAL UBYTE get_parse_index ()

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1010 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1011 return parse_index;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1012 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1013

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1014 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1015 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1016 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1017 | STATE : code ROUTINE : parseByte(U8) |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1018 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1019

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1020 PURPOSE : parse U8 value

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1021

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1022 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1023

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1024 GLOBAL char *parseByte (int digits, char *b, U8 *i)

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1025 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1026 int found = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1027

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1028 *i = 0;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1029 while (digits-- AND *b >= '0' AND *b <= '9')

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1030 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1031 found++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1032 *i *= 10;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1033 *i += *b - '0';

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1034 b++;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1035 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1036

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1037 return ((found) ? b : 0);

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1038 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1039

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1040 /*

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1041 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1042 | PROJECT : GSM-F&D (8411) MODULE : ACI_PRS |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1043 | STATE : code ROUTINE : parseTimeStamp |

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1044 +--------------------------------------------------------------------+

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1045

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1046 PURPOSE : Parse time stamp format in "yy/MM/dd,hh:mm:ss�zz"

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1047

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1048 */

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1049

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1050 GLOBAL UBYTE parseTimeStamp( char *p_in,U8 *years,U8 *months,U8 *days,

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1051 U8 *hrs, U8 *mins,U8 *secs, char *sign, U8 *time_zone )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1052 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1053 if( p_in[2] NEQ '/' OR p_in[5] NEQ '/' OR p_in[8] NEQ ',' OR p_in[11] NEQ ':' OR p_in[14] NEQ ':' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1054 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1055 return NO_TIME_STAMP_FIELD;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1056 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1057 if(!parseByte (2, &p_in[0], years))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1058 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1059 return NO_TIME_STAMP_FIELD;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1060 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1061 if(!parseByte (2, &p_in[3], months))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1062 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1063 return NO_TIME_STAMP_FIELD;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1064 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1065 if(!parseByte (2, &p_in[6], days))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1066 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1067 return NO_TIME_STAMP_FIELD;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1068 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1069 if(!parseByte (2, &p_in[9], hrs))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1070 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1071 return NO_TIME_STAMP_FIELD;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1072 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1073 if(!parseByte (2, &p_in[12], mins))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1074 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1075 return NO_TIME_STAMP_FIELD;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1076 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1077 if(!parseByte (2, &p_in[15], secs))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1078 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1079 return NO_TIME_STAMP_FIELD;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1080 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1081 *sign = p_in[17];

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1082

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1083 if(*sign NEQ '+' AND *sign NEQ '-' )

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1084 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1085 return NO_TIME_STAMP_FIELD;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1086 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1087 if(!parseByte (2, &p_in[18], time_zone))

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1088 {

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1089 return NO_TIME_STAMP_FIELD;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1090 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1091

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1092 return MAX_TIME_STAMP_FIELDS;

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1093 }

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1094

75a11d740a02 initial import of gsm-fw from freecalypso-sw rev 1033:5ab737ac3ad7

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1095 #endif /* ATI_PRS_C */

FreeCalypso > hg > freecalypso-citrine

annotate g23m-aci/aci/ati_prs.c @ 0:75a11d740a02