fc-tourmaline: src/ui/atb/ATBPbGI.c annotate

annotate src/ui/atb/ATBPbGI.c @ 75:8697f358f505

backlight rework: Condat light driver accepts levels The present change is another intermediate step on the path toward new FreeCalypso backlight handling. At this intermediate step the Condat light driver accepts 0-255 backlight levels driven by MFW, and puts them out on PWL on Luna development boards. At the same time on C139 it is now possible to turn on the display backlight with or without the keypad bl - the lsb of the 0-255 backlight level controls the keypad bl. MFW presently drives only 0 and 255 backlight levels, thus there is no visible behavioral change yet - but the plan for subsequent stages of this backlight rework is to add a dimmed backlight state (no keypad bl on C139) during active calls.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Sat, 24 Oct 2020 20:44:04 +0000
parents	67bfe9f274f6
children

rev	line source
3 67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +--------------------------------------------------------------------+
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| PROJECT: MMI-Framework (8417) $Workfile:: ATBPbGI.c $\|
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 \|
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 +--------------------------------------------------------------------+
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 MODULE : ATBPbGI
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 PURPOSE : This modul contains phonebook management functions using ATB.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 HISTORY:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 Oct 27, 2005 REF: OMAPS 48881 b-nekkare
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 Description: PhoneBook: The modify option under phonebook doesn't
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 work as expected.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 Solution : Change is needed when we initially store the PB entry with
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 a '+' and then we delete the '+' and resave the number again.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 If this is not done we would always end up preserving the TON
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 as INTERNATIONAL type
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21 #if defined (NEW_FRAME)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23 #include "typedefs.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #include "vsi.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 #include "pei.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #include "custom.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27 #include "gsm.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 #else
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include "STDDEFS.H"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32 #include "custom.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33 #include "gsm.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 #include "vsi.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 #endif
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include <stdio.h>
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39 #include <string.h>
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41 #include "mfw_mfw.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 #include "mfw_sys.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 #include "mfw_phb.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 #include "mfw_cm.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 #include "mfw_ss.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 #include "cus_aci.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 #include "prim.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49 #include "pcm.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 #include "ATBPb.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 #include "ATBPbGI.h"
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 * LOCAL FUNCTION PROTOTYPES
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 *
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58 ******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 T_PB_INDEX GI_index_Convert(UBYTE mode);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 $Function: GI_pb_GetPhonebook
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69 $Description: Checks to see which file system is selected
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 $Returns: MFW_PHB_OK Action completed OK.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 MFW_PHB_FAIL File write encountered an error
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 $Arguments: intphonebook Place to store type of phonebook selected
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 (TRUE for FFS)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 T_MFW GI_pb_GetPhonebook(UBYTE *intphonebook)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 PB_RET result;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 T_MFW ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 T_PB_TYPE current_type;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85 result = ATB_pb_GetPhonebook(PB_BOOK_DEFAULT, &current_type);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 if (current_type==PB_TYPE_FFS)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 *intphonebook = TRUE;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 else
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 *intphonebook = FALSE;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 if (result==PB_OK)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 ret = MFW_PHB_OK;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 else
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 ret = MFW_PHB_FAIL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 return ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103 $Function: GI_pb_SetPhonebook
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 $Description: Selects file system
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 $Returns: MFW_PHB_OK Action completed OK.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 MFW_PHB_FAIL File write encountered an error
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 $Arguments: intphonebook TRUE if FFS is to be used
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 T_MFW GI_pb_SetPhonebook(UBYTE intphonebook)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 PB_RET result;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 T_MFW ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 T_PB_TYPE current_type;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 if (intphonebook)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 current_type = PB_TYPE_FFS;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122 else
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 current_type = PB_TYPE_SIM;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 result = ATB_pb_SetPhonebook((SHORT)PB_BOOK_DEFAULT, current_type);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 if (result==PB_OK)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 ret = MFW_PHB_OK;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 else
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 ret = MFW_PHB_FAIL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 return ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138 $Function: GI_pb_Initialise
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 $Description: Initialise an instance of phonebook. Dynamically allocates a record
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 cache in RAM. Creates the necessary file(s) if they do not already exist.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 Sorts the phonebook by name and by number, creating the appropriate
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 index tables.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 $Returns: MFW_PHB_OK
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 MFW_PHB_FAIL
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 $Arguments: None
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 T_MFW GI_pb_Initialise(void)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 PB_RET result;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155 T_MFW ret=MFW_PHB_FAIL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 tracefunction("GI_pb_Initialise");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 result = ATB_pb_Initialise(PB_BOOK_DEFAULT, PB_TYPE_FFS, PB_RECORDS_MAX,
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 PB_CACHE_MAX, PB_ALPHATAG_MAX, PB_NUMBER_MAX, PB_EXT_MAX);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 switch(result)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 case PB_OK:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 ret = MFW_PHB_OK;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167 case PB_EXCT:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 ret = MFW_PHB_OK;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 case PB_BOOKALREADYEXISTS:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 ret = MFW_PHB_FAIL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 return ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 $Function: GI_pb_Exit
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 $Description: Frees memory associated with phonebook. To be called when the
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 phonebook is no longer required, or at shutdown.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 $Returns: MFW_PB_OK Action completed OK.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 $Arguments: None
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 T_MFW GI_pb_Exit(void)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 tracefunction("GI_pb_Exit");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196 ATB_pb_Exit(PB_BOOK_DEFAULT);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 return MFW_PHB_OK;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 $Function: GI_pb_Info
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 $Description: Returns information about the phonebook, which will be returned
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 in the data structure pointed to by status. The caller must
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207 allocate the T_MFW_PHB_STATUS structure.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 $Returns: MFW_PB_OK Action completed OK.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 $Arguments: status Data structure to contain phonebook info
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 void GI_pb_Info(T_MFW_PHB_STATUS *status)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 T_PB_INFO info;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 tracefunction("GI_pb_Info");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 ATB_pb_Info(PB_BOOK_DEFAULT, &info);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 status->book = PHB_IPB;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 status->max_entries = (UBYTE)info.records_max;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 status->used_entries = (UBYTE)info.records_used;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 status->avail_entries = (UBYTE)info.records_free;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227 status->tag_len = PHB_MAX_LEN;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 return;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 $Function: GI_pb_Status
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 $Description: Returns whether or not the phonebook is busy. If so, stat will contain
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238 PHB_BUSY, otherwise PHB_READY.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 $Returns: None
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 $Arguments: stat UBYTE to contain status information
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 void GI_pb_Status(UBYTE *stat)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 tracefunction("GI_pb_Status");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 ATB_pb_Status(PB_BOOK_DEFAULT);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 return;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 $Function: GI_pb_WriteRec
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 $Description: Writes a record to the physical position index. If the index is
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 0, a new record is added, otherwise the previous
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 record at that position is overwritten.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 $Returns: MFW_PHB_OK
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 MFW_PHB_FAIL
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 MFW_PHB_FULL
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271 $Arguments: entry The phonebook entry to write
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 T_MFW GI_pb_WriteRec(T_MFW_PHB_ENTRY *entry)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277 T_MFW ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 PB_RET result;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279 SHORT index;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 T_PB_RECORD *record;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281 UBYTE *number;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 tracefunction("GI_pb_WriteRec");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 /* Allocate memory for record */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 record = ATB_pb_AllocRec(PB_BOOK_DEFAULT);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 /* If the provided index is 0, we must add new record */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 if (entry->index==0)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 index = PB_NEW_RECORD;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 else
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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 */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 /* Convert name to unicode*/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 record->alpha.dcs = entry->name.dcs;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 record->alpha.length = (UBYTE)entry->name.len;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 GI_alpha_AsciiToAlpha(&record->alpha, &entry->name, PHB_MAX_LEN);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 /* Convert number to BCD */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 record->ton_npi = entry->npi & 0x0F;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 record->ton_npi \|= (entry->ton<<4);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 number = entry->number;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 if (number[0]=='+')
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 record->ton_npi &= 0xF0;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 record->ton_npi \|= (MFW_TON_INTERNATIONAL<<4);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313 number++;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 // Oct 27, 2005 REF: OMAPS OMAPS00048881 b-nekkare
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316 else if(entry->ton == MFW_TON_INTERNATIONAL)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318 record->ton_npi = entry->npi & 0x0F;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 record->ton_npi \|= (MFW_TON_UNKNOWN<<4);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 /* Anything else keep as is */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 TRACE_EVENT_P1("ton_npi: %X", record->ton_npi);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 ATB_pb_CharToBCD(record->number, (char *)number, PB_NUMBER_MAX);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 /* Write the record */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 result = ATB_pb_WriteRec(PB_BOOK_DEFAULT, INDEX_PHYSICAL, index, record);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 /* Free allocated record */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 ATB_pb_FreeRec(PB_BOOK_DEFAULT, record);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 switch(result)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 case PB_OK:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 ret = MFW_PHB_OK;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 case PB_BOOKFULL:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 ret = MFW_PHB_FULL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 default:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 ret = MFW_PHB_FAIL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 return ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 $Function: GI_pb_DeleteRec
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 $Description: Deletes a record at a physical position index.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 $Returns: MFW_PHB_OK
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 MFW_PHB_FAIL
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361 $Arguments: index Physical index of the record to delete
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 T_MFW GI_pb_DeleteRec(UBYTE index)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 T_MFW ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 PB_RET result;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 tracefunction("GI_pb_DeleteRec");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372 /* MFW/ACI indices start at 1, ATB indices start at 0 */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 index--;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 /* Delete record */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 result = ATB_pb_DeleteRec((SHORT)PB_BOOK_DEFAULT, INDEX_PHYSICAL, (SHORT)index);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 switch(result)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 case PB_OK:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383 ret = MFW_PHB_OK;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 default:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 ret = MFW_PHB_FAIL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 return ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 $Function: GI_pb_Find
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 $Description: Find the nearest match to the supplied record.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 $Returns: MFW_PHB_OK
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 MFW_PHB_FAIL
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 $Arguments: mode Specifies the sorting for the index list
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 index Place to store the index of the matching record
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 num_recs Number of records to read in
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 search_pattern The string or number to match
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407 entries Place to store the resulting list of entries
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 PB_RET result;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 T_MFW ret=MFW_PHB_FAIL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 T_PB_INDEX index_type = GI_index_Convert(mode);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 T_PB_RECORD *record;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 SHORT rec_index;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 UBYTE *number;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 tracefunction("GI_pb_Find");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422 /* Allocate memory for record */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 record = ATB_pb_AllocRec(PB_BOOK_DEFAULT);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 /* Convert name to unicode, or number to BCD */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 if(index_type==INDEX_NAME)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 GI_alpha_AsciiToAlpha(&record->alpha, search_pattern, PB_ALPHATAG_MAX);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 else
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 /* Convert number to BCD */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 number = search_pattern->data;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 if (number[0]=='+')
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 number++;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 ATB_pb_CharToBCD(record->number, (char *)number, PB_NUMBER_MAX);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 result = ATB_pb_Find(PB_BOOK_DEFAULT, index_type, record, &rec_index, NULL);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447 if (result==PB_OK)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449 index = rec_index+1; / MFW/ACI indices start at 1, ATB indices start at 0 */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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*/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453 /* Free allocated record */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 ATB_pb_FreeRec(PB_BOOK_DEFAULT, record);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 switch(result)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 case PB_OK:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 /ret = MFW_PHB_OK;//a0393213 warnings removal-commented because of last change for warning/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 default:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 ret = MFW_PHB_FAIL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 return ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 $Function: GI_pb_ReadRecList
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475 $Description: Read in a list of entries.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 $Returns: MFW_PHB_OK
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 MFW_PHB_FAIL
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 $Arguments: mode Specifies the sorting for the index list
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 index Place to store the index of the matching record
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 num_recs Number of records to read in
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 entries Place to store the resulting list of entries
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 PB_RET result;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490 T_MFW ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 T_PB_INDEX index_type = GI_index_Convert(mode);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 T_PB_RECORD *record;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 SHORT recs_count;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 tracefunction("GI_pb_ReadRecList");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 /* MFW/ACI indices start at 1, ATB indices start at 0 */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 index--;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 /* Allocate memory for record */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 record = ATB_pb_AllocRec(PB_BOOK_DEFAULT);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 for (recs_count = 0; recs_count<(SHORT)num_recs; recs_count++)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 result = ATB_pb_ReadRec(PB_BOOK_DEFAULT, index_type, (SHORT)(index+recs_count), record);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 if (result!=PB_OK)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 entries->entry[recs_count].book = PHB_IPB;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 entries->entry[recs_count].ton = (record->ton_npi & 0xF0)>>4;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 entries->entry[recs_count].npi = record->ton_npi & 0x0F;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 GI_alpha_AlphaToAscii(&entries->entry[recs_count].name, &record->alpha, PB_ALPHATAG_MAX);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 ATB_pb_BCDToChar((char *)entries->entry[recs_count].number, record->number, PB_NUMBER_MAX);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 entries->book = PHB_IPB;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521 if (recs_count)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 entries->result = MFW_ENTRY_EXIST;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 entries->num_entries = (UBYTE) recs_count;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 /* SPR#1994 - SH - If at least one record is found, result is a success */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 result = PB_OK;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 else
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 entries->result = MFW_NO_ENTRY;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 /* Free allocated record */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 ATB_pb_FreeRec(PB_BOOK_DEFAULT, record);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 switch(result)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 case PB_OK:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 ret = MFW_PHB_OK;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 case PB_RECDOESNOTEXIST:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 ret = MFW_PHB_FAIL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 default:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 ret = MFW_PHB_FAIL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 return ret;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 $Function: GI_pb_ConvIndex
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 $Description: Returns the index in table new_index_type corresponding to the index
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 in table index_type.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 $Returns: The new index
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 $Arguments: index_type The index table of the original index.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 index The original logical index.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 new_index_type The index table required.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 SHORT new_index;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 tracefunction("GI_pb_ConvIndex");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 ATB_pb_ConvIndex(PB_BOOK_DEFAULT, index_type, (SHORT)index, new_index_type, &new_index);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 /* MFW/ACI indices start at 1, ATB indices start at 0 */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 if (new_index_type==INDEX_PHYSICAL)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 new_index++;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583 return (UBYTE)new_index;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587 /********************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 * Functions called by the ATB PB *
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 ********************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 $Function: GI_pb_OK
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 $Description: This function is called if the requested command executed successfully.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 The param parameter is a pointer to command specific information,
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 when such information is required to be passed from the ATB to the GI.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 See the individual functions for more details.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 $Returns: None.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 $Arguments: phonebook_id The phonebook identifier
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 command_id Identifies the command.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 param Pointer to command-specific information
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 void GI_pb_OK(SHORT phonebook_id, SHORT command_id, void *param)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610 trace("GI_pb_OK");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 if (param!=NULL)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 trace_P1("Param is: %d", ((SHORT )param));
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 $Function: GI_pb_Error
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 $Description: This function is called if an error was returned while executing the
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623 requested command.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 $Returns: None.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 $Arguments: phonebook_id The phonebook identifier
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 command_id Identifies the command.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629 error_id Identifies the error that occurred.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 void GI_pb_Error(SHORT phonebook_id, SHORT command_id, SHORT error_id)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635 trace("GI_pb_Error");
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 trace_P2("*ERROR* - command %d, error %d", command_id, error_id);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 return;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 $Function: GI_pb_MemAlloc
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 $Description: Dynamically allocates memory for the phonebook.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 $Returns: The address of the block of allocated memory, or NULL if failed.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650 $Arguments: size - Amount of memory to be allocated in bytes
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 // Dec 22, 2004 REF: CRR MFW-SPR-27847 xnkulkar
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 // Description: MFW memory size variable changed from U16 -> U32
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 // Solution: The use of variable U16 has been replaced with U32
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657 UBYTE *GI_pb_MemAlloc(U32 size)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 return mfwAlloc((U32)size);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665 $Function: GI_pb_MemFree
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 $Description: Frees dynamically allocated memory.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 $Returns: None
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671 $Arguments: mem - Pointer to a block of allocated memory
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 size - Size of the block
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 // Dec 22, 2004 REF: CRR MFW-SPR-27847 xnkulkar
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676 // Description: MFW memory size variable changed from U16 -> U32
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 // Solution: The use of variable U16 has been replaced with U32
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 void GI_pb_MemFree(UBYTE *mem, U32 size)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681 mfwFree(mem, (U32)size);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 return;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 $Function: GI_pb_Match
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 $Description: This function allows the user to specify the way in which entries are
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 matched during searching. This provides the capability of searching
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 languages with non-Latin alphabets, or searching through special user
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693 fields.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694 This function attempts a match between two records based on the
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695 field appropriate for the index list, specified in index_type. It returns
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696 a value indicating whether there is no match (MATCH_NONE),
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697 a partial match (MAX_START), or an exact match (MATCH_EXACT).
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698 Note that the contents of the records themselves should not be altered
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699 by this function. The sole result should be a return value that specifies
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 how the first record matches the second. If it is preferred that the
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701 default matching routine is used (i.e match from the start for alpha
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702 tags, match from the end for phone numbers) then MATCH_DEFAULT
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703 should be returned.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705 $Returns: MATCH_DEFAULT, MATCH_EXACT, MATCH_START or MATCH_NONE
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707 $Arguments: record1 The first record to be compared
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 record2 The second record to be compared
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709 index_type Indicator of the field which is to be compared
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715 return MATCH_DEFAULT;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 $Function: GI_pb_Compare
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723 $Description: This function allows the user to specify the way in which entries are
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 compared during sorting. This provides the capability of sorting languages
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725 with non-Latin alphabets, or sorting to alternative orders (for example,
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726 reverse alphabetical).
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727 This function compares two records based on the field appropriate for the
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728 index list, specified in index_type.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729 It returns a value indicating whether the first record should come before
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730 or after the second.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 Note that the contents of the records themselves should not be altered by
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 this function. The sole result should be a return value that specifies
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 whether or not the positions of the records should be swapped. If it
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734 is preferred that the default comparison routine is used (e.g.Latin
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 alphabetical ascending) then COMPARE_DEFAULT should be returned.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738 $Returns: COMPARE_DEFAULT No comparison made - use the default comparison method
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 COMPARE_FIRSTBEFORE The first record should come before the second record
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740 COMPARE_FIRSTAFTER The first record should come after the second record
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742 $Arguments: record1 The first record to be compared
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743 record2 The second record to be compared
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 index_type Index list to use
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 return COMPARE_DEFAULT;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 $Function: GI_pb_GetTable
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758 $Description: If fields other than name and number are required, then index tables
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 must be provided for each field. This function is called when access
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760 to an index table is required for an unknown index type.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 The array provided must be a user-allocated array of type SHORT,
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 records_max in size, e.g.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 static SHORT user_table[RECORDS_MAX];
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766 return user_table;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768 $Returns: A pointer to an array of SHORTs records_max in size.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 $Arguments: index_type Index list to use
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 SHORT *GI_pb_GetTable (T_PB_INDEX index_type)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 SHORT user_table = NULL; /DUMMY IMPLEMENTATION*/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777 return user_table;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783 $Function: GI_alpha_AlphaToAscii
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 $Description: Convert an alpha tag to an ascii string
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 $Returns: None
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 $Arguments: ascii The ascii string
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 alpha The alpha tag
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 max_len The maximum length of the resulting string
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797 SHORT asciiIndex;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 SHORT alphaIndex;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 /* Unicode entry - swap the low and high bytes, add in 0x80 at start*/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802 ascii->dcs = alpha->dcs;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 if (alpha->dcs == MFW_DCS_UCS2)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806 ascii->data[0] = 0x80;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807 asciiIndex = 1;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808 alphaIndex = 0;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 while (alphaIndex<alpha->length && asciiIndex<max_len)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812 ascii->data[asciiIndex++] = (char) (alpha->data[alphaIndex]>>8);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813 ascii->data[asciiIndex++] = (char) (alpha->data[alphaIndex] & 0xFF);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814 alphaIndex++;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 /* Put two NULLs at the end, if there is space */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819 if (asciiIndex<max_len)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820 ascii->data[asciiIndex++] = NULL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 if (asciiIndex<max_len)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 ascii->data[asciiIndex] = NULL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 ascii->len = asciiIndex;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827 /* Ascii entry - convert from unicode */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829 else
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 asciiIndex = 0;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832 alphaIndex = 0;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 while (alphaIndex<alpha->length && asciiIndex<max_len)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836 ascii->data[asciiIndex++] = (char) (alpha->data[alphaIndex++]);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 /* Put a NULL at the end, if there is space */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841 if (asciiIndex<max_len)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842 ascii->data[asciiIndex] = NULL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844 ascii->len = asciiIndex;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 return;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853 $Function: GI_alpha_AsciiToAlpha
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855 $Description: Convert an ascii string to an alpha tag
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857 $Returns: None
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859 $Arguments: alpha The alpha tag
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 ascii The ascii string
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 max_len The maximum length of the resulting string
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite 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)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	866 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867 SHORT asciiIndex;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868 SHORT alphaIndex;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870 alpha->dcs = ascii->dcs;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872 /* Unicode entry - swap the low and high bytes, ignore first '0x80' character */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 if (ascii->dcs == MFW_DCS_UCS2)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 asciiIndex = 1;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877 alphaIndex = 0;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 while (asciiIndex<ascii->len && alphaIndex<max_len)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881 alpha->data[alphaIndex] = (USHORT) ((ascii->data[asciiIndex]<<8) \| ascii->data[asciiIndex+1]);
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882 alphaIndex=alphaIndex+1;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 asciiIndex=asciiIndex+2;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886 /* Put a NULL at the end, if there is space */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888 if (alphaIndex<max_len)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 alpha->data[alphaIndex] = NULL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892 /* Ascii entry - convert to unicode */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894 else
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896 asciiIndex = 0;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897 alphaIndex = 0;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899 while (asciiIndex<ascii->len && alphaIndex<max_len)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901 alpha->data[alphaIndex++] = (USHORT)ascii->data[asciiIndex++];
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904 /* Put a NULL at the end, if there is space */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906 if (alphaIndex<max_len)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907 alpha->data[alphaIndex] = NULL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910 alpha->length = alphaIndex;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912 return;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916 /*******************************************************************************
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918 $Function: GI_index_Convert
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920 $Description: Convert indexing types from MFW to ATB.
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 $Returns: The ATB indexing type
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 $Arguments: mode The MFW sort mode
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926 *******************************************************************************/
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 T_PB_INDEX GI_index_Convert(UBYTE mode)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	929 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930 T_PB_INDEX index_type=INDEX_DEFAULT_MAX;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 switch(mode)
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933 {
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934 case MFW_PHB_ALPHA:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 index_type = INDEX_NAME;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937 case MFW_PHB_NUMBER:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938 index_type = INDEX_NUMBER;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940 case MFW_PHB_INDEX:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	941 index_type = INDEX_PHYSICAL; /* NOTE - may not work quite as intended */
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	942 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	943 case MFW_PHB_PHYSICAL:
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	944 index_type = INDEX_PHYSICAL;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	945 break;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	946 }
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	947
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	948 return index_type;
67bfe9f274f6 src/ui: import of src/ui3 from Magnetite Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	949 }

FreeCalypso > hg > fc-tourmaline

annotate src/ui/atb/ATBPbGI.c @ 75:8697f358f505