fc-magnetite: src/aci2/aci/ati

annotate src/aci2/aci/ati_pdu.c @ 701:35e7f9d0379f

targets: add TARGET_HAS_BUZZER to c11x, c139 and dsample This new target config preprocessor symbol was introduced in Tourmaline in connection with the new approach to playing buzzer melodies via PWT, properly omitting the responsible code on targets where BU output controls the vibrator instead. That code is not present in Magnetite and we have no plans to backport it here, but target header files should be kept consistent between the two trees, especially given that we plan to support FC Venus target in Magnetite.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Sat, 26 Mar 2022 19:51:34 +0000
parents	93999a60b835
children

rev	line source
3 93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +-----------------------------------------------------------------------------
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| Project : GSM-F&D (8411)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 \| Modul : ATI
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 +-----------------------------------------------------------------------------
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| Copyright 2002 Texas Instruments Berlin, AG
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \| All rights reserved.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| This file is confidential and a trade secret of Texas
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| Instruments Berlin, AG
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| The receipt of or possession of this file does not convey
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| any rights to reproduce or disclose its contents or to
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| manufacture, use, or sell anything it may describe, in
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| whole, or in part, without the specific written consent of
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 \| Texas Instruments Berlin, AG.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 +-----------------------------------------------------------------------------
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 \| Purpose : AT Command Interpreter Extension for SMS PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 +-----------------------------------------------------------------------------
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 #ifndef ATI_PDU_C
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #define ATI_PDU_C
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #undef DUMMY_ATI_STRINGS
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #include "aci_all.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 #include "aci_cmh.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 #include "ati_cmd.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 #include "aci_io.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include "aci_cmd.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include "aci.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include "psa.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #include "psa_sms.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 #include "aci_lst.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #include "cmh.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include "cmh_sms.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #include "gdi.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #include "audio.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include "p_sim.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #include "p_aci.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #include "aoc.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #include "aci.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #include "pcm.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 #include "rx.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 #include "pwr.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #include "aci_cmd.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 #include "aci_mem.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 #include "aci_prs.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 #include "ati_int.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 #ifdef FF_ATI_BAT
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 #include "typedefs.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 #include "gdd.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 #include "bat.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 #include "ati_bat.h"
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 #endif /FF_ATI_BAT/
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 GLOBAL USHORT GsmToHex (UBYTE in, char * buffer, USHORT pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 // GLOBAL USHORT HexAdress (CHAR * adress, UBYTE ton, UBYTE npi, char * buffer, USHORT pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 // GLOBAL USHORT HexAdressTP (CHAR * adress, UBYTE ton, UBYTE npi, char * buffer, USHORT pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 // GLOBAL USHORT HexScts (T_ACI_VP_ABS * scts, char * buffer, USHORT pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 // GLOBAL USHORT HexMessage (T_ACI_SM_DATA * data, UBYTE length, char * buffer, USHORT pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 // GLOBAL char * GSMAddress (char * cl, char * address, T_ACI_TOA *tosca);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 GLOBAL char * HexToGsm (char * cl, UBYTE * value);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 #ifdef WIN32
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 EXTERN T_ACI_SMS_READ smsReadMode;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 LOCAL SHORT length_of_pdu_message = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 LOCAL UBYTE pdu_error_detected = FALSE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 \| STATE : code ROUTINE : atPlusCMGSPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 PURPOSE : +CMGS command (SEND Message) in PDU mode.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 #if defined (SMS_PDU_SUPPORT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 GLOBAL T_ATI_RSLT atPlusCMGSPdu (char *cl, UBYTE srcId)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 T_ACI_RETURN ret = AT_FAIL;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 T_ACI_SM_DATA pdu;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 T_SMS_SET_PRM * pSMSSetPrm; /* points to SMS parameter set */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 pdu.len = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 pSMSSetPrm = smsShrdPrm.pSetPrm[srcId];
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 TRACE_FUNCTION("atPlusCMGSPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 if (src_params->text_mode EQ CMD_MODE)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 * Extract the length (excluding SCA octets) outto be parsed from
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 * the input pointer cl
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 cl = parse (cl,"r",&length_of_pdu_message);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 if ( !cl OR length_of_pdu_message EQ 0)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 cmdCmsError(CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 src_params->text_mode = TXT_MODE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 return (ATI_EXCT);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 } /* end of if (src_params->text_mode EQ CMD_MODE) */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 UBYTE i = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 UBYTE sca_len = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 UBYTE offset = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 UBYTE pdu_message_octets_lenth = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 src_params->text_mode = CMD_MODE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 * Input line with pdu is given
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 pdu_error_detected = FALSE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 HexToGsm (cl, &sca_len);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 TRACE_EVENT_P1("%d",sca_len);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 if (sca_len > ((MAX_SMS_ADDR_DIG+1)/2) + 1)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 TRACE_ERROR("SCA too long !!!");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 cmdCmsError(CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 calculation of the real length of PDU string
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 The first octet in the input is an indicator of the length of the SMSC information supplied.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 And this Octet and the SMSC content do not count in the real length of PDU string.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 so here, the length of the input needs to minus 2 + sca_len*2 and then divide 2.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 pdu_message_octets_lenth = (strlen(cl)-2-sca_len*2)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 TRACE_EVENT_P1("pdu_message_octets_lenth == %d",pdu_message_octets_lenth);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 if(pdu_message_octets_lenth NEQ length_of_pdu_message)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 cmdCmsError (CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 TRACE_EVENT("ERROR: input pdu message length do not match the real length!");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 if (sca_len EQ 0) /* no SCA given */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 offset = CodeRPAddress(pdu.data,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 pSMSSetPrm -> sca.c_num,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 pSMSSetPrm -> sca.ton,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 pSMSSetPrm -> sca.npi,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 pSMSSetPrm -> sca.num);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 pdu.len = length_of_pdu_message + offset;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 cl += 2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 pdu.len = length_of_pdu_message + sca_len + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 for (i=offset; i<pdu.len AND *cl NEQ '\0' AND i<MAX_SM_LEN; i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 cl = HexToGsm (cl, &pdu.data[i]);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 #ifdef FF_ATI_BAT
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 T_BAT_cmd_send cmd;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 T_BAT_cmd_set_plus_cmgs cmgs;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 * Check that BAT can handle this size of PDU.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 if (pdu.len>BAT_MAX_SM_LEN)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 TRACE_EVENT("ERROR: PDU too big for BAT");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 cmdCmsError(CMS_ERR_UnknownErr);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 cmd.ctrl_params=BAT_CMD_SET_PLUS_CMGS;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 cmd.params.ptr_set_plus_cmgs=&cmgs;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 * Copy in the PDU data, secure in the knowledge that we have
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 * enough room for it.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 memcpy(&cmgs.pdu,pdu.data,BAT_MAX_SM_LEN);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 cmgs.length=(U8)pdu.len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 cmgs.c_pdu=(U8)pdu.len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 bat_send(ati_bat_get_client(srcId), &cmd);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 #else /* no FF_ATI_BAT */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 * send the SMS message using extracted values
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 ret = sAT_PlusCMGSPdu ( srcId, &pdu );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 if ( ret NEQ AT_EXCT )
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 cmdCmsError (CMS_ERR_NotPresent); // use aciErrDesc
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 #endif /* no FF_ATI_BAT */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 * rCI_OK will emitting +CMGS: <mr>[,<ackpdu>]
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 src_params->curAtCmd = AT_CMD_CMGS;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 return ATI_EXCT;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 \| PROJECT : GSM-F&D (8411) MODULE : ACI_CMD \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 \| STATE : code ROUTINE : atPlusCNMAPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 PURPOSE : +CNMA command (new message acknowledgement) in PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 #if defined (SMS_PDU_SUPPORT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 GLOBAL T_ATI_RSLT atPlusCNMAPdu (char *cl, UBYTE srcId)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 UBYTE msg_type;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 static SHORT n = -1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 USHORT tp_fcs;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 T_ACI_SM_DATA pdu = {0};
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 T_ACI_RETURN ret = AT_FAIL;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 UBYTE pdu_message_octets_lenth = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 TRACE_FUNCTION("atPlusCNMAPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 if (src_params->text_mode EQ CMD_MODE)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 * normal command line
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 if (*cl EQ '\0')
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 * no parameters, like text mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 n = 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 tp_fcs = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 * Extract the acknowledge parameter n
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 length_of_pdu_message = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 cl = parse(cl,"rr",&n, &length_of_pdu_message);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 if ( !cl)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 cmdCmsError(CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 switch (n)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 case -1:
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 case 0:
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 case 1:
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 n = 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 tp_fcs = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 if (length_of_pdu_message)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 src_params->text_mode = TXT_MODE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 return (ATI_EXCT);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 case 2:
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 if (length_of_pdu_message)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 src_params->text_mode = TXT_MODE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 return (ATI_EXCT);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 tp_fcs = 0xFF;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 default:
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 cmdCmsError(CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 } /* end of if (src_params->text_mode EQ CMD_MODE) */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 src_params->text_mode = CMD_MODE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 calculation of the real length of PDU string
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 The entering of PDU is done similarly as specified in command Send Message +CMGS,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 except that the format of <ackpdu> is used instead of <pdu>
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 (i.e. SMSC address field is not present).
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 so here, the length of the input needs to divide 2.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 pdu_message_octets_lenth = strlen(cl)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 TRACE_EVENT_P1("pdu_message_octets_lenth == %d",pdu_message_octets_lenth);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 if(pdu_message_octets_lenth NEQ length_of_pdu_message)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 cmdCmsError (CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 TRACE_EVENT("ERROR: input pdu message length do not match the real length!");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 * Input line with pdu is given
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 pdu_error_detected = FALSE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 * get the message type
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 HexToGsm (cl, &msg_type);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 if ((msg_type & 3) EQ 0) // SMS_DELIVER_REPORT
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 int i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 pdu.len = (UBYTE)length_of_pdu_message;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 for (i=0; i<length_of_pdu_message; i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 cl = HexToGsm (cl, &pdu.data[i]);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 pdu_error_detected = TRUE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 if (pdu_error_detected)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 cmdCmsError ( CMS_ERR_InValPduMod );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 * send the SMS command using extracted values
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 ret = sAT_PlusCNMAPdu (srcId, n, &pdu);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 switch(ret)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 case AT_FAIL:
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 cmdCmsError (CMS_ERR_NotPresent); // use aciErrDesc
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 * no break
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 case AT_CMPL:
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 default:
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 TRACE_EVENT("atPlusCNMAPdu() : Error !! Not AT_FAIL or AT_COMPL");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 return (map_aci_2_ati_rslt(ret));
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 \| STATE : code ROUTINE : atPlusCMGWPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 PURPOSE : +CMGW command (Write message to memory) in PDU mode.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 #if defined (SMS_PDU_SUPPORT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 GLOBAL T_ATI_RSLT atPlusCMGWPdu (char *cl, UBYTE srcId)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 T_ACI_SMS_STAT stat;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 T_ACI_RETURN ret = AT_FAIL;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 static UBYTE message_status = NOT_PRESENT_8BIT;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 T_SMS_SET_PRM pSMSSetPrm; / points to SMS parameter set */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 T_ACI_SM_DATA pdu;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 pSMSSetPrm = smsShrdPrm.pSetPrm[srcId];
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 TRACE_FUNCTION("atPlusCMGWPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 if (src_params->text_mode EQ CMD_MODE)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 * normal command line
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435 stat = SMS_STAT_StoUnsent; /* STO UNSENT as default */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 * Extract the length and status to be parsed from the input pointer cl
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 cl = parse(cl,"rd",&length_of_pdu_message,&stat);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 if ( !cl OR length_of_pdu_message EQ 0)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 cmdCmsError(CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 if (stat < SMS_STAT_RecUnread OR stat > SMS_STAT_All)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 cmdCmsError(CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 message_status = (UBYTE)stat;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 * wait for next input containing the PDU_is_given
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 src_params->text_mode = TXT_MODE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 return (ATI_EXCT);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 } /* end of if (src_params->text_mode EQ CMD_MODE) */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 UBYTE offset = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 UBYTE sca_len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 UBYTE i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 UBYTE pdu_message_octets_lenth = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 src_params->text_mode = CMD_MODE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 * Input line with pdu is given
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 /* if the character sent is ESC, then abort command CLB 16.11.00 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 if (*cl EQ 0x1B)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 TRACE_EVENT("Send message command cancelled by user");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 return ATI_CMPL_NO_OUTPUT;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 pdu_error_detected = FALSE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 HexToGsm (cl, &sca_len);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 if (sca_len > ((MAX_SMS_ADDR_DIG+1)/2) + 1)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 TRACE_ERROR("SCA too long !!!");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 cmdCmsError(CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 calculation of the real length of PDU string
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 The first octet in the input is an indicator of the length of the SMSC information supplied.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 And this Octet and the SMSC content do not count in the real length of PDU string.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 so here, the length of the input needs to minus 2 + sca_len*2 and then divide 2.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 pdu_message_octets_lenth = (strlen(cl)-2-sca_len*2)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 TRACE_EVENT_P1("pdu_message_octets_lenth == %d",pdu_message_octets_lenth);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 if(pdu_message_octets_lenth NEQ length_of_pdu_message)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 cmdCmsError (CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 TRACE_EVENT("ERROR: input pdu message length do not match the real length!");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 if (sca_len EQ 0) /* no SCA given */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 offset = CodeRPAddress(pdu.data,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 pSMSSetPrm -> sca.c_num,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 pSMSSetPrm -> sca.ton,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 pSMSSetPrm -> sca.npi,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 pSMSSetPrm -> sca.num);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520 cl += 2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 pdu.len = length_of_pdu_message + offset;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 pdu.len = length_of_pdu_message + sca_len + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 for (i=offset; i<pdu.len AND *cl NEQ '\0' AND i<MAX_SM_LEN; i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 cl = HexToGsm (cl, &pdu.data[i]);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 ret = sAT_PlusCMGWPdu ( srcId, message_status, &pdu);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 if ( ret NEQ AT_EXCT )
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 cmdCmsError (CMS_ERR_NotPresent); // use aciErrDesc
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 * rCI_OK will emitting +CMGW: <index>
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 src_params->curAtCmd = AT_CMD_CMGW;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 return ATI_EXCT;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 \| STATE : code ROUTINE : atPlusCMGCPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 PURPOSE : +CMGC command (Send SMS command) in PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 #if defined (SMS_PDU_SUPPORT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 GLOBAL T_ATI_RSLT atPlusCMGCPdu (char *cl, UBYTE srcId)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 T_ACI_RETURN ret = AT_FAIL;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 T_ACI_SM_DATA pdu;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 T_SMS_SET_PRM pSMSSetPrm; / points to SMS parameter set */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 pSMSSetPrm = smsShrdPrm.pSetPrm[srcId];
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 pdu.len = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 TRACE_FUNCTION("atPlusCMGCPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 if (src_params->text_mode EQ CMD_MODE)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 * normal command line
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 * Extract the length to be parsed from the input pointer cl
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 cl = parse(cl,"r",&length_of_pdu_message);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 if ( !cl OR length_of_pdu_message EQ 0)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 cmdCmsError(CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 * wait for next input containing the PDU_is_given
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 src_params->text_mode = TXT_MODE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 return (ATI_EXCT);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592 } /* end of if (src_params->text_mode EQ CMD_MODE) */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 UBYTE offset = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 UBYTE sca_len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 UBYTE i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 UBYTE pdu_message_octets_lenth = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 src_params->text_mode = CMD_MODE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 * Input line with pdu is given
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605 pdu_error_detected = FALSE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 HexToGsm (cl, &sca_len);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 if (sca_len > ((MAX_SMS_ADDR_DIG+1)/2) + 1)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 TRACE_ERROR("SCA too long !!!");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 cmdCmsError(CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 calculation of the real length of PDU string
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 The first octet in the input is an indicator of the length of the SMSC information supplied.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621 And this Octet and the SMSC content do not count in the real length of PDU string.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 so here, the length of the input needs to minus 2 + sca_len*2 and then divide 2.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 pdu_message_octets_lenth = (strlen(cl)-2-sca_len*2)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 TRACE_EVENT_P1("pdu_message_octets_lenth == %d",pdu_message_octets_lenth);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629 if(pdu_message_octets_lenth NEQ length_of_pdu_message)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 cmdCmsError (CMS_ERR_OpNotAllowed);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 TRACE_EVENT("ERROR: input pdu message length do not match the real length!");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 if (sca_len EQ 0) /* no SCA given */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 offset = CodeRPAddress(pdu.data,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 pSMSSetPrm -> sca.c_num,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 pSMSSetPrm -> sca.ton,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 pSMSSetPrm -> sca.npi,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 pSMSSetPrm -> sca.num);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 cl += 2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 pdu.len = length_of_pdu_message + offset;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 pdu.len = length_of_pdu_message + sca_len + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651 for (i=offset; i<pdu.len AND *cl NEQ '\0' AND i<MAX_SM_LEN; i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 cl = HexToGsm (cl, &pdu.data[i]);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 ret = sAT_PlusCMGCPdu (srcId, &pdu);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 if ( ret NEQ AT_EXCT )
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 cmdCmsError (CMS_ERR_NotPresent); // use aciErrDesc
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661 return (ATI_FAIL);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664 * rCI_OK will emitting +CMGC: <mr>[,<ackpdu>]
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 src_params->curAtCmd = AT_CMD_CMGC;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 return ATI_EXCT;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 \| STATE : code ROUTINE : rCI_PlusCMGLPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678 PURPOSE : handles AT_PlusCMGL call back in PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 #if defined (SMS_PDU_SUPPORT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684 GLOBAL void rCI_Plus_Percent_CMGLPdu ( T_MNSMS_READ_CNF *mnsms_read_cnf,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685 T_ACI_AT_CMD cmd )
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687 T_ACI_SMS_STAT stat;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689 USHORT i = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 USHORT pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 UBYTE sca_len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 UBYTE length_sms, length=0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693 UBYTE fo, addr_len, dcs, vp_format=TP_VPF_ABSOLUTE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694 UBYTE *data_ptr;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696 UBYTE srcId = srcId_cb;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698 #ifndef FF_ATI_BAT
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699 CHAR cvtdAlpha[2*MAX_ALPHA_LEN];
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 USHORT lenCvtdAlpha;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701 T_ACI_PB_TEXT alpha;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706 TRACE_FUNCTION("rCI_Plus_Percent_CMGLPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 src_params->curAtCmd = AT_CMD_NONE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710 /* convert status from PSA type to CMH type */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 cmhSMS_getStatCmh ( mnsms_read_cnf->status, &stat );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 * print response and index, status of SMS message
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 if (cmd EQ AT_CMD_CMGL )
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718 pos = sprintf ( g_sa, "+CMGL: ");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722 pos=sprintf (g_sa, " %s: ", "%CMGL");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 pos += sprintf ( g_sa + pos, "%d,%d,", mnsms_read_cnf->rec_num, stat);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726 #ifdef FF_ATI_BAT
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 * Extracting the alphanumeric data from the phonebook at this point
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730 * would defeat the object (testing the BAT message). Having this
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 * data stored globally represents an easier solution to the
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 * problem of conveying it here.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 if (smsShrdPrm.alpha_len)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736 pos+=sprints(g_sa+pos,smsShrdPrm.alpha,smsShrdPrm.alpha_len);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 #else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741 cmhSMS_getPhbEntry( mnsms_read_cnf->sms_sdu.buf, &alpha, stat);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 * print alpha if available
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 if ( alpha.len NEQ 0 )
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 utl_chsetFromGsm ( (UBYTE*)alpha.data,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 alpha.len,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 (UBYTE*)cvtdAlpha,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 sizeof(cvtdAlpha),
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752 &lenCvtdAlpha,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753 GSM_ALPHA_Def );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754 pos += sprints ( g_sa + pos, cvtdAlpha, lenCvtdAlpha );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757 #endif /FF_ATI_BAT/
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 /* length of SCA including length byte and TOA byte */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760 sca_len = mnsms_read_cnf->sms_sdu.buf[0] + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 data_ptr = &mnsms_read_cnf->sms_sdu.buf[sca_len];
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 fo = *data_ptr++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764 length++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 if ((fo & TP_MTI_MASK) NEQ TP_MTI_SMS_STATUS_REP)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768 if ((fo & TP_MTI_MASK) EQ TP_MTI_SMS_SUBMIT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 /* SMS-SUBMIT */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771 data_ptr++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 length++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773 vp_format = fo & TP_VPF_MASK;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 addr_len = *data_ptr;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777 length += 4 + (addr_len+1)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779 /* data_ptr points to TP-DCS now */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780 data_ptr += 3 + (addr_len+1)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782 dcs = *data_ptr++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784 switch (vp_format)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 * Check validity period format bit 4 and 3
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 case TP_VPF_NOT_PRESENT: // TP-VP not present
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 case TP_VPF_RELATIVE: // TP-VP relative format
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792 length++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 data_ptr++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 case TP_VPF_ENHANCED: // TP-VP enhanced format
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 case TP_VPF_ABSOLUTE: // TP-VP absolute format
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797 length += 7;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 data_ptr += 7;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802 /* data_ptr points to TP-UDL now,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803 * calculate the length excluding SCA octets
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 if (cmhSMS_getAlphabetPp (dcs) EQ 0)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806 length_sms = length + (data_ptr 7 + 7)/8 + 1; // 7 bit alphabet
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808 length_sms = length + *data_ptr + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 pos += sprintf ( g_sa + pos, ",%d", length_sms );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811 io_sendMessage ( srcId, g_sa, ATI_NORMAL_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812 pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816 length_sms=((mnsms_read_cnf->sms_sdu.l_buf+7)/8);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 pos += sprintf ( g_sa + pos, ",%d,", length_sms-sca_len );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818 sca_len = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 * Print PDU + service centre address
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 for (i=0;i<(USHORT)(sca_len+length_sms);i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 pos = GsmToHex (mnsms_read_cnf->sms_sdu.buf[i], g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828 * Send response
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 io_sendMessage ( srcId, g_sa, ATI_NORMAL_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836 \| STATE : code ROUTINE : rCI_PlusCMGRPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 PURPOSE : handles AT_PlusCMGR call back in PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843 #if defined (SMS_PDU_SUPPORT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 GLOBAL void rCI_Plus_Percent_CMGRPdu (T_MNSMS_READ_CNF * mnsms_read_cnf,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846 T_ACI_AT_CMD cmd)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848 USHORT pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849 T_ACI_SMS_STAT stat;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850 USHORT i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852 UBYTE sca_len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853 UBYTE length_sms, length=0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854 UBYTE fo, addr_len, dcs, vp_format=TP_VPF_ABSOLUTE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855 UBYTE *data_ptr;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857 UBYTE srcId = srcId_cb;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859 #ifndef FF_ATI_BAT
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 CHAR cvtdAlpha[2*MAX_ALPHA_LEN];
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 USHORT lenCvtdAlpha;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862 T_ACI_PB_TEXT alpha;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	865 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	866
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867 TRACE_FUNCTION("rCI_Plus_Percent_CMGRPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869 src_params->curAtCmd = AT_CMD_NONE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872 * print response for SMS message
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 if (cmd EQ AT_CMD_CMGR)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 pos = sprintf ( g_sa, "+CMGR: ");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 pos=sprintf (g_sa, " %s: ", "%CMGR");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 /* convert status from PSA type to CMH type */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884 cmhSMS_getStatCmh ( mnsms_read_cnf->status, &stat );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887 * print status of the message
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 pos += sprintf ( g_sa + pos, "%d,", stat );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891 #ifdef FF_ATI_BAT
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894 * Extracting the alphanumeric data from the phonebook at this point
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895 * would defeat the object (testing the BAT message). Having this
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896 * data stored globally represents a quick and dirty solution to the
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897 * problem of conveying it here.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899 if (smsShrdPrm.alpha_len)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901 pos+=sprints(g_sa+pos,smsShrdPrm.alpha,smsShrdPrm.alpha_len);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904 #else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906 cmhSMS_getPhbEntry( mnsms_read_cnf->sms_sdu.buf, &alpha, stat);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909 * print alpha if available
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911 if ( alpha.len NEQ 0 )
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913 utl_chsetFromGsm ( (UBYTE*)alpha.data,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914 alpha.len,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915 (UBYTE*)cvtdAlpha,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916 sizeof(cvtdAlpha),
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917 &lenCvtdAlpha,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918 GSM_ALPHA_Def );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919 pos += sprints ( g_sa + pos, cvtdAlpha, lenCvtdAlpha );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 /* length of SCA including length byte and TOA byte */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925 sca_len = mnsms_read_cnf->sms_sdu.buf[0] + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927 data_ptr = &mnsms_read_cnf->sms_sdu.buf[sca_len];
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 fo = *data_ptr++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	929 length++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931 if ((fo & TP_MTI_MASK) NEQ TP_MTI_SMS_STATUS_REP)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933 if ((fo & TP_MTI_MASK) EQ TP_MTI_SMS_SUBMIT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 /* SMS-SUBMIT */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936 data_ptr++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937 length++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938 vp_format = fo & TP_VPF_MASK;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	941 addr_len = *data_ptr;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	942 length += 4 + (addr_len+1)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	943
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	944 /* data_ptr points to TP-DCS now */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	945 data_ptr += 3 + (addr_len+1)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	946
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	947 dcs = *data_ptr++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	948
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	949 switch (vp_format)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	950 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	951 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	952 * Check validity period format bit 4 and 3
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	953 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	954 case TP_VPF_NOT_PRESENT: // TP-VP not present
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	955 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	956 case TP_VPF_RELATIVE: // TP-VP relative format
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	957 length++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	958 data_ptr++;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	959 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	960 case TP_VPF_ENHANCED: // TP-VP enhanced format
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	961 case TP_VPF_ABSOLUTE: // TP-VP absolute format
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	962 length += 7;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	963 data_ptr += 7;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	964 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	965 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	966
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	967 /* data_ptr points to TP-UDL now,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	968 * calculate the length excluding SCA octets
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	969 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	970 if (cmhSMS_getAlphabetPp (dcs) EQ 0)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	971 length_sms = length + (data_ptr 7 + 7)/8 + 1; // 7 bit alphabet
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	972 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	973 length_sms = length + *data_ptr + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	974
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	975 pos += sprintf ( g_sa + pos, ",%d", length_sms );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	976 io_sendMessage ( srcId, g_sa, ATI_NORMAL_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	977 pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	978 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	979 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	980 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	981 length_sms=((mnsms_read_cnf->sms_sdu.l_buf+7)/8);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	982 pos += sprintf ( g_sa + pos, ",%d,", length_sms-sca_len );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	983 sca_len = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	984 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	985
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	986 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	987 * Print PDU + service centre address
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	988 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	989 for (i=0;i<(USHORT)(sca_len+length_sms);i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	990 pos = GsmToHex (mnsms_read_cnf->sms_sdu.buf[i], g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	991
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	992 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	993 * Send response
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	994 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	995 io_sendMessage ( srcId, g_sa, ATI_NORMAL_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	996 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	997 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	998
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	999 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1000 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1001 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1002 \| STATE : code ROUTINE : rCI_PlusCMSSPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1003 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1004
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1005 PURPOSE : handles AT_PlusCMSS call back in PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1006
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1007 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1008
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1009 GLOBAL void rCI_PlusCMSSPdu (T_MNSMS_SUBMIT_CNF * mnsms_submit_cnf)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1010 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1011 USHORT pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1012 UBYTE length;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1013 USHORT i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1014 UBYTE srcId = srcId_cb;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1015 UBYTE sca_len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1016 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1017
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1018 TRACE_FUNCTION("rCI_PlusCMSSPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1019
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1020 src_params->curAtCmd = AT_CMD_NONE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1021
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1022 pos=sprintf(g_sa,"+CMSS: %d", mnsms_submit_cnf->tp_mr);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1023
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1024
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1025 if (smsShrdPrm.CSMSservice EQ CSMS_SERV_GsmPh2Plus)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1026 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1027 if (mnsms_submit_cnf->sms_sdu.l_buf)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1028 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1029 pos+=sprintf(g_sa+pos, ",\""); /* parameter shall be bounded by double quote characters, see 07.07 <ackpdu> */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1030 sca_len = mnsms_submit_cnf->sms_sdu.buf[0] + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1031 length = ((mnsms_submit_cnf->sms_sdu.l_buf+7)/8);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1032
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1033 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1034 * Print ACK PDU (without SCA field)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1035 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1036 for (i=sca_len; i<length; i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1037 pos = GsmToHex (mnsms_submit_cnf->sms_sdu.buf[i], g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1038
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1039 pos+=sprintf(g_sa+pos, "\"");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1040 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1041 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1042
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1043 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1044 * Send response
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1045 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1046 io_sendMessage ( srcId, g_sa, ATI_NORMAL_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1047 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1048
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1049 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1050 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1051 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1052 \| STATE : code ROUTINE : rCI_PlusCMGSPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1053 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1054
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1055 PURPOSE : handles AT_PlusCMGS call back in PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1056
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1057 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1058
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1059 GLOBAL void rCI_PlusCMGSPdu (T_MNSMS_SUBMIT_CNF * mnsms_submit_cnf)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1060 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1061 USHORT pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1062 UBYTE length;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1063 UBYTE srcId = srcId_cb;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1064 USHORT i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1065 UBYTE sca_len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1066 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1067
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1068 TRACE_FUNCTION("rCI_PlusCMGSPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1069
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1070
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1071 src_params->curAtCmd = AT_CMD_NONE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1072
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1073 pos=sprintf(g_sa,"+CMGS: %d", mnsms_submit_cnf->tp_mr);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1074
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1075
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1076 if (smsShrdPrm.CSMSservice EQ CSMS_SERV_GsmPh2Plus)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1077 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1078 if (mnsms_submit_cnf->sms_sdu.l_buf)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1079 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1080 pos+=sprintf(g_sa+pos, ",\""); /* parameter shall be bounded by double quote characters, see 07.07 <ackpdu> */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1081 sca_len = mnsms_submit_cnf->sms_sdu.buf[0] + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1082 length = ((mnsms_submit_cnf->sms_sdu.l_buf+7)/8);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1083
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1084 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1085 * Print ACK PDU (without SCA field)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1086 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1087 for (i=sca_len; i<length; i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1088 pos = GsmToHex (mnsms_submit_cnf->sms_sdu.buf[i], g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1089
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1090 pos+=sprintf(g_sa+pos, "\"");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1091 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1092 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1093
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1094 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1095 * Send response
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1096 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1097 io_sendMessageEx( srcId, g_sa,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1098 ATI_NORMAL_OUTPUT \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1099 ATI_BEGIN_CRLF_OUTPUT \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1100 ATI_END_CRLF_OUTPUT);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1101
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1102 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1103
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1104 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1105 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1106 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1107 \| STATE : code ROUTINE : rCI_PlusCMGCPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1108 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1109
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1110 PURPOSE : handles AT_PlusCMGC call back in PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1111
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1112 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1113
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1114 GLOBAL void rCI_PlusCMGCPdu (T_MNSMS_COMMAND_CNF * mnsms_command_cnf)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1115 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1116 USHORT pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1117 UBYTE length;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1118 UBYTE srcId = srcId_cb;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1119 USHORT i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1120 UBYTE sca_len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1121 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1122
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1123 TRACE_FUNCTION("rCI_PlusCMGCPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1124
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1125 src_params->curAtCmd = AT_CMD_NONE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1126
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1127 pos=sprintf(g_sa,"+CMGC: %d", mnsms_command_cnf->tp_mr);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1128
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1129 if (smsShrdPrm.CSMSservice EQ CSMS_SERV_GsmPh2Plus)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1130 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1131 if (mnsms_command_cnf->sms_sdu.l_buf)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1132 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1133 pos+=sprintf(g_sa+pos, ",\""); /* parameter shall be bounded by double quote characters, see 07.07 <ackpdu> */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1134 sca_len = mnsms_command_cnf->sms_sdu.buf[0] + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1135 length = ((mnsms_command_cnf->sms_sdu.l_buf+7)/8);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1136
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1137 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1138 * Print ACK PDU (without SCA field)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1139 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1140 for (i=sca_len; i<length; i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1141 pos = GsmToHex (mnsms_command_cnf->sms_sdu.buf[i], g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1142
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1143 pos+=sprintf(g_sa+pos, "\"");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1144 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1145 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1146
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1147 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1148 * Send response
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1149 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1150 io_sendMessageEx( srcId, g_sa,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1151 ATI_NORMAL_OUTPUT \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1152 ATI_BEGIN_CRLF_OUTPUT \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1153 ATI_END_CRLF_OUTPUT);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1154 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1155
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1156 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1157 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1158 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1159 \| STATE : code ROUTINE : rCI_PlusCMTPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1160 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1161
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1162 PURPOSE : handles AT_PlusCMT unsolicited message in PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1163
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1164 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1165
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1166 #if defined (SMS_PDU_SUPPORT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1167
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1168 GLOBAL void rCI_PlusCMTPdu (T_MNSMS_MESSAGE_IND * mnsms_message_ind)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1169 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1170 USHORT pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1171 UBYTE l_sms_with_sca;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1172 UBYTE l_sms_without_sca;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1173 UBYTE srcId = srcId_cb;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1174
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1175 #ifndef FF_ATI_BAT
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1176 CHAR cvtdAlpha[2*MAX_ALPHA_LEN];
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1177 USHORT lenCvtdAlpha;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1178 T_ACI_PB_TEXT alpha;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1179 T_ACI_SMS_STAT stat;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1180 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1181
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1182 USHORT i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1183 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1184
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1185 UBYTE sca_len = mnsms_message_ind->sms_sdu.buf[0] + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1186
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1187 TRACE_FUNCTION("rCI_PlusCMTPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1188
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1189 src_params->curAtCmd = AT_CMD_NONE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1190
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1191 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1192 * print response for SMS message
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1193 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1194 pos = sprintf ( g_sa, "+CMT: ");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1195
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1196 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1197 * print alpha if available
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1198 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1199 #ifdef FF_ATI_BAT
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1200
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1201 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1202 * Extracting the alphanumeric data from the phonebook at this point
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1203 * would defeat the object (testing the BAT message). Having this
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1204 * data stored globally represents a quick and dirty solution to the
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1205 * problem of conveying it here.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1206 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1207 if (smsShrdPrm.alpha_len)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1208 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1209 pos+=sprints(g_sa+pos,smsShrdPrm.alpha,smsShrdPrm.alpha_len);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1210 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1211
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1212 #else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1213
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1214 /* convert status from PSA type to CMH type */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1215 cmhSMS_getStatCmh ( mnsms_message_ind->status, &stat );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1216
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1217 cmhSMS_getPhbEntry( mnsms_message_ind->sms_sdu.buf, &alpha, stat);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1218
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1219
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1220 if ( alpha.len NEQ 0 )
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1221 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1222 utl_chsetFromGsm ( (UBYTE*)alpha.data,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1223 alpha.len,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1224 (UBYTE*)cvtdAlpha,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1225 sizeof(cvtdAlpha),
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1226 &lenCvtdAlpha,
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1227 GSM_ALPHA_Def );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1228 pos += sprints ( g_sa + pos, cvtdAlpha, lenCvtdAlpha );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1229 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1230
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1231 #endif /FF_ATI_BAT/
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1232
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1233 l_sms_with_sca = ((mnsms_message_ind->sms_sdu.l_buf+7)/8);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1234 l_sms_without_sca = l_sms_with_sca - sca_len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1235
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1236 pos += sprintf ( g_sa + pos, ",%d", l_sms_without_sca );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1237 io_sendIndication ( srcId, g_sa, ATI_FORCED_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1238
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1239 pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1240
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1241 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1242 * Print PDU + service centre address field
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1243 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1244 for (i=0;i<(USHORT)l_sms_with_sca;i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1245 pos = GsmToHex (mnsms_message_ind->sms_sdu.buf[i], g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1246
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1247 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1248 * Send response
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1249 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1250 io_sendIndication ( srcId, g_sa, ATI_FORCED_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1251
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1252 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1253 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1254
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1255 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1256 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1257 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1258 \| STATE : code ROUTINE : rCI_PlusCBMPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1259 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1260
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1261 PURPOSE : handles Cell Broadcast unsolicited message in PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1262
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1263 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1264
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1265 #if defined (SMS_PDU_SUPPORT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1266
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1267 GLOBAL void rCI_PlusCBMPdu (T_MMI_CBCH_IND * mmi_cbch_ind)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1268 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1269 int i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1270 USHORT pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1271 UBYTE srcId = srcId_cb;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1272 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1273
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1274 TRACE_FUNCTION("rCI_PlusCBMPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1275
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1276 src_params->curAtCmd = AT_CMD_NONE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1277
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1278 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1279 * print response for CBM message
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1280 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1281 pos = sprintf ( g_sa, "+CBM: ");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1282 pos += sprintf ( g_sa + pos, "%d", (int)mmi_cbch_ind->cbch_len );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1283
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1284 io_sendIndication ( srcId, g_sa, ATI_FORCED_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1285
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1286 pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1287
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1288 for (i = 0; i < (int)mmi_cbch_ind->cbch_len; i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1289 pos = GsmToHex (mmi_cbch_ind->cbch_msg[i], g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1290
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1291 io_sendMessageEx ( srcId, g_sa, ATI_INDICATION_OUTPUT +
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1292 ATI_FORCED_OUTPUT +
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1293 ATI_END_CRLF_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1294
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1295 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1296 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1297
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1298
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1299 #if defined (SMS_PDU_SUPPORT)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1300 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1301 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1302 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1303 \| STATE : code ROUTINE : rCI_PlusCDSPdu \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1304 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1305
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1306 PURPOSE : handles Status Indication unsolicited message in PDU mode
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1307
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1308 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1309 GLOBAL void rCI_PlusCDSPdu (T_MNSMS_STATUS_IND * mnsms_status_ind)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1310 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1311 USHORT pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1312 UBYTE l_sms_with_sca;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1313 UBYTE l_sms_without_sca;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1314 UBYTE sca_len = mnsms_status_ind->sms_sdu.buf[0] + 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1315 USHORT i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1316 UBYTE srcId = srcId_cb;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1317 T_ATI_SRC_PARAMS *src_params = find_element (ati_src_list, srcId, search_ati_src_id);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1318
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1319
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1320 TRACE_FUNCTION("rCI_PlusCDSPdu()");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1321
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1322 src_params->curAtCmd = AT_CMD_NONE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1323
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1324 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1325 * print response for SMS message
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1326 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1327 pos = sprintf ( g_sa, "+CDS: ");
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1328
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1329 l_sms_with_sca = ((mnsms_status_ind->sms_sdu.l_buf+7)/8);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1330 l_sms_without_sca = l_sms_with_sca - sca_len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1331
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1332 pos += sprintf ( g_sa + pos, "%d", l_sms_without_sca );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1333
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1334 io_sendIndication ( srcId, g_sa, ATI_FORCED_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1335
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1336 pos = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1337
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1338 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1339 * Print PDU + service centre address field
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1340 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1341 for (i=0;i<(USHORT)l_sms_with_sca;i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1342 pos = GsmToHex (mnsms_status_ind->sms_sdu.buf[i], g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1343
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1344 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1345 * Send response
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1346 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1347 io_sendMessageEx ( srcId, g_sa, ATI_INDICATION_OUTPUT +
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1348 ATI_FORCED_OUTPUT +
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1349 ATI_END_CRLF_OUTPUT );
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1350
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1351 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1352 #endif /* SMS_PDU_SUPPORT */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1353
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1354
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1355
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1356 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1357 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1358 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1359 \| STATE : code ROUTINE : HexMessage \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1360 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1361
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1362 PURPOSE : converts a sms message to HEX and fill it into a buffer.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1363
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1364 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1365
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1366 /* does not seem to be used */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1367 /GLOBAL USHORT HexMessage (T_ACI_SM_DATA data, UBYTE length, char * buffer, USHORT pos)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1368 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1369 int i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1370
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1371 pos = GsmToHex (data->len, buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1372
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1373 for (i=0;i<(int)length;i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1374 pos = GsmToHex (data->data[i], buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1375
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1376 return pos;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1377 } */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1378
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1379
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1380 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1381 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1382 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1383 \| STATE : code ROUTINE : HexScts \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1384 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1385
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1386 PURPOSE : converts a service centre timestamp to HEX and fill it into a buffer.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1387
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1388 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1389
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1390 /* doesn't seem to be used... */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1391 /GLOBAL USHORT HexScts (T_ACI_VP_ABS scts, char * buffer, USHORT pos)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1392 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1393 UBYTE tz;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1394
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1395 TRACE_EVENT_P1("TZ =%x", scts->timezone);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1396
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1397 pos = GsmToHex ((UBYTE)((scts->year[1]<<4)+scts->year[0]),
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1398 buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1399 pos = GsmToHex ((UBYTE)((scts->month[1]<<4)+scts->month[0]),
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1400 buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1401 pos = GsmToHex ((UBYTE)((scts->day[1]<<4)+scts->day[0]),
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1402 buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1403 pos = GsmToHex ((UBYTE)((scts->hour[1]<<4)+scts->hour[0]),
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1404 buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1405 pos = GsmToHex ((UBYTE)((scts->minute[1]<<4)+scts->minute[0]),
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1406 buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1407 pos = GsmToHex ((UBYTE)((scts->second[1]<<4)+scts->second[0]),
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1408 buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1409
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1410 tz = cmhSMS_setTimezone(scts->timezone);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1411 pos = GsmToHex (tz, buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1412
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1413 return pos;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1414 }*/
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1415
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1416
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1417 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1418 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1419 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1420 \| STATE : code ROUTINE : GsmToHex \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1421 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1422
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1423 PURPOSE : converts a GSM character to HEX and fill it into a buffer.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1424
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1425 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1426
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1427 GLOBAL USHORT GsmToHex (UBYTE in, char * buffer, USHORT pos)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1428 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1429 const UBYTE hexVal[17] = {"0123456789ABCDEF"};
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1430
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1431 buffer[pos] = hexVal[ in >> 4 ];
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1432 buffer[pos+1] = hexVal[ in & 0x0F ];
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1433 buffer[pos+2] = '\0';
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1434 return pos+2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1435 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1436
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1437 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1438 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1439 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1440 \| STATE : code ROUTINE : HexAdress \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1441 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1442
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1443 PURPOSE : converts a adress to HEX and fill it into a buffer.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1444
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1445 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1446
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1447 #if 0
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1448 GLOBAL USHORT HexAdress (CHAR * adress, UBYTE ton, UBYTE npi, char * buffer, USHORT pos)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1449 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1450 int i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1451 int len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1452
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1453 len = (strlen (adress)+1)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1454
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1455 pos = GsmToHex ((UBYTE)(len+1), buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1456
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1457 pos = GsmToHex ((UBYTE)(0x80 + (ton<<4) + npi), buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1458
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1459 for (i=0;i<len;i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1460 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1461 if (i EQ len-1)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1462 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1463 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1464 * last two digits
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1465 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1466 if (strlen(adress) & 1)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1467 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1468 pos = GsmToHex ((UBYTE)(0xF0 + (adress[2*i] - 0x30)), buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1469 continue;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1470 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1471 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1472 pos = GsmToHex ((UBYTE)(((adress [2*i+1]-0x30) << 4) +
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1473 (adress [2*i] - 0x30)), buffer, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1474 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1475 return pos;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1476 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1477 #endif /* 0 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1478
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1479 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1480 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1481 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1482 \| STATE : code ROUTINE : HexAdressTP \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1483 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1484
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1485 PURPOSE : converts a adress to HEX and fill it into a buffer for TP-adresses.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1486
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1487 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1488
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1489 #if 0
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1490 GLOBAL USHORT HexAdressTP (CHAR * adress, UBYTE ton, UBYTE npi, char * buffer, USHORT pos)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1491 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1492 int i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1493 int len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1494
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1495 len = (strlen (adress)+1)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1496
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1497 if ( ton EQ 0x05 AND strlen (adress) NEQ 4 ) /* PATCH VO - if (patch) else ... */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1498 pos = GsmToHex ((UBYTE)(strlen (adress) * 2), g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1499 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1500 pos = GsmToHex ((UBYTE)strlen(adress), g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1501
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1502 pos = GsmToHex ((UBYTE)(0x80 + (ton<<4) + npi), g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1503
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1504 if ( ton EQ 0x05 AND strlen (adress) NEQ 4 ) /* PATCH VO - if (patch) else ... */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1505 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1506 for (i=0;i<(int)strlen (adress);i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1507 pos = GsmToHex ((UBYTE)adress[i], g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1508 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1509 else
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1510 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1511 for (i=0;i<len;i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1512 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1513 if (i EQ len-1)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1514 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1515 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1516 * last two digits
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1517 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1518 if (strlen(adress) & 1)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1519 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1520 pos = GsmToHex ((UBYTE)(0xF0 + (adress[2*i] - 0x30)), g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1521 continue;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1522 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1523 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1524 pos = GsmToHex ((UBYTE)(((adress [2i+1]-0x30) << 4) + (adress [2i] - 0x30)),
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1525 g_sa, pos);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1526 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1527 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1528 return pos;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1529 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1530 #endif /* 0 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1531 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1532 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1533 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1534 \| STATE : code ROUTINE : HexToGsm \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1535 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1536
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1537 PURPOSE : converts a HEX value to the GSM character.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1538
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1539 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1540
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1541 GLOBAL char * HexToGsm (char * cl, UBYTE * value)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1542 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1543 int i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1544 UBYTE character;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1545
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1546 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1547 * initialise the output value
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1548 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1549 *value = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1550
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1551 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1552 * for both nibbles
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1553 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1554 for (i=0;i<2;i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1555 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1556 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1557 * shift the result of the last loop
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1558 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1559 value = (value) << 4;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1560
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1561 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1562 * Isolate next nibble in ASCII
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1563 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1564 character = toupper(*cl++);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1565
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1566 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1567 * convert Nibble character to value
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1568 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1569 switch (character)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1570 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1571 case 'A':
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1572 case 'B':
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1573 case 'C':
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1574 case 'D':
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1575 case 'E':
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1576 case 'F':
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1577 value = value + (character - 'A' + 10);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1578 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1579 default:
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1580 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1581 * 0-9
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1582 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1583 value = value + (character - '0');
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1584 break;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1585 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1586 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1587
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1588 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1589 * return pointer to the rest of PDU
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1590 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1591 return cl;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1592 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1593
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1594 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1595 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1596 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1597 \| STATE : code ROUTINE : GSMAddress \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1598 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1599
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1600 PURPOSE : converts a adress coded with HEX values to the internal
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1601 data structures.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1602
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1603 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1604
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1605 /* does not seem to be used */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1606 #if 0
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1607 GLOBAL char * GSMAddress (char * cl, char * address, T_ACI_TOA *tosca)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1608 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1609 int i, j;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1610 UBYTE value;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1611 UBYTE len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1612 UBYTE digit;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1613
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1614 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1615 * calculate the number of octets which are used for the address
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1616 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1617
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1618 cl = HexToGsm (cl, &value);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1619 if (value EQ 0) /* SCA not given */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1620 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1621 address[0] = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1622 return cl;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1623 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1624 len = value - 1;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1625
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1626 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1627 * check against maximum value
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1628 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1629 if (len > MAX_SMS_ADDR_DIG/2)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1630 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1631 pdu_error_detected = TRUE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1632 return cl;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1633 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1634
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1635 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1636 * calculate the type of number and numbering plan identification
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1637 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1638 cl = HexToGsm (cl, &value);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1639
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1640 tosca->ton = (value >> 4) & 7;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1641 tosca->npi = value & 0x0F;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1642
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1643
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1644 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1645 * convert the digits
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1646 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1647 j = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1648 for (i = 0; i < (int)len; i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1649 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1650 cl = HexToGsm (cl, &value);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1651
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1652 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1653 * check digit n
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1654 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1655 address[j++] = (value & 0x0F) + 0x30;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1656 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1657 * check digit n+1
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1658 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1659 digit = (value >> 4) & 0x0F;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1660 if (digit < 10)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1661 address[j++] = digit + 0x30;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1662 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1663 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1664 * string termination
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1665 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1666 address[j] = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1667
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1668 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1669 * return pointer to the rest of the PDU
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1670 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1671 return cl;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1672 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1673 #endif /* 0 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1674 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1675 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1676 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1677 \| STATE : code ROUTINE : GSMAddressTP \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1678 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1679
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1680 PURPOSE : converts a TP-adress coded with HEX values to the internal
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1681 data structures.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1682
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1683 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1684
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1685 /* does not seem to be used */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1686 #if 0
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1687 GLOBAL char * GSMAddressTP (char * cl, char * address, T_ACI_TOA *toda)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1688 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1689 int i, j;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1690 UBYTE value;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1691 UBYTE len;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1692 UBYTE digit;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1693
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1694 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1695 * calculate the number of octets which are used for the address
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1696 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1697 cl = HexToGsm (cl, &value);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1698 len = (value + 1)/2;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1699
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1700 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1701 * check against maximum value
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1702 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1703 if (len > MAX_SMS_ADDR_DIG/2)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1704 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1705 pdu_error_detected = TRUE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1706 return cl;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1707 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1708 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1709 * calculate the type of number and numbering plan identification
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1710 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1711 cl = HexToGsm (cl, &value);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1712
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1713 toda->ton = (value >> 4) & 7;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1714 toda->npi = value & 0x0F;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1715
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1716 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1717 * convert the digits
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1718 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1719 j = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1720 for (i=0;i<(int)len;i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1721 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1722 cl = HexToGsm (cl, &value);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1723
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1724 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1725 * check digit n
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1726 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1727 address[j++] = (value & 0x0F) + 0x30;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1728 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1729 * check digit n+1
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1730 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1731 digit = (value >> 4) & 0x0F;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1732 if (digit < 10)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1733 address[j++] = digit + 0x30;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1734 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1735 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1736 * string termination
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1737 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1738 address[j] = 0;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1739
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1740 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1741 * return pointer to the rest of the PDU
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1742 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1743 return cl;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1744 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1745 #endif /* 0 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1746
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1747 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1748 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1749 \| PROJECT : GSM-F&D (8411) MODULE : ACI_PDU \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1750 \| STATE : code ROUTINE : GSMMessage \|
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1751 +--------------------------------------------------------------------+
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1752
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1753 PURPOSE : converts a sms message from HEX and fill it into a buffer.
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1754
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1755 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1756
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1757 #if 0
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1758 GLOBAL char GSMMessage (char cl, UBYTE *data, SHORT oct_length, SHORT max_length)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1759 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1760 SHORT i;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1761
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1762 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1763 * check against maximum value
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1764 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1765 if (oct_length > max_length)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1766 {
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1767 pdu_error_detected = TRUE;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1768 return cl;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1769 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1770 memset (data, 0, max_length);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1771
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1772 /*
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1773 * copy message
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1774 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1775 for (i = 0; i < oct_length; i++)
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1776 cl = HexToGsm (cl, &data[i]);
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1777
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1778 return cl;
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1779 }
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1780 #endif /* 0 */
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1781
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1782 #endif
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1783
93999a60b835 src/aci2, src/condat2: import of g23m/condat source pieces from TCS211 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1784 #endif /* ATI_PDU_C */

FreeCalypso > hg > fc-magnetite

annotate src/aci2/aci/ati_pdu.c @ 701:35e7f9d0379f