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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
/****************************************************************
* *
* Copyright (c) 2006-2021 Fidelity National Information *
* Services, Inc. and/or its subsidiaries. All rights reserved. *
* *
* 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_limits.h" /* needed for PATH_MAX */
#include "error.h"
#include "gtmxc_types.h" /* needed for xc_string_t */
#include "lv_val.h" /* needed for "fgncal.h" */
#include "fgncal.h"
#include "gtm_env_xlate_init.h"
GBLREF mstr env_gtm_env_xlate;
GBLREF mval dollar_zdir;
error_def(ERR_TEXT);
error_def(ERR_XTRNRETSTR);
error_def(ERR_XTRNRETVAL);
error_def(ERR_XTRNTRANSDLL);
error_def(ERR_XTRNTRANSERR);
mval* gtm_env_translate(mval* val1, mval* val2, mval* val_xlated)
{
xc_string_t in1, in2, in3, out;
int ret_gtm_env_xlate;
char pakname[PATH_MAX + 1];
void_ptr_t pakhandle;
MSTR_CONST(routine_name, GTM_ENV_XLATE_ROUTINE_NAME);
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
if (0 != env_gtm_env_xlate.len)
{
MV_FORCE_STR(val2);
if (NULL == RFPTR(gtm_env_xlate_entry))
{
memcpy(pakname, env_gtm_env_xlate.addr, env_gtm_env_xlate.len);
pakname[env_gtm_env_xlate.len]='\0';
pakhandle = fgn_getpak(pakname, ERROR);
SFPTR(gtm_env_xlate_entry, (fgnfnc)fgn_getrtn(pakhandle, &routine_name, ERROR));
/* With UTF8 mstr changes, xc_string_t is no longer compatible with mstr
* so explicit copy of len/addr fields required */
}
in1.length = val1->str.len;
in1.address = val1->str.addr;
in2.length = val2->str.len;
in2.address = val2->str.addr;
in3.length = dollar_zdir.str.len;
in3.address = dollar_zdir.str.addr;
out.address = NULL;
ret_gtm_env_xlate = IVFPTR(gtm_env_xlate_entry)(&in1, &in2, &in3, &out);
val_xlated->str.len = (mstr_len_t)out.length;
val_xlated->str.addr = out.address;
if (MAX_DBSTRLEN < val_xlated->str.len)
RTS_ERROR_ABT(VARLSTCNT(4) ERR_XTRNRETVAL, 2, val_xlated->str.len, MAX_DBSTRLEN);
if (0 != ret_gtm_env_xlate)
{
if ((val_xlated->str.len) && (val_xlated->str.addr))
RTS_ERROR_ABT(VARLSTCNT(6) ERR_XTRNTRANSERR, 0, ERR_TEXT, 2,
val_xlated->str.len, val_xlated->str.addr);
else
RTS_ERROR_ABT(VARLSTCNT(1) ERR_XTRNTRANSERR);
}
if ((NULL == val_xlated->str.addr) && (0 != val_xlated->str.len))
RTS_ERROR_ABT(VARLSTCNT(1)ERR_XTRNRETSTR);
val_xlated->mvtype = MV_STR;
val1 = val_xlated;
}
return val1;
}
|
