![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to part03.sh CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / d / usr / bin / pax / public|
Return to part03.sh CVS log | Up to [MW Coherent from dump] / coherent / d / usr / bin / pax / public |
1.1 root 1: # This is a shell archive. Remove anything before this line, then unpack
2: # it by saving it into a file and typing "sh file". To overwrite existing
3: # files, type "sh file -c". You can also feed this as standard input via
4: # unshar, or by typing "sh <file", e.g.. If this archive is complete, you
5: # will see the following message at the end:
6: # "End of archive 3 (of 6)."
7: # Contents: fileio.c namelist.c pax.c pax.h tar.c
8: # Wrapped by mark@jhereg on Tue Dec 27 19:37:45 1988
9: PATH=/bin:/usr/bin:/usr/ucb ; export PATH
10: if test -f fileio.c -a "${1}" != "-c" ; then
11: echo shar: Will not over-write existing file \"fileio.c\"
12: else
13: echo shar: Extracting \"fileio.c\" \(10596 characters\)
14: sed "s/^X//" >fileio.c <<'END_OF_fileio.c'
15: X/* $Source: /u/mark/src/pax/RCS/fileio.c,v $
16: X *
17: X * $Revision: 1.1 $
18: X *
19: X * fileio.c - file I/O functions for all archive interfaces
20: X *
21: X * DESCRIPTION
22: X *
23: X * These function all do I/O of some form or another. They are
24: X * grouped here mainly for convienence.
25: X *
26: X * AUTHOR
27: X *
28: X * Mark H. Colburn, NAPS International ([email protected])
29: X *
30: X * Sponsored by The USENIX Association for public distribution.
31: X *
32: X * Copyright (c) 1989 Mark H. Colburn.
33: X * All rights reserved.
34: X *
35: X * Redistribution and use in source and binary forms are permitted
36: X * provided that the above copyright notice is duplicated in all such
37: X * forms and that any documentation, advertising materials, and other
38: X * materials related to such distribution and use acknowledge that the
39: X * software was developed * by Mark H. Colburn and sponsored by The
40: X * USENIX Association.
41: X *
42: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
43: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
44: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
45: X *
46: X * $Log: fileio.c,v $
47: X * Revision 1.1 88/12/23 18:02:09 mark
48: X * Initial revision
49: X *
50: X */
51: X
52: X#ifndef lint
53: Xstatic char *ident = "$Id: fileio.c,v 1.1 88/12/23 18:02:09 mark Rel $";
54: Xstatic char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n";
55: X#endif /* ! lint */
56: X
57: X
58: X/* Headers */
59: X
60: X#include "pax.h"
61: X
62: X
63: X/* open_archive - open an archive file.
64: X *
65: X * DESCRIPTION
66: X *
67: X * Open_archive will open an archive file for reading or writing,
68: X * setting the proper file mode, depending on the "mode" passed to
69: X * it. All buffer pointers are reset according to the mode
70: X * specified.
71: X *
72: X * PARAMETERS
73: X *
74: X * int mode - specifies whether we are reading or writing.
75: X *
76: X * RETURNS
77: X *
78: X * Returns a zero if successfull, or -1 if an error occured during
79: X * the open.
80: X */
81: X
82: X#ifdef __STDC__
83: X
84: Xint open_archive(int mode)
85: X
86: X#else
87: X
88: Xint open_archive(mode)
89: Xint mode;
90: X
91: X#endif
92: X{
93: X if (ar_file[0] == '-' && ar_file[1] == '\0') {
94: X if (mode == AR_READ) {
95: X archivefd = STDIN;
96: X bufend = bufidx = bufstart;
97: X } else {
98: X archivefd = STDOUT;
99: X }
100: X } else if (mode == AR_READ) {
101: X archivefd = open(ar_file, O_RDONLY | O_BINARY);
102: X bufend = bufidx = bufstart; /* set up for initial read */
103: X } else if (mode == AR_WRITE) {
104: X archivefd = open(ar_file, O_WRONLY|O_TRUNC|O_CREAT|O_BINARY, 0666);
105: X } else if (mode == AR_APPEND) {
106: X archivefd = open(ar_file, O_RDWR | O_BINARY, 0666);
107: X bufend = bufidx = bufstart; /* set up for initial read */
108: X }
109: X
110: X if (archivefd < 0) {
111: X warnarch(syserr(), (OFFSET) 0);
112: X return (-1);
113: X }
114: X ++arvolume;
115: X return (0);
116: X}
117: X
118: X
119: X/* close_archive - close the archive file
120: X *
121: X * DESCRIPTION
122: X *
123: X * Closes the current archive and resets the archive end of file
124: X * marker.
125: X */
126: X
127: X#ifdef __STDC__
128: X
129: Xvoid close_archive(void)
130: X
131: X#else
132: X
133: Xvoid close_archive()
134: X
135: X#endif
136: X{
137: X if (archivefd != STDIN && archivefd != STDOUT) {
138: X close(archivefd);
139: X }
140: X areof = 0;
141: X}
142: X
143: X
144: X/* openo - open an output file
145: X *
146: X * DESCRIPTION
147: X *
148: X * Openo opens the named file for output. The file mode and type are
149: X * set based on the values stored in the stat structure for the file.
150: X * If the file is a special file, then no data will be written, the
151: X * file/directory/Fifo, etc., will just be created. Appropriate
152: X * permission may be required to create special files.
153: X *
154: X * PARAMETERS
155: X *
156: X * char *name - The name of the file to create
157: X * Stat *asb - Stat structure for the file
158: X * Link *linkp; - pointer to link chain for this file
159: X * int ispass - true if we are operating in "pass" mode
160: X *
161: X * RETURNS
162: X *
163: X * Returns the output file descriptor, 0 if no data is required or -1
164: X * if unsuccessful. Note that UNIX open() will never return 0 because
165: X * the standard input is in use.
166: X */
167: X
168: X#ifdef __STDC__
169: X
170: Xint openo(char *name, Stat *asb, Link *linkp, int ispass)
171: X
172: X#else
173: X
174: Xint openo(name, asb, linkp, ispass)
175: Xchar *name;
176: XStat *asb;
177: XLink *linkp;
178: Xint ispass;
179: X
180: X#endif
181: X{
182: X int exists;
183: X int fd;
184: X ushort perm;
185: X ushort operm = 0;
186: X Stat osb;
187: X#ifdef S_IFLNK
188: X int ssize;
189: X char sname[PATH_MAX + 1];
190: X#endif /* S_IFLNK */
191: X
192: X if (exists = (LSTAT(name, &osb) == 0)) {
193: X if (ispass && osb.sb_ino == asb->sb_ino && osb.sb_dev == asb->sb_dev) {
194: X warn(name, "Same file");
195: X return (-1);
196: X } else if ((osb.sb_mode & S_IFMT) == (asb->sb_mode & S_IFMT)) {
197: X operm = osb.sb_mode & S_IPERM;
198: X } else if (REMOVE(name, &osb) < 0) {
199: X warn(name, syserr());
200: X return (-1);
201: X } else {
202: X exists = 0;
203: X }
204: X }
205: X if (linkp) {
206: X if (exists) {
207: X if (asb->sb_ino == osb.sb_ino && asb->sb_dev == osb.sb_dev) {
208: X return (0);
209: X } else if (unlink(name) < 0) {
210: X warn(name, syserr());
211: X return (-1);
212: X } else {
213: X exists = 0;
214: X }
215: X }
216: X if (link(linkp->l_name, name) != 0) {
217: X if (errno == ENOENT) {
218: X if (f_create_dirs) {
219: X if (dirneed(name) != 0 ||
220: X link(linkp->l_name, name) != 0) {
221: X warn(name, syserr());
222: X return (-1);
223: X }
224: X } else {
225: X warn(name,
226: X "Directories are not being created (-d option)");
227: X }
228: X return(0);
229: X } else if (errno != EXDEV) {
230: X warn(name, syserr());
231: X return (-1);
232: X }
233: X } else {
234: X return(0);
235: X }
236: X }
237: X perm = asb->sb_mode & S_IPERM;
238: X switch (asb->sb_mode & S_IFMT) {
239: X case S_IFBLK:
240: X case S_IFCHR:
241: X fd = 0;
242: X if (exists) {
243: X if (asb->sb_rdev == osb.sb_rdev) {
244: X if (perm != operm && chmod(name, (int) perm) < 0) {
245: X warn(name, syserr());
246: X return (-1);
247: X } else {
248: X break;
249: X }
250: X } else if (REMOVE(name, &osb) < 0) {
251: X warn(name, syserr());
252: X return (-1);
253: X } else {
254: X exists = 0;
255: X }
256: X }
257: X if (mknod(name, (int) asb->sb_mode, (int) asb->sb_rdev) < 0) {
258: X if (errno == ENOENT) {
259: X if (f_create_dirs) {
260: X if (dirneed(name) < 0 || mknod(name, (int) asb->sb_mode,
261: X (int) asb->sb_rdev) < 0) {
262: X warn(name, syserr());
263: X return (-1);
264: X }
265: X } else {
266: X warn(name, "Directories are not being created (-d option)");
267: X }
268: X } else {
269: X warn(name, syserr());
270: X return (-1);
271: X }
272: X }
273: X return(0);
274: X break;
275: X case S_IFDIR:
276: X if (exists) {
277: X if (perm != operm && chmod(name, (int) perm) < 0) {
278: X warn(name, syserr());
279: X return (-1);
280: X }
281: X } else if (f_create_dirs) {
282: X if (dirmake(name, asb) < 0 || dirneed(name) < 0) {
283: X warn(name, syserr());
284: X return (-1);
285: X }
286: X } else {
287: X warn(name, "Directories are not being created (-d option)");
288: X }
289: X return (0);
290: X#ifdef S_IFIFO
291: X case S_IFIFO:
292: X fd = 0;
293: X if (exists) {
294: X if (perm != operm && chmod(name, (int) perm) < 0) {
295: X warn(name, syserr());
296: X return (-1);
297: X }
298: X } else if (mknod(name, (int) asb->sb_mode, 0) < 0) {
299: X if (errno == ENOENT) {
300: X if (f_create_dirs) {
301: X if (dirneed(name) < 0
302: X || mknod(name, (int) asb->sb_mode, 0) < 0) {
303: X warn(name, syserr());
304: X return (-1);
305: X }
306: X } else {
307: X warn(name, "Directories are not being created (-d option)");
308: X }
309: X } else {
310: X warn(name, syserr());
311: X return (-1);
312: X }
313: X }
314: X return(0);
315: X break;
316: X#endif /* S_IFIFO */
317: X#ifdef S_IFLNK
318: X case S_IFLNK:
319: X if (exists) {
320: X if ((ssize = readlink(name, sname, sizeof(sname))) < 0) {
321: X warn(name, syserr());
322: X return (-1);
323: X } else if (strncmp(sname, asb->sb_link, ssize) == 0) {
324: X return (0);
325: X } else if (REMOVE(name, &osb) < 0) {
326: X warn(name, syserr());
327: X return (-1);
328: X } else {
329: X exists = 0;
330: X }
331: X }
332: X if (symlink(asb->sb_link, name) < 0) {
333: X if (errno == ENOENT) {
334: X if (f_create_dirs) {
335: X if (dirneed(name) < 0 || symlink(asb->sb_link, name) < 0) {
336: X warn(name, syserr());
337: X return (-1);
338: X }
339: X } else {
340: X warn(name, "Directories are not being created (-d option)");
341: X }
342: X } else {
343: X warn(name, syserr());
344: X return (-1);
345: X }
346: X }
347: X return (0); /* Can't chown()/chmod() a symbolic link */
348: X#endif /* S_IFLNK */
349: X case S_IFREG:
350: X if (exists) {
351: X if (!f_unconditional && osb.sb_mtime > asb->sb_mtime) {
352: X warn(name, "Newer file exists");
353: X return (-1);
354: X } else if (unlink(name) < 0) {
355: X warn(name, syserr());
356: X return (-1);
357: X } else {
358: X exists = 0;
359: X }
360: X }
361: X if ((fd = creat(name, (int) perm)) < 0) {
362: X if (errno == ENOENT) {
363: X if (f_create_dirs) {
364: X if (dirneed(name) < 0 ||
365: X (fd = creat(name, (int) perm)) < 0) {
366: X warn(name, syserr());
367: X return (-1);
368: X }
369: X } else {
370: X /*
371: X * the file requires a directory which does not exist
372: X * and which the user does not want created, so skip
373: X * the file...
374: X */
375: X warn(name, "Directories are not being created (-d option)");
376: X return(0);
377: X }
378: X } else {
379: X warn(name, syserr());
380: X return (-1);
381: X }
382: X }
383: X break;
384: X default:
385: X warn(name, "Unknown filetype");
386: X return (-1);
387: X }
388: X if (f_owner) {
389: X if (!exists || asb->sb_uid != osb.sb_uid || asb->sb_gid != osb.sb_gid) {
390: X chown(name, (int) asb->sb_uid, (int) asb->sb_gid);
391: X }
392: X }
393: X return (fd);
394: X}
395: X
396: X
397: X/* openi - open the next input file
398: X *
399: X * DESCRIPTION
400: X *
401: X * Openi will attempt to open the next file for input. If the file is
402: X * a special file, such as a directory, FIFO, link, character- or
403: X * block-special file, then the file size field of the stat structure
404: X * is zeroed to make sure that no data is written out for the file.
405: X * If the file is a special file, then a file descriptor of 0 is
406: X * returned to the caller, which is handled specially. If the file
407: X * is a regular file, then the file is opened and a file descriptor
408: X * to the open file is returned to the caller.
409: X *
410: X * PARAMETERS
411: X *
412: X * char *name - pointer to the name of the file to open
413: X * Stat *asb - pointer to the stat block for the file to open
414: X *
415: X * RETURNS
416: X *
417: X * Returns a file descriptor, 0 if no data exists, or -1 at EOF. This
418: X * kludge works because standard input is in use, preventing open() from
419: X * returning zero.
420: X */
421: X
422: X#ifdef __STDC__
423: X
424: Xint openi(char *name, Stat *asb)
425: X
426: X#else
427: X
428: Xint openi(name, asb)
429: Xchar *name; /* name of file to open */
430: XStat *asb; /* pointer to stat structure for file */
431: X
432: X#endif
433: X{
434: X int fd;
435: X
436: X switch (asb->sb_mode & S_IFMT) {
437: X case S_IFDIR:
438: X asb->sb_nlink = 1;
439: X asb->sb_size = 0;
440: X return (0);
441: X#ifdef S_IFLNK
442: X case S_IFLNK:
443: X if ((asb->sb_size = readlink(name,
444: X asb->sb_link, sizeof(asb->sb_link) - 1)) < 0) {
445: X warn(name, syserr());
446: X return(0);
447: X }
448: X asb->sb_link[asb->sb_size] = '\0';
449: X return (0);
450: X#endif /* S_IFLNK */
451: X case S_IFREG:
452: X if (asb->sb_size == 0) {
453: X return (0);
454: X }
455: X if ((fd = open(name, O_RDONLY | O_BINARY)) < 0) {
456: X warn(name, syserr());
457: X }
458: X return (fd);
459: X default:
460: X asb->sb_size = 0;
461: X return (0);
462: X }
463: X}
464: END_OF_fileio.c
465: if test 10596 -ne `wc -c <fileio.c`; then
466: echo shar: \"fileio.c\" unpacked with wrong size!
467: fi
468: # end of overwriting check
469: fi
470: if test -f namelist.c -a "${1}" != "-c" ; then
471: echo shar: Will not over-write existing file \"namelist.c\"
472: else
473: echo shar: Extracting \"namelist.c\" \(11056 characters\)
474: sed "s/^X//" >namelist.c <<'END_OF_namelist.c'
475: X/* $Source: /u/mark/src/pax/RCS/namelist.c,v $
476: X *
477: X * $Revision: 1.1 $
478: X *
479: X * namelist.c - track filenames given as arguments to tar/cpio/pax
480: X *
481: X * DESCRIPTION
482: X *
483: X * Arguments may be regular expressions, therefore all agurments will
484: X * be treated as if they were regular expressions, even if they are
485: X * not.
486: X *
487: X * AUTHOR
488: X *
489: X * Mark H. Colburn, NAPS International ([email protected])
490: X *
491: X * Sponsored by The USENIX Association for public distribution.
492: X *
493: X * Copyright (c) 1989 Mark H. Colburn.
494: X * All rights reserved.
495: X *
496: X * Redistribution and use in source and binary forms are permitted
497: X * provided that the above copyright notice is duplicated in all such
498: X * forms and that any documentation, advertising materials, and other
499: X * materials related to such distribution and use acknowledge that the
500: X * software was developed * by Mark H. Colburn and sponsored by The
501: X * USENIX Association.
502: X *
503: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
504: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
505: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
506: X *
507: X * $Log: namelist.c,v $
508: X * Revision 1.1 88/12/23 18:02:17 mark
509: X * Initial revision
510: X *
511: X */
512: X
513: X#ifndef lint
514: Xstatic char *ident = "$Id: namelist.c,v 1.1 88/12/23 18:02:17 mark Rel $";
515: Xstatic char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n";
516: X#endif /* ! lint */
517: X
518: X
519: X/* Headers */
520: X
521: X#include "pax.h"
522: X
523: X
524: X/* Type Definitions */
525: X
526: X/*
527: X * Structure for keeping track of filenames and lists thereof.
528: X */
529: Xstruct nm_list {
530: X struct nm_list *next;
531: X short length; /* cached strlen(name) */
532: X char found; /* A matching file has been found */
533: X char firstch; /* First char is literally matched */
534: X char regexp; /* regexp pattern for item */
535: X char name[1]; /* name of file or rexexp */
536: X};
537: X
538: Xstruct dirinfo {
539: X char dirname[PATH_MAX + 1]; /* name of directory */
540: X OFFSET where; /* current location in directory */
541: X struct dirinfo *next;
542: X};
543: X
544: X
545: X/* Function Prototypes */
546: X
547: X#ifndef __STDC__
548: X
549: Xstatic void pushdir();
550: Xstatic struct dirinfo *popdir();
551: X
552: X#else
553: X
554: Xstatic void pushdir(struct dirinfo *info);
555: Xstatic struct dirinfo *popdir(void);
556: X
557: X#endif
558: X
559: X
560: X/* Internal Identifiers */
561: X
562: Xstatic struct nm_list *namelast; /* Points to last name in list */
563: Xstatic struct nm_list *namelist; /* Points to first name in list */
564: X
565: X
566: X/* addname - add a name to the namelist.
567: X *
568: X * DESCRIPTION
569: X *
570: X * Addname adds the name given to the name list. Memory for the
571: X * namelist structure is dynamically allocated. If the space for
572: X * the structure cannot be allocated, then the program will exit
573: X * the an out of memory error message and a non-zero return code
574: X * will be returned to the caller.
575: X *
576: X * PARAMETERS
577: X *
578: X * char *name - A pointer to the name to add to the list
579: X */
580: X
581: X#ifdef __STDC__
582: X
583: Xvoid add_name(char *name)
584: X
585: X#else
586: X
587: Xvoid add_name(name)
588: Xchar *name; /* pointer to name */
589: X
590: X#endif
591: X{
592: X int i; /* Length of string */
593: X struct nm_list *p; /* Current struct pointer */
594: X
595: X i = strlen(name);
596: X p = (struct nm_list *) malloc((unsigned) (i + sizeof(struct nm_list)));
597: X if (!p) {
598: X fatal("cannot allocate memory for namelist entry\n");
599: X }
600: X p->next = (struct nm_list *) NULL;
601: X p->length = i;
602: X strncpy(p->name, name, i);
603: X p->name[i] = '\0'; /* Null term */
604: X p->found = 0;
605: X p->firstch = isalpha(name[0]);
606: X if (strchr(name, '*') || strchr(name, '[') || strchr(name, '?')) {
607: X p->regexp = 1;
608: X }
609: X if (namelast) {
610: X namelast->next = p;
611: X }
612: X namelast = p;
613: X if (!namelist) {
614: X namelist = p;
615: X }
616: X}
617: X
618: X
619: X/* name_match - match a name from an archive with a name from the namelist
620: X *
621: X * DESCRIPTION
622: X *
623: X * Name_match attempts to find a name pointed at by p in the namelist.
624: X * If no namelist is available, then all filenames passed in are
625: X * assumed to match the filename criteria. Name_match knows how to
626: X * match names with regular expressions, etc.
627: X *
628: X * PARAMETERS
629: X *
630: X * char *p - the name to match
631: X *
632: X * RETURNS
633: X *
634: X * Returns 1 if the name is in the namelist, or no name list is
635: X * available, otherwise returns 0
636: X *
637: X */
638: X
639: X#ifdef __STDC__
640: X
641: Xint name_match(char *p)
642: X
643: X#else
644: X
645: Xint name_match(p)
646: Xchar *p;
647: X
648: X#endif
649: X{
650: X struct nm_list *nlp;
651: X int len;
652: X
653: X if ((nlp = namelist) == 0) {/* Empty namelist is easy */
654: X return (1);
655: X }
656: X len = strlen(p);
657: X for (; nlp != 0; nlp = nlp->next) {
658: X /* If first chars don't match, quick skip */
659: X if (nlp->firstch && nlp->name[0] != p[0]) {
660: X continue;
661: X }
662: X /* Regular expressions */
663: X if (nlp->regexp) {
664: X if (wildmat(nlp->name, p)) {
665: X nlp->found = 1; /* Remember it matched */
666: X return (1); /* We got a match */
667: X }
668: X continue;
669: X }
670: X /* Plain Old Strings */
671: X if (nlp->length <= len /* Archive len >= specified */
672: X && (p[nlp->length] == '\0' || p[nlp->length] == '/')
673: X && strncmp(p, nlp->name, nlp->length) == 0) {
674: X /* Name compare */
675: X nlp->found = 1; /* Remember it matched */
676: X return (1); /* We got a match */
677: X }
678: X }
679: X return (0);
680: X}
681: X
682: X
683: X/* names_notfound - print names of files in namelist that were not found
684: X *
685: X * DESCRIPTION
686: X *
687: X * Names_notfound scans through the namelist for any files which were
688: X * named, but for which a matching file was not processed by the
689: X * archive. Each of the files is listed on the standard error.
690: X *
691: X */
692: X
693: X#ifdef __STDC__
694: X
695: Xvoid names_notfound(void)
696: X
697: X#else
698: X
699: Xvoid names_notfound()
700: X
701: X#endif
702: X{
703: X struct nm_list *nlp;
704: X
705: X for (nlp = namelist; nlp != 0; nlp = nlp->next) {
706: X if (!nlp->found) {
707: X fprintf(stderr, "%s: %s not found in archive\n",
708: X myname, nlp->name);
709: X }
710: X free(nlp);
711: X }
712: X namelist = (struct nm_list *) NULL;
713: X namelast = (struct nm_list *) NULL;
714: X}
715: X
716: X
717: X/* name_init - set up to gather file names
718: X *
719: X * DESCRIPTION
720: X *
721: X * Name_init sets up the namelist pointers so that we may access the
722: X * command line arguments. At least the first item of the command
723: X * line (argv[0]) is assumed to be stripped off, prior to the
724: X * name_init call.
725: X *
726: X * PARAMETERS
727: X *
728: X * int argc - number of items in argc
729: X * char **argv - pointer to the command line arguments
730: X */
731: X
732: X#ifdef __STDC__
733: X
734: Xvoid name_init(int argc, char **argv)
735: X
736: X#else
737: X
738: Xvoid name_init(argc, argv)
739: Xint argc;
740: Xchar **argv;
741: X
742: X#endif
743: X{
744: X /* Get file names from argv, after options. */
745: X n_argc = argc;
746: X n_argv = argv;
747: X}
748: X
749: X
750: X/* name_next - get the next name from argv or the name file.
751: X *
752: X * DESCRIPTION
753: X *
754: X * Name next finds the next name which is to be processed in the
755: X * archive. If the named file is a directory, then the directory
756: X * is recursively traversed for additional file names. Directory
757: X * names and locations within the directory are kept track of by
758: X * using a directory stack. See the pushdir/popdir function for
759: X * more details.
760: X *
761: X * The names come from argv, after options or from the standard input.
762: X *
763: X * PARAMETERS
764: X *
765: X * name - a pointer to a buffer of at least MAX_PATH + 1 bytes long;
766: X * statbuf - a pointer to a stat structure
767: X *
768: X * RETURNS
769: X *
770: X * Returns -1 if there are no names left, (e.g. EOF), otherwise returns
771: X * 0
772: X */
773: X
774: X#ifdef __STDC__
775: X
776: Xint name_next(char *name, Stat *statbuf)
777: X
778: X#else
779: X
780: Xint name_next(name, statbuf)
781: Xchar *name;
782: XStat *statbuf;
783: X
784: X#endif
785: X{
786: X int err = -1;
787: X static int in_subdir = 0;
788: X static DIR *dirp;
789: X struct dirent *d;
790: X static struct dirinfo *curr_dir;
791: X int len;
792: X
793: X do {
794: X if (names_from_stdin) {
795: X if (lineget(stdin, name) < 0) {
796: X return (-1);
797: X }
798: X if (nameopt(name) < 0) {
799: X continue;
800: X }
801: X } else {
802: X if (in_subdir) {
803: X if ((d = readdir(dirp)) != NULL) {
804: X /* Skip . and .. */
805: X if (strcmp(d->d_name, ".") == 0 ||
806: X strcmp(d->d_name, "..") == 0) {
807: X continue;
808: X }
809: X if (strlen(d->d_name) +
810: X strlen(curr_dir->dirname) >= PATH_MAX) {
811: X warn("name too long", d->d_name);
812: X continue;
813: X }
814: X strcpy(name, curr_dir->dirname);
815: X strcat(name, d->d_name);
816: X } else {
817: X closedir(dirp);
818: X in_subdir--;
819: X curr_dir = popdir();
820: X if (in_subdir) {
821: X errno = 0;
822: X if ((dirp = opendir(curr_dir->dirname)) == NULL) {
823: X warn(curr_dir->dirname, "error opening directory (1)");
824: X in_subdir--;
825: X }
826: X seekdir(dirp, curr_dir->where);
827: X }
828: X continue;
829: X }
830: X } else if (optind >= n_argc) {
831: X return (-1);
832: X } else {
833: X strcpy(name, n_argv[optind++]);
834: X }
835: X }
836: X if ((err = LSTAT(name, statbuf)) < 0) {
837: X warn(name, syserr());
838: X continue;
839: X }
840: X if (!names_from_stdin && (statbuf->sb_mode & S_IFMT) == S_IFDIR) {
841: X if (in_subdir) {
842: X curr_dir->where = telldir(dirp);
843: X pushdir(curr_dir);
844: X close(dirp);
845: X }
846: X in_subdir++;
847: X
848: X /* Build new prototype name */
849: X if ((curr_dir = (struct dirinfo *)
850: X mem_get(sizeof(struct dirinfo))) == NULL) {
851: X exit(2);
852: X }
853: X strcpy(curr_dir->dirname, name);
854: X len = strlen(curr_dir->dirname);
855: X while (len >= 1 && curr_dir->dirname[len - 1] == '/') {
856: X len--; /* Delete trailing slashes */
857: X }
858: X curr_dir->dirname[len++] = '/'; /* Now add exactly one back */
859: X curr_dir->dirname[len] = '\0';/* Make sure null-terminated */
860: X
861: X errno = 0;
862: X if ((dirp = opendir(curr_dir->dirname)) == NULL) {
863: X warn(curr_dir->dirname, "error opening directory (2)");
864: X }
865: X }
866: X } while (err < 0);
867: X return (0);
868: X}
869: X
870: X
871: X/* name_gather - gather names in a list for scanning.
872: X *
873: X * DESCRIPTION
874: X *
875: X * Name_gather takes names from the command line and adds them to
876: X * the name list.
877: X *
878: X * FIXME
879: X *
880: X * We could hash the names if we really care about speed here.
881: X */
882: X
883: X#ifdef __STDC__
884: X
885: Xvoid name_gather(void)
886: X
887: X#else
888: X
889: Xvoid name_gather()
890: X
891: X#endif
892: X{
893: X while (optind < n_argc) {
894: X add_name(n_argv[optind++]);
895: X }
896: X}
897: X
898: X
899: Xstatic struct dirinfo *stack_head = NULL;
900: X
901: X
902: X/* pushdir - pushes a directory name on the directory stack
903: X *
904: X * DESCRIPTION
905: X *
906: X * The pushdir function puses the directory structure which is pointed
907: X * to by "info" onto a stack for later processing. The information
908: X * may be retrieved later with a call to popdir().
909: X *
910: X * PARAMETERS
911: X *
912: X * dirinfo *info - pointer to directory structure to save
913: X */
914: X
915: X#ifdef __STDC__
916: X
917: Xstatic void pushdir(struct dirinfo *info)
918: X
919: X#else
920: X
921: Xstatic void pushdir(info)
922: Xstruct dirinfo *info;
923: X
924: X#endif
925: X{
926: X if (stack_head == NULL) {
927: X stack_head = info;
928: X stack_head->next = NULL;
929: X } else {
930: X info->next = stack_head;
931: X stack_head = info;
932: X }
933: X}
934: X
935: X
936: X/* popdir - pop a directory structure off the directory stack.
937: X *
938: X * DESCRIPTION
939: X *
940: X * The popdir function pops the most recently pushed directory
941: X * structure off of the directory stack and returns it to the calling
942: X * function.
943: X *
944: X * RETURNS
945: X *
946: X * Returns a pointer to the most recently pushed directory structure
947: X * or NULL if the stack is empty.
948: X */
949: X
950: X#ifdef __STDC__
951: X
952: Xstatic struct dirinfo *popdir(void)
953: X
954: X#else
955: X
956: Xstatic struct dirinfo *popdir()
957: X
958: X#endif
959: X{
960: X struct dirinfo *tmp;
961: X
962: X if (stack_head == NULL) {
963: X return(NULL);
964: X } else {
965: X tmp = stack_head;
966: X stack_head = stack_head->next;
967: X }
968: X return(tmp);
969: X}
970: END_OF_namelist.c
971: if test 11056 -ne `wc -c <namelist.c`; then
972: echo shar: \"namelist.c\" unpacked with wrong size!
973: fi
974: # end of overwriting check
975: fi
976: if test -f pax.c -a "${1}" != "-c" ; then
977: echo shar: Will not over-write existing file \"pax.c\"
978: else
979: echo shar: Extracting \"pax.c\" \(13026 characters\)
980: sed "s/^X//" >pax.c <<'END_OF_pax.c'
981: X/* $Source: /u/mark/src/pax/RCS/pax.c,v $
982: X *
983: X * $Revision: 1.1 $
984: X *
985: X * DESCRIPTION
986: X *
987: X * Pax is the archiver described in IEEE P1003.2. It is an archiver
988: X * which understands both tar and cpio archives and has a new interface.
989: X *
990: X * SYNOPSIS
991: X *
992: X * pax -[cimopuvy] [-f archive] [-s replstr] [-t device] [pattern...]
993: X * pax -r [-cimopuvy] [-f archive] [-s replstr] [-t device] [pattern...]
994: X * pax -w [-adimuvy] [-b blocking] [-f archive] [-s replstr]...]
995: X * [-t device][-x format][pathname...]
996: X * pax -r -w [-ilmopuvy][-s replstr][pathname...] directory
997: X *
998: X * DESCRIPTION
999: X *
1000: X * PAX - POSIX conforming tar and cpio archive handler. This
1001: X * program implements POSIX conformant versions of tar, cpio and pax
1002: X * archive handlers for UNIX. These handlers have defined befined
1003: X * by the IEEE P1003.2 commitee.
1004: X *
1005: X * COMPILATION
1006: X *
1007: X * A number of different compile time configuration options are
1008: X * available, please see the Makefile and config.h for more details.
1009: X *
1010: X * AUTHOR
1011: X *
1012: X * Mark H. Colburn, NAPS International ([email protected])
1013: X *
1014: X *
1015: X * Sponsored by The USENIX Association for public distribution.
1016: X *
1017: X * Copyright (c) 1989 Mark H. Colburn.
1018: X * All rights reserved.
1019: X *
1020: X * Redistribution and use in source and binary forms are permitted
1021: X * provided that the above copyright notice is duplicated in all such
1022: X * forms and that any documentation, advertising materials, and other
1023: X * materials related to such distribution and use acknowledge that the
1024: X * software was developed * by Mark H. Colburn and sponsored by The
1025: X * USENIX Association.
1026: X *
1027: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
1028: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
1029: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
1030: X *
1031: X * $Log: pax.c,v $
1032: X * Revision 1.1 88/12/23 18:02:23 mark
1033: X * Initial revision
1034: X *
1035: X */
1036: X
1037: X#ifndef lint
1038: Xstatic char *ident = "$Id: pax.c,v 1.1 88/12/23 18:02:23 mark Rel $";
1039: Xstatic char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n";
1040: X#endif /* ! lint */
1041: X
1042: X
1043: X/* Headers */
1044: X
1045: X#define NO_EXTERN
1046: X#include "pax.h"
1047: X
1048: X
1049: X/* Globally Available Identifiers */
1050: X
1051: Xchar *ar_file; /* File containing name of archive */
1052: Xchar *bufend; /* End of data within archive buffer */
1053: Xchar *bufstart; /* Archive buffer */
1054: Xchar *bufidx; /* Archive buffer index */
1055: Xchar *myname; /* name of executable (argv[0]) */
1056: Xchar **n_argv; /* Argv used by name routines */
1057: Xint n_argc; /* Argc used by name routines */
1058: Xint archivefd; /* Archive file descriptor */
1059: Xint blocking; /* Size of each block, in records */
1060: Xint gid; /* Group ID */
1061: Xint head_standard; /* true if archive is POSIX format */
1062: Xint ar_interface; /* defines interface we are using */
1063: Xint ar_format; /* defines current archve format */
1064: Xint mask; /* File creation mask */
1065: Xint ttyf; /* For interactive queries */
1066: Xint uid; /* User ID */
1067: Xint names_from_stdin; /* names for files are from stdin */
1068: XOFFSET total; /* Total number of bytes transferred */
1069: Xshort f_access_time; /* Reset access times of input files */
1070: Xshort areof; /* End of input volume reached */
1071: Xshort f_create_dirs; /* Create missing directories */
1072: Xshort f_append; /* Add named files to end of archive */
1073: Xshort f_create; /* create a new archive */
1074: Xshort f_extract; /* Extract named files from archive */
1075: Xshort f_follow_links; /* follow symbolic links */
1076: Xshort f_interactive; /* Interactivly extract files */
1077: Xshort f_linksleft; /* Report on unresolved links */
1078: Xshort f_list; /* List files on the archive */
1079: Xshort f_modified; /* Don't restore modification times */
1080: Xshort f_verbose; /* Turn on verbose mode */
1081: Xshort f_link; /* link files where possible */
1082: Xshort f_owner; /* extract files as the user */
1083: Xshort f_pass; /* pass files between directories */
1084: Xshort f_newer; /* append files to archive if newer */
1085: Xshort f_disposition; /* ask for file disposition */
1086: Xshort f_reverse_match; /* Reverse sense of pattern match */
1087: Xshort f_modification_time; /* Retain file modification time */
1088: Xshort f_unconditional; /* Copy unconditionally */
1089: Xtime_t now = 0; /* Current time */
1090: Xuint arvolume; /* Volume number */
1091: Xuint blocksize = BLOCKSIZE; /* Archive block size */
1092: XFILE *msgfile; /* message outpu file stdout/stderr */
1093: XReplstr *rplhead = NULL; /* pointer to head of replstr list */
1094: XReplstr *rpltail; /* pointer to tail of replstr list */
1095: X
1096: X
1097: X/* Function Prototypes */
1098: X
1099: X#ifdef __STDC__
1100: X
1101: Xstatic void usage(void);
1102: Xstatic OFFSET pax_optsize(char *);
1103: X
1104: X#else /* !__STDC__ */
1105: X
1106: Xstatic void usage();
1107: Xstatic OFFSET pax_optsize();
1108: X
1109: X#endif /* __STDC__ */
1110: X
1111: X
1112: X/* main - main routine for handling all archive formats.
1113: X *
1114: X * DESCRIPTION
1115: X *
1116: X * Set up globals and call the proper interface as specified by the user.
1117: X *
1118: X * PARAMETERS
1119: X *
1120: X * int argc - count of user supplied arguments
1121: X * char **argv - user supplied arguments
1122: X *
1123: X * RETURNS
1124: X *
1125: X * Returns an exit code of 0 to the parent process.
1126: X */
1127: X
1128: X#ifdef __STDC__
1129: X
1130: Xint main(int argc, char **argv)
1131: X
1132: X#else
1133: X
1134: Xint main(argc, argv)
1135: Xint argc;
1136: Xchar **argv;
1137: X
1138: X#endif
1139: X{
1140: X /* strip the pathname off of the name of the executable */
1141: X if ((myname = strrchr(argv[0], '/')) != (char *)NULL) {
1142: X myname++;
1143: X } else {
1144: X myname = argv[0];
1145: X }
1146: X
1147: X /* set upt for collecting other command line arguments */
1148: X name_init(argc, argv);
1149: X
1150: X /* get all our necessary information */
1151: X mask = umask(0);
1152: X uid = getuid();
1153: X gid = getgid();
1154: X now = time((time_t *) 0);
1155: X
1156: X /* open terminal for interactive queries */
1157: X ttyf = open_tty();
1158: X
1159: X if (strcmp(myname, "tar")==0) {
1160: X do_tar(argc, argv);
1161: X } else if (strcmp(myname, "cpio")==0) {
1162: X do_cpio(argc, argv);
1163: X } else {
1164: X do_pax(argc, argv);
1165: X }
1166: X exit(0);
1167: X /* NOTREACHED */
1168: X}
1169: X
1170: X
1171: X/* do_pax - provide a PAX conformant user interface for archive handling
1172: X *
1173: X * DESCRIPTION
1174: X *
1175: X * Process the command line parameters given, doing some minimal sanity
1176: X * checking, and then launch the specified archiving functions.
1177: X *
1178: X * PARAMETERS
1179: X *
1180: X * int ac - A count of arguments in av. Should be passed argc
1181: X * from main
1182: X * char **av - A pointer to an argument list. Should be passed
1183: X * argv from main
1184: X *
1185: X * RETURNS
1186: X *
1187: X * Normally returns 0. If an error occurs, -1 is returned
1188: X * and state is set to reflect the error.
1189: X *
1190: X */
1191: X
1192: X#ifdef __STDC__
1193: X
1194: Xint do_pax(int ac, char **av)
1195: X
1196: X#else
1197: X
1198: Xint do_pax(ac, av)
1199: Xint ac; /* argument counter */
1200: Xchar **av; /* arguments */
1201: X
1202: X#endif
1203: X{
1204: X int c;
1205: X char *dirname;
1206: X Stat st;
1207: X
1208: X /* default input/output file for PAX is STDIN/STDOUT */
1209: X ar_file = "-";
1210: X
1211: X /*
1212: X * set up the flags to reflect the default pax inteface. Unfortunately
1213: X * the pax interface has several options which are completely opposite
1214: X * of the tar and/or cpio interfaces...
1215: X */
1216: X f_unconditional = 1;
1217: X f_modification_time = 1;
1218: X f_create_dirs = 1;
1219: X f_list = 1;
1220: X blocksize = 0;
1221: X blocking = 0;
1222: X ar_interface = PAX;
1223: X ar_format = TAR; /* default interface if none given for -w */
1224: X msgfile=stdout;
1225: X
1226: X while ((c = getopt(ac, av, "ab:cdf:ilmoprs:t:uvwx:y")) != EOF) {
1227: X switch (c) {
1228: X case 'a':
1229: X f_append = 1;
1230: X f_list = 0;
1231: X break;
1232: X case 'b':
1233: X if ((blocksize = pax_optsize(optarg)) == 0) {
1234: X fatal("Bad block size");
1235: X }
1236: X break;
1237: X case 'c':
1238: X f_reverse_match = 1;
1239: X break;
1240: X case 'd':
1241: X f_create_dirs = 0;
1242: X break;
1243: X case 'f':
1244: X if (blocksize == 0) {
1245: X blocking = 1;
1246: X blocksize = 1 * BLOCKSIZE;
1247: X }
1248: X ar_file = optarg;
1249: X break;
1250: X case 'i':
1251: X f_interactive = 1;
1252: X break;
1253: X case 'l':
1254: X f_link = 1;
1255: X break;
1256: X case 'm':
1257: X f_modification_time = 0;
1258: X break;
1259: X case 'o':
1260: X f_owner = 1;
1261: X break;
1262: X case 'p':
1263: X f_access_time = 1;
1264: X break;
1265: X case 'r':
1266: X if (f_create) {
1267: X f_create = 0;
1268: X f_pass = 1;
1269: X } else {
1270: X f_list = 0;
1271: X f_extract = 1;
1272: X }
1273: X msgfile=stderr;
1274: X break;
1275: X case 's':
1276: X add_replstr(optarg);
1277: X break;
1278: X case 't':
1279: X if (blocksize == 0) {
1280: X blocking = 1;
1281: X blocksize = 10 * BLOCKSIZE;
1282: X }
1283: X ar_file = optarg;
1284: X break;
1285: X case 'u':
1286: X f_unconditional = 1;
1287: X break;
1288: X case 'v':
1289: X f_verbose = 1;
1290: X break;
1291: X case 'w':
1292: X if (f_extract) {
1293: X f_extract = 0;
1294: X f_pass = 1;
1295: X } else {
1296: X f_list = 0;
1297: X f_create = 1;
1298: X }
1299: X msgfile=stderr;
1300: X break;
1301: X case 'x':
1302: X if (strcmp(optarg, "ustar") == 0) {
1303: X ar_format = TAR;
1304: X } else if (strcmp(optarg, "cpio") == 0) {
1305: X ar_format = CPIO;
1306: X } else {
1307: X usage();
1308: X }
1309: X break;
1310: X case 'y':
1311: X f_disposition = 1;
1312: X break;
1313: X default:
1314: X usage();
1315: X }
1316: X }
1317: X
1318: X if (blocksize == 0) {
1319: X blocking = 1;
1320: X blocksize = blocking * BLOCKSIZE;
1321: X }
1322: X buf_allocate((OFFSET) blocksize);
1323: X
1324: X if (f_extract || f_list) {
1325: X open_archive(AR_READ);
1326: X get_archive_type();
1327: X read_archive();
1328: X } else if (f_create) {
1329: X if (optind >= n_argc) {
1330: X names_from_stdin++; /* args from stdin */
1331: X }
1332: X open_archive(AR_WRITE);
1333: X create_archive();
1334: X } else if (f_append) {
1335: X open_archive(AR_APPEND);
1336: X get_archive_type();
1337: X append_archive();
1338: X } else if (f_pass && optind < n_argc) {
1339: X dirname = n_argv[--n_argc];
1340: X if (LSTAT(dirname, &st) < 0) {
1341: X fatal(syserr());
1342: X }
1343: X if ((st.sb_mode & S_IFMT) != S_IFDIR) {
1344: X fatal("Not a directory");
1345: X }
1346: X if (optind >= n_argc) {
1347: X names_from_stdin++; /* args from stdin */
1348: X }
1349: X pass(dirname);
1350: X } else {
1351: X usage();
1352: X }
1353: X
1354: X return (0);
1355: X}
1356: X
1357: X
1358: X/* get_archive_type - determine input archive type from archive header
1359: X *
1360: X * DESCRIPTION
1361: X *
1362: X * reads the first block of the archive and determines the archive
1363: X * type from the data. If the archive type cannot be determined,
1364: X * processing stops, and a 1 is returned to the caller. If verbose
1365: X * mode is on, then the archive type will be printed on the standard
1366: X * error device as it is determined.
1367: X *
1368: X * FIXME
1369: X *
1370: X * be able to understand TAR and CPIO magic numbers
1371: X */
1372: X
1373: X#ifdef __STDC__
1374: X
1375: Xvoid get_archive_type(void)
1376: X
1377: X#else
1378: X
1379: Xvoid get_archive_type()
1380: X
1381: X#endif
1382: X{
1383: X if (ar_read() != 0) {
1384: X fatal("Unable to determine archive type.");
1385: X }
1386: X if (strncmp(bufstart, "070707", 6) == 0) {
1387: X ar_format = CPIO;
1388: X if (f_verbose) {
1389: X fputs("CPIO format archive\n", stderr);
1390: X }
1391: X } else if (strncmp(&bufstart[257], "ustar", 5) == 0) {
1392: X ar_format = TAR;
1393: X if (f_verbose) {
1394: X fputs("USTAR format archive\n", stderr);
1395: X }
1396: X } else {
1397: X ar_format = TAR;
1398: X }
1399: X}
1400: X
1401: X
1402: X/* pax_optsize - interpret a size argument
1403: X *
1404: X * DESCRIPTION
1405: X *
1406: X * Recognizes suffixes for blocks (512-bytes), k-bytes and megabytes.
1407: X * Also handles simple expressions containing '+' for addition.
1408: X *
1409: X * PARAMETERS
1410: X *
1411: X * char *str - A pointer to the string to interpret
1412: X *
1413: X * RETURNS
1414: X *
1415: X * Normally returns the value represented by the expression in the
1416: X * the string.
1417: X *
1418: X * ERRORS
1419: X *
1420: X * If the string cannot be interpretted, the program will fail, since
1421: X * the buffering will be incorrect.
1422: X *
1423: X */
1424: X
1425: X#ifdef __STDC__
1426: X
1427: Xstatic OFFSET pax_optsize(char *str)
1428: X
1429: X#else
1430: X
1431: Xstatic OFFSET pax_optsize(str)
1432: Xchar *str; /* pointer to string to interpret */
1433: X
1434: X#endif
1435: X{
1436: X char *idx;
1437: X OFFSET number; /* temporary storage for current number */
1438: X OFFSET result; /* cumulative total to be returned to caller */
1439: X
1440: X result = 0;
1441: X idx = str;
1442: X for (;;) {
1443: X number = 0;
1444: X while (*idx >= '0' && *idx <= '9')
1445: X number = number * 10 + *idx++ - '0';
1446: X switch (*idx++) {
1447: X case 'b':
1448: X result += number * 512;
1449: X continue;
1450: X case 'k':
1451: X result += number * 1024;
1452: X continue;
1453: X case 'm':
1454: X result += number * 1024 * 1024;
1455: X continue;
1456: X case '+':
1457: X result += number;
1458: X continue;
1459: X case '\0':
1460: X result += number;
1461: X break;
1462: X default:
1463: X break;
1464: X }
1465: X break;
1466: X }
1467: X if (*--idx) {
1468: X fatal("Unrecognizable value");
1469: X }
1470: X return (result);
1471: X}
1472: X
1473: X
1474: X/* usage - print a helpful message and exit
1475: X *
1476: X * DESCRIPTION
1477: X *
1478: X * Usage prints out the usage message for the PAX interface and then
1479: X * exits with a non-zero termination status. This is used when a user
1480: X * has provided non-existant or incompatible command line arguments.
1481: X *
1482: X * RETURNS
1483: X *
1484: X * Returns an exit status of 1 to the parent process.
1485: X *
1486: X */
1487: X
1488: X#ifdef __STDC__
1489: X
1490: Xstatic void usage(void)
1491: X
1492: X#else
1493: X
1494: Xstatic void usage()
1495: X
1496: X#endif
1497: X{
1498: X fprintf(stderr, "\
1499: XUsage: %s -[cimopuvy] [-f archive] [-s replstr] [-t device] [pattern...]\n",
1500: X myname);
1501: X fprintf(stderr, "\
1502: X %s -r [-cimopuvy] [-f archive] [-s replstr] [-t device] [pattern...]\n",
1503: X myname);
1504: X fprintf(stderr, "\
1505: X %s -w [-adimuvy] [-b blocking] [-f archive] [-s replstr]\n\
1506: X [-t device] [-x format] [pathname...]\n",
1507: X myname);
1508: X fprintf(stderr, "\
1509: X %s -r -w [-ilmopuvy] [-s replstr] [pathname...] directory\n",
1510: X myname);
1511: X exit(1);
1512: X}
1513: END_OF_pax.c
1514: if test 13026 -ne `wc -c <pax.c`; then
1515: echo shar: \"pax.c\" unpacked with wrong size!
1516: fi
1517: # end of overwriting check
1518: fi
1519: if test -f pax.h -a "${1}" != "-c" ; then
1520: echo shar: Will not over-write existing file \"pax.h\"
1521: else
1522: echo shar: Extracting \"pax.h\" \(9317 characters\)
1523: sed "s/^X//" >pax.h <<'END_OF_pax.h'
1524: X/* $Source: /u/mark/src/pax/RCS/pax.h,v $
1525: X *
1526: X * $Revision: 1.1 $
1527: X *
1528: X * pax.h - defnitions for entire program
1529: X *
1530: X * DESCRIPTION
1531: X *
1532: X * This file contains most all of the definitions required by the PAX
1533: X * software. This header is included in every source file.
1534: X *
1535: X * AUTHOR
1536: X *
1537: X * Mark H. Colburn, NAPS International ([email protected])
1538: X *
1539: X * Sponsored by The USENIX Association for public distribution.
1540: X *
1541: X * Copyright (c) 1989 Mark H. Colburn.
1542: X * All rights reserved.
1543: X *
1544: X * Redistribution and use in source and binary forms are permitted
1545: X * provided that the above copyright notice and this paragraph are
1546: X * duplicated in all such forms and that any documentation,
1547: X * advertising materials, and other materials related to such
1548: X * distribution and use acknowledge that the software was developed
1549: X * by Mark H. Colburn and sponsored by The USENIX Association.
1550: X *
1551: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
1552: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
1553: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
1554: X */
1555: X
1556: X#ifndef _PAX_H
1557: X#define _PAX_H
1558: X
1559: X/* Headers */
1560: X
1561: X#include "config.h"
1562: X#include "limits.h"
1563: X#include <stdio.h>
1564: X#include <errno.h>
1565: X#include <signal.h>
1566: X#include <ctype.h>
1567: X#include <sys/types.h>
1568: X#include <sys/ioctl.h>
1569: X#include <sys/stat.h>
1570: X#include "regexp.h"
1571: X
1572: X#if defined(DIRENT) || defined(_POSIX_SOURCE)
1573: X# ifdef PAXDIR
1574: X# include "paxdir.h"
1575: X# else
1576: X# include <dirent.h>
1577: X# endif
1578: X#else
1579: X# include <sys/dir.h>
1580: X# define dirent direct
1581: X#endif
1582: X
1583: X#ifndef major
1584: X# include <sys/sysmacros.h>
1585: X#endif /* major */
1586: X
1587: X#ifdef SYSTIME
1588: X# include <sys/time.h>
1589: X#else /* SYSTIME */
1590: X# include <time.h>
1591: X#endif /* SYSTIME */
1592: X
1593: X#ifndef V7
1594: X# include <fcntl.h>
1595: X#endif
1596: X
1597: X#ifdef XENIX
1598: X# include <sys/inode.h>
1599: X#endif
1600: X
1601: X#include <pwd.h>
1602: X#include <grp.h>
1603: X#include <sys/file.h>
1604: X
1605: X/* Defines */
1606: X
1607: X#define STDIN 0 /* Standard input file descriptor */
1608: X#define STDOUT 1 /* Standard output file descriptor */
1609: X
1610: X/*
1611: X * Open modes; there is no <fcntl.h> with v7 UNIX and other versions of
1612: X * UNIX may not have all of these defined...
1613: X */
1614: X
1615: X#ifndef O_RDONLY
1616: X# define O_RDONLY 0
1617: X#endif
1618: X
1619: X#ifndef O_WRONLY
1620: X# define O_WRONLY 1
1621: X#endif
1622: X
1623: X#ifndef O_RDWR
1624: X# define O_WRONLY 2
1625: X#endif
1626: X
1627: X#ifndef O_BINARY
1628: X# define O_BINARY 0
1629: X#endif
1630: X
1631: X#ifndef NULL
1632: X# define NULL 0
1633: X#endif
1634: X
1635: X#define TMAGIC "ustar" /* ustar and a null */
1636: X#define TMAGLEN 6
1637: X#define TVERSION "00" /* 00 and no null */
1638: X#define TVERSLEN 2
1639: X
1640: X/* Values used in typeflag field */
1641: X#define REGTYPE '0' /* Regular File */
1642: X#define AREGTYPE '\0' /* Regular File */
1643: X#define LNKTYPE '1' /* Link */
1644: X#define SYMTYPE '2' /* Reserved */
1645: X#define CHRTYPE '3' /* Character Special File */
1646: X#define BLKTYPE '4' /* Block Special File */
1647: X#define DIRTYPE '5' /* Directory */
1648: X#define FIFOTYPE '6' /* FIFO */
1649: X#define CONTTYPE '7' /* Reserved */
1650: X
1651: X#define BLOCKSIZE 512 /* all output is padded to 512 bytes */
1652: X#define uint unsigned int /* Not always in types.h */
1653: X#define ushort unsigned short /* Not always in types.h */
1654: X#define BLOCK 5120 /* Default archive block size */
1655: X#define H_COUNT 10 /* Number of items in ASCII header */
1656: X#define H_PRINT "%06o%06o%06o%06o%06o%06o%06o%011lo%06o%011lo"
1657: X#define H_SCAN "%6ho%6ho%6ho%6ho%6ho%6ho%6ho%11lo%6o%11lo"
1658: X#define H_STRLEN 70 /* ASCII header string length */
1659: X#define M_ASCII "070707" /* ASCII magic number */
1660: X#define M_BINARY 070707 /* Binary magic number */
1661: X#define M_STRLEN 6 /* ASCII magic number length */
1662: X#define PATHELEM 256 /* Pathname element count limit */
1663: X#define S_IFSHF 12 /* File type shift (shb in stat.h) */
1664: X#define S_IPERM 07777 /* File permission bits (shb in stat.h) */
1665: X#define S_IPEXE 07000 /* Special execution bits (shb in stat.h) */
1666: X#define S_IPOPN 0777 /* Open access bits (shb in stat.h) */
1667: X
1668: X/*
1669: X * Trailer pathnames. All must be of the same length.
1670: X */
1671: X#define TRAILER "TRAILER!!!" /* Archive trailer (cpio compatible) */
1672: X#define TRAILZ 11 /* Trailer pathname length (including null) */
1673: X
1674: X#include "port.h"
1675: X
1676: X
1677: X#define TAR 1
1678: X#define CPIO 2
1679: X#define PAX 3
1680: X
1681: X#define AR_READ 0
1682: X#define AR_WRITE 1
1683: X#define AR_EXTRACT 2
1684: X#define AR_APPEND 4
1685: X
1686: X/*
1687: X * Header block on tape.
1688: X */
1689: X#define NAMSIZ 100
1690: X#define PFIXSIZ 155
1691: X#define TUNMLEN 32
1692: X#define TGNMLEN 32
1693: X
1694: X/* The checksum field is filled with this while the checksum is computed. */
1695: X#define CHKBLANKS " " /* 8 blanks, no null */
1696: X
1697: X/*
1698: X * Exit codes from the "tar" program
1699: X */
1700: X#define EX_SUCCESS 0 /* success! */
1701: X#define EX_ARGSBAD 1 /* invalid args */
1702: X#define EX_BADFILE 2 /* invalid filename */
1703: X#define EX_BADARCH 3 /* bad archive */
1704: X#define EX_SYSTEM 4 /* system gave unexpected error */
1705: X
1706: X#define ROUNDUP(a,b) (((a) % (b)) == 0 ? (a) : ((a) + ((b) - ((a) % (b)))))
1707: X
1708: X/*
1709: X * Mininum value.
1710: X */
1711: X#define MIN(a, b) (((a) < (b)) ? (a) : (b))
1712: X
1713: X/*
1714: X * Remove a file or directory.
1715: X */
1716: X#define REMOVE(name, asb) \
1717: X (((asb)->sb_mode & S_IFMT) == S_IFDIR ? rmdir(name) : unlink(name))
1718: X
1719: X/*
1720: X * Cast and reduce to unsigned short.
1721: X */
1722: X#define USH(n) (((ushort) (n)) & 0177777)
1723: X
1724: X
1725: X/* Type Definitions */
1726: X
1727: X/*
1728: X * Binary archive header (obsolete).
1729: X */
1730: Xtypedef struct {
1731: X short b_dev; /* Device code */
1732: X ushort b_ino; /* Inode number */
1733: X ushort b_mode; /* Type and permissions */
1734: X ushort b_uid; /* Owner */
1735: X ushort b_gid; /* Group */
1736: X short b_nlink; /* Number of links */
1737: X short b_rdev; /* Real device */
1738: X ushort b_mtime[2]; /* Modification time (hi/lo) */
1739: X ushort b_name; /* Length of pathname (with null) */
1740: X ushort b_size[2]; /* Length of data */
1741: X} Binary;
1742: X
1743: X/*
1744: X * File status with symbolic links. Kludged to hold symbolic link pathname
1745: X * within structure.
1746: X */
1747: Xtypedef struct {
1748: X struct stat sb_stat;
1749: X char sb_link[PATH_MAX + 1];
1750: X} Stat;
1751: X
1752: X#define STAT(name, asb) stat(name, &(asb)->sb_stat)
1753: X#define FSTAT(fd, asb) fstat(fd, &(asb)->sb_stat)
1754: X
1755: X#define sb_dev sb_stat.st_dev
1756: X#define sb_ino sb_stat.st_ino
1757: X#define sb_mode sb_stat.st_mode
1758: X#define sb_nlink sb_stat.st_nlink
1759: X#define sb_uid sb_stat.st_uid
1760: X#define sb_gid sb_stat.st_gid
1761: X#define sb_rdev sb_stat.st_rdev
1762: X#define sb_size sb_stat.st_size
1763: X#define sb_atime sb_stat.st_atime
1764: X#define sb_mtime sb_stat.st_mtime
1765: X#define sb_ctime sb_stat.st_ctime
1766: X
1767: X#ifdef S_IFLNK
1768: X# define LSTAT(name, asb) lstat(name, &(asb)->sb_stat)
1769: X# define sb_blksize sb_stat.st_blksize
1770: X# define sb_blocks sb_stat.st_blocks
1771: X#else /* S_IFLNK */
1772: X/*
1773: X * File status without symbolic links.
1774: X */
1775: X# define LSTAT(name, asb) stat(name, &(asb)->sb_stat)
1776: X#endif /* S_IFLNK */
1777: X
1778: X/*
1779: X * Hard link sources. One or more are chained from each link structure.
1780: X */
1781: Xtypedef struct name {
1782: X struct name *p_forw; /* Forward chain (terminated) */
1783: X struct name *p_back; /* Backward chain (circular) */
1784: X char *p_name; /* Pathname to link from */
1785: X} Path;
1786: X
1787: X/*
1788: X * File linking information. One entry exists for each unique file with with
1789: X * outstanding hard links.
1790: X */
1791: Xtypedef struct link {
1792: X struct link *l_forw; /* Forward chain (terminated) */
1793: X struct link *l_back; /* Backward chain (terminated) */
1794: X dev_t l_dev; /* Device */
1795: X ino_t l_ino; /* Inode */
1796: X ushort l_nlink; /* Unresolved link count */
1797: X OFFSET l_size; /* Length */
1798: X char *l_name; /* pathname to link from */
1799: X Path *l_path; /* Pathname which link to l_name */
1800: X} Link;
1801: X
1802: X/*
1803: X * Structure for ed-style replacement strings (-s option).
1804: X*/
1805: Xtypedef struct replstr {
1806: X regexp *comp; /* compiled regular expression */
1807: X char *replace; /* replacement string */
1808: X char print; /* >0 if we are to print replacement */
1809: X char global; /* >0 if we are to replace globally */
1810: X struct replstr *next; /* pointer to next record */
1811: X} Replstr;
1812: X
1813: X
1814: X/*
1815: X * This has to be included here to insure that all of the type
1816: X * delcarations are declared for the prototypes.
1817: X */
1818: X#include "func.h"
1819: X
1820: X
1821: X#ifndef NO_EXTERN
1822: X/* Globally Available Identifiers */
1823: X
1824: Xextern char *ar_file;
1825: Xextern char *bufend;
1826: Xextern char *bufstart;
1827: Xextern char *bufidx;
1828: Xextern char *myname;
1829: Xextern int archivefd;
1830: Xextern int blocking;
1831: Xextern uint blocksize;
1832: Xextern int gid;
1833: Xextern int head_standard;
1834: Xextern int ar_interface;
1835: Xextern int ar_format;
1836: Xextern int mask;
1837: Xextern int ttyf;
1838: Xextern int uid;
1839: Xextern OFFSET total;
1840: Xextern short areof;
1841: Xextern short f_append;
1842: Xextern short f_create;
1843: Xextern short f_extract;
1844: Xextern short f_follow_links;
1845: Xextern short f_interactive;
1846: Xextern short f_linksleft;
1847: Xextern short f_list;
1848: Xextern short f_modified;
1849: Xextern short f_verbose;
1850: Xextern short f_link;
1851: Xextern short f_owner;
1852: Xextern short f_access_time;
1853: Xextern short f_pass;
1854: Xextern short f_pass;
1855: Xextern short f_disposition;
1856: Xextern short f_reverse_match;
1857: Xextern short f_modification_time;
1858: Xextern short f_create_dirs;
1859: Xextern short f_unconditional;
1860: Xextern short f_newer;
1861: Xextern time_t now;
1862: Xextern uint arvolume;
1863: Xextern int names_from_stdin;
1864: Xextern Replstr *rplhead;
1865: Xextern Replstr *rpltail;
1866: Xextern char **n_argv;
1867: Xextern int n_argc;
1868: Xextern FILE *msgfile;
1869: X#endif /* NO_EXTERN */
1870: X
1871: Xextern char *optarg;
1872: Xextern int optind;
1873: Xextern int sys_nerr;
1874: Xextern char *sys_errlist[];
1875: Xextern int errno;
1876: X
1877: X#endif /* _PAX_H */
1878: END_OF_pax.h
1879: if test 9317 -ne `wc -c <pax.h`; then
1880: echo shar: \"pax.h\" unpacked with wrong size!
1881: fi
1882: # end of overwriting check
1883: fi
1884: if test -f tar.c -a "${1}" != "-c" ; then
1885: echo shar: Will not over-write existing file \"tar.c\"
1886: else
1887: echo shar: Extracting \"tar.c\" \(7881 characters\)
1888: sed "s/^X//" >tar.c <<'END_OF_tar.c'
1889: X/* $Source: /u/mark/src/pax/RCS/tar.c,v $
1890: X *
1891: X * $Revision: 1.1 $
1892: X *
1893: X * tar.c - tar specific functions for archive handling
1894: X *
1895: X * DESCRIPTION
1896: X *
1897: X * These routines provide a tar conforming interface to the pax
1898: X * program.
1899: X *
1900: X * AUTHOR
1901: X *
1902: X * Mark H. Colburn, NAPS International ([email protected])
1903: X *
1904: X * Sponsored by The USENIX Association for public distribution.
1905: X *
1906: X * Copyright (c) 1989 Mark H. Colburn.
1907: X * All rights reserved.
1908: X *
1909: X * Redistribution and use in source and binary forms are permitted
1910: X * provided that the above copyright notice is duplicated in all such
1911: X * forms and that any documentation, advertising materials, and other
1912: X * materials related to such distribution and use acknowledge that the
1913: X * software was developed by Mark H. Colburn and sponsored by The
1914: X * USENIX Association.
1915: X *
1916: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
1917: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
1918: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
1919: X *
1920: X * $Log: tar.c,v $
1921: X * Revision 1.1 88/12/23 18:02:38 mark
1922: X * Initial revision
1923: X *
1924: X */
1925: X
1926: X#ifndef lint
1927: Xstatic char *ident = "$Id: tar.c,v 1.1 88/12/23 18:02:38 mark Rel $";
1928: Xstatic char *copyright ="Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.";
1929: X#endif /* not lint */
1930: X
1931: X/* Headers */
1932: X
1933: X#include "pax.h"
1934: X
1935: X
1936: X/* Defines */
1937: X
1938: X#define DEF_BLOCKING 20 /* default blocking factor for extract */
1939: X
1940: X
1941: X/* Function Prototypes */
1942: X
1943: X#ifdef __STDC__
1944: X
1945: Xstatic int taropt(int , char **, char *);
1946: Xstatic void usage(void);
1947: X
1948: X#else /* !__STDC__ */
1949: X
1950: Xstatic int taropt();
1951: Xstatic void usage();
1952: X
1953: X#endif /* __STDC__ */
1954: X
1955: X
1956: X/* do_tar - main routine for tar.
1957: X *
1958: X * DESCRIPTION
1959: X *
1960: X * Provides a tar interface to the PAX program. All tar standard
1961: X * command line options are supported.
1962: X *
1963: X * PARAMETERS
1964: X *
1965: X * int argc - argument count (argc from main)
1966: X * char **argv - argument list (argv from main)
1967: X *
1968: X * RETURNS
1969: X *
1970: X * zero
1971: X */
1972: X
1973: X#ifdef __STDC__
1974: X
1975: Xint do_tar(int argc, char **argv)
1976: X
1977: X#else
1978: X
1979: Xint do_tar(argc, argv)
1980: Xint argc; /* argument count (argc from main) */
1981: Xchar **argv; /* argument list (argv from main) */
1982: X
1983: X#endif
1984: X{
1985: X int c; /* Option letter */
1986: X
1987: X /* Set default option values */
1988: X names_from_stdin = 0;
1989: X ar_file = getenv("TAPE"); /* From environment, or */
1990: X if (ar_file == 0) {
1991: X ar_file = DEF_AR_FILE; /* From Makefile */
1992: X }
1993: X
1994: X /*
1995: X * set up the flags to reflect the default pax inteface. Unfortunately
1996: X * the pax interface has several options which are completely opposite
1997: X * of the tar and/or cpio interfaces...
1998: X */
1999: X f_unconditional = 1;
2000: X f_modification_time = 1;
2001: X f_create_dirs = 1;
2002: X blocking = 0;
2003: X ar_interface = TAR;
2004: X ar_format = TAR;
2005: X msgfile=stdout;
2006: X
2007: X /* Parse options */
2008: X while ((c = taropt(argc, argv, "b:cf:hlmortuvwx")) != EOF) {
2009: X switch (c) {
2010: X case 'b': /* specify blocking factor */
2011: X /*
2012: X * FIXME - we should use a conversion routine that does
2013: X * some kind of reasonable error checking, but...
2014: X */
2015: X blocking = atoi(optarg);
2016: X break;
2017: X case 'c': /* create a new archive */
2018: X f_create = 1;
2019: X break;
2020: X case 'f': /* specify input/output file */
2021: X ar_file = optarg;
2022: X break;
2023: X case 'h':
2024: X f_follow_links = 1; /* follow symbolic links */
2025: X break;
2026: X case 'l': /* report unresolved links */
2027: X f_linksleft = 1;
2028: X break;
2029: X case 'm': /* don't restore modification times */
2030: X f_modified = 1;
2031: X break;
2032: X case 'o': /* take on user's group rather than
2033: X * archives */
2034: X break;
2035: X case 'r': /* named files are appended to archive */
2036: X f_append = 1;
2037: X break;
2038: X case 't':
2039: X f_list = 1; /* list files in archive */
2040: X break;
2041: X case 'u': /* named files are added to archive */
2042: X f_newer = 1;
2043: X break;
2044: X case 'v': /* verbose mode */
2045: X f_verbose = 1;
2046: X break;
2047: X case 'w': /* user interactive mode */
2048: X f_disposition = 1;
2049: X break;
2050: X case 'x': /* named files are extracted from archive */
2051: X f_extract = 1;
2052: X break;
2053: X case '?':
2054: X usage();
2055: X exit(EX_ARGSBAD);
2056: X }
2057: X }
2058: X
2059: X /* check command line argument sanity */
2060: X if (f_create + f_extract + f_list + f_append + f_newer != 1) {
2061: X (void) fprintf(stderr,
2062: X "%s: you must specify exactly one of the c, t, r, u or x options\n",
2063: X myname);
2064: X usage();
2065: X exit(EX_ARGSBAD);
2066: X }
2067: X
2068: X /* set the blocking factor, if not set by the user */
2069: X if (blocking == 0) {
2070: X#ifdef USG
2071: X if (f_extract || f_list) {
2072: X blocking = DEF_BLOCKING;
2073: X fprintf(stderr, "Tar: blocksize = %d\n", blocking);
2074: X } else {
2075: X blocking = 1;
2076: X }
2077: X#else /* !USG */
2078: X blocking = 20;
2079: X#endif /* USG */
2080: X }
2081: X blocksize = blocking * BLOCKSIZE;
2082: X buf_allocate((OFFSET) blocksize);
2083: X
2084: X if (f_create) {
2085: X open_archive(AR_WRITE);
2086: X create_archive(); /* create the archive */
2087: X } else if (f_extract) {
2088: X open_archive(AR_READ);
2089: X read_archive(); /* extract files from archive */
2090: X } else if (f_list) {
2091: X open_archive(AR_READ);
2092: X read_archive(); /* read and list contents of archive */
2093: X } else if (f_append) {
2094: X open_archive(AR_APPEND);
2095: X append_archive(); /* append files to archive */
2096: X }
2097: X
2098: X if (f_linksleft) {
2099: X linkleft(); /* report any unresolved links */
2100: X }
2101: X
2102: X return (0);
2103: X}
2104: X
2105: X
2106: X/* taropt - tar specific getopt
2107: X *
2108: X * DESCRIPTION
2109: X *
2110: X * Plug-compatible replacement for getopt() for parsing tar-like
2111: X * arguments. If the first argument begins with "-", it uses getopt;
2112: X * otherwise, it uses the old rules used by tar, dump, and ps.
2113: X *
2114: X * PARAMETERS
2115: X *
2116: X * int argc - argument count (argc from main)
2117: X * char **argv - argument list (argv from main)
2118: X * char *optstring - sring which describes allowable options
2119: X *
2120: X * RETURNS
2121: X *
2122: X * Returns the next option character in the option string(s). If the
2123: X * option requires an argument and an argument was given, the argument
2124: X * is pointed to by "optarg". If no option character was found,
2125: X * returns an EOF.
2126: X *
2127: X */
2128: X
2129: X#ifdef __STDC__
2130: X
2131: Xstatic int taropt(int argc, char **argv, char *optstring)
2132: X
2133: X#else
2134: X
2135: Xstatic int taropt(argc, argv, optstring)
2136: Xint argc;
2137: Xchar **argv;
2138: Xchar *optstring;
2139: X
2140: X#endif
2141: X{
2142: X extern char *optarg; /* Points to next arg */
2143: X extern int optind; /* Global argv index */
2144: X static char *key; /* Points to next keyletter */
2145: X static char use_getopt; /* !=0 if argv[1][0] was '-' */
2146: X char c;
2147: X char *place;
2148: X
2149: X optarg = NULL;
2150: X
2151: X if (key == NULL) { /* First time */
2152: X if (argc < 2)
2153: X return EOF;
2154: X key = argv[1];
2155: X if (*key == '-')
2156: X use_getopt++;
2157: X else
2158: X optind = 2;
2159: X }
2160: X if (use_getopt) {
2161: X return getopt(argc, argv, optstring);
2162: X }
2163: X
2164: X c = *key++;
2165: X if (c == '\0') {
2166: X key--;
2167: X return EOF;
2168: X }
2169: X place = strchr(optstring, c);
2170: X
2171: X if (place == NULL || c == ':') {
2172: X fprintf(stderr, "%s: unknown option %c\n", argv[0], c);
2173: X return ('?');
2174: X }
2175: X place++;
2176: X if (*place == ':') {
2177: X if (optind < argc) {
2178: X optarg = argv[optind];
2179: X optind++;
2180: X } else {
2181: X fprintf(stderr, "%s: %c argument missing\n",
2182: X argv[0], c);
2183: X return ('?');
2184: X }
2185: X }
2186: X return (c);
2187: X}
2188: X
2189: X
2190: X/* usage - print a helpful message and exit
2191: X *
2192: X * DESCRIPTION
2193: X *
2194: X * Usage prints out the usage message for the TAR interface and then
2195: X * exits with a non-zero termination status. This is used when a user
2196: X * has provided non-existant or incompatible command line arguments.
2197: X *
2198: X * RETURNS
2199: X *
2200: X * Returns an exit status of 1 to the parent process.
2201: X *
2202: X */
2203: X
2204: X#ifdef __STDC__
2205: X
2206: Xstatic void usage(void)
2207: X
2208: X#else
2209: X
2210: Xstatic void usage()
2211: X
2212: X#endif
2213: X{
2214: X fprintf(stderr, "\
2215: XUsage: %s -c[bfvw] device block filename..\n", myname);
2216: X fprintf(stderr, "\
2217: X %s -r[bvw] device block [filename...]\n", myname);
2218: X fprintf(stderr, "\
2219: X %s -t[vf] device\n", myname);
2220: X fprintf(stderr, "\
2221: X %s -u[bvw] device block [filename...]\n", myname);
2222: X fprintf(stderr, "\
2223: X %s -x[flmovw] device [filename...]\n", myname);
2224: X exit(1);
2225: X}
2226: END_OF_tar.c
2227: if test 7881 -ne `wc -c <tar.c`; then
2228: echo shar: \"tar.c\" unpacked with wrong size!
2229: fi
2230: # end of overwriting check
2231: fi
2232: echo shar: End of archive 3 \(of 6\).
2233: cp /dev/null ark3isdone
2234: MISSING=""
2235: for I in 1 2 3 4 5 6 ; do
2236: if test ! -f ark${I}isdone ; then
2237: MISSING="${MISSING} ${I}"
2238: fi
2239: done
2240: if test "${MISSING}" = "" ; then
2241: echo You have unpacked all 6 archives.
2242: rm -f ark[1-9]isdone
2243: else
2244: echo You still need to unpack the following archives:
2245: echo " " ${MISSING}
2246: fi
2247: ## End of shell archive.
2248: exit 0
2249:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.