fc-magnetite: src/g23m-aci/aci/line

author	Mychaela Falconia <falcon@freecalypso.org>
date	Tue, 11 Oct 2016 02:02:43 +0000
parents
children	f5a1a37cbece

rev	line source
162 53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +-----------------------------------------------------------------------------
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| Project :
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 \| Modul : line
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 +-----------------------------------------------------------------------------
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| Copyright 2002 Texas Instruments Berlin, AG
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \| All rights reserved.
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| This file is confidential and a trade secret of Texas
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| Instruments Berlin, AG
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| The receipt of or possession of this file does not convey
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| any rights to reproduce or disclose its contents or to
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| manufacture, use, or sell anything it may describe, in
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| whole, or in part, without the specific written consent of
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 \| Texas Instruments Berlin, AG.
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 +-----------------------------------------------------------------------------
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 \| Purpose : This modul ...
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 +-----------------------------------------------------------------------------
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 #include <stdio.h>
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #include <stdlib.h>
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 #include <string.h>
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #include <ctype.h>
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #include "typedefs.h"
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 #include "vsi.h"
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 #include "pei.h"
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 #include "aci_mem.h"
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 #include "P_ACI.val"
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include "line_edit.h"
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include "line_edit_intern.h"
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #include "line_split_intern.h"
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 static T_LEDIT_CHAR_TYPE ledit_lookAhead (char c);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 static UBYTE ledit_check_valid_basic_cmd (char c);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 static UBYTE ledit_check_valid_and_cmd (char c);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 static USHORT ledit_get_para_len (T_LEDIT_INTERN *leditInt, USHORT searchLen);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 static USHORT ledit_get_name_len (T_LEDIT_INTERN *leditInt, T_LEDIT_NAME_TYPE nType);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 static T_LEDIT_RSLT ledit_get_memory (T_LEDIT_ATCMD_M **cmdm, int size, int name);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 static T_LEDIT_RSLT ledit_get_cmd_mem (T_LEDIT_INTERN *leditInt);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 static T_LEDIT_RSLT ledit_assign_name (T_LEDIT_INTERN *leditInt, int len);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 static T_LEDIT_RSLT ledit_assign_param (T_LEDIT_INTERN *leditInt, T_LEDIT_PARAM_TYPE pType);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 static T_LEDIT_ATCMD_SUBTYPE ledit_extended_type (T_LEDIT_INTERN *leditInt);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 static T_LEDIT_RSLT ledit_extended_cmd (T_LEDIT_INTERN *leditInt);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 static T_LEDIT_RSLT ledit_s_cmd (T_LEDIT_INTERN *leditInt);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 static T_LEDIT_RSLT ledit_dial (T_LEDIT_INTERN *leditInt);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 static T_LEDIT_RSLT ledit_and_basic_cmd (T_LEDIT_INTERN *leditInt);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 static T_LEDIT_RSLT ledit_basic_cmd (T_LEDIT_INTERN *leditInt);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 static T_LEDIT_RSLT ledit_restore_dial_string (char *procDialString,
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 int procDialStringLen,
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 char *origCommandLine,
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 int origCommandLineLen);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 static const UBYTE basic_ATcmd [26][2] =
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* A */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* B */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 {BATCMD_NO_SUPP, ANDCMD_SUPPORT}, /* C */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 {BATCMD_DIAL , ANDCMD_SUPPORT}, /* D <---- SPECIAL */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* E */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 {BATCMD_SUPPORT, ANDCMD_SUPPORT}, /* F */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* G */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* H */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* I */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* J */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 {BATCMD_NO_SUPP, ANDCMD_SUPPORT}, /* K */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* L */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* M */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* N */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* O */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* P */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* Q */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* R */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 {BATCMD_S_PARAM, ANDCMD_NO_SUPP}, /* S <---- SPECIAL */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* T */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* U */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* V */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 {BATCMD_SUPPORT, ANDCMD_SUPPORT}, /* W */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* X */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* Y */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 {BATCMD_SUPPORT, ANDCMD_NO_SUPP} /* Z */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 };
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 \| STATE : code ROUTINE : ledit_check_valid_basic_cmd \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 PURPOSE : -
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 static UBYTE ledit_check_valid_basic_cmd (char c)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 return basic_ATcmd [(int)(c-'A')][0];
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 \| STATE : code ROUTINE : ledit_check_valid_and_cmd \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 PURPOSE : -
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 static UBYTE ledit_check_valid_and_cmd (char c)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 return basic_ATcmd [(int)(c-'A')][1];
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 \| STATE : code ROUTINE : ledit_lookAhead \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 PURPOSE : - qualify the character at the look ahead position
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 static T_LEDIT_CHAR_TYPE ledit_lookAhead (char c)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 if (c EQ '\0')
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 return LEDIT_CHAR_TERMINATED;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 switch (c)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 case '%':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 return LEDIT_CHAR_PERCENT;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 case '&':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135 return LEDIT_CHAR_AND;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 case '+':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 return LEDIT_CHAR_PLUS;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 case ',':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 return LEDIT_CHAR_COMMA;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 case '=':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 return LEDIT_CHAR_SET;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 case ';':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 return LEDIT_CHAR_SEPARATOR;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 case '?':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 return LEDIT_CHAR_READ;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 default:
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 if ((c-'0') < 10 AND (c - '0') >=0)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 return LEDIT_CHAR_NUMBER;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 if ((c>='A') && (c<='Z'))
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 return LEDIT_CHAR_CHAR;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 if (((c >= '!') AND (c <= '_')) OR ((c >= 123) AND ((unsigned char)c <= 127)))
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 /the rest of characters/
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 return LEDIT_CHAR_EXT;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 return LEDIT_CHAR_INVALID;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 \| STATE : code ROUTINE : ledit_get_para_len \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 PURPOSE : - calculate length of an AT command parameter
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 static USHORT ledit_get_para_len (T_LEDIT_INTERN *leditInt, USHORT searchLen)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 USHORT i = 0;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 #ifdef _SIMULATION_
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 TRACE_FUNCTION("ledit_get_para_len()");
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 #endif
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 if (searchLen EQ SEARCH_BAT_LEN)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 /* basic AT command can have numbers only e.g.: ATF123 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 i = leditInt->execBufIter; /* start with first number */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 while (isdigit(leditInt->execBuffer[i]))
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 ++i;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 return (i - leditInt->execBufIter);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 else
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 * dial string finish with ';'
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 * extended AT command is terminated by ';' or by '\0' if last one in cmd line
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 i = leditInt->execBufIter;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 while (';' != leditInt->execBuffer[i])
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 ++i;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 if (leditInt->execBuffer[i] EQ '\0')
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 break;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 if ((searchLen EQ SEARCH_DIAL_LEN) AND (';' EQ leditInt->execBuffer[i]))
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 ++i; /* for dial the ';' is important */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 return (i - leditInt->execBufIter);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 \| STATE : code ROUTINE : ledit_get_name_len \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 PURPOSE : - get the length of an extended AT command or ATSnn where nn := 0..99
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 extended name starts with '+', '%', '$' ... or every other char which is not [a-zA-Z][0-9]
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 after prefix must start with [A-Z] and then up to further 15 characters
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 of [A-Z][0-9]!%-./:_ according to V.25 ter chapter 5.4.1
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 static USHORT ledit_get_name_len (T_LEDIT_INTERN *leditInt, T_LEDIT_NAME_TYPE nType)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 USHORT i = leditInt->execBufIter;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 if (nType EQ LEDIT_EXT_NAME)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 ++i; /* skip prefix of extended name */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 * first char (after extended prefix) must be [A-Z] (to capital letter done by ledit_collect())
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 if (isupper (leditInt->execBuffer[i]))
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 while (leditInt->execBuffer[i])
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 if ((nType EQ LEDIT_S_NAME) AND (i > leditInt->execBufIter))
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 if (isdigit(leditInt->execBuffer[i]) EQ 0)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 return 0; /* invalid name for ATSnn, where nn must be [0-9]+ */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 if ((i - leditInt->execBufIter) > LEDIT_MAX_S_NAME_LEN)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 return 0; /* invalid name for ATSnn, where nn is too large */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 ++i;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 switch (leditInt->execBuffer[i])
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 case '\0':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 return (i - leditInt->execBufIter);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 case '=':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 if (leditInt->execBuffer[i+1] NEQ '?')
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 return (i - leditInt->execBufIter);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 else /* AT+XXX=? */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 if ((leditInt->execBuffer[i+2] NEQ '\0') AND (leditInt->execBuffer[i+2] NEQ ';'))
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 return 0; /* after =? must be ';' or terminated */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 return (i - leditInt->execBufIter);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 case '?':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270 if ((leditInt->execBuffer[i+1] NEQ '\0') AND (leditInt->execBuffer[i+1] NEQ ';'))
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 return 0; /* after ? must be ';' or terminated */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 return (i - leditInt->execBufIter);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 case ';':
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 * there are several extended AT cmds without "=parameter" or "=?" or "?" after the name, e.g.: +CGMM;+CGMI;+CGMR;+CGSN;...
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 * the ";" after the name will be parsed in ledit_get_para_len()
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 return (i - leditInt->execBufIter);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 } /* end of while (leditInt->execBuffer[i]) */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 return 0; /* invalid name */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 \| STATE : code ROUTINE : ledit_free_cmd \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297 PURPOSE : -
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 void ledit_free_cmd (T_LEDIT_INTERN *leditInt)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 T_LEDIT_ATCMD_M *tmp = NULL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 #ifdef _SIMULATION_
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 TRACE_FUNCTION("ledit_free_cmd()");
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 #endif
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 while (leditInt->cmdm)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 tmp = leditInt->cmdm->next;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 if (leditInt->cmdm->cmd)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 if (leditInt->cmdm->cmd->name)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 ACI_MFREE(leditInt->cmdm->cmd->name);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 if (leditInt->cmdm->cmd->params)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 ACI_MFREE (leditInt->cmdm->cmd->params);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 ACI_MFREE (leditInt->cmdm->cmd);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 /* if (leditInt->cmdm) ... always true */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 ACI_MFREE (leditInt->cmdm);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 leditInt->cmdm = tmp;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 \| STATE : code ROUTINE : ledit_get_cmd_mem \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 PURPOSE : - allocate some memory for T_LEDIT_ATCMD
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 static T_LEDIT_RSLT ledit_get_cmd_mem (T_LEDIT_INTERN *leditInt)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 ACI_MALLOC(leditInt->cmdm,sizeof(T_LEDIT_ATCMD_M));
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 if (leditInt->cmdm EQ NULL)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 return LEDIT_FAIL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 memset(leditInt->cmdm, '\0', sizeof(T_LEDIT_ATCMD_M));
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 leditInt->cmdm->next = NULL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 ACI_MALLOC(leditInt->cmdm->cmd,sizeof(T_LEDIT_ATCMD));
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 if (leditInt->cmdm->cmd EQ NULL)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 return LEDIT_FAIL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 memset(leditInt->cmdm->cmd, '\0', sizeof(T_LEDIT_ATCMD));
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 leditInt->cmdm->cmd->type.mType = LEDIT_ATCMD_NIL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 leditInt->cmdm->cmd->type.sType = (T_LEDIT_ATCMD_SUBTYPE) LEDIT_ATCMD_NIL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 /* Initializing flag here BUG 11920 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 leditInt->cmdm->cmd->type.append_Flag = FALSE;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 leditInt->cmdm->cmd->name = NULL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 leditInt->cmdm->cmd->params = NULL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362 return LEDIT_CMPL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 \| STATE : code ROUTINE : ledit_get_memory \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 PURPOSE : - allocate some memory (for char *)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 static T_LEDIT_RSLT ledit_get_memory (T_LEDIT_ATCMD_M **cmdm, int size, int name)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 T_LEDIT_ATCMD_M **tmp = cmdm;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 if (name)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 ACI_MALLOC((tmp)->cmd->name,size sizeof(char));
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 if ((*tmp)->cmd->name EQ NULL)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 return LEDIT_FAIL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 (*tmp)->cmd->name[0]='\0';
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 else
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 ACI_MALLOC((tmp)->cmd->params,size sizeof(char));
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 if ((*tmp)->cmd->params EQ NULL)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 TRACE_FUNCTION("ledit_get_memory(): returning fail");
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 return LEDIT_FAIL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 (*tmp)->cmd->params[0]='\0';
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 return LEDIT_CMPL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 \| STATE : code ROUTINE : ledit_assign_name \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 PURPOSE : - extract the name of an AT command from command line
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 and put it into T_LEDIT_ATCMD member name
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 static T_LEDIT_RSLT ledit_assign_name (T_LEDIT_INTERN *leditInt, int len)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 if(ledit_get_memory (&(leditInt->cmdm), len+1, 1) EQ LEDIT_FAIL)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 leditInt->err.code = LEDIT_ERR_NoMemory;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 leditInt->err.msg = ledit_err[LEDIT_ERR_NoMemory].msg;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 return LEDIT_FAIL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 memcpy (leditInt->cmdm->cmd->name, leditInt->execBuffer+leditInt->execBufIter, len);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 (leditInt->cmdm->cmd->name+len) = '\0'; / terminate name */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 leditInt->execBufIter += len; /* update iterator in execBuffer */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 return LEDIT_CMPL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 \| STATE : code ROUTINE : ledit_assign_param \|
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 PURPOSE : - extract the param(s) of an AT command from command line
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 and put it into T_LEDIT_ATCMD member param
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 - can be empty
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 static T_LEDIT_RSLT ledit_assign_param (T_LEDIT_INTERN *leditInt, T_LEDIT_PARAM_TYPE pType)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 int len = 0;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 #ifdef _SIMULATION_
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 TRACE_FUNCTION("ledit_assign_param()");
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 #endif
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 if (pType EQ LEDIT_BASIC_PARAM)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 len = ledit_get_para_len (leditInt, SEARCH_BAT_LEN);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 else
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 if (pType EQ LEDIT_DIAL_PARAM) /* dial parameter, we need the possible ';' */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 len = ledit_get_para_len (leditInt, SEARCH_DIAL_LEN);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 * If there were any 'g' or 'i' characters in a dial string that have
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 * been turned into 'G' or 'I' characters on conversion to upper case
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 * by the ledit_collect function...
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 * Turn them back into the lower case characters so that they affect
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 * CUG and CLIR in the way they were intended to.
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 ledit_restore_dial_string ( &leditInt->execBuffer[leditInt->execBufIter],
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 len,
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 leditInt->origBuffer,
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 strlen(leditInt->origBuffer));
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 else /* extended AT cmd params */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 len = ledit_get_para_len (leditInt, SEARCH_EXT_LEN);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 if(ledit_get_memory (&(leditInt->cmdm), len+1, 0) EQ LEDIT_FAIL)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 leditInt->err.code = LEDIT_ERR_NoMemory;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 leditInt->err.msg = ledit_err[LEDIT_ERR_NoMemory].msg;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 return LEDIT_FAIL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 memcpy (leditInt->cmdm->cmd->params, leditInt->execBuffer+leditInt->execBufIter, len);
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 *(leditInt->cmdm->cmd->params+len) = '\0';
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 * update iterator in execBuffer
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 * for extended cmds skip the ';'
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 if (pType EQ LEDIT_EXT_PARAM)
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 if (leditInt->execBuffer[leditInt->execBufIter+len] EQ '\0')
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 leditInt->execBufIter += len;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 else
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 leditInt->execBufIter += len+1; /* skip the ';' */
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 else
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 {
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 leditInt->execBufIter += len;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 return LEDIT_CMPL;
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 }
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 /*
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 +--------------------------------------------------------------------+
53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 \| PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB \|

162

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

1 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

3 | Project :

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

4 | Modul : line

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

8 |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

10 | Instruments Berlin, AG

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

15 | Texas Instruments Berlin, AG.

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

17 | Purpose : This modul ...

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

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

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

19 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

20

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

21 #include <stdio.h>

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

22 #include <stdlib.h>

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

23 #include <string.h>

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

24 #include <ctype.h>

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

25

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

26 #include "typedefs.h"

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

27 #include "vsi.h"

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

28 #include "pei.h"

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

29 #include "aci_mem.h"

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

30 #include "P_ACI.val"

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

31

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

32 #include "line_edit.h"

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

33 #include "line_edit_intern.h"

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

34 #include "line_split_intern.h"

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

35

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

36 static T_LEDIT_CHAR_TYPE ledit_lookAhead (char c);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

37 static UBYTE ledit_check_valid_basic_cmd (char c);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

38 static UBYTE ledit_check_valid_and_cmd (char c);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

39 static USHORT ledit_get_para_len (T_LEDIT_INTERN *leditInt, USHORT searchLen);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

40 static USHORT ledit_get_name_len (T_LEDIT_INTERN *leditInt, T_LEDIT_NAME_TYPE nType);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

41 static T_LEDIT_RSLT ledit_get_memory (T_LEDIT_ATCMD_M **cmdm, int size, int name);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

42 static T_LEDIT_RSLT ledit_get_cmd_mem (T_LEDIT_INTERN *leditInt);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

43 static T_LEDIT_RSLT ledit_assign_name (T_LEDIT_INTERN *leditInt, int len);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

44 static T_LEDIT_RSLT ledit_assign_param (T_LEDIT_INTERN *leditInt, T_LEDIT_PARAM_TYPE pType);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

45 static T_LEDIT_ATCMD_SUBTYPE ledit_extended_type (T_LEDIT_INTERN *leditInt);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

46 static T_LEDIT_RSLT ledit_extended_cmd (T_LEDIT_INTERN *leditInt);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

47 static T_LEDIT_RSLT ledit_s_cmd (T_LEDIT_INTERN *leditInt);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

48 static T_LEDIT_RSLT ledit_dial (T_LEDIT_INTERN *leditInt);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

49 static T_LEDIT_RSLT ledit_and_basic_cmd (T_LEDIT_INTERN *leditInt);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

50 static T_LEDIT_RSLT ledit_basic_cmd (T_LEDIT_INTERN *leditInt);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

51

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

52 static T_LEDIT_RSLT ledit_restore_dial_string (char *procDialString,

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

53 int procDialStringLen,

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

54 char *origCommandLine,

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

55 int origCommandLineLen);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

56

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

57

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

58 static const UBYTE basic_ATcmd [26][2] =

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

59 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

60 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* A */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

