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_poll.h"
35 #ifndef MIN
36 #define MIN(_a,_b) ((_a) < (_b) ? (_a) : (_b))
37 #endif
39 const struct got_error *
40 got_deflate_init(struct got_deflate_buf *zb, uint8_t *outbuf, size_t bufsize)
41 {
42 const struct got_error *err = NULL;
43 int zerr;
45 memset(zb, 0, sizeof(*zb));
47 zb->z.zalloc = Z_NULL;
48 zb->z.zfree = Z_NULL;
49 zerr = deflateInit(&zb->z, Z_DEFAULT_COMPRESSION);
50 if (zerr != Z_OK) {
51 if (zerr == Z_ERRNO)
52 return got_error_from_errno("deflateInit");
53 if (zerr == Z_MEM_ERROR) {
54 errno = ENOMEM;
55 return got_error_from_errno("deflateInit");
56 }
57 return got_error(GOT_ERR_COMPRESSION);
58 }
60 zb->inlen = zb->outlen = bufsize;
62 zb->inbuf = calloc(1, zb->inlen);
63 if (zb->inbuf == NULL) {
64 err = got_error_from_errno("calloc");
65 goto done;
66 }
68 zb->flags = 0;
69 if (outbuf == NULL) {
70 zb->outbuf = calloc(1, zb->outlen);
71 if (zb->outbuf == NULL) {
72 err = got_error_from_errno("calloc");
73 goto done;
74 }
75 zb->flags |= GOT_DEFLATE_F_OWN_OUTBUF;
76 } else
77 zb->outbuf = outbuf;
78 done:
79 if (err)
80 got_deflate_end(zb);
81 return err;
82 }
84 static void
85 csum_output(struct got_deflate_checksum *csum, const uint8_t *buf, size_t len)
86 {
87 if (csum->output_crc)
88 *csum->output_crc = crc32(*csum->output_crc, buf, len);
90 if (csum->output_sha1)
91 SHA1Update(csum->output_sha1, buf, len);
92 }
94 const struct got_error *
95 got_deflate_read(struct got_deflate_buf *zb, FILE *f, off_t len,
96 size_t *outlenp, off_t *consumed)
97 {
98 size_t last_total_out = zb->z.total_out;
99 z_stream *z = &zb->z;
100 int ret = Z_ERRNO;
102 z->next_out = zb->outbuf;
103 z->avail_out = zb->outlen;
105 *outlenp = 0;
106 *consumed = 0;
107 do {
108 size_t last_total_in = z->total_in;
109 if (z->avail_in == 0) {
110 size_t n = 0;
111 if (*consumed < len) {
112 n = fread(zb->inbuf, 1,
113 MIN(zb->inlen, len - *consumed), f);
115 if (n == 0) {
116 if (ferror(f))
117 return got_ferror(f, GOT_ERR_IO);
118 /* EOF */
119 ret = deflate(z, Z_FINISH);
120 break;
122 z->next_in = zb->inbuf;
123 z->avail_in = n;
125 ret = deflate(z, Z_NO_FLUSH);
126 *consumed += z->total_in - last_total_in;
127 } while (ret == Z_OK && z->avail_out > 0);
129 if (ret == Z_OK) {
130 zb->flags |= GOT_DEFLATE_F_HAVE_MORE;
131 } else {
132 if (ret != Z_STREAM_END)
133 return got_error(GOT_ERR_COMPRESSION);
134 zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
137 *outlenp = z->total_out - last_total_out;
138 return NULL;
141 static const struct got_error *
142 deflate_read_mmap(struct got_deflate_buf *zb, uint8_t *map, size_t offset,
143 size_t len, size_t *outlenp, size_t *consumed, int flush_on_eof)
145 z_stream *z = &zb->z;
146 size_t last_total_out = z->total_out;
147 int ret = Z_ERRNO;
149 z->next_out = zb->outbuf;
150 z->avail_out = zb->outlen;
152 *outlenp = 0;
153 *consumed = 0;
154 do {
155 size_t last_total_in = z->total_in;
156 if (z->avail_in == 0) {
157 z->next_in = map + offset + *consumed;
158 if (len - *consumed > UINT_MAX)
159 z->avail_in = UINT_MAX;
160 else
161 z->avail_in = len - *consumed;
162 if (z->avail_in == 0) {
163 /* EOF */
164 if (flush_on_eof)
165 ret = deflate(z, Z_FINISH);
166 break;
169 ret = deflate(z, Z_NO_FLUSH);
170 *consumed += z->total_in - last_total_in;
171 } while (ret == Z_OK && z->avail_out > 0);
173 if (ret == Z_OK) {
174 zb->flags |= GOT_DEFLATE_F_HAVE_MORE;
175 } else {
176 if (ret != Z_STREAM_END)
177 return got_error(GOT_ERR_COMPRESSION);
178 zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
181 *outlenp = z->total_out - last_total_out;
182 return NULL;
185 const struct got_error *
186 got_deflate_read_mmap(struct got_deflate_buf *zb, uint8_t *map, size_t offset,
187 size_t len, size_t *outlenp, size_t *consumed)
189 return deflate_read_mmap(zb, map, offset, len, outlenp, consumed, 1);
192 const struct got_error *
193 got_deflate_flush(struct got_deflate_buf *zb, FILE *outfile,
194 struct got_deflate_checksum *csum, off_t *outlenp)
196 int ret;
197 size_t n;
198 z_stream *z = &zb->z;
200 if (z->avail_in != 0)
201 return got_error_msg(GOT_ERR_COMPRESSION,
202 "cannot flush zb with pending input data");
204 do {
205 size_t avail, last_total_out = zb->z.total_out;
207 z->next_out = zb->outbuf;
208 z->avail_out = zb->outlen;
210 ret = deflate(z, Z_FINISH);
211 if (ret != Z_STREAM_END && ret != Z_OK)
212 return got_error(GOT_ERR_COMPRESSION);
214 avail = z->total_out - last_total_out;
215 if (avail > 0) {
216 n = fwrite(zb->outbuf, avail, 1, outfile);
217 if (n != 1)
218 return got_ferror(outfile, GOT_ERR_IO);
219 if (csum)
220 csum_output(csum, zb->outbuf, avail);
221 if (outlenp)
222 *outlenp += avail;
224 } while (ret != Z_STREAM_END);
226 zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
227 return NULL;
230 void
231 got_deflate_end(struct got_deflate_buf *zb)
233 free(zb->inbuf);
234 if (zb->flags & GOT_DEFLATE_F_OWN_OUTBUF)
235 free(zb->outbuf);
236 deflateEnd(&zb->z);
239 const struct got_error *
240 got_deflate_to_fd(off_t *outlen, FILE *infile, off_t len, int outfd,
241 struct got_deflate_checksum *csum)
243 const struct got_error *err;
244 size_t avail;
245 off_t consumed;
246 struct got_deflate_buf zb;
248 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
249 if (err)
250 goto done;
252 *outlen = 0;
254 do {
255 err = got_deflate_read(&zb, infile, len, &avail, &consumed);
256 if (err)
257 goto done;
258 len -= consumed;
259 if (avail > 0) {
260 err = got_poll_write_full(outfd, zb.outbuf, avail);
261 if (err)
262 goto done;
263 if (csum)
264 csum_output(csum, zb.outbuf, avail);
265 *outlen += avail;
267 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
269 done:
270 got_deflate_end(&zb);
271 return err;
274 const struct got_error *
275 got_deflate_to_fd_mmap(off_t *outlen, uint8_t *map, size_t offset,
276 size_t len, int outfd, struct got_deflate_checksum *csum)
278 const struct got_error *err;
279 size_t avail, consumed;
280 struct got_deflate_buf zb;
282 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
283 if (err)
284 goto done;
286 *outlen = 0;
287 do {
288 err = got_deflate_read_mmap(&zb, map, offset, len, &avail,
289 &consumed);
290 if (err)
291 goto done;
292 offset += consumed;
293 len -= consumed;
294 if (avail > 0) {
295 err = got_poll_write_full(outfd, zb.outbuf, avail);
296 if (err)
297 goto done;
298 if (csum)
299 csum_output(csum, zb.outbuf, avail);
300 *outlen += avail;
302 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
304 done:
305 got_deflate_end(&zb);
306 return err;
309 const struct got_error *
310 got_deflate_to_file(off_t *outlen, FILE *infile, off_t len,
311 FILE *outfile, struct got_deflate_checksum *csum)
313 const struct got_error *err;
314 size_t avail;
315 off_t consumed;
316 struct got_deflate_buf zb;
318 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
319 if (err)
320 goto done;
322 *outlen = 0;
324 do {
325 err = got_deflate_read(&zb, infile, len, &avail, &consumed);
326 if (err)
327 goto done;
328 len -= consumed;
329 if (avail > 0) {
330 size_t n;
331 n = fwrite(zb.outbuf, avail, 1, outfile);
332 if (n != 1) {
333 err = got_ferror(outfile, GOT_ERR_IO);
334 goto done;
336 if (csum)
337 csum_output(csum, zb.outbuf, avail);
338 *outlen += avail;
340 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
342 done:
343 got_deflate_end(&zb);
344 return err;
347 const struct got_error *
348 got_deflate_to_file_mmap(off_t *outlen, uint8_t *map, size_t offset,
349 size_t len, FILE *outfile, struct got_deflate_checksum *csum)
351 const struct got_error *err;
352 size_t avail, consumed;
353 struct got_deflate_buf zb;
355 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
356 if (err)
357 goto done;
359 *outlen = 0;
360 do {
361 err = got_deflate_read_mmap(&zb, map, offset, len, &avail,
362 &consumed);
363 if (err)
364 goto done;
365 offset += consumed;
366 len -= consumed;
367 if (avail > 0) {
368 size_t n;
369 n = fwrite(zb.outbuf, avail, 1, outfile);
370 if (n != 1) {
371 err = got_ferror(outfile, GOT_ERR_IO);
372 goto done;
374 if (csum)
375 csum_output(csum, zb.outbuf, avail);
376 *outlen += avail;
378 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
380 done:
381 got_deflate_end(&zb);
382 return err;
385 const struct got_error *
386 got_deflate_append_to_file_mmap(struct got_deflate_buf *zb, off_t *outlen,
387 uint8_t *map, size_t offset, size_t len, FILE *outfile,
388 struct got_deflate_checksum *csum)
390 const struct got_error *err;
391 size_t avail, consumed;
393 do {
394 err = deflate_read_mmap(zb, map, offset, len, &avail,
395 &consumed, 0);
396 if (err)
397 break;
398 offset += consumed;
399 len -= consumed;
400 if (avail > 0) {
401 size_t n;
402 n = fwrite(zb->outbuf, avail, 1, outfile);
403 if (n != 1) {
404 err = got_ferror(outfile, GOT_ERR_IO);
405 break;
407 if (csum)
408 csum_output(csum, zb->outbuf, avail);
409 if (outlen)
410 *outlen += avail;
412 } while ((zb->flags & GOT_DEFLATE_F_HAVE_MORE) && len > 0);
414 return err;
417 const struct got_error *
418 got_deflate_to_mem_mmap(uint8_t **outbuf, size_t *outlen,
419 size_t *consumed_total, struct got_deflate_checksum *csum, uint8_t *map,
420 size_t offset, size_t len)
422 const struct got_error *err;
423 size_t avail, consumed;
424 struct got_deflate_buf zb;
425 void *newbuf;
426 size_t nbuf = 1;
428 if (outbuf) {
429 *outbuf = malloc(GOT_DEFLATE_BUFSIZE);
430 if (*outbuf == NULL)
431 return got_error_from_errno("malloc");
432 err = got_deflate_init(&zb, *outbuf, GOT_DEFLATE_BUFSIZE);
433 if (err) {
434 free(*outbuf);
435 *outbuf = NULL;
436 return err;
438 } else {
439 err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
440 if (err)
441 return err;
444 *outlen = 0;
445 if (consumed_total)
446 *consumed_total = 0;
447 do {
448 err = got_deflate_read_mmap(&zb, map, offset, len, &avail,
449 &consumed);
450 if (err)
451 goto done;
452 offset += consumed;
453 if (consumed_total)
454 *consumed_total += consumed;
455 len -= consumed;
456 if (avail > 0 && csum)
457 csum_output(csum, zb.outbuf, avail);
458 *outlen += avail;
459 if ((zb.flags & GOT_DEFLATE_F_HAVE_MORE) && outbuf != NULL) {
460 newbuf = reallocarray(*outbuf, ++nbuf,
461 GOT_DEFLATE_BUFSIZE);
462 if (newbuf == NULL) {
463 err = got_error_from_errno("reallocarray");
464 free(*outbuf);
465 *outbuf = NULL;
466 *outlen = 0;
467 goto done;
469 *outbuf = newbuf;
470 zb.outbuf = newbuf + *outlen;
471 zb.outlen = (nbuf * GOT_DEFLATE_BUFSIZE) - *outlen;
473 } while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
474 done:
475 got_deflate_end(&zb);
476 return err;