Blob


1 /*
2 * Copyright (c) 2019 Stefan Sperling <stsp@openbsd.org>
3 *
4 * Permission to use, copy, modify, and distribute this software for any
5 * purpose with or without fee is hereby granted, provided that the above
6 * copyright notice and this permission notice appear in all copies.
7 *
8 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
9 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
10 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
11 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
12 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
13 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
14 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
15 */
17 #include <sys/queue.h>
19 #include <errno.h>
20 #include <stdio.h>
21 #include <stdlib.h>
22 #include <string.h>
23 #include <sha1.h>
24 #include <zlib.h>
25 #include <time.h>
27 #include "got_error.h"
28 #include "got_object.h"
29 #include "got_path.h"
31 #include "got_lib_deflate.h"
33 #ifndef MIN
34 #define MIN(_a,_b) ((_a) < (_b) ? (_a) : (_b))
35 #endif
37 const struct got_error *
38 got_deflate_init(struct got_deflate_buf *zb, uint8_t *outbuf, size_t bufsize)
39 {
40 const struct got_error *err = NULL;
41 int zerr;
43 memset(&zb->z, 0, sizeof(zb->z));
45 zb->z.zalloc = Z_NULL;
46 zb->z.zfree = Z_NULL;
47 zerr = deflateInit(&zb->z, Z_DEFAULT_COMPRESSION);
48 if (zerr != Z_OK) {
49 if (zerr == Z_ERRNO)
50 return got_error_from_errno("deflateInit");
51 if (zerr == Z_MEM_ERROR) {
52 errno = ENOMEM;
53 return got_error_from_errno("deflateInit");
54 }
55 return got_error(GOT_ERR_COMPRESSION);
56 }
58 zb->inlen = zb->outlen = bufsize;
60 zb->inbuf = calloc(1, zb->inlen);
61 if (zb->inbuf == NULL) {
62 err = got_error_from_errno("calloc");
63 goto done;
64 }
66 zb->flags = 0;
67 if (outbuf == NULL) {
68 zb->outbuf = calloc(1, zb->outlen);
69 if (zb->outbuf == NULL) {
70 err = got_error_from_errno("calloc");
71 goto done;
72 }
73 zb->flags |= GOT_DEFLATE_F_OWN_OUTBUF;
74 } else
75 zb->outbuf = outbuf;
76 done:
77 if (err)
78 got_deflate_end(zb);
79 return err;
80 }
82 static void
83 csum_output(struct got_deflate_checksum *csum, const uint8_t *buf, size_t len)
84 {
85 if (csum->output_crc)
86 *csum->output_crc = crc32(*csum->output_crc, buf, len);
88 if (csum->output_sha1)
89 SHA1Update(csum->output_sha1, buf, len);
90 }
92 const struct got_error *
93 got_deflate_read(struct got_deflate_buf *zb, FILE *f, off_t len,
94 size_t *outlenp, off_t *consumed)
95 {
96 size_t last_total_out = zb->z.total_out;
97 z_stream *z = &zb->z;
98 int ret = Z_ERRNO;
100 z->next_out = zb->outbuf;
101 z->avail_out = zb->outlen;
103 *outlenp = 0;
104 *consumed = 0;
105 do {
106 size_t last_total_in = z->total_in;
107 if (z->avail_in == 0) {
108 size_t n = 0;
109 if (*consumed < len) {
110 n = fread(zb->inbuf, 1,
111 MIN(zb->inlen, len - *consumed), f);
113 if (n == 0) {
114 if (ferror(f))
115 return got_ferror(f, GOT_ERR_IO);
116 /* EOF */
117 ret = deflate(z, Z_FINISH);
118 break;
120 z->next_in = zb->inbuf;
121 z->avail_in = n;
123 ret = deflate(z, Z_NO_FLUSH);
124 *consumed += z->total_in - last_total_in;
125 } while (ret == Z_OK && z->avail_out > 0);
127 if (ret == Z_OK) {
128 zb->flags |= GOT_DEFLATE_F_HAVE_MORE;
129 } else {
130 if (ret != Z_STREAM_END)
131 return got_error(GOT_ERR_COMPRESSION);
132 zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
135 *outlenp = z->total_out - last_total_out;
136 return NULL;
139 static const struct got_error *
140 deflate_read_mmap(struct got_deflate_buf *zb, uint8_t *map, size_t offset,
141 size_t len, size_t *outlenp, size_t *consumed, int flush_on_eof)
143 z_stream *z = &zb->z;
144 size_t last_total_out = z->total_out;
145 int ret = Z_ERRNO;
147 z->next_out = zb->outbuf;
148 z->avail_out = zb->outlen;
150 *outlenp = 0;
151 *consumed = 0;
152 do {
153 size_t last_total_in = z->total_in;
154 if (z->avail_in == 0) {
155 z->next_in = map + offset + *consumed;
156 if (len - *consumed > UINT_MAX)
157 z->avail_in = UINT_MAX;
158 else
159 z->avail_in = len - *consumed;
160 if (z->avail_in == 0) {
161 /* EOF */
162 if (flush_on_eof)
163 ret = deflate(z, Z_FINISH);
164 break;
167 ret = deflate(z, Z_NO_FLUSH);
168 *consumed += z->total_in - last_total_in;
169 } while (ret == Z_OK && z->avail_out > 0);
171 if (ret == Z_OK) {
172 zb->flags |= GOT_DEFLATE_F_HAVE_MORE;
173 } else {
174 if (ret != Z_STREAM_END)
175 return got_error(GOT_ERR_COMPRESSION);
176 zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
179 *outlenp = z->total_out - last_total_out;
180 return NULL;
183 const struct got_error *
184 got_deflate_read_mmap(struct got_deflate_buf *zb, uint8_t *map, size_t offset,
185 size_t len, size_t *outlenp, size_t *consumed)
187 return deflate_read_mmap(zb, map, offset, len, outlenp, consumed, 1);
190 const struct got_error *
191 got_deflate_flush(struct got_deflate_buf *zb, FILE *outfile,
192 struct got_deflate_checksum *csum, off_t *outlenp)
194 int ret;
195 size_t n;
196 z_stream *z = &zb->z;
198 if (z->avail_in != 0)
199 return got_error_msg(GOT_ERR_COMPRESSION,
200 "cannot flush zb with pending input data");
202 do {
203 size_t avail, last_total_out = zb->z.total_out;
205 z->next_out = zb->outbuf;
206 z->avail_out = zb->outlen;
208 ret = deflate(z, Z_FINISH);
209 if (ret != Z_STREAM_END && ret != Z_OK)
210 return got_error(GOT_ERR_COMPRESSION);
212 avail = z->total_out - last_total_out;
213 if (avail > 0) {
214 n = fwrite(zb->outbuf, avail, 1, outfile);
215 if (n != 1)
216 return got_ferror(outfile, GOT_ERR_IO);
217 if (csum)
218 csum_output(csum, zb->outbuf, avail);
219 if (outlenp)
220 *outlenp += avail;
222 } while (ret != Z_STREAM_END);
224 zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
225 return NULL;
228 void
229 got_deflate_end(struct got_deflate_buf *zb)
231 free(zb->inbuf);
232 if (zb->flags & GOT_DEFLATE_F_OWN_OUTBUF)
233 free(zb->outbuf);
234 deflateEnd(&zb->z);
237 const struct got_error *
238 got_deflate_to_fd(off_t *outlen, FILE *infile, off_t len, int outfd,
239 struct got_deflate_checksum *csum)
241 const struct got_error *err;
242 size_t avail;
243 off_t consumed;
244 struct got_deflate_buf zb;
246 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
247 if (err)
248 goto done;
250 *outlen = 0;
252 do {
253 err = got_deflate_read(&zb, infile, len, &avail, &consumed);
254 if (err)
255 goto done;
256 len -= consumed;
257 if (avail > 0) {
258 ssize_t w;
259 w = write(outfd, zb.outbuf, avail);
260 if (w == -1) {
261 err = got_error_from_errno("write");
262 goto done;
263 } else if (w != avail) {
264 err = got_error(GOT_ERR_IO);
265 goto done;
267 if (csum)
268 csum_output(csum, zb.outbuf, avail);
269 *outlen += avail;
271 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
273 done:
274 got_deflate_end(&zb);
275 return err;
278 const struct got_error *
279 got_deflate_to_fd_mmap(off_t *outlen, uint8_t *map, size_t offset,
280 size_t len, int outfd, struct got_deflate_checksum *csum)
282 const struct got_error *err;
283 size_t avail, consumed;
284 struct got_deflate_buf zb;
286 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
287 if (err)
288 goto done;
290 *outlen = 0;
291 do {
292 err = got_deflate_read_mmap(&zb, map, offset, len, &avail,
293 &consumed);
294 if (err)
295 goto done;
296 offset += consumed;
297 len -= consumed;
298 if (avail > 0) {
299 ssize_t w;
300 w = write(outfd, zb.outbuf, avail);
301 if (w == -1) {
302 err = got_error_from_errno("write");
303 goto done;
304 } else if (w != avail) {
305 err = got_error(GOT_ERR_IO);
306 goto done;
308 if (csum)
309 csum_output(csum, zb.outbuf, avail);
310 *outlen += avail;
312 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
314 done:
315 got_deflate_end(&zb);
316 return err;
319 const struct got_error *
320 got_deflate_to_file(off_t *outlen, FILE *infile, off_t len,
321 FILE *outfile, struct got_deflate_checksum *csum)
323 const struct got_error *err;
324 size_t avail;
325 off_t consumed;
326 struct got_deflate_buf zb;
328 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
329 if (err)
330 goto done;
332 *outlen = 0;
334 do {
335 err = got_deflate_read(&zb, infile, len, &avail, &consumed);
336 if (err)
337 goto done;
338 len -= consumed;
339 if (avail > 0) {
340 size_t n;
341 n = fwrite(zb.outbuf, avail, 1, outfile);
342 if (n != 1) {
343 err = got_ferror(outfile, GOT_ERR_IO);
344 goto done;
346 if (csum)
347 csum_output(csum, zb.outbuf, avail);
348 *outlen += avail;
350 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
352 done:
353 got_deflate_end(&zb);
354 return err;
357 const struct got_error *
358 got_deflate_to_file_mmap(off_t *outlen, uint8_t *map, size_t offset,
359 size_t len, FILE *outfile, struct got_deflate_checksum *csum)
361 const struct got_error *err;
362 size_t avail, consumed;
363 struct got_deflate_buf zb;
365 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
366 if (err)
367 goto done;
369 *outlen = 0;
370 do {
371 err = got_deflate_read_mmap(&zb, map, offset, len, &avail,
372 &consumed);
373 if (err)
374 goto done;
375 offset += consumed;
376 len -= consumed;
377 if (avail > 0) {
378 size_t n;
379 n = fwrite(zb.outbuf, avail, 1, outfile);
380 if (n != 1) {
381 err = got_ferror(outfile, GOT_ERR_IO);
382 goto done;
384 if (csum)
385 csum_output(csum, zb.outbuf, avail);
386 *outlen += avail;
388 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
390 done:
391 got_deflate_end(&zb);
392 return err;
395 const struct got_error *
396 got_deflate_append_to_file_mmap(struct got_deflate_buf *zb, off_t *outlen,
397 uint8_t *map, size_t offset, size_t len, FILE *outfile,
398 struct got_deflate_checksum *csum)
400 const struct got_error *err;
401 size_t avail, consumed;
403 do {
404 err = deflate_read_mmap(zb, map, offset, len, &avail,
405 &consumed, 0);
406 if (err)
407 break;
408 offset += consumed;
409 len -= consumed;
410 if (avail > 0) {
411 size_t n;
412 n = fwrite(zb->outbuf, avail, 1, outfile);
413 if (n != 1) {
414 err = got_ferror(outfile, GOT_ERR_IO);
415 break;
417 if (csum)
418 csum_output(csum, zb->outbuf, avail);
419 if (outlen)
420 *outlen += avail;
422 } while ((zb->flags & GOT_DEFLATE_F_HAVE_MORE) && len > 0);
424 return err;
427 const struct got_error *
428 got_deflate_to_mem_mmap(uint8_t **outbuf, size_t *outlen,
429 size_t *consumed_total, struct got_deflate_checksum *csum, uint8_t *map,
430 size_t offset, size_t len)
432 const struct got_error *err;
433 size_t avail, consumed;
434 struct got_deflate_buf zb;
435 void *newbuf;
436 size_t nbuf = 1;
438 if (outbuf) {
439 *outbuf = malloc(GOT_DEFLATE_BUFSIZE);
440 if (*outbuf == NULL)
441 return got_error_from_errno("malloc");
442 err = got_deflate_init(&zb, *outbuf, GOT_DEFLATE_BUFSIZE);
443 if (err) {
444 free(*outbuf);
445 *outbuf = NULL;
446 return err;
448 } else {
449 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
450 if (err)
451 return err;
454 *outlen = 0;
455 if (consumed_total)
456 *consumed_total = 0;
457 do {
458 err = got_deflate_read_mmap(&zb, map, offset, len, &avail,
459 &consumed);
460 if (err)
461 goto done;
462 offset += consumed;
463 if (consumed_total)
464 *consumed_total += consumed;
465 len -= consumed;
466 if (avail > 0 && csum)
467 csum_output(csum, zb.outbuf, avail);
468 *outlen += avail;
469 if ((zb.flags & GOT_DEFLATE_F_HAVE_MORE) && outbuf != NULL) {
470 newbuf = reallocarray(*outbuf, ++nbuf,
471 GOT_DEFLATE_BUFSIZE);
472 if (newbuf == NULL) {
473 err = got_error_from_errno("reallocarray");
474 free(*outbuf);
475 *outbuf = NULL;
476 *outlen = 0;
477 goto done;
479 *outbuf = newbuf;
480 zb.outbuf = newbuf + *outlen;
481 zb.outlen = (nbuf * GOT_DEFLATE_BUFSIZE) - *outlen;
483 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
484 done:
485 got_deflate_end(&zb);
486 return err;