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
|
/****************************************************************
* *
* Copyright 2014 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 "compiler.h"
#include "mdq.h"
#include "opcode.h"
#include "indir_enum.h"
#include "toktyp.h"
#include "advancewindow.h"
#include "cmd.h"
#ifdef USHBIN_SUPPORTED
/* Routine to compile ZRUPDATE command
*
* Current syntax:
*
* ZRUPDATE <object-file-path1>[,<object-file-path2>..
*
* Where:
*
* object-file-path - Is the path and filename of an object file that may include wildcards. We allow multiple specifications
* separated by commas. We let cmd.c break these into separate commands.
*
* Parameters: none
* Returncode: success (TRUE) and failure (FALSE)
*
* Future enhancement - Allow paths to be grouped by surrounding with parens. At that point, this becomes a variable length
* parameter list but for now tiz simplistic.
*/
int m_zrupdate(void)
{
oprtype objfilespec;
triple *triptr;
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
switch (expr(&objfilespec, MUMPS_STR))
{
case EXPR_FAIL:
return FALSE;
case EXPR_GOOD:
triptr = newtriple(OC_ZRUPDATE);
triptr->operand[0] = put_ilit(1); /* Currently single arg but that will change for phase2 */
triptr->operand[1] = objfilespec;
return TRUE;
case EXPR_INDR:
make_commarg(&objfilespec, indir_zrupdate);
return TRUE;
}
assert(FALSE);
return FALSE;
}
#endif /* USHBIN_SUPPORTED */
|
