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
|
/****************************************************************
* *
* Copyright 2001, 2011 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 "error.h"
#include "mlkdef.h"
#include "zshow.h"
#include "compiler.h"
#include "gdsroot.h"
#include "gtm_facility.h"
#include "fileinfo.h"
#include "gdsbt.h"
#include "gdsfhead.h"
#include "zwrite.h"
#include <stdarg.h>
#include "op.h"
#include "mvalconv.h"
#include "gtm_maxstr.h"
void op_gvzwrite(UNIX_ONLY_COMMA(int4 count) int4 pat, ...)
{
va_list var;
bool flag;
int4 subsc, arg;
INTPTR_T arg1, arg2;
VMS_ONLY(int4 count;)
mval *mv;
zshow_out output;
DCL_THREADGBL_ACCESS;
MAXSTR_BUFF_DECL(buff);
SETUP_THREADGBL_ACCESS;
TREF(in_zwrite) = TRUE;
MAXSTR_BUFF_INIT;
memset(&output, 0, SIZEOF(output));
output.code = 'V';
output.type = ZSHOW_DEVICE;
output.buff = &buff[0];
output.size = SIZEOF(buff);
output.ptr = output.buff;
VAR_START(var, pat);
VMS_ONLY(va_count(count);)
subsc = va_arg(var, int4);
arg1 = va_arg(var, INTPTR_T);
gvzwr_init(subsc, (mval *)arg1, pat);
for (count -=3 ; count > 0;)
{ mv = va_arg(var, mval *); count--;
switch ((flag = MV_FORCE_INT(mv)))
{
case ZWRITE_ASTERISK:
gvzwr_arg(flag, 0, 0); /* caution fall through */
case ZWRITE_END:
gvzwr_fini(&output, pat);
MAXSTR_BUFF_FINI;
TREF(in_zwrite) = FALSE;
return;
break;
case ZWRITE_ALL:
gvzwr_arg(flag, 0, 0);
break;
case ZWRITE_BOTH:
arg1 = va_arg(var, INTPTR_T);
arg2 = va_arg(var, INTPTR_T);
count -= 2;
gvzwr_arg(flag, (mval *)arg1, (mval *)arg2);
break;
case ZWRITE_UPPER:
arg1 = va_arg(var, INTPTR_T);
count--;
gvzwr_arg(flag, (mval *)0, (mval *)arg1);
break;
case ZWRITE_VAL:
case ZWRITE_LOWER:
case ZWRITE_PATTERN:
arg1 = va_arg(var, INTPTR_T);
count--;
gvzwr_arg(flag, (mval *)arg1, (mval *)0);
break;
default:
GTMASSERT;
break;
}
}
va_end(var);
MAXSTR_BUFF_FINI;
TREF(in_zwrite) = FALSE;
}
|
