100 lines
2.2 KiB
C
100 lines
2.2 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. *
|
||
|
|
* *
|
||
|
|
****************************************************************/
|
||
|
|
|
||
|
|
/*** STUB FILE ***/
|
||
|
|
|
||
|
|
#include "mdef.h"
|
||
|
|
|
||
|
|
#include "gtm_string.h"
|
||
|
|
#include "gtm_stdlib.h"
|
||
|
|
|
||
|
|
#include "stringpool.h"
|
||
|
|
#include "nametabtyp.h"
|
||
|
|
#include "op.h"
|
||
|
|
#include "namelook.h"
|
||
|
|
#include "mvalconv.h"
|
||
|
|
|
||
|
|
GBLREF spdesc stringpool;
|
||
|
|
|
||
|
|
#define FULL 0
|
||
|
|
#define LENGTH 1
|
||
|
|
#define TERMINAL 2
|
||
|
|
#define VALUE 3
|
||
|
|
#define MAX_TRANS_LOG 256
|
||
|
|
|
||
|
|
static readonly nametabent trnitm_table[] =
|
||
|
|
{
|
||
|
|
{ 3, "FUL*" },
|
||
|
|
{ 3, "LEN*"},
|
||
|
|
{ 3, "TER*"},
|
||
|
|
{ 3, "VAL*"}
|
||
|
|
};
|
||
|
|
static readonly unsigned char trnitm_index[27] =
|
||
|
|
{
|
||
|
|
0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 2
|
||
|
|
,2, 2, 2, 2, 2, 2, 3, 3, 4, 4, 4
|
||
|
|
,4, 4, 4
|
||
|
|
};
|
||
|
|
|
||
|
|
void op_fnztrnlnm(mval *name, mval *table, int4 ind, mval *mode, mval *case_blind, mval *item, mval *ret)
|
||
|
|
{
|
||
|
|
char buf[MAX_TRANS_LOG+1];
|
||
|
|
char *status;
|
||
|
|
int item_code;
|
||
|
|
short retlen;
|
||
|
|
|
||
|
|
error_def(ERR_INVSTRLEN);
|
||
|
|
error_def(ERR_BADTRNPARAM);
|
||
|
|
|
||
|
|
MV_FORCE_STR(name);
|
||
|
|
MV_FORCE_STR(item);
|
||
|
|
|
||
|
|
if (name->str.len > MAX_TRANS_LOG)
|
||
|
|
rts_error(VARLSTCNT(4) ERR_INVSTRLEN, 2, name->str.len, MAX_TRANS_LOG);
|
||
|
|
|
||
|
|
if (item->str.len)
|
||
|
|
{
|
||
|
|
if ((item_code = namelook(trnitm_index, trnitm_table, item->str.addr, item->str.len)) < 0)
|
||
|
|
rts_error(VARLSTCNT(4) ERR_BADTRNPARAM,2,item->str.len,item->str.addr);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
item_code = VALUE;
|
||
|
|
|
||
|
|
memcpy(buf, name->str.addr, name->str.len);
|
||
|
|
buf [name->str.len] = 0;
|
||
|
|
status = GETENV(buf);
|
||
|
|
if (status)
|
||
|
|
{
|
||
|
|
if (item_code == VALUE || item_code == FULL)
|
||
|
|
{
|
||
|
|
retlen = strlen(status);
|
||
|
|
ENSURE_STP_FREE_SPACE(retlen);
|
||
|
|
ret->mvtype = MV_STR;
|
||
|
|
ret->str.addr = (char *)stringpool.free;
|
||
|
|
ret->str.len = retlen;
|
||
|
|
memcpy(ret->str.addr, status, retlen);
|
||
|
|
stringpool.free += retlen;
|
||
|
|
}else if (item_code == LENGTH)
|
||
|
|
{
|
||
|
|
MV_FORCE_MVAL(ret, STRLEN(status));
|
||
|
|
n2s(ret);
|
||
|
|
}else
|
||
|
|
{ assert(item_code == TERMINAL);
|
||
|
|
MV_FORCE_MVAL(ret, 1);
|
||
|
|
n2s(ret);
|
||
|
|
}
|
||
|
|
}else
|
||
|
|
{ ret->mvtype = MV_STR;
|
||
|
|
ret->str.len = 0;
|
||
|
|
}
|
||
|
|
return;
|
||
|
|
}
|