61 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* B */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

62 {BATCMD_NO_SUPP, ANDCMD_SUPPORT}, /* C */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

63 {BATCMD_DIAL , ANDCMD_SUPPORT}, /* D <---- SPECIAL */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

64 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* E */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

65 {BATCMD_SUPPORT, ANDCMD_SUPPORT}, /* F */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

66 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* G */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

67 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* H */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

68 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* I */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

69 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* J */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

70 {BATCMD_NO_SUPP, ANDCMD_SUPPORT}, /* K */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

71 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* L */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

72 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* M */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

73 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* N */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

74 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* O */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

75 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* P */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

76 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* Q */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

77 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* R */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

78 {BATCMD_S_PARAM, ANDCMD_NO_SUPP}, /* S <---- SPECIAL */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

79 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* T */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

80 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* U */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

81 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* V */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

82 {BATCMD_SUPPORT, ANDCMD_SUPPORT}, /* W */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

83 {BATCMD_SUPPORT, ANDCMD_NO_SUPP}, /* X */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

84 {BATCMD_NO_SUPP, ANDCMD_NO_SUPP}, /* Y */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

85 {BATCMD_SUPPORT, ANDCMD_NO_SUPP} /* Z */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

86 };

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

87

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

88

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

89 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

90 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

91 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

