void set_up_initial_allocations (void)
{
maximum_mns = (long_align ? MAXIMUM_MNS_LONG : MAXIMUM_MNS);
current_mns = INITIAL_MNS;
firstst = allocate_integer_array (current_mns);
lastst = allocate_integer_array (current_mns);
finalst = allocate_integer_array (current_mns);
transchar = allocate_integer_array (current_mns);
trans1 = allocate_integer_array (current_mns);
trans2 = allocate_integer_array (current_mns);
accptnum = allocate_integer_array (current_mns);
assoc_rule = allocate_integer_array (current_mns);
state_type = allocate_integer_array (current_mns);
current_max_rules = INITIAL_MAX_RULES;
rule_type = allocate_integer_array (current_max_rules);
rule_linenum = allocate_integer_array (current_max_rules);
rule_useful = allocate_integer_array (current_max_rules);
rule_has_nl = allocate_bool_array (current_max_rules);
current_max_scs = INITIAL_MAX_SCS;
scset = allocate_integer_array (current_max_scs);
scbol = allocate_integer_array (current_max_scs);
scxclu = allocate_integer_array (current_max_scs);
sceof = allocate_integer_array (current_max_scs);
scname = allocate_char_ptr_array (current_max_scs);
current_maxccls = INITIAL_MAX_CCLS;
cclmap = allocate_integer_array (current_maxccls);
ccllen = allocate_integer_array (current_maxccls);
cclng = allocate_integer_array (current_maxccls);
ccl_has_nl = allocate_bool_array (current_maxccls);
current_max_ccl_tbl_size = INITIAL_MAX_CCL_TBL_SIZE;
ccltbl = allocate_Character_array (current_max_ccl_tbl_size);
current_max_dfa_size = INITIAL_MAX_DFA_SIZE;
current_max_xpairs = INITIAL_MAX_XPAIRS;
nxt = allocate_integer_array (current_max_xpairs);
chk = allocate_integer_array (current_max_xpairs);
current_max_template_xpairs = INITIAL_MAX_TEMPLATE_XPAIRS;
tnxt = allocate_integer_array (current_max_template_xpairs);
current_max_dfas = INITIAL_MAX_DFAS;
base = allocate_integer_array (current_max_dfas);
def = allocate_integer_array (current_max_dfas);
dfasiz = allocate_integer_array (current_max_dfas);
accsiz = allocate_integer_array (current_max_dfas);
dhash = allocate_integer_array (current_max_dfas);
dss = allocate_int_ptr_array (current_max_dfas);
dfaacc = allocate_dfaacc_union (current_max_dfas);
nultrans = NULL;
}
Char *copy_unsigned_string(Char *str)
{
Char *c;
Char *copy;
/* find length */
for ( c = str; *c; ++c )
;
copy = allocate_Character_array( c - str + 1 );
for ( c = copy; (*c++ = *str++) != 0; )
;
return copy;
}
