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  */
16 
17 #include <sys/queue.h>
18 
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>
26 
27 #include "got_error.h"
28 #include "got_object.h"
29 #include "got_path.h"
30 
31 #include "got_lib_deflate.h"
32 
33 #ifndef MIN
34 #define	MIN(_a,_b) ((_a) < (_b) ? (_a) : (_b))
35 #endif
36 
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;
42 
43 	memset(&zb->z, 0, sizeof(zb->z));
44 
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 	}
57 
58 	zb->inlen = zb->outlen = bufsize;
59 
60 	zb->inbuf = calloc(1, zb->inlen);
61 	if (zb->inbuf == NULL) {
62 		err = got_error_from_errno("calloc");
63 		goto done;
64 	}
65 
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 }
81 
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);
87 
88 	if (csum->output_sha1)
89 		SHA1Update(csum->output_sha1, buf, len);
90 }
91 
92 const struct got_error *
93 got_deflate_read(struct got_deflate_buf *zb, FILE *f, size_t *outlenp)
94 {
95 	size_t last_total_out = zb->z.total_out;
96 	z_stream *z = &zb->z;
97 	int ret = Z_ERRNO;
98 
99 	z->next_out = zb->outbuf;
100 	z->avail_out = zb->outlen;
101 
102 	*outlenp = 0;
103 	do {
104 		if (z->avail_in == 0) {
105 			size_t n = fread(zb->inbuf, 1, zb->inlen, f);
106 			if (n == 0) {
107 				if (ferror(f))
108 					return got_ferror(f, GOT_ERR_IO);
109 				/* EOF */
110 				ret = deflate(z, Z_FINISH);
111 				break;
112 			}
113 			z->next_in = zb->inbuf;
114 			z->avail_in = n;
115 		}
116 		ret = deflate(z, Z_NO_FLUSH);
117 	} while (ret == Z_OK && z->avail_out > 0);
118 
119 	if (ret == Z_OK) {
120 		zb->flags |= GOT_DEFLATE_F_HAVE_MORE;
121 	} else {
122 		if (ret != Z_STREAM_END)
123 			return got_error(GOT_ERR_COMPRESSION);
124 		zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
125 	}
126 
127 	*outlenp = z->total_out - last_total_out;
128 	return NULL;
129 }
130 
131 const struct got_error *
132 got_deflate_read_mmap(struct got_deflate_buf *zb, uint8_t *map, size_t offset,
133     size_t len, size_t *outlenp, size_t *consumed)
134 {
135 	z_stream *z = &zb->z;
136 	size_t last_total_out = z->total_out;
137 	int ret = Z_ERRNO;
138 
139 	z->next_out = zb->outbuf;
140 	z->avail_out = zb->outlen;
141 
142 	*outlenp = 0;
143 	*consumed = 0;
144 	do {
145 		size_t last_total_in = z->total_in;
146 		if (z->avail_in == 0) {
147 			z->next_in = map + offset + *consumed;
148 			z->avail_in = len - *consumed;
149 			if (z->avail_in == 0) {
150 				/* EOF */
151 				ret = deflate(z, Z_FINISH);
152 				break;
153 			}
154 		}
155 		ret = deflate(z, Z_NO_FLUSH);
156 		*consumed += z->total_in - last_total_in;
157 	} while (ret == Z_OK && z->avail_out > 0);
158 
159 	if (ret == Z_OK) {
160 		zb->flags |= GOT_DEFLATE_F_HAVE_MORE;
161 	} else {
162 		if (ret != Z_STREAM_END)
163 			return got_error(GOT_ERR_COMPRESSION);
164 		zb->flags &= ~GOT_DEFLATE_F_HAVE_MORE;
165 	}
166 
167 	*outlenp = z->total_out - last_total_out;
168 	return NULL;
169 }
170 
171 void
172 got_deflate_end(struct got_deflate_buf *zb)
173 {
174 	free(zb->inbuf);
175 	if (zb->flags & GOT_DEFLATE_F_OWN_OUTBUF)
176 		free(zb->outbuf);
177 	deflateEnd(&zb->z);
178 }
179 
180 const struct got_error *
181 got_deflate_to_file(size_t *outlen, FILE *infile, FILE *outfile,
182     struct got_deflate_checksum *csum)
183 {
184 	const struct got_error *err;
185 	size_t avail;
186 	struct got_deflate_buf zb;
187 
188 	err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
189 	if (err)
190 		goto done;
191 
192 	*outlen = 0;
193 
194 	do {
195 		err = got_deflate_read(&zb, infile, &avail);
196 		if (err)
197 			goto done;
198 		if (avail > 0) {
199 			size_t n;
200 			n = fwrite(zb.outbuf, avail, 1, outfile);
201 			if (n != 1) {
202 				err = got_ferror(outfile, GOT_ERR_IO);
203 				goto done;
204 			}
205 			if (csum)
206 				csum_output(csum, zb.outbuf, avail);
207 			*outlen += avail;
208 		}
209 	} while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
210 
211 done:
212 	got_deflate_end(&zb);
213 	return err;
214 }
215 
216 const struct got_error *
217 got_deflate_to_file_mmap(size_t *outlen, uint8_t *map, size_t offset,
218     size_t len, FILE *outfile, struct got_deflate_checksum *csum)
219 {
220 	const struct got_error *err;
221 	size_t avail, consumed;
222 	struct got_deflate_buf zb;
223 
224 	err = got_deflate_init(&zb, NULL, GOT_DEFLATE_BUFSIZE);
225 	if (err)
226 		goto done;
227 
228 	*outlen = 0;
229 	do {
230 		err = got_deflate_read_mmap(&zb, map, offset, len, &avail,
231 		    &consumed);
232 		if (err)
233 			goto done;
234 		offset += consumed;
235 		len -= consumed;
236 		if (avail > 0) {
237 			size_t n;
238 			n = fwrite(zb.outbuf, avail, 1, outfile);
239 			if (n != 1) {
240 				err = got_ferror(outfile, GOT_ERR_IO);
241 				goto done;
242 			}
243 			if (csum)
244 				csum_output(csum, zb.outbuf, avail);
245 			*outlen += avail;
246 		}
247 	} while (zb.flags & GOT_DEFLATE_F_HAVE_MORE);
248 
249 done:
250 	got_deflate_end(&zb);
251 	return err;
252 }