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
|
#if !defined(lint) && !defined(DOS)
static char rcsid[] = "$Id: fileio.c 769 2007-10-24 00:15:40Z hubert@u.washington.edu $";
#endif
/*
* ========================================================================
* Copyright 2006 University of Washington
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* ========================================================================
*
* Program: file reading routines
*
*/
/*
* The routines in this file read and write ASCII files from the disk. All of
* the knowledge about files are here. A better message writing scheme should
* be used.
*/
#include "headers.h"
#include "../pith/charconv/filesys.h"
#if defined(bsd) || defined(lnx)
extern int errno;
#endif
FIOINFO g_pico_fio;
/*
* Open a file for reading.
*/
int
ffropen(char *fn)
{
int status;
if ((status = fexist(g_pico_fio.name = fn, "r", (off_t *)NULL)) == FIOSUC){
g_pico_fio.flags = FIOINFO_READ;
if((g_pico_fio.fp = our_fopen(g_pico_fio.name, "r")) == NULL)
status = FIOFNF;
}
return (status);
}
/*
* Write a line to the already opened file. The "buf" points to the buffer,
* and the "nbuf" is its length, less the free newline. Return the status.
* Check only at the newline.
*/
int
ffputline(CELL buf[], int nbuf)
{
register int i;
EML eml;
for(i = 0; i < nbuf; ++i)
if(write_a_wide_char((UCS) buf[i].c, g_pico_fio.fp) == EOF)
break;
if(i == nbuf)
write_a_wide_char((UCS) '\n', g_pico_fio.fp);
if(ferror(g_pico_fio.fp)){
eml.s = errstr(errno);
emlwrite("\007Write error: %s", &eml);
sleep(5);
return FIOERR;
}
return FIOSUC;
}
/*
* Read a line from a file, and store the bytes in the supplied buffer. The
* "nbuf" is the length of the buffer. Complain about long lines and lines
* at the end of the file that don't have a newline present. Check for I/O
* errors too. Return status.
*
* Translate the line from the user's locale charset to UCS-4.
*/
int
ffgetline(UCS buf[], size_t nbuf, size_t *charsreturned, int msg)
{
size_t i;
UCS ucs;
if(charsreturned)
*charsreturned = 0;
i = 0;
while((ucs = read_a_wide_char(g_pico_fio.fp, input_cs)) != CCONV_EOF && ucs != '\n'){
/*
* Don't blat the CR should the newline be CRLF and we're
* running on a unix system. NOTE: this takes care of itself
* under DOS since the non-binary open turns newlines into '\n'.
*/
if(ucs == '\r'){
if((ucs = read_a_wide_char(g_pico_fio.fp, input_cs)) == CCONV_EOF || ucs == '\n')
break;
if(i < nbuf-2) /* Bare CR. Insert it and go on... */
buf[i++] = '\r'; /* else, we're up a creek */
}
if(i >= nbuf-2){
buf[nbuf - 2] = ucs; /* store last char read */
buf[nbuf - 1] = '\0'; /* and terminate it */
if(charsreturned)
*charsreturned = nbuf - 1;
if(msg)
emlwrite("File has long line", NULL);
return FIOLNG;
}
buf[i++] = ucs;
}
if(ucs == CCONV_EOF){
if(ferror(g_pico_fio.fp)){
emlwrite("File read error", NULL);
if(charsreturned)
*charsreturned = i;
return FIOERR;
}
if(i != 0)
emlwrite("File doesn't end with newline. Adding one.", NULL);
else{
if(charsreturned)
*charsreturned = i;
return FIOEOF;
}
}
buf[i] = '\0';
if(charsreturned)
*charsreturned = i;
return FIOSUC;
}
|
