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
|
/****************************************************************
* *
* Copyright 2001, 2010 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 "cmd_qlf.h"
#include "cli.h"
#include "cli_parse.h"
#define COMMAND "MUMPS "
GBLREF char cli_err_str[];
GBLREF CLI_ENTRY *cmd_ary;
GBLREF CLI_ENTRY mumps_cmd_ary[];
void zl_cmd_qlf (mstr *quals, command_qualifier *qualif)
{
char cbuf[MAX_LINE];
int parse_ret;
CLI_ENTRY *save_cmd_ary;
error_def (ERR_COMPILEQUALS);
if (quals->len + SIZEOF(COMMAND) > MAX_LINE)
rts_error(VARLSTCNT(4) ERR_COMPILEQUALS, 2, quals->len, quals->addr);
MEMCPY_LIT(cbuf, COMMAND);
memcpy(cbuf + SIZEOF(COMMAND) -1, quals->addr, quals->len);
cbuf[SIZEOF(COMMAND) - 1 + quals->len] = 0;
/* The caller of this function could be GT.M, DSE, MUPIP, GTCM GNP server, GTCM OMI server etc. Most of them have their
* own command parsing tables and some dont even have one. Nevertheless, we need to parse the string as if it was a
* MUMPS compilation command. So we switch temporarily to the MUMPS parsing table "mumps_cmd_ary". Note that the only
* rts_errors possible between save and restore of the cmd_ary are in compile_source_file and those are internally
* handled by source_ch which will transfer control back to us (right after the the call to compile_source_file below)
* and hence proper restoring of cmd_ary is guaranteed even in case of errors.
*/
save_cmd_ary = cmd_ary;
cmd_ary = &mumps_cmd_ary[0];
cli_str_setup((SIZEOF(COMMAND) + quals->len), cbuf);
parse_ret = parse_cmd();
if (parse_ret)
rts_error(VARLSTCNT(4) parse_ret, 2, LEN_AND_STR(cli_err_str));
qualif->object_file.mvtype = qualif->list_file.mvtype = qualif->ceprep_file.mvtype = 0;
get_cmd_qlf (qualif);
cmd_ary = save_cmd_ary; /* restore cmd_ary */
}
|
