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
|
/****************************************************************
* *
* Copyright (c) 2001-2017 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 "compiler.h"
#include "opcode.h"
#include "toktyp.h"
#include "mmemory.h"
#include "cmd.h"
#include "indir_enum.h"
#include "advancewindow.h"
GBLREF boolean_t run_time;
error_def(ERR_ALIASEXPECTED);
error_def(ERR_QUITARGLST);
error_def(ERR_QUITARGUSE);
int m_quit(void)
{
boolean_t arg;
int rval;
mvar *mvarptr;
oprtype tmparg, x;
triple *r, *triptr;
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
arg = ((TK_EOL != TREF(window_token)) && (TK_SPACE != TREF(window_token)));
if (TREF(xecute_literal_parse))
return FALSE;
if (TREF(for_stack_ptr) == TADR(for_stack))
{ /* not FOR */
if (!arg)
{
newtriple((run_time) ? OC_HARDRET : OC_RET);
return TRUE;
}
/* We now know we have an arg. See if it is an alias indicated arg */
if (TK_ASTERISK == TREF(window_token))
{ /* We have QUIT * alias syntax */
advancewindow();
if (TK_IDENT == TREF(window_token))
{ /* Both alias and alias container sources go through here */
if (!lvn(&tmparg, OC_GETINDX, 0))
return FALSE;
r = newtriple(OC_RETARG);
r->operand[0] = tmparg;
r->operand[1] = put_ilit(TRUE);
return TRUE;
} else
{ /* Unexpected text after alias indicator */
stx_error(ERR_ALIASEXPECTED);
return FALSE;
}
} else if (EXPR_FAIL != (rval = expr(&x, MUMPS_EXPR)) && (TK_COMMA != TREF(window_token))) /* NOTE assignment */
{
if (EXPR_INDR != rval)
{
r = newtriple(OC_RETARG);
r->operand[0] = x;
r->operand[1] = put_ilit(FALSE);
} else /* Indirect argument */
make_commarg(&x, indir_quit);
return TRUE;
}
if (TK_COMMA == TREF(window_token))
stx_error (ERR_QUITARGLST);
return FALSE;
} else if (!arg) /* FOR */
{
triptr = newtriple(OC_JMP);
FOR_END_OF_SCOPE(1, triptr->operand[0]);
return TRUE;
}
stx_error(ERR_QUITARGUSE);
return FALSE;
}
|
