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
|
/****************************************************************
* *
* 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"
#ifdef VMS
#include <rms.h>
static struct FAB ceprep_fab; /* file access block for compiler escape preprocessor output */
static struct RAB ceprep_rab; /* record access block for compiler escape preprocessor output */
#endif
#include "gtm_string.h"
#include "cmd_qlf.h"
#include "compiler.h"
#include "io.h"
#include "io_params.h"
#include "op.h"
#include "comp_esc.h"
GBLREF mident module_name;
GBLREF io_pair io_curr_device;
GBLREF command_qualifier cmd_qlf;
LITREF mval literal_zero;
static io_pair dev_in_use;
void open_ceprep_file(void)
{
#ifdef VMS
/* stub except for VMS */
static readonly struct
{
unsigned char newversion;
unsigned char wrap;
unsigned char width;
int4 v_width;
unsigned char eol;
} open_params_list =
{
(unsigned char) iop_newversion,
(unsigned char) iop_wrap,
(unsigned char) iop_recordsize,
(int4) MAX_SRCLINE,
(unsigned char) iop_eol
};
int mname_len;
uint4 status;
char charspace, ceprep_name_buff[MAX_MIDENT_LEN + SIZEOF(".MCI") - 1], fname[255];
mval file, params;
struct NAM ceprep_nam; /* name block for file access block for compiler escape preprocessor output */
/* Create cepreprocessor output file. */
ceprep_fab = cc$rms_fab;
ceprep_fab.fab$l_dna = ceprep_name_buff;
mname_len = module_name.len;
assert(mname_len <= MAX_MIDENT_LEN);
if (0 == mname_len)
{
MEMCPY_LIT(ceprep_name_buff, "MDEFAULT.MCI");
ceprep_fab.fab$b_dns = SIZEOF("MDEFAULT.MCI") - 1;
} else
{
memcpy(ceprep_name_buff, module_name.addr, mname_len);
MEMCPY_LIT(&ceprep_name_buff[mname_len], ".MCI");
ceprep_fab.fab$b_dns = mname_len + SIZEOF(".MCI") - 1;
}
if (MV_DEFINED(&cmd_qlf.ceprep_file))
{
ceprep_fab.fab$b_fns = cmd_qlf.ceprep_file.str.len;
ceprep_fab.fab$l_fna = cmd_qlf.ceprep_file.str.addr;
}
ceprep_nam = cc$rms_nam;
ceprep_nam.nam$l_esa = fname;
ceprep_nam.nam$b_ess = SIZEOF(fname);
ceprep_nam.nam$b_nop = (NAM$M_SYNCHK);
ceprep_fab.fab$l_nam = &ceprep_nam;
ceprep_fab.fab$l_fop = FAB$M_NAM;
if (RMS$_NORMAL != (status = sys$parse(&ceprep_fab, 0, 0)))
rts_error_csa(NULL VARLSTCNT(1) status);
file.mvtype = params.mvtype = MV_STR;
file.str.len = ceprep_nam.nam$b_esl;
file.str.addr = fname;
params.str.len = SIZEOF(open_params_list);
params.str.addr = &open_params_list;
op_open(&file, ¶ms, (mval *)&literal_zero, 0);
params.str.len = 1;
charspace = (char)iop_eol;
params.str.addr = &charspace;
dev_in_use = io_curr_device;
op_use(&file, ¶ms);
#endif
return;
}
void close_ceprep_file(void)
{
#ifdef VMS
/* stub except for VMS */
unsigned char charspace;
mval param, ceprep_file;
param.str.len = 1;
charspace = (char)iop_eol;
param.str.addr = &charspace;
ceprep_file.mvtype = param.mvtype = MV_STR;
ceprep_file.str.len = io_curr_device.in->trans_name->len;
ceprep_file.str.addr = io_curr_device.in->trans_name->dollar_io;
op_close(&ceprep_file, ¶m);
io_curr_device = dev_in_use;
#endif
return;
}
void put_ceprep_line(void)
{
#ifdef VMS
/* stub except for VMS */
mval out;
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
out.mvtype = MV_STR;
out.str.len = (TREF(source_buffer)).len - 1;
out.str.addr = (TREF(source_buffer)).addr;
op_write(&out);
op_wteol(1);
#endif
return;
}
|
