Age Owner Branch data TLA Line data Source code
1 : : #include "c.h"
2 : :
3 : : #include <sys/stat.h>
4 : :
5 : : #include "pgtar.h"
6 : :
7 : : /*
8 : : * Print a numeric field in a tar header. The field starts at *s and is of
9 : : * length len; val is the value to be written.
10 : : *
11 : : * Per POSIX, the way to write a number is in octal with leading zeroes and
12 : : * one trailing space (or NUL, but we use space) at the end of the specified
13 : : * field width.
14 : : *
15 : : * However, the given value may not fit in the available space in octal form.
16 : : * If that's true, we use the GNU extension of writing \200 followed by the
17 : : * number in base-256 form (ie, stored in binary MSB-first). (Note: here we
18 : : * support only non-negative numbers, so we don't worry about the GNU rules
19 : : * for handling negative numbers.)
20 : : */
21 : : void
3067 tgl@sss.pgh.pa.us 22 :CBC 1201902 : print_tar_number(char *s, int len, uint64 val)
23 : : {
24 [ + - ]: 1201902 : if (val < (((uint64) 1) << ((len - 1) * 3)))
25 : : {
26 : : /* Use octal with trailing space */
27 : 1201902 : s[--len] = ' ';
28 [ + + ]: 10817132 : while (len)
29 : : {
30 : 9615230 : s[--len] = (val & 7) + '0';
31 : 9615230 : val >>= 3;
32 : : }
33 : : }
34 : : else
35 : : {
36 : : /* Use base-256 with leading \200 */
3067 tgl@sss.pgh.pa.us 37 :UBC 0 : s[0] = '\200';
38 [ # # ]: 0 : while (len > 1)
39 : : {
40 : 0 : s[--len] = (val & 255);
41 : 0 : val >>= 8;
42 : : }
43 : : }
3067 tgl@sss.pgh.pa.us 44 :CBC 1201902 : }
45 : :
46 : :
47 : : /*
48 : : * Read a numeric field in a tar header. The field starts at *s and is of
49 : : * length len.
50 : : *
51 : : * The POSIX-approved format for a number is octal, ending with a space or
52 : : * NUL. However, for values that don't fit, we recognize the GNU extension
53 : : * of \200 followed by the number in base-256 form (ie, stored in binary
54 : : * MSB-first). (Note: here we support only non-negative numbers, so we don't
55 : : * worry about the GNU rules for handling negative numbers.)
56 : : */
57 : : uint64
58 : 500963 : read_tar_number(const char *s, int len)
59 : : {
60 : 500963 : uint64 result = 0;
61 : :
62 [ - + ]: 500963 : if (*s == '\200')
63 : : {
64 : : /* base-256 */
3067 tgl@sss.pgh.pa.us 65 [ # # ]:UBC 0 : while (--len)
66 : : {
67 : 0 : result <<= 8;
68 : 0 : result |= (unsigned char) (*++s);
69 : : }
70 : : }
71 : : else
72 : : {
73 : : /* octal */
3067 tgl@sss.pgh.pa.us 74 [ + - + + :CBC 4508744 : while (len-- && *s >= '0' && *s <= '7')
+ - ]
75 : : {
76 : 4007781 : result <<= 3;
77 : 4007781 : result |= (*s - '0');
78 : 4007781 : s++;
79 : : }
80 : : }
81 : 500963 : return result;
82 : : }
83 : :
84 : :
85 : : /*
86 : : * Calculate the tar checksum for a header. The header is assumed to always
87 : : * be 512 bytes, per the tar standard.
88 : : */
89 : : int
4121 magnus@hagander.net 90 : 150283 : tarChecksum(char *header)
91 : : {
92 : : int i,
93 : : sum;
94 : :
95 : : /*
96 : : * Per POSIX, the checksum is the simple sum of all bytes in the header,
97 : : * treating the bytes as unsigned, and treating the checksum field (at
98 : : * offset 148) as though it contained 8 spaces.
99 : : */
100 : 150283 : sum = 8 * ' '; /* presumed value for checksum field */
101 [ + + ]: 77095179 : for (i = 0; i < 512; i++)
102 [ + + + + ]: 76944896 : if (i < 148 || i >= 156)
103 : 75742632 : sum += 0xFF & header[i];
104 : 150283 : return sum;
105 : : }
106 : :
107 : :
108 : : /*
109 : : * Fill in the buffer pointed to by h with a tar format header. This buffer
110 : : * must always have space for 512 characters, which is a requirement of
111 : : * the tar format.
112 : : */
113 : : enum tarError
114 : 150237 : tarCreateHeader(char *h, const char *filename, const char *linktarget,
115 : : pgoff_t size, mode_t mode, uid_t uid, gid_t gid, time_t mtime)
116 : : {
3337 peter_e@gmx.net 117 [ + + ]: 150237 : if (strlen(filename) > 99)
118 : 1 : return TAR_NAME_TOO_LONG;
119 : :
120 [ + + - + ]: 150236 : if (linktarget && strlen(linktarget) > 99)
3337 peter_e@gmx.net 121 :UBC 0 : return TAR_SYMLINK_TOO_LONG;
122 : :
257 rhaas@postgresql.org 123 :GNC 150236 : memset(h, 0, TAR_BLOCK_SIZE);
124 : :
125 : : /* Name 100 */
126 : 150236 : strlcpy(&h[TAR_OFFSET_NAME], filename, 100);
4121 magnus@hagander.net 127 [ + + + + ]:CBC 150236 : if (linktarget != NULL || S_ISDIR(mode))
128 : : {
129 : : /*
130 : : * We only support symbolic links to directories, and this is
131 : : * indicated in the tar format by adding a slash at the end of the
132 : : * name, the same as for regular directories.
133 : : */
134 : 3918 : int flen = strlen(filename);
135 : :
136 : 3918 : flen = Min(flen, 99);
137 : 3918 : h[flen] = '/';
138 : 3918 : h[flen + 1] = '\0';
139 : : }
140 : :
141 : : /* Mode 8 - this doesn't include the file type bits (S_IFMT) */
257 rhaas@postgresql.org 142 :GNC 150236 : print_tar_number(&h[TAR_OFFSET_MODE], 8, (mode & 07777));
143 : :
144 : : /* User ID 8 */
145 : 150236 : print_tar_number(&h[TAR_OFFSET_UID], 8, uid);
146 : :
147 : : /* Group 8 */
148 : 150236 : print_tar_number(&h[TAR_OFFSET_GID], 8, gid);
149 : :
150 : : /* File size 12 */
4121 magnus@hagander.net 151 [ + + + + ]:CBC 150236 : if (linktarget != NULL || S_ISDIR(mode))
152 : : /* Symbolic link or directory has size zero */
257 rhaas@postgresql.org 153 :GNC 3918 : print_tar_number(&h[TAR_OFFSET_SIZE], 12, 0);
154 : : else
155 : 146318 : print_tar_number(&h[TAR_OFFSET_SIZE], 12, size);
156 : :
157 : : /* Mod Time 12 */
158 : 150236 : print_tar_number(&h[TAR_OFFSET_MTIME], 12, mtime);
159 : :
160 : : /* Checksum 8 cannot be calculated until we've filled all other fields */
161 : :
4121 magnus@hagander.net 162 [ + + ]:CBC 150236 : if (linktarget != NULL)
163 : : {
164 : : /* Type - Symbolic link */
257 rhaas@postgresql.org 165 :GNC 14 : h[TAR_OFFSET_TYPEFLAG] = TAR_FILETYPE_SYMLINK;
166 : : /* Link Name 100 */
167 : 14 : strlcpy(&h[TAR_OFFSET_LINKNAME], linktarget, 100);
168 : : }
4121 magnus@hagander.net 169 [ + + ]:CBC 150222 : else if (S_ISDIR(mode))
170 : : {
171 : : /* Type - directory */
257 rhaas@postgresql.org 172 :GNC 3904 : h[TAR_OFFSET_TYPEFLAG] = TAR_FILETYPE_DIRECTORY;
173 : : }
174 : : else
175 : : {
176 : : /* Type - regular file */
177 : 146318 : h[TAR_OFFSET_TYPEFLAG] = TAR_FILETYPE_PLAIN;
178 : : }
179 : :
180 : : /* Magic 6 */
181 : 150236 : strcpy(&h[TAR_OFFSET_MAGIC], "ustar");
182 : :
183 : : /* Version 2 */
184 : 150236 : memcpy(&h[TAR_OFFSET_VERSION], "00", 2);
185 : :
186 : : /* User 32 */
187 : : /* XXX: Do we need to care about setting correct username? */
188 : 150236 : strlcpy(&h[TAR_OFFSET_UNAME], "postgres", 32);
189 : :
190 : : /* Group 32 */
191 : : /* XXX: Do we need to care about setting correct group name? */
192 : 150236 : strlcpy(&h[TAR_OFFSET_GNAME], "postgres", 32);
193 : :
194 : : /* Major Dev 8 */
195 : 150236 : print_tar_number(&h[TAR_OFFSET_DEVMAJOR], 8, 0);
196 : :
197 : : /* Minor Dev 8 */
198 : 150236 : print_tar_number(&h[TAR_OFFSET_DEVMINOR], 8, 0);
199 : :
200 : : /* Prefix 155 - not used, leave as nulls */
201 : :
202 : : /* Finally, compute and insert the checksum */
203 : 150236 : print_tar_number(&h[TAR_OFFSET_CHECKSUM], 8, tarChecksum(h));
204 : :
3337 peter_e@gmx.net 205 :CBC 150236 : return TAR_OK;
206 : : }
|
