![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to part02.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 part02.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 2 (of 6)." ! 7: # Contents: cpio.1 create.c func.h link.c names.c replace.c ttyio.c ! 8: # warn.c ! 9: # Wrapped by mark@jhereg on Tue Dec 27 19:37:38 1988 ! 10: PATH=/bin:/usr/bin:/usr/ucb ; export PATH ! 11: if test -f cpio.1 -a "${1}" != "-c" ; then ! 12: echo shar: Will not over-write existing file \"cpio.1\" ! 13: else ! 14: echo shar: Extracting \"cpio.1\" \(6231 characters\) ! 15: sed "s/^X//" >cpio.1 <<'END_OF_cpio.1' ! 16: X.\" $Id: cpio.1,v 1.1 88/12/23 18:02:04 mark Rel $ ! 17: X.TH CPIO 1 "USENIX Association" "" ! 18: X.SH NAME ! 19: Xcpio \- copy file archives in and out ! 20: X.SH SYNOPSIS ! 21: X.B cpio ! 22: X.BR \-o [ Bacv ] ! 23: X.br ! 24: X.B cpio ! 25: X.BR \-i [ Bcdfmrtuv ] ! 26: X.RI [ pattern... ] ! 27: X.br ! 28: X.B cpio ! 29: X.BR \-p [ adlmruv ] ! 30: X.I directory ! 31: X.SH DESCRIPTION ! 32: XThe ! 33: X.B cpio ! 34: Xutility produces and reads files in the format specified by the ! 35: X.B cpio ! 36: X.B "Archive/Interchange File Format" ! 37: Xspecified in ! 38: X.IR "IEEE Std. 1003.1-1988" . ! 39: X.PP ! 40: XThe ! 41: X.B "cpio -i" ! 42: X(copy in) utility extracts files from the standard input, which is ! 43: Xassumed to be the product of a previous ! 44: X.B "cpio -o" . ! 45: XOnly files with names that match ! 46: X.I patterns ! 47: Xare selected. ! 48: XMultiple ! 49: X.I patterns ! 50: Xmay be specified and if no ! 51: X.I patterns ! 52: Xare specified, the default for ! 53: X.I patterns ! 54: Xis \*, selecting all files. ! 55: XThe extracted files are conditionally created and copied into the ! 56: Xcurrent directory, and possibly any levels below, based upon the ! 57: Xoptions described below and the permissions of the files will be those ! 58: Xof the previous ! 59: X.B "cpio -o" . ! 60: XThe owner and group of the files will be that of the current user ! 61: Xunless the user has appropriate privileges, which causes ! 62: X.B cpio ! 63: Xto retains the owner and group of the files of the previous ! 64: X.B "cpio -o" . ! 65: X.PP ! 66: XThe ! 67: X.B "cpio -p" ! 68: X(pass) utility reads the standard input to obtain a list of path names ! 69: Xof files that are conditionally created and copied into the ! 70: Xdestination ! 71: X.I directory ! 72: Xbased upon the options described below. ! 73: X.PP ! 74: XIf an error is detected, the cause is reported and the ! 75: X.B cpio ! 76: Xutility will continue to copy other files. ! 77: X.B cpio ! 78: Xwill skip over any unrecognized files which it encounters in the archive. ! 79: X.PP ! 80: XThe following restrictions apply to the ! 81: X.B cpio ! 82: Xutility: ! 83: X.IP 1 .25i ! 84: XPathnames are restricted to 256 characters. ! 85: X.IP 2 .25i ! 86: XAppropriate privileges are required to copy special files. ! 87: X.IP 3 .25i ! 88: XBlocks are reported in 512-byte quantities. ! 89: X.SS Options ! 90: XThe following options are available: ! 91: X.TP .5i ! 92: X.B \-B ! 93: XInput/output is to be blocked 5120 bytes to the record. ! 94: XCan only be used with ! 95: X.B "cpio -o" ! 96: Xor ! 97: X.B "cpio -i" ! 98: Xfor data that is directed to or from character special files. ! 99: X.TP .5i ! 100: X.B \-a ! 101: XReset access times of input files after they have been copied. ! 102: XWhen the ! 103: X.B \-l ! 104: Xoption is also specified, the linked files do not have their access ! 105: Xtimes reset. ! 106: XCan only be used with ! 107: X.B "cpio -o" ! 108: Xor ! 109: X.B "cpio -i" . ! 110: X.TP .5i ! 111: X.B \-c ! 112: XWrite header information in ASCII character for for portability. ! 113: XCan only be used with ! 114: X.B "cpio -i" ! 115: Xor ! 116: X.B "cpio -o" . ! 117: XNote that this option should always be used to write portable files. ! 118: X.TP .5i ! 119: X.B \-d ! 120: XCreates directories as needed. ! 121: XCan only be used with ! 122: X.B "cpio -i" ! 123: Xor ! 124: X.B "cpio -p" . ! 125: X.TP .5i ! 126: X.B \-f ! 127: XCopy in all files except those in ! 128: X.I patterns . ! 129: XCan only be used with ! 130: X.B "cpio -i" . ! 131: X.TP .5i ! 132: X.B \-l ! 133: XWhenever possible, link files rather than copying them. ! 134: XCan only be used with ! 135: X.B "cpio -p" . ! 136: X.TP .5i ! 137: X.B \-m ! 138: XRetain previous modification times. ! 139: XThis option is ineffective on directories that are being copied. ! 140: XCan only be used with ! 141: X.B "cpio -i" ! 142: Xor ! 143: X.B "cpio -p" . ! 144: X.TP .5i ! 145: X.B \-r ! 146: XInteractively rename files. ! 147: XThe user is asked whether to rename ! 148: X.I pattern ! 149: Xeach invocation. ! 150: XRead and write permissions for ! 151: X.B "/dev/tty" ! 152: Xare required for this option. ! 153: XIf the user types a null line, the file is skipped. ! 154: XShould only be used with ! 155: X.B "cpio -i" ! 156: Xor ! 157: X.B "cpio -o" . ! 158: X.TP .5i ! 159: X.B \-t ! 160: XPrint a table of contents of the input. ! 161: XNo files are created. ! 162: XCan only be used with ! 163: X.B "cpio -i" . ! 164: X.TP .5i ! 165: X.B \-u ! 166: XCopy files unconditionally; usually an older file will not replace a ! 167: Xnew file with the same name. ! 168: XCan only be used with ! 169: X.B "cpio -i" ! 170: Xor ! 171: X.B "cpio -p" . ! 172: X.TP .5i ! 173: X.B \-v ! 174: XVerbose: cause the names of the affected files to be printed. ! 175: XCan only be used with ! 176: X.B "cpio -i" . ! 177: XProvides a detailed listing when used with the ! 178: X.B \-t ! 179: Xoption. ! 180: X.SS Operands ! 181: XThe following operands are available: ! 182: X.TP 1i ! 183: X.I patterns ! 184: XSimple regular expressions given in the name-generating notation of the ! 185: Xshell. ! 186: X.TP 1i ! 187: X.I directory ! 188: XThe destination directory. ! 189: X.SS "Exit Status" ! 190: XThe ! 191: X.B cpio ! 192: Xutility exits with one of the following values: ! 193: X.TP .5i ! 194: X0 ! 195: XAll input files were copied. ! 196: X.TP .5i ! 197: X2 ! 198: XThe utility encountered errors in copying or accessing files or ! 199: Xdirectories. ! 200: XAn error will be reported for nonexistent files or directories, or ! 201: Xpermissions that do not allow the user to access the source or target ! 202: Xfiles. ! 203: X.SS ! 204: XIt is important to use the ! 205: X.B "-depth" ! 206: Xoption of the ! 207: X.B find ! 208: Xutility to generate pathnames for ! 209: X.B cpio . ! 210: XThis eliminates problems ! 211: X.B cpio ! 212: Xcould have trying to create files under read-only directories. ! 213: X.PP ! 214: XThe following command: ! 215: X.RS ! 216: Xls | cpio -o > ../newfile ! 217: X.RE ! 218: Xcopies out the files listed by the ! 219: X.B ls ! 220: Xutility and redirects them to the file ! 221: X.B newfile . ! 222: X.PP ! 223: XThe following command: ! 224: X.RS ! 225: Xcat newfile | cpio -id "memo/al" "memo/b*" ! 226: X.RE ! 227: Xuses the output file ! 228: X.B newfile ! 229: Xfrom the ! 230: X.B "cpio -o" ! 231: Xutility, takes those files that match the patterns ! 232: X.B "memo/al" ! 233: Xand ! 234: X.B "memo/b*" , ! 235: Xcreates the directories below the current directory, and places the ! 236: Xfiles in the appropriate directories. ! 237: X.PP ! 238: XThe command ! 239: X.RS ! 240: Xfind . -depth -print | cpio -pdlmv newdir ! 241: X.RE ! 242: Xtakes the file names piped to it from the ! 243: X.B find ! 244: Xutility and copies or links those files to another directory ! 245: Xnamed ! 246: X.B newdir , ! 247: Xwhile retaining the modification time. ! 248: X.SH FILES ! 249: X.TP 1i ! 250: X/dev/tty ! 251: Xused to prompt the user for information when the ! 252: X.B \-i ! 253: Xor ! 254: X.B \-r ! 255: Xoptions are specified. ! 256: X.SH "SEE ALSO" ! 257: Xfind(1), pax(1), tar(1), cpio(5), tar(5) ! 258: X.SH COPYRIGHT ! 259: XCopyright (c) 1989 Mark H. Colburn. ! 260: X.br ! 261: XAll rights reserved. ! 262: X.PP ! 263: XRedistribution and use in source and binary forms are permitted ! 264: Xprovided that the above copyright notice is duplicated in all such ! 265: Xforms and that any documentation, advertising materials, and other ! 266: Xmaterials related to such distribution and use acknowledge that the ! 267: Xsoftware was developed by Mark H. Colburn and sponsored by The ! 268: XUSENIX Association. ! 269: X.PP ! 270: XTHE SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR ! 271: XIMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED ! 272: XWARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 273: X.SH AUTHOR ! 274: XMark H. Colburn ! 275: X.br ! 276: XNAPS International ! 277: X.br ! 278: X117 Mackubin Street, Suite 1 ! 279: X.br ! 280: XSt. Paul, MN 55102 ! 281: X.br ! 282: [email protected] ! 283: X.sp 2 ! 284: XSponsored by ! 285: X.B "The USENIX Association" ! 286: Xfor public distribution. ! 287: END_OF_cpio.1 ! 288: if test 6231 -ne `wc -c <cpio.1`; then ! 289: echo shar: \"cpio.1\" unpacked with wrong size! ! 290: fi ! 291: # end of overwriting check ! 292: fi ! 293: if test -f create.c -a "${1}" != "-c" ; then ! 294: echo shar: Will not over-write existing file \"create.c\" ! 295: else ! 296: echo shar: Extracting \"create.c\" \(7830 characters\) ! 297: sed "s/^X//" >create.c <<'END_OF_create.c' ! 298: X/* $Source: /u/mark/src/pax/RCS/create.c,v $ ! 299: X * ! 300: X * $Revision: 1.1 $ ! 301: X * ! 302: X * create.c - Create a tape archive. ! 303: X * ! 304: X * DESCRIPTION ! 305: X * ! 306: X * These functions are used to create/write and archive from an set of ! 307: X * named files. ! 308: X * ! 309: X * AUTHOR ! 310: X * ! 311: X * Mark H. Colburn, NAPS International ([email protected]) ! 312: X * ! 313: X * Sponsored by The USENIX Association for public distribution. ! 314: X * ! 315: X * Copyright (c) 1989 Mark H. Colburn. ! 316: X * All rights reserved. ! 317: X * ! 318: X * Redistribution and use in source and binary forms are permitted ! 319: X * provided that the above copyright notice is duplicated in all such ! 320: X * forms and that any documentation, advertising materials, and other ! 321: X * materials related to such distribution and use acknowledge that the ! 322: X * software was developed * by Mark H. Colburn and sponsored by The ! 323: X * USENIX Association. ! 324: X * ! 325: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR ! 326: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED ! 327: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 328: X * ! 329: X * $Log: create.c,v $ ! 330: X * Revision 1.1 88/12/23 18:02:06 mark ! 331: X * Initial revision ! 332: X * ! 333: X */ ! 334: X ! 335: X#ifndef lint ! 336: Xstatic char *ident = "$Id: create.c,v 1.1 88/12/23 18:02:06 mark Rel $"; ! 337: Xstatic char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n"; ! 338: X#endif /* ! lint */ ! 339: X ! 340: X ! 341: X/* Headers */ ! 342: X ! 343: X#include "pax.h" ! 344: X ! 345: X ! 346: X/* Function Prototypes */ ! 347: X ! 348: X#ifdef __STDC__ ! 349: X ! 350: Xstatic void writetar(char *, Stat *); ! 351: Xstatic void writecpio(char *, Stat *); ! 352: Xstatic char tartype(int); ! 353: X ! 354: X#else /* !__STDC__ */ ! 355: X ! 356: Xstatic void writetar(); ! 357: Xstatic void writecpio(); ! 358: Xstatic char tartype(); ! 359: X ! 360: X#endif /* __STDC__ */ ! 361: X ! 362: X ! 363: X/* create_archive - create a tar archive. ! 364: X * ! 365: X * DESCRIPTION ! 366: X * ! 367: X * Create_archive is used as an entry point to both create and append ! 368: X * archives. Create archive goes through the files specified by the ! 369: X * user and writes each one to the archive if it can. Create_archive ! 370: X * knows how to write both cpio and tar headers and the padding which ! 371: X * is needed for each type of archive. ! 372: X * ! 373: X * RETURNS ! 374: X * ! 375: X * Always returns 0 ! 376: X */ ! 377: X ! 378: X#ifdef __STDC__ ! 379: X ! 380: Xint create_archive(void) ! 381: X ! 382: X#else ! 383: X ! 384: Xint create_archive() ! 385: X ! 386: X#endif ! 387: X{ ! 388: X char name[PATH_MAX + 1]; ! 389: X Stat sb; ! 390: X int fd; ! 391: X ! 392: X while (name_next(name, &sb) != -1) { ! 393: X if ((fd = openi(name, &sb)) < 0) { ! 394: X /* FIXME: pax wants to exit here??? */ ! 395: X continue; ! 396: X } ! 397: X ! 398: X if (rplhead != NULL) { ! 399: X rpl_name(name); ! 400: X if (strlen(name) == 0) { ! 401: X continue; ! 402: X } ! 403: X } ! 404: X if (get_disposition("add", name) || get_newname(name, sizeof(name))) { ! 405: X /* skip file... */ ! 406: X if (fd) { ! 407: X close(fd); ! 408: X } ! 409: X continue; ! 410: X } ! 411: X ! 412: X if (!f_link && sb.sb_nlink > 1) { ! 413: X if (islink(name, &sb)) { ! 414: X sb.sb_size = 0; ! 415: X } ! 416: X linkto(name, &sb); ! 417: X } ! 418: X if (ar_format == TAR) { ! 419: X writetar(name, &sb); ! 420: X } else { ! 421: X writecpio(name, &sb); ! 422: X } ! 423: X if (fd) { ! 424: X outdata(fd, name, sb.sb_size); ! 425: X } ! 426: X if (f_verbose) { ! 427: X print_entry(name, &sb); ! 428: X } ! 429: X } ! 430: X ! 431: X write_eot(); ! 432: X close_archive(); ! 433: X return (0); ! 434: X} ! 435: X ! 436: X ! 437: X/* writetar - write a header block for a tar file ! 438: X * ! 439: X * DESCRIPTION ! 440: X * ! 441: X * Make a header block for the file name whose stat info is in st. ! 442: X * Return header pointer for success, NULL if the name is too long. ! 443: X * ! 444: X * The tar header block is structured as follows: ! 445: X * ! 446: X * FIELD NAME OFFSET SIZE ! 447: X * -------------|---------------|------ ! 448: X * name 0 100 ! 449: X * mode 100 8 ! 450: X * uid 108 8 ! 451: X * gid 116 8 ! 452: X * size 124 12 ! 453: X * mtime 136 12 ! 454: X * chksum 148 8 ! 455: X * typeflag 156 1 ! 456: X * linkname 157 100 ! 457: X * magic 257 6 ! 458: X * version 263 2 ! 459: X * uname 265 32 ! 460: X * gname 297 32 ! 461: X * devmajor 329 8 ! 462: X * devminor 337 8 ! 463: X * prefix 345 155 ! 464: X * ! 465: X * PARAMETERS ! 466: X * ! 467: X * char *name - name of file to create a header block for ! 468: X * Stat *asb - pointer to the stat structure for the named file ! 469: X * ! 470: X */ ! 471: X ! 472: X#ifdef __STDC__ ! 473: X ! 474: Xstatic void writetar(char *name, Stat *asb) ! 475: X ! 476: X#else ! 477: X ! 478: Xstatic void writetar(name, asb) ! 479: Xchar *name; ! 480: XStat *asb; ! 481: X ! 482: X#endif ! 483: X{ ! 484: X char *p; ! 485: X char *prefix = NULL; ! 486: X int i; ! 487: X int sum; ! 488: X char hdr[BLOCKSIZE]; ! 489: X Link *from; ! 490: X ! 491: X memset(hdr, 0, BLOCKSIZE); ! 492: X if (strlen(name) > 255) { ! 493: X warn(name, "name too long"); ! 494: X return; ! 495: X } ! 496: X ! 497: X /* ! 498: X * If the pathname is longer than TNAMLEN, but less than 255, then ! 499: X * we can split it up into the prefix and the filename. ! 500: X */ ! 501: X if (strlen(name) > 100) { ! 502: X prefix = name; ! 503: X name += 155; ! 504: X while (name > prefix && *name != '/') { ! 505: X name--; ! 506: X } ! 507: X ! 508: X /* no slash found....hmmm.... */ ! 509: X if (name == prefix) { ! 510: X warn(prefix, "Name too long"); ! 511: X return; ! 512: X } ! 513: X *name++ = '\0'; ! 514: X } ! 515: X ! 516: X#ifdef S_IFLNK ! 517: X if ((asb->sb_mode & S_IFMT) == S_IFLNK) { ! 518: X strcpy(&hdr[157], asb->sb_link); ! 519: X asb->sb_size = 0; ! 520: X } ! 521: X#endif ! 522: X strcpy(hdr, name); ! 523: X sprintf(&hdr[100], "%06o \0", asb->sb_mode & ~S_IFMT); ! 524: X sprintf(&hdr[108], "%06o \0", asb->sb_uid); ! 525: X sprintf(&hdr[116], "%06o \0", asb->sb_gid); ! 526: X sprintf(&hdr[124], "%011lo ", (long) asb->sb_size); ! 527: X sprintf(&hdr[136], "%011lo ", (long) asb->sb_mtime); ! 528: X strncpy(&hdr[148], " ", 8); ! 529: X hdr[156] = tartype(asb->sb_mode); ! 530: X if (asb->sb_nlink > 1 && (from = linkfrom(name, asb)) != NULL) { ! 531: X strcpy(&hdr[157], from->l_name); ! 532: X hdr[156] = LNKTYPE; ! 533: X } ! 534: X strcpy(&hdr[257], TMAGIC); ! 535: X strncpy(&hdr[263], TVERSION, 2); ! 536: X strcpy(&hdr[265], finduname((int) asb->sb_uid)); ! 537: X strcpy(&hdr[297], findgname((int) asb->sb_gid)); ! 538: X sprintf(&hdr[329], "%06o \0", major(asb->sb_rdev)); ! 539: X sprintf(&hdr[337], "%06o \0", minor(asb->sb_rdev)); ! 540: X if (prefix != NULL) { ! 541: X strncpy(&hdr[345], prefix, 155); ! 542: X } ! 543: X ! 544: X /* Calculate the checksum */ ! 545: X ! 546: X sum = 0; ! 547: X p = hdr; ! 548: X for (i = 0; i < 500; i++) { ! 549: X sum += 0xFF & *p++; ! 550: X } ! 551: X ! 552: X /* Fill in the checksum field. */ ! 553: X ! 554: X sprintf(&hdr[148], "%06o \0", sum); ! 555: X ! 556: X outwrite(hdr, BLOCKSIZE); ! 557: X} ! 558: X ! 559: X ! 560: X/* tartype - return tar file type from file mode ! 561: X * ! 562: X * DESCRIPTION ! 563: X * ! 564: X * tartype returns the character which represents the type of file ! 565: X * indicated by "mode". ! 566: X * ! 567: X * PARAMETERS ! 568: X * ! 569: X * int mode - file mode from a stat block ! 570: X * ! 571: X * RETURNS ! 572: X * ! 573: X * The character which represents the particular file type in the ! 574: X * ustar standard headers. ! 575: X */ ! 576: X ! 577: X#ifdef __STDC__ ! 578: X ! 579: Xstatic char tartype(int mode) ! 580: X ! 581: X#else ! 582: X ! 583: Xstatic char tartype(mode) ! 584: Xint mode; ! 585: X ! 586: X#endif ! 587: X{ ! 588: X switch (mode & S_IFMT) { ! 589: X ! 590: X#ifdef S_IFCTG ! 591: X case S_IFCTG: ! 592: X return(CONTTYPE); ! 593: X#endif ! 594: X ! 595: X case S_IFDIR: ! 596: X return (DIRTYPE); ! 597: X ! 598: X#ifdef S_IFLNK ! 599: X case S_IFLNK: ! 600: X return (SYMTYPE); ! 601: X#endif ! 602: X ! 603: X#ifdef S_IFFIFO ! 604: X case S_IFIFO: ! 605: X return (FIFOTYPE); ! 606: X#endif ! 607: X ! 608: X#ifdef S_IFCHR ! 609: X case S_IFCHR: ! 610: X return (CHRTYPE); ! 611: X#endif ! 612: X ! 613: X#ifdef S_IFBLK ! 614: X case S_IFBLK: ! 615: X return (BLKTYPE); ! 616: X#endif ! 617: X ! 618: X default: ! 619: X return (REGTYPE); ! 620: X } ! 621: X} ! 622: X ! 623: X ! 624: X/* writecpio - write a cpio archive header ! 625: X * ! 626: X * DESCRIPTION ! 627: X * ! 628: X * Writes a new CPIO style archive header for the file specified. ! 629: X * ! 630: X * PARAMETERS ! 631: X * ! 632: X * char *name - name of file to create a header block for ! 633: X * Stat *asb - pointer to the stat structure for the named file ! 634: X */ ! 635: X ! 636: X#ifdef __STDC__ ! 637: X ! 638: Xstatic void writecpio(char *name, Stat *asb) ! 639: X ! 640: X#else ! 641: X ! 642: Xstatic void writecpio(name, asb) ! 643: Xchar *name; ! 644: XStat *asb; ! 645: X ! 646: X#endif ! 647: X{ ! 648: X uint namelen; ! 649: X char header[M_STRLEN + H_STRLEN + 1]; ! 650: X ! 651: X namelen = (uint) strlen(name) + 1; ! 652: X strcpy(header, M_ASCII); ! 653: X sprintf(header + M_STRLEN, "%06o%06o%06o%06o%06o", ! 654: X USH(asb->sb_dev), USH(asb->sb_ino), USH(asb->sb_mode), ! 655: X USH(asb->sb_uid), USH(asb->sb_gid)); ! 656: X sprintf(header + M_STRLEN + 30, "%06o%06o%011lo%06o%011lo", ! 657: X USH(asb->sb_nlink), USH(asb->sb_rdev), ! 658: X f_modification_time ? asb->sb_mtime : time((time_t *) 0), ! 659: X namelen, asb->sb_size); ! 660: X outwrite(header, M_STRLEN + H_STRLEN); ! 661: X outwrite(name, namelen); ! 662: X#ifdef S_IFLNK ! 663: X if ((asb->sb_mode & S_IFMT) == S_IFLNK) { ! 664: X outwrite(asb->sb_link, (uint) asb->sb_size); ! 665: X } ! 666: X#endif /* S_IFLNK */ ! 667: X} ! 668: END_OF_create.c ! 669: if test 7830 -ne `wc -c <create.c`; then ! 670: echo shar: \"create.c\" unpacked with wrong size! ! 671: fi ! 672: # end of overwriting check ! 673: fi ! 674: if test -f func.h -a "${1}" != "-c" ; then ! 675: echo shar: Will not over-write existing file \"func.h\" ! 676: else ! 677: echo shar: Extracting \"func.h\" \(5047 characters\) ! 678: sed "s/^X//" >func.h <<'END_OF_func.h' ! 679: X/* $Source: /u/mark/src/pax/RCS/func.h,v $ ! 680: X * ! 681: X * $Revision: 1.1 $ ! 682: X * ! 683: X * func.h - function type and argument declarations ! 684: X * ! 685: X * DESCRIPTION ! 686: X * ! 687: X * This file contains function delcarations in both ANSI style ! 688: X * (function prototypes) and traditional style. ! 689: X * ! 690: X * AUTHOR ! 691: X * ! 692: X * Mark H. Colburn, NAPS International ([email protected]) ! 693: X * ! 694: X * Sponsored by The USENIX Association for public distribution. ! 695: X * ! 696: X * Copyright (c) 1989 Mark H. Colburn. ! 697: X * All rights reserved. ! 698: X * ! 699: X * Redistribution and use in source and binary forms are permitted ! 700: X * provided that the above copyright notice and this paragraph are ! 701: X * duplicated in all such forms and that any documentation, ! 702: X * advertising materials, and other materials related to such ! 703: X * distribution and use acknowledge that the software was developed ! 704: X * by Mark H. Colburn and sponsored by The USENIX Association. ! 705: X * ! 706: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR ! 707: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED ! 708: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 709: X */ ! 710: X ! 711: X#ifndef _PAX_FUNC_H ! 712: X#define _PAX_FUNC_H ! 713: X ! 714: X/* Function Prototypes */ ! 715: X ! 716: X#ifdef __STDC__ ! 717: X ! 718: Xextern Link *linkfrom(char *, Stat *); ! 719: Xextern Link *linkto(char *, Stat *); ! 720: Xextern char *mem_get(uint); ! 721: Xextern char *mem_str(char *); ! 722: Xextern char *syserr(void); ! 723: Xextern int ar_read(void); ! 724: Xextern int buf_read(char *, uint); ! 725: Xextern int buf_skip(OFFSET); ! 726: Xextern int create_archive(void); ! 727: Xextern int dirneed(char *); ! 728: Xextern int read_archive(void); ! 729: Xextern int inentry(char *, Stat *); ! 730: Xextern int lineget(FILE *, char *); ! 731: Xextern int name_match(char *); ! 732: Xextern int name_next(char *, Stat *); ! 733: Xextern int nameopt(char *); ! 734: Xextern int open_archive(int); ! 735: Xextern int open_tty(void); ! 736: Xextern int openi(char *, Stat *); ! 737: Xextern int openo(char *, Stat *, Link *, int); ! 738: Xextern int pass(char *); ! 739: Xextern int passitem(char *, Stat *, int, char *); ! 740: Xextern int read_header(char *, Stat *); ! 741: Xextern int wildmat(char *, char *); ! 742: Xextern void buf_allocate(OFFSET); ! 743: Xextern void close_archive(void); ! 744: Xextern void fatal(char *); ! 745: Xextern void name_gather(void); ! 746: Xextern void name_init(int, char **); ! 747: Xextern void names_notfound(void); ! 748: Xextern void next(int); ! 749: Xextern int nextask(char *, char *, int); ! 750: Xextern void outdata(int, char *, OFFSET); ! 751: Xextern void outwrite(char *, uint); ! 752: Xextern void passdata(char *, int, char *, int); ! 753: Xextern void print_entry(char *, Stat *); ! 754: Xextern void warn(); ! 755: Xextern void warnarch(char *, OFFSET); ! 756: Xextern void write_eot(void); ! 757: Xextern void get_archive_type(void); ! 758: Xextern struct group *getgrgid(); ! 759: Xextern struct group *getgrnam(); ! 760: Xextern struct passwd *getpwuid(); ! 761: Xextern char *getenv(char *); ! 762: Xextern SIG_T (*signal())(); ! 763: Xextern Link *islink(char *, Stat *); ! 764: Xextern char *finduname(int); ! 765: Xextern char *findgname(int); ! 766: Xextern int findgid(char *gname); ! 767: X ! 768: X#else /* !__STDC__ */ ! 769: X ! 770: Xextern Link *linkfrom(); ! 771: Xextern Link *linkto(); ! 772: Xextern char *mem_get(); ! 773: Xextern char *mem_str(); ! 774: Xextern char *syserr(); ! 775: Xextern int ar_read(); ! 776: Xextern int buf_read(); ! 777: Xextern int buf_skip(); ! 778: Xextern int create_archive(); ! 779: Xextern int dirneed(); ! 780: Xextern int read_archive(); ! 781: Xextern int inentry(); ! 782: Xextern int lineget(); ! 783: Xextern int name_match(); ! 784: Xextern int name_next(); ! 785: Xextern int nameopt(); ! 786: Xextern int open_archive(); ! 787: Xextern int open_tty(); ! 788: Xextern int openi(); ! 789: Xextern int openo(); ! 790: Xextern int pass(); ! 791: Xextern int passitem(); ! 792: Xextern int read_header(); ! 793: Xextern int wildmat(); ! 794: Xextern void buf_allocate(); ! 795: Xextern void close_archive(); ! 796: Xextern void fatal(); ! 797: Xextern void name_gather(); ! 798: Xextern void name_init(); ! 799: Xextern void names_notfound(); ! 800: Xextern void next(); ! 801: Xextern int nextask(); ! 802: Xextern void outdata(); ! 803: Xextern void outwrite(); ! 804: Xextern void passdata(); ! 805: Xextern void print_entry(); ! 806: Xextern void warn(); ! 807: Xextern void warnarch(); ! 808: Xextern void write_eot(); ! 809: Xextern void get_archive_type(); ! 810: Xextern char *getenv(); ! 811: Xextern char *malloc(); ! 812: Xextern char *strcat(); ! 813: Xextern char *strcpy(); ! 814: Xextern char *strncpy(); ! 815: Xextern SIG_T (*signal())(); ! 816: Xextern OFFSET lseek(); ! 817: Xextern struct group *getgrgid(); ! 818: Xextern struct group *getgrnam(); ! 819: Xextern struct passwd *getpwuid(); ! 820: Xextern struct tm *localtime(); ! 821: Xextern time_t time(); ! 822: Xextern uint sleep(); ! 823: Xextern void _exit(); ! 824: Xextern void exit(); ! 825: Xextern void free(); ! 826: Xextern Link *islink(); ! 827: Xextern char *finduname(); ! 828: Xextern char *findgname(); ! 829: Xextern int findgid(); ! 830: X ! 831: X#endif /* __STDC__ */ ! 832: X#endif /* _PAX_FUNC_H */ ! 833: END_OF_func.h ! 834: if test 5047 -ne `wc -c <func.h`; then ! 835: echo shar: \"func.h\" unpacked with wrong size! ! 836: fi ! 837: # end of overwriting check ! 838: fi ! 839: if test -f link.c -a "${1}" != "-c" ; then ! 840: echo shar: Will not over-write existing file \"link.c\" ! 841: else ! 842: echo shar: Extracting \"link.c\" \(7575 characters\) ! 843: sed "s/^X//" >link.c <<'END_OF_link.c' ! 844: X/* $Source: /u/mark/src/pax/RCS/link.c,v $ ! 845: X * ! 846: X * $Revision: 1.1 $ ! 847: X * ! 848: X * link.c - functions for handling multiple file links ! 849: X * ! 850: X * DESCRIPTION ! 851: X * ! 852: X * These function manage the link chains which are used to keep track ! 853: X * of outstanding links during archive reading and writing. ! 854: X * ! 855: X * AUTHOR ! 856: X * ! 857: X * Mark H. Colburn, NAPS International ([email protected]) ! 858: X * ! 859: X * Sponsored by The USENIX Association for public distribution. ! 860: X * ! 861: X * Copyright (c) 1989 Mark H. Colburn. ! 862: X * All rights reserved. ! 863: X * ! 864: X * Redistribution and use in source and binary forms are permitted ! 865: X * provided that the above copyright notice is duplicated in all such ! 866: X * forms and that any documentation, advertising materials, and other ! 867: X * materials related to such distribution and use acknowledge that the ! 868: X * software was developed * by Mark H. Colburn and sponsored by The ! 869: X * USENIX Association. ! 870: X * ! 871: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR ! 872: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED ! 873: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 874: X * ! 875: X * $Log: link.c,v $ ! 876: X * Revision 1.1 88/12/23 18:02:12 mark ! 877: X * Initial revision ! 878: X * ! 879: X */ ! 880: X ! 881: X#ifndef lint ! 882: Xstatic char *ident = "$Id: link.c,v 1.1 88/12/23 18:02:12 mark Rel $"; ! 883: Xstatic char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n"; ! 884: X#endif /* ! lint */ ! 885: X ! 886: X ! 887: X/* Headers */ ! 888: X ! 889: X#include "pax.h" ! 890: X ! 891: X ! 892: X/* Defines */ ! 893: X ! 894: X/* ! 895: X * Address link information base. ! 896: X */ ! 897: X#define LINKHASH(ino) (linkbase + (ino) % NEL(linkbase)) ! 898: X ! 899: X/* ! 900: X * Number of array elements. ! 901: X */ ! 902: X#define NEL(a) (sizeof(a) / sizeof(*(a))) ! 903: X ! 904: X ! 905: X ! 906: X/* Internal Identifiers */ ! 907: X ! 908: Xstatic Link *linkbase[256]; /* Unresolved link information */ ! 909: X ! 910: X ! 911: X/* linkfrom - find a file to link from ! 912: X * ! 913: X * DESCRIPTION ! 914: X * ! 915: X * Linkfrom searches the link chain to see if there is a file in the ! 916: X * link chain which has the same inode number as the file specified ! 917: X * by the stat block pointed at by asb. If a file is found, the ! 918: X * name is returned to the caller, otherwise a NULL is returned. ! 919: X * ! 920: X * PARAMETERS ! 921: X * ! 922: X * char *name - name of the file which we are attempting ! 923: X * to find a link for ! 924: X * Stat *asb - stat structure of file to find a link to ! 925: X * ! 926: X * RETURNS ! 927: X * ! 928: X * Returns a pointer to a link structure, or NULL if unsuccessful. ! 929: X * ! 930: X */ ! 931: X ! 932: X#ifdef __STDC__ ! 933: X ! 934: XLink *linkfrom(char *name, Stat *asb) ! 935: X ! 936: X#else ! 937: X ! 938: XLink *linkfrom(name, asb) ! 939: Xchar *name; ! 940: XStat *asb; ! 941: X ! 942: X#endif ! 943: X{ ! 944: X Link *linkp; ! 945: X Link *linknext; ! 946: X Path *path; ! 947: X Path *pathnext; ! 948: X Link **abase; ! 949: X ! 950: X for (linkp = *(abase = LINKHASH(asb->sb_ino)); linkp; linkp = linknext) { ! 951: X if (linkp->l_nlink == 0) { ! 952: X if (linkp->l_name) { ! 953: X free((char *) linkp->l_name); ! 954: X } ! 955: X if (linknext = linkp->l_forw) { ! 956: X linknext->l_back = linkp->l_back; ! 957: X } ! 958: X if (linkp->l_back) { ! 959: X linkp->l_back->l_forw = linkp->l_forw; ! 960: X } ! 961: X free((char *) linkp); ! 962: X *abase = (Link *) NULL; ! 963: X } else if (linkp->l_ino == asb->sb_ino && linkp->l_dev == asb->sb_dev) { ! 964: X /* ! 965: X * check to see if a file with the name "name" exists in the ! 966: X * chain of files which we have for this particular link ! 967: X */ ! 968: X for (path = linkp->l_path; path; path = pathnext) { ! 969: X if (strcmp(path->p_name, name) == 0) { ! 970: X --linkp->l_nlink; ! 971: X if (path->p_name) { ! 972: X free(path->p_name); ! 973: X } ! 974: X if (pathnext = path->p_forw) { ! 975: X pathnext->p_back = path->p_back; ! 976: X } ! 977: X if (path->p_back) { ! 978: X path->p_back->p_forw = pathnext; ! 979: X } ! 980: X if (linkp->l_path == path) { ! 981: X linkp->l_path = pathnext; ! 982: X } ! 983: X free(path); ! 984: X return (linkp); ! 985: X } ! 986: X pathnext = path->p_forw; ! 987: X } ! 988: X return((Link *)NULL); ! 989: X } else { ! 990: X linknext = linkp->l_forw; ! 991: X } ! 992: X } ! 993: X return ((Link *)NULL); ! 994: X} ! 995: X ! 996: X ! 997: X ! 998: X/* islink - determine whether a given file really a link ! 999: X * ! 1000: X * DESCRIPTION ! 1001: X * ! 1002: X * Islink searches the link chain to see if there is a file in the ! 1003: X * link chain which has the same inode number as the file specified ! 1004: X * by the stat block pointed at by asb. If a file is found, a ! 1005: X * non-zero value is returned to the caller, otherwise a 0 is ! 1006: X * returned. ! 1007: X * ! 1008: X * PARAMETERS ! 1009: X * ! 1010: X * char *name - name of file to check to see if it is link. ! 1011: X * Stat *asb - stat structure of file to find a link to ! 1012: X * ! 1013: X * RETURNS ! 1014: X * ! 1015: X * Returns a pointer to a link structure, or NULL if unsuccessful. ! 1016: X * ! 1017: X */ ! 1018: X ! 1019: X#ifdef __STDC__ ! 1020: X ! 1021: XLink *islink(char *name, Stat *asb) ! 1022: X ! 1023: X#else ! 1024: X ! 1025: XLink *islink(name, asb) ! 1026: Xchar *name; ! 1027: XStat *asb; ! 1028: X ! 1029: X#endif ! 1030: X{ ! 1031: X Link *linkp; ! 1032: X Link *linknext; ! 1033: X ! 1034: X for (linkp = *(LINKHASH(asb->sb_ino)); linkp; linkp = linknext) { ! 1035: X if (linkp->l_ino == asb->sb_ino && linkp->l_dev == asb->sb_dev) { ! 1036: X if (strcmp(name, linkp->l_name) == 0) { ! 1037: X return ((Link *) NULL); ! 1038: X } ! 1039: X return (linkp); ! 1040: X } else { ! 1041: X linknext = linkp->l_forw; ! 1042: X } ! 1043: X } ! 1044: X return ((Link *)NULL); ! 1045: X} ! 1046: X ! 1047: X ! 1048: X/* linkto - remember a file with outstanding links ! 1049: X * ! 1050: X * DESCRIPTION ! 1051: X * ! 1052: X * Linkto adds the specified file to the link chain. Any subsequent ! 1053: X * calls to linkfrom which have the same inode will match the file ! 1054: X * just entered. If not enough space is available to make the link ! 1055: X * then the item is not added to the link chain, and a NULL is ! 1056: X * returned to the calling function. ! 1057: X * ! 1058: X * PARAMETERS ! 1059: X * ! 1060: X * char *name - name of file to remember ! 1061: X * Stat *asb - pointer to stat structure of file to remember ! 1062: X * ! 1063: X * RETURNS ! 1064: X * ! 1065: X * Returns a pointer to the associated link structure, or NULL when ! 1066: X * linking is not possible. ! 1067: X * ! 1068: X */ ! 1069: X ! 1070: X#ifdef __STDC__ ! 1071: X ! 1072: XLink *linkto(char *name, Stat *asb) ! 1073: X ! 1074: X#else ! 1075: X ! 1076: XLink *linkto(name, asb) ! 1077: Xchar *name; ! 1078: XStat *asb; ! 1079: X ! 1080: X#endif ! 1081: X{ ! 1082: X Link *linkp; ! 1083: X Link *linknext; ! 1084: X Path *path; ! 1085: X Link **abase; ! 1086: X ! 1087: X for (linkp = *(LINKHASH(asb->sb_ino)); linkp; linkp = linknext) { ! 1088: X if (linkp->l_ino == asb->sb_ino && linkp->l_dev == asb->sb_dev) { ! 1089: X if ((path = (Path *) mem_get(sizeof(Path))) == (Path *) NULL || ! 1090: X (path->p_name = mem_str(name)) == (char *) NULL) { ! 1091: X return((Link *) NULL); ! 1092: X } ! 1093: X if (path->p_forw = linkp->l_path) { ! 1094: X if (linkp->l_path->p_forw) { ! 1095: X linkp->l_path->p_forw->p_back = path; ! 1096: X } ! 1097: X } else { ! 1098: X linkp->l_path = path; ! 1099: X } ! 1100: X path->p_back = (Path *) NULL; ! 1101: X return(linkp); ! 1102: X } else { ! 1103: X linknext = linkp->l_forw; ! 1104: X } ! 1105: X } ! 1106: X /* ! 1107: X * This is a brand new link, for which there is no other information ! 1108: X */ ! 1109: X ! 1110: X if ((asb->sb_mode & S_IFMT) == S_IFDIR ! 1111: X || (linkp = (Link *) mem_get(sizeof(Link))) == NULL ! 1112: X || (linkp->l_name = mem_str(name)) == NULL) { ! 1113: X return ((Link *) NULL); ! 1114: X } ! 1115: X linkp->l_dev = asb->sb_dev; ! 1116: X linkp->l_ino = asb->sb_ino; ! 1117: X linkp->l_nlink = asb->sb_nlink - 1; ! 1118: X linkp->l_size = asb->sb_size; ! 1119: X linkp->l_path = (Path *) NULL; ! 1120: X if (linkp->l_forw = *(abase = LINKHASH(asb->sb_ino))) { ! 1121: X linkp->l_forw->l_back = linkp; ! 1122: X } else { ! 1123: X *abase = linkp; ! 1124: X } ! 1125: X linkp->l_back = NULL; ! 1126: X return (linkp); ! 1127: X} ! 1128: X ! 1129: X ! 1130: X/* linkleft - complain about files with unseen links ! 1131: X * ! 1132: X * DESCRIPTION ! 1133: X * ! 1134: X * Linksleft scans through the link chain to see if there were any ! 1135: X * files which have outstanding links that were not processed by the ! 1136: X * archive. For each file in the link chain for which there was not ! 1137: X * a file, and error message is printed. ! 1138: X */ ! 1139: X ! 1140: X#ifdef __STDC__ ! 1141: X ! 1142: Xvoid linkleft(void) ! 1143: X ! 1144: X#else ! 1145: X ! 1146: Xvoid linkleft() ! 1147: X ! 1148: X#endif ! 1149: X{ ! 1150: X Link *lp; ! 1151: X Link **base; ! 1152: X ! 1153: X for (base = linkbase; base < linkbase + NEL(linkbase); ++base) { ! 1154: X for (lp = *base; lp; lp = lp->l_forw) { ! 1155: X if (lp->l_nlink) { ! 1156: X warn(lp->l_path->p_name, "Unseen link(s)"); ! 1157: X } ! 1158: X } ! 1159: X } ! 1160: X} ! 1161: END_OF_link.c ! 1162: if test 7575 -ne `wc -c <link.c`; then ! 1163: echo shar: \"link.c\" unpacked with wrong size! ! 1164: fi ! 1165: # end of overwriting check ! 1166: fi ! 1167: if test -f names.c -a "${1}" != "-c" ; then ! 1168: echo shar: Will not over-write existing file \"names.c\" ! 1169: else ! 1170: echo shar: Extracting \"names.c\" \(5005 characters\) ! 1171: sed "s/^X//" >names.c <<'END_OF_names.c' ! 1172: X/* $Source: /u/mark/src/pax/RCS/names.c,v $ ! 1173: X * ! 1174: X * $Revision: 1.1 $ ! 1175: X * ! 1176: X * names.c - Look up user and/or group names. ! 1177: X * ! 1178: X * DESCRIPTION ! 1179: X * ! 1180: X * These functions support UID and GID name lookup. The results are ! 1181: X * cached to improve performance. ! 1182: X * ! 1183: X * AUTHOR ! 1184: X * ! 1185: X * Mark H. Colburn, NAPS International ([email protected]) ! 1186: X * ! 1187: X * Sponsored by The USENIX Association for public distribution. ! 1188: X * ! 1189: X * Copyright (c) 1989 Mark H. Colburn. ! 1190: X * All rights reserved. ! 1191: X * ! 1192: X * Redistribution and use in source and binary forms are permitted ! 1193: X * provided that the above copyright notice is duplicated in all such ! 1194: X * forms and that any documentation, advertising materials, and other ! 1195: X * materials related to such distribution and use acknowledge that the ! 1196: X * software was developed * by Mark H. Colburn and sponsored by The ! 1197: X * USENIX Association. ! 1198: X * ! 1199: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR ! 1200: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED ! 1201: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 1202: X * ! 1203: X * $Log: names.c,v $ ! 1204: X * Revision 1.1 88/12/23 18:02:19 mark ! 1205: X * Initial revision ! 1206: X * ! 1207: X */ ! 1208: X ! 1209: X#ifndef lint ! 1210: Xstatic char *ident = "$Id: names.c,v 1.1 88/12/23 18:02:19 mark Rel $"; ! 1211: Xstatic char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n"; ! 1212: X#endif /* ! lint */ ! 1213: X ! 1214: X ! 1215: X/* Headers */ ! 1216: X ! 1217: X#include "pax.h" ! 1218: X ! 1219: X ! 1220: X/* Defines */ ! 1221: X ! 1222: X#define myuid ( my_uid < 0? (my_uid = getuid()): my_uid ) ! 1223: X#define mygid ( my_gid < 0? (my_gid = getgid()): my_gid ) ! 1224: X ! 1225: X ! 1226: X/* Internal Identifiers */ ! 1227: X ! 1228: Xstatic int saveuid = -993; ! 1229: Xstatic char saveuname[TUNMLEN]; ! 1230: Xstatic int my_uid = -993; ! 1231: X ! 1232: Xstatic int savegid = -993; ! 1233: Xstatic char savegname[TGNMLEN]; ! 1234: Xstatic int my_gid = -993; ! 1235: X ! 1236: X ! 1237: X/* finduname - find a user or group name from a uid or gid ! 1238: X * ! 1239: X * DESCRIPTION ! 1240: X * ! 1241: X * Look up a user name from a uid/gid, maintaining a cache. ! 1242: X * ! 1243: X * PARAMETERS ! 1244: X * ! 1245: X * char uname[] - name (to be returned to user) ! 1246: X * int uuid - id of name to find ! 1247: X * ! 1248: X * ! 1249: X * RETURNS ! 1250: X * ! 1251: X * Returns a name which is associated with the user id given. If there ! 1252: X * is not name which corresponds to the user-id given, then a pointer ! 1253: X * to a string of zero length is returned. ! 1254: X * ! 1255: X * FIXME ! 1256: X * ! 1257: X * 1. for now it's a one-entry cache. ! 1258: X * 2. The "-993" is to reduce the chance of a hit on the first lookup. ! 1259: X */ ! 1260: X ! 1261: X#ifdef __STDC__ ! 1262: X ! 1263: Xchar *finduname(int uuid) ! 1264: X ! 1265: X#else ! 1266: X ! 1267: Xchar *finduname(uuid) ! 1268: Xint uuid; ! 1269: X ! 1270: X#endif ! 1271: X{ ! 1272: X struct passwd *pw; ! 1273: X ! 1274: X if (uuid != saveuid) { ! 1275: X saveuid = uuid; ! 1276: X saveuname[0] = '\0'; ! 1277: X pw = getpwuid(uuid); ! 1278: X if (pw) { ! 1279: X strncpy(saveuname, pw->pw_name, TUNMLEN); ! 1280: X } ! 1281: X } ! 1282: X return(saveuname); ! 1283: X} ! 1284: X ! 1285: X ! 1286: X/* finduid - get the uid for a given user name ! 1287: X * ! 1288: X * DESCRIPTION ! 1289: X * ! 1290: X * This does just the opposit of finduname. Given a user name it ! 1291: X * finds the corresponding UID for that name. ! 1292: X * ! 1293: X * PARAMETERS ! 1294: X * ! 1295: X * char uname[] - username to find a UID for ! 1296: X * ! 1297: X * RETURNS ! 1298: X * ! 1299: X * The UID which corresponds to the uname given, if any. If no UID ! 1300: X * could be found, then the UID which corrsponds the user running the ! 1301: X * program is returned. ! 1302: X * ! 1303: X */ ! 1304: X ! 1305: X#ifdef __STDC__ ! 1306: X ! 1307: Xint finduid(char *uname) ! 1308: X ! 1309: X#else ! 1310: X ! 1311: Xint finduid(uname) ! 1312: Xchar *uname; ! 1313: X ! 1314: X#endif ! 1315: X{ ! 1316: X struct passwd *pw; ! 1317: X extern struct passwd *getpwnam(); ! 1318: X ! 1319: X if (uname[0] != saveuname[0]/* Quick test w/o proc call */ ! 1320: X ||0 != strncmp(uname, saveuname, TUNMLEN)) { ! 1321: X strncpy(saveuname, uname, TUNMLEN); ! 1322: X pw = getpwnam(uname); ! 1323: X if (pw) { ! 1324: X saveuid = pw->pw_uid; ! 1325: X } else { ! 1326: X saveuid = myuid; ! 1327: X } ! 1328: X } ! 1329: X return (saveuid); ! 1330: X} ! 1331: X ! 1332: X ! 1333: X/* findgname - look up a group name from a gid ! 1334: X * ! 1335: X * DESCRIPTION ! 1336: X * ! 1337: X * Look up a group name from a gid, maintaining a cache. ! 1338: X * ! 1339: X * ! 1340: X * PARAMETERS ! 1341: X * ! 1342: X * int ggid - goupid of group to find ! 1343: X * ! 1344: X * RETURNS ! 1345: X * ! 1346: X * A string which is associated with the group ID given. If no name ! 1347: X * can be found, a string of zero length is returned. ! 1348: X */ ! 1349: X ! 1350: X#ifdef __STDC__ ! 1351: X ! 1352: Xchar *findgname(int ggid) ! 1353: X ! 1354: X#else ! 1355: X ! 1356: Xchar *findgname(ggid) ! 1357: Xint ggid; ! 1358: X ! 1359: X#endif ! 1360: X{ ! 1361: X struct group *gr; ! 1362: X ! 1363: X if (ggid != savegid) { ! 1364: X savegid = ggid; ! 1365: X savegname[0] = '\0'; ! 1366: X setgrent(); ! 1367: X gr = getgrgid(ggid); ! 1368: X if (gr) { ! 1369: X strncpy(savegname, gr->gr_name, TGNMLEN); ! 1370: X } ! 1371: X } ! 1372: X return(savegname); ! 1373: X} ! 1374: X ! 1375: X ! 1376: X ! 1377: X/* findgid - get the gid for a given group name ! 1378: X * ! 1379: X * DESCRIPTION ! 1380: X * ! 1381: X * This does just the opposit of finduname. Given a group name it ! 1382: X * finds the corresponding GID for that name. ! 1383: X * ! 1384: X * PARAMETERS ! 1385: X * ! 1386: X * char uname[] - groupname to find a GID for ! 1387: X * ! 1388: X * RETURNS ! 1389: X * ! 1390: X * The GID which corresponds to the uname given, if any. If no GID ! 1391: X * could be found, then the GID which corrsponds the group running the ! 1392: X * program is returned. ! 1393: X * ! 1394: X */ ! 1395: X ! 1396: X#ifdef __STDC__ ! 1397: X ! 1398: Xint findgid(char *gname) ! 1399: X ! 1400: X#else ! 1401: X ! 1402: Xint findgid(gname) ! 1403: Xchar *gname; ! 1404: X ! 1405: X#endif ! 1406: X{ ! 1407: X struct group *gr; ! 1408: X ! 1409: X /* Quick test w/o proc call */ ! 1410: X if (gname[0] != savegname[0] || strncmp(gname, savegname, TUNMLEN) != 0) { ! 1411: X strncpy(savegname, gname, TUNMLEN); ! 1412: X gr = getgrnam(gname); ! 1413: X if (gr) { ! 1414: X savegid = gr->gr_gid; ! 1415: X } else { ! 1416: X savegid = mygid; ! 1417: X } ! 1418: X } ! 1419: X return (savegid); ! 1420: X} ! 1421: END_OF_names.c ! 1422: if test 5005 -ne `wc -c <names.c`; then ! 1423: echo shar: \"names.c\" unpacked with wrong size! ! 1424: fi ! 1425: # end of overwriting check ! 1426: fi ! 1427: if test -f replace.c -a "${1}" != "-c" ; then ! 1428: echo shar: Will not over-write existing file \"replace.c\" ! 1429: else ! 1430: echo shar: Extracting \"replace.c\" \(6493 characters\) ! 1431: sed "s/^X//" >replace.c <<'END_OF_replace.c' ! 1432: X/* $Source: /u/mark/src/pax/RCS/replace.c,v $ ! 1433: X * ! 1434: X * $Revision: 1.1 $ ! 1435: X * ! 1436: X * replace.c - regular expression pattern replacement functions ! 1437: X * ! 1438: X * DESCRIPTION ! 1439: X * ! 1440: X * These routines provide for regular expression file name replacement ! 1441: X * as required by pax. ! 1442: X * ! 1443: X * AUTHORS ! 1444: X * ! 1445: X * Mark H. Colburn, NAPS International ! 1446: X * ! 1447: X * Sponsored by The USENIX Association for public distribution. ! 1448: X * ! 1449: X * Copyright (c) 1989 Mark H. Colburn. ! 1450: X * All rights reserved. ! 1451: X * ! 1452: X * Redistribution and use in source and binary forms are permitted ! 1453: X * provided that the above copyright notice is duplicated in all such ! 1454: X * forms and that any documentation, advertising materials, and other ! 1455: X * materials related to such distribution and use acknowledge that the ! 1456: X * software was developed * by Mark H. Colburn and sponsored by The ! 1457: X * USENIX Association. ! 1458: X * ! 1459: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR ! 1460: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED ! 1461: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 1462: X * ! 1463: X * $Log: replace.c,v $ ! 1464: X * Revision 1.1 88/12/23 18:02:36 mark ! 1465: X * Initial revision ! 1466: X * ! 1467: X */ ! 1468: X ! 1469: X#ifndef lint ! 1470: Xstatic char *ident = "$Id: replace.c,v 1.1 88/12/23 18:02:36 mark Rel $"; ! 1471: Xstatic char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n"; ! 1472: X#endif /* not lint */ ! 1473: X ! 1474: X/* Headers */ ! 1475: X ! 1476: X#include "pax.h" ! 1477: X ! 1478: X ! 1479: X/* add_replstr - add a replacement string to the replacement string list ! 1480: X * ! 1481: X * DESCRIPTION ! 1482: X * ! 1483: X * Add_replstr adds a replacement string to the replacement string ! 1484: X * list which is applied each time a file is about to be processed. ! 1485: X * ! 1486: X * PARAMETERS ! 1487: X * ! 1488: X * char *pattern - A regular expression which is to be parsed ! 1489: X */ ! 1490: X ! 1491: X#ifdef __STDC__ ! 1492: X ! 1493: Xvoid add_replstr(char *pattern) ! 1494: X ! 1495: X#else ! 1496: X ! 1497: Xvoid add_replstr(pattern) ! 1498: Xchar *pattern; ! 1499: X ! 1500: X#endif ! 1501: X{ ! 1502: X char *p; ! 1503: X char sep; ! 1504: X Replstr *rptr; ! 1505: X int len; ! 1506: X ! 1507: X if ((len = strlen(pattern)) < 4) { ! 1508: X warn("Replacement string not added", ! 1509: X "Malformed substitution syntax"); ! 1510: X return; ! 1511: X } ! 1512: X if ((rptr = (Replstr *) malloc(sizeof(Replstr))) == NULL) { ! 1513: X warn("Replacement string not added", "No space"); ! 1514: X return; ! 1515: X } ! 1516: X ! 1517: X /* First character is the delimeter... */ ! 1518: X sep = *pattern; ! 1519: X ! 1520: X /* Get trailing g and/or p */ ! 1521: X p = pattern + len - 1; ! 1522: X while (*p != sep) { ! 1523: X if (*p == 'g') { ! 1524: X rptr->global = 1; ! 1525: X } else if (*p == 'p') { ! 1526: X rptr->print = 1; ! 1527: X } else { ! 1528: X warn(p, "Invalid RE modifier"); ! 1529: X } ! 1530: X p--; ! 1531: X } ! 1532: X ! 1533: X if (*p != sep) { ! 1534: X warn("Replacement string not added", "Bad delimeters"); ! 1535: X free(rptr); ! 1536: X return; ! 1537: X } ! 1538: X /* strip off leading and trailing delimeter */ ! 1539: X *p = '\0'; ! 1540: X pattern++; ! 1541: X ! 1542: X /* find the separating '/' in the pattern */ ! 1543: X p = pattern; ! 1544: X while (*p) { ! 1545: X if (*p == sep) { ! 1546: X break; ! 1547: X } ! 1548: X if (*p == '\\' && *(p + 1) != '\0') { ! 1549: X p++; ! 1550: X } ! 1551: X p++; ! 1552: X } ! 1553: X if (*p != sep) { ! 1554: X warn("Replacement string not added", "Bad delimeters"); ! 1555: X free(rptr); ! 1556: X return; ! 1557: X } ! 1558: X *p++ = '\0'; ! 1559: X ! 1560: X /* ! 1561: X * Now pattern points to 'old' and p points to 'new' and both are '\0' ! 1562: X * terminated ! 1563: X */ ! 1564: X if ((rptr->comp = regcomp(pattern)) == NULL) { ! 1565: X warn("Replacement string not added", "Invalid RE"); ! 1566: X free(rptr); ! 1567: X return; ! 1568: X } ! 1569: X rptr->replace = p; ! 1570: X rptr->next = NULL; ! 1571: X if (rplhead == NULL) { ! 1572: X rplhead = rptr; ! 1573: X rpltail = rptr; ! 1574: X } else { ! 1575: X rpltail->next = rptr; ! 1576: X rpltail = rptr; ! 1577: X } ! 1578: X} ! 1579: X ! 1580: X ! 1581: X ! 1582: X/* rpl_name - possibly replace a name with a regular expression ! 1583: X * ! 1584: X * DESCRIPTION ! 1585: X * ! 1586: X * The string name is searched for in the list of regular expression ! 1587: X * substituions. If the string matches any of the regular expressions ! 1588: X * then the string is modified as specified by the user. ! 1589: X * ! 1590: X * PARAMETERS ! 1591: X * ! 1592: X * char *name - name to search for and possibly modify ! 1593: X */ ! 1594: X ! 1595: X#ifdef __STDC__ ! 1596: X ! 1597: Xvoid rpl_name(char *name) ! 1598: X ! 1599: X#else ! 1600: X ! 1601: Xvoid rpl_name(name) ! 1602: Xchar *name; ! 1603: X ! 1604: X#endif ! 1605: X{ ! 1606: X int found = 0; ! 1607: X int ret; ! 1608: X Replstr *rptr; ! 1609: X char buff[PATH_MAX + 1]; ! 1610: X char buff1[PATH_MAX + 1]; ! 1611: X char buff2[PATH_MAX + 1]; ! 1612: X char *p; ! 1613: X char *b; ! 1614: X ! 1615: X strcpy(buff, name); ! 1616: X for (rptr = rplhead; !found && rptr != NULL; rptr = rptr->next) { ! 1617: X do { ! 1618: X if ((ret = regexec(rptr->comp, buff)) != 0) { ! 1619: X p = buff; ! 1620: X b = buff1; ! 1621: X while (p < rptr->comp->startp[0]) { ! 1622: X *b++ = *p++; ! 1623: X } ! 1624: X p = rptr->replace; ! 1625: X while (*p) { ! 1626: X *b++ = *p++; ! 1627: X } ! 1628: X strcpy(b, rptr->comp->endp[0]); ! 1629: X found = 1; ! 1630: X regsub(rptr->comp, buff1, buff2); ! 1631: X strcpy(buff, buff2); ! 1632: X } ! 1633: X } while (ret && rptr->global); ! 1634: X if (found) { ! 1635: X if (rptr->print) { ! 1636: X fprintf(stderr, "%s >> %s\n", name, buff); ! 1637: X } ! 1638: X strcpy(name, buff); ! 1639: X } ! 1640: X } ! 1641: X} ! 1642: X ! 1643: X ! 1644: X/* get_disposition - get a file disposition ! 1645: X * ! 1646: X * DESCRIPTION ! 1647: X * ! 1648: X * Get a file disposition from the user. If the user enters 'y' ! 1649: X * the the file is processed, anything else and the file is ignored. ! 1650: X * If the user enters EOF, then the PAX exits with a non-zero return ! 1651: X * status. ! 1652: X * ! 1653: X * PARAMETERS ! 1654: X * ! 1655: X * char *mode - string signifying the action to be taken on file ! 1656: X * char *name - the name of the file ! 1657: X * ! 1658: X * RETURNS ! 1659: X * ! 1660: X * Returns 1 if the file should be processed, 0 if it should not. ! 1661: X */ ! 1662: X ! 1663: X#ifdef __STDC__ ! 1664: X ! 1665: Xint get_disposition(char *mode, char *name) ! 1666: X ! 1667: X#else ! 1668: X ! 1669: Xint get_disposition(mode, name) ! 1670: Xchar *mode; ! 1671: Xchar *name; ! 1672: X ! 1673: X#endif ! 1674: X{ ! 1675: X char ans[2]; ! 1676: X char buf[PATH_MAX + 10]; ! 1677: X ! 1678: X if (f_disposition) { ! 1679: X sprintf(buf, "%s %s? ", mode, name); ! 1680: X if (nextask(buf, ans, sizeof(ans)) == -1 || ans[0] == 'q') { ! 1681: X exit(0); ! 1682: X } ! 1683: X if (strlen(ans) == 0 || ans[0] != 'y') { ! 1684: X return(1); ! 1685: X } ! 1686: X } ! 1687: X return(0); ! 1688: X} ! 1689: X ! 1690: X ! 1691: X/* get_newname - prompt the user for a new filename ! 1692: X * ! 1693: X * DESCRIPTION ! 1694: X * ! 1695: X * The user is prompted with the name of the file which is currently ! 1696: X * being processed. The user may choose to rename the file by ! 1697: X * entering the new file name after the prompt; the user may press ! 1698: X * carriage-return/newline, which will skip the file or the user may ! 1699: X * type an 'EOF' character, which will cause the program to stop. ! 1700: X * ! 1701: X * PARAMETERS ! 1702: X * ! 1703: X * char *name - filename, possibly modified by user ! 1704: X * int size - size of allowable new filename ! 1705: X * ! 1706: X * RETURNS ! 1707: X * ! 1708: X * Returns 0 if successfull, or -1 if an error occurred. ! 1709: X * ! 1710: X */ ! 1711: X ! 1712: X#ifdef __STDC__ ! 1713: X ! 1714: Xint get_newname(char *name, int size) ! 1715: X ! 1716: X#else ! 1717: X ! 1718: Xint get_newname(name, size) ! 1719: Xchar *name; ! 1720: Xint size; ! 1721: X ! 1722: X#endif ! 1723: X{ ! 1724: X char buf[PATH_MAX + 10]; ! 1725: X ! 1726: X if (f_interactive) { ! 1727: X sprintf(buf, "rename %s? ", name); ! 1728: X if (nextask(buf, name, size) == -1) { ! 1729: X exit(0); ! 1730: X } ! 1731: X if (strlen(name) == 0) { ! 1732: X return(1); ! 1733: X } ! 1734: X } ! 1735: X return(0); ! 1736: X} ! 1737: END_OF_replace.c ! 1738: if test 6493 -ne `wc -c <replace.c`; then ! 1739: echo shar: \"replace.c\" unpacked with wrong size! ! 1740: fi ! 1741: # end of overwriting check ! 1742: fi ! 1743: if test -f ttyio.c -a "${1}" != "-c" ; then ! 1744: echo shar: Will not over-write existing file \"ttyio.c\" ! 1745: else ! 1746: echo shar: Extracting \"ttyio.c\" \(6321 characters\) ! 1747: sed "s/^X//" >ttyio.c <<'END_OF_ttyio.c' ! 1748: X/* $Source: /u/mark/src/pax/RCS/ttyio.c,v $ ! 1749: X * ! 1750: X * $Revision: 1.1 $ ! 1751: X * ! 1752: X * ttyio.c - Terminal/Console I/O functions for all archive interfaces ! 1753: X * ! 1754: X * DESCRIPTION ! 1755: X * ! 1756: X * These routines provide a consistent, general purpose interface to ! 1757: X * the user via the users terminal, if it is available to the ! 1758: X * process. ! 1759: X * ! 1760: X * AUTHOR ! 1761: X * ! 1762: X * Mark H. Colburn, NAPS International ([email protected]) ! 1763: X * ! 1764: X * Sponsored by The USENIX Association for public distribution. ! 1765: X * ! 1766: X * Copyright (c) 1989 Mark H. Colburn. ! 1767: X * All rights reserved. ! 1768: X * ! 1769: X * Redistribution and use in source and binary forms are permitted ! 1770: X * provided that the above copyright notice is duplicated in all such ! 1771: X * forms and that any documentation, advertising materials, and other ! 1772: X * materials related to such distribution and use acknowledge that the ! 1773: X * software was developed * by Mark H. Colburn and sponsored by The ! 1774: X * USENIX Association. ! 1775: X * ! 1776: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR ! 1777: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED ! 1778: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 1779: X * ! 1780: X * $Log: ttyio.c,v $ ! 1781: X * Revision 1.1 88/12/23 18:02:39 mark ! 1782: X * Initial revision ! 1783: X * ! 1784: X */ ! 1785: X ! 1786: X#ifndef lint ! 1787: Xstatic char *ident = "$Id: ttyio.c,v 1.1 88/12/23 18:02:39 mark Rel $"; ! 1788: Xstatic char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n"; ! 1789: X#endif /* ! lint */ ! 1790: X ! 1791: X ! 1792: X/* Headers */ ! 1793: X ! 1794: X#include "pax.h" ! 1795: X ! 1796: X ! 1797: X/* open_tty - open the terminal for interactive queries ! 1798: X * ! 1799: X * DESCRIPTION ! 1800: X * ! 1801: X * Assumes that background processes ignore interrupts and that the ! 1802: X * open() or the isatty() will fail for processes which are not ! 1803: X * attached to terminals. Returns a file descriptor or -1 if ! 1804: X * unsuccessful. ! 1805: X * ! 1806: X * RETURNS ! 1807: X * ! 1808: X * Returns a file descriptor which can be used to read and write ! 1809: X * directly to the user's terminal, or -1 on failure. ! 1810: X * ! 1811: X * ERRORS ! 1812: X * ! 1813: X * If SIGINT cannot be ignored, or the open fails, or the newly opened ! 1814: X * terminal device is not a tty, then open_tty will return a -1 to the ! 1815: X * caller. ! 1816: X */ ! 1817: X ! 1818: X#ifdef __STDC__ ! 1819: X ! 1820: Xint open_tty(void) ! 1821: X ! 1822: X#else ! 1823: X ! 1824: Xint open_tty() ! 1825: X ! 1826: X#endif ! 1827: X{ ! 1828: X int fd; /* file descriptor for terminal */ ! 1829: X SIG_T (*intr)(); /* used to restore interupts if signal fails */ ! 1830: X ! 1831: X if ((intr = signal(SIGINT, SIG_IGN)) == SIG_IGN) { ! 1832: X return (-1); ! 1833: X } ! 1834: X signal(SIGINT, intr); ! 1835: X if ((fd = open(TTY, O_RDWR)) < 0) { ! 1836: X return (-1); ! 1837: X } ! 1838: X if (isatty(fd)) { ! 1839: X return (fd); ! 1840: X } ! 1841: X close(fd); ! 1842: X return (-1); ! 1843: X} ! 1844: X ! 1845: X ! 1846: X/* nextask - ask a question and get a response ! 1847: X * ! 1848: X * DESCRIPTION ! 1849: X * ! 1850: X * Give the user a prompt and wait for their response. The prompt, ! 1851: X * located in "msg" is printed, then the user is allowed to type ! 1852: X * a response to the message. The first "limit" characters of the ! 1853: X * user response is stored in "answer". ! 1854: X * ! 1855: X * Nextask ignores spaces and tabs. ! 1856: X * ! 1857: X * PARAMETERS ! 1858: X * ! 1859: X * char *msg - Message to display for user ! 1860: X * char *answer - Pointer to user's response to question ! 1861: X * int limit - Limit of length for user's response ! 1862: X * ! 1863: X * RETURNS ! 1864: X * ! 1865: X * Returns the number of characters in the user response to the ! 1866: X * calling function. If an EOF was encountered, a -1 is returned to ! 1867: X * the calling function. If an error occured which causes the read ! 1868: X * to return with a value of -1, then the function will return a ! 1869: X * non-zero return status to the calling process, and abort ! 1870: X * execution. ! 1871: X */ ! 1872: X ! 1873: X#ifdef __STDC__ ! 1874: X ! 1875: Xint nextask(char *msg, char *answer, int limit) ! 1876: X ! 1877: X#else ! 1878: X ! 1879: Xint nextask(msg, answer, limit) ! 1880: Xchar *msg; /* message to display for user */ ! 1881: Xchar *answer; /* pointer to user's response to question */ ! 1882: Xint limit; /* limit of length for user's response */ ! 1883: X ! 1884: X#endif ! 1885: X{ ! 1886: X int idx; /* index into answer for character input */ ! 1887: X int got; /* number of characters read */ ! 1888: X char c; /* character read */ ! 1889: X ! 1890: X if (ttyf < 0) { ! 1891: X fatal("/dev/tty Unavailable"); ! 1892: X } ! 1893: X write(ttyf, msg, (uint) strlen(msg)); ! 1894: X idx = 0; ! 1895: X while ((got = read(ttyf, &c, 1)) == 1) { ! 1896: X if (c == '\n') { ! 1897: X break; ! 1898: X } else if (c == ' ' || c == '\t') { ! 1899: X continue; ! 1900: X } else if (idx < limit - 1) { ! 1901: X answer[idx++] = c; ! 1902: X } ! 1903: X } ! 1904: X if (got == 0) { /* got an EOF */ ! 1905: X return(-1); ! 1906: X } ! 1907: X if (got < 0) { ! 1908: X fatal(syserr()); ! 1909: X } ! 1910: X answer[idx] = '\0'; ! 1911: X return(0); ! 1912: X} ! 1913: X ! 1914: X ! 1915: X/* lineget - get a line from a given stream ! 1916: X * ! 1917: X * DESCRIPTION ! 1918: X * ! 1919: X * Get a line of input for the stream named by "stream". The data on ! 1920: X * the stream is put into the buffer "buf". ! 1921: X * ! 1922: X * PARAMETERS ! 1923: X * ! 1924: X * FILE *stream - Stream to get input from ! 1925: X * char *buf - Buffer to put input into ! 1926: X * ! 1927: X * RETURNS ! 1928: X * ! 1929: X * Returns 0 if successful, -1 at EOF. ! 1930: X */ ! 1931: X ! 1932: X#ifdef __STDC__ ! 1933: X ! 1934: Xint lineget(FILE *stream, char *buf) ! 1935: X ! 1936: X#else ! 1937: X ! 1938: Xint lineget(stream, buf) ! 1939: XFILE *stream; /* stream to get input from */ ! 1940: Xchar *buf; /* buffer to put input into */ ! 1941: X ! 1942: X#endif ! 1943: X{ ! 1944: X int c; ! 1945: X ! 1946: X for (;;) { ! 1947: X if ((c = getc(stream)) == EOF) { ! 1948: X return (-1); ! 1949: X } ! 1950: X if (c == '\n') { ! 1951: X break; ! 1952: X } ! 1953: X *buf++ = c; ! 1954: X } ! 1955: X *buf = '\0'; ! 1956: X return (0); ! 1957: X} ! 1958: X ! 1959: X ! 1960: X/* next - Advance to the next archive volume. ! 1961: X * ! 1962: X * DESCRIPTION ! 1963: X * ! 1964: X * Prompts the user to replace the backup medium with a new volume ! 1965: X * when the old one is full. There are some cases, such as when ! 1966: X * archiving to a file on a hard disk, that the message can be a ! 1967: X * little surprising. Assumes that background processes ignore ! 1968: X * interrupts and that the open() or the isatty() will fail for ! 1969: X * processes which are not attached to terminals. Returns a file ! 1970: X * descriptor or -1 if unsuccessful. ! 1971: X * ! 1972: X * PARAMETERS ! 1973: X * ! 1974: X * int mode - mode of archive (READ, WRITE, PASS) ! 1975: X */ ! 1976: X ! 1977: X#ifdef __STDC__ ! 1978: X ! 1979: Xvoid next(int mode) ! 1980: X ! 1981: X#else ! 1982: X ! 1983: Xvoid next(mode) ! 1984: Xint mode; /* mode of archive (READ, WRITE, PASS) */ ! 1985: X ! 1986: X#endif ! 1987: X{ ! 1988: X char msg[200]; /* buffer for message display */ ! 1989: X char answer[20]; /* buffer for user's answer */ ! 1990: X int ret; ! 1991: X ! 1992: X close_archive(); ! 1993: X ! 1994: X sprintf(msg, "\ ! 1995: X%s: Ready for volume %u\n\ ! 1996: X%s: Type \"go\" when ready to proceed (or \"quit\" to abort): \07", ! 1997: X myname, arvolume + 1, myname); ! 1998: X for (;;) { ! 1999: X ret = nextask(msg, answer, sizeof(answer)); ! 2000: X if (ret == -1 || strcmp(answer, "quit") == 0) { ! 2001: X fatal("Aborted"); ! 2002: X } ! 2003: X if (strcmp(answer, "go") == 0 && open_archive(mode) == 0) { ! 2004: X break; ! 2005: X } ! 2006: X } ! 2007: X warnarch("Continuing", (OFFSET) 0); ! 2008: X} ! 2009: END_OF_ttyio.c ! 2010: if test 6321 -ne `wc -c <ttyio.c`; then ! 2011: echo shar: \"ttyio.c\" unpacked with wrong size! ! 2012: fi ! 2013: # end of overwriting check ! 2014: fi ! 2015: if test -f warn.c -a "${1}" != "-c" ; then ! 2016: echo shar: Will not over-write existing file \"warn.c\" ! 2017: else ! 2018: echo shar: Extracting \"warn.c\" \(5446 characters\) ! 2019: sed "s/^X//" >warn.c <<'END_OF_warn.c' ! 2020: X/* $Source: /u/mark/src/pax/RCS/warn.c,v $ ! 2021: X * ! 2022: X * $Revision: 1.1 $ ! 2023: X * ! 2024: X * warn.c - miscellaneous user warning routines ! 2025: X * ! 2026: X * DESCRIPTION ! 2027: X * ! 2028: X * These routines provide the user with various forms of warning ! 2029: X * and informational messages. ! 2030: X * ! 2031: X * AUTHOR ! 2032: X * ! 2033: X * Mark H. Colburn, NAPS International ([email protected]) ! 2034: X * ! 2035: X * Sponsored by The USENIX Association for public distribution. ! 2036: X * ! 2037: X * Copyright (c) 1989 Mark H. Colburn. ! 2038: X * All rights reserved. ! 2039: X * ! 2040: X * Redistribution and use in source and binary forms are permitted ! 2041: X * provided that the above copyright notice is duplicated in all such ! 2042: X * forms and that any documentation, advertising materials, and other ! 2043: X * materials related to such distribution and use acknowledge that the ! 2044: X * software was developed * by Mark H. Colburn and sponsored by The ! 2045: X * USENIX Association. ! 2046: X * ! 2047: X * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR ! 2048: X * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED ! 2049: X * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 2050: X * ! 2051: X * $Log: warn.c,v $ ! 2052: X * Revision 1.1 88/12/23 18:02:40 mark ! 2053: X * Initial revision ! 2054: X * ! 2055: X */ ! 2056: X ! 2057: X#ifndef lint ! 2058: Xstatic char *ident = "$Id: warn.c,v 1.1 88/12/23 18:02:40 mark Rel $"; ! 2059: Xstatic char *copyright = "Copyright (c) 1989 Mark H. Colburn.\nAll rights reserved.\n"; ! 2060: X#endif /* ! lint */ ! 2061: X ! 2062: X ! 2063: X/* Headers */ ! 2064: X ! 2065: X#include "pax.h" ! 2066: X ! 2067: X ! 2068: X/* Function Prototypes */ ! 2069: X ! 2070: X#ifdef __STDC__ ! 2071: X ! 2072: Xstatic void prsize(FILE *, OFFSET); ! 2073: X ! 2074: X#else /* !__STDC__ */ ! 2075: X ! 2076: Xstatic void prsize(); ! 2077: X ! 2078: X#endif /* __STDC__ */ ! 2079: X ! 2080: X ! 2081: X/* warnarch - print an archive-related warning message and offset ! 2082: X * ! 2083: X * DESCRIPTION ! 2084: X * ! 2085: X * Present the user with an error message and an archive offset at ! 2086: X * which the error occured. This can be useful for diagnosing or ! 2087: X * fixing damaged archives. ! 2088: X * ! 2089: X * PARAMETERS ! 2090: X * ! 2091: X * char *msg - A message string to be printed for the user. ! 2092: X * OFFSET adjust - An adjustment which is added to the current ! 2093: X * archive position to tell the user exactly where ! 2094: X * the error occurred. ! 2095: X */ ! 2096: X ! 2097: X#ifdef __STDC__ ! 2098: X ! 2099: Xvoid warnarch(char *msg, OFFSET adjust) ! 2100: X ! 2101: X#else ! 2102: X ! 2103: Xvoid warnarch(msg, adjust) ! 2104: Xchar *msg; ! 2105: XOFFSET adjust; ! 2106: X ! 2107: X#endif ! 2108: X{ ! 2109: X fprintf(stderr, "%s: [offset ", myname); ! 2110: X prsize(stderr, total - adjust); ! 2111: X fprintf(stderr, "]: %s\n", msg); ! 2112: X} ! 2113: X ! 2114: X ! 2115: X/* syserr - return pointer to appropriate system error message ! 2116: X * ! 2117: X * DESCRIPTION ! 2118: X * ! 2119: X * Get an error message string which is appropriate for the setting ! 2120: X * of the errno variable. ! 2121: X * ! 2122: X * RETURNS ! 2123: X * ! 2124: X * Returns a pointer to a string which has an appropriate error ! 2125: X * message for the present value of errno. The error message ! 2126: X * strings are taken from sys_errlist[] where appropriate. If an ! 2127: X * appropriate message is not available in sys_errlist, then a ! 2128: X * pointer to the string "Unknown error (errno <errvalue>)" is ! 2129: X * returned instead. ! 2130: X */ ! 2131: X ! 2132: X#ifdef __STDC__ ! 2133: X ! 2134: Xchar *syserr(void) ! 2135: X ! 2136: X#else ! 2137: X ! 2138: Xchar *syserr() ! 2139: X ! 2140: X#endif ! 2141: X{ ! 2142: X static char msg[40]; /* used for "Unknown error" messages */ ! 2143: X ! 2144: X if (errno > 0 && errno < sys_nerr) { ! 2145: X return (sys_errlist[errno]); ! 2146: X } ! 2147: X sprintf(msg, "Unknown error (errno %d)", errno); ! 2148: X return (msg); ! 2149: X} ! 2150: X ! 2151: X ! 2152: X/* prsize - print a file offset on a file stream ! 2153: X * ! 2154: X * DESCRIPTION ! 2155: X * ! 2156: X * Prints a file offset to a specific file stream. The file offset is ! 2157: X * of the form "%dm+%dk+%d", where the number preceeding the "m" and ! 2158: X * the "k" stand for the number of Megabytes and the number of ! 2159: X * Kilobytes, respectivley, which have been processed so far. ! 2160: X * ! 2161: X * PARAMETERS ! 2162: X * ! 2163: X * FILE *stream - Stream which is to be used for output ! 2164: X * OFFSET size - Current archive position to be printed on the output ! 2165: X * stream in the form: "%dm+%dk+%d". ! 2166: X * ! 2167: X */ ! 2168: X ! 2169: X#ifdef __STDC__ ! 2170: X ! 2171: Xstatic void prsize(FILE *stream, OFFSET size) ! 2172: X ! 2173: X#else ! 2174: X ! 2175: Xstatic void prsize(stream, size) ! 2176: XFILE *stream; /* stream which is used for output */ ! 2177: XOFFSET size; /* current archive position to be printed */ ! 2178: X ! 2179: X#endif ! 2180: X ! 2181: X{ ! 2182: X OFFSET n; ! 2183: X ! 2184: X if (n = (size / (1024 * 1024))) { ! 2185: X fprintf(stream, "%ldm+", n); ! 2186: X size -= n * 1024 * 1024; ! 2187: X } ! 2188: X if (n = (size / 1024)) { ! 2189: X fprintf(stream, "%ldk+", n); ! 2190: X size -= n * 1024; ! 2191: X } ! 2192: X fprintf(stream, "%ld", size); ! 2193: X} ! 2194: X ! 2195: X ! 2196: X/* fatal - print fatal message and exit ! 2197: X * ! 2198: X * DESCRIPTION ! 2199: X * ! 2200: X * Fatal prints the program's name along with an error message, then ! 2201: X * exits the program with a non-zero return code. ! 2202: X * ! 2203: X * PARAMETERS ! 2204: X * ! 2205: X * char *why - description of reason for termination ! 2206: X * ! 2207: X * RETURNS ! 2208: X * ! 2209: X * Returns an exit code of 1 to the parent process. ! 2210: X */ ! 2211: X ! 2212: X#ifdef __STDC__ ! 2213: X ! 2214: Xvoid fatal(char *why) ! 2215: X ! 2216: X#else ! 2217: X ! 2218: Xvoid fatal(why) ! 2219: Xchar *why; /* description of reason for termination */ ! 2220: X ! 2221: X#endif ! 2222: X{ ! 2223: X fprintf(stderr, "%s: %s\n", myname, why); ! 2224: X exit(1); ! 2225: X} ! 2226: X ! 2227: X ! 2228: X ! 2229: X/* warn - print a warning message ! 2230: X * ! 2231: X * DESCRIPTION ! 2232: X * ! 2233: X * Print an error message listing the program name, the actual error ! 2234: X * which occurred and an informational message as to why the error ! 2235: X * occurred on the standard error device. The standard error is ! 2236: X * flushed after the error is printed to assure that the user gets ! 2237: X * the message in a timely fasion. ! 2238: X * ! 2239: X * PARAMETERS ! 2240: X * ! 2241: X * char *what - Pointer to string describing what failed. ! 2242: X * char *why - Pointer to string describing why did it failed. ! 2243: X */ ! 2244: X ! 2245: X#ifdef __STDC__ ! 2246: X ! 2247: Xvoid warn(char *what, char *why) ! 2248: X ! 2249: X#else ! 2250: X ! 2251: Xvoid warn(what, why) ! 2252: Xchar *what; /* message as to what the error was */ ! 2253: Xchar *why; /* explanation why the error occurred */ ! 2254: X ! 2255: X#endif ! 2256: X{ ! 2257: X fprintf(stderr, "%s: %s : %s\n", myname, what, why); ! 2258: X fflush(stderr); ! 2259: X} ! 2260: END_OF_warn.c ! 2261: if test 5446 -ne `wc -c <warn.c`; then ! 2262: echo shar: \"warn.c\" unpacked with wrong size! ! 2263: fi ! 2264: # end of overwriting check ! 2265: fi ! 2266: echo shar: End of archive 2 \(of 6\). ! 2267: cp /dev/null ark2isdone ! 2268: MISSING="" ! 2269: for I in 1 2 3 4 5 6 ; do ! 2270: if test ! -f ark${I}isdone ; then ! 2271: MISSING="${MISSING} ${I}" ! 2272: fi ! 2273: done ! 2274: if test "${MISSING}" = "" ; then ! 2275: echo You have unpacked all 6 archives. ! 2276: rm -f ark[1-9]isdone ! 2277: else ! 2278: echo You still need to unpack the following archives: ! 2279: echo " " ${MISSING} ! 2280: fi ! 2281: ## End of shell archive. ! 2282: exit 0 ! 2283:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.