92 | STATE : code ROUTINE : ledit_check_valid_basic_cmd |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

93 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

94

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

95 PURPOSE : -

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

96 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

97 static UBYTE ledit_check_valid_basic_cmd (char c)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

98 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

99 return basic_ATcmd [(int)(c-'A')][0];

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

100 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

101

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

102 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

103 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

104 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

105 | STATE : code ROUTINE : ledit_check_valid_and_cmd |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

106 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

107

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

108 PURPOSE : -

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

109 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

110 static UBYTE ledit_check_valid_and_cmd (char c)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

111 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

112 return basic_ATcmd [(int)(c-'A')][1];

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

113 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

114

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

115

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

116 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

117 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

118 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

119 | STATE : code ROUTINE : ledit_lookAhead |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

120 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

121

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

122 PURPOSE : - qualify the character at the look ahead position

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

123 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

124

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

125 static T_LEDIT_CHAR_TYPE ledit_lookAhead (char c)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

126 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

127 if (c EQ '\0')

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

128 return LEDIT_CHAR_TERMINATED;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

129

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

130 switch (c)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

131 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

132 case '%':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

133 return LEDIT_CHAR_PERCENT;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

134 case '&':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

135 return LEDIT_CHAR_AND;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

136 case '+':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

137 return LEDIT_CHAR_PLUS;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

