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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
/****************************************************************
* *
* Copyright (c) 2001-2022 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 "mdef.h"
#include "main_pragma.h"
#include "gtm_inet.h"
#include "gtm_signal.h"
#include "mlkdef.h"
#include "gtm_stdlib.h"
#include "gtm_stdio.h"
#include "gtm_string.h"
#include "iosp.h"
#include "error.h"
#include "interlock.h"
#include "gtmimagename.h"
#include "gdsroot.h"
#include "gtm_facility.h"
#include "fileinfo.h"
#include "gdsbt.h"
#include "gdsfhead.h"
#include "gdskill.h"
#include "gdscc.h"
#include "filestruct.h"
#include "jnl.h"
#include "buddy_list.h"
#include "tp.h"
#include "repl_msg.h"
#include "gtmsource.h"
#include "stp_parms.h"
#include "cli.h"
#include "io.h"
#include "mupip_exit.h"
#include "patcode.h"
#include "lke.h"
#include "gtm_startup_chk.h"
#include "generic_signal_handler.h"
#include "mu_op_open.h"
#include "cli_parse.h"
#include "getzdir.h"
#include "mu_term_setup.h"
#include "sig_init.h"
#include "gtmmsg.h"
#include "suspsigs_handler.h"
#include "startup.h"
#include "gtm_startup.h"
#include "invocation_mode.h"
#include "common_startup_init.h"
#include "gtm_threadgbl_init.h"
#include "continue_handler.h"
#include "gtmio.h"
#include "restrict.h"
#include "dm_audit_log.h"
#ifdef UTF8_SUPPORTED
# include "gtm_icu_api.h"
# include "gtm_utf8.h"
# include "gtm_conv.h"
GBLREF u_casemap_t gtm_strToTitle_ptr; /* Function pointer for gtm_strToTitle */
#endif
GBLREF int (*op_open_ptr)(mval *v, mval *p, mval *t, mval *mspace);
GBLREF bool in_backup;
GBLREF bool licensed;
GBLREF int (*func)();
GBLREF char cli_err_str[];
GBLREF CLI_ENTRY mupip_cmd_ary[];
GBLREF void (*mupip_exit_fp)(int errcode);
GBLREF void (*primary_exit_handler)(void);
GBLDEF CLI_ENTRY *cmd_ary = &mupip_cmd_ary[0]; /* Define cmd_ary to be the MUPIP specific cmd table */
GBLREF IN_PARMS *cli_lex_in_ptr;
error_def(ERR_MUPCLIERR);
error_def(ERR_MUNOACTION);
void display_prompt(void);
int main (int argc, char **argv)
{
int i, lenargv, res, status;
char *cmdletter;
DCL_THREADGBL_ACCESS;
GTM_THREADGBL_INIT;
if (1 < argc)
{
cmdletter = argv[1];
lenargv = STRLEN(argv[1]);
for (i = 0; i < lenargv; i++)
{
if (!IS_ASCII(*cmdletter))
mupip_exit(ERR_MUPCLIERR); // return an error if the first argument is not ascii
cmdletter++;
}
}
common_startup_init(MUPIP_IMAGE);
invocation_mode = MUMPS_UTILTRIGR;
err_init(util_base_ch);
UTF8_ONLY(gtm_strToTitle_ptr = >m_strToTitle);
sig_init(generic_signal_handler, NULL, suspsigs_handler, continue_handler); /* Note: no ^C handler is defined (yet) */
atexit(mupip_exit_handler);
primary_exit_handler = mupip_exit_handler;
licensed = TRUE;
in_backup = FALSE;
op_open_ptr = mu_op_open;
INIT_FNPTR_GLOBAL_VARIABLES;
mu_get_term_characterstics();
gtm_chk_dist(argv[0]);
init_gtm();
cli_lex_setup(argc,argv);
if (argc < 2)
display_prompt(); /* Interactive mode */
mupip_exit_fp = mupip_exit; /* Initialize function pointer for use during MUPIP */
while (TRUE)
{ func = 0;
res = parse_cmd();
if (EOF == res)
break;
status = log_cmd_if_needed(cli_lex_in_ptr->in_str);
if (status)
mupip_exit(ERR_MUNOACTION);
if (res)
{
if (1 < argc)
rts_error_csa(CSA_ARG(NULL) VARLSTCNT(4) res, 2, LEN_AND_STR(cli_err_str));
else
gtm_putmsg_csa(CSA_ARG(NULL) VARLSTCNT(4) res, 2, LEN_AND_STR(cli_err_str));
}
if (func)
func();
if (argc > 1) /* Non-interactive mode, exit after command */
break;
display_prompt();
}
mupip_exit(SS_NORMAL);
return 0;
}
void display_prompt(void)
{
PRINTF("MUPIP> ");
FFLUSH(stdout);
}
|
