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
81
82
83
84
85
86
|
/****************************************************************
* *
* Copyright (c) 2018-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 "gtm_filter_command.h"
#include "gtm_string.h"
#include "mdef.h"
#include "gtmmsg.h"
#include "send_msg.h"
#include "gtm_threadgbl.h"
#include "gtm_threadgbl_init.h"
#include <rtnhdr.h>
#include "gtmci.h"
#include "stack_frame.h"
#include "mprof.h"
#include "util.h"
error_def(ERR_COMMFILTERERR);
error_def(ERR_RESTRICTEDOP);
error_def(ERR_NOFILTERNEST);
GBLREF stack_frame *frame_pointer;
GBLREF boolean_t is_tracing_on;
#define CALL_ROUTINE_N_CHECK_ERR(ROUTINE, COMMAND, RET_COMM) \
{ \
gtm_status_t stat; \
gtm_long_t quit_return; \
gtm_char_t err_str[2 * OUT_BUFF_SIZE]; /* Same as Max buffer for zstatus */ \
stat = gtm_ci_filter(ROUTINE, &quit_return, COMMAND, &RET_COMM); \
if (quit_return == -1) \
{ \
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(6) ERR_COMMFILTERERR, 4, LEN_AND_LIT(ROUTINE), \
LEN_AND_LIT("RESTRICTEDOP")); \
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(3) ERR_RESTRICTEDOP, 1, COMMAND); \
send_msg_csa(CSA_ARG(NULL) VARLSTCNT(6) ERR_COMMFILTERERR, 4, LEN_AND_LIT(ROUTINE), \
LEN_AND_LIT("RESTRICTEDOP")); \
send_msg_csa(CSA_ARG(NULL) VARLSTCNT(3) ERR_RESTRICTEDOP, 1, COMMAND); \
returned_command.length = 0; \
} \
if (stat) \
{ \
gtm_zstatus(&err_str[0], 2 * OUT_BUFF_SIZE); \
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(6) ERR_COMMFILTERERR, 4, \
LEN_AND_LIT(ROUTINE), LEN_AND_STR(err_str)); \
send_msg_csa(CSA_ARG(NULL) VARLSTCNT(6) ERR_COMMFILTERERR, 4, LEN_AND_LIT(ROUTINE), \
LEN_AND_STR(err_str)); \
returned_command.length = 0; \
if (frame_pointer->flags & SFF_CI) \
ci_ret_code_quit(); \
} \
}
gtm_string_t gtm_filter_command(char * command, char * caller_name)
{
gtm_char_t com_str[MAX_STRLEN];
gtm_string_t returned_command;
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
returned_command.address = (xc_char_t *)&com_str;
returned_command.length = MAX_STRLEN;
if(TREF(comm_filter_init)) /*Already in a filter, no nesting allowed*/
{
TREF(comm_filter_init) = FALSE;
send_msg_csa(CSA_ARG(NULL) VARLSTCNT(1) ERR_NOFILTERNEST);
RTS_ERROR_CSA_ABT(NULL, VARLSTCNT(1) ERR_NOFILTERNEST);
}
if (!STRCMP(caller_name, "PIPE"))
CALL_ROUTINE_N_CHECK_ERR("gtmpipeopen", command, returned_command);
if (!STRCMP(caller_name, "ZSYSTEM"))
CALL_ROUTINE_N_CHECK_ERR("gtmzsystem", command, returned_command);
if (is_tracing_on)
TREF(prof_fp) = TREF(mprof_stack_curr_frame);
return returned_command;
}
|
