fc-magnetite: src/ui3/atb/ATBPbGI.c annotate

author	Mychaela Falconia <falcon@freecalypso.org>
date	Sun, 24 Jun 2018 20:47:42 +0000 (2018-06-24)
parents	e8ddbb0837ed
children

rev	line source
420 e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +--------------------------------------------------------------------+
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| PROJECT: MMI-Framework (8417) $Workfile:: ATBPbGI.c $\|
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 \|
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 +--------------------------------------------------------------------+
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 MODULE : ATBPbGI
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 PURPOSE : This modul contains phonebook management functions using ATB.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 HISTORY:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 Oct 27, 2005 REF: OMAPS 48881 b-nekkare
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 Description: PhoneBook: The modify option under phonebook doesn't
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 work as expected.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 Solution : Change is needed when we initially store the PB entry with
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 a '+' and then we delete the '+' and resave the number again.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 If this is not done we would always end up preserving the TON
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 as INTERNATIONAL type
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 #if defined (NEW_FRAME)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 #include "typedefs.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #include "vsi.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 #include "pei.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #include "custom.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 #include "gsm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 #else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include "STDDEFS.H"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include "custom.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include "gsm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #include "vsi.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 #endif
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include <stdio.h>
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #include <string.h>
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include "mfw_mfw.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #include "mfw_sys.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #include "mfw_phb.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #include "mfw_cm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #include "mfw_ss.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 #include "cus_aci.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 #include "prim.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #include "pcm.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 #include "ATBPb.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 #include "ATBPbGI.h"
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 * LOCAL FUNCTION PROTOTYPES
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 *
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 ******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 void GI_alpha_AlphaToAscii(T_MFW_PHB_TEXT ascii, T_PB_ALPHA alpha, SHORT max_len);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 void GI_alpha_AsciiToAlpha(T_PB_ALPHA alpha, T_MFW_PHB_TEXT ascii, SHORT max_len);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 T_PB_INDEX GI_index_Convert(UBYTE mode);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 $Function: GI_pb_GetPhonebook
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 $Description: Checks to see which file system is selected
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 $Returns: MFW_PHB_OK Action completed OK.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 MFW_PHB_FAIL File write encountered an error
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 $Arguments: intphonebook Place to store type of phonebook selected
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 (TRUE for FFS)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 T_MFW GI_pb_GetPhonebook(UBYTE *intphonebook)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 PB_RET result;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 T_MFW ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 T_PB_TYPE current_type;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 result = ATB_pb_GetPhonebook(PB_BOOK_DEFAULT, &current_type);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 if (current_type==PB_TYPE_FFS)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 *intphonebook = TRUE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 *intphonebook = FALSE;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 if (result==PB_OK)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 ret = MFW_PHB_OK;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 ret = MFW_PHB_FAIL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 return ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 $Function: GI_pb_SetPhonebook
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 $Description: Selects file system
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 $Returns: MFW_PHB_OK Action completed OK.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 MFW_PHB_FAIL File write encountered an error
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 $Arguments: intphonebook TRUE if FFS is to be used
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 T_MFW GI_pb_SetPhonebook(UBYTE intphonebook)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 PB_RET result;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 T_MFW ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 T_PB_TYPE current_type;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 if (intphonebook)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 current_type = PB_TYPE_FFS;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 current_type = PB_TYPE_SIM;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 result = ATB_pb_SetPhonebook((SHORT)PB_BOOK_DEFAULT, current_type);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 if (result==PB_OK)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 ret = MFW_PHB_OK;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 ret = MFW_PHB_FAIL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 return ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 $Function: GI_pb_Initialise
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 $Description: Initialise an instance of phonebook. Dynamically allocates a record
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 cache in RAM. Creates the necessary file(s) if they do not already exist.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 Sorts the phonebook by name and by number, creating the appropriate
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 index tables.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 $Returns: MFW_PHB_OK
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 MFW_PHB_FAIL
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 $Arguments: None
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 T_MFW GI_pb_Initialise(void)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 PB_RET result;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 T_MFW ret=MFW_PHB_FAIL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 tracefunction("GI_pb_Initialise");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 result = ATB_pb_Initialise(PB_BOOK_DEFAULT, PB_TYPE_FFS, PB_RECORDS_MAX,
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 PB_CACHE_MAX, PB_ALPHATAG_MAX, PB_NUMBER_MAX, PB_EXT_MAX);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 switch(result)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 case PB_OK:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 ret = MFW_PHB_OK;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 case PB_EXCT:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 ret = MFW_PHB_OK;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 case PB_BOOKALREADYEXISTS:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 ret = MFW_PHB_FAIL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 return ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 $Function: GI_pb_Exit
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 $Description: Frees memory associated with phonebook. To be called when the
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 phonebook is no longer required, or at shutdown.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 $Returns: MFW_PB_OK Action completed OK.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 $Arguments: None
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 T_MFW GI_pb_Exit(void)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 tracefunction("GI_pb_Exit");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 ATB_pb_Exit(PB_BOOK_DEFAULT);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 return MFW_PHB_OK;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 $Function: GI_pb_Info
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 $Description: Returns information about the phonebook, which will be returned
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 in the data structure pointed to by status. The caller must
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 allocate the T_MFW_PHB_STATUS structure.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 $Returns: MFW_PB_OK Action completed OK.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 $Arguments: status Data structure to contain phonebook info
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 void GI_pb_Info(T_MFW_PHB_STATUS *status)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 T_PB_INFO info;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 tracefunction("GI_pb_Info");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 ATB_pb_Info(PB_BOOK_DEFAULT, &info);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 status->book = PHB_IPB;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 status->max_entries = (UBYTE)info.records_max;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 status->used_entries = (UBYTE)info.records_used;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 status->avail_entries = (UBYTE)info.records_free;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 status->tag_len = PHB_MAX_LEN;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 $Function: GI_pb_Status
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 $Description: Returns whether or not the phonebook is busy. If so, stat will contain
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 PHB_BUSY, otherwise PHB_READY.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 $Returns: None
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 $Arguments: stat UBYTE to contain status information
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 void GI_pb_Status(UBYTE *stat)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 tracefunction("GI_pb_Status");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 ATB_pb_Status(PB_BOOK_DEFAULT);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 $Function: GI_pb_WriteRec
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 $Description: Writes a record to the physical position index. If the index is
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 0, a new record is added, otherwise the previous
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 record at that position is overwritten.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 $Returns: MFW_PHB_OK
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 MFW_PHB_FAIL
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 MFW_PHB_FULL
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 $Arguments: entry The phonebook entry to write
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 T_MFW GI_pb_WriteRec(T_MFW_PHB_ENTRY *entry)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 T_MFW ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 PB_RET result;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 SHORT index;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 T_PB_RECORD *record;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 UBYTE *number;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 tracefunction("GI_pb_WriteRec");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 /* Allocate memory for record */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 record = ATB_pb_AllocRec(PB_BOOK_DEFAULT);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 /* If the provided index is 0, we must add new record */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 if (entry->index==0)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 index = PB_NEW_RECORD;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 index = (SHORT)(entry->index-1); /* MFW/ACI indices start at 1, ATB indices start at 0 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 /* Convert name to unicode*/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 record->alpha.dcs = entry->name.dcs;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 record->alpha.length = (UBYTE)entry->name.len;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 GI_alpha_AsciiToAlpha(&record->alpha, &entry->name, PHB_MAX_LEN);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 /* Convert number to BCD */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 record->ton_npi = entry->npi & 0x0F;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 record->ton_npi \|= (entry->ton<<4);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 number = entry->number;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 if (number[0]=='+')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 record->ton_npi &= 0xF0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 record->ton_npi \|= (MFW_TON_INTERNATIONAL<<4);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 number++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 // Oct 27, 2005 REF: OMAPS OMAPS00048881 b-nekkare
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 else if(entry->ton == MFW_TON_INTERNATIONAL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 record->ton_npi = entry->npi & 0x0F;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 record->ton_npi \|= (MFW_TON_UNKNOWN<<4);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 /* Anything else keep as is */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 TRACE_EVENT_P1("ton_npi: %X", record->ton_npi);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 ATB_pb_CharToBCD(record->number, (char *)number, PB_NUMBER_MAX);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 /* Write the record */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 result = ATB_pb_WriteRec(PB_BOOK_DEFAULT, INDEX_PHYSICAL, index, record);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 /* Free allocated record */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 ATB_pb_FreeRec(PB_BOOK_DEFAULT, record);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 switch(result)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 case PB_OK:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 ret = MFW_PHB_OK;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 case PB_BOOKFULL:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 ret = MFW_PHB_FULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 ret = MFW_PHB_FAIL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 return ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 $Function: GI_pb_DeleteRec
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 $Description: Deletes a record at a physical position index.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 $Returns: MFW_PHB_OK
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 MFW_PHB_FAIL
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 $Arguments: index Physical index of the record to delete
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 T_MFW GI_pb_DeleteRec(UBYTE index)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 T_MFW ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 PB_RET result;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 tracefunction("GI_pb_DeleteRec");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 /* MFW/ACI indices start at 1, ATB indices start at 0 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 index--;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 /* Delete record */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 result = ATB_pb_DeleteRec((SHORT)PB_BOOK_DEFAULT, INDEX_PHYSICAL, (SHORT)index);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 switch(result)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 case PB_OK:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 ret = MFW_PHB_OK;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 ret = MFW_PHB_FAIL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 return ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 $Function: GI_pb_Find
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 $Description: Find the nearest match to the supplied record.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 $Returns: MFW_PHB_OK
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 MFW_PHB_FAIL
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 $Arguments: mode Specifies the sorting for the index list
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 index Place to store the index of the matching record
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 num_recs Number of records to read in
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 search_pattern The string or number to match
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 entries Place to store the resulting list of entries
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 T_MFW GI_pb_Find(UBYTE mode, UBYTE index, UBYTE num_recs, T_MFW_PHB_TEXT search_pattern, T_MFW_PHB_LIST *entries)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 PB_RET result;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 T_MFW ret=MFW_PHB_FAIL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 T_PB_INDEX index_type = GI_index_Convert(mode);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 T_PB_RECORD *record;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 SHORT rec_index;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 UBYTE *number;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 tracefunction("GI_pb_Find");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 /* Allocate memory for record */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 record = ATB_pb_AllocRec(PB_BOOK_DEFAULT);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 /* Convert name to unicode, or number to BCD */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 if(index_type==INDEX_NAME)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 GI_alpha_AsciiToAlpha(&record->alpha, search_pattern, PB_ALPHATAG_MAX);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 /* Convert number to BCD */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 number = search_pattern->data;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 if (number[0]=='+')
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 number++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 ATB_pb_CharToBCD(record->number, (char *)number, PB_NUMBER_MAX);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 result = ATB_pb_Find(PB_BOOK_DEFAULT, index_type, record, &rec_index, NULL);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 if (result==PB_OK)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 index = rec_index+1; / MFW/ACI indices start at 1, ATB indices start at 0 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 ret = GI_pb_ReadRecList(mode, (UBYTE)(index), num_recs, entries);/a0393213 warnings removal-result changed to ret*/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 /* Free allocated record */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 ATB_pb_FreeRec(PB_BOOK_DEFAULT, record);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 switch(result)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 case PB_OK:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 /ret = MFW_PHB_OK;//a0393213 warnings removal-commented because of last change for warning/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 ret = MFW_PHB_FAIL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 return ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 $Function: GI_pb_ReadRecList
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 $Description: Read in a list of entries.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 $Returns: MFW_PHB_OK
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 MFW_PHB_FAIL
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 $Arguments: mode Specifies the sorting for the index list
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 index Place to store the index of the matching record
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 num_recs Number of records to read in
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 entries Place to store the resulting list of entries
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 T_MFW GI_pb_ReadRecList(UBYTE mode, UBYTE index, UBYTE num_recs, T_MFW_PHB_LIST *entries)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 PB_RET result;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 T_MFW ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 T_PB_INDEX index_type = GI_index_Convert(mode);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 T_PB_RECORD *record;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 SHORT recs_count;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 tracefunction("GI_pb_ReadRecList");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 /* MFW/ACI indices start at 1, ATB indices start at 0 */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 index--;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500

420

e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code