138 case ',':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

139 return LEDIT_CHAR_COMMA;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

140 case '=':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

141 return LEDIT_CHAR_SET;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

142 case ';':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

143 return LEDIT_CHAR_SEPARATOR;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

144 case '?':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

145 return LEDIT_CHAR_READ;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

146 default:

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

147 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

148 if ((c-'0') < 10 AND (c - '0') >=0)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

149 return LEDIT_CHAR_NUMBER;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

150 if ((c>='A') && (c<='Z'))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

151 return LEDIT_CHAR_CHAR;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

152 if (((c >= '!') AND (c <= '_')) OR ((c >= 123) AND ((unsigned char)c <= 127)))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

153 /*the rest of characters*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

154 return LEDIT_CHAR_EXT;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

155 return LEDIT_CHAR_INVALID;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

156 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

157 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

158 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

159

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

160

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

161 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

162 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

163 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

164 | STATE : code ROUTINE : ledit_get_para_len |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

165 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

166

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

167 PURPOSE : - calculate length of an AT command parameter

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

168 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

169 static USHORT ledit_get_para_len (T_LEDIT_INTERN *leditInt, USHORT searchLen)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

170 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

171 USHORT i = 0;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

172 #ifdef _SIMULATION_

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

173 TRACE_FUNCTION("ledit_get_para_len()");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

174 #endif

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

175 if (searchLen EQ SEARCH_BAT_LEN)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

176 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

177 /* basic AT command can have numbers only e.g.: ATF123 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

178 i = leditInt->execBufIter; /* start with first number */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

179 while (isdigit(leditInt->execBuffer[i]))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

180 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

181 ++i;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

182 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

183 return (i - leditInt->execBufIter);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

184 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

185 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

186 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

187 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

188 * dial string finish with ';'

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

189 * extended AT command is terminated by ';' or by '\0' if last one in cmd line

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

190 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

191 i = leditInt->execBufIter;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

192

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

193 while (';' != leditInt->execBuffer[i])

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

194 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

195 ++i;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

196 if (leditInt->execBuffer[i] EQ '\0')

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

197 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

198 break;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

199 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

200 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

201 if ((searchLen EQ SEARCH_DIAL_LEN) AND (';' EQ leditInt->execBuffer[i]))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

202 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

203 ++i; /* for dial the ';' is important */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

204 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

205 return (i - leditInt->execBufIter);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

206 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

207 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

208

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

209 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

210 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

211 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

212 | STATE : code ROUTINE : ledit_get_name_len |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

213 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

214

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

215 PURPOSE : - get the length of an extended AT command or ATSnn where nn := 0..99

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

216 extended name starts with '+', '%', '$' ... or every other char which is not [a-zA-Z][0-9]

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

217 after prefix must start with [A-Z] and then up to further 15 characters

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

218 of [A-Z][0-9]!%-./:_ according to V.25 ter chapter 5.4.1

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

219 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

220 static USHORT ledit_get_name_len (T_LEDIT_INTERN *leditInt, T_LEDIT_NAME_TYPE nType)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

221 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

222 USHORT i = leditInt->execBufIter;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

223

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

224 if (nType EQ LEDIT_EXT_NAME)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

225 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

226 ++i; /* skip prefix of extended name */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

227 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

228 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

229 * first char (after extended prefix) must be [A-Z] (to capital letter done by ledit_collect())

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

230 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

231 if (isupper (leditInt->execBuffer[i]))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

232 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

233 while (leditInt->execBuffer[i])

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

234 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

235 if ((nType EQ LEDIT_S_NAME) AND (i > leditInt->execBufIter))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

236 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

237 if (isdigit(leditInt->execBuffer[i]) EQ 0)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

238 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

239 return 0; /* invalid name for ATSnn, where nn must be [0-9]+ */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

240 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

241 if ((i - leditInt->execBufIter) > LEDIT_MAX_S_NAME_LEN)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

242 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

243 return 0; /* invalid name for ATSnn, where nn is too large */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

244 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

245 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

246 ++i;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

247 switch (leditInt->execBuffer[i])

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

248 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

249 case '\0':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

250 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

251 return (i - leditInt->execBufIter);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

252 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

253 case '=':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

254 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

255 if (leditInt->execBuffer[i+1] NEQ '?')

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

256 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

257 return (i - leditInt->execBufIter);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

258 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

259 else /* AT+XXX=? */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

260 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

261 if ((leditInt->execBuffer[i+2] NEQ '\0') AND (leditInt->execBuffer[i+2] NEQ ';'))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

262 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

263 return 0; /* after =? must be ';' or terminated */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

264 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

265 return (i - leditInt->execBufIter);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

266 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

267 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

268 case '?':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

269 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

270 if ((leditInt->execBuffer[i+1] NEQ '\0') AND (leditInt->execBuffer[i+1] NEQ ';'))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

271 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

272 return 0; /* after ? must be ';' or terminated */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

273 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

274 return (i - leditInt->execBufIter);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

275 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

276 case ';':

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

277 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

278 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

279 * there are several extended AT cmds without "=parameter" or "=?" or "?" after the name, e.g.: +CGMM;+CGMI;+CGMR;+CGSN;...

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

