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
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
|
/* do not edit automatically generated by mc from FIO. */
/* FIO.def provides a simple buffered file input/output library.
Copyright (C) 2001-2021 Free Software Foundation, Inc.
Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
This file is part of GNU Modula-2.
GNU Modula-2 is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.
GNU Modula-2 is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.
You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#if !defined (_FIO_H)
# define _FIO_H
#include "config.h"
#include "system.h"
# ifdef __cplusplus
extern "C" {
# endif
# if !defined (PROC_D)
# define PROC_D
typedef void (*PROC_t) (void);
typedef struct { PROC_t proc; } PROC;
# endif
# include "GSYSTEM.h"
# if defined (_FIO_C)
# define EXTERN
# else
# define EXTERN extern
# endif
typedef unsigned int FIO_File;
EXTERN FIO_File FIO_StdIn;
EXTERN FIO_File FIO_StdOut;
EXTERN FIO_File FIO_StdErr;
/*
IsNoError - returns a TRUE if no error has occured on file, f.
*/
EXTERN unsigned int FIO_IsNoError (FIO_File f);
/*
IsActive - returns TRUE if the file, f, is still active.
*/
EXTERN unsigned int FIO_IsActive (FIO_File f);
/*
Exists - returns TRUE if a file named, fname exists for reading.
*/
EXTERN unsigned int FIO_Exists (const char *fname_, unsigned int _fname_high);
/*
OpenToRead - attempts to open a file, fname, for reading and
it returns this file.
The success of this operation can be checked by
calling IsNoError.
*/
EXTERN FIO_File FIO_OpenToRead (const char *fname_, unsigned int _fname_high);
/*
OpenToWrite - attempts to open a file, fname, for write and
it returns this file.
The success of this operation can be checked by
calling IsNoError.
*/
EXTERN FIO_File FIO_OpenToWrite (const char *fname_, unsigned int _fname_high);
/*
OpenForRandom - attempts to open a file, fname, for random access
read or write and it returns this file.
The success of this operation can be checked by
calling IsNoError.
towrite, determines whether the file should be
opened for writing or reading.
newfile, determines whether a file should be
created if towrite is TRUE or whether the
previous file should be left alone,
allowing this descriptor to seek
and modify an existing file.
*/
EXTERN FIO_File FIO_OpenForRandom (const char *fname_, unsigned int _fname_high, unsigned int towrite, unsigned int newfile);
/*
Close - close a file which has been previously opened using:
OpenToRead, OpenToWrite, OpenForRandom.
It is correct to close a file which has an error status.
*/
EXTERN void FIO_Close (FIO_File f);
EXTERN unsigned int FIO_exists (void * fname, unsigned int flength);
EXTERN FIO_File FIO_openToRead (void * fname, unsigned int flength);
EXTERN FIO_File FIO_openToWrite (void * fname, unsigned int flength);
EXTERN FIO_File FIO_openForRandom (void * fname, unsigned int flength, unsigned int towrite, unsigned int newfile);
/*
FlushBuffer - flush contents of the FIO file, f, to libc.
*/
EXTERN void FIO_FlushBuffer (FIO_File f);
/*
ReadNBytes - reads nBytes of a file into memory area, dest, returning
the number of bytes actually read.
This function will consume from the buffer and then
perform direct libc reads. It is ideal for large reads.
*/
EXTERN unsigned int FIO_ReadNBytes (FIO_File f, unsigned int nBytes, void * dest);
/*
ReadAny - reads HIGH(a) bytes into, a. All input
is fully buffered, unlike ReadNBytes and thus is more
suited to small reads.
*/
EXTERN void FIO_ReadAny (FIO_File f, unsigned char *a, unsigned int _a_high);
/*
WriteNBytes - writes nBytes from memory area src to a file
returning the number of bytes actually written.
This function will flush the buffer and then
write the nBytes using a direct write from libc.
It is ideal for large writes.
*/
EXTERN unsigned int FIO_WriteNBytes (FIO_File f, unsigned int nBytes, void * src);
/*
WriteAny - writes HIGH(a) bytes onto, file, f. All output
is fully buffered, unlike WriteNBytes and thus is more
suited to small writes.
*/
EXTERN void FIO_WriteAny (FIO_File f, unsigned char *a, unsigned int _a_high);
/*
WriteChar - writes a single character to file, f.
*/
EXTERN void FIO_WriteChar (FIO_File f, char ch);
/*
EOF - tests to see whether a file, f, has reached end of file.
*/
EXTERN unsigned int FIO_EOF (FIO_File f);
/*
EOLN - tests to see whether a file, f, is about to read a newline.
It does NOT consume the newline. It reads the next character
and then immediately unreads the character.
*/
EXTERN unsigned int FIO_EOLN (FIO_File f);
/*
WasEOLN - tests to see whether a file, f, has just read a newline
character.
*/
EXTERN unsigned int FIO_WasEOLN (FIO_File f);
/*
ReadChar - returns a character read from file, f.
Sensible to check with IsNoError or EOF after calling
this function.
*/
EXTERN char FIO_ReadChar (FIO_File f);
/*
UnReadChar - replaces a character, ch, back into file, f.
This character must have been read by ReadChar
and it does not allow successive calls. It may
only be called if the previous read was successful,
end of file or end of line seen.
*/
EXTERN void FIO_UnReadChar (FIO_File f, char ch);
/*
WriteLine - writes out a linefeed to file, f.
*/
EXTERN void FIO_WriteLine (FIO_File f);
/*
WriteString - writes a string to file, f.
*/
EXTERN void FIO_WriteString (FIO_File f, const char *a_, unsigned int _a_high);
/*
ReadString - reads a string from file, f, into string, a.
It terminates the string if HIGH is reached or
if a newline is seen or an error occurs.
*/
EXTERN void FIO_ReadString (FIO_File f, char *a, unsigned int _a_high);
/*
WriteCardinal - writes a CARDINAL to file, f.
It writes the binary image of the CARDINAL.
to file, f.
*/
EXTERN void FIO_WriteCardinal (FIO_File f, unsigned int c);
/*
ReadCardinal - reads a CARDINAL from file, f.
It reads a bit image of a CARDINAL
from file, f.
*/
EXTERN unsigned int FIO_ReadCardinal (FIO_File f);
/*
GetUnixFileDescriptor - returns the UNIX file descriptor of a file.
Useful when combining FIO.mod with select
(in Selective.def - but note the comments in
Selective about using read/write primatives)
*/
EXTERN int FIO_GetUnixFileDescriptor (FIO_File f);
/*
SetPositionFromBeginning - sets the position from the beginning
of the file.
*/
EXTERN void FIO_SetPositionFromBeginning (FIO_File f, long int pos);
/*
SetPositionFromEnd - sets the position from the end of the file.
*/
EXTERN void FIO_SetPositionFromEnd (FIO_File f, long int pos);
/*
FindPosition - returns the current absolute position in file, f.
*/
EXTERN long int FIO_FindPosition (FIO_File f);
/*
GetFileName - assigns, a, with the filename associated with, f.
*/
EXTERN void FIO_GetFileName (FIO_File f, char *a, unsigned int _a_high);
/*
getFileName - returns the address of the filename associated with, f.
*/
EXTERN void * FIO_getFileName (FIO_File f);
/*
getFileNameLength - returns the number of characters associated with
filename, f.
*/
EXTERN unsigned int FIO_getFileNameLength (FIO_File f);
/*
FlushOutErr - flushes, StdOut, and, StdErr.
*/
EXTERN void FIO_FlushOutErr (void);
# ifdef __cplusplus
}
# endif
# undef EXTERN
#endif
|
