![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tarhdr.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / odist / tar|
Return to tarhdr.c CVS log | Up to [Research Unix] / researchv10no / cmd / odist / tar |
1.1 root 1: #include <string.h>
2: #include <time.h>
3: #include "tar.h"
4:
5: static int
6: chksum(struct tarbuf *buf)
7: {
8: char *p;
9: int sum;
10:
11: p = (char *) buf;
12: for (sum = 0; p < buf->chksum; ++p)
13: sum += *(unsigned char *) p;
14: sum += ' ' * sizeof buf->chksum;
15: for (p = buf->chksum + sizeof buf->chksum; p < (char *) (buf + 1); ++p)
16: sum += *(unsigned char *) p;
17: return sum;
18: }
19:
20: /* opposite of strncpy */
21: static void
22: cpystrn(char *dst, char *src, int n)
23: {
24: while (n-- && (*dst++ = *src++))
25: ;
26: *dst = '\0';
27: }
28:
29: static int
30: getoct(unsigned long *dst, char *src, int n)
31: {
32: *dst = 0;
33: while (n && *src == ' ')
34: ++src, --n;
35: while (n && *src >= '0' && *src <= '7') {
36: *dst = 8 * *dst + *src - '0';
37: ++src, --n;
38: }
39: while (n) {
40: if (*src && *src != ' ')
41: return 1;
42: ++src, --n;
43: }
44: return 0;
45: }
46:
47: static void
48: putoct(char *dst, unsigned long val, int n)
49: {
50: char temp[24], *sp;
51:
52: sp = temp;
53: do { /* at least one digit */
54: *sp++ = val % 8 + '0';
55: val /= 8;
56: } while (val);
57: while ((n - 1) - (sp - temp))
58: *dst++ = ' ', --n;
59: while (sp > temp)
60: *dst++ = *--sp, --n;
61: while (n--)
62: *dst++ = ' ';
63: }
64:
65: int
66: thdrget(struct tarhdr *hdr, struct tarbuf *buf)
67: {
68: int nerr, len, id, bufsum, mysum;
69: char name[sizeof buf->uname], *np;
70: unsigned long otmp;
71:
72: nerr = 0;
73: memset(hdr, 0, sizeof *hdr);
74: cpystrn(hdr->name, buf->prefix, sizeof buf->prefix);
75: if (len = strlen(hdr->name))
76: hdr->name[len++] = '/';
77: cpystrn(hdr->name + len, buf->name, sizeof buf->name);
78: #define OCT(V, S) nerr += getoct(&otmp, S, sizeof S), V = otmp
79: OCT(hdr->mode, buf->mode);
80: OCT(hdr->uid, buf->uid);
81: OCT(hdr->gid, buf->gid);
82: OCT(hdr->size, buf->size);
83: OCT(hdr->mtime, buf->mtime);
84: OCT(bufsum, buf->chksum);
85: mysum = chksum(buf);
86: nerr += bufsum != mysum;
87: hdr->typeflag = buf->typeflag[0];
88: cpystrn(hdr->linkname, buf->linkname, sizeof buf->linkname);
89: len = strlen(hdr->name);
90: if (memcmp(buf->magic, TMAGIC, TMAGLEN) == 0
91: && memcmp(buf->version, TVERSION, TVERSLEN) == 0) {
92: if (hdr->typeflag == DIRTYPE && hdr->name[len - 1] != '/')
93: hdr->name[len++] = '/', hdr->name[len] = '\0';
94: cpystrn(name, buf->uname, sizeof buf->uname - 1);
95: id = uidnum(name);
96: if (id != -1)
97: hdr->uid = id;
98: cpystrn(name, buf->gname, sizeof buf->gname - 1);
99: id = gidnum(name);
100: if (id != -1)
101: hdr->gid = id;
102: OCT(hdr->devmajor, buf->devmajor);
103: OCT(hdr->devminor, buf->devminor);
104: } else {
105: if (hdr->name[len - 1] == '/')
106: hdr->typeflag = DIRTYPE;
107: np = uidstr(hdr->uid);
108: if (np)
109: cpystrn(hdr->uname, np, sizeof buf->uname - 1);
110: np = gidstr(hdr->gid);
111: if (np)
112: cpystrn(hdr->gname, np, sizeof buf->gname - 1);
113: hdr->devmajor = 0;
114: hdr->devminor = 0;
115: }
116: if (hdr->typeflag == AREGTYPE)
117: hdr->typeflag = REGTYPE;
118: #undef OCT
119: return nerr;
120: }
121:
122: int
123: thdrput(struct tarbuf *buf, struct tarhdr *hdr)
124: {
125: int npref, mysum;
126: char *slash, *s;
127:
128: memset(buf, 0, sizeof *buf);
129: if (strlen(hdr->name) > sizeof buf->name) {
130: /* split on a '/' */
131: npref = 0;
132: while (slash = strchr(hdr->name + npref + 1, '/')) {
133: npref = slash - hdr->name;
134: if (strlen(slash + 1) <= sizeof buf->name)
135: break;
136: }
137: if (!slash || npref > sizeof buf->prefix)
138: return 1;
139: strncpy(buf->name, slash + 1, sizeof buf->name);
140: *slash = '\0'; /* evil */
141: strncpy(buf->prefix, hdr->name, sizeof buf->prefix);
142: *slash = '/';
143: } else
144: strncpy(buf->name, hdr->name, sizeof buf->name);
145: if (hdr->uname[0])
146: hdr->uid = uidnum(hdr->uname);
147: else if (s = uidstr(hdr->uid)) {
148: hdr->uname[TUGNAMEMAX] = '\0';
149: strncpy(hdr->uname, s, TUGNAMEMAX);
150: }
151: if (hdr->gname[0])
152: hdr->gid = gidnum(hdr->gname);
153: else if (s = gidstr(hdr->gid)) {
154: hdr->gname[TUGNAMEMAX] = '\0';
155: strncpy(hdr->gname, s, TUGNAMEMAX);
156: }
157: #define OCT(S, V) putoct(S, V, sizeof S)
158: OCT(buf->mode, hdr->mode);
159: OCT(buf->uid, hdr->uid);
160: OCT(buf->gid, hdr->gid);
161: OCT(buf->size, hdr->size);
162: OCT(buf->mtime, hdr->mtime);
163: buf->typeflag[0] = hdr->typeflag;
164: strncpy(buf->linkname, hdr->linkname, sizeof buf->linkname);
165: strncpy(buf->magic, TMAGIC, TMAGLEN);
166: strncpy(buf->version, TVERSION, TVERSLEN);
167: strncpy(buf->uname, hdr->uname, TUGNAMEMAX);
168: strncpy(buf->gname, hdr->gname, TUGNAMEMAX);
169: if (hdr->typeflag == BLKTYPE || hdr->typeflag == CHRTYPE) {
170: OCT(buf->devmajor, hdr->devmajor);
171: OCT(buf->devminor, hdr->devminor);
172: }
173: mysum = chksum(buf);
174: OCT(buf->chksum, mysum);
175: return 0;
176: #undef OCT
177: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.