ar_io.c revision 1.60 1 1.60 lukem /* $NetBSD: ar_io.c,v 1.60 2023/07/20 20:10:59 lukem Exp $ */
2 1.4 cgd
3 1.1 jtc /*-
4 1.38 agc * Copyright (c) 1992 Keith Muller.
5 1.1 jtc * Copyright (c) 1992, 1993
6 1.1 jtc * The Regents of the University of California. All rights reserved.
7 1.1 jtc *
8 1.1 jtc * This code is derived from software contributed to Berkeley by
9 1.1 jtc * Keith Muller of the University of California, San Diego.
10 1.1 jtc *
11 1.1 jtc * Redistribution and use in source and binary forms, with or without
12 1.1 jtc * modification, are permitted provided that the following conditions
13 1.1 jtc * are met:
14 1.1 jtc * 1. Redistributions of source code must retain the above copyright
15 1.1 jtc * notice, this list of conditions and the following disclaimer.
16 1.1 jtc * 2. Redistributions in binary form must reproduce the above copyright
17 1.1 jtc * notice, this list of conditions and the following disclaimer in the
18 1.1 jtc * documentation and/or other materials provided with the distribution.
19 1.36 agc * 3. Neither the name of the University nor the names of its contributors
20 1.36 agc * may be used to endorse or promote products derived from this software
21 1.36 agc * without specific prior written permission.
22 1.36 agc *
23 1.36 agc * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.36 agc * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.36 agc * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.36 agc * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.36 agc * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.36 agc * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.36 agc * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.36 agc * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.36 agc * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.36 agc * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.36 agc * SUCH DAMAGE.
34 1.36 agc */
35 1.36 agc
36 1.39 lukem #if HAVE_NBTOOL_CONFIG_H
37 1.39 lukem #include "nbtool_config.h"
38 1.39 lukem #endif
39 1.39 lukem
40 1.7 christos #include <sys/cdefs.h>
41 1.39 lukem #if !defined(lint)
42 1.4 cgd #if 0
43 1.4 cgd static char sccsid[] = "@(#)ar_io.c 8.2 (Berkeley) 4/18/94";
44 1.4 cgd #else
45 1.60 lukem __RCSID("$NetBSD: ar_io.c,v 1.60 2023/07/20 20:10:59 lukem Exp $");
46 1.4 cgd #endif
47 1.1 jtc #endif /* not lint */
48 1.1 jtc
49 1.46 christos #include <sys/param.h>
50 1.1 jtc #include <sys/ioctl.h>
51 1.49 dbj #ifdef HAVE_SYS_MTIO_H
52 1.1 jtc #include <sys/mtio.h>
53 1.46 christos #endif
54 1.58 joerg #include <sys/stat.h>
55 1.58 joerg #include <sys/time.h>
56 1.23 christos #include <sys/wait.h>
57 1.58 joerg #include <ctype.h>
58 1.58 joerg #include <errno.h>
59 1.58 joerg #include <fcntl.h>
60 1.1 jtc #include <signal.h>
61 1.58 joerg #include <stdio.h>
62 1.58 joerg #include <stdlib.h>
63 1.1 jtc #include <string.h>
64 1.58 joerg #include <time.h>
65 1.1 jtc #include <unistd.h>
66 1.25 thorpej #ifdef SUPPORT_RMT
67 1.23 christos #define __RMTLIB_PRIVATE
68 1.23 christos #include <rmt.h>
69 1.25 thorpej #endif /* SUPPORT_RMT */
70 1.1 jtc #include "pax.h"
71 1.23 christos #include "options.h"
72 1.1 jtc #include "extern.h"
73 1.1 jtc
74 1.1 jtc /*
75 1.1 jtc * Routines which deal directly with the archive I/O device/file.
76 1.1 jtc */
77 1.1 jtc
78 1.1 jtc #define DMOD 0666 /* default mode of created archives */
79 1.1 jtc #define EXT_MODE O_RDONLY /* open mode for list/extract */
80 1.1 jtc #define AR_MODE (O_WRONLY | O_CREAT | O_TRUNC) /* mode for archive */
81 1.1 jtc #define APP_MODE O_RDWR /* mode for append */
82 1.40 christos static char STDO[] = "<STDOUT>"; /* pseudo name for stdout */
83 1.40 christos static char STDN[] = "<STDIN>"; /* pseudo name for stdin */
84 1.40 christos static char NONE[] = "<NONE>"; /* pseudo name for none */
85 1.1 jtc static int arfd = -1; /* archive file descriptor */
86 1.1 jtc static int artyp = ISREG; /* archive type: file/FIFO/tape */
87 1.1 jtc static int arvol = 1; /* archive volume number */
88 1.1 jtc static int lstrval = -1; /* return value from last i/o */
89 1.1 jtc static int io_ok; /* i/o worked on volume after resync */
90 1.1 jtc static int did_io; /* did i/o ever occur on volume? */
91 1.1 jtc static int done; /* set via tty termination */
92 1.1 jtc static struct stat arsb; /* stat of archive device at open */
93 1.1 jtc static int invld_rec; /* tape has out of spec record size */
94 1.1 jtc static int wr_trail = 1; /* trailer was rewritten in append */
95 1.1 jtc static int can_unlnk = 0; /* do we unlink null archives? */
96 1.17 itohy const char *arcname; /* printable name of archive */
97 1.9 mycroft const char *gzip_program; /* name of gzip program */
98 1.23 christos static pid_t zpid = -1; /* pid of child process */
99 1.13 christos time_t starttime; /* time the run started */
100 1.18 thorpej int force_one_volume; /* 1 if we ignore volume changes */
101 1.1 jtc
102 1.49 dbj #ifdef HAVE_SYS_MTIO_H
103 1.20 lukem static int get_phys(void);
104 1.46 christos #endif
105 1.1 jtc extern sigset_t s_mask;
106 1.23 christos static void ar_start_gzip(int, const char *, int);
107 1.43 yamt static const char *timefmt(char *, size_t, off_t, time_t, const char *);
108 1.20 lukem static const char *sizefmt(char *, size_t, off_t);
109 1.24 thorpej
110 1.24 thorpej #ifdef SUPPORT_RMT
111 1.23 christos #ifdef SYS_NO_RESTART
112 1.23 christos static int rmtread_with_restart(int, void *, int);
113 1.23 christos static int rmtwrite_with_restart(int, void *, int);
114 1.23 christos #else
115 1.23 christos #define rmtread_with_restart(a, b, c) rmtread((a), (b), (c))
116 1.23 christos #define rmtwrite_with_restart(a, b, c) rmtwrite((a), (b), (c))
117 1.23 christos #endif
118 1.24 thorpej #endif /* SUPPORT_RMT */
119 1.1 jtc
120 1.1 jtc /*
121 1.1 jtc * ar_open()
122 1.1 jtc * Opens the next archive volume. Determines the type of the device and
123 1.1 jtc * sets up block sizes as required by the archive device and the format.
124 1.1 jtc * Note: we may be called with name == NULL on the first open only.
125 1.1 jtc * Return:
126 1.1 jtc * -1 on failure, 0 otherwise
127 1.1 jtc */
128 1.1 jtc
129 1.1 jtc int
130 1.9 mycroft ar_open(const char *name)
131 1.1 jtc {
132 1.49 dbj #ifdef HAVE_SYS_MTIO_H
133 1.17 itohy struct mtget mb;
134 1.46 christos #endif
135 1.8 mrg
136 1.1 jtc if (arfd != -1)
137 1.1 jtc (void)close(arfd);
138 1.1 jtc arfd = -1;
139 1.1 jtc can_unlnk = did_io = io_ok = invld_rec = 0;
140 1.1 jtc artyp = ISREG;
141 1.1 jtc flcnt = 0;
142 1.1 jtc
143 1.24 thorpej #ifdef SUPPORT_RMT
144 1.26 christos if (name && strchr(name, ':') != NULL && !forcelocal) {
145 1.23 christos artyp = ISRMT;
146 1.23 christos if ((arfd = rmtopen(name, O_RDWR, DMOD)) == -1) {
147 1.23 christos syswarn(0, errno, "Failed open on %s", name);
148 1.23 christos return -1;
149 1.23 christos }
150 1.50 enami if (!isrmt(arfd)) {
151 1.50 enami rmtclose(arfd);
152 1.50 enami tty_warn(0, "Not a remote file: %s", name);
153 1.50 enami return -1;
154 1.50 enami }
155 1.23 christos blksz = rdblksz = 8192;
156 1.23 christos lstrval = 1;
157 1.23 christos return 0;
158 1.23 christos }
159 1.24 thorpej #endif /* SUPPORT_RMT */
160 1.23 christos
161 1.1 jtc /*
162 1.1 jtc * open based on overall operation mode
163 1.1 jtc */
164 1.1 jtc switch (act) {
165 1.1 jtc case LIST:
166 1.1 jtc case EXTRACT:
167 1.1 jtc if (name == NULL) {
168 1.1 jtc arfd = STDIN_FILENO;
169 1.1 jtc arcname = STDN;
170 1.1 jtc } else if ((arfd = open(name, EXT_MODE, DMOD)) < 0)
171 1.1 jtc syswarn(0, errno, "Failed open to read on %s", name);
172 1.23 christos if (arfd != -1 && gzip_program != NULL)
173 1.23 christos ar_start_gzip(arfd, gzip_program, 0);
174 1.1 jtc break;
175 1.1 jtc case ARCHIVE:
176 1.1 jtc if (name == NULL) {
177 1.1 jtc arfd = STDOUT_FILENO;
178 1.1 jtc arcname = STDO;
179 1.1 jtc } else if ((arfd = open(name, AR_MODE, DMOD)) < 0)
180 1.1 jtc syswarn(0, errno, "Failed open to write on %s", name);
181 1.1 jtc else
182 1.1 jtc can_unlnk = 1;
183 1.23 christos if (arfd != -1 && gzip_program != NULL)
184 1.23 christos ar_start_gzip(arfd, gzip_program, 1);
185 1.1 jtc break;
186 1.1 jtc case APPND:
187 1.1 jtc if (name == NULL) {
188 1.1 jtc arfd = STDOUT_FILENO;
189 1.1 jtc arcname = STDO;
190 1.1 jtc } else if ((arfd = open(name, APP_MODE, DMOD)) < 0)
191 1.1 jtc syswarn(0, errno, "Failed open to read/write on %s",
192 1.1 jtc name);
193 1.1 jtc break;
194 1.1 jtc case COPY:
195 1.1 jtc /*
196 1.1 jtc * arfd not used in COPY mode
197 1.1 jtc */
198 1.40 christos arcname = NONE;
199 1.1 jtc lstrval = 1;
200 1.47 dsl return 0;
201 1.1 jtc }
202 1.1 jtc if (arfd < 0)
203 1.47 dsl return -1;
204 1.1 jtc
205 1.23 christos if (chdname != NULL)
206 1.45 christos if (dochdir(chdname) == -1)
207 1.47 dsl return -1;
208 1.1 jtc /*
209 1.1 jtc * set up is based on device type
210 1.1 jtc */
211 1.1 jtc if (fstat(arfd, &arsb) < 0) {
212 1.1 jtc syswarn(0, errno, "Failed stat on %s", arcname);
213 1.1 jtc (void)close(arfd);
214 1.1 jtc arfd = -1;
215 1.1 jtc can_unlnk = 0;
216 1.47 dsl return -1;
217 1.1 jtc }
218 1.1 jtc if (S_ISDIR(arsb.st_mode)) {
219 1.7 christos tty_warn(0, "Cannot write an archive on top of a directory %s",
220 1.1 jtc arcname);
221 1.1 jtc (void)close(arfd);
222 1.1 jtc arfd = -1;
223 1.1 jtc can_unlnk = 0;
224 1.47 dsl return -1;
225 1.1 jtc }
226 1.1 jtc
227 1.46 christos if (S_ISCHR(arsb.st_mode)) {
228 1.49 dbj #ifdef HAVE_SYS_MTIO_H
229 1.1 jtc artyp = ioctl(arfd, MTIOCGET, &mb) ? ISCHR : ISTAPE;
230 1.46 christos #else
231 1.46 christos tty_warn(1, "System does not have tape support");
232 1.46 christos artyp = ISREG;
233 1.46 christos #endif
234 1.46 christos } else if (S_ISBLK(arsb.st_mode))
235 1.1 jtc artyp = ISBLK;
236 1.1 jtc else if ((lseek(arfd, (off_t)0L, SEEK_CUR) == -1) && (errno == ESPIPE))
237 1.1 jtc artyp = ISPIPE;
238 1.1 jtc else
239 1.1 jtc artyp = ISREG;
240 1.29 christos
241 1.29 christos /*
242 1.29 christos * Special handling for empty files.
243 1.29 christos */
244 1.29 christos if (artyp == ISREG && arsb.st_size == 0) {
245 1.29 christos switch (act) {
246 1.29 christos case LIST:
247 1.29 christos case EXTRACT:
248 1.29 christos return -1;
249 1.29 christos case APPND:
250 1.30 christos act = -ARCHIVE;
251 1.29 christos return -1;
252 1.29 christos case ARCHIVE:
253 1.29 christos break;
254 1.29 christos }
255 1.29 christos }
256 1.1 jtc
257 1.1 jtc /*
258 1.56 sevan * make sure beyond any doubt that we can unlink only regular files
259 1.1 jtc * we created
260 1.1 jtc */
261 1.1 jtc if (artyp != ISREG)
262 1.1 jtc can_unlnk = 0;
263 1.14 is
264 1.14 is /*
265 1.1 jtc * if we are writing, we are done
266 1.1 jtc */
267 1.1 jtc if (act == ARCHIVE) {
268 1.1 jtc blksz = rdblksz = wrblksz;
269 1.1 jtc lstrval = 1;
270 1.47 dsl return 0;
271 1.8 mrg }
272 1.8 mrg
273 1.8 mrg /*
274 1.1 jtc * set default blksz on read. APPNDs writes rdblksz on the last volume
275 1.1 jtc * On all new archive volumes, we shift to wrblksz (if the user
276 1.1 jtc * specified one, otherwize we will continue to use rdblksz). We
277 1.31 wiz * must set blocksize based on what kind of device the archive is
278 1.1 jtc * stored.
279 1.1 jtc */
280 1.1 jtc switch(artyp) {
281 1.1 jtc case ISTAPE:
282 1.1 jtc /*
283 1.1 jtc * Tape drives come in at least two flavors. Those that support
284 1.1 jtc * variable sized records and those that have fixed sized
285 1.1 jtc * records. They must be treated differently. For tape drives
286 1.1 jtc * that support variable sized records, we must make large
287 1.1 jtc * reads to make sure we get the entire record, otherwise we
288 1.1 jtc * will just get the first part of the record (up to size we
289 1.1 jtc * asked). Tapes with fixed sized records may or may not return
290 1.1 jtc * multiple records in a single read. We really do not care
291 1.1 jtc * what the physical record size is UNLESS we are going to
292 1.1 jtc * append. (We will need the physical block size to rewrite
293 1.1 jtc * the trailer). Only when we are appending do we go to the
294 1.1 jtc * effort to figure out the true PHYSICAL record size.
295 1.1 jtc */
296 1.1 jtc blksz = rdblksz = MAXBLK;
297 1.1 jtc break;
298 1.1 jtc case ISPIPE:
299 1.1 jtc case ISBLK:
300 1.1 jtc case ISCHR:
301 1.1 jtc /*
302 1.1 jtc * Blocksize is not a major issue with these devices (but must
303 1.1 jtc * be kept a multiple of 512). If the user specified a write
304 1.1 jtc * block size, we use that to read. Under append, we must
305 1.1 jtc * always keep blksz == rdblksz. Otherwise we go ahead and use
306 1.1 jtc * the device optimal blocksize as (and if) returned by stat
307 1.1 jtc * and if it is within pax specs.
308 1.1 jtc */
309 1.1 jtc if ((act == APPND) && wrblksz) {
310 1.1 jtc blksz = rdblksz = wrblksz;
311 1.1 jtc break;
312 1.1 jtc }
313 1.1 jtc
314 1.1 jtc if ((arsb.st_blksize > 0) && (arsb.st_blksize < MAXBLK) &&
315 1.1 jtc ((arsb.st_blksize % BLKMULT) == 0))
316 1.1 jtc rdblksz = arsb.st_blksize;
317 1.1 jtc else
318 1.1 jtc rdblksz = DEVBLK;
319 1.1 jtc /*
320 1.1 jtc * For performance go for large reads when we can without harm
321 1.1 jtc */
322 1.1 jtc if ((act == APPND) || (artyp == ISCHR))
323 1.1 jtc blksz = rdblksz;
324 1.1 jtc else
325 1.1 jtc blksz = MAXBLK;
326 1.1 jtc break;
327 1.1 jtc case ISREG:
328 1.1 jtc /*
329 1.1 jtc * if the user specified wrblksz works, use it. Under appends
330 1.1 jtc * we must always keep blksz == rdblksz
331 1.1 jtc */
332 1.1 jtc if ((act == APPND) && wrblksz && ((arsb.st_size%wrblksz)==0)){
333 1.1 jtc blksz = rdblksz = wrblksz;
334 1.1 jtc break;
335 1.1 jtc }
336 1.1 jtc /*
337 1.1 jtc * See if we can find the blocking factor from the file size
338 1.1 jtc */
339 1.1 jtc for (rdblksz = MAXBLK; rdblksz > 0; rdblksz -= BLKMULT)
340 1.1 jtc if ((arsb.st_size % rdblksz) == 0)
341 1.1 jtc break;
342 1.1 jtc /*
343 1.17 itohy * When we cannot find a match, we may have a flawed archive.
344 1.1 jtc */
345 1.1 jtc if (rdblksz <= 0)
346 1.1 jtc rdblksz = FILEBLK;
347 1.1 jtc /*
348 1.1 jtc * for performance go for large reads when we can
349 1.1 jtc */
350 1.1 jtc if (act == APPND)
351 1.1 jtc blksz = rdblksz;
352 1.1 jtc else
353 1.1 jtc blksz = MAXBLK;
354 1.1 jtc break;
355 1.1 jtc default:
356 1.1 jtc /*
357 1.31 wiz * should never happen, worst case, slow...
358 1.1 jtc */
359 1.1 jtc blksz = rdblksz = BLKMULT;
360 1.1 jtc break;
361 1.1 jtc }
362 1.1 jtc lstrval = 1;
363 1.47 dsl return 0;
364 1.1 jtc }
365 1.1 jtc
366 1.1 jtc /*
367 1.1 jtc * ar_close()
368 1.1 jtc * closes archive device, increments volume number, and prints i/o summary
369 1.1 jtc */
370 1.1 jtc void
371 1.1 jtc ar_close(void)
372 1.1 jtc {
373 1.37 grant int status;
374 1.37 grant
375 1.1 jtc if (arfd < 0) {
376 1.1 jtc did_io = io_ok = flcnt = 0;
377 1.1 jtc return;
378 1.1 jtc }
379 1.1 jtc
380 1.1 jtc
381 1.1 jtc /*
382 1.1 jtc * Close archive file. This may take a LONG while on tapes (we may be
383 1.1 jtc * forced to wait for the rewind to complete) so tell the user what is
384 1.1 jtc * going on (this avoids the user hitting control-c thinking pax is
385 1.1 jtc * broken).
386 1.1 jtc */
387 1.48 christos if ((vflag || Vflag) && (artyp == ISTAPE)) {
388 1.1 jtc if (vfpart)
389 1.23 christos (void)putc('\n', listf);
390 1.23 christos (void)fprintf(listf,
391 1.1 jtc "%s: Waiting for tape drive close to complete...",
392 1.1 jtc argv0);
393 1.23 christos (void)fflush(listf);
394 1.1 jtc }
395 1.1 jtc
396 1.1 jtc /*
397 1.1 jtc * if nothing was written to the archive (and we created it), we remove
398 1.1 jtc * it
399 1.1 jtc */
400 1.1 jtc if (can_unlnk && (fstat(arfd, &arsb) == 0) && (S_ISREG(arsb.st_mode)) &&
401 1.1 jtc (arsb.st_size == 0)) {
402 1.1 jtc (void)unlink(arcname);
403 1.1 jtc can_unlnk = 0;
404 1.1 jtc }
405 1.1 jtc
406 1.23 christos /*
407 1.23 christos * for a quick extract/list, pax frequently exits before the child
408 1.23 christos * process is done
409 1.23 christos */
410 1.37 grant if ((act == LIST || act == EXTRACT) && nflag && zpid > 0)
411 1.23 christos kill(zpid, SIGINT);
412 1.23 christos
413 1.24 thorpej #ifdef SUPPORT_RMT
414 1.23 christos if (artyp == ISRMT)
415 1.23 christos (void)rmtclose(arfd);
416 1.23 christos else
417 1.24 thorpej #endif /* SUPPORT_RMT */
418 1.23 christos (void)close(arfd);
419 1.37 grant
420 1.37 grant /* Do not exit before child to ensure data integrity */
421 1.37 grant if (zpid > 0)
422 1.37 grant waitpid(zpid, &status, 0);
423 1.1 jtc
424 1.48 christos if ((vflag || Vflag) && (artyp == ISTAPE)) {
425 1.23 christos (void)fputs("done.\n", listf);
426 1.1 jtc vfpart = 0;
427 1.23 christos (void)fflush(listf);
428 1.1 jtc }
429 1.1 jtc arfd = -1;
430 1.1 jtc
431 1.1 jtc if (!io_ok && !did_io) {
432 1.1 jtc flcnt = 0;
433 1.1 jtc return;
434 1.1 jtc }
435 1.1 jtc did_io = io_ok = 0;
436 1.1 jtc
437 1.1 jtc /*
438 1.1 jtc * The volume number is only increased when the last device has data
439 1.1 jtc * and we have already determined the archive format.
440 1.1 jtc */
441 1.1 jtc if (frmt != NULL)
442 1.1 jtc ++arvol;
443 1.1 jtc
444 1.48 christos if (!vflag && !Vflag) {
445 1.1 jtc flcnt = 0;
446 1.1 jtc return;
447 1.1 jtc }
448 1.1 jtc
449 1.1 jtc /*
450 1.1 jtc * Print out a summary of I/O for this archive volume.
451 1.1 jtc */
452 1.1 jtc if (vfpart) {
453 1.23 christos (void)putc('\n', listf);
454 1.1 jtc vfpart = 0;
455 1.1 jtc }
456 1.23 christos
457 1.48 christos /* mimic cpio's block count first */
458 1.48 christos if (frmt && strcmp(NM_CPIO, argv0) == 0) {
459 1.23 christos (void)fprintf(listf, OFFT_F " blocks\n",
460 1.60 lukem (OFFT_T)((rdcnt ? rdcnt : wrcnt) / 5120));
461 1.23 christos }
462 1.1 jtc
463 1.13 christos ar_summary(0);
464 1.1 jtc
465 1.23 christos (void)fflush(listf);
466 1.1 jtc flcnt = 0;
467 1.1 jtc }
468 1.1 jtc
469 1.1 jtc /*
470 1.1 jtc * ar_drain()
471 1.1 jtc * drain any archive format independent padding from an archive read
472 1.1 jtc * from a socket or a pipe. This is to prevent the process on the
473 1.1 jtc * other side of the pipe from getting a SIGPIPE (pax will stop
474 1.1 jtc * reading an archive once a format dependent trailer is detected).
475 1.1 jtc */
476 1.1 jtc void
477 1.1 jtc ar_drain(void)
478 1.1 jtc {
479 1.6 tls int res;
480 1.1 jtc char drbuf[MAXBLK];
481 1.1 jtc
482 1.1 jtc /*
483 1.1 jtc * we only drain from a pipe/socket. Other devices can be closed
484 1.1 jtc * without reading up to end of file. We sure hope that pipe is closed
485 1.1 jtc * on the other side so we will get an EOF.
486 1.1 jtc */
487 1.1 jtc if ((artyp != ISPIPE) || (lstrval <= 0))
488 1.1 jtc return;
489 1.1 jtc
490 1.1 jtc /*
491 1.1 jtc * keep reading until pipe is drained
492 1.1 jtc */
493 1.24 thorpej #ifdef SUPPORT_RMT
494 1.23 christos if (artyp == ISRMT) {
495 1.24 thorpej while ((res = rmtread_with_restart(arfd,
496 1.24 thorpej drbuf, sizeof(drbuf))) > 0)
497 1.23 christos continue;
498 1.23 christos } else {
499 1.24 thorpej #endif /* SUPPORT_RMT */
500 1.24 thorpej while ((res = read_with_restart(arfd,
501 1.24 thorpej drbuf, sizeof(drbuf))) > 0)
502 1.23 christos continue;
503 1.24 thorpej #ifdef SUPPORT_RMT
504 1.23 christos }
505 1.24 thorpej #endif /* SUPPORT_RMT */
506 1.1 jtc lstrval = res;
507 1.1 jtc }
508 1.1 jtc
509 1.1 jtc /*
510 1.1 jtc * ar_set_wr()
511 1.1 jtc * Set up device right before switching from read to write in an append.
512 1.1 jtc * device dependent code (if required) to do this should be added here.
513 1.1 jtc * For all archive devices we are already positioned at the place we want
514 1.1 jtc * to start writing when this routine is called.
515 1.1 jtc * Return:
516 1.1 jtc * 0 if all ready to write, -1 otherwise
517 1.1 jtc */
518 1.1 jtc
519 1.1 jtc int
520 1.1 jtc ar_set_wr(void)
521 1.1 jtc {
522 1.1 jtc off_t cpos;
523 1.1 jtc
524 1.1 jtc /*
525 1.1 jtc * we must make sure the trailer is rewritten on append, ar_next()
526 1.1 jtc * will stop us if the archive containing the trailer was not written
527 1.1 jtc */
528 1.1 jtc wr_trail = 0;
529 1.17 itohy
530 1.17 itohy /*
531 1.1 jtc * Add any device dependent code as required here
532 1.1 jtc */
533 1.1 jtc if (artyp != ISREG)
534 1.47 dsl return 0;
535 1.1 jtc /*
536 1.1 jtc * Ok we have an archive in a regular file. If we were rewriting a
537 1.1 jtc * file, we must get rid of all the stuff after the current offset
538 1.1 jtc * (it was not written by pax).
539 1.1 jtc */
540 1.1 jtc if (((cpos = lseek(arfd, (off_t)0L, SEEK_CUR)) < 0) ||
541 1.1 jtc (ftruncate(arfd, cpos) < 0)) {
542 1.1 jtc syswarn(1, errno, "Unable to truncate archive file");
543 1.47 dsl return -1;
544 1.1 jtc }
545 1.47 dsl return 0;
546 1.1 jtc }
547 1.1 jtc
548 1.1 jtc /*
549 1.1 jtc * ar_app_ok()
550 1.1 jtc * check if the last volume in the archive allows appends. We cannot check
551 1.17 itohy * this until we are ready to write since there is no spec that says all
552 1.1 jtc * volumes in a single archive have to be of the same type...
553 1.1 jtc * Return:
554 1.1 jtc * 0 if we can append, -1 otherwise.
555 1.1 jtc */
556 1.1 jtc
557 1.1 jtc int
558 1.1 jtc ar_app_ok(void)
559 1.1 jtc {
560 1.1 jtc if (artyp == ISPIPE) {
561 1.7 christos tty_warn(1,
562 1.7 christos "Cannot append to an archive obtained from a pipe.");
563 1.47 dsl return -1;
564 1.1 jtc }
565 1.1 jtc
566 1.1 jtc if (!invld_rec)
567 1.47 dsl return 0;
568 1.7 christos tty_warn(1,
569 1.7 christos "Cannot append, device record size %d does not support %s spec",
570 1.7 christos rdblksz, argv0);
571 1.47 dsl return -1;
572 1.1 jtc }
573 1.1 jtc
574 1.15 itohy #ifdef SYS_NO_RESTART
575 1.15 itohy /*
576 1.15 itohy * read_with_restart()
577 1.15 itohy * Equivalent to read() but does retry on signals.
578 1.15 itohy * This function is not needed on 4.2BSD and later.
579 1.15 itohy * Return:
580 1.15 itohy * Number of bytes written. -1 indicates an error.
581 1.15 itohy */
582 1.15 itohy
583 1.15 itohy int
584 1.15 itohy read_with_restart(int fd, void *buf, int bsz)
585 1.15 itohy {
586 1.15 itohy int r;
587 1.15 itohy
588 1.15 itohy while (((r = read(fd, buf, bsz)) < 0) && errno == EINTR)
589 1.23 christos continue;
590 1.23 christos
591 1.47 dsl return r;
592 1.23 christos }
593 1.23 christos
594 1.23 christos /*
595 1.23 christos * rmtread_with_restart()
596 1.23 christos * Equivalent to rmtread() but does retry on signals.
597 1.23 christos * This function is not needed on 4.2BSD and later.
598 1.23 christos * Return:
599 1.23 christos * Number of bytes written. -1 indicates an error.
600 1.23 christos */
601 1.23 christos static int
602 1.23 christos rmtread_with_restart(int fd, void *buf, int bsz)
603 1.23 christos {
604 1.23 christos int r;
605 1.23 christos
606 1.23 christos while (((r = rmtread(fd, buf, bsz)) < 0) && errno == EINTR)
607 1.23 christos continue;
608 1.15 itohy
609 1.47 dsl return r;
610 1.15 itohy }
611 1.15 itohy #endif
612 1.15 itohy
613 1.15 itohy /*
614 1.15 itohy * xread()
615 1.15 itohy * Equivalent to read() but does retry on partial read, which may occur
616 1.15 itohy * on signals.
617 1.15 itohy * Return:
618 1.15 itohy * Number of bytes read. 0 for end of file, -1 for an error.
619 1.15 itohy */
620 1.15 itohy
621 1.15 itohy int
622 1.15 itohy xread(int fd, void *buf, int bsz)
623 1.15 itohy {
624 1.15 itohy char *b = buf;
625 1.15 itohy int nread = 0;
626 1.15 itohy int r;
627 1.15 itohy
628 1.15 itohy do {
629 1.24 thorpej #ifdef SUPPORT_RMT
630 1.23 christos if ((r = rmtread_with_restart(fd, b, bsz)) <= 0)
631 1.15 itohy break;
632 1.24 thorpej #else
633 1.24 thorpej if ((r = read_with_restart(fd, b, bsz)) <= 0)
634 1.24 thorpej break;
635 1.24 thorpej #endif /* SUPPORT_RMT */
636 1.15 itohy b += r;
637 1.15 itohy bsz -= r;
638 1.15 itohy nread += r;
639 1.15 itohy } while (bsz > 0);
640 1.15 itohy
641 1.47 dsl return nread ? nread : r;
642 1.15 itohy }
643 1.15 itohy
644 1.15 itohy #ifdef SYS_NO_RESTART
645 1.15 itohy /*
646 1.15 itohy * write_with_restart()
647 1.15 itohy * Equivalent to write() but does retry on signals.
648 1.15 itohy * This function is not needed on 4.2BSD and later.
649 1.15 itohy * Return:
650 1.15 itohy * Number of bytes written. -1 indicates an error.
651 1.15 itohy */
652 1.15 itohy
653 1.15 itohy int
654 1.15 itohy write_with_restart(int fd, void *buf, int bsz)
655 1.15 itohy {
656 1.15 itohy int r;
657 1.15 itohy
658 1.15 itohy while (((r = write(fd, buf, bsz)) < 0) && errno == EINTR)
659 1.15 itohy ;
660 1.15 itohy
661 1.47 dsl return r;
662 1.15 itohy }
663 1.23 christos
664 1.23 christos /*
665 1.23 christos * rmtwrite_with_restart()
666 1.23 christos * Equivalent to write() but does retry on signals.
667 1.23 christos * This function is not needed on 4.2BSD and later.
668 1.23 christos * Return:
669 1.23 christos * Number of bytes written. -1 indicates an error.
670 1.23 christos */
671 1.23 christos
672 1.23 christos static int
673 1.23 christos rmtwrite_with_restart(int fd, void *buf, int bsz)
674 1.23 christos {
675 1.23 christos int r;
676 1.23 christos
677 1.23 christos while (((r = rmtwrite(fd, buf, bsz)) < 0) && errno == EINTR)
678 1.23 christos ;
679 1.23 christos
680 1.47 dsl return r;
681 1.23 christos }
682 1.15 itohy #endif
683 1.15 itohy
684 1.15 itohy /*
685 1.15 itohy * xwrite()
686 1.15 itohy * Equivalent to write() but does retry on partial write, which may occur
687 1.15 itohy * on signals.
688 1.15 itohy * Return:
689 1.15 itohy * Number of bytes written. -1 indicates an error.
690 1.15 itohy */
691 1.15 itohy
692 1.15 itohy int
693 1.15 itohy xwrite(int fd, void *buf, int bsz)
694 1.15 itohy {
695 1.15 itohy char *b = buf;
696 1.15 itohy int written = 0;
697 1.15 itohy int r;
698 1.15 itohy
699 1.15 itohy do {
700 1.24 thorpej #ifdef SUPPORT_RMT
701 1.23 christos if ((r = rmtwrite_with_restart(fd, b, bsz)) <= 0)
702 1.15 itohy break;
703 1.24 thorpej #else
704 1.24 thorpej if ((r = write_with_restart(fd, b, bsz)) <= 0)
705 1.24 thorpej break;
706 1.24 thorpej #endif /* SUPPORT_RMT */
707 1.15 itohy b += r;
708 1.15 itohy bsz -= r;
709 1.15 itohy written += r;
710 1.15 itohy } while (bsz > 0);
711 1.15 itohy
712 1.47 dsl return written ? written : r;
713 1.15 itohy }
714 1.15 itohy
715 1.1 jtc /*
716 1.1 jtc * ar_read()
717 1.1 jtc * read up to a specified number of bytes from the archive into the
718 1.1 jtc * supplied buffer. When dealing with tapes we may not always be able to
719 1.1 jtc * read what we want.
720 1.1 jtc * Return:
721 1.1 jtc * Number of bytes in buffer. 0 for end of file, -1 for a read error.
722 1.1 jtc */
723 1.1 jtc
724 1.1 jtc int
725 1.6 tls ar_read(char *buf, int cnt)
726 1.1 jtc {
727 1.6 tls int res = 0;
728 1.1 jtc
729 1.1 jtc /*
730 1.1 jtc * if last i/o was in error, no more reads until reset or new volume
731 1.1 jtc */
732 1.1 jtc if (lstrval <= 0)
733 1.47 dsl return lstrval;
734 1.1 jtc
735 1.1 jtc /*
736 1.1 jtc * how we read must be based on device type
737 1.1 jtc */
738 1.1 jtc switch (artyp) {
739 1.24 thorpej #ifdef SUPPORT_RMT
740 1.23 christos case ISRMT:
741 1.23 christos if ((res = rmtread_with_restart(arfd, buf, cnt)) > 0) {
742 1.23 christos io_ok = 1;
743 1.23 christos return res;
744 1.23 christos }
745 1.23 christos break;
746 1.24 thorpej #endif /* SUPPORT_RMT */
747 1.1 jtc case ISTAPE:
748 1.15 itohy if ((res = read_with_restart(arfd, buf, cnt)) > 0) {
749 1.1 jtc /*
750 1.1 jtc * CAUTION: tape systems may not always return the same
751 1.1 jtc * sized records so we leave blksz == MAXBLK. The
752 1.1 jtc * physical record size that a tape drive supports is
753 1.1 jtc * very hard to determine in a uniform and portable
754 1.1 jtc * manner.
755 1.1 jtc */
756 1.1 jtc io_ok = 1;
757 1.1 jtc if (res != rdblksz) {
758 1.1 jtc /*
759 1.31 wiz * Record size changed. If this happens on
760 1.1 jtc * any record after the first, we probably have
761 1.1 jtc * a tape drive which has a fixed record size
762 1.31 wiz * (we are getting multiple records in a single
763 1.1 jtc * read). Watch out for record blocking that
764 1.1 jtc * violates pax spec (must be a multiple of
765 1.1 jtc * BLKMULT).
766 1.1 jtc */
767 1.1 jtc rdblksz = res;
768 1.1 jtc if (rdblksz % BLKMULT)
769 1.1 jtc invld_rec = 1;
770 1.1 jtc }
771 1.47 dsl return res;
772 1.1 jtc }
773 1.1 jtc break;
774 1.1 jtc case ISREG:
775 1.1 jtc case ISBLK:
776 1.1 jtc case ISCHR:
777 1.1 jtc case ISPIPE:
778 1.1 jtc default:
779 1.1 jtc /*
780 1.1 jtc * Files are so easy to deal with. These other things cannot
781 1.1 jtc * be trusted at all. So when we are dealing with character
782 1.1 jtc * devices and pipes we just take what they have ready for us
783 1.1 jtc * and return. Trying to do anything else with them runs the
784 1.1 jtc * risk of failure.
785 1.1 jtc */
786 1.15 itohy if ((res = read_with_restart(arfd, buf, cnt)) > 0) {
787 1.1 jtc io_ok = 1;
788 1.47 dsl return res;
789 1.1 jtc }
790 1.1 jtc break;
791 1.1 jtc }
792 1.1 jtc
793 1.1 jtc /*
794 1.1 jtc * We are in trouble at this point, something is broken...
795 1.1 jtc */
796 1.1 jtc lstrval = res;
797 1.1 jtc if (res < 0)
798 1.1 jtc syswarn(1, errno, "Failed read on archive volume %d", arvol);
799 1.34 christos else
800 1.7 christos tty_warn(0, "End of archive volume %d reached", arvol);
801 1.47 dsl return res;
802 1.17 itohy }
803 1.1 jtc
804 1.1 jtc /*
805 1.1 jtc * ar_write()
806 1.1 jtc * Write a specified number of bytes in supplied buffer to the archive
807 1.1 jtc * device so it appears as a single "block". Deals with errors and tries
808 1.1 jtc * to recover when faced with short writes.
809 1.1 jtc * Return:
810 1.1 jtc * Number of bytes written. 0 indicates end of volume reached and with no
811 1.1 jtc * flaws (as best that can be detected). A -1 indicates an unrecoverable
812 1.19 wiz * error in the archive occurred.
813 1.1 jtc */
814 1.1 jtc
815 1.1 jtc int
816 1.6 tls ar_write(char *buf, int bsz)
817 1.1 jtc {
818 1.6 tls int res;
819 1.1 jtc off_t cpos;
820 1.1 jtc
821 1.1 jtc /*
822 1.1 jtc * do not allow pax to create a "bad" archive. Once a write fails on
823 1.1 jtc * an archive volume prevent further writes to it.
824 1.1 jtc */
825 1.1 jtc if (lstrval <= 0)
826 1.47 dsl return lstrval;
827 1.1 jtc
828 1.15 itohy if ((res = xwrite(arfd, buf, bsz)) == bsz) {
829 1.1 jtc wr_trail = 1;
830 1.1 jtc io_ok = 1;
831 1.47 dsl return bsz;
832 1.1 jtc }
833 1.1 jtc /*
834 1.1 jtc * write broke, see what we can do with it. We try to send any partial
835 1.1 jtc * writes that may violate pax spec to the next archive volume.
836 1.1 jtc */
837 1.1 jtc if (res < 0)
838 1.1 jtc lstrval = res;
839 1.1 jtc else
840 1.1 jtc lstrval = 0;
841 1.1 jtc
842 1.1 jtc switch (artyp) {
843 1.1 jtc case ISREG:
844 1.1 jtc if ((res > 0) && (res % BLKMULT)) {
845 1.1 jtc /*
846 1.17 itohy * try to fix up partial writes which are not BLKMULT
847 1.1 jtc * in size by forcing the runt record to next archive
848 1.1 jtc * volume
849 1.17 itohy */
850 1.1 jtc if ((cpos = lseek(arfd, (off_t)0L, SEEK_CUR)) < 0)
851 1.1 jtc break;
852 1.1 jtc cpos -= (off_t)res;
853 1.1 jtc if (ftruncate(arfd, cpos) < 0)
854 1.1 jtc break;
855 1.1 jtc res = lstrval = 0;
856 1.1 jtc break;
857 1.1 jtc }
858 1.1 jtc if (res >= 0)
859 1.1 jtc break;
860 1.1 jtc /*
861 1.1 jtc * if file is out of space, handle it like a return of 0
862 1.1 jtc */
863 1.41 jmc if ((errno == ENOSPC) || (errno == EFBIG))
864 1.1 jtc res = lstrval = 0;
865 1.41 jmc #ifdef EDQUOT
866 1.41 jmc if (errno == EDQUOT)
867 1.41 jmc res = lstrval = 0;
868 1.41 jmc #endif
869 1.1 jtc break;
870 1.1 jtc case ISTAPE:
871 1.1 jtc case ISCHR:
872 1.1 jtc case ISBLK:
873 1.24 thorpej #ifdef SUPPORT_RMT
874 1.23 christos case ISRMT:
875 1.24 thorpej #endif /* SUPPORT_RMT */
876 1.1 jtc if (res >= 0)
877 1.1 jtc break;
878 1.1 jtc if (errno == EACCES) {
879 1.7 christos tty_warn(0,
880 1.7 christos "Write failed, archive is write protected.");
881 1.1 jtc res = lstrval = 0;
882 1.47 dsl return 0;
883 1.1 jtc }
884 1.1 jtc /*
885 1.1 jtc * see if we reached the end of media, if so force a change to
886 1.1 jtc * the next volume
887 1.1 jtc */
888 1.1 jtc if ((errno == ENOSPC) || (errno == EIO) || (errno == ENXIO))
889 1.1 jtc res = lstrval = 0;
890 1.1 jtc break;
891 1.1 jtc case ISPIPE:
892 1.1 jtc default:
893 1.1 jtc /*
894 1.1 jtc * we cannot fix errors to these devices
895 1.1 jtc */
896 1.1 jtc break;
897 1.1 jtc }
898 1.1 jtc
899 1.1 jtc /*
900 1.1 jtc * Better tell the user the bad news...
901 1.1 jtc * if this is a block aligned archive format, we may have a bad archive
902 1.17 itohy * if the format wants the header to start at a BLKMULT boundary. While
903 1.1 jtc * we can deal with the mis-aligned data, it violates spec and other
904 1.1 jtc * archive readers will likely fail. if the format is not block
905 1.1 jtc * aligned, the user may be lucky (and the archive is ok).
906 1.1 jtc */
907 1.1 jtc if (res >= 0) {
908 1.1 jtc if (res > 0)
909 1.1 jtc wr_trail = 1;
910 1.1 jtc io_ok = 1;
911 1.1 jtc }
912 1.1 jtc
913 1.1 jtc /*
914 1.1 jtc * If we were trying to rewrite the trailer and it didn't work, we
915 1.1 jtc * must quit right away.
916 1.1 jtc */
917 1.1 jtc if (!wr_trail && (res <= 0)) {
918 1.7 christos tty_warn(1,
919 1.7 christos "Unable to append, trailer re-write failed. Quitting.");
920 1.47 dsl return res;
921 1.1 jtc }
922 1.17 itohy
923 1.17 itohy if (res == 0)
924 1.7 christos tty_warn(0, "End of archive volume %d reached", arvol);
925 1.1 jtc else if (res < 0)
926 1.1 jtc syswarn(1, errno, "Failed write to archive volume: %d", arvol);
927 1.1 jtc else if (!frmt->blkalgn || ((res % frmt->blkalgn) == 0))
928 1.7 christos tty_warn(0,
929 1.7 christos "WARNING: partial archive write. Archive MAY BE FLAWED");
930 1.1 jtc else
931 1.7 christos tty_warn(1,"WARNING: partial archive write. Archive IS FLAWED");
932 1.47 dsl return res;
933 1.1 jtc }
934 1.1 jtc
935 1.1 jtc /*
936 1.1 jtc * ar_rdsync()
937 1.1 jtc * Try to move past a bad spot on a flawed archive as needed to continue
938 1.1 jtc * I/O. Clears error flags to allow I/O to continue.
939 1.1 jtc * Return:
940 1.1 jtc * 0 when ok to try i/o again, -1 otherwise.
941 1.1 jtc */
942 1.1 jtc
943 1.1 jtc int
944 1.1 jtc ar_rdsync(void)
945 1.1 jtc {
946 1.1 jtc long fsbz;
947 1.1 jtc off_t cpos;
948 1.1 jtc off_t mpos;
949 1.49 dbj #ifdef HAVE_SYS_MTIO_H
950 1.17 itohy struct mtop mb;
951 1.46 christos #endif
952 1.1 jtc
953 1.1 jtc /*
954 1.31 wiz * Fail resync attempts at user request (done) or if this is going to be
955 1.1 jtc * an update/append to a existing archive. if last i/o hit media end,
956 1.1 jtc * we need to go to the next volume not try a resync
957 1.1 jtc */
958 1.1 jtc if ((done > 0) || (lstrval == 0))
959 1.47 dsl return -1;
960 1.1 jtc
961 1.1 jtc if ((act == APPND) || (act == ARCHIVE)) {
962 1.7 christos tty_warn(1, "Cannot allow updates to an archive with flaws.");
963 1.47 dsl return -1;
964 1.1 jtc }
965 1.1 jtc if (io_ok)
966 1.1 jtc did_io = 1;
967 1.1 jtc
968 1.1 jtc switch(artyp) {
969 1.24 thorpej #ifdef SUPPORT_RMT
970 1.23 christos case ISRMT:
971 1.24 thorpej #endif /* SUPPORT_RMT */
972 1.1 jtc case ISTAPE:
973 1.49 dbj #ifdef HAVE_SYS_MTIO_H
974 1.1 jtc /*
975 1.1 jtc * if the last i/o was a successful data transfer, we assume
976 1.1 jtc * the fault is just a bad record on the tape that we are now
977 1.1 jtc * past. If we did not get any data since the last resync try
978 1.17 itohy * to move the tape forward one PHYSICAL record past any
979 1.1 jtc * damaged tape section. Some tape drives are stubborn and need
980 1.1 jtc * to be pushed.
981 1.1 jtc */
982 1.1 jtc if (io_ok) {
983 1.1 jtc io_ok = 0;
984 1.1 jtc lstrval = 1;
985 1.1 jtc break;
986 1.1 jtc }
987 1.1 jtc mb.mt_op = MTFSR;
988 1.1 jtc mb.mt_count = 1;
989 1.24 thorpej #ifdef SUPPORT_RMT
990 1.23 christos if (artyp == ISRMT) {
991 1.23 christos if (rmtioctl(arfd, MTIOCTOP, &mb) < 0)
992 1.23 christos break;
993 1.23 christos } else {
994 1.24 thorpej #endif /* SUPPORT_RMT */
995 1.23 christos if (ioctl(arfd, MTIOCTOP, &mb) < 0)
996 1.23 christos break;
997 1.24 thorpej #ifdef SUPPORT_RMT
998 1.23 christos }
999 1.24 thorpej #endif /* SUPPORT_RMT */
1000 1.1 jtc lstrval = 1;
1001 1.46 christos #else
1002 1.46 christos tty_warn(1, "System does not have tape support");
1003 1.46 christos #endif
1004 1.1 jtc break;
1005 1.1 jtc case ISREG:
1006 1.1 jtc case ISCHR:
1007 1.1 jtc case ISBLK:
1008 1.1 jtc /*
1009 1.1 jtc * try to step over the bad part of the device.
1010 1.1 jtc */
1011 1.1 jtc io_ok = 0;
1012 1.1 jtc if (((fsbz = arsb.st_blksize) <= 0) || (artyp != ISREG))
1013 1.1 jtc fsbz = BLKMULT;
1014 1.1 jtc if ((cpos = lseek(arfd, (off_t)0L, SEEK_CUR)) < 0)
1015 1.1 jtc break;
1016 1.1 jtc mpos = fsbz - (cpos % (off_t)fsbz);
1017 1.17 itohy if (lseek(arfd, mpos, SEEK_CUR) < 0)
1018 1.1 jtc break;
1019 1.1 jtc lstrval = 1;
1020 1.1 jtc break;
1021 1.1 jtc case ISPIPE:
1022 1.1 jtc default:
1023 1.1 jtc /*
1024 1.1 jtc * cannot recover on these archive device types
1025 1.1 jtc */
1026 1.1 jtc io_ok = 0;
1027 1.1 jtc break;
1028 1.1 jtc }
1029 1.1 jtc if (lstrval <= 0) {
1030 1.7 christos tty_warn(1, "Unable to recover from an archive read failure.");
1031 1.47 dsl return -1;
1032 1.1 jtc }
1033 1.7 christos tty_warn(0, "Attempting to recover from an archive read failure.");
1034 1.47 dsl return 0;
1035 1.1 jtc }
1036 1.1 jtc
1037 1.1 jtc /*
1038 1.1 jtc * ar_fow()
1039 1.17 itohy * Move the I/O position within the archive forward the specified number of
1040 1.1 jtc * bytes as supported by the device. If we cannot move the requested
1041 1.1 jtc * number of bytes, return the actual number of bytes moved in skipped.
1042 1.1 jtc * Return:
1043 1.1 jtc * 0 if moved the requested distance, -1 on complete failure, 1 on
1044 1.1 jtc * partial move (the amount moved is in skipped)
1045 1.1 jtc */
1046 1.1 jtc
1047 1.1 jtc int
1048 1.1 jtc ar_fow(off_t sksz, off_t *skipped)
1049 1.1 jtc {
1050 1.1 jtc off_t cpos;
1051 1.1 jtc off_t mpos;
1052 1.1 jtc
1053 1.1 jtc *skipped = 0;
1054 1.1 jtc if (sksz <= 0)
1055 1.47 dsl return 0;
1056 1.1 jtc
1057 1.1 jtc /*
1058 1.17 itohy * we cannot move forward at EOF or error
1059 1.1 jtc */
1060 1.1 jtc if (lstrval <= 0)
1061 1.47 dsl return lstrval;
1062 1.1 jtc
1063 1.1 jtc /*
1064 1.1 jtc * Safer to read forward on devices where it is hard to find the end of
1065 1.1 jtc * the media without reading to it. With tapes we cannot be sure of the
1066 1.1 jtc * number of physical blocks to skip (we do not know physical block
1067 1.17 itohy * size at this point), so we must only read forward on tapes!
1068 1.1 jtc */
1069 1.24 thorpej if (artyp == ISTAPE || artyp == ISPIPE
1070 1.24 thorpej #ifdef SUPPORT_RMT
1071 1.24 thorpej || artyp == ISRMT
1072 1.24 thorpej #endif /* SUPPORT_RMT */
1073 1.24 thorpej )
1074 1.47 dsl return 0;
1075 1.1 jtc
1076 1.1 jtc /*
1077 1.1 jtc * figure out where we are in the archive
1078 1.1 jtc */
1079 1.1 jtc if ((cpos = lseek(arfd, (off_t)0L, SEEK_CUR)) >= 0) {
1080 1.17 itohy /*
1081 1.17 itohy * we can be asked to move farther than there are bytes in this
1082 1.1 jtc * volume, if so, just go to file end and let normal buf_fill()
1083 1.1 jtc * deal with the end of file (it will go to next volume by
1084 1.1 jtc * itself)
1085 1.17 itohy */
1086 1.16 itohy mpos = cpos + sksz;
1087 1.16 itohy if (artyp == ISREG && mpos > arsb.st_size)
1088 1.1 jtc mpos = arsb.st_size;
1089 1.16 itohy if ((mpos = lseek(arfd, mpos, SEEK_SET)) >= 0) {
1090 1.16 itohy *skipped = mpos - cpos;
1091 1.47 dsl return 0;
1092 1.16 itohy }
1093 1.16 itohy } else {
1094 1.16 itohy if (artyp != ISREG)
1095 1.47 dsl return 0; /* non-seekable device */
1096 1.1 jtc }
1097 1.17 itohy syswarn(1, errno, "Forward positioning operation on archive failed");
1098 1.1 jtc lstrval = -1;
1099 1.47 dsl return -1;
1100 1.1 jtc }
1101 1.1 jtc
1102 1.1 jtc /*
1103 1.1 jtc * ar_rev()
1104 1.1 jtc * move the i/o position within the archive backwards the specified byte
1105 1.1 jtc * count as supported by the device. With tapes drives we RESET rdblksz to
1106 1.1 jtc * the PHYSICAL blocksize.
1107 1.1 jtc * NOTE: We should only be called to move backwards so we can rewrite the
1108 1.1 jtc * last records (the trailer) of an archive (APPEND).
1109 1.1 jtc * Return:
1110 1.1 jtc * 0 if moved the requested distance, -1 on complete failure
1111 1.1 jtc */
1112 1.1 jtc
1113 1.1 jtc int
1114 1.1 jtc ar_rev(off_t sksz)
1115 1.1 jtc {
1116 1.1 jtc off_t cpos;
1117 1.49 dbj #ifdef HAVE_SYS_MTIO_H
1118 1.46 christos int phyblk;
1119 1.17 itohy struct mtop mb;
1120 1.46 christos #endif
1121 1.1 jtc
1122 1.1 jtc /*
1123 1.1 jtc * make sure we do not have try to reverse on a flawed archive
1124 1.1 jtc */
1125 1.1 jtc if (lstrval < 0)
1126 1.47 dsl return lstrval;
1127 1.1 jtc
1128 1.1 jtc switch(artyp) {
1129 1.1 jtc case ISPIPE:
1130 1.17 itohy if (sksz <= 0)
1131 1.1 jtc break;
1132 1.1 jtc /*
1133 1.1 jtc * cannot go backwards on these critters
1134 1.1 jtc */
1135 1.7 christos tty_warn(1, "Reverse positioning on pipes is not supported.");
1136 1.1 jtc lstrval = -1;
1137 1.47 dsl return -1;
1138 1.1 jtc case ISREG:
1139 1.1 jtc case ISBLK:
1140 1.1 jtc case ISCHR:
1141 1.1 jtc default:
1142 1.1 jtc if (sksz <= 0)
1143 1.1 jtc break;
1144 1.1 jtc
1145 1.1 jtc /*
1146 1.1 jtc * For things other than files, backwards movement has a very
1147 1.1 jtc * high probability of failure as we really do not know the
1148 1.1 jtc * true attributes of the device we are talking to (the device
1149 1.1 jtc * may not even have the ability to lseek() in any direction).
1150 1.1 jtc * First we figure out where we are in the archive.
1151 1.1 jtc */
1152 1.1 jtc if ((cpos = lseek(arfd, (off_t)0L, SEEK_CUR)) < 0) {
1153 1.1 jtc syswarn(1, errno,
1154 1.1 jtc "Unable to obtain current archive byte offset");
1155 1.1 jtc lstrval = -1;
1156 1.47 dsl return -1;
1157 1.1 jtc }
1158 1.1 jtc
1159 1.1 jtc /*
1160 1.1 jtc * we may try to go backwards past the start when the archive
1161 1.31 wiz * is only a single record. If this happens and we are on a
1162 1.31 wiz * multi-volume archive, we need to go to the end of the
1163 1.1 jtc * previous volume and continue our movement backwards from
1164 1.1 jtc * there.
1165 1.1 jtc */
1166 1.1 jtc if ((cpos -= sksz) < (off_t)0L) {
1167 1.1 jtc if (arvol > 1) {
1168 1.1 jtc /*
1169 1.1 jtc * this should never happen
1170 1.1 jtc */
1171 1.7 christos tty_warn(1,
1172 1.7 christos "Reverse position on previous volume.");
1173 1.1 jtc lstrval = -1;
1174 1.47 dsl return -1;
1175 1.1 jtc }
1176 1.1 jtc cpos = (off_t)0L;
1177 1.1 jtc }
1178 1.1 jtc if (lseek(arfd, cpos, SEEK_SET) < 0) {
1179 1.1 jtc syswarn(1, errno, "Unable to seek archive backwards");
1180 1.1 jtc lstrval = -1;
1181 1.47 dsl return -1;
1182 1.1 jtc }
1183 1.1 jtc break;
1184 1.1 jtc case ISTAPE:
1185 1.24 thorpej #ifdef SUPPORT_RMT
1186 1.23 christos case ISRMT:
1187 1.24 thorpej #endif /* SUPPORT_RMT */
1188 1.49 dbj #ifdef HAVE_SYS_MTIO_H
1189 1.1 jtc /*
1190 1.17 itohy * Calculate and move the proper number of PHYSICAL tape
1191 1.1 jtc * blocks. If the sksz is not an even multiple of the physical
1192 1.1 jtc * tape size, we cannot do the move (this should never happen).
1193 1.31 wiz * (We also cannot handle trailers spread over two vols).
1194 1.1 jtc * get_phys() also makes sure we are in front of the filemark.
1195 1.17 itohy */
1196 1.1 jtc if ((phyblk = get_phys()) <= 0) {
1197 1.1 jtc lstrval = -1;
1198 1.47 dsl return -1;
1199 1.1 jtc }
1200 1.1 jtc
1201 1.1 jtc /*
1202 1.1 jtc * make sure future tape reads only go by physical tape block
1203 1.1 jtc * size (set rdblksz to the real size).
1204 1.1 jtc */
1205 1.1 jtc rdblksz = phyblk;
1206 1.1 jtc
1207 1.1 jtc /*
1208 1.1 jtc * if no movement is required, just return (we must be after
1209 1.1 jtc * get_phys() so the physical blocksize is properly set)
1210 1.1 jtc */
1211 1.1 jtc if (sksz <= 0)
1212 1.1 jtc break;
1213 1.1 jtc
1214 1.1 jtc /*
1215 1.1 jtc * ok we have to move. Make sure the tape drive can do it.
1216 1.1 jtc */
1217 1.1 jtc if (sksz % phyblk) {
1218 1.7 christos tty_warn(1,
1219 1.1 jtc "Tape drive unable to backspace requested amount");
1220 1.1 jtc lstrval = -1;
1221 1.47 dsl return -1;
1222 1.1 jtc }
1223 1.1 jtc
1224 1.1 jtc /*
1225 1.1 jtc * move backwards the requested number of bytes
1226 1.1 jtc */
1227 1.1 jtc mb.mt_op = MTBSR;
1228 1.1 jtc mb.mt_count = sksz/phyblk;
1229 1.24 thorpej if (
1230 1.24 thorpej #ifdef SUPPORT_RMT
1231 1.24 thorpej rmtioctl(arfd, MTIOCTOP, &mb)
1232 1.24 thorpej #else
1233 1.24 thorpej ioctl(arfd, MTIOCTOP, &mb)
1234 1.24 thorpej #endif /* SUPPORT_RMT */
1235 1.24 thorpej < 0) {
1236 1.32 grant syswarn(1, errno, "Unable to backspace tape %ld blocks.",
1237 1.11 christos (long) mb.mt_count);
1238 1.1 jtc lstrval = -1;
1239 1.47 dsl return -1;
1240 1.1 jtc }
1241 1.46 christos #else
1242 1.46 christos tty_warn(1, "System does not have tape support");
1243 1.46 christos #endif
1244 1.1 jtc break;
1245 1.1 jtc }
1246 1.1 jtc lstrval = 1;
1247 1.47 dsl return 0;
1248 1.1 jtc }
1249 1.1 jtc
1250 1.49 dbj #ifdef HAVE_SYS_MTIO_H
1251 1.1 jtc /*
1252 1.1 jtc * get_phys()
1253 1.1 jtc * Determine the physical block size on a tape drive. We need the physical
1254 1.17 itohy * block size so we know how many bytes we skip over when we move with
1255 1.1 jtc * mtio commands. We also make sure we are BEFORE THE TAPE FILEMARK when
1256 1.1 jtc * return.
1257 1.1 jtc * This is one really SLOW routine...
1258 1.1 jtc * Return:
1259 1.1 jtc * physical block size if ok (ok > 0), -1 otherwise
1260 1.1 jtc */
1261 1.1 jtc
1262 1.1 jtc static int
1263 1.1 jtc get_phys(void)
1264 1.1 jtc {
1265 1.6 tls int padsz = 0;
1266 1.6 tls int res;
1267 1.6 tls int phyblk;
1268 1.1 jtc struct mtop mb;
1269 1.1 jtc char scbuf[MAXBLK];
1270 1.1 jtc
1271 1.1 jtc /*
1272 1.1 jtc * move to the file mark, and then back up one record and read it.
1273 1.1 jtc * this should tell us the physical record size the tape is using.
1274 1.1 jtc */
1275 1.1 jtc if (lstrval == 1) {
1276 1.1 jtc /*
1277 1.1 jtc * we know we are at file mark when we get back a 0 from
1278 1.1 jtc * read()
1279 1.1 jtc */
1280 1.24 thorpej #ifdef SUPPORT_RMT
1281 1.24 thorpej while ((res = rmtread_with_restart(arfd,
1282 1.24 thorpej scbuf, sizeof(scbuf))) > 0)
1283 1.24 thorpej #else
1284 1.24 thorpej while ((res = read_with_restart(arfd,
1285 1.24 thorpej scbuf, sizeof(scbuf))) > 0)
1286 1.24 thorpej #endif /* SUPPORT_RMT */
1287 1.1 jtc padsz += res;
1288 1.1 jtc if (res < 0) {
1289 1.1 jtc syswarn(1, errno, "Unable to locate tape filemark.");
1290 1.47 dsl return -1;
1291 1.1 jtc }
1292 1.1 jtc }
1293 1.1 jtc
1294 1.1 jtc /*
1295 1.1 jtc * move backwards over the file mark so we are at the end of the
1296 1.1 jtc * last record.
1297 1.1 jtc */
1298 1.1 jtc mb.mt_op = MTBSF;
1299 1.1 jtc mb.mt_count = 1;
1300 1.24 thorpej if (
1301 1.24 thorpej #ifdef SUPPORT_RMT
1302 1.24 thorpej rmtioctl(arfd, MTIOCTOP, &mb)
1303 1.24 thorpej #else
1304 1.24 thorpej ioctl(arfd, MTIOCTOP, &mb)
1305 1.24 thorpej #endif /* SUPPORT_RMT */
1306 1.24 thorpej < 0) {
1307 1.1 jtc syswarn(1, errno, "Unable to backspace over tape filemark.");
1308 1.47 dsl return -1;
1309 1.1 jtc }
1310 1.1 jtc
1311 1.1 jtc /*
1312 1.1 jtc * move backwards so we are in front of the last record and read it to
1313 1.1 jtc * get physical tape blocksize.
1314 1.1 jtc */
1315 1.1 jtc mb.mt_op = MTBSR;
1316 1.1 jtc mb.mt_count = 1;
1317 1.24 thorpej if (
1318 1.24 thorpej #ifdef SUPPORT_RMT
1319 1.24 thorpej rmtioctl(arfd, MTIOCTOP, &mb)
1320 1.24 thorpej #else
1321 1.24 thorpej ioctl(arfd, MTIOCTOP, &mb)
1322 1.24 thorpej #endif /* SUPPORT_RMT */
1323 1.24 thorpej < 0) {
1324 1.1 jtc syswarn(1, errno, "Unable to backspace over last tape block.");
1325 1.47 dsl return -1;
1326 1.1 jtc }
1327 1.24 thorpej if ((phyblk =
1328 1.24 thorpej #ifdef SUPPORT_RMT
1329 1.24 thorpej rmtread_with_restart(arfd, scbuf, sizeof(scbuf))
1330 1.24 thorpej #else
1331 1.24 thorpej read_with_restart(arfd, scbuf, sizeof(scbuf))
1332 1.24 thorpej #endif /* SUPPORT_RMT */
1333 1.24 thorpej ) <= 0) {
1334 1.1 jtc syswarn(1, errno, "Cannot determine archive tape blocksize.");
1335 1.47 dsl return -1;
1336 1.1 jtc }
1337 1.1 jtc
1338 1.1 jtc /*
1339 1.17 itohy * read forward to the file mark, then back up in front of the filemark
1340 1.1 jtc * (this is a bit paranoid, but should be safe to do).
1341 1.1 jtc */
1342 1.24 thorpej while ((res =
1343 1.24 thorpej #ifdef SUPPORT_RMT
1344 1.24 thorpej rmtread_with_restart(arfd, scbuf, sizeof(scbuf))
1345 1.24 thorpej #else
1346 1.24 thorpej read_with_restart(arfd, scbuf, sizeof(scbuf))
1347 1.24 thorpej #endif /* SUPPORT_RMT */
1348 1.24 thorpej ) > 0)
1349 1.1 jtc ;
1350 1.1 jtc if (res < 0) {
1351 1.1 jtc syswarn(1, errno, "Unable to locate tape filemark.");
1352 1.47 dsl return -1;
1353 1.1 jtc }
1354 1.1 jtc mb.mt_op = MTBSF;
1355 1.1 jtc mb.mt_count = 1;
1356 1.24 thorpej if (
1357 1.24 thorpej #ifdef SUPPORT_RMT
1358 1.24 thorpej rmtioctl(arfd, MTIOCTOP, &mb)
1359 1.24 thorpej #else
1360 1.24 thorpej ioctl(arfd, MTIOCTOP, &mb)
1361 1.24 thorpej #endif /* SUPPORT_RMT */
1362 1.24 thorpej < 0) {
1363 1.1 jtc syswarn(1, errno, "Unable to backspace over tape filemark.");
1364 1.47 dsl return -1;
1365 1.1 jtc }
1366 1.1 jtc
1367 1.1 jtc /*
1368 1.1 jtc * set lstrval so we know that the filemark has not been seen
1369 1.1 jtc */
1370 1.1 jtc lstrval = 1;
1371 1.1 jtc
1372 1.1 jtc /*
1373 1.1 jtc * return if there was no padding
1374 1.1 jtc */
1375 1.1 jtc if (padsz == 0)
1376 1.47 dsl return phyblk;
1377 1.1 jtc
1378 1.1 jtc /*
1379 1.1 jtc * make sure we can move backwards over the padding. (this should
1380 1.1 jtc * never fail).
1381 1.1 jtc */
1382 1.1 jtc if (padsz % phyblk) {
1383 1.7 christos tty_warn(1, "Tape drive unable to backspace requested amount");
1384 1.47 dsl return -1;
1385 1.1 jtc }
1386 1.1 jtc
1387 1.1 jtc /*
1388 1.1 jtc * move backwards over the padding so the head is where it was when
1389 1.1 jtc * we were first called (if required).
1390 1.1 jtc */
1391 1.1 jtc mb.mt_op = MTBSR;
1392 1.1 jtc mb.mt_count = padsz/phyblk;
1393 1.24 thorpej if (
1394 1.24 thorpej #ifdef SUPPORT_RMT
1395 1.24 thorpej rmtioctl(arfd, MTIOCTOP, &mb)
1396 1.24 thorpej #else
1397 1.24 thorpej ioctl(arfd, MTIOCTOP, &mb)
1398 1.24 thorpej #endif /* SUPPORT_RMT */
1399 1.24 thorpej < 0) {
1400 1.32 grant syswarn(1, errno,
1401 1.32 grant "Unable to backspace tape over %ld pad blocks",
1402 1.11 christos (long)mb.mt_count);
1403 1.47 dsl return -1;
1404 1.1 jtc }
1405 1.47 dsl return phyblk;
1406 1.1 jtc }
1407 1.46 christos #endif
1408 1.1 jtc
1409 1.1 jtc /*
1410 1.1 jtc * ar_next()
1411 1.1 jtc * prompts the user for the next volume in this archive. For some devices
1412 1.1 jtc * we may allow the media to be changed. Otherwise a new archive is
1413 1.1 jtc * prompted for. By pax spec, if there is no controlling tty or an eof is
1414 1.1 jtc * read on tty input, we must quit pax.
1415 1.1 jtc * Return:
1416 1.1 jtc * 0 when ready to continue, -1 when all done
1417 1.1 jtc */
1418 1.1 jtc
1419 1.1 jtc int
1420 1.1 jtc ar_next(void)
1421 1.1 jtc {
1422 1.1 jtc char buf[PAXPATHLEN+2];
1423 1.40 christos static char *arcfree = NULL;
1424 1.1 jtc sigset_t o_mask;
1425 1.1 jtc
1426 1.1 jtc /*
1427 1.1 jtc * WE MUST CLOSE THE DEVICE. A lot of devices must see last close, (so
1428 1.1 jtc * things like writing EOF etc will be done) (Watch out ar_close() can
1429 1.1 jtc * also be called via a signal handler, so we must prevent a race.
1430 1.1 jtc */
1431 1.1 jtc if (sigprocmask(SIG_BLOCK, &s_mask, &o_mask) < 0)
1432 1.1 jtc syswarn(0, errno, "Unable to set signal mask");
1433 1.1 jtc ar_close();
1434 1.53 plunky if (sigprocmask(SIG_SETMASK, &o_mask, NULL) < 0)
1435 1.1 jtc syswarn(0, errno, "Unable to restore signal mask");
1436 1.1 jtc
1437 1.34 christos if (done || !wr_trail || force_one_volume)
1438 1.47 dsl return -1;
1439 1.1 jtc
1440 1.35 christos if (!is_gnutar)
1441 1.35 christos tty_prnt("\nATTENTION! %s archive volume change required.\n",
1442 1.35 christos argv0);
1443 1.1 jtc
1444 1.1 jtc /*
1445 1.1 jtc * if i/o is on stdin or stdout, we cannot reopen it (we do not know
1446 1.1 jtc * the name), the user will be forced to type it in.
1447 1.1 jtc */
1448 1.1 jtc if (strcmp(arcname, STDO) && strcmp(arcname, STDN) && (artyp != ISREG)
1449 1.1 jtc && (artyp != ISPIPE)) {
1450 1.24 thorpej if (artyp == ISTAPE
1451 1.24 thorpej #ifdef SUPPORT_RMT
1452 1.24 thorpej || artyp == ISRMT
1453 1.24 thorpej #endif /* SUPPORT_RMT */
1454 1.24 thorpej ) {
1455 1.1 jtc tty_prnt("%s ready for archive tape volume: %d\n",
1456 1.1 jtc arcname, arvol);
1457 1.1 jtc tty_prnt("Load the NEXT TAPE on the tape drive");
1458 1.1 jtc } else {
1459 1.1 jtc tty_prnt("%s ready for archive volume: %d\n",
1460 1.1 jtc arcname, arvol);
1461 1.1 jtc tty_prnt("Load the NEXT STORAGE MEDIA (if required)");
1462 1.1 jtc }
1463 1.1 jtc
1464 1.1 jtc if ((act == ARCHIVE) || (act == APPND))
1465 1.1 jtc tty_prnt(" and make sure it is WRITE ENABLED.\n");
1466 1.1 jtc else
1467 1.1 jtc tty_prnt("\n");
1468 1.1 jtc
1469 1.1 jtc for(;;) {
1470 1.1 jtc tty_prnt("Type \"y\" to continue, \".\" to quit %s,",
1471 1.1 jtc argv0);
1472 1.1 jtc tty_prnt(" or \"s\" to switch to new device.\nIf you");
1473 1.1 jtc tty_prnt(" cannot change storage media, type \"s\"\n");
1474 1.1 jtc tty_prnt("Is the device ready and online? > ");
1475 1.1 jtc
1476 1.1 jtc if ((tty_read(buf,sizeof(buf))<0) || !strcmp(buf,".")){
1477 1.1 jtc done = 1;
1478 1.1 jtc lstrval = -1;
1479 1.1 jtc tty_prnt("Quitting %s!\n", argv0);
1480 1.1 jtc vfpart = 0;
1481 1.47 dsl return -1;
1482 1.1 jtc }
1483 1.1 jtc
1484 1.1 jtc if ((buf[0] == '\0') || (buf[1] != '\0')) {
1485 1.1 jtc tty_prnt("%s unknown command, try again\n",buf);
1486 1.1 jtc continue;
1487 1.1 jtc }
1488 1.1 jtc
1489 1.1 jtc switch (buf[0]) {
1490 1.1 jtc case 'y':
1491 1.1 jtc case 'Y':
1492 1.1 jtc /*
1493 1.1 jtc * we are to continue with the same device
1494 1.1 jtc */
1495 1.17 itohy if (ar_open(arcname) >= 0)
1496 1.47 dsl return 0;
1497 1.1 jtc tty_prnt("Cannot re-open %s, try again\n",
1498 1.1 jtc arcname);
1499 1.1 jtc continue;
1500 1.1 jtc case 's':
1501 1.1 jtc case 'S':
1502 1.1 jtc /*
1503 1.1 jtc * user wants to open a different device
1504 1.1 jtc */
1505 1.1 jtc tty_prnt("Switching to a different archive\n");
1506 1.1 jtc break;
1507 1.1 jtc default:
1508 1.1 jtc tty_prnt("%s unknown command, try again\n",buf);
1509 1.1 jtc continue;
1510 1.1 jtc }
1511 1.1 jtc break;
1512 1.1 jtc }
1513 1.35 christos } else {
1514 1.35 christos if (is_gnutar) {
1515 1.35 christos tty_warn(1, "Unexpected EOF on archive file");
1516 1.35 christos return -1;
1517 1.35 christos }
1518 1.1 jtc tty_prnt("Ready for archive volume: %d\n", arvol);
1519 1.35 christos }
1520 1.1 jtc
1521 1.1 jtc /*
1522 1.1 jtc * have to go to a different archive
1523 1.1 jtc */
1524 1.1 jtc for (;;) {
1525 1.1 jtc tty_prnt("Input archive name or \".\" to quit %s.\n", argv0);
1526 1.1 jtc tty_prnt("Archive name > ");
1527 1.1 jtc
1528 1.1 jtc if ((tty_read(buf, sizeof(buf)) < 0) || !strcmp(buf, ".")) {
1529 1.1 jtc done = 1;
1530 1.1 jtc lstrval = -1;
1531 1.1 jtc tty_prnt("Quitting %s!\n", argv0);
1532 1.1 jtc vfpart = 0;
1533 1.47 dsl return -1;
1534 1.1 jtc }
1535 1.1 jtc if (buf[0] == '\0') {
1536 1.1 jtc tty_prnt("Empty file name, try again\n");
1537 1.1 jtc continue;
1538 1.1 jtc }
1539 1.17 itohy if (!strcmp(buf, "..")) {
1540 1.17 itohy tty_prnt("Illegal file name: .. try again\n");
1541 1.17 itohy continue;
1542 1.17 itohy }
1543 1.1 jtc if (strlen(buf) > PAXPATHLEN) {
1544 1.1 jtc tty_prnt("File name too long, try again\n");
1545 1.1 jtc continue;
1546 1.1 jtc }
1547 1.1 jtc
1548 1.1 jtc /*
1549 1.1 jtc * try to open new archive
1550 1.1 jtc */
1551 1.1 jtc if (ar_open(buf) >= 0) {
1552 1.40 christos if (arcfree) {
1553 1.40 christos (void)free(arcfree);
1554 1.40 christos arcfree = NULL;
1555 1.1 jtc }
1556 1.40 christos if ((arcfree = strdup(buf)) == NULL) {
1557 1.1 jtc done = 1;
1558 1.1 jtc lstrval = -1;
1559 1.7 christos tty_warn(0, "Cannot save archive name.");
1560 1.47 dsl return -1;
1561 1.1 jtc }
1562 1.40 christos arcname = arcfree;
1563 1.1 jtc break;
1564 1.1 jtc }
1565 1.1 jtc tty_prnt("Cannot open %s, try again\n", buf);
1566 1.1 jtc continue;
1567 1.1 jtc }
1568 1.47 dsl return 0;
1569 1.5 mrg }
1570 1.5 mrg
1571 1.5 mrg /*
1572 1.5 mrg * ar_start_gzip()
1573 1.33 wiz * starts the compression/decompression process as a child, using magic
1574 1.33 wiz * to keep the fd the same in the calling function (parent). possible
1575 1.33 wiz * programs are GZIP_CMD, BZIP2_CMD, and COMPRESS_CMD.
1576 1.5 mrg */
1577 1.5 mrg void
1578 1.23 christos ar_start_gzip(int fd, const char *gzp, int wr)
1579 1.5 mrg {
1580 1.5 mrg int fds[2];
1581 1.20 lukem const char *gzip_flags;
1582 1.5 mrg
1583 1.5 mrg if (pipe(fds) < 0)
1584 1.5 mrg err(1, "could not pipe");
1585 1.23 christos zpid = fork();
1586 1.23 christos if (zpid < 0)
1587 1.5 mrg err(1, "could not fork");
1588 1.5 mrg
1589 1.5 mrg /* parent */
1590 1.23 christos if (zpid) {
1591 1.23 christos if (wr)
1592 1.5 mrg dup2(fds[1], fd);
1593 1.23 christos else
1594 1.5 mrg dup2(fds[0], fd);
1595 1.5 mrg close(fds[0]);
1596 1.5 mrg close(fds[1]);
1597 1.5 mrg } else {
1598 1.23 christos if (wr) {
1599 1.5 mrg dup2(fds[0], STDIN_FILENO);
1600 1.5 mrg dup2(fd, STDOUT_FILENO);
1601 1.5 mrg gzip_flags = "-c";
1602 1.23 christos } else {
1603 1.5 mrg dup2(fds[1], STDOUT_FILENO);
1604 1.5 mrg dup2(fd, STDIN_FILENO);
1605 1.5 mrg gzip_flags = "-dc";
1606 1.5 mrg }
1607 1.5 mrg close(fds[0]);
1608 1.5 mrg close(fds[1]);
1609 1.23 christos if (execlp(gzp, gzp, gzip_flags, NULL) < 0)
1610 1.5 mrg err(1, "could not exec");
1611 1.5 mrg /* NOTREACHED */
1612 1.5 mrg }
1613 1.13 christos }
1614 1.13 christos
1615 1.13 christos static const char *
1616 1.54 matt timefmt(char *buf, size_t size, off_t sz, time_t tm, const char *unitstr)
1617 1.13 christos {
1618 1.43 yamt (void)snprintf(buf, size, "%lu secs (" OFFT_F " %s/sec)",
1619 1.43 yamt (unsigned long)tm, (OFFT_T)(sz / tm), unitstr);
1620 1.13 christos return buf;
1621 1.13 christos }
1622 1.13 christos
1623 1.13 christos static const char *
1624 1.54 matt sizefmt(char *buf, size_t size, off_t sz)
1625 1.13 christos {
1626 1.20 lukem (void)snprintf(buf, size, OFFT_F " bytes", (OFFT_T)sz);
1627 1.13 christos return buf;
1628 1.13 christos }
1629 1.13 christos
1630 1.13 christos void
1631 1.13 christos ar_summary(int n)
1632 1.13 christos {
1633 1.13 christos time_t secs;
1634 1.59 mrg char buf[4096];
1635 1.48 christos char tbuf[MAXPATHLEN/4]; /* XXX silly size! */
1636 1.48 christos char s1buf[MAXPATHLEN/8]; /* XXX very silly size! */
1637 1.48 christos char s2buf[MAXPATHLEN/8]; /* XXX very silly size! */
1638 1.13 christos FILE *outf;
1639 1.13 christos
1640 1.13 christos if (act == LIST)
1641 1.13 christos outf = stdout;
1642 1.13 christos else
1643 1.13 christos outf = stderr;
1644 1.13 christos
1645 1.13 christos /*
1646 1.13 christos * If we are called from a signal (n != 0), use snprintf(3) so that we
1647 1.13 christos * don't reenter stdio(3).
1648 1.13 christos */
1649 1.13 christos (void)time(&secs);
1650 1.13 christos if ((secs -= starttime) == 0)
1651 1.13 christos secs = 1;
1652 1.13 christos
1653 1.13 christos /*
1654 1.13 christos * If we have not determined the format yet, we just say how many bytes
1655 1.13 christos * we have skipped over looking for a header to id. there is no way we
1656 1.13 christos * could have written anything yet.
1657 1.13 christos */
1658 1.43 yamt if (frmt == NULL && act != COPY) {
1659 1.57 dholland snprintf(buf, sizeof(buf),
1660 1.13 christos "unknown format, %s skipped in %s\n",
1661 1.13 christos sizefmt(s1buf, sizeof(s1buf), rdcnt),
1662 1.43 yamt timefmt(tbuf, sizeof(tbuf), rdcnt, secs, "bytes"));
1663 1.13 christos if (n == 0)
1664 1.13 christos (void)fprintf(outf, "%s: %s", argv0, buf);
1665 1.17 itohy else
1666 1.57 dholland (void)write(STDERR_FILENO, buf, strlen(buf));
1667 1.13 christos return;
1668 1.13 christos }
1669 1.13 christos
1670 1.13 christos
1671 1.48 christos if (n != 0 && *archd.name) {
1672 1.57 dholland snprintf(buf, sizeof(buf), "Working on `%s' (%s)\n",
1673 1.13 christos archd.name, sizefmt(s1buf, sizeof(s1buf), archd.sb.st_size));
1674 1.57 dholland (void)write(STDERR_FILENO, buf, strlen(buf));
1675 1.13 christos }
1676 1.13 christos
1677 1.13 christos
1678 1.43 yamt if (act == COPY) {
1679 1.57 dholland snprintf(buf, sizeof(buf),
1680 1.44 yamt "%lu files in %s\n",
1681 1.44 yamt (unsigned long)flcnt,
1682 1.44 yamt timefmt(tbuf, sizeof(tbuf), flcnt, secs, "files"));
1683 1.43 yamt } else {
1684 1.57 dholland snprintf(buf, sizeof(buf),
1685 1.44 yamt "%s vol %d, %lu files, %s read, %s written in %s\n",
1686 1.44 yamt frmt->name, arvol-1, (unsigned long)flcnt,
1687 1.44 yamt sizefmt(s1buf, sizeof(s1buf), rdcnt),
1688 1.44 yamt sizefmt(s2buf, sizeof(s2buf), wrcnt),
1689 1.44 yamt timefmt(tbuf, sizeof(tbuf), rdcnt + wrcnt, secs, "bytes"));
1690 1.43 yamt }
1691 1.13 christos if (n == 0)
1692 1.13 christos (void)fprintf(outf, "%s: %s", argv0, buf);
1693 1.13 christos else
1694 1.13 christos (void)write(STDERR_FILENO, buf, strlen(buf));
1695 1.14 is }
1696 1.14 is
1697 1.14 is /*
1698 1.14 is * ar_dochdir(name)
1699 1.14 is * change directory to name, and remember where we came from and
1700 1.14 is * where we change to (for ar_open).
1701 1.14 is *
1702 1.14 is * Maybe we could try to be smart and only do the actual chdir
1703 1.14 is * when necessary to write a file read from the archive, but this
1704 1.14 is * is not easy to get right given the pax code structure.
1705 1.14 is *
1706 1.14 is * Be sure to not leak descriptors!
1707 1.14 is *
1708 1.14 is * We are called N * M times when extracting, and N times when
1709 1.14 is * writing archives, where
1710 1.14 is * N: number of -C options
1711 1.14 is * M: number of files in archive
1712 1.17 itohy *
1713 1.14 is * Returns 0 if all went well, else -1.
1714 1.14 is */
1715 1.14 is
1716 1.14 is int
1717 1.45 christos ar_dochdir(const char *name)
1718 1.14 is {
1719 1.45 christos /* First fdochdir() back... */
1720 1.45 christos if (fdochdir(cwdfd) == -1)
1721 1.45 christos return -1;
1722 1.45 christos if (dochdir(name) == -1)
1723 1.45 christos return -1;
1724 1.45 christos return 0;
1725 1.1 jtc }
1726