1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
/****************************************************************
* *
* Copyright 2001, 2011 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 "toktyp.h"
#include "lv_val.h" /* needed by "fgncal.h" */
#include "fgncal.h"
#include "valid_mname.h"
#include <rtnhdr.h>
GBLREF symval *curr_symval;
mval *fgncal_lookup(mval *x)
{
mval *ret_val;
ht_ent_mname *tabent;
var_tabent targ_key;
mident ident;
MV_FORCE_DEFINED(x);
assert(MV_IS_STRING(x));
ret_val = NULL;
ident = x->str;
if (ident.len > MAX_MIDENT_LEN)
ident.len = MAX_MIDENT_LEN;
if (valid_mname(&ident))
{
targ_key.var_name = ident;
COMPUTE_HASH_MNAME(&targ_key);
targ_key.marked = FALSE;
if (add_hashtab_mname_symval(&curr_symval->h_symtab, &targ_key, NULL, &tabent))
lv_newname(tabent, curr_symval);
ret_val = (mval *) tabent->value;
}
return ret_val;
}
|
