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 <sha2.h>
25 #include <zlib.h>
26 #include <time.h>
28 #include "got_error.h"
29 #include "got_object.h"
30 #include "got_path.h"
32 #include "got_lib_deflate.h"
33 #include "got_lib_hash.h"
34 #include "got_lib_poll.h"
36 #ifndef MIN
37 #define MIN(_a,_b) ((_a) < (_b) ? (_a) : (_b))
38 #endif
40 const struct got_error *
41 got_deflate_init(struct got_deflate_buf *zb, uint8_t *outbuf, size_t bufsize)
42 {
43 const struct got_error *err = NULL;
44 int zerr;
46 memset(zb, 0, sizeof(*zb));
48 zb->z.zalloc = Z_NULL;
49 zb->z.zfree = Z_NULL;
50 zerr = deflateInit(&zb->z, Z_DEFAULT_COMPRESSION);
51 if (zerr != Z_OK) {
52 if (zerr == Z_ERRNO)
53 return got_error_from_errno("deflateInit");
54 if (zerr == Z_MEM_ERROR) {
55 errno = ENOMEM;
56 return got_error_from_errno("deflateInit");
57 }
58 return got_error(GOT_ERR_COMPRESSION);
59 }
61 zb->inlen = zb->outlen = bufsize;
63 zb->inbuf = calloc(1, zb->inlen);
64 if (zb->inbuf == NULL) {
65 err = got_error_from_errno("calloc");
66 goto done;
67 }
69 zb->flags = 0;
70 if (outbuf == NULL) {
71 zb->outbuf = calloc(1, zb->outlen);
72 if (zb->outbuf == NULL) {
73 err = got_error_from_errno("calloc");
74 goto done;
75 }
76 zb->flags |= GOT_DEFLATE_F_OWN_OUTBUF;
77 } else
78 zb->outbuf = outbuf;
79 done:
80 if (err)
81 got_deflate_end(zb);
82 return err;
83 }
85 static void
86 csum_output(struct got_deflate_checksum *csum, const uint8_t *buf, size_t len)
87 {
88 if (csum->output_crc)
89 *csum->output_crc = crc32(*csum->output_crc, buf, len);
91 if (csum->output_ctx)
92 got_hash_update(csum->output_ctx, buf, len);
93 }
95 const struct got_error *
96 got_deflate_read(struct got_deflate_buf *zb, FILE *f, off_t len,
97 size_t *outlenp, off_t *consumed)
98 {
99 size_t last_total_out = zb->z.total_out;
100 z_stream *z = &zb->z;
101 int ret = Z_ERRNO;
103 z->next_out = zb->outbuf;
104 z->avail_out = zb->outlen;
106 *outlenp = 0;
107 *consumed = 0;
108 do {
109 size_t last_total_in = z->total_in;
110 if (z->avail_in == 0) {
111 size_t n = 0;
112 if (*consumed < len) {
113 n = fread(zb->inbuf, 1,
114 MIN(zb->inlen, len - *consumed), f);
116 if (n == 0) {
117 if (ferror(f))
118 return got_ferror(f, GOT_ERR_IO);
119 /* EOF */
120 ret = deflate(z, Z_FINISH);
121 break;
123 z->next_in = zb->inbuf;
124 z->avail_in = n;
126 ret = deflate(z, Z_NO_FLUSH);
127 *consumed += z->total_in - last_total_in;
128 } while (ret == Z_OK && z->avail_out > 0);
130 if (ret == Z_OK) {
131 zb->flags |= GOT_DEFLATE_F_HAVE_MORE;
132 } else {
133 if (ret != Z_STREAM_END)
134 return got_error(GOT_ERR_COMPRESSION);
135 zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
138 *outlenp = z->total_out - last_total_out;
139 return NULL;
142 static const struct got_error *
143 deflate_read_mmap(struct got_deflate_buf *zb, uint8_t *map, size_t offset,
144 size_t len, size_t *outlenp, size_t *consumed, int flush_on_eof)
146 z_stream *z = &zb->z;
147 size_t last_total_out = z->total_out;
148 int ret = Z_ERRNO;
150 z->next_out = zb->outbuf;
151 z->avail_out = zb->outlen;
153 *outlenp = 0;
154 *consumed = 0;
155 do {
156 size_t last_total_in = z->total_in;
157 if (z->avail_in == 0) {
158 z->next_in = map + offset + *consumed;
159 if (len - *consumed > UINT_MAX)
160 z->avail_in = UINT_MAX;
161 else
162 z->avail_in = len - *consumed;
163 if (z->avail_in == 0) {
164 /* EOF */
165 if (flush_on_eof)
166 ret = deflate(z, Z_FINISH);
167 break;
170 ret = deflate(z, Z_NO_FLUSH);
171 *consumed += z->total_in - last_total_in;
172 } while (ret == Z_OK && z->avail_out > 0);
174 if (ret == Z_OK) {
175 zb->flags |= GOT_DEFLATE_F_HAVE_MORE;
176 } else {
177 if (ret != Z_STREAM_END)
178 return got_error(GOT_ERR_COMPRESSION);
179 zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
182 *outlenp = z->total_out - last_total_out;
183 return NULL;
186 const struct got_error *
187 got_deflate_read_mmap(struct got_deflate_buf *zb, uint8_t *map, size_t offset,
188 size_t len, size_t *outlenp, size_t *consumed)
190 return deflate_read_mmap(zb, map, offset, len, outlenp, consumed, 1);
193 const struct got_error *
194 got_deflate_flush(struct got_deflate_buf *zb, FILE *outfile,
195 struct got_deflate_checksum *csum, off_t *outlenp)
197 int ret;
198 size_t n;
199 z_stream *z = &zb->z;
201 if (z->avail_in != 0)
202 return got_error_msg(GOT_ERR_COMPRESSION,
203 "cannot flush zb with pending input data");
205 do {
206 size_t avail, last_total_out = zb->z.total_out;
208 z->next_out = zb->outbuf;
209 z->avail_out = zb->outlen;
211 ret = deflate(z, Z_FINISH);
212 if (ret != Z_STREAM_END && ret != Z_OK)
213 return got_error(GOT_ERR_COMPRESSION);
215 avail = z->total_out - last_total_out;
216 if (avail > 0) {
217 n = fwrite(zb->outbuf, avail, 1, outfile);
218 if (n != 1)
219 return got_ferror(outfile, GOT_ERR_IO);
220 if (csum)
221 csum_output(csum, zb->outbuf, avail);
222 if (outlenp)
223 *outlenp += avail;
225 } while (ret != Z_STREAM_END);
227 zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
228 return NULL;
231 void
232 got_deflate_end(struct got_deflate_buf *zb)
234 free(zb->inbuf);
235 if (zb->flags & GOT_DEFLATE_F_OWN_OUTBUF)
236 free(zb->outbuf);
237 deflateEnd(&zb->z);
240 const struct got_error *
241 got_deflate_to_fd(off_t *outlen, FILE *infile, off_t len, int outfd,
242 struct got_deflate_checksum *csum)
244 const struct got_error *err;
245 size_t avail;
246 off_t consumed;
247 struct got_deflate_buf zb;
249 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
250 if (err)
251 goto done;
253 *outlen = 0;
255 do {
256 err = got_deflate_read(&zb, infile, len, &avail, &consumed);
257 if (err)
258 goto done;
259 len -= consumed;
260 if (avail > 0) {
261 err = got_poll_write_full(outfd, zb.outbuf, avail);
262 if (err)
263 goto done;
264 if (csum)
265 csum_output(csum, zb.outbuf, avail);
266 *outlen += avail;
268 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
270 done:
271 got_deflate_end(&zb);
272 return err;
275 const struct got_error *
276 got_deflate_to_fd_mmap(off_t *outlen, uint8_t *map, size_t offset,
277 size_t len, int outfd, struct got_deflate_checksum *csum)
279 const struct got_error *err;
280 size_t avail, consumed;
281 struct got_deflate_buf zb;
283 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
284 if (err)
285 goto done;
287 *outlen = 0;
288 do {
289 err = got_deflate_read_mmap(&zb, map, offset, len, &avail,
290 &consumed);
291 if (err)
292 goto done;
293 offset += consumed;
294 len -= consumed;
295 if (avail > 0) {
296 err = got_poll_write_full(outfd, zb.outbuf, avail);
297 if (err)
298 goto done;
299 if (csum)
300 csum_output(csum, zb.outbuf, avail);
301 *outlen += avail;
303 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
305 done:
306 got_deflate_end(&zb);
307 return err;
310 const struct got_error *
311 got_deflate_to_file(off_t *outlen, FILE *infile, off_t len,
312 FILE *outfile, struct got_deflate_checksum *csum)
314 const struct got_error *err;
315 size_t avail;
316 off_t consumed;
317 struct got_deflate_buf zb;
319 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
320 if (err)
321 goto done;
323 *outlen = 0;
325 do {
326 err = got_deflate_read(&zb, infile, len, &avail, &consumed);
327 if (err)
328 goto done;
329 len -= consumed;
330 if (avail > 0) {
331 size_t n;
332 n = fwrite(zb.outbuf, avail, 1, outfile);
333 if (n != 1) {
334 err = got_ferror(outfile, GOT_ERR_IO);
335 goto done;
337 if (csum)
338 csum_output(csum, zb.outbuf, avail);
339 *outlen += avail;
341 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
343 done:
344 got_deflate_end(&zb);
345 return err;
348 const struct got_error *
349 got_deflate_to_file_mmap(off_t *outlen, uint8_t *map, size_t offset,
350 size_t len, FILE *outfile, struct got_deflate_checksum *csum)
352 const struct got_error *err;
353 size_t avail, consumed;
354 struct got_deflate_buf zb;
356 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
357 if (err)
358 goto done;
360 *outlen = 0;
361 do {
362 err = got_deflate_read_mmap(&zb, map, offset, len, &avail,
363 &consumed);
364 if (err)
365 goto done;
366 offset += consumed;
367 len -= consumed;
368 if (avail > 0) {
369 size_t n;
370 n = fwrite(zb.outbuf, avail, 1, outfile);
371 if (n != 1) {
372 err = got_ferror(outfile, GOT_ERR_IO);
373 goto done;
375 if (csum)
376 csum_output(csum, zb.outbuf, avail);
377 *outlen += avail;
379 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
381 done:
382 got_deflate_end(&zb);
383 return err;
386 const struct got_error *
387 got_deflate_append_to_file_mmap(struct got_deflate_buf *zb, off_t *outlen,
388 uint8_t *map, size_t offset, size_t len, FILE *outfile,
389 struct got_deflate_checksum *csum)
391 const struct got_error *err;
392 size_t avail, consumed;
394 do {
395 err = deflate_read_mmap(zb, map, offset, len, &avail,
396 &consumed, 0);
397 if (err)
398 break;
399 offset += consumed;
400 len -= consumed;
401 if (avail > 0) {
402 size_t n;
403 n = fwrite(zb->outbuf, avail, 1, outfile);
404 if (n != 1) {
405 err = got_ferror(outfile, GOT_ERR_IO);
406 break;
408 if (csum)
409 csum_output(csum, zb->outbuf, avail);
410 if (outlen)
411 *outlen += avail;
413 } while ((zb->flags & GOT_DEFLATE_F_HAVE_MORE) && len > 0);
415 return err;
418 const struct got_error *
419 got_deflate_to_mem_mmap(uint8_t **outbuf, size_t *outlen,
420 size_t *consumed_total, struct got_deflate_checksum *csum, uint8_t *map,
421 size_t offset, size_t len)
423 const struct got_error *err;
424 size_t avail, consumed;
425 struct got_deflate_buf zb;
426 void *newbuf;
427 size_t nbuf = 1;
429 if (outbuf) {
430 *outbuf = malloc(GOT_DEFLATE_BUFSIZE);
431 if (*outbuf == NULL)
432 return got_error_from_errno("malloc");
433 err = got_deflate_init(&zb, *outbuf, GOT_DEFLATE_BUFSIZE);
434 if (err) {
435 free(*outbuf);
436 *outbuf = NULL;
437 return err;
439 } else {
440 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
441 if (err)
442 return err;
445 *outlen = 0;
446 if (consumed_total)
447 *consumed_total = 0;
448 do {
449 err = got_deflate_read_mmap(&zb, map, offset, len, &avail,
450 &consumed);
451 if (err)
452 goto done;
453 offset += consumed;
454 if (consumed_total)
455 *consumed_total += consumed;
456 len -= consumed;
457 if (avail > 0 && csum)
458 csum_output(csum, zb.outbuf, avail);
459 *outlen += avail;
460 if ((zb.flags & GOT_DEFLATE_F_HAVE_MORE) && outbuf != NULL) {
461 newbuf = reallocarray(*outbuf, ++nbuf,
462 GOT_DEFLATE_BUFSIZE);
463 if (newbuf == NULL) {
464 err = got_error_from_errno("reallocarray");
465 free(*outbuf);
466 *outbuf = NULL;
467 *outlen = 0;
468 goto done;
470 *outbuf = newbuf;
471 zb.outbuf = newbuf + *outlen;
472 zb.outlen = (nbuf * GOT_DEFLATE_BUFSIZE) - *outlen;
474 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
475 done:
476 got_deflate_end(&zb);
477 return err;