1 /*
2 * *****************************************************************************
3 *
4 * SPDX-License-Identifier: BSD-2-Clause
5 *
6 * Copyright (c) 2018-2024 Gavin D. Howard and contributors.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions are met:
10 *
11 * * Redistributions of source code must retain the above copyright notice, this
12 * list of conditions and the following disclaimer.
13 *
14 * * Redistributions in binary form must reproduce the above copyright notice,
15 * this list of conditions and the following disclaimer in the documentation
16 * and/or other materials provided with the distribution.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
19 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
22 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
23 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
24 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
26 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
27 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28 * POSSIBILITY OF SUCH DAMAGE.
29 *
30 * *****************************************************************************
31 *
32 * Code to handle special I/O for bc.
33 *
34 */
35
36 #include <assert.h>
37 #include <ctype.h>
38 #include <errno.h>
39 #include <stdlib.h>
40 #include <string.h>
41
42 #include <signal.h>
43
44 #include <fcntl.h>
45 #include <sys/stat.h>
46
47 #ifndef _WIN32
48 #include <unistd.h>
49 #endif // _WIN32
50
51 #include <read.h>
52 #include <history.h>
53 #include <program.h>
54 #include <vm.h>
55
56 /**
57 * A portability file open function. This is copied to gen/strgen.c. Make sure
58 * to update that if this changes.
59 * @param path The path to the file to open.
60 * @param mode The mode to open in.
61 */
62 static int
bc_read_open(const char * path,int mode)63 bc_read_open(const char* path, int mode)
64 {
65 int fd;
66
67 #ifndef _WIN32
68 fd = open(path, mode);
69 #else // _WIN32
70 fd = -1;
71 open(&fd, path, mode);
72 #endif
73
74 return fd;
75 }
76
77 /**
78 * Returns true if the buffer data is non-text.
79 * @param buf The buffer to test.
80 * @param size The size of the buffer.
81 */
82 static bool
bc_read_binary(const char * buf,size_t size)83 bc_read_binary(const char* buf, size_t size)
84 {
85 size_t i;
86
87 for (i = 0; i < size; ++i)
88 {
89 if (BC_ERR(BC_READ_BIN_CHAR(buf[i]))) return true;
90 }
91
92 return false;
93 }
94
95 bool
bc_read_buf(BcVec * vec,char * buf,size_t * buf_len)96 bc_read_buf(BcVec* vec, char* buf, size_t* buf_len)
97 {
98 char* nl;
99
100 // If nothing there, return.
101 if (!*buf_len) return false;
102
103 // Find the newline.
104 nl = strchr(buf, '\n');
105
106 // If a newline exists...
107 if (nl != NULL)
108 {
109 // Get the size of the data up to, and including, the newline.
110 size_t nllen = (size_t) ((nl + 1) - buf);
111
112 nllen = *buf_len >= nllen ? nllen : *buf_len;
113
114 // Move data into the vector, and move the rest of the data in the
115 // buffer up.
116 bc_vec_npush(vec, nllen, buf);
117 *buf_len -= nllen;
118 // NOLINTNEXTLINE
119 memmove(buf, nl + 1, *buf_len + 1);
120
121 return true;
122 }
123
124 // Just put the data into the vector.
125 bc_vec_npush(vec, *buf_len, buf);
126 *buf_len = 0;
127
128 return false;
129 }
130
131 BcStatus
bc_read_chars(BcVec * vec,const char * prompt)132 bc_read_chars(BcVec* vec, const char* prompt)
133 {
134 bool done = false;
135
136 assert(vec != NULL && vec->size == sizeof(char));
137
138 BC_SIG_ASSERT_NOT_LOCKED;
139
140 // Clear the vector.
141 bc_vec_popAll(vec);
142
143 // Handle the prompt, if desired.
144 if (BC_PROMPT)
145 {
146 bc_file_puts(&vm->fout, bc_flush_none, prompt);
147 bc_file_flush(&vm->fout, bc_flush_none);
148 }
149
150 // Try reading from the buffer, and if successful, just return.
151 if (bc_read_buf(vec, vm->buf, &vm->buf_len))
152 {
153 bc_vec_pushByte(vec, '\0');
154 return BC_STATUS_SUCCESS;
155 }
156
157 // Loop until we have something.
158 while (!done)
159 {
160 ssize_t r;
161
162 BC_SIG_LOCK;
163
164 // Read data from stdin.
165 r = read(STDIN_FILENO, vm->buf + vm->buf_len,
166 BC_VM_STDIN_BUF_SIZE - vm->buf_len);
167
168 // If there was an error...
169 if (BC_UNLIKELY(r < 0))
170 {
171 // If interupted...
172 if (errno == EINTR)
173 {
174 int sig;
175
176 // Jump out if we are supposed to quit, which certain signals
177 // will require.
178 if (vm->status == (sig_atomic_t) BC_STATUS_QUIT) BC_JMP;
179
180 assert(vm->sig != 0);
181
182 sig = (int) vm->sig;
183
184 // Clear the signal and status.
185 vm->sig = 0;
186 vm->status = (sig_atomic_t) BC_STATUS_SUCCESS;
187
188 #ifndef _WIN32
189 // We don't want to print anything on a SIGWINCH.
190 if (sig != SIGWINCH)
191 #endif // _WIN32
192 {
193 // Print the ready message and prompt again.
194 bc_file_puts(&vm->fout, bc_flush_none,
195 bc_program_ready_msg);
196 if (BC_PROMPT)
197 {
198 bc_file_puts(&vm->fout, bc_flush_none, prompt);
199 }
200 bc_file_flush(&vm->fout, bc_flush_none);
201 }
202
203 BC_SIG_UNLOCK;
204
205 continue;
206 }
207
208 BC_SIG_UNLOCK;
209
210 // If we get here, it's bad. Barf.
211 bc_vm_fatalError(BC_ERR_FATAL_IO_ERR);
212 }
213
214 BC_SIG_UNLOCK;
215
216 // If we read nothing, make sure to terminate the string and return EOF.
217 if (r == 0)
218 {
219 bc_vec_pushByte(vec, '\0');
220 return BC_STATUS_EOF;
221 }
222
223 BC_SIG_LOCK;
224
225 // Add to the buffer.
226 vm->buf_len += (size_t) r;
227 vm->buf[vm->buf_len] = '\0';
228
229 // Read from the buffer.
230 done = bc_read_buf(vec, vm->buf, &vm->buf_len);
231
232 BC_SIG_UNLOCK;
233 }
234
235 // Terminate the string.
236 bc_vec_pushByte(vec, '\0');
237
238 return BC_STATUS_SUCCESS;
239 }
240
241 BcStatus
bc_read_line(BcVec * vec,const char * prompt)242 bc_read_line(BcVec* vec, const char* prompt)
243 {
244 BcStatus s;
245
246 #if BC_ENABLE_HISTORY
247 // Get a line from either history or manual reading.
248 if (BC_TTY && !vm->history.badTerm)
249 {
250 s = bc_history_line(&vm->history, vec, prompt);
251 }
252 else s = bc_read_chars(vec, prompt);
253 #else // BC_ENABLE_HISTORY
254 s = bc_read_chars(vec, prompt);
255 #endif // BC_ENABLE_HISTORY
256
257 if (BC_ERR(bc_read_binary(vec->v, vec->len - 1)))
258 {
259 bc_verr(BC_ERR_FATAL_BIN_FILE, bc_program_stdin_name);
260 }
261
262 return s;
263 }
264
265 char*
bc_read_file(const char * path)266 bc_read_file(const char* path)
267 {
268 BcErr e = BC_ERR_FATAL_IO_ERR;
269 size_t size, to_read;
270 struct stat pstat;
271 int fd;
272 char* buf;
273 char* buf2;
274
275 // This has been copied to gen/strgen.c. Make sure to change that if this
276 // changes.
277
278 BC_SIG_ASSERT_LOCKED;
279
280 assert(path != NULL);
281
282 #if BC_DEBUG
283 // Need this to quiet MSan.
284 // NOLINTNEXTLINE
285 memset(&pstat, 0, sizeof(struct stat));
286 #endif // BC_DEBUG
287
288 fd = bc_read_open(path, O_RDONLY);
289
290 // If we can't read a file, we just barf.
291 if (BC_ERR(fd < 0)) bc_verr(BC_ERR_FATAL_FILE_ERR, path);
292
293 // The reason we call fstat is to eliminate TOCTOU race conditions. This
294 // way, we have an open file, so it's not going anywhere.
295 if (BC_ERR(fstat(fd, &pstat) == -1)) goto malloc_err;
296
297 // Make sure it's not a directory.
298 if (BC_ERR(S_ISDIR(pstat.st_mode)))
299 {
300 e = BC_ERR_FATAL_PATH_DIR;
301 goto malloc_err;
302 }
303
304 // Get the size of the file and allocate that much.
305 size = (size_t) pstat.st_size;
306 buf = bc_vm_malloc(size + 1);
307 buf2 = buf;
308 to_read = size;
309
310 do
311 {
312 // Read the file. We just bail if a signal interrupts. This is so that
313 // users can interrupt the reading of big files if they want.
314 ssize_t r = read(fd, buf2, to_read);
315 if (BC_ERR(r < 0)) goto read_err;
316 to_read -= (size_t) r;
317 buf2 += (size_t) r;
318 }
319 while (to_read);
320
321 // Got to have a nul byte.
322 buf[size] = '\0';
323
324 if (BC_ERR(bc_read_binary(buf, size)))
325 {
326 e = BC_ERR_FATAL_BIN_FILE;
327 goto read_err;
328 }
329
330 close(fd);
331
332 return buf;
333
334 read_err:
335 free(buf);
336 malloc_err:
337 close(fd);
338 bc_verr(e, path);
339 return NULL;
340 }
341