280 * the ";" after the name will be parsed in ledit_get_para_len()

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

281 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

282 return (i - leditInt->execBufIter);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

283 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

284 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

285 } /* end of while (leditInt->execBuffer[i]) */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

286 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

287 return 0; /* invalid name */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

288 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

289

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

290

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

291 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

292 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

293 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

294 | STATE : code ROUTINE : ledit_free_cmd |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

295 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

296

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

297 PURPOSE : -

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

298 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

299 void ledit_free_cmd (T_LEDIT_INTERN *leditInt)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

300 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

301

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

302 T_LEDIT_ATCMD_M *tmp = NULL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

303 #ifdef _SIMULATION_

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

304 TRACE_FUNCTION("ledit_free_cmd()");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

305 #endif

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

306 while (leditInt->cmdm)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

307 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

308 tmp = leditInt->cmdm->next;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

309 if (leditInt->cmdm->cmd)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

310 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

311 if (leditInt->cmdm->cmd->name)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

312 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

313 ACI_MFREE(leditInt->cmdm->cmd->name);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

314 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

315 if (leditInt->cmdm->cmd->params)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

316 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

317 ACI_MFREE (leditInt->cmdm->cmd->params);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

318 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

319 ACI_MFREE (leditInt->cmdm->cmd);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

320 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

321 /* if (leditInt->cmdm) ... always true */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

322 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

323 ACI_MFREE (leditInt->cmdm);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

324 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

325 leditInt->cmdm = tmp;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

326 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

327 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

328

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

329

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

330 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

331 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

332 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

333 | STATE : code ROUTINE : ledit_get_cmd_mem |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

334 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

335

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

336 PURPOSE : - allocate some memory for T_LEDIT_ATCMD

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

337 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

338

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

339 static T_LEDIT_RSLT ledit_get_cmd_mem (T_LEDIT_INTERN *leditInt)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

340 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

341 ACI_MALLOC(leditInt->cmdm,sizeof(T_LEDIT_ATCMD_M));

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

