fis-gtm/sr_port/mu_int_blk.c

912 lines
29 KiB
C

/****************************************************************
* *
* Copyright 2001, 2012 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "gtm_string.h"
#include "gtm_ctype.h"
#include "gdsroot.h"
#include "gtm_facility.h"
#include "fileinfo.h"
#include "gdsbt.h"
#include "gdsfhead.h"
#include "gdsdbver.h"
#include "gdsblk.h"
#include "copy.h"
#include "mupint.h"
#include "subscript.h"
#include "spec_type.h"
#include "mmemory.h"
#include "util.h"
#include "gdsbml.h"
#include "gtmmsg.h"
#include "get_spec.h"
#ifdef GTM_TRIGGER
#include <rtnhdr.h> /* for rtn_tabent in gv_trigger.h */
#include "gv_trigger.h"
#endif
#define NEG_SUB 127
#define NO_SUBSCRIPTS -1
#define MAX_UTIL_SIZE 32
#define MIN_DATA (3 * SIZEOF(char)) /* a non-empty data block rec must have at least one character of key and two of terminator */
#define TEXT2 "Block "
#define TEXT3 " doubly allocated"
#define SPAN_SUBS_LENGTH 5
#define SPAN_START_BYTE 0x02
#define SPAN_BYTE_MAX 255
#define SPAN_BYTE_MIN 1
#define SPAN_SUBS_OFF 48
GBLDEF unsigned char muint_temp_buff[MAX_MIDENT_LEN + 1];
GBLREF unsigned char *mu_int_locals;
GBLREF unsigned char mu_int_root_level;
GBLREF bool mu_ctrly_occurred, mu_ctrlc_occurred;
GBLREF boolean_t block;
GBLREF boolean_t master_dir;
GBLREF boolean_t muint_fast;
GBLREF boolean_t muint_key;
GBLREF boolean_t muint_subsc;
GBLREF boolean_t tn_reset_this_reg;
GBLREF int disp_maxkey_errors;
GBLREF int disp_trans_errors;
GBLREF int maxkey_errors;
GBLREF int muint_adj;
GBLREF int muint_end_keyend;
GBLREF int muint_start_keyend;
GBLREF int mu_int_plen;
GBLREF int trans_errors;
GBLREF int4 mu_int_adj[];
GBLREF uint4 mu_int_blks[];
GBLREF uint4 mu_int_offset[];
GBLREF uint4 mu_int_recs[];
GBLREF qw_num mu_int_size[];
GBLREF uint4 mu_int_errknt;
GBLREF block_id mu_int_adj_prev[];
GBLREF block_id mu_int_path[];
GBLREF int4 mu_int_blks_to_upgrd;
GBLREF global_list *trees;
GBLREF global_list *trees_tail;
GBLREF gv_key *muint_end_key;
GBLREF gv_key *muint_start_key;
GBLREF sgmnt_data mu_int_data;
GBLREF trans_num largest_tn;
GBLREF span_node_integ *sndata;
error_def(ERR_DBBADKYNM);
error_def(ERR_DBBADNSUB);
error_def(ERR_DBBADPNTR);
error_def(ERR_DBBDBALLOC);
error_def(ERR_DBBNPNTR);
error_def(ERR_DBBSIZMN);
error_def(ERR_DBBSIZMX);
error_def(ERR_DBCMPBAD);
error_def(ERR_DBCMPNZRO);
error_def(ERR_DBCOMPTOOLRG);
error_def(ERR_DBGTDBMAX);
error_def(ERR_DBINCLVL);
error_def(ERR_DBINVGBL);
error_def(ERR_DBKEYGTIND);
error_def(ERR_DBKEYMN);
error_def(ERR_DBKEYMX);
error_def(ERR_DBKEYORD);
error_def(ERR_DBKGTALLW);
error_def(ERR_DBLRCINVSZ);
error_def(ERR_DBLTSIBL);
error_def(ERR_DBMAXNRSUBS); /* same error as ERR_MAXNRSUBSCRIPTS, but has a string output as well */
error_def(ERR_DBPTRMX);
error_def(ERR_DBPTRNOTPOS);
error_def(ERR_DBRLEVTOOHI);
error_def(ERR_DBRLEVLTONE);
error_def(ERR_DBSTARCMP);
error_def(ERR_DBRSIZMN);
error_def(ERR_DBRSIZMX);
error_def(ERR_DBDATAMX);
error_def(ERR_DBTN);
error_def(ERR_DBTNTOOLG);
error_def(ERR_DBSPANGLOINCMP);
error_def(ERR_DBSPANCHUNKORD);
LITDEF boolean_t mu_int_possub[16][16] = {
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0},
{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
};
LITDEF boolean_t mu_int_negsub[16][16] = {
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
};
LITDEF boolean_t mu_int_exponent[256] = {
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0};
boolean_t mu_int_blk(
block_id blk,
char level,
boolean_t is_root,
unsigned char *bot_key,
int bot_len,
unsigned char *top_key,
int top_len,
boolean_t eb_ok) /* boolean indicating whether an empty block here is ok. This is true when
the parent is a root with only a star key */
{
typedef struct
{
boolean_t numeric;
int index;
} sub_list;
unsigned char buff[MAX_KEY_SZ + 1], old_buff[MAX_KEY_SZ + 1], temp_buff[MAX_MIDENT_LEN + 1], util_buff[MAX_UTIL_SIZE];
unsigned char blk_levl, *c1, ch, *ctrlbytes;
unsigned short cc, rec_cmpc;
uchar_ptr_t c0, c2, c_base, blk_base, blk_top, key_base, ptr, rec_base, rec_top, span_key;
unsigned short temp_ushort;
boolean_t first_key, is_top, pstar, valid_gbl, hasht_global;
boolean_t muint_range_done = FALSE;
int blk_size, buff_length, b_index, cmcc, comp_length, key_size, len, name_len,
num_len, rec_size, s_index, start_index, hdr_len, idx;
int tmp_cmpc, tmp_numsubs, max_allowed_key_size;
block_id child, root_pointer;
sub_list mu_sub_list[MAX_GVSUBSCRIPTS + 1];
sub_num check_vals;
trans_num blk_tn;
uchar_ptr_t subrec_ptr;
enum db_ver ondsk_blkver;
uint4 cnt, span_curr_blk, rval_len, gblsize;
unsigned short numsubs;
mu_int_offset[mu_int_plen] = 0;
mu_int_path[mu_int_plen++] = blk;
mu_int_path[mu_int_plen] = 0;
if (!bml_busy(blk, mu_int_locals)) /* block already marked busy */
{
mu_int_err(ERR_DBBDBALLOC, TRUE, TRUE, bot_key, bot_len, top_key, top_len, (unsigned int)(level));
return FALSE;
}
blk_base = mu_int_read(blk, &ondsk_blkver); /* ondsk_blkver set to GDSV4 or GDSV6 (GDSVCURR) */
if (!blk_base)
return FALSE;
blk_size = (int)((blk_hdr_ptr_t)blk_base)->bsiz;
if (!muint_fast)
{
if (tn_reset_this_reg)
{
((blk_hdr_ptr_t)blk_base)->tn = 1;
mu_int_write(blk, blk_base);
if (GDSVCURR != mu_int_data.desired_db_format)
mu_int_blks_to_upgrd++;
} else if (GDSVCURR != ondsk_blkver)
mu_int_blks_to_upgrd++;
}
/* pstar indicates that the current block is a (root block with only a star key) or not.
This is passed into mu_int_blk() as eb_ok */
pstar = (is_root && (SIZEOF(blk_hdr) + SIZEOF(rec_hdr) + SIZEOF(block_id) == blk_size));
if (blk_size < (SIZEOF(blk_hdr) + (eb_ok ? 0 : (SIZEOF(rec_hdr) + (level ? SIZEOF(block_id) : MIN_DATA)))))
{
mu_int_err(ERR_DBBSIZMN, TRUE, TRUE, bot_key, bot_len, top_key, top_len,
(unsigned int)((blk_hdr_ptr_t)blk_base)->levl);
free(blk_base);
return FALSE;
}
if (blk_size > mu_int_data.blk_size)
{
mu_int_err(ERR_DBBSIZMX, TRUE, TRUE, bot_key, bot_len, top_key, top_len,
(unsigned int)((blk_hdr_ptr_t)blk_base)->levl);
free(blk_base);
return FALSE;
}
blk_top = blk_base + blk_size;
blk_levl = ((blk_hdr_ptr_t)blk_base)->levl;
if (block)
mu_int_root_level = level = blk_levl;
else if (is_root)
{
if (blk_levl >= MAX_BT_DEPTH)
{
mu_int_err(ERR_DBRLEVTOOHI, 0, 0, 0, 0, 0, 0, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if (blk_levl < 1)
{
mu_int_err(ERR_DBRLEVLTONE, 0, 0, 0, 0, 0, 0, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
mu_int_root_level = level = blk_levl;
} else if (blk_levl != level)
{
mu_int_err(ERR_DBINCLVL, TRUE, TRUE, bot_key, bot_len, top_key, top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if (!master_dir)
{
if (mu_int_adj_prev[level] <= blk + muint_adj && mu_int_adj_prev[level] >= blk - muint_adj)
mu_int_adj[level] += 1;
mu_int_adj_prev[level] = blk;
}
blk_tn = ((blk_hdr_ptr_t)blk_base)->tn;
if (blk_tn >= mu_int_data.trans_hist.curr_tn)
{
if (trans_errors < disp_trans_errors)
{
mu_int_err(ERR_DBTNTOOLG, TRUE, TRUE, bot_key, bot_len, top_key, top_len,
(unsigned int)blk_levl);
mu_int_plen++; /* continuing, so compensate for mu_int_err decrement */
gtm_putmsg(VARLSTCNT(3) ERR_DBTN, 1, &blk_tn);
trans_errors++;
} else
{
mu_int_errknt++;
trans_errors++;
}
if (blk_tn > largest_tn)
largest_tn = blk_tn;
}
mu_int_blks[level]++;
QWINCRBYDW(mu_int_size[level], blk_size);
first_key = TRUE;
buff_length = 0;
comp_length = bot_len;
is_top = FALSE;
memcpy(buff, bot_key, bot_len);
mu_sub_list[0].index = NO_SUBSCRIPTS;
for (rec_base = blk_base + SIZEOF(blk_hdr); (rec_base < blk_top) && (FALSE == muint_range_done);
rec_base = rec_top, comp_length = buff_length)
{
if (mu_ctrly_occurred || mu_ctrlc_occurred)
return FALSE;
mu_int_recs[level]++;
GET_USHORT(temp_ushort, &(((rec_hdr_ptr_t)rec_base)->rsiz));
rec_size = temp_ushort;
mu_int_offset[mu_int_plen - 1] = (uint4)(rec_base - blk_base);
if (rec_size <= SIZEOF(rec_hdr))
{
mu_int_err(ERR_DBRSIZMN, TRUE, TRUE, buff, comp_length, top_key, top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if ((rec_size > blk_top - rec_base))
{
mu_int_err(ERR_DBRSIZMX, TRUE, TRUE, buff, comp_length, top_key, top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
rec_top = rec_base + rec_size;
rec_cmpc = EVAL_CMPC((rec_hdr_ptr_t)rec_base);
if (level && (rec_top == blk_top))
{
is_top = TRUE;
if (SIZEOF(rec_hdr) + SIZEOF(block_id) != rec_size)
{
mu_int_err(ERR_DBLRCINVSZ, TRUE, TRUE, buff, comp_length, top_key, top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if (rec_cmpc)
{
mu_int_err(ERR_DBSTARCMP, TRUE, TRUE, buff, comp_length, top_key, top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
ptr = rec_base + SIZEOF(rec_hdr);
} else
{
if (first_key)
{
if (rec_cmpc)
{
mu_int_err(ERR_DBCMPNZRO, TRUE, TRUE, buff,
comp_length, top_key, top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
} else if ((rec_cmpc < name_len) && (FALSE == master_dir))
{
mu_int_err(ERR_DBINVGBL, TRUE, TRUE, buff, comp_length, top_key, top_len,
(unsigned int)blk_levl);
if (!level)
{ /* since global names are mixed, the numeric subscript check done later below
* (using mu_sub_list) needs to not use the optimization which relies on the assumption
* that all keys within a block have the same global name prefix.
* reset mu_sub_list[0].index here to ensure the same.
*/
mu_sub_list[0].index = NO_SUBSCRIPTS;
}
mu_int_plen++; /* continuing, so compensate for mu_int_err decrement */
}
if (rec_cmpc && (short int)rec_cmpc >= buff_length)
{
mu_int_err(ERR_DBCOMPTOOLRG, TRUE, TRUE, buff, comp_length, top_key,
top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
key_base = rec_base + SIZEOF(rec_hdr);
for (ptr = key_base; ;)
{
if (ptr >= rec_top)
{
mu_int_err(ERR_DBKEYMX, TRUE, TRUE, buff, comp_length, top_key, top_len,
(unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if (KEY_DELIMITER == *ptr++)
{
if (first_key)
{
first_key = FALSE;
name_len = (int)(ptr - key_base);
if (!master_dir)
{ /* If NOT directory tree and this is the first key in the block,
* make sure the global name part of the key matches the name
* corresponding to the current global variable tree.
*/
assert(strlen(trees->key) == trees->keysize);
if (0 != memcmp(trees->key, key_base, trees->keysize + 1))
{
mu_int_err(ERR_DBINVGBL, TRUE, TRUE, bot_key, bot_len,
top_key, top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
}
}
if (KEY_DELIMITER == *ptr++)
break;
}
}
key_size = (int)(ptr - key_base);
if (level && (rec_size - SIZEOF(block_id) - SIZEOF(rec_hdr) != key_size))
{
mu_int_err(ERR_DBKEYMN, TRUE, TRUE, buff, comp_length, top_key, top_len,
(unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if (key_size + rec_cmpc > MAX_KEY_SZ)
{ /* We'll allow index keys to be whatever length, so long as they don't exceed MAX_KEY_SZ */
mu_int_err(ERR_DBKGTALLW, TRUE, TRUE, buff, comp_length, top_key,
top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if ((short int)rec_cmpc < buff_length && buff[rec_cmpc] == *key_base)
{
mu_int_err(ERR_DBCMPBAD, TRUE, TRUE, buff, comp_length, top_key, top_len,
(unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if (memvcmp(buff + rec_cmpc, comp_length - rec_cmpc, key_base, key_size) >= 0)
{
if (3 == mu_int_offset[mu_int_plen - 1])
{
mu_int_err(ERR_DBLTSIBL,
TRUE, TRUE, buff, comp_length, top_key, top_len, (unsigned int)blk_levl);
mu_int_plen++; /* continuing, so compensate for mu_int_err decrement */
} else
{
mu_int_err(ERR_DBKEYORD, TRUE, TRUE, buff, comp_length, top_key, top_len,
(unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
}
memcpy(old_buff, buff, comp_length);
memcpy(buff + rec_cmpc, key_base, key_size);
buff_length = rec_cmpc + key_size;
/* Now that we have the uncompressed global variable name, check for global name validity.
* Note that it is enough to check the validity on the leaf level directory tree and not
* for every block. Invalid global names in non-directory tree blocks will encounter
* either DBKEYORD error or DBINVGBL. Below are the rules for validating.
* a) The first character should be ALPHA or '%' or '#'
* b) If first character is '#' then the following character should be 't' followed by 2 KEY_DELIMITERS
* c) If first character is '%' then the following characters should be ALPHANUMERIC and 2 KEY_DELIMITERS
*/
if (master_dir && !level)
{
hasht_global = FALSE;
ch = buff[0];
switch (ch)
{
# ifdef GTM_TRIGGER
case HASHT_GBL_CHAR1:
hasht_global = valid_gbl = (HASHT_GBL_CHAR2 == buff[1]);
idx = 2;
break;
# endif
case '%':
default:
valid_gbl = VALFIRSTCHAR(ch);
idx = 1;
break;
}
if (!hasht_global)
{
for (; valid_gbl && (idx <= buff_length - 3); idx++)
valid_gbl = (valid_gbl && VALKEY(buff[idx]));
}
valid_gbl = (valid_gbl && (KEY_DELIMITER == buff[idx]) && (KEY_DELIMITER == buff[idx + 1]));
if (!valid_gbl)
{
mu_int_err(ERR_DBBADKYNM, TRUE, TRUE, buff, buff_length, top_key, top_len,
(unsigned int)blk_levl);
mu_int_plen++; /* continuing, so compensate for mu_int_err decrement */
}
}
if (!master_dir)
{ /* master_directory has no subscripts; block splits don't preserve numeric integrity in index */
if (muint_subsc)
{
if (muint_end_key)
{
if (memcmp(buff, muint_end_key->base, muint_end_key->end + 1) > 0)
{
if (level)
muint_range_done = TRUE;
else
{
mu_int_recs[level]--;
mu_int_plen--;
free(blk_base);
return TRUE;
}
}
if (memcmp(buff, muint_start_key->base, muint_start_key->end + 1) < 0)
{
mu_int_recs[level]--;
continue;
}
} else
{
if (memcmp(buff, muint_start_key->base, muint_start_key->end + 1) > 0)
{
if (level)
muint_range_done = TRUE;
else
{
mu_int_recs[level]--;
mu_int_plen--;
free(blk_base);
return TRUE;
}
}
if (memcmp(buff, muint_start_key->base, muint_start_key->end + 1) < 0)
{
mu_int_recs[level]--;
continue;
}
}
}
if (!level)
{
s_index = 0;
if (NO_SUBSCRIPTS != mu_sub_list[0].index)
{
for (; (mu_sub_list[s_index].index < (short int)rec_cmpc - 1) &&
mu_sub_list[s_index].index > 0;)
if (MAX_GVSUBSCRIPTS <= s_index++)
break;
if (s_index)
s_index--;
} else /* scan off key */
{
for (b_index = 0; buff[b_index]; b_index++)
;
b_index++;
mu_sub_list[0].index = b_index;
}
b_index = mu_sub_list[s_index].index;
start_index = s_index;
while (buff[b_index])
{
if (mu_int_exponent[buff[b_index]])
mu_sub_list[s_index].numeric = TRUE;
else
mu_sub_list[s_index].numeric = FALSE;
mu_sub_list[s_index].index = b_index;
for (; buff[b_index]; b_index++)
;
b_index++;
if (MAX_GVSUBSCRIPTS <= s_index++)
break;
}
if (MAX_GVSUBSCRIPTS < s_index)
{
mu_int_err(ERR_DBMAXNRSUBS, TRUE, TRUE, buff,
comp_length, top_key, top_len, (unsigned int)blk_levl);
mu_int_plen++; /* continuing, so compensate for mu_int_err decrement */
break;
}
mu_sub_list[s_index].index = 0;
for (; (start_index != s_index) && (0 != mu_sub_list[start_index].index); start_index++)
{
if (mu_sub_list[start_index].numeric)
{
b_index = mu_sub_list[start_index].index;
if (buff[b_index] > NEG_SUB)
{
b_index++;
while (buff[b_index])
{
memcpy(&check_vals, &buff[b_index], 1);
if (!mu_int_possub[check_vals.one][check_vals.two])
{
mu_int_err(ERR_DBBADNSUB, TRUE, TRUE,
buff, comp_length, top_key, top_len,
(unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
b_index++;
}
} else
{
b_index++;
while ((STR_SUB_PREFIX != buff[b_index]) && (0 != buff[b_index]))
{
memcpy(&check_vals, &buff[b_index], 1);
if (!mu_int_negsub[check_vals.one][check_vals.two])
{
mu_int_err(ERR_DBBADNSUB, TRUE, TRUE,
buff, comp_length, top_key, top_len,
(unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
b_index++;
}
if (STR_SUB_PREFIX != buff[b_index++] || (buff[b_index]))
{
mu_int_err(ERR_DBBADNSUB, TRUE, TRUE, buff, comp_length,
top_key, top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
}
}
}
}
}
if (!level && !master_dir)
{
rval_len = rec_size - SIZEOF(rec_hdr) - key_size;
if (mu_int_data.max_rec_size < rval_len)
{
mu_int_err(ERR_DBDATAMX, TRUE, TRUE, buff, comp_length,
top_key, top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
span_key = buff + buff_length - SPAN_SUBS_LENGTH - 1;
max_allowed_key_size = mu_int_data.max_key_size;
if ((SPAN_SUBS_LENGTH < key_size + rec_cmpc) && (KEY_DELIMITER == *span_key++)
&& (SPAN_START_BYTE == *span_key))
{ /* Hidden subscript detected */
max_allowed_key_size += 4;
if (0 == (span_curr_blk = SPAN_GVSUBS2INT((span_subs *)span_key)))
{ /* First record of spanning node. Get the number blocks. */
ctrlbytes = key_base + key_size;
if (rec_top - ctrlbytes == 6)
{
GET_NSBCTRL(ctrlbytes, numsubs, gblsize);
} else
{
SSCANF((char *)ctrlbytes, "%d,%d", &tmp_numsubs, &gblsize);
numsubs = tmp_numsubs;
}
sndata->span_tot_blks = numsubs + 1;
sndata->span_node_sz = gblsize;
sndata->val_len = 0;
sndata->sn_type = SPAN_NODE;
sndata->span_prev_blk = 0;
sndata->span_blk_cnt = 1;
sndata->key_len = buff_length;
sndata->sn_cnt += 1;
memcpy(sndata->span_node_buf, buff, buff_length);
} else
{
switch (sndata->sn_type)
{
case SN_NOT: /*First block of the node-fragment*/
sndata->sn_type = SN_CHUNK;
sndata->span_prev_blk = span_curr_blk;
sndata->span_blk_cnt = 1;
sndata->span_frag_off = span_curr_blk;
sndata->key_len = buff_length;
/*Spanning node can never have 0 rval*/
sndata->span_node_sz = 0;
sndata->val_len = 0;
sndata->sn_cnt += 1;
memcpy(sndata->span_node_buf, buff, buff_length);
break;
case SPAN_NODE: /* Already in the spanning node */
if((sndata->span_prev_blk + 1) == span_curr_blk)
{ /*Logical continuity of block is present*/
sndata->span_prev_blk = span_curr_blk;
sndata->span_blk_cnt = sndata->span_blk_cnt + 1;
sndata->val_len += rval_len;
if(sndata->span_blk_cnt == sndata->span_tot_blks)
{ /* All the blocks of the spanning node are seen */
sndata->sn_type = SN_NOT;
sndata->sn_blk_cnt += sndata->span_blk_cnt;
}
if (sndata->val_len > sndata->span_node_sz)
{
mu_int_err(ERR_DBDATAMX, TRUE, TRUE,
sndata->span_node_buf,
sndata->key_len, top_key,
top_len,
(unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
}
else { /* ERROR 1: There is discontinuity in the spanning node
* blocks; adjacent spanning block is missing
*/
mu_int_err(ERR_DBSPANGLOINCMP, TRUE, FALSE,
sndata->span_node_buf,
sndata->key_len, top_key,
top_len, (unsigned int)blk_levl);
sndata->sn_type = SN_NOT;
sndata->sn_blk_cnt += sndata->span_blk_cnt;
/* continuing, so compensate for mu_int_err decrement */
mu_int_plen++;
maxkey_errors++;
}
break;
case SN_CHUNK: /* Already in the spanning node fragment */
if((sndata->span_prev_blk + 1) == span_curr_blk)
{ /*Logical continuity of block is present*/
sndata->span_prev_blk = span_curr_blk;
sndata->span_blk_cnt = sndata->span_blk_cnt + 1;
}
else { /* ERROR 2: Unexpected spanning-node-block occurred in
* the middle of spanning-node fragment
*/
mu_int_err(ERR_DBSPANCHUNKORD, TRUE, FALSE,
sndata->span_node_buf,
sndata->key_len, top_key,
top_len, (unsigned int)blk_levl);
sndata->sn_type = SN_CHUNK;
sndata->span_prev_blk = span_curr_blk;
sndata->span_blk_cnt = 1;
sndata->span_frag_off = span_curr_blk;
sndata->key_len = buff_length;
memcpy(sndata->span_node_buf, buff, buff_length);
sndata->sn_blk_cnt += sndata->span_blk_cnt;
/* continuing, so compensate for mu_int_err decrement */
mu_int_plen++;
maxkey_errors++;
}
break;
}
}
} else if (sndata->sn_type)
{
if (SPAN_NODE == sndata->sn_type) /*INCOMPLETE SPANNING NODE*/
{ /* ERROR 1: There is discontinuity in the spanning node blocks;
* adjacent spanning block is missing
*/
mu_int_err(ERR_DBSPANGLOINCMP, TRUE, FALSE,
sndata->span_node_buf, sndata->key_len, top_key,
top_len, (unsigned int)blk_levl);
} else /*INCOMPLETE SPANNING NODE FRAGMENT*/
{ /* ERROR 2: Spanning-node-block occurred in the middle
* of non-spanning block
*/
mu_int_err(ERR_DBSPANCHUNKORD, TRUE, FALSE,
sndata->span_node_buf, sndata->key_len, top_key,
top_len, (unsigned int)blk_levl);
}
sndata->sn_blk_cnt += sndata->span_blk_cnt;
/* continuing, so compensate for mu_int_err decrement */
mu_int_plen++;
maxkey_errors++;
sndata->sn_type = SN_NOT;
}
if (key_size + rec_cmpc > max_allowed_key_size)
{
if (maxkey_errors < disp_maxkey_errors)
{
mu_int_err(ERR_DBGTDBMAX, TRUE, FALSE, buff, comp_length, top_key,
top_len, (unsigned int)blk_levl);
mu_int_plen++; /* continuing, so compensate for mu_int_err decrement */
maxkey_errors++;
} else
{
mu_int_errknt++;
maxkey_errors++;
}
}
}
}
if (level)
{
GET_LONG(child, ptr);
if (child < 0)
{
mu_int_err(ERR_DBPTRNOTPOS, TRUE, TRUE, buff, comp_length, top_key, top_len,
(unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if (child > mu_int_data.trans_hist.total_blks)
{
mu_int_err(ERR_DBPTRMX, TRUE, TRUE, buff, comp_length, top_key,
top_len, (unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if (!(child % mu_int_data.bplmap))
{
mu_int_err(ERR_DBBNPNTR, TRUE, TRUE, buff, comp_length, top_key, top_len,
(unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
if (!muint_fast || (level > 1) || master_dir)
{
if (is_top)
mu_int_blk(child, level - 1, FALSE, buff, comp_length, top_key, top_len, pstar);
else
mu_int_blk(child, level - 1, FALSE, old_buff, comp_length, buff, buff_length, pstar);
} else
{
if (!bml_busy(child, mu_int_locals))
{
mu_int_offset[mu_int_plen]=0;
mu_int_path[mu_int_plen++]=child;
mu_int_err(ERR_DBBDBALLOC, TRUE, TRUE, old_buff, comp_length, buff, buff_length,
(unsigned int)((blk_hdr_ptr_t)ptr)->levl);
mu_int_plen--;
free(blk_base);
return FALSE;
}
mu_int_blks[0]++;
}
} else
{
if (master_dir)
{
for (c0 = c_base = (uchar_ptr_t)rec_base + SIZEOF(rec_hdr); *c0; c0++);
GET_LONG(root_pointer, ((block_id *)(c0 + 2)));
if (root_pointer > mu_int_data.trans_hist.total_blks || root_pointer < 2)
{ /* 0=master map, 1=dir root*/
mu_int_err(ERR_DBBADPNTR, TRUE, TRUE, buff, comp_length, top_key,
top_len, (unsigned int)blk_levl);
mu_int_plen++; /* continuing, so compensate for mu_int_err decrement */
}
c1 = temp_buff;
if (rec_cmpc)
for (c2 = muint_temp_buff, cc = 0; *c2 && (cc < rec_cmpc); cc++)
*c1++ = *c2++;
for (; c_base < c0;)
*c1++ = *c_base++;
*c1 = 0;
assert(SIZEOF(muint_temp_buff) == SIZEOF(temp_buff));
memcpy(muint_temp_buff, temp_buff, SIZEOF(temp_buff));
if (muint_key)
{
if (muint_end_key) /* range */
{
len = (int)(c1 - temp_buff + 1);
if ((0 < memcmp(muint_start_key->base, temp_buff, len < muint_start_keyend ?
len : muint_start_keyend))
|| (0 > memcmp(muint_end_key->base, temp_buff, len < muint_end_keyend ?
len : muint_end_keyend)))
continue;
} else
{
if (((muint_start_keyend - 1) != (c1 - temp_buff))
|| (memcmp(muint_start_key->base, temp_buff, muint_start_keyend)))
continue;
}
}
trees_tail->link = (global_list *)malloc(SIZEOF(global_list));
trees_tail = trees_tail->link;
trees_tail->link = 0;
trees_tail->root = root_pointer;
memcpy(trees_tail->path, mu_int_path, SIZEOF(block_id) * (MAX_BT_DEPTH + 1));
memcpy(trees_tail->offset, mu_int_offset, SIZEOF(uint4) * (MAX_BT_DEPTH + 1));
assert(SIZEOF(trees_tail->key) == SIZEOF(muint_temp_buff));
memcpy(trees_tail->key, muint_temp_buff, SIZEOF(muint_temp_buff));
trees_tail->keysize = STRLEN((char *)muint_temp_buff);
hdr_len = SIZEOF(rec_hdr) + STRLEN(trees_tail->key) + 2 - rec_cmpc; /* We cannot use
mid_len() which expects mident_fixed structure */
/* +2 in the above hdr_len calculation is to take into account
two \0's after the end of the key
*/
if (rec_size > hdr_len + SIZEOF(block_id))
{
subrec_ptr = get_spec((sm_uc_ptr_t)rec_base + hdr_len + SIZEOF(block_id),
(int)(rec_size - (hdr_len + SIZEOF(block_id))), COLL_SPEC);
if (subrec_ptr)
{
trees_tail->nct = *(subrec_ptr + COLL_NCT_OFFSET);
trees_tail->act = *(subrec_ptr + COLL_ACT_OFFSET);
trees_tail->ver = *(subrec_ptr + COLL_VER_OFFSET);
} else
{
trees_tail->nct = 0;
trees_tail->act = 0;
trees_tail->ver = 0;
}
} else
{
trees_tail->nct = 0;
trees_tail->act = mu_int_data.def_coll;
trees_tail->ver = mu_int_data.def_coll_ver;
}
}
}
}
if (top_len)
{
if ((cmcc = memvcmp(buff, comp_length, top_key, top_len)) >= 0)
{
if ((0 != cmcc) || level)
{
mu_int_err(ERR_DBKEYGTIND, TRUE, TRUE, buff, comp_length, top_key, top_len,
(unsigned int)blk_levl);
free(blk_base);
return FALSE;
}
}
}
mu_int_plen--;
free(blk_base);
return TRUE;
}