projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| def89b26 | 1 | static char sccsid[] = "@(#)arcv.c 4.1 %G%"; |
| b6874cb1 BJ |
2 | /* |
| 3 | * arcv - convert old to new archive format | |
| 4 | */ | |
| 5 | ||
| 6 | #include <signal.h> | |
| c3348be5 | 7 | #include <ar.h> |
| b6874cb1 BJ |
8 | #define OARMAG 0177545 |
| 9 | struct oar_hdr { | |
| 10 | char oar_name[14]; | |
| 11 | long oar_date; | |
| 12 | char oar_uid; | |
| 13 | char oar_gid; | |
| 14 | int oar_mode; | |
| 15 | long oar_size; | |
| 16 | }; | |
| 17 | ||
| 18 | struct ar_hdr nh; | |
| 19 | struct oar_hdr oh; | |
| 20 | char *tmp; | |
| 21 | char *mktemp(); | |
| 22 | int f; | |
| 23 | char buf[512]; | |
| 24 | int tf; | |
| 25 | main(argc, argv) | |
| 26 | char *argv[]; | |
| 27 | { | |
| 28 | register i; | |
| 29 | ||
| 30 | if (argc>1 && strcmp(argv[1], "-t")==0) { | |
| 31 | tmp = mktemp("/usr/tmp/arcXXXXXX"); | |
| 32 | argc--; | |
| 33 | argv++; | |
| 34 | } else | |
| 35 | tmp = mktemp("/tmp/arcXXXXXX"); | |
| 36 | for(i=1; i<4; i++) | |
| 37 | signal(i, SIG_IGN); | |
| 38 | for(i=1; i<argc; i++) { | |
| 39 | if (argc>1) | |
| 40 | printf("%s:\n", argv[i]); | |
| 41 | conv(argv[i]); | |
| 42 | } | |
| 43 | unlink(tmp); | |
| 44 | return(0); | |
| 45 | } | |
| 46 | ||
| 47 | conv(fil) | |
| 48 | char *fil; | |
| 49 | { | |
| 50 | int oldmagic; | |
| 51 | long n; | |
| 52 | unsigned i; | |
| 53 | ||
| 54 | f = open(fil, 2); | |
| 55 | if(f < 0) { | |
| 56 | printf("arcv: cannot open %s\n", fil); | |
| 57 | return; | |
| 58 | } | |
| 59 | close(creat(tmp, 0600)); | |
| 60 | tf = open(tmp, 2); | |
| 61 | if(tf < 0) { | |
| 62 | printf("arcv: cannot open temp\n"); | |
| 63 | close(f); | |
| 64 | return; | |
| 65 | } | |
| 66 | oldmagic = 0; | |
| 67 | read(f, (char *)&oldmagic, sizeof(oldmagic)); | |
| 68 | if(oldmagic != 0177545) { | |
| 69 | printf("arcv: %s not old archive format\n", fil); | |
| 70 | close(tf); | |
| 71 | close(f); | |
| 72 | return; | |
| 73 | } | |
| 74 | chkwrite(tf, ARMAG, SARMAG); | |
| 75 | loop: | |
| 76 | i = read(f, (char *)&oh, sizeof(oh)); | |
| 77 | if(i != sizeof(oh)) | |
| 78 | goto out; | |
| 79 | ||
| 80 | sprintf(buf, "%-16.14s%-12ld%-6u%-6u%-8o%-10ld%-2s", | |
| 81 | oh.oar_name, | |
| 82 | oh.oar_date, | |
| 83 | oh.oar_uid, | |
| 84 | oh.oar_gid, | |
| 85 | (unsigned short)oh.oar_mode, | |
| 86 | oh.oar_size, | |
| 87 | ARFMAG); | |
| 88 | strncpy((char *)&nh, buf, sizeof(nh)); | |
| 89 | n = oh.oar_size; | |
| 90 | chkwrite(tf, (char *)&nh, sizeof(nh)); | |
| 91 | while(n > 0) { | |
| 92 | i = 512; | |
| 93 | if (n<i) | |
| 94 | i = n; | |
| 95 | read(f, buf, i&01? i+1:i); | |
| 96 | if (i&01) { | |
| 97 | buf[i] = '\n'; | |
| 98 | i++; | |
| 99 | } | |
| 100 | chkwrite(tf, buf, i); | |
| 101 | n -= i; | |
| 102 | } | |
| 103 | goto loop; | |
| 104 | out: | |
| 105 | lseek(f, 0L, 0); | |
| 106 | lseek(tf, 0L, 0); | |
| 107 | while((i=read(tf, buf, 512)) > 0) | |
| 108 | chkwrite(f, buf, i); | |
| 109 | close(f); | |
| 110 | close(tf); | |
| 111 | } | |
| 112 | ||
| 113 | chkwrite(f, b, n) | |
| 114 | char *b; | |
| 115 | { | |
| 116 | if (write(f, b, n) != n) { | |
| 117 | printf("arcv: write error\n"); | |
| 118 | unlink(tmp); | |
| 119 | exit(1); | |
| 120 | } | |
| 121 | } |