61 lines
1.9 KiB
C
61 lines
1.9 KiB
C
|
/****************************************************************
|
||
|
|
* *
|
||
|
|
* Copyright 2001, 2009 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_limits.h"
|
||
|
|
|
||
|
|
#include "iosp.h"
|
||
|
|
#include "trans_log_name.h"
|
||
|
|
#include "gtm_logicals.h"
|
||
|
|
#include "error.h"
|
||
|
|
#include "gtm_env_xlate_init.h"
|
||
|
|
#include "stringpool.h"
|
||
|
|
|
||
|
|
GBLREF mstr env_gtm_env_xlate;
|
||
|
|
|
||
|
|
void gtm_env_xlate_init(void)
|
||
|
|
{
|
||
|
|
int4 status;
|
||
|
|
mstr val, tn;
|
||
|
|
char buf[GTM_PATH_MAX];
|
||
|
|
|
||
|
|
error_def(ERR_TRNLOGFAIL);
|
||
|
|
error_def(ERR_LOGTOOLONG);
|
||
|
|
|
||
|
|
val.addr = GTM_ENV_XLATE;
|
||
|
|
val.len = STR_LIT_LEN(GTM_ENV_XLATE);
|
||
|
|
if (SS_NORMAL == (status = TRANS_LOG_NAME(&val, &tn, buf, SIZEOF(buf), dont_sendmsg_on_log2long)))
|
||
|
|
{
|
||
|
|
UNIX_ONLY(
|
||
|
|
env_gtm_env_xlate.len = tn.len;
|
||
|
|
env_gtm_env_xlate.addr = (char *)malloc(tn.len);
|
||
|
|
memcpy(env_gtm_env_xlate.addr, buf, tn.len);
|
||
|
|
)
|
||
|
|
VMS_ONLY(
|
||
|
|
/* In op_gvextnam, the logical name is used in VMS, rather than its value (by lib$find_image_symbol),
|
||
|
|
* so only whether the logical name translates is checked here.
|
||
|
|
*/
|
||
|
|
env_gtm_env_xlate.len = val.len;
|
||
|
|
env_gtm_env_xlate.addr = val.addr;
|
||
|
|
)
|
||
|
|
} else if (SS_NOLOGNAM == status)
|
||
|
|
env_gtm_env_xlate.len = 0;
|
||
|
|
# ifdef UNIX
|
||
|
|
else if (SS_LOG2LONG == status)
|
||
|
|
rts_error(VARLSTCNT(5) ERR_LOGTOOLONG, 3, LEN_AND_LIT(GTM_ENV_XLATE), SIZEOF(buf) - 1);
|
||
|
|
# endif
|
||
|
|
else
|
||
|
|
rts_error(VARLSTCNT(5) ERR_TRNLOGFAIL, 2, LEN_AND_LIT(GTM_ENV_XLATE), status);
|
||
|
|
return;
|
||
|
|
}
|