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