![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tar.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 40BSD / cmd|
Return to tar.c CVS log | Up to [CSRG BSD Unix] / 40BSD / cmd |
1.1 ! root 1: static char *sccsid = "@(#)tar.c 4.1 (Berkeley) 10/1/80"; ! 2: #include <stdio.h> ! 3: #include <sys/types.h> ! 4: #include <sys/stat.h> ! 5: #include <sys/dir.h> ! 6: #include <signal.h> ! 7: ! 8: char *sprintf(); ! 9: char *strcat(); ! 10: daddr_t bsrch(); ! 11: #define TBLOCK 512 ! 12: #define NBLOCK 40 ! 13: #define NAMSIZ 100 ! 14: union hblock { ! 15: char dummy[TBLOCK]; ! 16: struct header { ! 17: char name[NAMSIZ]; ! 18: char mode[8]; ! 19: char uid[8]; ! 20: char gid[8]; ! 21: char size[12]; ! 22: char mtime[12]; ! 23: char chksum[8]; ! 24: char linkflag; ! 25: char linkname[NAMSIZ]; ! 26: } dbuf; ! 27: } dblock, tbuf[NBLOCK]; ! 28: ! 29: struct linkbuf { ! 30: ino_t inum; ! 31: dev_t devnum; ! 32: int count; ! 33: char pathname[NAMSIZ]; ! 34: struct linkbuf *nextp; ! 35: } *ihead; ! 36: ! 37: struct stat stbuf; ! 38: ! 39: int rflag, xflag, vflag, tflag, mt, cflag, mflag, fflag, oflag, pflag; ! 40: int term, chksum, wflag, recno, first, linkerrok; ! 41: int freemem = 1; ! 42: int nblock = 1; ! 43: ! 44: daddr_t low; ! 45: daddr_t high; ! 46: ! 47: FILE *tfile; ! 48: char tname[] = "/tmp/tarXXXXXX"; ! 49: ! 50: ! 51: char *usefile; ! 52: char magtape[] = "/dev/rmt8"; ! 53: ! 54: char *malloc(); ! 55: ! 56: main(argc, argv) ! 57: int argc; ! 58: char *argv[]; ! 59: { ! 60: char *cp; ! 61: int onintr(), onquit(), onhup(), onterm(); ! 62: ! 63: if (argc < 2) ! 64: usage(); ! 65: ! 66: tfile = NULL; ! 67: usefile = magtape; ! 68: argv[argc] = 0; ! 69: argv++; ! 70: for (cp = *argv++; *cp; cp++) ! 71: switch(*cp) { ! 72: case 'f': ! 73: usefile = *argv++; ! 74: fflag++; ! 75: if (nblock == 1) ! 76: nblock = 0; ! 77: break; ! 78: case 'c': ! 79: cflag++; ! 80: rflag++; ! 81: break; ! 82: case 'o': ! 83: oflag++; ! 84: break; ! 85: case 'p': ! 86: pflag++; ! 87: break; ! 88: case 'u': ! 89: mktemp(tname); ! 90: if ((tfile = fopen(tname, "w")) == NULL) { ! 91: fprintf(stderr, "Tar: cannot create temporary file (%s)\n", tname); ! 92: done(1); ! 93: } ! 94: fprintf(tfile, "!!!!!/!/!/!/!/!/!/! 000\n"); ! 95: /* FALL THROUGH */ ! 96: case 'r': ! 97: rflag++; ! 98: noupdate: ! 99: if (nblock != 1 && cflag == 0) { ! 100: fprintf(stderr, "Tar: Blocked tapes cannot be updated (yet)\n"); ! 101: done(1); ! 102: } ! 103: break; ! 104: case 'v': ! 105: vflag++; ! 106: break; ! 107: case 'w': ! 108: wflag++; ! 109: break; ! 110: case 'x': ! 111: xflag++; ! 112: break; ! 113: case 't': ! 114: tflag++; ! 115: break; ! 116: case 'm': ! 117: mflag++; ! 118: break; ! 119: case '-': ! 120: break; ! 121: case '0': ! 122: case '1': ! 123: case '4': ! 124: case '5': ! 125: case '7': ! 126: case '8': ! 127: magtape[8] = *cp; ! 128: usefile = magtape; ! 129: break; ! 130: case 'b': ! 131: nblock = atoi(*argv++); ! 132: if (nblock > NBLOCK || nblock <= 0) { ! 133: fprintf(stderr, "Invalid blocksize. (Max %d)\n", NBLOCK); ! 134: done(1); ! 135: } ! 136: if (rflag && !cflag) ! 137: goto noupdate; ! 138: break; ! 139: case 'l': ! 140: linkerrok++; ! 141: break; ! 142: default: ! 143: fprintf(stderr, "tar: %c: unknown option\n", *cp); ! 144: usage(); ! 145: } ! 146: ! 147: if (rflag) { ! 148: if (cflag && tfile != NULL) { ! 149: usage(); ! 150: done(1); ! 151: } ! 152: if (signal(SIGINT, SIG_IGN) != SIG_IGN) ! 153: signal(SIGINT, onintr); ! 154: if (signal(SIGHUP, SIG_IGN) != SIG_IGN) ! 155: signal(SIGHUP, onhup); ! 156: if (signal(SIGQUIT, SIG_IGN) != SIG_IGN) ! 157: signal(SIGQUIT, onquit); ! 158: /* ! 159: if (signal(SIGTERM, SIG_IGN) != SIG_IGN) ! 160: signal(SIGTERM, onterm); ! 161: */ ! 162: if (strcmp(usefile, "-") == 0) { ! 163: if (cflag == 0) { ! 164: fprintf(stderr, "Can only create standard output archives\n"); ! 165: done(1); ! 166: } ! 167: mt = dup(1); ! 168: nblock = 1; ! 169: } ! 170: else if ((mt = open(usefile, 2)) < 0) { ! 171: if (cflag == 0 || (mt = creat(usefile, 0666)) < 0) { ! 172: fprintf(stderr, "tar: cannot open %s\n", usefile); ! 173: done(1); ! 174: } ! 175: } ! 176: if (cflag == 0 && nblock == 0) ! 177: nblock = 1; ! 178: dorep(argv); ! 179: } ! 180: else if (xflag) { ! 181: if (strcmp(usefile, "-") == 0) { ! 182: mt = dup(0); ! 183: nblock = 1; ! 184: } ! 185: else if ((mt = open(usefile, 0)) < 0) { ! 186: fprintf(stderr, "tar: cannot open %s\n", usefile); ! 187: done(1); ! 188: } ! 189: doxtract(argv); ! 190: } ! 191: else if (tflag) { ! 192: if (strcmp(usefile, "-") == 0) { ! 193: mt = dup(0); ! 194: nblock = 1; ! 195: } ! 196: else if ((mt = open(usefile, 0)) < 0) { ! 197: fprintf(stderr, "tar: cannot open %s\n", usefile); ! 198: done(1); ! 199: } ! 200: dotable(); ! 201: } ! 202: else ! 203: usage(); ! 204: done(0); ! 205: } ! 206: ! 207: usage() ! 208: { ! 209: fprintf(stderr, "tar: usage tar -{txru}[cvfblm] [tapefile] [blocksize] file1 file2...\n"); ! 210: done(1); ! 211: } ! 212: ! 213: dorep(argv) ! 214: char *argv[]; ! 215: { ! 216: register char *cp, *cp2; ! 217: char wdir[60]; ! 218: ! 219: if (!cflag) { ! 220: getdir(); ! 221: do { ! 222: passtape(); ! 223: if (term) ! 224: done(0); ! 225: getdir(); ! 226: } while (!endtape()); ! 227: if (tfile != NULL) { ! 228: char buf[200]; ! 229: ! 230: strcat(buf, "sort +0 -1 +1nr "); ! 231: strcat(buf, tname); ! 232: strcat(buf, " -o "); ! 233: strcat(buf, tname); ! 234: sprintf(buf, "sort +0 -1 +1nr %s -o %s; awk '$1 != prev {print; prev=$1}' %s >%sX;mv %sX %s", ! 235: tname, tname, tname, tname, tname, tname); ! 236: fflush(tfile); ! 237: system(buf); ! 238: freopen(tname, "r", tfile); ! 239: fstat(fileno(tfile), &stbuf); ! 240: high = stbuf.st_size; ! 241: } ! 242: } ! 243: ! 244: getwdir(wdir); ! 245: while (*argv && ! term) { ! 246: cp2 = *argv; ! 247: if (!strcmp(cp2, "-C") && argv[1]) { ! 248: argv++; ! 249: if (chdir(*argv) < 0) ! 250: perror(*argv); ! 251: else ! 252: getwdir(wdir); ! 253: argv++; ! 254: continue; ! 255: } ! 256: for (cp = *argv; *cp; cp++) ! 257: if (*cp == '/') ! 258: cp2 = cp; ! 259: if (cp2 != *argv) { ! 260: *cp2 = '\0'; ! 261: chdir(*argv); ! 262: *cp2 = '/'; ! 263: cp2++; ! 264: } ! 265: putfile(*argv++, cp2); ! 266: chdir(wdir); ! 267: } ! 268: putempty(); ! 269: putempty(); ! 270: flushtape(); ! 271: if (linkerrok == 1) ! 272: for (; ihead != NULL; ihead = ihead->nextp) ! 273: if (ihead->count != 0) ! 274: fprintf(stderr, "Missing links to %s\n", ihead->pathname); ! 275: } ! 276: ! 277: endtape() ! 278: { ! 279: if (dblock.dbuf.name[0] == '\0') { ! 280: backtape(); ! 281: return(1); ! 282: } ! 283: else ! 284: return(0); ! 285: } ! 286: ! 287: getdir() ! 288: { ! 289: register struct stat *sp; ! 290: int i; ! 291: ! 292: readtape( (char *) &dblock); ! 293: if (dblock.dbuf.name[0] == '\0') ! 294: return; ! 295: sp = &stbuf; ! 296: sscanf(dblock.dbuf.mode, "%o", &i); ! 297: sp->st_mode = i; ! 298: sscanf(dblock.dbuf.uid, "%o", &i); ! 299: sp->st_uid = i; ! 300: sscanf(dblock.dbuf.gid, "%o", &i); ! 301: sp->st_gid = i; ! 302: sscanf(dblock.dbuf.size, "%lo", &sp->st_size); ! 303: sscanf(dblock.dbuf.mtime, "%lo", &sp->st_mtime); ! 304: sscanf(dblock.dbuf.chksum, "%o", &chksum); ! 305: if (chksum != checksum()) { ! 306: fprintf(stderr, "directory checksum error\n"); ! 307: done(2); ! 308: } ! 309: if (tfile != NULL) ! 310: fprintf(tfile, "%s %s\n", dblock.dbuf.name, dblock.dbuf.mtime); ! 311: } ! 312: ! 313: passtape() ! 314: { ! 315: long blocks; ! 316: char buf[TBLOCK]; ! 317: ! 318: if (dblock.dbuf.linkflag == '1') ! 319: return; ! 320: blocks = stbuf.st_size; ! 321: blocks += TBLOCK-1; ! 322: blocks /= TBLOCK; ! 323: ! 324: while (blocks-- > 0) ! 325: readtape(buf); ! 326: } ! 327: ! 328: putfile(longname, shortname) ! 329: char *longname; ! 330: char *shortname; ! 331: { ! 332: int infile; ! 333: long blocks; ! 334: char buf[TBLOCK]; ! 335: register char *cp, *cp2; ! 336: struct direct dbuf; ! 337: int i, j; ! 338: ! 339: infile = open(shortname, 0); ! 340: if (infile < 0) { ! 341: fprintf(stderr, "tar: %s: cannot open file\n", longname); ! 342: return; ! 343: } ! 344: ! 345: fstat(infile, &stbuf); ! 346: ! 347: if (tfile != NULL && checkupdate(longname) == 0) { ! 348: close(infile); ! 349: return; ! 350: } ! 351: if (checkw('r', longname) == 0) { ! 352: close(infile); ! 353: return; ! 354: } ! 355: ! 356: if ((stbuf.st_mode & S_IFMT) == S_IFDIR) { ! 357: for (i = 0, cp = buf; *cp++ = longname[i++];); ! 358: *--cp = '/'; ! 359: *++cp = 0 ; ! 360: i = 0; ! 361: if (!oflag) { ! 362: if( (cp - buf) >= NAMSIZ) { ! 363: fprintf(stderr, "%s: file name too long\n", longname); ! 364: close(infile); ! 365: return; ! 366: } ! 367: stbuf.st_size = 0; ! 368: tomodes(&stbuf); ! 369: strcpy(dblock.dbuf.name,buf); ! 370: sprintf(dblock.dbuf.chksum, "%6o", checksum()); ! 371: writetape( (char *) &dblock); ! 372: } ! 373: chdir(shortname); ! 374: while (read(infile, (char *)&dbuf, sizeof(dbuf)) > 0 && !term) { ! 375: if (dbuf.d_ino == 0) { ! 376: i++; ! 377: continue; ! 378: } ! 379: if (strcmp(".", dbuf.d_name) == 0 || strcmp("..", dbuf.d_name) == 0) { ! 380: i++; ! 381: continue; ! 382: } ! 383: cp2 = cp; ! 384: for (j=0; j < DIRSIZ; j++) ! 385: *cp2++ = dbuf.d_name[j]; ! 386: *cp2 = '\0'; ! 387: close(infile); ! 388: putfile(buf, cp); ! 389: infile = open(".", 0); ! 390: i++; ! 391: lseek(infile, (long) (sizeof(dbuf) * i), 0); ! 392: } ! 393: close(infile); ! 394: chdir(".."); ! 395: return; ! 396: } ! 397: if ((stbuf.st_mode & S_IFMT) != S_IFREG) { ! 398: fprintf(stderr, "tar: %s is not a file. Not dumped\n", longname); ! 399: return; ! 400: } ! 401: ! 402: tomodes(&stbuf); ! 403: ! 404: cp2 = longname; ! 405: for (cp = dblock.dbuf.name, i=0; (*cp++ = *cp2++) && i < NAMSIZ; i++); ! 406: if (i >= NAMSIZ) { ! 407: fprintf(stderr, "%s: file name too long\n", longname); ! 408: close(infile); ! 409: return; ! 410: } ! 411: ! 412: if (stbuf.st_nlink > 1) { ! 413: struct linkbuf *lp; ! 414: int found = 0; ! 415: ! 416: for (lp = ihead; lp != NULL; lp = lp->nextp) { ! 417: if (lp->inum == stbuf.st_ino && lp->devnum == stbuf.st_dev) { ! 418: found++; ! 419: break; ! 420: } ! 421: } ! 422: if (found) { ! 423: strcpy(dblock.dbuf.linkname, lp->pathname); ! 424: dblock.dbuf.linkflag = '1'; ! 425: sprintf(dblock.dbuf.chksum, "%6o", checksum()); ! 426: writetape( (char *) &dblock); ! 427: if (vflag) { ! 428: fprintf(stderr, "a %s ", longname); ! 429: fprintf(stderr, "link to %s\n", lp->pathname); ! 430: } ! 431: lp->count--; ! 432: close(infile); ! 433: return; ! 434: } ! 435: else { ! 436: lp = (struct linkbuf *) malloc(sizeof(*lp)); ! 437: if (lp == NULL) { ! 438: if (freemem) { ! 439: fprintf(stderr, "Out of memory. Link information lost\n"); ! 440: freemem = 0; ! 441: } ! 442: } ! 443: else { ! 444: lp->nextp = ihead; ! 445: ihead = lp; ! 446: lp->inum = stbuf.st_ino; ! 447: lp->devnum = stbuf.st_dev; ! 448: lp->count = stbuf.st_nlink - 1; ! 449: strcpy(lp->pathname, longname); ! 450: } ! 451: } ! 452: } ! 453: ! 454: blocks = (stbuf.st_size + (TBLOCK-1)) / TBLOCK; ! 455: if (vflag) { ! 456: fprintf(stderr, "a %s ", longname); ! 457: fprintf(stderr, "%ld blocks\n", blocks); ! 458: } ! 459: sprintf(dblock.dbuf.chksum, "%6o", checksum()); ! 460: writetape( (char *) &dblock); ! 461: ! 462: while ((i = read(infile, buf, TBLOCK)) > 0 && blocks > 0) { ! 463: writetape(buf); ! 464: blocks--; ! 465: } ! 466: close(infile); ! 467: if (blocks != 0 || i != 0) ! 468: fprintf(stderr, "%s: file changed size\n", longname); ! 469: while (blocks-- > 0) ! 470: putempty(); ! 471: } ! 472: ! 473: ! 474: ! 475: doxtract(argv) ! 476: char *argv[]; ! 477: { ! 478: long blocks, bytes; ! 479: char buf[TBLOCK]; ! 480: char **cp; ! 481: int ofile; ! 482: ! 483: for (;;) { ! 484: getdir(); ! 485: if (endtape()) ! 486: break; ! 487: ! 488: if (*argv == 0) ! 489: goto gotit; ! 490: ! 491: for (cp = argv; *cp; cp++) ! 492: if (prefix(*cp, dblock.dbuf.name)) ! 493: goto gotit; ! 494: passtape(); ! 495: continue; ! 496: ! 497: gotit: ! 498: if (checkw('x', dblock.dbuf.name) == 0) { ! 499: passtape(); ! 500: continue; ! 501: } ! 502: ! 503: if(checkdir(dblock.dbuf.name)) ! 504: continue; ! 505: ! 506: if (dblock.dbuf.linkflag == '1') { ! 507: unlink(dblock.dbuf.name); ! 508: if (link(dblock.dbuf.linkname, dblock.dbuf.name) < 0) { ! 509: fprintf(stderr, "%s: cannot link\n", dblock.dbuf.name); ! 510: continue; ! 511: } ! 512: if (vflag) ! 513: fprintf(stderr, "%s linked to %s\n", dblock.dbuf.name, dblock.dbuf.linkname); ! 514: continue; ! 515: } ! 516: if ((ofile = creat(dblock.dbuf.name, stbuf.st_mode & 07777)) < 0) { ! 517: fprintf(stderr, "tar: %s - cannot create\n", dblock.dbuf.name); ! 518: passtape(); ! 519: continue; ! 520: } ! 521: ! 522: blocks = ((bytes = stbuf.st_size) + TBLOCK-1)/TBLOCK; ! 523: if (vflag) ! 524: fprintf(stderr, "x %s, %ld bytes, %ld tape blocks\n", dblock.dbuf.name, bytes, blocks); ! 525: while (blocks-- > 0) { ! 526: readtape(buf); ! 527: if (bytes > TBLOCK) { ! 528: if (write(ofile, buf, TBLOCK) < 0) { ! 529: fprintf(stderr, "tar: %s: HELP - extract write error\n", dblock.dbuf.name); ! 530: done(2); ! 531: } ! 532: } else ! 533: if (write(ofile, buf, (int) bytes) < 0) { ! 534: fprintf(stderr, "tar: %s: HELP - extract write error\n", dblock.dbuf.name); ! 535: done(2); ! 536: } ! 537: bytes -= TBLOCK; ! 538: } ! 539: close(ofile); ! 540: if (mflag == 0) { ! 541: time_t timep[2]; ! 542: ! 543: timep[0] = time(NULL); ! 544: timep[1] = stbuf.st_mtime; ! 545: utime(dblock.dbuf.name, timep); ! 546: } ! 547: if(pflag) { ! 548: chown(dblock.dbuf.name, stbuf.st_uid, stbuf.st_gid); ! 549: chmod(dblock.dbuf.name, stbuf.st_mode & 07777); ! 550: } ! 551: } ! 552: } ! 553: ! 554: dotable() ! 555: { ! 556: for (;;) { ! 557: getdir(); ! 558: if (endtape()) ! 559: break; ! 560: if (vflag) ! 561: longt(&stbuf); ! 562: printf("%s", dblock.dbuf.name); ! 563: if (dblock.dbuf.linkflag == '1') ! 564: printf(" linked to %s", dblock.dbuf.linkname); ! 565: printf("\n"); ! 566: passtape(); ! 567: } ! 568: } ! 569: ! 570: putempty() ! 571: { ! 572: char buf[TBLOCK]; ! 573: char *cp; ! 574: ! 575: for (cp = buf; cp < &buf[TBLOCK]; ) ! 576: *cp++ = '\0'; ! 577: writetape(buf); ! 578: } ! 579: ! 580: longt(st) ! 581: register struct stat *st; ! 582: { ! 583: register char *cp; ! 584: char *ctime(); ! 585: ! 586: pmode(st); ! 587: printf("%3d/%1d", st->st_uid, st->st_gid); ! 588: printf("%7D", st->st_size); ! 589: cp = ctime(&st->st_mtime); ! 590: printf(" %-12.12s %-4.4s ", cp+4, cp+20); ! 591: } ! 592: ! 593: #define SUID 04000 ! 594: #define SGID 02000 ! 595: #define ROWN 0400 ! 596: #define WOWN 0200 ! 597: #define XOWN 0100 ! 598: #define RGRP 040 ! 599: #define WGRP 020 ! 600: #define XGRP 010 ! 601: #define ROTH 04 ! 602: #define WOTH 02 ! 603: #define XOTH 01 ! 604: #define STXT 01000 ! 605: int m1[] = { 1, ROWN, 'r', '-' }; ! 606: int m2[] = { 1, WOWN, 'w', '-' }; ! 607: int m3[] = { 2, SUID, 's', XOWN, 'x', '-' }; ! 608: int m4[] = { 1, RGRP, 'r', '-' }; ! 609: int m5[] = { 1, WGRP, 'w', '-' }; ! 610: int m6[] = { 2, SGID, 's', XGRP, 'x', '-' }; ! 611: int m7[] = { 1, ROTH, 'r', '-' }; ! 612: int m8[] = { 1, WOTH, 'w', '-' }; ! 613: int m9[] = { 2, STXT, 't', XOTH, 'x', '-' }; ! 614: ! 615: int *m[] = { m1, m2, m3, m4, m5, m6, m7, m8, m9}; ! 616: ! 617: pmode(st) ! 618: register struct stat *st; ! 619: { ! 620: register int **mp; ! 621: ! 622: for (mp = &m[0]; mp < &m[9];) ! 623: select(*mp++, st); ! 624: } ! 625: ! 626: select(pairp, st) ! 627: int *pairp; ! 628: struct stat *st; ! 629: { ! 630: register int n, *ap; ! 631: ! 632: ap = pairp; ! 633: n = *ap++; ! 634: while (--n>=0 && (st->st_mode&*ap++)==0) ! 635: ap++; ! 636: printf("%c", *ap); ! 637: } ! 638: ! 639: checkdir(name) ! 640: register char *name; ! 641: { ! 642: register char *cp; ! 643: int i; ! 644: for (cp = name; *cp; cp++) { ! 645: if (*cp == '/') { ! 646: *cp = '\0'; ! 647: if (access(name, 01) < 0) { ! 648: register int pid, rp; ! 649: ! 650: if ((pid = fork()) == 0) { ! 651: execl("/bin/mkdir", "mkdir", name, 0); ! 652: execl("/usr/bin/mkdir", "mkdir", name, 0); ! 653: fprintf(stderr, "tar: cannot find mkdir!\n"); ! 654: done(0); ! 655: } ! 656: while ((rp = wait(&i)) >= 0 && rp != pid) ! 657: ; ! 658: if(pflag) { ! 659: chown(name, stbuf.st_uid, stbuf.st_gid); ! 660: chmod(dblock.dbuf.name, stbuf.st_mode & 0777); ! 661: } ! 662: } ! 663: *cp = '/'; ! 664: } ! 665: } ! 666: return(cp[-1]=='/'); ! 667: } ! 668: ! 669: onintr() ! 670: { ! 671: signal(SIGINT, SIG_IGN); ! 672: term++; ! 673: } ! 674: ! 675: onquit() ! 676: { ! 677: signal(SIGQUIT, SIG_IGN); ! 678: term++; ! 679: } ! 680: ! 681: onhup() ! 682: { ! 683: signal(SIGHUP, SIG_IGN); ! 684: term++; ! 685: } ! 686: ! 687: onterm() ! 688: { ! 689: signal(SIGTERM, SIG_IGN); ! 690: term++; ! 691: } ! 692: ! 693: tomodes(sp) ! 694: register struct stat *sp; ! 695: { ! 696: register char *cp; ! 697: ! 698: for (cp = dblock.dummy; cp < &dblock.dummy[TBLOCK]; cp++) ! 699: *cp = '\0'; ! 700: sprintf(dblock.dbuf.mode, "%6o ", sp->st_mode & 07777); ! 701: sprintf(dblock.dbuf.uid, "%6o ", sp->st_uid); ! 702: sprintf(dblock.dbuf.gid, "%6o ", sp->st_gid); ! 703: sprintf(dblock.dbuf.size, "%11lo ", sp->st_size); ! 704: sprintf(dblock.dbuf.mtime, "%11lo ", sp->st_mtime); ! 705: } ! 706: ! 707: checksum() ! 708: { ! 709: register i; ! 710: register char *cp; ! 711: ! 712: for (cp = dblock.dbuf.chksum; cp < &dblock.dbuf.chksum[sizeof(dblock.dbuf.chksum)]; cp++) ! 713: *cp = ' '; ! 714: i = 0; ! 715: for (cp = dblock.dummy; cp < &dblock.dummy[TBLOCK]; cp++) ! 716: i += *cp; ! 717: return(i); ! 718: } ! 719: ! 720: checkw(c, name) ! 721: char *name; ! 722: { ! 723: if (wflag) { ! 724: printf("%c ", c); ! 725: if (vflag) ! 726: longt(&stbuf); ! 727: printf("%s: ", name); ! 728: if (response() == 'y'){ ! 729: return(1); ! 730: } ! 731: return(0); ! 732: } ! 733: return(1); ! 734: } ! 735: ! 736: response() ! 737: { ! 738: char c; ! 739: ! 740: c = getchar(); ! 741: if (c != '\n') ! 742: while (getchar() != '\n'); ! 743: else c = 'n'; ! 744: return(c); ! 745: } ! 746: ! 747: checkupdate(arg) ! 748: char *arg; ! 749: { ! 750: char name[100]; ! 751: long mtime; ! 752: daddr_t seekp; ! 753: daddr_t lookup(); ! 754: ! 755: rewind(tfile); ! 756: for (;;) { ! 757: if ((seekp = lookup(arg)) < 0) ! 758: return(1); ! 759: fseek(tfile, seekp, 0); ! 760: fscanf(tfile, "%s %lo", name, &mtime); ! 761: if (stbuf.st_mtime > mtime) ! 762: return(1); ! 763: else ! 764: return(0); ! 765: } ! 766: } ! 767: ! 768: done(n) ! 769: { ! 770: unlink(tname); ! 771: exit(n); ! 772: } ! 773: ! 774: prefix(s1, s2) ! 775: register char *s1, *s2; ! 776: { ! 777: while (*s1) ! 778: if (*s1++ != *s2++) ! 779: return(0); ! 780: if (*s2) ! 781: return(*s2 == '/'); ! 782: return(1); ! 783: } ! 784: ! 785: getwdir(s) ! 786: char *s; ! 787: { ! 788: int i; ! 789: int pipdes[2]; ! 790: ! 791: pipe(pipdes); ! 792: if ((i = fork()) == 0) { ! 793: close(1); ! 794: dup(pipdes[1]); ! 795: execl("/bin/pwd", "pwd", 0); ! 796: execl("/usr/bin/pwd", "pwd", 0); ! 797: fprintf(stderr, "pwd failed!\n"); ! 798: printf("/\n"); ! 799: exit(1); ! 800: } ! 801: while (wait((int *)NULL) != -1) ! 802: ; ! 803: read(pipdes[0], s, 50); ! 804: while(*s != '\n') ! 805: s++; ! 806: *s = '\0'; ! 807: close(pipdes[0]); ! 808: close(pipdes[1]); ! 809: } ! 810: ! 811: #define N 200 ! 812: int njab; ! 813: daddr_t ! 814: lookup(s) ! 815: char *s; ! 816: { ! 817: register i; ! 818: daddr_t a; ! 819: ! 820: for(i=0; s[i]; i++) ! 821: if(s[i] == ' ') ! 822: break; ! 823: a = bsrch(s, i, low, high); ! 824: return(a); ! 825: } ! 826: ! 827: daddr_t ! 828: bsrch(s, n, l, h) ! 829: daddr_t l, h; ! 830: char *s; ! 831: { ! 832: register i, j; ! 833: char b[N]; ! 834: daddr_t m, m1; ! 835: ! 836: njab = 0; ! 837: ! 838: loop: ! 839: if(l >= h) ! 840: return(-1L); ! 841: m = l + (h-l)/2 - N/2; ! 842: if(m < l) ! 843: m = l; ! 844: fseek(tfile, m, 0); ! 845: fread(b, 1, N, tfile); ! 846: njab++; ! 847: for(i=0; i<N; i++) { ! 848: if(b[i] == '\n') ! 849: break; ! 850: m++; ! 851: } ! 852: if(m >= h) ! 853: return(-1L); ! 854: m1 = m; ! 855: j = i; ! 856: for(i++; i<N; i++) { ! 857: m1++; ! 858: if(b[i] == '\n') ! 859: break; ! 860: } ! 861: i = cmp(b+j, s, n); ! 862: if(i < 0) { ! 863: h = m; ! 864: goto loop; ! 865: } ! 866: if(i > 0) { ! 867: l = m1; ! 868: goto loop; ! 869: } ! 870: return(m); ! 871: } ! 872: ! 873: cmp(b, s, n) ! 874: char *b, *s; ! 875: { ! 876: register i; ! 877: ! 878: if(b[0] != '\n') ! 879: exit(2); ! 880: for(i=0; i<n; i++) { ! 881: if(b[i+1] > s[i]) ! 882: return(-1); ! 883: if(b[i+1] < s[i]) ! 884: return(1); ! 885: } ! 886: return(b[i+1] == ' '? 0 : -1); ! 887: } ! 888: ! 889: readtape(buffer) ! 890: char *buffer; ! 891: { ! 892: int i, j; ! 893: ! 894: if (recno >= nblock || first == 0) { ! 895: if (first == 0 && nblock == 0) ! 896: j = fflag ? NBLOCK : 1; /* orignally, NBLOCK; */ ! 897: else ! 898: j = nblock; ! 899: if ((i = read(mt, tbuf, TBLOCK*j)) < 0) { ! 900: fprintf(stderr, "Tar: tape read error\n"); ! 901: done(3); ! 902: } ! 903: if (first == 0) { ! 904: if ((i % TBLOCK) != 0) { ! 905: fprintf(stderr, "Tar: tape blocksize error\n"); ! 906: done(3); ! 907: } ! 908: i /= TBLOCK; ! 909: if (rflag && i != 1) { ! 910: fprintf(stderr, "Tar: Cannot update blocked tapes (yet)\n"); ! 911: done(4); ! 912: } ! 913: if (i != nblock && (i != 1 || nblock == 0)) { ! 914: fprintf(stderr, "Tar: blocksize = %d\n", i); ! 915: nblock = i; ! 916: } ! 917: } ! 918: recno = 0; ! 919: } ! 920: first = 1; ! 921: copy(buffer, &tbuf[recno++]); ! 922: return(TBLOCK); ! 923: } ! 924: ! 925: writetape(buffer) ! 926: char *buffer; ! 927: { ! 928: first = 1; ! 929: if (nblock == 0) ! 930: nblock = 1; ! 931: if (recno >= nblock) { ! 932: if (write(mt, tbuf, TBLOCK*nblock) < 0) { ! 933: fprintf(stderr, "Tar: tape write error\n"); ! 934: done(2); ! 935: } ! 936: recno = 0; ! 937: } ! 938: copy(&tbuf[recno++], buffer); ! 939: if (recno >= nblock) { ! 940: if (write(mt, tbuf, TBLOCK*nblock) < 0) { ! 941: fprintf(stderr, "Tar: tape write error\n"); ! 942: done(2); ! 943: } ! 944: recno = 0; ! 945: } ! 946: return(TBLOCK); ! 947: } ! 948: ! 949: backtape() ! 950: { ! 951: lseek(mt, (long) -TBLOCK, 1); ! 952: if (recno >= nblock) { ! 953: recno = nblock - 1; ! 954: if (read(mt, tbuf, TBLOCK*nblock) < 0) { ! 955: fprintf(stderr, "Tar: tape read error after seek\n"); ! 956: done(4); ! 957: } ! 958: lseek(mt, (long) -TBLOCK, 1); ! 959: } ! 960: } ! 961: ! 962: flushtape() ! 963: { ! 964: write(mt, tbuf, TBLOCK*nblock); ! 965: } ! 966: ! 967: copy(to, from) ! 968: register char *to, *from; ! 969: { ! 970: register i; ! 971: ! 972: i = TBLOCK; ! 973: do { ! 974: *to++ = *from++; ! 975: } while (--i); ! 976: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.