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
|
/****************************************************************
* *
* Copyright 2001, 2013 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 "indir_enum.h"
#include "stringpool.h"
#include "op.h"
#include "io.h"
static mval com = DEFINE_MVAL_STRING(MV_STR, 0 , 0 , 1 , (char *) "," , 0 , 0 );
static mval rpar = DEFINE_MVAL_STRING(MV_STR, 0 , 0 , 1 , (char *) ")" , 0 , 0 );
static mval dlib = DEFINE_MVAL_STRING(MV_STR, 0 , 0 , SIZEOF("$gtm_dist/gtmhelp.gld") - 1 ,
(char *) "$gtm_dist/gtmhelp.gld" , 0 , 0 );
GBLREF spdesc stringpool;
void op_zhelp_xfr(mval *subject, mval *lib)
{
mstr x;
mval *action;
MV_FORCE_STR(subject);
MV_FORCE_STR(lib);
if (!lib->str.len)
lib = &dlib;
flush_pio();
action = push_mval(subject);
action->mvtype = 0;
action->str.len = SIZEOF("D ^GTMHELP(") - 1;
action->str.addr = "D ^GTMHELP(";
s2pool(&action->str);
action->mvtype = MV_STR;
mval_lex(subject, &x);
if (IS_AT_END_OF_STRINGPOOL(x.addr, 0))
{
action->str.len += x.len;
stringpool.free += x.len;
} else
op_cat(VARLSTCNT(3) action, action, subject);
op_cat(VARLSTCNT(3) action, action, &com); /* add "," */
mval_lex(lib, &x);
if (IS_AT_END_OF_STRINGPOOL(x.addr, 0))
{
action->str.len += x.len;
stringpool.free += x.len;
} else
op_cat(VARLSTCNT(3) action, action, lib);
op_cat(VARLSTCNT(3) action, action, &rpar); /* add ")" */
op_commarg(action,indir_linetail);
}
|