342 if (leditInt->cmdm EQ NULL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

343 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

344 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

345 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

346 memset(leditInt->cmdm, '\0', sizeof(T_LEDIT_ATCMD_M));

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

347 leditInt->cmdm->next = NULL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

348

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

349 ACI_MALLOC(leditInt->cmdm->cmd,sizeof(T_LEDIT_ATCMD));

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

350 if (leditInt->cmdm->cmd EQ NULL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

351 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

352 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

353 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

354 memset(leditInt->cmdm->cmd, '\0', sizeof(T_LEDIT_ATCMD));

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

355

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

356 leditInt->cmdm->cmd->type.mType = LEDIT_ATCMD_NIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

357 leditInt->cmdm->cmd->type.sType = (T_LEDIT_ATCMD_SUBTYPE) LEDIT_ATCMD_NIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

358 /* Initializing flag here BUG 11920 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

359 leditInt->cmdm->cmd->type.append_Flag = FALSE;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

360 leditInt->cmdm->cmd->name = NULL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

361 leditInt->cmdm->cmd->params = NULL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

362 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

363 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

364

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

365 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

366 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

367 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

368 | STATE : code ROUTINE : ledit_get_memory |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

369 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

370

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

371 PURPOSE : - allocate some memory (for char *)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

372 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

373

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

374 static T_LEDIT_RSLT ledit_get_memory (T_LEDIT_ATCMD_M **cmdm, int size, int name)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

375 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

376

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

377 T_LEDIT_ATCMD_M **tmp = cmdm;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

378 if (name)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

379 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

380 ACI_MALLOC((*tmp)->cmd->name,size * sizeof(char));

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

381 if ((*tmp)->cmd->name EQ NULL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

382 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

383 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

384 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

385 (*tmp)->cmd->name[0]='\0';

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

386 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

387 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

388 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

389 ACI_MALLOC((*tmp)->cmd->params,size * sizeof(char));

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

390 if ((*tmp)->cmd->params EQ NULL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

391 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

392 TRACE_FUNCTION("ledit_get_memory(): returning fail");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

393 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

394 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

395 (*tmp)->cmd->params[0]='\0';

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

396 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

397 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

398 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

399

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

400

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

401 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

402 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

403 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

404 | STATE : code ROUTINE : ledit_assign_name |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

405 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

406

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

407 PURPOSE : - extract the name of an AT command from command line

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

408 and put it into T_LEDIT_ATCMD member name

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

409 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

410

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

411 static T_LEDIT_RSLT ledit_assign_name (T_LEDIT_INTERN *leditInt, int len)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

412 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

413 if(ledit_get_memory (&(leditInt->cmdm), len+1, 1) EQ LEDIT_FAIL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

414 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

415 leditInt->err.code = LEDIT_ERR_NoMemory;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

416 leditInt->err.msg = ledit_err[LEDIT_ERR_NoMemory].msg;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

417 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

418 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

419 memcpy (leditInt->cmdm->cmd->name, leditInt->execBuffer+leditInt->execBufIter, len);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

420 *(leditInt->cmdm->cmd->name+len) = '\0'; /* terminate name */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

421 leditInt->execBufIter += len; /* update iterator in execBuffer */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

422 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

423 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

424

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

425 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

426 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

427 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

428 | STATE : code ROUTINE : ledit_assign_param |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

429 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

430

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

431 PURPOSE : - extract the param(s) of an AT command from command line

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

432 and put it into T_LEDIT_ATCMD member param

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

433 - can be empty

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

434 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

435

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

436 static T_LEDIT_RSLT ledit_assign_param (T_LEDIT_INTERN *leditInt, T_LEDIT_PARAM_TYPE pType)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

437 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

438 int len = 0;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

439 #ifdef _SIMULATION_

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

440 TRACE_FUNCTION("ledit_assign_param()");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

441 #endif

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

442 if (pType EQ LEDIT_BASIC_PARAM)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

443 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

444 len = ledit_get_para_len (leditInt, SEARCH_BAT_LEN);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

445 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

446 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

447 if (pType EQ LEDIT_DIAL_PARAM) /* dial parameter, we need the possible ';' */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

448 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

449 len = ledit_get_para_len (leditInt, SEARCH_DIAL_LEN);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

450 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

451 * If there were any 'g' or 'i' characters in a dial string that have

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

452 * been turned into 'G' or 'I' characters on conversion to upper case

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

453 * by the ledit_collect function...

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

454 * Turn them back into the lower case characters so that they affect

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

455 * CUG and CLIR in the way they were intended to.

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

456 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

457 ledit_restore_dial_string ( &leditInt->execBuffer[leditInt->execBufIter],

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

458 len,

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

459 leditInt->origBuffer,

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

460 strlen(leditInt->origBuffer));

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

461 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

462 else /* extended AT cmd params */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

463 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

464 len = ledit_get_para_len (leditInt, SEARCH_EXT_LEN);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

465 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

466 if(ledit_get_memory (&(leditInt->cmdm), len+1, 0) EQ LEDIT_FAIL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

467 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

468 leditInt->err.code = LEDIT_ERR_NoMemory;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

469 leditInt->err.msg = ledit_err[LEDIT_ERR_NoMemory].msg;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

470 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

471 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

472 memcpy (leditInt->cmdm->cmd->params, leditInt->execBuffer+leditInt->execBufIter, len);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

473 *(leditInt->cmdm->cmd->params+len) = '\0';

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

474

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

475 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

476 * update iterator in execBuffer

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

477 * for extended cmds skip the ';'

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

478 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

479 if (pType EQ LEDIT_EXT_PARAM)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

480 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

481 if (leditInt->execBuffer[leditInt->execBufIter+len] EQ '\0')

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

482 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

483 leditInt->execBufIter += len;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

484 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

485 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

486 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

487 leditInt->execBufIter += len+1; /* skip the ';' */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

488 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

489 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

490 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

491 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

492 leditInt->execBufIter += len;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

493 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

494

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

495 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

496 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

497

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

498 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

499 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

500 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

501 | STATE : code ROUTINE : ledit_extended_type |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

502 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

503

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

504 PURPOSE : -

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

505 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

506 static T_LEDIT_ATCMD_SUBTYPE ledit_extended_type (T_LEDIT_INTERN *leditInt)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

507 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

508 #ifdef _SIMULATION_

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

509 TRACE_FUNCTION("ledit_extended_type()");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

510 #endif

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

511 switch (ledit_lookAhead(leditInt->execBuffer[leditInt->execBufIter]))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

512 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

513 case LEDIT_CHAR_SET:

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

514 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

515 ++(leditInt->execBufIter);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

516 if (ledit_lookAhead(leditInt->execBuffer[leditInt->execBufIter]) EQ LEDIT_CHAR_READ)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

517 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

518 ++(leditInt->execBufIter);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

519 /*Setting flag as 1*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

520 leditInt->cmdm->cmd->type.append_Flag = TRUE;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

521 /* bug 11920*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

522 return LEDIT_ATCMD_TEST;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

523 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

524 /*Setting flag as 1*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

525 leditInt->cmdm->cmd->type.append_Flag = TRUE;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

526 /* bug 11920*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

527 return LEDIT_ATCMD_SET;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

528 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

529 case LEDIT_CHAR_READ:

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

530 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

531 ++(leditInt->execBufIter);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

532 /*Setting flag as 1*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

533 leditInt->cmdm->cmd->type.append_Flag = TRUE;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

534 /* bug 11920*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

535 return LEDIT_ATCMD_QUERY;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

536 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

537 default:

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

538 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

539 /* return LEDIT_ATCMD_NIL; */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

540 /*Setting flag as 0.

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

541 These types need not be appended with the characters later on while reconstructing

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

542 command in leedit_fwrd_extension*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

543 leditInt->cmdm->cmd->type.append_Flag = FALSE;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

544 /* bug 11920*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

545

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

546 return LEDIT_ATCMD_SET; /* if after name no parameters e.g.: AT+CMGL; */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

547 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

548 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

549 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

550

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

551 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

552 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

553 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

554 | STATE : code ROUTINE : ledit_extended_cmd |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

555 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

556

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

557 PURPOSE : - split cmd line into single canonical commands

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

558 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

559 static T_LEDIT_RSLT ledit_extended_cmd (T_LEDIT_INTERN *leditInt)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

560 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

561 int len = 0;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

562 #ifdef _SIMULATION_

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

563 TRACE_FUNCTION ("ledit_extended_cmd()");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

564 #endif

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

565 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

566 * get name lenght

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

567 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

568 len = ledit_get_name_len (leditInt, LEDIT_EXT_NAME);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

569 if(len)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

570 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

571 if (ledit_assign_name(leditInt, len) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

572 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

573 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

574 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

575 leditInt->cmdm->cmd->type.mType = LEDIT_ATCMD_EXTENDED;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

576 leditInt->cmdm->cmd->type.sType = ledit_extended_type(leditInt);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

577 if (ledit_assign_param (leditInt, LEDIT_EXT_PARAM) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

578 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

579 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

580 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

581 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

582 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

583 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

584 leditInt->err.code = LEDIT_ERR_NoValidCommand;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

585 leditInt->err.msg = ledit_err[LEDIT_ERR_NoValidCommand].msg;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

586 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

587 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

588 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

589 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

590

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

591 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

592 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

593 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

594 | STATE : code ROUTINE : ledit_s_cmd |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

595 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

596

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

597 PURPOSE : - special basic AT command ATS

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

598 with own syntax similiar to extended AT commands

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

599 e.g.: ATS0? <-- query register S0

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

600 ATS0=123 <-- set new value for register S0

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

601 but the parameter is basic cmd like

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

602 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

603 static T_LEDIT_RSLT ledit_s_cmd (T_LEDIT_INTERN *leditInt)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

604 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

605 int len = 0;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

606 #ifdef _SIMULATION_

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

607 TRACE_FUNCTION ("ledit_s_cmd()");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

608 #endif

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

609 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

610 * get name length, support for up to ATS99, but not ATS100 !

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

611 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

612 len = ledit_get_name_len (leditInt, LEDIT_S_NAME);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

613 if(len)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

614 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

615 if (ledit_assign_name(leditInt, len) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

616 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

617 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

618 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

619 leditInt->cmdm->cmd->type.mType = LEDIT_ATCMD_S;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

620 leditInt->cmdm->cmd->type.sType = ledit_extended_type(leditInt); /* after Sx must be [?|=] */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

621 if (ledit_assign_param (leditInt, LEDIT_BASIC_PARAM) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

622 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

623 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

624 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

625 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

626 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

627 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

628 leditInt->err.code = LEDIT_ERR_NoValidCommand;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

629 leditInt->err.msg = ledit_err[LEDIT_ERR_NoValidCommand].msg;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

630 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

631 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

632 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

633 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

634

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

635 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

636 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

637 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

638 | STATE : code ROUTINE : ledit_dial |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

639 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

640

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

641 PURPOSE : - ATD12345; , but also ATD(030)12345; or ATD!; ATD@; ...

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

642 - semantic of ATD paramter has to be checked by ATI

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

643 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

644 static T_LEDIT_RSLT ledit_dial (T_LEDIT_INTERN *leditInt)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

645 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

646 #ifdef _SIMULATION_

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

647 TRACE_FUNCTION ("ledit_dial()");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

648 #endif

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

649 leditInt->cmdm->cmd->type.mType = LEDIT_ATCMD_DIAL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

650 leditInt->cmdm->cmd->type.sType = LEDIT_ATCMD_SET;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

651 /*Setting flag as 0*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

652 leditInt->cmdm->cmd->type.append_Flag = FALSE;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

653 /*Issue 11920*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

654 if (ledit_assign_name(leditInt, 1) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

655 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

656 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

657 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

658 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

659 * dial paramter ends with ';' -> LEDIT_EXT_PARAM

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

660 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

661 if (ledit_assign_param (leditInt, LEDIT_DIAL_PARAM) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

662 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

663 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

664 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

665 if (leditInt->execBuffer[leditInt->execBufIter])

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

666 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

667 return LEDIT_FAIL; /* dial command is not the last on cmd line */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

668 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

669 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

670 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

671

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

672

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

673 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

674 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

675 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

676 | STATE : code ROUTINE : ledit_and_basic_cmd |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

677 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

678

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

679 PURPOSE : -

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

680 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

681 static T_LEDIT_RSLT ledit_and_basic_cmd (T_LEDIT_INTERN *leditInt)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

682 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

683 USHORT rv = ANDCMD_NO_SUPP;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

684 #ifdef _SIMULATION_

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

685 TRACE_FUNCTION ("ledit_and_basic_cmd()");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

686 #endif

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

687 ++(leditInt->execBufIter); /* skip the & */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

688

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

689 rv = ledit_check_valid_and_cmd (leditInt->execBuffer[leditInt->execBufIter]);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

690 if(rv EQ ANDCMD_SUPPORT)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

691 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

692 leditInt->cmdm->cmd->type.mType = LEDIT_ATCMD_AND;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

693 leditInt->cmdm->cmd->type.sType = LEDIT_ATCMD_QUERY;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

694

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

695 /*Setting flag as 0*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

696 leditInt->cmdm->cmd->type.append_Flag = FALSE;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

697 /* bug 11920*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

698

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

699 if (ledit_assign_name(leditInt, 1) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

700 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

701 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

702 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

703 if (ledit_assign_param (leditInt, LEDIT_BASIC_PARAM) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

704 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

705 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

706 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

707 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

708 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

709 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

710 leditInt->err.code = LEDIT_ERR_NoValidCommand;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

711 leditInt->err.msg = ledit_err[LEDIT_ERR_NoValidCommand].msg;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

712 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

713 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

714 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

715 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

716 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

717 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

718 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

719 | STATE : code ROUTINE : ledit_basic_cmd |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

720 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

721

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

722 PURPOSE : - check for basic command

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

723 - check for dial command

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

724 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

725 static T_LEDIT_RSLT ledit_basic_cmd (T_LEDIT_INTERN *leditInt)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

726 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

727 USHORT rv = BATCMD_NO_SUPP;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

728 #ifdef _SIMULATION_

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

729 TRACE_FUNCTION ("ledit_basic_cmd()");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

730 #endif

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

731 rv = ledit_check_valid_basic_cmd (leditInt->execBuffer[leditInt->execBufIter]);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

732 if (rv EQ BATCMD_SUPPORT)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

733 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

734 leditInt->cmdm->cmd->type.mType = LEDIT_ATCMD_BASIC;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

735 leditInt->cmdm->cmd->type.sType = LEDIT_ATCMD_SET;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

736

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

737 /* Setting flag as 0*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

738 leditInt->cmdm->cmd->type.append_Flag = FALSE;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

739 /* Issue 11920*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

740

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

741 if (ledit_assign_name(leditInt, 1) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

742 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

743 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

744 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

745 if (ledit_assign_param (leditInt, LEDIT_BASIC_PARAM) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

746 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

747 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

748 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

749 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

750 else if (rv EQ BATCMD_DIAL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

751 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

752 if (ledit_dial(leditInt) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

753 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

754 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

755 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

756 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

757 else if (rv EQ BATCMD_S_PARAM)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

758 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

759 if (ledit_s_cmd(leditInt) NEQ LEDIT_CMPL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

760 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

761 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

762 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

763 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

764 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

765 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

766 leditInt->err.code = LEDIT_ERR_NoValidCommand;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

767 leditInt->err.msg = ledit_err[LEDIT_ERR_NoValidCommand].msg;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

768 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

769 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

770 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

771 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

772

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

773

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

774 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

775 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

776 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

777 | STATE : code ROUTINE : ledit_split |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

778 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

779

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

780 PURPOSE : - split cmd line into single canonical commands

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

781 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

782 T_LEDIT_RSLT ledit_split (T_LEDIT_INTERN *leditInt)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

783 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

784

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

785 char c = leditInt->execBuffer[leditInt->execBufIter];

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

786 TRACE_FUNCTION("ledit_split");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

787

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

788 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

789 * check first character of a command: has to be valid basic command letter, "&" or

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

790 * any extension sign "+", "%" , "$" or what ever else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

791 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

792 if(c)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

793 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

794 if (ledit_get_cmd_mem (leditInt) EQ LEDIT_FAIL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

795 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

796 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

797 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

798 if (isalpha(c))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

799 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

800 if (ledit_basic_cmd (leditInt) EQ LEDIT_FAIL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

801 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

802 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

803 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

804 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

805 else if (c EQ '&')

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

806 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

807 if (ledit_and_basic_cmd (leditInt) EQ LEDIT_FAIL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

808 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

809 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

810 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

811 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

812 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

813 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

814 if (ledit_extended_cmd (leditInt) EQ LEDIT_FAIL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

815 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

816 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

817 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

818 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

819

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

820 /* here we should peek into the next character to see if command is valid */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

821 switch (ledit_lookAhead(leditInt->execBuffer[leditInt->execBufIter]))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

822 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

823 /* legal characters */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

824 case LEDIT_CHAR_PERCENT: /* '%' */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

825 case LEDIT_CHAR_AND: /* '&' */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

826 case LEDIT_CHAR_PLUS: /* '+' */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

827 case LEDIT_CHAR_CHAR: /* 'A' symbolic for A..Z*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

828 case LEDIT_CHAR_EXT: /*The rest of the characters*/

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

829 leditInt->cmdIndex++; /* More commands will follow */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

830 /*lint -fallthrough */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

831 case LEDIT_CHAR_TERMINATED: /* '\0' */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

832 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

833

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

834 /* illegal characters */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

835 #if 0

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

836 case LEDIT_CHAR_COMMA: /* ',' */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

837 case LEDIT_CHAR_NUMBER: /* '0' symbolic for 0..9 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

838 case LEDIT_CHAR_SEPARATOR: /* ';' */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

839 case LEDIT_CHAR_SET: /* '=' */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

840 case LEDIT_CHAR_READ: /* '?' */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

841 case LEDIT_CHAR_INVALID:

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

842 #endif

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

843 default:

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

844 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

845 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

846 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

847 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

848 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

849 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

850 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

851 TRACE_ERROR ("ledit_split: unexp. EOF execBuffer");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

852 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

853 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

854 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

855

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

856 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

857 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

858 | PROJECT : GSM-F&D (8411) MODULE : LINE_EDIT_LIB |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

859 | STATE : code ROUTINE : ledit_restore_dial_string |

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

860 +--------------------------------------------------------------------+

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

861

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

862 PURPOSE : -

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

863 If there were any 'g' or 'i' characters in a dial string that have

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

864 been turned into 'G' or 'I' characters on conversion to upper case

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

865 by the ledit_collect function...

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

866 Turn them back into the lower case characters so that they affect

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

867 CUG and CLIR in the way they were intended to.

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

868 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

869 static T_LEDIT_RSLT ledit_restore_dial_string (char *procDialString,

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

870 int procDialStringLen,

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

871 char *origCommandLine,

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

872 int origCommandLineLen)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

873 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

874 int procDialStringIndex = 0; /* Loop index to procDialString array */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

875 int origCommandLineIndex = 0; /* Loop index to origCommandLine array */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

876 char *origDialString; /* Pointer to original dial string array in origCommandLine */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

877 int origDialStringIndex; /* Loop index to origDialString array */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

878

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

879 TRACE_FUNCTION("ledit_restore_dial_string");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

880

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

881 if ((procDialString == NULL) OR

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

882 (procDialStringLen == 0) OR

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

883 (origCommandLine == NULL) OR

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

884 (origCommandLineLen == 0))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

885 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

886 TRACE_ERROR("FAILURE: Invalid parameter");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

887 if (procDialString == NULL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

888 TRACE_EVENT_P1("procDialString = %p", procDialString);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

889 if (procDialStringLen == 0)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

890 TRACE_EVENT_P1("procDialStringLen = %d", procDialStringLen);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

891 if (origCommandLine == NULL)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

892 TRACE_EVENT_P1("origCommandLine = %p", origCommandLine);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

893 if (origCommandLineLen == 0)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

894 TRACE_EVENT_P1("origCommandLineLen = %d", origCommandLineLen);

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

895 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

896 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

897

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

898 /* Look for a 'G' or 'I' character in the processed dial string */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

899 for (procDialStringIndex = 0;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

900 procDialStringIndex < procDialStringLen;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

901 procDialStringIndex++)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

902 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

903 if ((procDialString[procDialStringIndex] EQ 'G') OR

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

904 (procDialString[procDialStringIndex] EQ 'I'))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

905 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

906 /* 'G' or 'I' found, so we have something to do */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

907 break;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

908 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

909 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

910

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

911 if (procDialStringIndex EQ procDialStringLen)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

912 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

913 /* No 'G' or 'I' found, so we have nothing to do */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

914 TRACE_EVENT("SUCCESS: Nothing to do");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

915 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

916 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

917

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

918 /*

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

919 * Look for the start of the original dial string in the original command

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

920 * line by looking for 'd' or 'D' characters

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

921 */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

922 for (origCommandLineIndex = 0;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

923 origCommandLineIndex < origCommandLineLen;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

924 origCommandLineIndex++)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

925 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

926 if ((origCommandLine[origCommandLineIndex] EQ 'd') OR

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

927 (origCommandLine[origCommandLineIndex] EQ 'D'))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

928 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

929 /* Found the possible start of the original dial string */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

930 origDialString = &origCommandLine[origCommandLineIndex+1];

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

931 origDialStringIndex = 0;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

932

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

933 for (procDialStringIndex = 0;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

934 procDialStringIndex < procDialStringLen;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

935 procDialStringIndex++)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

936 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

937 /* Ignore any spaces in the original dial string */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

938 while (isspace(origDialString[origDialStringIndex]))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

939 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

940 origDialStringIndex++;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

941 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

942

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

943 /* Do we have a matching character? */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

944 if (origDialString[origDialStringIndex] NEQ procDialString[procDialStringIndex])

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

945 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

946 /* No: Is the mismatch just on the alphabetic case? */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

947 if (isalpha(origDialString[origDialStringIndex]) AND

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

948 isalpha(procDialString[procDialStringIndex]) AND

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

949 (toupper(origDialString[origDialStringIndex]) EQ

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

950 toupper(procDialString[procDialStringIndex])))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

951 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

952 /* Yes, so ignore mismatch */;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

953 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

954 else

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

955 { /* No, so not the original dial string */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

956 break;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

957 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

958 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

959 origDialStringIndex++;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

960 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

961

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

962 /* Have we found the original dial string? */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

963 if (procDialStringIndex EQ procDialStringLen)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

964 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

965 /* Yes, so copy 'G'/'g' and 'I'/'i' characters from the original dial string */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

966 origDialStringIndex = 0;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

967 for (procDialStringIndex = 0;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

968 procDialStringIndex < procDialStringLen;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

969 procDialStringIndex++)

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

970 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

971 /* Ignore any spaces in the original dial string */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

972 while (isspace(origDialString[origDialStringIndex]))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

973 {

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

974 origDialStringIndex++;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

975 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

976

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

977 if ((procDialString[procDialStringIndex] EQ 'G') OR

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

978 (procDialString[procDialStringIndex] EQ 'I'))

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

979 { /* Copy the 'G'/'g' or 'I'/'i' character from the original dial string */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

980 procDialString[procDialStringIndex] = origDialString[origDialStringIndex];

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

981 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

982 origDialStringIndex++;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

983 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

984

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

985 TRACE_EVENT("SUCCESS");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

986 return LEDIT_CMPL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

987 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

988 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

989 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

990 /* If we get this far then we haven't found the original dial string */

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

991 TRACE_ERROR("FAILURE: Could not find original dial string");

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

992 return LEDIT_FAIL;

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

993 }

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

994

53929b40109c src/g23m-aci: initial import from TCS3.2/LoCosto

Mychaela Falconia <falcon@freecalypso.org>

parents:

diff changeset

995

FreeCalypso > hg > fc-magnetite

annotate src/g23m-aci/aci/line_split.c @ 162:53929b40109c