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
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
/*
* SCCS: @(#)xdfio.c 1.6 (96/11/04)
*
* UniSoft Ltd., London, England
*
* (C) Copyright 1992 X/Open Company Limited
*
* All rights reserved. No part of this source code may be reproduced,
* stored in a retrieval system, or transmitted, in any form or by any
* means, electronic, mechanical, photocopying, recording or otherwise,
* except as stated in the end-user licence agreement, without the prior
* permission of the copyright owners.
*
* X/Open and the 'X' symbol are trademarks of X/Open Company Limited in
* the UK and other countries.
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
/************************************************************************
SCCS: @(#)xdfio.c 1.6 96/11/04 TETware release 3.3
NAME: xdfio.c
PRODUCT: TETware
AUTHOR: Andrew Dingwall, UniSoft Ltd.
DATE CREATED: May 1992
DESCRIPTION:
functions to request XRESD to open, close and read ascii files
MODIFICATIONS:
Aaron Plattner, April 2010
Fixed warnings when compiled with GCC's -Wall option.
************************************************************************/
#include <stdio.h>
#include <errno.h>
#include "dtmac.h"
#include "dtmsg.h"
#include "avmsg.h"
#include "valmsg.h"
#include "error.h"
#include "servlib.h"
#include "dtetlib.h"
/* static function declarations */
static char *xd_fio PROTOLIST((int));
/*
** tet_xdfopen() - send an OP_FOPEN message to XRESD and receive a reply
**
** return file ID if successful or -1 on error
*/
int tet_xdfopen(file)
char *file;
{
register char *dp;
/* make sure that file is non-null */
if (!file || !*file) {
tet_xderrno = ER_INVAL;
return(-1);
}
/* get the XRESD message buffer */
if ((dp = tet_xdmsgbuf(avmsgsz(OP_FOPEN_ARGC))) == (char *) 0) {
tet_xderrno = ER_ERR;
return(-1);
}
#define mp ((struct avmsg *) dp)
/* set up the request message */
mp->av_argc = OP_FOPEN_ARGC;
AV_FNAME(mp) = file;
AV_FTYPE(mp) = "r";
#undef mp
dp = xd_fio(OP_FOPEN);
#define rp ((struct valmsg *) dp)
return(dp ? (int) VM_FID(rp) : -1);
#undef rp
}
/*
** tet_xdfclose() - send an OP_FCLOSE message to XRESD and receive a reply
**
** return file ID if successful or -1 on error
*/
int tet_xdfclose(fid)
int fid;
{
register struct valmsg *mp;
/* get the XRESD message buffer */
if ((mp = (struct valmsg *) tet_xdmsgbuf(valmsgsz(OP_FCLOSE_NVALUE))) == (struct valmsg *) 0) {
tet_xderrno = ER_ERR;
return(-1);
}
/* set up the request message */
mp->vm_nvalue = OP_FCLOSE_NVALUE;
VM_FID(mp) = (long) fid;
return(xd_fio(OP_FCLOSE) == (char *) 0 ? -1 : 0);
}
/*
** tet_xdgets() - read a single line from a file opened by tet_xdfopen()
** and return a pointer thereto
**
** return (char *) 0 on EOF or error
*/
char *tet_xdgets(fid)
int fid;
{
register char **rp;
int nline = 1;
if ((rp = tet_xdgetsv(fid, &nline, (int *) 0)) == (char **) 0 ||
nline != 1)
return((char *) 0);
return(*rp);
}
/*
** tet_xdgetsv() - read one or more lines from a file opened by
** tet_xdfopen()
**
** up to *nlines lines will be read from the file
**
** return a pointer to the first in a list of string pointers
** if successful, or (char **) 0 on error
**
** if at least one line could be read, the number of lines actually read
** is returned indirectly through *nlines, and *eof is set to 1 or 0
** depending on whether or not the file is at EOF
**
** the lines and their pointers are held in memory owned by the
** tet_xdtalk() subsystem, so they must be copied if required before
** another XRESD request is issued
*/
char **tet_xdgetsv(fid, nlines, eof)
int fid, *eof;
register int *nlines;
{
register char *dp;
/* make sure that nlines is non-zero and that *nlines is +ve */
if (!nlines || *nlines <= 0) {
tet_xderrno = ER_INVAL;
return((char **) 0);
}
/* get the XRESD message buffer */
if ((dp = tet_xdmsgbuf(valmsgsz(OP_GETS_NVALUE))) == (char *) 0) {
tet_xderrno = ER_ERR;
return((char **) 0);
}
#define mp ((struct valmsg *) dp)
/* set up the request message */
mp->vm_nvalue = OP_GETS_NVALUE;
VM_FID(mp) = (long) fid;
VM_NLINES(mp) = (long) *nlines;
#undef mp
if ((dp = xd_fio(OP_GETS)) == (char *) 0)
return((char **) 0);
#define rp ((struct avmsg *) dp)
/* all ok so return all the return values */
*nlines = (int) OP_GETS_NLINE(rp);
if (eof)
*eof = (AV_FLAG(rp) == AV_DONE || *nlines <= 0) ? 1 : 0;
return(&AV_FLINE(rp, 0));
#undef rp
}
/*
** xd_fio() - common tet_xdtalk() interface used by several functions
**
** return pointer to XRESD reply buffer if successful
** or (char *) 0 on error
*/
static char *xd_fio(request)
int request;
{
register char *dp;
extern char tet_xderrmsg[];
/* send the request and receive the reply */
dp = tet_xdtalk(request, TALK_DELAY);
/* handle the return codes */
switch (tet_xderrno) {
case ER_OK:
return(dp);
case ER_FID:
case ER_INVAL:
break;
case ER_ERR:
if (!dp)
break;
/* else fall through */
default:
error(tet_unmaperrno(tet_xderrno), tet_xderrmsg,
tet_ptrepcode(tet_xderrno));
break;
}
/* here for server error return */
return((char *) 0);
}
|
