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

annotate src/ui3/atb/ATBPbGI.c @ 686:59f07d67eb45

luna target split into luna1 and luna2 luna1 is FC Luna based on iWOW DSK v4.0 or v5.0 motherboard luna2 is FC Luna based on FC Caramel2 MB

author	Mychaela Falconia <falcon@freecalypso.org>
date	Mon, 12 Oct 2020 18:51:24 +0000
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
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 /* Allocate memory for record */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 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	504
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 for (recs_count = 0; recs_count<(SHORT)num_recs; recs_count++)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 result = ATB_pb_ReadRec(PB_BOOK_DEFAULT, index_type, (SHORT)(index+recs_count), record);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 if (result!=PB_OK)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 entries->entry[recs_count].book = PHB_IPB;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512 entries->entry[recs_count].index = GI_pb_ConvIndex(index_type, (UBYTE)(index+recs_count), INDEX_PHYSICAL);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 entries->entry[recs_count].ton = (record->ton_npi & 0xF0)>>4;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 entries->entry[recs_count].npi = record->ton_npi & 0x0F;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 GI_alpha_AlphaToAscii(&entries->entry[recs_count].name, &record->alpha, PB_ALPHATAG_MAX);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 ATB_pb_BCDToChar((char *)entries->entry[recs_count].number, record->number, PB_NUMBER_MAX);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 entries->book = PHB_IPB;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 if (recs_count)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 entries->result = MFW_ENTRY_EXIST;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 entries->num_entries = (UBYTE) recs_count;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 /* SPR#1994 - SH - If at least one record is found, result is a success */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 result = PB_OK;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 entries->result = MFW_NO_ENTRY;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 /* Free allocated record */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 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	536
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 switch(result)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 case PB_OK:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 ret = MFW_PHB_OK;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 case PB_RECDOESNOTEXIST:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 ret = MFW_PHB_FAIL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 default:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 ret = MFW_PHB_FAIL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 return ret;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 $Function: GI_pb_ConvIndex
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 $Description: Returns the index in table new_index_type corresponding to the index
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 in table index_type.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 $Returns: The new index
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 $Arguments: index_type The index table of the original index.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 index The original logical index.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 new_index_type The index table required.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 UBYTE GI_pb_ConvIndex(T_PB_INDEX index_type, UBYTE index, T_PB_INDEX new_index_type)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 SHORT new_index;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 tracefunction("GI_pb_ConvIndex");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 ATB_pb_ConvIndex(PB_BOOK_DEFAULT, index_type, (SHORT)index, new_index_type, &new_index);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 /* 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	577
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 if (new_index_type==INDEX_PHYSICAL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 new_index++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 return (UBYTE)new_index;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 /********************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 * Functions called by the ATB PB *
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 ********************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 $Function: GI_pb_OK
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 $Description: This function is called if the requested command executed successfully.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 The param parameter is a pointer to command specific information,
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 when such information is required to be passed from the ATB to the GI.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 See the individual functions for more details.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 $Returns: None.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 $Arguments: phonebook_id The phonebook identifier
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 command_id Identifies the command.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 param Pointer to command-specific information
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 void GI_pb_OK(SHORT phonebook_id, SHORT command_id, void *param)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 trace("GI_pb_OK");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 if (param!=NULL)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 trace_P1("Param is: %d", ((SHORT )param));
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 $Function: GI_pb_Error
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 $Description: This function is called if an error was returned while executing the
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 requested command.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 $Returns: None.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 $Arguments: phonebook_id The phonebook identifier
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 command_id Identifies the command.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629 error_id Identifies the error that occurred.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 void GI_pb_Error(SHORT phonebook_id, SHORT command_id, SHORT error_id)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 trace("GI_pb_Error");
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 trace_P2("*ERROR* - command %d, error %d", command_id, error_id);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 $Function: GI_pb_MemAlloc
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 $Description: Dynamically allocates memory for the phonebook.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 $Returns: The address of the block of allocated memory, or NULL if failed.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650 $Arguments: size - Amount of memory to be allocated in bytes
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 // Dec 22, 2004 REF: CRR MFW-SPR-27847 xnkulkar
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 // Description: MFW memory size variable changed from U16 -> U32
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 // Solution: The use of variable U16 has been replaced with U32
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 UBYTE *GI_pb_MemAlloc(U32 size)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 return mfwAlloc((U32)size);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 $Function: GI_pb_MemFree
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 $Description: Frees dynamically allocated memory.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 $Returns: None
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 $Arguments: mem - Pointer to a block of allocated memory
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 size - Size of the block
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 // Dec 22, 2004 REF: CRR MFW-SPR-27847 xnkulkar
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676 // Description: MFW memory size variable changed from U16 -> U32
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 // Solution: The use of variable U16 has been replaced with U32
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 void GI_pb_MemFree(UBYTE *mem, U32 size)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681 mfwFree(mem, (U32)size);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 $Function: GI_pb_Match
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 $Description: This function allows the user to specify the way in which entries are
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 matched during searching. This provides the capability of searching
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 languages with non-Latin alphabets, or searching through special user
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693 fields.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694 This function attempts a match between two records based on the
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695 field appropriate for the index list, specified in index_type. It returns
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696 a value indicating whether there is no match (MATCH_NONE),
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697 a partial match (MAX_START), or an exact match (MATCH_EXACT).
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698 Note that the contents of the records themselves should not be altered
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699 by this function. The sole result should be a return value that specifies
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 how the first record matches the second. If it is preferred that the
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701 default matching routine is used (i.e match from the start for alpha
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702 tags, match from the end for phone numbers) then MATCH_DEFAULT
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703 should be returned.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705 $Returns: MATCH_DEFAULT, MATCH_EXACT, MATCH_START or MATCH_NONE
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707 $Arguments: record1 The first record to be compared
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 record2 The second record to be compared
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709 index_type Indicator of the field which is to be compared
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713 T_PB_MATCH GI_pb_Match(T_PB_RECORD record1,T_PB_RECORD record2, T_PB_INDEX index_type)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715 return MATCH_DEFAULT;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 $Function: GI_pb_Compare
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 $Description: This function allows the user to specify the way in which entries are
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 compared during sorting. This provides the capability of sorting languages
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725 with non-Latin alphabets, or sorting to alternative orders (for example,
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726 reverse alphabetical).
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727 This function compares two records based on the field appropriate for the
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728 index list, specified in index_type.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 It returns a value indicating whether the first record should come before
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730 or after the second.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 Note that the contents of the records themselves should not be altered by
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 this function. The sole result should be a return value that specifies
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 whether or not the positions of the records should be swapped. If it
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 is preferred that the default comparison routine is used (e.g.Latin
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 alphabetical ascending) then COMPARE_DEFAULT should be returned.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738 $Returns: COMPARE_DEFAULT No comparison made - use the default comparison method
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 COMPARE_FIRSTBEFORE The first record should come before the second record
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740 COMPARE_FIRSTAFTER The first record should come after the second record
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742 $Arguments: record1 The first record to be compared
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743 record2 The second record to be compared
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 index_type Index list to use
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 T_PB_COMPARE GI_pb_Compare (T_PB_RECORD record1,T_PB_RECORD record2, T_PB_INDEX index_type)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 return COMPARE_DEFAULT;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 $Function: GI_pb_GetTable
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758 $Description: If fields other than name and number are required, then index tables
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 must be provided for each field. This function is called when access
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760 to an index table is required for an unknown index type.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 The array provided must be a user-allocated array of type SHORT,
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 records_max in size, e.g.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 static SHORT user_table[RECORDS_MAX];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 return user_table;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768 $Returns: A pointer to an array of SHORTs records_max in size.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 $Arguments: index_type Index list to use
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 SHORT *GI_pb_GetTable (T_PB_INDEX index_type)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 SHORT user_table = NULL; /DUMMY IMPLEMENTATION*/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777 return user_table;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783 $Function: GI_alpha_AlphaToAscii
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 $Description: Convert an alpha tag to an ascii string
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 $Returns: None
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 $Arguments: ascii The ascii string
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 alpha The alpha tag
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 max_len The maximum length of the resulting string
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 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	796 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797 SHORT asciiIndex;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 SHORT alphaIndex;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 /* Unicode entry - swap the low and high bytes, add in 0x80 at start*/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802 ascii->dcs = alpha->dcs;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 if (alpha->dcs == MFW_DCS_UCS2)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806 ascii->data[0] = 0x80;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807 asciiIndex = 1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808 alphaIndex = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 while (alphaIndex<alpha->length && asciiIndex<max_len)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812 ascii->data[asciiIndex++] = (char) (alpha->data[alphaIndex]>>8);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813 ascii->data[asciiIndex++] = (char) (alpha->data[alphaIndex] & 0xFF);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814 alphaIndex++;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 /* Put two NULLs at the end, if there is space */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819 if (asciiIndex<max_len)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820 ascii->data[asciiIndex++] = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 if (asciiIndex<max_len)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 ascii->data[asciiIndex] = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 ascii->len = asciiIndex;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827 /* Ascii entry - convert from unicode */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 asciiIndex = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832 alphaIndex = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 while (alphaIndex<alpha->length && asciiIndex<max_len)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836 ascii->data[asciiIndex++] = (char) (alpha->data[alphaIndex++]);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 /* Put a NULL at the end, if there is space */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841 if (asciiIndex<max_len)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842 ascii->data[asciiIndex] = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844 ascii->len = asciiIndex;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853 $Function: GI_alpha_AsciiToAlpha
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855 $Description: Convert an ascii string to an alpha tag
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857 $Returns: None
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859 $Arguments: alpha The alpha tag
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 ascii The ascii string
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 max_len The maximum length of the resulting string
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	865 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	866 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867 SHORT asciiIndex;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868 SHORT alphaIndex;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870 alpha->dcs = ascii->dcs;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872 /* Unicode entry - swap the low and high bytes, ignore first '0x80' character */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 if (ascii->dcs == MFW_DCS_UCS2)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 asciiIndex = 1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877 alphaIndex = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 while (asciiIndex<ascii->len && alphaIndex<max_len)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881 alpha->data[alphaIndex] = (USHORT) ((ascii->data[asciiIndex]<<8) \| ascii->data[asciiIndex+1]);
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882 alphaIndex=alphaIndex+1;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 asciiIndex=asciiIndex+2;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886 /* Put a NULL at the end, if there is space */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888 if (alphaIndex<max_len)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 alpha->data[alphaIndex] = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892 /* Ascii entry - convert to unicode */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894 else
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896 asciiIndex = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897 alphaIndex = 0;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899 while (asciiIndex<ascii->len && alphaIndex<max_len)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901 alpha->data[alphaIndex++] = (USHORT)ascii->data[asciiIndex++];
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904 /* Put a NULL at the end, if there is space */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906 if (alphaIndex<max_len)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907 alpha->data[alphaIndex] = NULL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910 alpha->length = alphaIndex;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912 return;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916 /*******************************************************************************
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918 $Function: GI_index_Convert
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920 $Description: Convert indexing types from MFW to ATB.
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 $Returns: The ATB indexing type
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 $Arguments: mode The MFW sort mode
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926 *******************************************************************************/
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 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	929 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930 T_PB_INDEX index_type=INDEX_DEFAULT_MAX;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 switch(mode)
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933 {
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934 case MFW_PHB_ALPHA:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 index_type = INDEX_NAME;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937 case MFW_PHB_NUMBER:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938 index_type = INDEX_NUMBER;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940 case MFW_PHB_INDEX:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	941 index_type = INDEX_PHYSICAL; /* NOTE - may not work quite as intended */
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	942 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	943 case MFW_PHB_PHYSICAL:
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	944 index_type = INDEX_PHYSICAL;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	945 break;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	946 }
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	947
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	948 return index_type;
e8ddbb0837ed src/ui3: initial import of TCS3/LoCosto BMI & MFW code Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	949 }

FreeCalypso > hg > fc-magnetite

annotate src/ui3/atb/ATBPbGI.c @ 686:59f07d67eb45