2 * SPDX-License-Identifier: BSD-3-Clause
4 * Copyright (c) 1989, 1993
5 * The Regents of the University of California. All rights reserved.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 #include <sys/cdefs.h>
35 #include <sys/param.h>
36 #include <sys/capsicum.h>
38 #include <sys/ioctl.h>
41 #include <capsicum_helpers.h>
51 enum _vflag vflag = FIRST;
53 static off_t address; /* address/offset in stream */
54 static off_t eaddress; /* end address */
56 static void print(PR *, u_char *);
57 static void noseek(void);
68 u_char savech, *savebp;
72 for (fs = fshead, savebp = bp, saveaddress = address; fs;
73 fs = fs->nextfs, bp = savebp, address = saveaddress)
74 for (fu = fs->nextfu; fu; fu = fu->nextfu) {
75 if (fu->flags&F_IGNORE)
77 for (cnt = fu->reps; cnt; --cnt)
78 for (pr = fu->nextpr; pr; address += pr->bcnt,
79 bp += pr->bcnt, pr = pr->nextpr) {
80 if (eaddress && address >= eaddress &&
81 !(pr->flags & (F_TEXT|F_BPAD)))
83 if (cnt == 1 && pr->nospace) {
84 savech = *pr->nospace;
88 if (cnt == 1 && pr->nospace)
89 *pr->nospace = savech;
94 * If eaddress not set, error or file size was multiple of
95 * blocksize, and no partial block ever found.
102 for (pr = endfu->nextpr; pr; pr = pr->nextpr)
105 (void)printf(pr->fmt, (quad_t)eaddress);
108 (void)printf("%s", pr->fmt);
115 print(PR *pr, u_char *bp)
129 (void)printf(pr->fmt, (quad_t)address);
132 (void)printf(pr->fmt, "");
135 conv_c(pr, bp, eaddress ? eaddress - address :
136 blocksize - address % blocksize);
139 (void)printf(pr->fmt, *bp);
144 bcopy(bp, &f4, sizeof(f4));
145 (void)printf(pr->fmt, f4);
148 bcopy(bp, &f8, sizeof(f8));
149 (void)printf(pr->fmt, f8);
152 if (pr->bcnt == sizeof(long double)) {
153 bcopy(bp, &ldbl, sizeof(ldbl));
154 (void)printf(pr->fmt, ldbl);
162 (void)printf(pr->fmt, (quad_t)(signed char)*bp);
165 bcopy(bp, &s2, sizeof(s2));
166 (void)printf(pr->fmt, (quad_t)s2);
169 bcopy(bp, &s4, sizeof(s4));
170 (void)printf(pr->fmt, (quad_t)s4);
173 bcopy(bp, &s8, sizeof(s8));
174 (void)printf(pr->fmt, s8);
179 (void)printf(pr->fmt, isprint(*bp) ? *bp : '.');
182 (void)printf(pr->fmt, (char *)bp);
185 (void)printf("%s", pr->fmt);
193 (void)printf(pr->fmt, (u_quad_t)*bp);
196 bcopy(bp, &u2, sizeof(u2));
197 (void)printf(pr->fmt, (u_quad_t)u2);
200 bcopy(bp, &u4, sizeof(u4));
201 (void)printf(pr->fmt, (u_quad_t)u4);
204 bcopy(bp, &u8, sizeof(u8));
205 (void)printf(pr->fmt, u8);
215 static char const *spec = " -0+#";
219 * Remove all conversion flags; '-' is the only one valid
220 * with %s, and it's not useful here.
225 for (p1 = pr->fmt; *p1 != '%'; ++p1);
226 for (p2 = ++p1; *p1 && strchr(spec, *p1); ++p1);
227 while ((*p2++ = *p1++));
235 static int ateof = 1;
236 static u_char *curp, *savp;
243 if ((curp = calloc(1, blocksize)) == NULL)
245 if ((savp = calloc(1, blocksize)) == NULL)
251 address += blocksize;
254 for (need = blocksize, nread = 0;;) {
256 * if read the right number of bytes, or at EOF for one file,
257 * and no other files are available, zero-pad the rest of the
258 * block and set the end flag.
260 if (!length || (ateof && !next((char **)NULL))) {
261 if (odmode && skip > 0)
262 errx(1, "cannot skip past end of input");
263 if (need == blocksize)
264 return((u_char *)NULL);
266 * XXX bcmp() is not quite right in the presence
267 * of multibyte characters.
269 if (need == 0 && vflag != ALL &&
271 bcmp(curp, savp, nread) == 0) {
274 (void)fflush(stdout);
276 return((u_char *)NULL);
278 bzero((char *)curp + nread, need);
279 eaddress = address + nread;
282 n = fread((char *)curp + nread, sizeof(u_char),
283 length == -1 ? need : MIN(length, need), stdin);
286 warn("%s", _argv[-1]);
295 * XXX bcmp() is not quite right in the presence
296 * of multibyte characters.
298 if (vflag == ALL || vflag == FIRST ||
300 bcmp(curp, savp, blocksize) != 0) {
301 if (vflag == DUP || vflag == FIRST)
307 (void)fflush(stdout);
310 address += blocksize;
320 peek(u_char *buf, size_t nbytes)
325 if (length != -1 && nbytes > (unsigned int)length)
328 while (nread < nbytes && (c = getchar()) != EOF) {
353 if (!(freopen(*_argv, "r", stdin))) {
366 if (caph_limit_stream(fileno(stdin), CAPH_READ) < 0)
367 err(1, "unable to restrict %s",
368 statok ? *_argv : "stdin");
371 * We've opened our last input file; enter capsicum sandbox.
373 if (statok == 0 || *(_argv + 1) == NULL) {
374 if (caph_enter() < 0)
375 err(1, "unable to enter capability mode");
379 doskip(statok ? *_argv : "stdin", statok);
389 doskip(const char *fname, int statok)
395 if (fstat(fileno(stdin), &sb))
397 if (S_ISREG(sb.st_mode) && skip > sb.st_size) {
398 address += sb.st_size;
403 if (!statok || S_ISFIFO(sb.st_mode) || S_ISSOCK(sb.st_mode)) {
407 if (S_ISCHR(sb.st_mode) || S_ISBLK(sb.st_mode)) {
408 if (ioctl(fileno(stdin), FIODTYPE, &type))
411 * Most tape drives don't support seeking,
412 * yet fseek() would succeed.
419 if (fseeko(stdin, skip, SEEK_SET)) {
431 for (count = 0; count < skip; ++count)
432 if (getchar() == EOF)