fc-selenite: src/gpf/ccd/Ccdedit.c annotate

annotate src/gpf/ccd/Ccdedit.c @ 134:7d50d8d13711

FFS code sync with Magnetite + gcc version fix This change brings the new flash autodetection for FC and Pirelli targets from Magnetite, and should also fix the gcc version for C1xx and gtamodem targets, which were previously broken because they used TI's original flash autodetect code (which operates at address 0) while the boot ROM is mapped there.

author	Mychaela Falconia <falcon@freecalypso.org>
date	Tue, 11 Dec 2018 08:43:25 +0000
parents	1ea54a97e831
children

rev	line source
5 1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	2 +-----------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	3 \| Project :
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	4 \| Modul : Ccdedit.c
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	5 +-----------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	6 \| Copyright 2002 Texas Instruments Berlin, AG
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	7 \| All rights reserved.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	8 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	9 \| This file is confidential and a trade secret of Texas
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	10 \| Instruments Berlin, AG
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	11 \| The receipt of or possession of this file does not convey
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	12 \| any rights to reproduce or disclose its contents or to
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	13 \| manufacture, use, or sell anything it may describe, in
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	14 \| whole, or in part, without the specific written consent of
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	15 \| Texas Instruments Berlin, AG.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	16 +-----------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	17 \| Purpose : Coder Decoder editfunctions for reading/writing the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	18 \| C-Structures of primitives and messages.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	19 +-----------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	20 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	21
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	22 #define CCDEDIT_C
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	23
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	24 #include <stdio.h>
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	25 #include <stdlib.h>
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	26 #include <string.h>
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	27
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	28 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	29 * standard definitions like UCHAR, ERROR etc.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	30 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	31 #include "typedefs.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	32
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	33
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	34 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	35 * Declaration of coder/decoder-tables
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	36 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	37 #include "ccdtable.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	38 #include "ccddata.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	39
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	40 #include "ccdedit.h"
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	41
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	42 typedef union
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	43 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	44 UBYTE buffer[4];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	45 UBYTE b[4];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	46 USHORT s[2];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	47 ULONG l;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	48 } T_CONV;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	49
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	50 typedef enum
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	51 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	52 isvar,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	53 isstruct,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	54 isunion,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	55 issdu,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	56 isductrl
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	57 } T_ELEMTYPE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	58
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	59 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	60 * strncpy() does not append a null chararcter to the copied string;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	61 * This macro adds a terminating null following a call to strncpy()
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	62 * In Ccdedit.h the buffers are all len+1 bytes long.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	63 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	64 #define STRNCPY(dest,source,len) {\
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	65 strncpy (dest, source, len);\
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	66 dest [len] = 0;\
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	67 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	68
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	69
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	70 static const T_CCD_CompTabEntry* mcomp;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	71 static const T_CCD_CompTabEntry* pcomp;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	72 static const T_CCD_VarTabEntry* pvar;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	73 static const T_CCD_ElemTabEntry* pelem;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	74 static const T_CCD_StrTabEntry* pstr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	75 static const T_CCD_VarTabEntry* mvar;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	76 static const T_CCD_ElemTabEntry* melem;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	77 static const T_CCD_StrTabEntry* mstr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	78 static const T_CCD_ValTabEntry* mval;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	79 static const T_CCD_ValTabEntry* pval;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	80 static int ccddata_num_of_entities;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	81 static int ccddata_max_message_id;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	82 static int ccddata_max_primitive_id;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	83 static int ccddata_max_sap_num;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	84
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	85
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	86 void CCDDATA_PREF(cde_init) ()
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	87 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	88 mcomp = ccddata_get_mcomp (0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	89 pcomp = ccddata_get_pcomp (0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	90 pvar = ccddata_get_pvar (0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	91 pelem = ccddata_get_pelem (0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	92 pstr = ccddata_get_pstr (0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	93 mvar = ccddata_get_mvar (0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	94 melem = ccddata_get_melem (0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	95 mstr = ccddata_get_mstr (0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	96 mval = ccddata_get_mval (0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	97 pval = ccddata_get_pval (0);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	98 ccddata_num_of_entities = ccddata_get_num_of_entities ();
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	99 ccddata_max_message_id = ccddata_get_max_message_id ();
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	100 ccddata_max_primitive_id = ccddata_get_max_primitive_id ();
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	101 ccddata_max_sap_num = ccddata_get_max_sap_num ();
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	102 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	103
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	104 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	105 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	106 \| Function : cde_val_iterate
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	107 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	108 \| Description : This function searches the values in [pm]val.cdg for
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	109 \| a given value and depending on the value of the parameter
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	110 \| 'copy' adds the "Comment" of the SAP-/MSG-catalogues
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	111 \| to the member symbolicValue of a given T_CCDE_ELEM_DESCR.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	112 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	113 \| Parameters : elem_value - the actual value searched for
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	114 \| edescr - the element descriptor
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	115 \| copy - s.a.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	116 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	117 \| Return : -1 if no values are defined or if the value is not found;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	118 \| else: the ordinal of the value in relation to first valid
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	119 \| value of the var
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	120 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	121 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	122
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	123 static void cde_val_iterate (int elem_value,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	124 T_CCDE_ELEM_DESCR* edescr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	125 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	126
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	127 S32 StartVal, EndVal;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	128 BOOL IsDefault;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	129 char *ValStr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	130 SHORT NumDefs;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	131 USHORT ValueDef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	132 USHORT valdefstart;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	133 const T_CCD_ValTabEntry* val;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	134 const T_CCD_StrTabEntry* str;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	135
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	136 if (edescr->ccdIndex == NO_REF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	137 return;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	138
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	139 if (edescr->esource EQ FromMsg)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	140 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	141 NumDefs = mvar[edescr->ccdIndex].numValueDefs;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	142 ValueDef = mvar[edescr->ccdIndex].valueDefs;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	143 val = mval;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	144 str = mstr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	145 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	146 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	147 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	148 NumDefs = pvar[edescr->ccdIndex].numValueDefs;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	149 ValueDef = pvar[edescr->ccdIndex].valueDefs;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	150 val = pval;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	151 str = pstr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	152 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	153
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	154 valdefstart = ValueDef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	155
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	156 edescr->valcheck = NumDefs ? -1 : 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	157 while (NumDefs-- > 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	158 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	159 IsDefault = val[ValueDef].isDefault;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	160 ValStr = str[val[ValueDef].valStringRef];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	161 StartVal = val[ValueDef].startValue;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	162 EndVal = val[ValueDef].endValue;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	163
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	164 if (IsDefault)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	165 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	166 /* default definition */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	167
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	168 STRNCPY (edescr->symbolicValue, ValStr, SYMBOLIC_VAL_LENGTH);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	169 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	170 * If IsDefault is 2 it is an ASN1 default value; StartVal and EndVal
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	171 * are set to the value. If IsDefault is 1, it means only a default
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	172 * symbolic value, but StartVal and EndVal are not set. In this case
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	173 * valcheck get the value 0.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	174 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	175 if (IsDefault == 2)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	176 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	177 if (elem_value == StartVal)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	178 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	179 edescr->valcheck = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	180 return;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	181 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	182 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	183 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	184 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	185 edescr->valcheck = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	186 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	187 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	188 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	189 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	190 if (elem_value == StartVal && elem_value == EndVal)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	191 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	192 STRNCPY (edescr->symbolicValue, ValStr, SYMBOLIC_VAL_LENGTH);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	193 edescr->valcheck = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	194 return;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	195 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	196
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	197 if (elem_value >= StartVal AND elem_value <= EndVal)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	198 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	199 /* found in range, but continue to search an exact match */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	200 STRNCPY (edescr->symbolicValue, ValStr, SYMBOLIC_VAL_LENGTH);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	201 edescr->valcheck = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	202 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	203 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	204 ValueDef++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	205 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	206 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	207
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	208 static void eval_elemtype (T_CCDE_ELEM_DESCR* edescr,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	209 const T_CCD_ElemTabEntry* elem,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	210 T_ELEMTYPE* elemtype,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	211 BOOL* linked)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	212 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	213 *linked = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	214
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	215 switch (elem->elemType)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	216 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	217 case 'W':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	218 case 'M':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	219 case 'I':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	220 *linked = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	221 /* fallthrough */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	222 case 'V':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	223 case 'R':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	224 case 'F':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	225 *elemtype = isvar;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	226 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	227
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	228 case 'Z':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	229 case 'K':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	230 case 'G':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	231 *linked = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	232 /* fallthrough */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	233 case 'C':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	234 case 'P':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	235 case 'D':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	236 *elemtype = isstruct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	237 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	238
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	239 case 'c':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	240 case 'p':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	241 case 'd':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	242 *elemtype = issdu;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	243 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	244
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	245 case 'Y':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	246 case 'L':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	247 case 'H':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	248 *linked = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	249 /* fallthrough */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	250 case 'U':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	251 case 'Q':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	252 case 'E':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	253 *elemtype = isunion;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	254 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	255 case '!':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	256 *elemtype = isductrl;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	257 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	258 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	259 if ((elem->elemType >= 'P' && elem->elemType <= 'R') \|\|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	260 (elem->elemType >= 'K' && elem->elemType <= 'M') \|\|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	261 elem->elemType == 'p')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	262 edescr->ptrtype = usptr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	263 else if((elem->elemType >= 'D' && elem->elemType <= 'F') \|\|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	264 (elem->elemType >= 'G' && elem->elemType <= 'I') \|\|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	265 elem->elemType == 'd')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	266 edescr->ptrtype = ctptr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	267 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	268 edescr->ptrtype = noptr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	269 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	270
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	271
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	272 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	273 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	274 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	275 \| STATE : code ROUTINE : cde_get_next_elem \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	276 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	277
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	278 PURPOSE :
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	279
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	280 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	281
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	282 static USHORT cde_get_next_elem (T_CCDE_HANDLE *handle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	283 UBYTE descent,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	284 T_CCDE_ELEM_DESCR *edescr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	285 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	286 T_CCDE_CONTEXT * ctx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	287 BOOL isMsg;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	288 BOOL linked;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	289 BOOL validElemFound = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	290 const T_CCD_VarTabEntry *var;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	291 const T_CCD_CompTabEntry *comp;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	292 const T_CCD_ElemTabEntry *elem;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	293 const T_CCD_StrTabEntry *str;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	294 T_ELEMTYPE elemtype;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	295
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	296 isMsg = handle->source == FromMsg;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	297
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	298 if (isMsg)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	299 /* var, str, and comp may become reset later */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	300 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	301 comp = mcomp;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	302 elem = melem;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	303 str = mstr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	304 var = mvar;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	305 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	306 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	307 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	308 comp = pcomp;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	309 elem = pelem;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	310 str = pstr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	311 var = pvar;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	312 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	313
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	314 if (descent > handle->level AND handle->canDescent)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	315 handle->level++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	316
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	317 handle->canDescent = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	318
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	319 ctx = &handle->context[handle->level];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	320
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	321 do
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	322 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	323 if (ctx->numElems EQ 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	324 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	325 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	326 * end of composition or maybe of the entire message/primitive.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	327 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	328 if (handle->level > 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	329 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	330 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	331 * end of substructured element.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	332 * switch to the context of the previous level.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	333 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	334 handle->level--;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	335 ctx = &handle->context[handle->level];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	336 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	337 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	338 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	339 edescr->offset = comp[ctx->structIdx].cSize
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	340 + handle->lenVarPart;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	341 return isMsg ? CCDEDIT_END_OF_MSG : CCDEDIT_END_OF_PRIM;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	342 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	343 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	344 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	345 * skip the spare elements (do it only for messages)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	346 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	347 if (ctx->numElems)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	348 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	349 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	350 * remember: primitives does not contain spare definitions
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	351 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	352 if (elem[ctx->elemIdx].elemType == 'S')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	353 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	354 ctx->elemIdx++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	355 ctx->numElems--;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	356 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	357 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	358 validElemFound = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	359 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	360 } while (!validElemFound);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	361
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	362
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	363 eval_elemtype (edescr, &elem[ctx->elemIdx], &elemtype, &linked);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	364
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	365 if (elemtype == isductrl)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	366 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	367 edescr->btype = T_ductrl;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	368 ctx->elemIdx++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	369 ctx->numElems--;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	370 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	371 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	372
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	373 if (linked)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	374 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	375 /* element linked from pelem to mvar/mcomp */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	376 edescr->esource = FromMsg;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	377 comp = mcomp;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	378 var = mvar;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	379 str = mstr;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	380 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	381 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	382 edescr->esource = handle->source;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	383
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	384 if (ctx->state EQ TRAVERSE_ARRAY)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	385 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	386 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	387 * for every array element calculate the offset for the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	388 * C-structure access.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	389 * offset = leveloffset + (arrayIndex * csize) + 1
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	390 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	391 edescr->offset = elem[ctx->elemIdx].structOffs + ctx->levelOffset
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	392 + (ctx->arrayIndex
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	393 * ((elem[ctx->elemIdx].elemType NEQ 'C')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	394 ? var[elem[ctx->elemIdx].elemRef].cSize
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	395 : comp[elem[ctx->elemIdx].elemRef].cSize
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	396 )
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	397 );
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	398 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	399 + 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	400 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	401 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	402 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	403 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	404 edescr->offset = elem[ctx->elemIdx].structOffs
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	405 + ctx->levelOffset;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	406 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	407
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	408 edescr->level = handle->level;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	409 edescr->maxRepeat = elem[ctx->elemIdx].maxRepeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	410 edescr->index = NO_REF;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	411 edescr->ccdIndex = NO_REF;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	412 edescr->validRepeats = NO_REF;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	413 edescr->isOptional = elem[ctx->elemIdx].optional;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	414 edescr->arrayType = NoArray;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	415 edescr->elemref = NO_REF;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	416 edescr->u_member = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	417 edescr->u_ctrl = 0xffffffff;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	418 edescr->bitstring = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	419 edescr->c_implicit = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	420 edescr->issigned = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	421 edescr->valcheck = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	422
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	423 if ( edescr->maxRepeat > 0
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	424 && elem[ctx->elemIdx].repType != 'b'
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	425 && elem[ctx->elemIdx].repType != 's'
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	426 && elem[ctx->elemIdx].elemType != 'E'
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	427 && ctx->state == TRAVERSE_STRUCTURE)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	428 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	429 edescr->arrayType = ( elem[ctx->elemIdx].repType == 'v'
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	430 \|\| elem[ctx->elemIdx].repType == 'i'
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	431 \|\| elem[ctx->elemIdx].repType == 'J'
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	432 \|\| elem[ctx->elemIdx].repType == 'j')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	433 ? VarArray
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	434 : FixArray;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	435
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	436 if (elem[ctx->elemIdx].repType == 'C'
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	437 \|\| elem[ctx->elemIdx].repType == 'J')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	438 edescr->bitstring = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	439
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	440 if (elem[ctx->elemIdx].repType == 'j'
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	441 \|\| elem[ctx->elemIdx].repType == 'J')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	442 edescr->c_implicit = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	443
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	444 if (handle->level < MAX_LEVELS)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	445 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	446 T_CCDE_CONTEXT * new_ctx = ctx+1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	447
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	448 ctx->repeats = edescr->maxRepeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	449
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	450 handle->canDescent = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	451
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	452 new_ctx->structIdx = ctx->structIdx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	453
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	454 new_ctx->elemIdx = ctx->elemIdx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	455 new_ctx->elemType = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	456 new_ctx->arrayIndex = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	457 new_ctx->numElems = edescr->maxRepeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	458 new_ctx->levelOffset = ctx->levelOffset;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	459 new_ctx->arrayType = edescr->arrayType;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	460 new_ctx->state = TRAVERSE_ARRAY;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	461 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	462 * if the composition is optional, increment the offset
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	463 * because of the valid flag (v_xxx).
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	464 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	465 if (edescr->isOptional)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	466 new_ctx->levelOffset++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	467 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	468 * if the composition is a array with variable size,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	469 * increment the offset because of the counter (c_xxx).
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	470 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	471 if (edescr->arrayType EQ VarArray)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	472 new_ctx->levelOffset += edescr->maxRepeat >> 8 ? 2 : 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	473 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	474 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	475
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	476 if (ctx->state EQ TRAVERSE_ARRAY)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	477 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	478 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	479 * if the size of the array is variable, mark the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	480 * components of this array as optional. So we can later
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	481 * determine if the array component is valid
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	482 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	483 if (ctx->arrayType EQ VarArray)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	484 edescr->isOptional = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	485 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	486 * increment the array index
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	487 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	488 edescr->index = ctx->arrayIndex++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	489 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	490
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	491 if (elemtype == isvar)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	492 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	493 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	494 * basic element (var)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	495 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	496 switch (var[elem[ctx->elemIdx].elemRef].cType)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	497 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	498 case 'C':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	499 edescr->issigned = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	500 /* fallthrough */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	501 case 'B':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	502 edescr->btype = T_byte;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	503 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	504 case 'T':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	505 edescr->issigned = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	506 /* fallthrough */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	507 case 'S':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	508 edescr->btype = T_short;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	509 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	510 case 'M':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	511 edescr->issigned = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	512 /* fallthrough */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	513 case 'L':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	514 edescr->btype = T_long;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	515 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	516 case 'X':
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	517 edescr->btype = T_buffer;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	518 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	519 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	520 edescr->bytelen = var[elem[ctx->elemIdx].elemRef].cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	521
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	522 #ifdef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	523 strcpy (edescr->aname, var[elem[ctx->elemIdx].elemRef].name);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	524 strcpy (edescr->sname, ccddata_get_alias (ctx->elemIdx, (int) isMsg));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	525 if (edescr->sname[0] == '\0')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	526 strcpy (edescr->sname, var[elem[ctx->elemIdx].elemRef].name);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	527 STRNCPY (edescr->lname, str[var[elem[ctx->elemIdx].elemRef].longNameRef],
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	528 LONG_NAME_LENGTH);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	529 #else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	530 strcpy (edescr->sname, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	531 strcpy (edescr->aname, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	532 strcpy (edescr->lname, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	533 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	534 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	535 else if (elemtype == isunion)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	536 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	537 /* union */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	538 edescr->btype = T_union;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	539 edescr->bytelen = comp[elem[ctx->elemIdx].elemRef].cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	540 edescr->elemref = elem[ctx->elemIdx].elemRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	541
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	542 #ifdef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	543 strcpy (edescr->aname, comp[elem[ctx->elemIdx].elemRef].name);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	544 strcpy (edescr->sname, ccddata_get_alias (ctx->elemIdx, (int) isMsg));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	545 if (edescr->sname[0] == '\0')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	546 strcpy (edescr->sname, comp[elem[ctx->elemIdx].elemRef].name);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	547 STRNCPY (edescr->lname, str[comp[elem[ctx->elemIdx].elemRef].longNameRef],
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	548 LONG_NAME_LENGTH);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	549 #else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	550 strcpy (edescr->sname, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	551 strcpy (edescr->aname, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	552 strcpy (edescr->lname, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	553 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	554 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	555 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	556 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	557 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	558 * substructured info element
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	559 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	560 if (elemtype == issdu)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	561 edescr->btype = T_issdu;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	562 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	563 edescr->btype = T_struct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	564 edescr->bytelen = comp[elem[ctx->elemIdx].elemRef].cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	565 edescr->elemref = elem[ctx->elemIdx].elemRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	566
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	567 #ifdef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	568 strcpy (edescr->aname, comp[elem[ctx->elemIdx].elemRef].name);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	569 strcpy (edescr->sname, ccddata_get_alias (ctx->elemIdx, (int) isMsg));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	570 if (edescr->sname[0] == '\0')
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	571 strcpy (edescr->sname, comp[elem[ctx->elemIdx].elemRef].name);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	572 STRNCPY (edescr->lname, str[comp[elem[ctx->elemIdx].elemRef].longNameRef],
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	573 LONG_NAME_LENGTH);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	574 #else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	575 strcpy (edescr->sname, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	576 strcpy (edescr->aname, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	577 strcpy (edescr->lname, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	578 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	579 if (edescr->arrayType EQ NoArray
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	580 AND handle->level < MAX_LEVELS)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	581 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	582 T_CCDE_CONTEXT * new_ctx = ctx+1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	583
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	584 handle->canDescent = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	585
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	586 new_ctx->structIdx = elem[ctx->elemIdx].elemRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	587
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	588 new_ctx->elemIdx = comp[new_ctx->structIdx].componentRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	589 new_ctx->elemType = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	590 new_ctx->arrayIndex = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	591 new_ctx->numElems = comp[new_ctx->structIdx].numOfComponents;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	592 new_ctx->levelOffset = edescr->offset;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	593 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	594 * if the composition is optional, increment the offset
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	595 * because of the valid flag (v_xxx).
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	596 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	597 if (edescr->isOptional)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	598 new_ctx->levelOffset++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	599 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	600 * if the composition is a array with variable size,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	601 * increment the offset because of the counter (c_xxx).
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	602 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	603 if (edescr->arrayType EQ VarArray)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	604 new_ctx->levelOffset++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	605
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	606 new_ctx->state = TRAVERSE_STRUCTURE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	607 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	608 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	609
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	610
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	611 if (edescr->arrayType EQ NoArray && elem[ctx->elemIdx].elemType == 'V'
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	612 AND var[elem[ctx->elemIdx].elemRef].numValueDefs > 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	613 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	614 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	615 * value definitions available
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	616 * store the index of this information element in the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	617 * element descriptor for later value requests.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	618 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	619 edescr->ccdIndex = elem[ctx->elemIdx].elemRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	620 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	621
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	622 ctx->numElems--;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	623
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	624 if (ctx->state EQ TRAVERSE_STRUCTURE)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	625 ctx->elemIdx++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	626
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	627 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	628 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	629
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	630 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	631 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	632 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	633 \| STATE : code ROUTINE : cde_prim_first \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	634 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	635
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	636 PURPOSE :
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	637
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	638 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	639
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	640 USHORT CCDDATA_PREF(cde_prim_first) (T_CCDE_HANDLE * phandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	641 ULONG primcode,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	642 char * name)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	643 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	644 USHORT SAP, Opcode, Direction, ThePrimitive;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	645
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	646 if (primcode & 0x80000000)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	647 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	648 SAP = (USHORT) (primcode & 0x3fff);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	649 Opcode = (USHORT) ((primcode >> 16) & 0xff);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	650 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	651 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	652 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	653 SAP = (USHORT) (((primcode & 0x3f00)>>8) & 0xff);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	654 Opcode = (USHORT) (primcode & 0xff);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	655 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	656 Direction = (USHORT) (((primcode & 0x4000)>>14) & 0x01);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	657
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	658 if (SAP > ccddata_max_sap_num OR Opcode > ccddata_max_primitive_id)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	659 return CCDEDIT_PRIM_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	660
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	661 if ((ThePrimitive = ccddata_get_pmtx(SAP,Opcode,Direction)) EQ NO_REF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	662 return CCDEDIT_PRIM_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	663
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	664 phandle->context[0].structIdx = ThePrimitive;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	665
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	666 #ifdef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	667 strcpy (name, pcomp[phandle->context[0].structIdx].name);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	668 #else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	669 strcpy (name, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	670 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	671
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	672 phandle->level = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	673 phandle->context[0].elemIdx = pcomp[phandle->context[0].structIdx].componentRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	674 phandle->context[0].elemType = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	675 phandle->context[0].numElems = pcomp[phandle->context[0].structIdx].numOfComponents;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	676 phandle->context[0].levelOffset = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	677 phandle->context[0].arrayIndex = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	678 phandle->context[0].state = TRAVERSE_STRUCTURE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	679 phandle->canDescent = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	680 phandle->source = FromPrim;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	681 phandle->maxCSize = pcomp[phandle->context[0].structIdx].cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	682 phandle->lenVarPart = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	683
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	684 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	685 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	686
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	687
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	688 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	689 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	690 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	691 \| STATE : code ROUTINE : cde_prim_next \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	692 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	693
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	694 PURPOSE :
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	695
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	696 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	697
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	698
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	699 USHORT CCDDATA_PREF(cde_prim_next) (T_CCDE_HANDLE *phandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	700 UBYTE descent,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	701 T_CCDE_ELEM_DESCR *pdescr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	702 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	703 return cde_get_next_elem (phandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	704 descent,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	705 pdescr);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	706 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	707
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	708 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	709 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	710 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	711 \| STATE : code ROUTINE : cde_msg_first \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	712 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	713
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	714 PURPOSE :
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	715
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	716 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	717
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	718 USHORT CCDDATA_PREF(cde_msg_first) (T_CCDE_HANDLE * mhandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	719 UBYTE type,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	720 UBYTE direction,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	721 UBYTE entity,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	722 char * name)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	723
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	724 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	725 USHORT TheMessage;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	726
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	727 if (entity > ccddata_num_of_entities OR type > ccddata_max_message_id)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	728 return CCDEDIT_MESSAGE_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	729
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	730 if ((TheMessage = ccddata_get_mmtx((USHORT) entity,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	731 (USHORT) type,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	732 (USHORT) direction)) EQ NO_REF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	733 return CCDEDIT_MESSAGE_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	734
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	735 mhandle->context[0].structIdx = TheMessage;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	736
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	737 #ifdef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	738 strcpy (name, mcomp[mhandle->context[0].structIdx].name);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	739 #else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	740 strcpy (name, "No name info avail.");
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	741 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	742
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	743 mhandle->level = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	744 mhandle->context[0].elemIdx = mcomp[mhandle->context[0].structIdx].componentRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	745 mhandle->context[0].elemType = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	746 mhandle->context[0].numElems = mcomp[mhandle->context[0].structIdx].numOfComponents;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	747 mhandle->context[0].levelOffset = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	748 mhandle->context[0].arrayIndex = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	749 mhandle->context[0].state = TRAVERSE_STRUCTURE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	750 mhandle->canDescent = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	751 mhandle->source = FromMsg;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	752 mhandle->maxCSize = mcomp[mhandle->context[0].structIdx].cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	753 mhandle->lenVarPart = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	754
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	755 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	756 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	757
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	758
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	759 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	760 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	761 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	762 \| STATE : code ROUTINE : cde_msg_next \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	763 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	764
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	765 PURPOSE :
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	766
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	767 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	768
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	769 USHORT CCDDATA_PREF(cde_msg_next) (T_CCDE_HANDLE *mhandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	770 UBYTE descent,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	771 T_CCDE_ELEM_DESCR *iedescr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	772 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	773 return cde_get_next_elem (mhandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	774 descent,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	775 iedescr);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	776 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	777
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	778
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	779 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	780 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	781 \| Function : cde_get_comp
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	782 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	783 \| Description : This function works with similar results like cde_comp_first,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	784 \| but not the whole comp table is searched for the name of the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	785 \| component. Instead the previous set elemref in the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	786 \| parameter edescr is taken to directly jump to the component.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	787 \| The component found is compared with the given name in
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	788 \| edescr. If equal chandle is defined. Otherwise there is an
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	789 \| error.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	790 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	791 \| Parameters : chandle - the handle for the component (returned)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	792 \| edescr - the element descriptor
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	793 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	794 \| Return : CCDEDIT_OK on success, CCDEDIT_COMP_NOT_FOUND otherwise
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	795 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	796 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	797
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	798 USHORT CCDDATA_PREF(cde_get_comp) (T_CCDE_HANDLE* chandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	799 T_CCDE_ELEM_DESCR* edescr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	800 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	801 const T_CCD_CompTabEntry* comp;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	802 USHORT index = edescr->elemref;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	803
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	804 if (index == NO_REF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	805 return CCDEDIT_COMP_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	806
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	807 comp = edescr->esource == FromMsg ? &mcomp[index] : &pcomp[index];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	808
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	809 #ifdef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	810 if (strcmp (comp->name, edescr->aname))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	811 return CCDEDIT_COMP_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	812 #endif /* CCD_SYMBOLS */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	813
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	814 chandle->context[0].structIdx = index;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	815 chandle->level = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	816 chandle->context[0].elemIdx = comp->componentRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	817 chandle->context[0].elemType = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	818 chandle->context[0].numElems = comp->numOfComponents;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	819 chandle->context[0].levelOffset = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	820 chandle->context[0].arrayIndex = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	821 chandle->context[0].state = TRAVERSE_STRUCTURE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	822 chandle->canDescent = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	823 chandle->source = edescr->esource;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	824 chandle->maxCSize = comp->cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	825 chandle->lenVarPart = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	826
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	827 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	828 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	829
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	830 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	831 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	832 \| Function : cde_comp_alias
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	833 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	834 \| Description : This function works with similar results like cde_comp_first,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	835 \| but not thewhole comp table is searched for the name of the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	836 \| component. Instead the alias name (as_name) from ?elem.cdg
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	837 \| is taken for name comparison.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	838 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	839 \| Parameters : chandle - the handle for the component (returned)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	840 \| source - if message or primitve
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	841 \| name - the name of the searched component
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	842 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	843 \| Return : CCDEDIT_OK on success, CCDEDIT_COMP_NOT_FOUND otherwise
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	844 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	845 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	846 USHORT cde_comp_alias (T_CCDE_HANDLE * chandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	847 T_ELM_SRC source,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	848 char * name)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	849
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	850 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	851 const T_CCD_CompTabEntry* comp;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	852 const T_CCD_ElemTabEntry* elem;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	853 int found = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	854 USHORT index, cindex;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	855
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	856 elem = source == FromMsg ? melem : pelem;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	857
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	858 index = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	859 while (!found AND (ccddata_get_alias (index, source == FromMsg) != NULL))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	860 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	861 /* name found */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	862 if (elem[index].elemType == 'C' &&
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	863 !strcmp (ccddata_get_alias (index, source == FromMsg), name))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	864 found = 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	865 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	866 index++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	867 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	868 if (!found)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	869 return CCDEDIT_COMP_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	870
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	871 cindex = elem[index].elemRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	872 comp = source == FromMsg ? &mcomp[cindex] : &pcomp[cindex];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	873 chandle->context[0].structIdx = cindex;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	874 chandle->level = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	875 chandle->context[0].elemIdx = comp->componentRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	876 chandle->context[0].elemType = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	877 chandle->context[0].numElems = comp->numOfComponents;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	878 chandle->context[0].levelOffset = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	879 chandle->context[0].arrayIndex = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	880 chandle->context[0].state = TRAVERSE_STRUCTURE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	881 chandle->canDescent = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	882 chandle->source = source;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	883 chandle->maxCSize = comp->cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	884 chandle->lenVarPart = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	885
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	886 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	887 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	888
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	889 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	890 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	891 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	892 \| STATE : code ROUTINE : cde_comp_first \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	893 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	894
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	895 PURPOSE :
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	896
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	897 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	898
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	899 USHORT CCDDATA_PREF(cde_comp_first) (T_CCDE_HANDLE * chandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	900 T_ELM_SRC source,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	901 char * compname)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	902
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	903 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	904 USHORT index;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	905 BOOL found = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	906
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	907 if (source EQ FromMsg)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	908 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	909 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	910 * search the mcomp-table for the given name
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	911 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	912 index = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	913 while (!found AND mcomp[index].name NEQ NULL)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	914 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	915 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	916 * composition name found
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	917 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	918 if (strcmp (mcomp[index].name, compname) EQ 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	919 found = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	920 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	921 index++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	922 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	923 if (found)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	924 chandle->context[0].structIdx = index;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	925 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	926 return CCDEDIT_COMP_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	927
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	928 chandle->level = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	929 chandle->context[0].elemIdx = mcomp[index].componentRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	930 chandle->context[0].elemType = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	931 chandle->context[0].numElems = mcomp[index].numOfComponents;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	932 chandle->context[0].levelOffset = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	933 chandle->context[0].arrayIndex = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	934 chandle->context[0].state = TRAVERSE_STRUCTURE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	935 chandle->canDescent = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	936 chandle->source = FromMsg;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	937 chandle->maxCSize = mcomp[index].cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	938 chandle->lenVarPart = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	939 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	940 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	941 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	942 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	943 * search the pcomp-table for the given name
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	944 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	945 index = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	946 while (!found AND pcomp[index].name NEQ NULL)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	947 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	948 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	949 * composition name found
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	950 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	951 if (strcmp (pcomp[index].name, compname) EQ 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	952 found = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	953 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	954 index++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	955 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	956 if (found)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	957 chandle->context[0].structIdx = index;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	958 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	959 return CCDEDIT_COMP_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	960
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	961 chandle->level = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	962 chandle->context[0].elemIdx = pcomp[index].componentRef;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	963 chandle->context[0].elemType = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	964 chandle->context[0].numElems = pcomp[index].numOfComponents;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	965 chandle->context[0].levelOffset = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	966 chandle->context[0].arrayIndex = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	967 chandle->context[0].state = TRAVERSE_STRUCTURE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	968 chandle->canDescent = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	969 chandle->source = FromPrim;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	970 chandle->maxCSize = pcomp[index].cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	971 chandle->lenVarPart = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	972 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	973
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	974 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	975 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	976
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	977 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	978 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	979 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	980 \| STATE : code ROUTINE : cde_comp_next \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	981 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	982
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	983 PURPOSE :
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	984
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	985 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	986
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	987 USHORT CCDDATA_PREF(cde_comp_next) (T_CCDE_HANDLE *chandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	988 UBYTE descent,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	989 T_CCDE_ELEM_DESCR *descr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	990 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	991 return cde_get_next_elem (chandle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	992 descent,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	993 descr);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	994 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	995
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	996 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	997 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	998 \| Function : cde_get_symval
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	999 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1000 \| Description : This function adds the "Comment" of the SAP-/MSG-catalogues
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1001 \| to the member symbolicValue of a given T_CCDE_ELEM_DESCR.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1002 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1003 \| Parameters : elem_value - the actual value for that the comment
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1004 \| is searched for
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1005 \| edescr - the element descriptor
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1006 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1007 \| Return : The string itself is returned which is a pointer to
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1008 \| '\0' if no comment was defined for that value.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1009 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1010 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1011
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1012 char* CCDDATA_PREF(cde_get_symval) (int elem_value, T_CCDE_ELEM_DESCR* edescr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1013 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1014 edescr->symbolicValue[0] = '\0';
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1015
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1016 cde_val_iterate (elem_value, edescr);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1017
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1018 return edescr->symbolicValue;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1019 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1020
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1021 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1022 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1023 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1024 \| STATE : code ROUTINE : cde_read_elem \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1025 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1026
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1027 PURPOSE : Reads the value of the element, referenced by the element
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1028 descriptor edescr, out of the C-Structure cstruct. The
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1029 value is stored in the memory area, addressed by the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1030 parameter value.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1031
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1032 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1033
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1034 USHORT CCDDATA_PREF(cde_read_elem) (T_CCDE_HANDLE * handle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1035 void * cstruct,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1036 T_CCDE_ELEM_DESCR * edescr,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1037 UBYTE * value)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1038 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1039 T_CONV * cvp;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1040 U32 voffset;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1041 ULONG elem_value;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1042 UBYTE * cs = (UBYTE *) cstruct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1043
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1044 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1045 * if this element is optional and it is no array component
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1046 * read the valid flag out of the C-structure.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1047 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1048 if (edescr->isOptional && edescr->index == NO_REF && edescr->ptrtype != usptr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1049 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1050 voffset = edescr->offset++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1051 edescr->isValid = (cs[voffset] EQ TRUE);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1052 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1053 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1054 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1055 if (edescr->index NEQ NO_REF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1056 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1057 T_CCDE_CONTEXT *last_ctx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1058
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1059 last_ctx = &handle->context[handle->level-1];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1060 edescr->isValid = (edescr->index < last_ctx->repeats);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1061 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1062 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1063 edescr->isValid = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1064 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1065
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1066 if (!edescr->isValid)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1067 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1068
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1069 if (edescr->u_member)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1070 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1071 edescr->u_ctrl = * (U32 *) &cs[edescr->offset];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1072 edescr->offset += sizeof (U32);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1073 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1074
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1075 if (edescr->arrayType NEQ NoArray)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1076 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1077 T_CCDE_CONTEXT *ctx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1078
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1079 ctx = &handle->context[handle->level];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1080
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1081 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1082 * array of message elements (info elements)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1083 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1084
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1085 if (edescr->arrayType EQ VarArray)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1086 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1087 USHORT sz_of_len;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1088 sz_of_len = edescr->maxRepeat >> 8 ? 2 : 1; /* 1 or 2 bytes for len */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1089 if (sz_of_len == 1)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1090 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1091 ctx->repeats = (USHORT) cs[edescr->offset];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1092 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1093 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1094 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1095 ctx->repeats = * (USHORT *) &cs[edescr->offset];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1096 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1097 edescr->offset += sz_of_len;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1098
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1099 if (ctx->repeats > edescr->maxRepeat)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1100 ctx->repeats = edescr->maxRepeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1101 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1102 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1103 ctx->repeats = edescr->maxRepeat;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1104
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1105 edescr->bytelen = edescr->bytelen * ctx->repeats;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1106 edescr->validRepeats = ctx->repeats;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1107 *value++ = (UBYTE) edescr->validRepeats;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1108 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1109
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1110 if (edescr->ptrtype != noptr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1111 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1112 cs = * (UBYTE **) &cs[edescr->offset];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1113 if (!cs)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1114 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1115 edescr->isValid = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1116 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1117 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1118 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1119 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1120 cs += edescr->offset;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1121
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1122 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1123 * read the current value from the C-structure
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1124 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1125 if ((edescr->btype == T_issdu) \|\| (edescr->btype == T_buffer))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1126 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1127 USHORT l_buf, o_buf, len;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1128
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1129 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1130 * For the structure SDU perform a special handling.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1131 * The SDU contains l_buf and o_buf and the element
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1132 * buf. This element is only defined as buf[1] because
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1133 * the real length results of the encoded message and
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1134 * must be calculated form l_buf and o_buf
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1135 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1136
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1137 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1138 * read l_buf and o_buf (length and offset) out of the struct
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1139 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1140 memcpy ((UBYTE *)&l_buf, cs, sizeof (USHORT));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1141
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1142 memcpy ((UBYTE *)&o_buf, cs+sizeof (USHORT), sizeof (USHORT));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1143
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1144 len = ((l_buf+o_buf+7)/8);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1145 handle->lenVarPart += len;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1146 handle->canDescent = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1147 if ((edescr->btype == T_issdu) &&
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1148 ((len > (U32)(ccddata_get_max_bitstream_len()/8)) \|\|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1149 (len > 0x1FFF))) /* max bytes: 0xFFFF/8 = 0x1FFF */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1150 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1151 return CCDEDIT_MESSAGE_ERROR;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1152 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1153 edescr->bytelen = (2 * sizeof (USHORT)) + len;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1154 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1155
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1156 memcpy (value, cs, edescr->bytelen);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1157
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1158 cvp = (T_CONV *) cs;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1159
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1160 switch (edescr->btype)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1161 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1162 case T_byte:
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1163 elem_value = (ULONG) cvp->b[0];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1164 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1165 case T_short:
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1166 elem_value = (ULONG) cvp->s[0];
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1167 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1168 case T_long:
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1169 elem_value = (ULONG) cvp->l;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1170 break;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1171 default:
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1172 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1173 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1174
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1175 (void) CCDDATA_PREF(cde_get_symval) (elem_value, edescr);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1176
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1177 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1178 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1179
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1180 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1181 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1182 \| Function : cde_write_prepare
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1183 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1184 \| Description : This function prepares the writing of elements, by setting
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1185 \| valid flag, union controller and length of vaiable arrays
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1186 \| if necessary. Current version: only valid flag and union
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1187 \| controller.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1188 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1189 \| Parameters : same as cde_write_elem except value
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1190 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1191 \| Return : -
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1192 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1193 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1194
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1195 void CCDDATA_PREF(cde_write_prepare) (T_CCDE_HANDLE * handle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1196 void * cstruct,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1197 T_CCDE_ELEM_DESCR * edescr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1198 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1199 UBYTE * cs = (UBYTE *) cstruct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1200
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1201 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1202 * if this element is optional and it is no array component
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1203 * set the corresponding valid flag in the C-structure.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1204 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1205 if (edescr->isOptional && edescr->ptrtype != usptr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1206 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1207 cs[edescr->offset++] = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1208 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1209
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1210 if (edescr->u_member)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1211 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1212 * (U32 *) &cs[edescr->offset] = (UBYTE) edescr->u_ctrl;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1213 edescr->offset += sizeof (U32);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1214 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1215 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1216
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1217
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1218 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1219 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1220 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1221 \| STATE : code ROUTINE : cde_write_elem \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1222 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1223
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1224 PURPOSE : Write the value wich is stored in the memory area,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1225 addressed by the parameter value, into the C-Structure
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1226 element, referenced by the element descriptor edescr.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1227
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1228 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1229
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1230 USHORT CCDDATA_PREF(cde_write_elem) (T_CCDE_HANDLE * handle,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1231 void * cstruct,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1232 T_CCDE_ELEM_DESCR * edescr,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1233 UBYTE * value)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1234 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1235 char cs = (UBYTE ) cstruct;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1236 char *vb;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1237 U32 len;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1238
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1239 CCDDATA_PREF(cde_write_prepare) (handle, cs, edescr);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1240
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1241 if ((edescr->arrayType != NoArray) && (edescr->btype != T_struct))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1242 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1243 T_CCDE_CONTEXT *ctx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1244 T_CCDE_CONTEXT _ctx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1245
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1246 ctx = handle ? &handle->context[handle->level] : &_ctx;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1247
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1248 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1249 * Array of message elements (info elements) or
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1250 * parameter.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1251 * In case of variable sized arrays, store the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1252 * amount of elements into the corresponding c_xxx variable
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1253 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1254 if (edescr->arrayType EQ VarArray)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1255 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1256 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1257 * array with a variable number of elements
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1258 * set the c_xxx variable in the C-Structure
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1259 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1260 USHORT sz_of_len;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1261 sz_of_len = edescr->maxRepeat >> 8 ? 2 : 1; /* 1 or 2 bytes for len */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1262 if (sz_of_len == 1)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1263 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1264 cs[edescr->offset] = (UBYTE) edescr->validRepeats;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1265 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1266 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1267 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1268 * (USHORT *) &cs[edescr->offset] = edescr->validRepeats;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1269 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1270 edescr->offset += sz_of_len;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1271 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1272 ctx->repeats = edescr->validRepeats;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1273 if (edescr->bitstring)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1274 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1275 ctx->repeats = (ctx->repeats+7)/8;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1276 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1277
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1278 edescr->bytelen = edescr->bytelen * ctx->repeats;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1279 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1280
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1281 if (edescr->ptrtype != noptr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1282 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1283 char* pointer = value;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1284 vb = (char*) &pointer;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1285 len = sizeof (char*);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1286 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1287 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1288 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1289 vb = (char*) value;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1290 len = edescr->bytelen;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1291
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1292 if ((edescr->btype == T_issdu) \|\| (edescr->btype == T_buffer))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1293 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1294 USHORT l_buf, o_buf;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1295
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1296 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1297 * For the structure SDU perform a special handling.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1298 * The SDU contains l_buf and o_buf and the element
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1299 * buf. This element is only defined as buf[1] because
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1300 * the real length results of the encoded message and
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1301 * must be calculated form l_buf and o_buf
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1302 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1303
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1304 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1305 * read l_buf and o_buf (length and offset) out of the value
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1306 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1307 memcpy ((UBYTE *)&l_buf, vb, sizeof (USHORT));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1308
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1309 memcpy ((UBYTE *)&o_buf, vb+sizeof (USHORT), sizeof (USHORT));
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1310
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1311 len = (2 * sizeof (USHORT)) + ((l_buf+o_buf+7)/8);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1312 if (handle)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1313 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1314 if (edescr->ptrtype == noptr)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1315 handle->lenVarPart += (USHORT) len;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1316 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1317 handle->lenVarPart += sizeof (void*);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1318 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1319 edescr->bytelen = len;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1320 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1321 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1322
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1323 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1324 * write the value into the C-structure
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1325 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1326 memcpy (cs+edescr->offset, vb, len);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1327
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1328 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1329 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1330
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1331 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1332 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1333 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1334 \| STATE : code ROUTINE : cde_get_type \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1335 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1336
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1337 PURPOSE : Requests the type (primitive or message) for a given
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1338 name. The type is stored in the return parameter type.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1339
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1340 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1341
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1342 USHORT CCDDATA_PREF(cde_get_type) (char *name,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1343 T_ELM_SRC *type)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1344 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1345 #ifdef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1346 USHORT SAP, Opcode, Direction, Entity;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1347
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1348 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1349 * check the primitive table first. Look in all SAPs ands for
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1350 * all direction alls opcodes to find the name as a primitve
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1351 * name.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1352 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1353
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1354 for (SAP = 0; SAP <= ccddata_max_sap_num; SAP++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1355 for (Direction = 0; Direction <= 1; Direction++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1356 for (Opcode = 0; Opcode <= ccddata_max_primitive_id; Opcode++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1357 if (ccddata_get_pmtx(SAP, Opcode, Direction) NEQ NO_REF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1358 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1359 if (!strcmp (name,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1360 pcomp[ccddata_get_pmtx(SAP, Opcode, Direction)].name))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1361 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1362 *type = FromPrim;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1363 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1364 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1365 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1366
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1367 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1368 * check the message table second. Look in all entities ands for
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1369 * all direction alls opcodes to find the name as a message
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1370 * name.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1371 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1372
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1373 for (Entity = 0; Entity < ccddata_num_of_entities; Entity++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1374 for (Direction = 0; Direction <= 1; Direction++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1375 for (Opcode = 0; Opcode <= ccddata_max_message_id; Opcode++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1376 if (ccddata_get_mmtx(Entity, Opcode, Direction) NEQ NO_REF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1377 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1378 if (!strcmp (name,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1379 mcomp[ccddata_get_mmtx(Entity, Opcode, Direction)].name))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1380 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1381 *type = FromPrim;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1382 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1383 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1384 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1385
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1386 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1387
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1388 return CCDEDIT_PRIM_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1389 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1390
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1391 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1392 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1393 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1394 \| STATE : code ROUTINE : cde_get_primcode \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1395 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1396
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1397 PURPOSE : Requests the opcode of the primitive for a given
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1398 name. The opcode is stored in the return parameter primcode.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1399
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1400 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1401
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1402 USHORT CCDDATA_PREF(cde_get_primcode) (char *name,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1403 ULONG *primcode)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1404 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1405 #ifdef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1406 USHORT SAP, Opcode, Direction;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1407
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1408 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1409 * check the primitive table. Look in all SAPs ands for
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1410 * all direction alls opcodes to find the name as a primitve
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1411 * name.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1412 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1413
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1414 for (SAP = 0; SAP <= ccddata_max_sap_num; SAP++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1415 for (Direction = 0; Direction <= 1; Direction++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1416 for (Opcode = 0; Opcode <= ccddata_max_primitive_id; Opcode++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1417 if (ccddata_get_pmtx(SAP, Opcode, Direction) NEQ NO_REF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1418 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1419 if (!strcmp (name, pcomp[ccddata_get_pmtx(SAP, Opcode, Direction)].name))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1420 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1421 *primcode = ((Direction & 0x01) << 14);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1422 *primcode \|= (SAP & 0x3fff);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1423 *primcode \|= ((Opcode & 0xff) << 16);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1424 *primcode \|= 0x80000000;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1425
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1426 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1427 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1428 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1429 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1430
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1431 return CCDEDIT_PRIM_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1432 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1433
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1434
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1435 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1436 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1437 \| PROJECT : CCD (6144) MODULE : CCDEDIT \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1438 \| STATE : code ROUTINE : cde_get_msgcode \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1439 +--------------------------------------------------------------------+
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1440
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1441 PURPOSE : Requests the opcode, the direction and the entity-number
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1442 of the message for a given name.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1443 The opcode is stored in the return parameters .
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1444
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1445 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1446
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1447 USHORT CCDDATA_PREF(cde_get_msgcode) (char *name,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1448 UBYTE *type,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1449 UBYTE *direction,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1450 UBYTE *entity)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1451 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1452 #ifdef CCD_SYMBOLS
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1453 USHORT Opcode, Direction, Entity;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1454
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1455 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1456 * check the message table. Look in all entities ands for
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1457 * all direction alls opcodes to find the name as a message
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1458 * name.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1459 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1460
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1461 for (Entity = 0; Entity < ccddata_num_of_entities; Entity++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1462 for (Direction = 0; Direction <= 1; Direction++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1463 for (Opcode = 0; Opcode <= ccddata_max_message_id; Opcode++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1464 if (ccddata_get_mmtx(Entity, Opcode, Direction) NEQ NO_REF)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1465 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1466 if (!strcmp (name,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1467 mcomp[ccddata_get_mmtx(Entity, Opcode, Direction)].name))
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1468 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1469 *type = (UBYTE) Opcode;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1470 *direction = (UBYTE) Direction;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1471 *entity = (UBYTE) Entity;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1472 return CCDEDIT_OK;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1473 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1474 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1475
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1476 #endif
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1477
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1478 return CCDEDIT_MESSAGE_NOT_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1479 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1480
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1481 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1482 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1483 \| Function : cde_get_is_downlink
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1484 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1485 \| Description : This function finds out if an AIM is a downlink or uplink.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1486 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1487 \| Parameters : comp_index.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1488 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1489 \| Return : False if uplink otherwise true (downlink or both).
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1490 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1491 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1492 int CCDDATA_PREF(cde_get_is_downlink) (ULONG comp_index)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1493 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1494 UBYTE ent;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1495 UBYTE msg_id;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1496
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1497 for(ent = 0; ent < ccddata_num_of_entities ; ent++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1498 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1499 for(msg_id = 0; msg_id <= ccddata_max_message_id ; msg_id++)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1500 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1501 if(ccddata_get_mmtx (ent, msg_id, 1) == (USHORT)comp_index)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1502 return 1;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1503 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1504 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1505 return 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1506 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1507
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1508 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1509 * The following functions are copied from ..\TAP\tdc_interface.c and
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1510 * renamed to get the cde_ prefix instead of tdc_.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1511 * It should be checked if instead of these functions the usual approach
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1512 * to ccdedit by the functions pairs cde_comp_first/cde_comp_next
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1513 * (respectively their prim/msg pendants) can be used (maybe in combination
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1514 * with cde_get_comp). If the check confirms to use the usual approach,
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1515 * those 3 functions here should be deleted again
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1516 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1517 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1518 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1519 \| Function : cde_get_comp_index
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1520 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1521 \| Description : This function searches the comp index in either pcomp or mcomp
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1522 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1523 \| Parameters : name and table type.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1524 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1525 \| Return : The table entry, if non found it returns 0xffffffff;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1526 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1527 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1528
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1529 ULONG CCDDATA_PREF(cde_get_comp_index) (CHAR* comp_name, T_ELM_SRC table)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1530 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1531 ULONG comp_index;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1532 BOOL found = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1533
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1534 if (table == FromMsg)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1535 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1536 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1537 * search the mcomp-table for the given name
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1538 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1539 comp_index = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1540 while (!found AND mcomp[comp_index].name NEQ NULL)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1541 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1542 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1543 * composition name found
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1544 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1545 if (strcmp (mcomp[comp_index].name, comp_name) EQ 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1546 found = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1547 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1548 comp_index++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1549 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1550 if(found)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1551 return comp_index;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1552 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1553 return NO_ENTRY_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1554 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1555 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1556 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1557 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1558 * search the pcomp-table for the given name
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1559 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1560 comp_index = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1561 while (!found AND pcomp[comp_index].name NEQ NULL)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1562 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1563 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1564 * composition name found
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1565 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1566 if (strcmp (pcomp[comp_index].name, comp_name) EQ 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1567 found = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1568 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1569 comp_index++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1570 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1571 if(found)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1572 return comp_index;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1573 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1574 return NO_ENTRY_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1575 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1576 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1577
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1578 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1579 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1580 \| Function : cde_get_element_name
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1581 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1582 \| Description : This function gets the element name for a given index + offset.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1583 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1584 \| Parameters : comp_index, offset and table type.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1585 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1586 \| Return : The element name.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1587 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1588 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1589
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1590 CHAR* CCDDATA_PREF(cde_get_element_name) (ULONG comp_index, USHORT elem_off , T_ELM_SRC table)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1591 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1592 if (table == FromMsg)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1593 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1594 if (mcomp[comp_index].componentRef == -1 \|\| elem_off >= mcomp[comp_index].numOfComponents)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1595 return NULL;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1596 return ccddata_get_alias ((USHORT) (mcomp[comp_index].componentRef + elem_off), table == FromMsg);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1597 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1598 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1599 if (pcomp[comp_index].componentRef == -1 \|\| elem_off >= pcomp[comp_index].numOfComponents)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1600 return NULL;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1601 return ccddata_get_alias ((USHORT) (pcomp[comp_index].componentRef + elem_off), table == FromMsg);
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1602 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1603
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1604 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1605 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1606 \| Function : cde_get_array_kind
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1607 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1608 \| Description : This function gets the array kind - e.g. the cSize of the
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1609 \| arrays (byte, short og long).
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1610 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1611 \| Parameters : Name of the base type (var_name) and table type.
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1612 \|
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1613 \| Return : The cSize of the var_name. If not found it returns 0xffffffff
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1614 +------------------------------------------------------------------------------
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1615 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1616
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1617 ULONG CCDDATA_PREF(cde_get_array_kind) (CHAR* var_name, T_ELM_SRC table)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1618 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1619 ULONG var_index;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1620 BOOL found = FALSE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1621
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1622 if (table == FromMsg)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1623 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1624 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1625 * search the mvar-table for the given name
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1626 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1627 var_index = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1628 while (!found AND mvar[var_index].name NEQ NULL)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1629 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1630 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1631 * name found
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1632 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1633 if (strcmp (mvar[var_index].name, var_name) EQ 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1634 found = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1635 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1636 var_index++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1637 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1638 if(found)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1639 return (ULONG) mvar[var_index].cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1640 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1641 return NO_ENTRY_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1642 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1643 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1644 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1645 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1646 * search the pvar-table for the given name
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1647 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1648 var_index = 0;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1649 while (!found AND pvar[var_index].name NEQ NULL)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1650 {
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1651 /*
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1652 * name found
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1653 */
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1654 if (strcmp (pvar[var_index].name, var_name) EQ 0)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1655 found = TRUE;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1656 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1657 var_index++;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1658 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1659 if(found)
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1660 return (ULONG) pvar[var_index].cSize;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1661 else
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1662 return NO_ENTRY_FOUND;
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1663 }
1ea54a97e831 src/gpf: import of Magnetite src/gpf3 Mychaela Falconia <falcon@freecalypso.org> parents: diff changeset	1664 }

FreeCalypso > hg > fc-selenite

annotate src/gpf/ccd/Ccdedit.c @ 134:7d50d8d13711