]> wimlib.net Git - wimlib/blob - src/resource.c
Improve helper functions for setting blob locations
[wimlib] / src / resource.c
1 /*
2  * resource.c
3  *
4  * Code for reading blobs and resources, including compressed WIM resources.
5  */
6
7 /*
8  * Copyright (C) 2012, 2013, 2015 Eric Biggers
9  *
10  * This file is free software; you can redistribute it and/or modify it under
11  * the terms of the GNU Lesser General Public License as published by the Free
12  * Software Foundation; either version 3 of the License, or (at your option) any
13  * later version.
14  *
15  * This file is distributed in the hope that it will be useful, but WITHOUT
16  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
17  * FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more
18  * details.
19  *
20  * You should have received a copy of the GNU Lesser General Public License
21  * along with this file; if not, see http://www.gnu.org/licenses/.
22  */
23
24 #ifdef HAVE_CONFIG_H
25 #  include "config.h"
26 #endif
27
28 #include <errno.h>
29 #include <fcntl.h>
30 #include <unistd.h>
31
32 #include "wimlib/alloca.h"
33 #include "wimlib/assert.h"
34 #include "wimlib/bitops.h"
35 #include "wimlib/blob_table.h"
36 #include "wimlib/endianness.h"
37 #include "wimlib/error.h"
38 #include "wimlib/file_io.h"
39 #include "wimlib/resource.h"
40 #include "wimlib/sha1.h"
41 #include "wimlib/wim.h"
42
43 #ifdef __WIN32__
44 /* for read_winnt_stream_prefix(), read_win32_encrypted_file_prefix() */
45 #  include "wimlib/win32.h"
46 #endif
47
48 #ifdef WITH_NTFS_3G
49 /* for read_ntfs_attribute_prefix() */
50 #  include "wimlib/ntfs_3g.h"
51 #endif
52
53
54 /*
55  *                         Compressed WIM resources
56  *
57  * A compressed resource in a WIM consists of a number of compressed chunks,
58  * each of which decompresses to a fixed chunk size (given in the WIM header;
59  * usually 32768) except possibly the last, which always decompresses to any
60  * remaining bytes.  In addition, immediately before the chunks, a table (the
61  * "chunk table") provides the offset, in bytes relative to the end of the chunk
62  * table, of the start of each compressed chunk, except for the first chunk
63  * which is omitted as it always has an offset of 0.  Therefore, a compressed
64  * resource with N chunks will have a chunk table with N - 1 entries.
65  *
66  * Additional information:
67  *
68  * - Entries in the chunk table are 4 bytes each, except if the uncompressed
69  *   size of the resource is greater than 4 GiB, in which case the entries in
70  *   the chunk table are 8 bytes each.  In either case, the entries are unsigned
71  *   little-endian integers.
72  *
73  * - The chunk table is included in the compressed size of the resource provided
74  *   in the corresponding entry in the WIM's blob table.
75  *
76  * - The compressed size of a chunk is never greater than the uncompressed size.
77  *   From the compressor's point of view, chunks that would have compressed to a
78  *   size greater than or equal to their original size are in fact stored
79  *   uncompressed.  From the decompresser's point of view, chunks with
80  *   compressed size equal to their uncompressed size are in fact uncompressed.
81  *
82  * Furthermore, wimlib supports its own "pipable" WIM format, and for this the
83  * structure of compressed resources was modified to allow piped reading and
84  * writing.  To make sequential writing possible, the chunk table is placed
85  * after the chunks rather than before the chunks, and to make sequential
86  * reading possible, each chunk is prefixed with a 4-byte header giving its
87  * compressed size as a 32-bit, unsigned, little-endian integer.  Otherwise the
88  * details are the same.
89  */
90
91
92 struct data_range {
93         u64 offset;
94         u64 size;
95 };
96
97 /*
98  * read_compressed_wim_resource() -
99  *
100  * Read data from a compressed WIM resource.
101  *
102  * @rdesc
103  *      Description of the compressed WIM resource to read from.
104  * @ranges
105  *      Nonoverlapping, nonempty ranges of the uncompressed resource data to
106  *      read, sorted by increasing offset.
107  * @num_ranges
108  *      Number of ranges in @ranges; must be at least 1.
109  * @cb
110  *      Callback function to feed the data being read.  Each call provides the
111  *      next chunk of the requested data, uncompressed.  Each chunk will be of
112  *      nonzero size and will not cross range boundaries, but otherwise will be
113  *      of unspecified size.
114  * @cb_ctx
115  *      Parameter to pass to @cb_ctx.
116  *
117  * Possible return values:
118  *
119  *      WIMLIB_ERR_SUCCESS (0)
120  *      WIMLIB_ERR_READ                   (errno set)
121  *      WIMLIB_ERR_UNEXPECTED_END_OF_FILE (errno set to 0)
122  *      WIMLIB_ERR_NOMEM                  (errno set to ENOMEM)
123  *      WIMLIB_ERR_DECOMPRESSION          (errno set to EINVAL)
124  *
125  *      or other error code returned by the @cb function.
126  */
127 static int
128 read_compressed_wim_resource(const struct wim_resource_descriptor * const rdesc,
129                              const struct data_range * const ranges,
130                              const size_t num_ranges,
131                              const consume_data_callback_t cb,
132                              void * const cb_ctx)
133 {
134         int ret;
135         int errno_save;
136
137         u64 *chunk_offsets = NULL;
138         u8 *ubuf = NULL;
139         void *cbuf = NULL;
140         bool chunk_offsets_malloced = false;
141         bool ubuf_malloced = false;
142         bool cbuf_malloced = false;
143         struct wimlib_decompressor *decompressor = NULL;
144
145         /* Sanity checks  */
146         wimlib_assert(rdesc != NULL);
147         wimlib_assert(resource_is_compressed(rdesc));
148         wimlib_assert(cb != NULL);
149         wimlib_assert(num_ranges != 0);
150         for (size_t i = 0; i < num_ranges; i++) {
151                 DEBUG("Range %zu/%zu: %"PRIu64"@+%"PRIu64" / %"PRIu64,
152                       i + 1, num_ranges, ranges[i].size, ranges[i].offset,
153                       rdesc->uncompressed_size);
154                 wimlib_assert(ranges[i].size != 0);
155                 wimlib_assert(ranges[i].offset + ranges[i].size >= ranges[i].size);
156                 wimlib_assert(ranges[i].offset + ranges[i].size <= rdesc->uncompressed_size);
157         }
158         for (size_t i = 0; i < num_ranges - 1; i++)
159                 wimlib_assert(ranges[i].offset + ranges[i].size <= ranges[i + 1].offset);
160
161         /* Get the offsets of the first and last bytes of the read.  */
162         const u64 first_offset = ranges[0].offset;
163         const u64 last_offset = ranges[num_ranges - 1].offset + ranges[num_ranges - 1].size - 1;
164
165         /* Get the file descriptor for the WIM.  */
166         struct filedes * const in_fd = &rdesc->wim->in_fd;
167
168         /* Determine if we're reading a pipable resource from a pipe or not.  */
169         const bool is_pipe_read = (rdesc->is_pipable && !filedes_is_seekable(in_fd));
170
171         /* Determine if the chunk table is in an alternate format.  */
172         const bool alt_chunk_table = (rdesc->flags & WIM_RESHDR_FLAG_SOLID)
173                                         && !is_pipe_read;
174
175         /* Get the maximum size of uncompressed chunks in this resource, which
176          * we require be a power of 2.  */
177         u64 cur_read_offset = rdesc->offset_in_wim;
178         int ctype = rdesc->compression_type;
179         u32 chunk_size = rdesc->chunk_size;
180         if (alt_chunk_table) {
181                 /* Alternate chunk table format.  Its header specifies the chunk
182                  * size and compression format.  Note: it could be read here;
183                  * however, the relevant data was already loaded into @rdesc by
184                  * read_blob_table().  */
185                 cur_read_offset += sizeof(struct alt_chunk_table_header_disk);
186         }
187
188         if (!is_power_of_2(chunk_size)) {
189                 ERROR("Invalid compressed resource: "
190                       "expected power-of-2 chunk size (got %"PRIu32")",
191                       chunk_size);
192                 ret = WIMLIB_ERR_INVALID_CHUNK_SIZE;
193                 errno = EINVAL;
194                 goto out_free_memory;
195         }
196
197         /* Get valid decompressor.  */
198         if (ctype == rdesc->wim->decompressor_ctype &&
199             chunk_size == rdesc->wim->decompressor_max_block_size)
200         {
201                 /* Cached decompressor.  */
202                 decompressor = rdesc->wim->decompressor;
203                 rdesc->wim->decompressor_ctype = WIMLIB_COMPRESSION_TYPE_NONE;
204                 rdesc->wim->decompressor = NULL;
205         } else {
206                 ret = wimlib_create_decompressor(ctype, chunk_size,
207                                                  &decompressor);
208                 if (ret) {
209                         if (ret != WIMLIB_ERR_NOMEM)
210                                 errno = EINVAL;
211                         goto out_free_memory;
212                 }
213         }
214
215         const u32 chunk_order = fls32(chunk_size);
216
217         /* Calculate the total number of chunks the resource is divided into.  */
218         const u64 num_chunks = (rdesc->uncompressed_size + chunk_size - 1) >> chunk_order;
219
220         /* Calculate the 0-based indices of the first and last chunks containing
221          * data that needs to be passed to the callback.  */
222         const u64 first_needed_chunk = first_offset >> chunk_order;
223         const u64 last_needed_chunk = last_offset >> chunk_order;
224
225         /* Calculate the 0-based index of the first chunk that actually needs to
226          * be read.  This is normally first_needed_chunk, but for pipe reads we
227          * must always start from the 0th chunk.  */
228         const u64 read_start_chunk = (is_pipe_read ? 0 : first_needed_chunk);
229
230         /* Calculate the number of chunk offsets that are needed for the chunks
231          * being read.  */
232         const u64 num_needed_chunk_offsets =
233                 last_needed_chunk - read_start_chunk + 1 +
234                 (last_needed_chunk < num_chunks - 1);
235
236         /* Calculate the number of entries in the chunk table.  Normally, it's
237          * one less than the number of chunks, since the first chunk has no
238          * entry.  But in the alternate chunk table format, the chunk entries
239          * contain chunk sizes, not offsets, and there is one per chunk.  */
240         const u64 num_chunk_entries = (alt_chunk_table ? num_chunks : num_chunks - 1);
241
242         /* Set the size of each chunk table entry based on the resource's
243          * uncompressed size.  */
244         const u64 chunk_entry_size = get_chunk_entry_size(rdesc->uncompressed_size,
245                                                           alt_chunk_table);
246
247         /* Calculate the size of the chunk table in bytes.  */
248         const u64 chunk_table_size = num_chunk_entries * chunk_entry_size;
249
250         /* Calculate the size of the chunk table in bytes, including the header
251          * in the case of the alternate chunk table format.  */
252         const u64 chunk_table_full_size =
253                 (alt_chunk_table) ? chunk_table_size + sizeof(struct alt_chunk_table_header_disk)
254                                   : chunk_table_size;
255
256         if (!is_pipe_read) {
257                 /* Read the needed chunk table entries into memory and use them
258                  * to initialize the chunk_offsets array.  */
259
260                 u64 first_chunk_entry_to_read;
261                 u64 last_chunk_entry_to_read;
262
263                 if (alt_chunk_table) {
264                         /* The alternate chunk table contains chunk sizes, not
265                          * offsets, so we always must read all preceding entries
266                          * in order to determine offsets.  */
267                         first_chunk_entry_to_read = 0;
268                         last_chunk_entry_to_read = last_needed_chunk;
269                 } else {
270                         /* Here we must account for the fact that the first
271                          * chunk has no explicit chunk table entry.  */
272
273                         if (read_start_chunk == 0)
274                                 first_chunk_entry_to_read = 0;
275                         else
276                                 first_chunk_entry_to_read = read_start_chunk - 1;
277
278                         if (last_needed_chunk == 0)
279                                 last_chunk_entry_to_read = 0;
280                         else
281                                 last_chunk_entry_to_read = last_needed_chunk - 1;
282
283                         if (last_needed_chunk < num_chunks - 1)
284                                 last_chunk_entry_to_read++;
285                 }
286
287                 const u64 num_chunk_entries_to_read =
288                         last_chunk_entry_to_read - first_chunk_entry_to_read + 1;
289
290                 const u64 chunk_offsets_alloc_size =
291                         max(num_chunk_entries_to_read,
292                             num_needed_chunk_offsets) * sizeof(chunk_offsets[0]);
293
294                 if ((size_t)chunk_offsets_alloc_size != chunk_offsets_alloc_size)
295                         goto oom;
296
297                 if (chunk_offsets_alloc_size <= STACK_MAX) {
298                         chunk_offsets = alloca(chunk_offsets_alloc_size);
299                 } else {
300                         chunk_offsets = MALLOC(chunk_offsets_alloc_size);
301                         if (chunk_offsets == NULL)
302                                 goto oom;
303                         chunk_offsets_malloced = true;
304                 }
305
306                 const size_t chunk_table_size_to_read =
307                         num_chunk_entries_to_read * chunk_entry_size;
308
309                 const u64 file_offset_of_needed_chunk_entries =
310                         cur_read_offset
311                         + (first_chunk_entry_to_read * chunk_entry_size)
312                         + (rdesc->is_pipable ? (rdesc->size_in_wim - chunk_table_size) : 0);
313
314                 void * const chunk_table_data =
315                         (u8*)chunk_offsets +
316                         chunk_offsets_alloc_size -
317                         chunk_table_size_to_read;
318
319                 ret = full_pread(in_fd, chunk_table_data, chunk_table_size_to_read,
320                                  file_offset_of_needed_chunk_entries);
321                 if (ret)
322                         goto read_error;
323
324                 /* Now fill in chunk_offsets from the entries we have read in
325                  * chunk_tab_data.  We break aliasing rules here to avoid having
326                  * to allocate yet another array.  */
327                 typedef le64 _may_alias_attribute aliased_le64_t;
328                 typedef le32 _may_alias_attribute aliased_le32_t;
329                 u64 * chunk_offsets_p = chunk_offsets;
330
331                 if (alt_chunk_table) {
332                         u64 cur_offset = 0;
333                         aliased_le32_t *raw_entries = chunk_table_data;
334
335                         for (size_t i = 0; i < num_chunk_entries_to_read; i++) {
336                                 u32 entry = le32_to_cpu(raw_entries[i]);
337                                 if (i >= read_start_chunk)
338                                         *chunk_offsets_p++ = cur_offset;
339                                 cur_offset += entry;
340                         }
341                         if (last_needed_chunk < num_chunks - 1)
342                                 *chunk_offsets_p = cur_offset;
343                 } else {
344                         if (read_start_chunk == 0)
345                                 *chunk_offsets_p++ = 0;
346
347                         if (chunk_entry_size == 4) {
348                                 aliased_le32_t *raw_entries = chunk_table_data;
349                                 for (size_t i = 0; i < num_chunk_entries_to_read; i++)
350                                         *chunk_offsets_p++ = le32_to_cpu(raw_entries[i]);
351                         } else {
352                                 aliased_le64_t *raw_entries = chunk_table_data;
353                                 for (size_t i = 0; i < num_chunk_entries_to_read; i++)
354                                         *chunk_offsets_p++ = le64_to_cpu(raw_entries[i]);
355                         }
356                 }
357
358                 /* Set offset to beginning of first chunk to read.  */
359                 cur_read_offset += chunk_offsets[0];
360                 if (rdesc->is_pipable)
361                         cur_read_offset += read_start_chunk * sizeof(struct pwm_chunk_hdr);
362                 else
363                         cur_read_offset += chunk_table_size;
364         }
365
366         /* Allocate buffer for holding the uncompressed data of each chunk.  */
367         if (chunk_size <= STACK_MAX) {
368                 ubuf = alloca(chunk_size);
369         } else {
370                 ubuf = MALLOC(chunk_size);
371                 if (ubuf == NULL)
372                         goto oom;
373                 ubuf_malloced = true;
374         }
375
376         /* Allocate a temporary buffer for reading compressed chunks, each of
377          * which can be at most @chunk_size - 1 bytes.  This excludes compressed
378          * chunks that are a full @chunk_size bytes, which are actually stored
379          * uncompressed.  */
380         if (chunk_size - 1 <= STACK_MAX) {
381                 cbuf = alloca(chunk_size - 1);
382         } else {
383                 cbuf = MALLOC(chunk_size - 1);
384                 if (cbuf == NULL)
385                         goto oom;
386                 cbuf_malloced = true;
387         }
388
389         /* Set current data range.  */
390         const struct data_range *cur_range = ranges;
391         const struct data_range * const end_range = &ranges[num_ranges];
392         u64 cur_range_pos = cur_range->offset;
393         u64 cur_range_end = cur_range->offset + cur_range->size;
394
395         /* Read and process each needed chunk.  */
396         for (u64 i = read_start_chunk; i <= last_needed_chunk; i++) {
397
398                 /* Calculate uncompressed size of next chunk.  */
399                 u32 chunk_usize;
400                 if ((i == num_chunks - 1) && (rdesc->uncompressed_size & (chunk_size - 1)))
401                         chunk_usize = (rdesc->uncompressed_size & (chunk_size - 1));
402                 else
403                         chunk_usize = chunk_size;
404
405                 /* Calculate compressed size of next chunk.  */
406                 u32 chunk_csize;
407                 if (is_pipe_read) {
408                         struct pwm_chunk_hdr chunk_hdr;
409
410                         ret = full_pread(in_fd, &chunk_hdr,
411                                          sizeof(chunk_hdr), cur_read_offset);
412                         if (ret)
413                                 goto read_error;
414                         chunk_csize = le32_to_cpu(chunk_hdr.compressed_size);
415                 } else {
416                         if (i == num_chunks - 1) {
417                                 chunk_csize = rdesc->size_in_wim -
418                                               chunk_table_full_size -
419                                               chunk_offsets[i - read_start_chunk];
420                                 if (rdesc->is_pipable)
421                                         chunk_csize -= num_chunks * sizeof(struct pwm_chunk_hdr);
422                         } else {
423                                 chunk_csize = chunk_offsets[i + 1 - read_start_chunk] -
424                                               chunk_offsets[i - read_start_chunk];
425                         }
426                 }
427                 if (chunk_csize == 0 || chunk_csize > chunk_usize) {
428                         ERROR("Invalid chunk size in compressed resource!");
429                         errno = EINVAL;
430                         ret = WIMLIB_ERR_DECOMPRESSION;
431                         goto out_free_memory;
432                 }
433                 if (rdesc->is_pipable)
434                         cur_read_offset += sizeof(struct pwm_chunk_hdr);
435
436                 /* Offsets in the uncompressed resource at which this chunk
437                  * starts and ends.  */
438                 const u64 chunk_start_offset = i << chunk_order;
439                 const u64 chunk_end_offset = chunk_start_offset + chunk_usize;
440
441                 if (chunk_end_offset <= cur_range_pos) {
442
443                         /* The next range does not require data in this chunk,
444                          * so skip it.  */
445                         cur_read_offset += chunk_csize;
446                         if (is_pipe_read) {
447                                 u8 dummy;
448
449                                 ret = full_pread(in_fd, &dummy, 1, cur_read_offset - 1);
450                                 if (ret)
451                                         goto read_error;
452                         }
453                 } else {
454
455                         /* Read the chunk and feed data to the callback
456                          * function.  */
457                         u8 *read_buf;
458
459                         if (chunk_csize == chunk_usize)
460                                 read_buf = ubuf;
461                         else
462                                 read_buf = cbuf;
463
464                         ret = full_pread(in_fd,
465                                          read_buf,
466                                          chunk_csize,
467                                          cur_read_offset);
468                         if (ret)
469                                 goto read_error;
470
471                         if (read_buf == cbuf) {
472                                 DEBUG("Decompressing chunk %"PRIu64" "
473                                       "(csize=%"PRIu32" usize=%"PRIu32")",
474                                       i, chunk_csize, chunk_usize);
475                                 ret = wimlib_decompress(cbuf,
476                                                         chunk_csize,
477                                                         ubuf,
478                                                         chunk_usize,
479                                                         decompressor);
480                                 if (ret) {
481                                         ERROR("Failed to decompress data!");
482                                         ret = WIMLIB_ERR_DECOMPRESSION;
483                                         errno = EINVAL;
484                                         goto out_free_memory;
485                                 }
486                         }
487                         cur_read_offset += chunk_csize;
488
489                         /* At least one range requires data in this chunk.  */
490                         do {
491                                 size_t start, end, size;
492
493                                 /* Calculate how many bytes of data should be
494                                  * sent to the callback function, taking into
495                                  * account that data sent to the callback
496                                  * function must not overlap range boundaries.
497                                  */
498                                 start = cur_range_pos - chunk_start_offset;
499                                 end = min(cur_range_end, chunk_end_offset) - chunk_start_offset;
500                                 size = end - start;
501
502                                 ret = (*cb)(&ubuf[start], size, cb_ctx);
503
504                                 if (ret)
505                                         goto out_free_memory;
506
507                                 cur_range_pos += size;
508                                 if (cur_range_pos == cur_range_end) {
509                                         /* Advance to next range.  */
510                                         if (++cur_range == end_range) {
511                                                 cur_range_pos = ~0ULL;
512                                         } else {
513                                                 cur_range_pos = cur_range->offset;
514                                                 cur_range_end = cur_range->offset + cur_range->size;
515                                         }
516                                 }
517                         } while (cur_range_pos < chunk_end_offset);
518                 }
519         }
520
521         if (is_pipe_read &&
522             last_offset == rdesc->uncompressed_size - 1 &&
523             chunk_table_size)
524         {
525                 u8 dummy;
526                 /* If reading a pipable resource from a pipe and the full data
527                  * was requested, skip the chunk table at the end so that the
528                  * file descriptor is fully clear of the resource after this
529                  * returns.  */
530                 cur_read_offset += chunk_table_size;
531                 ret = full_pread(in_fd, &dummy, 1, cur_read_offset - 1);
532                 if (ret)
533                         goto read_error;
534         }
535         ret = 0;
536
537 out_free_memory:
538         errno_save = errno;
539         if (decompressor) {
540                 wimlib_free_decompressor(rdesc->wim->decompressor);
541                 rdesc->wim->decompressor = decompressor;
542                 rdesc->wim->decompressor_ctype = ctype;
543                 rdesc->wim->decompressor_max_block_size = chunk_size;
544         }
545         if (chunk_offsets_malloced)
546                 FREE(chunk_offsets);
547         if (ubuf_malloced)
548                 FREE(ubuf);
549         if (cbuf_malloced)
550                 FREE(cbuf);
551         errno = errno_save;
552         return ret;
553
554 oom:
555         ERROR("Not enough memory available to read size=%"PRIu64" bytes "
556               "from compressed WIM resource!", last_offset - first_offset + 1);
557         errno = ENOMEM;
558         ret = WIMLIB_ERR_NOMEM;
559         goto out_free_memory;
560
561 read_error:
562         ERROR_WITH_ERRNO("Error reading compressed WIM resource!");
563         goto out_free_memory;
564 }
565
566 static int
567 fill_zeroes(u64 size, consume_data_callback_t cb, void *cb_ctx)
568 {
569         if (unlikely(size)) {
570                 u8 buf[min(size, BUFFER_SIZE)];
571
572                 memset(buf, 0, sizeof(buf));
573
574                 do {
575                         size_t len;
576                         int ret;
577
578                         len = min(size, BUFFER_SIZE);
579                         ret = cb(buf, len, cb_ctx);
580                         if (ret)
581                                 return ret;
582                         size -= len;
583                 } while (size);
584         }
585         return 0;
586 }
587
588 /* Read raw data from a file descriptor at the specified offset, feeding the
589  * data it in chunks into the specified callback function.  */
590 static int
591 read_raw_file_data(struct filedes *in_fd, u64 offset, u64 size,
592                    consume_data_callback_t cb, void *cb_ctx)
593 {
594         u8 buf[BUFFER_SIZE];
595         size_t bytes_to_read;
596         int ret;
597
598         while (size) {
599                 bytes_to_read = min(sizeof(buf), size);
600                 ret = full_pread(in_fd, buf, bytes_to_read, offset);
601                 if (ret) {
602                         ERROR_WITH_ERRNO("Read error");
603                         return ret;
604                 }
605                 ret = cb(buf, bytes_to_read, cb_ctx);
606                 if (ret)
607                         return ret;
608                 size -= bytes_to_read;
609                 offset += bytes_to_read;
610         }
611         return 0;
612 }
613
614 /* A consume_data_callback_t implementation that simply concatenates all chunks
615  * into a buffer.  */
616 static int
617 bufferer_cb(const void *chunk, size_t size, void *_ctx)
618 {
619         u8 **buf_p = _ctx;
620
621         *buf_p = mempcpy(*buf_p, chunk, size);
622         return 0;
623 }
624
625 /*
626  * read_partial_wim_resource()-
627  *
628  * Read a range of data from an uncompressed or compressed resource in a WIM
629  * file.
630  *
631  * @rdesc
632  *      Description of the WIM resource to read from.
633  * @offset
634  *      Offset within the uncompressed resource at which to start reading.
635  * @size
636  *      Number of bytes to read.
637  * @cb
638  *      Callback function to feed the data being read.  Each call provides the
639  *      next chunk of the requested data, uncompressed.  Each chunk will be of
640  *      nonzero size and will not cross range boundaries, but otherwise will be
641  *      of unspecified size.
642  * @cb_ctx
643  *      Parameter to pass to @cb_ctx.
644  *
645  * Return values:
646  *      WIMLIB_ERR_SUCCESS (0)
647  *      WIMLIB_ERR_READ                   (errno set)
648  *      WIMLIB_ERR_UNEXPECTED_END_OF_FILE (errno set to 0)
649  *      WIMLIB_ERR_NOMEM                  (errno set to ENOMEM)
650  *      WIMLIB_ERR_DECOMPRESSION          (errno set to EINVAL)
651  *
652  *      or other error code returned by the @cb function.
653  */
654 static int
655 read_partial_wim_resource(const struct wim_resource_descriptor *rdesc,
656                           u64 offset, u64 size,
657                           consume_data_callback_t cb, void *cb_ctx)
658 {
659         /* Sanity checks.  */
660         wimlib_assert(offset + size >= offset);
661         wimlib_assert(offset + size <= rdesc->uncompressed_size);
662
663         DEBUG("Reading %"PRIu64" @ %"PRIu64" from WIM resource  "
664               "%"PRIu64" => %"PRIu64" @ %"PRIu64,
665               size, offset, rdesc->uncompressed_size,
666               rdesc->size_in_wim, rdesc->offset_in_wim);
667
668         /* Trivial case.  */
669         if (size == 0)
670                 return 0;
671
672         if (resource_is_compressed(rdesc)) {
673                 struct data_range range = {
674                         .offset = offset,
675                         .size = size,
676                 };
677                 return read_compressed_wim_resource(rdesc, &range, 1,
678                                                     cb, cb_ctx);
679         } else {
680                 /* Reading uncompressed resource.  For completeness, handle the
681                  * weird case where size_in_wim < uncompressed_size.  */
682
683                 u64 read_size;
684                 u64 zeroes_size;
685                 int ret;
686
687                 if (likely(offset + size <= rdesc->size_in_wim) ||
688                     rdesc->is_pipable)
689                 {
690                         read_size = size;
691                         zeroes_size = 0;
692                 } else {
693                         if (offset >= rdesc->size_in_wim) {
694                                 read_size = 0;
695                                 zeroes_size = size;
696                         } else {
697                                 read_size = rdesc->size_in_wim - offset;
698                                 zeroes_size = offset + size - rdesc->size_in_wim;
699                         }
700                 }
701
702                 ret = read_raw_file_data(&rdesc->wim->in_fd,
703                                          rdesc->offset_in_wim + offset,
704                                          read_size,
705                                          cb,
706                                          cb_ctx);
707                 if (ret)
708                         return ret;
709
710                 return fill_zeroes(zeroes_size, cb, cb_ctx);
711         }
712 }
713
714 /* Read the specified range of uncompressed data from the specified blob, which
715  * must be located into a WIM file, into the specified buffer.  */
716 int
717 read_partial_wim_blob_into_buf(const struct blob_descriptor *blob,
718                                size_t size, u64 offset, void *_buf)
719 {
720         u8 *buf = _buf;
721
722         wimlib_assert(blob->blob_location == BLOB_IN_WIM);
723
724         return read_partial_wim_resource(blob->rdesc,
725                                          blob->offset_in_res + offset,
726                                          size,
727                                          bufferer_cb,
728                                          &buf);
729 }
730
731 /* A consume_data_callback_t implementation that simply ignores the data
732  * received.  */
733 static int
734 skip_chunk_cb(const void *chunk, size_t size, void *_ctx)
735 {
736         return 0;
737 }
738
739 /* Skip over the data of the specified WIM resource.  */
740 int
741 skip_wim_resource(struct wim_resource_descriptor *rdesc)
742 {
743         DEBUG("Skipping resource (size=%"PRIu64")", rdesc->uncompressed_size);
744         return read_partial_wim_resource(rdesc, 0, rdesc->uncompressed_size,
745                                          skip_chunk_cb, NULL);
746 }
747
748 static int
749 read_wim_blob_prefix(const struct blob_descriptor *blob, u64 size,
750                      consume_data_callback_t cb, void *cb_ctx)
751 {
752         return read_partial_wim_resource(blob->rdesc, blob->offset_in_res, size,
753                                          cb, cb_ctx);
754 }
755
756 /* This function handles reading blob data that is located in an external file,
757  * such as a file that has been added to the WIM image through execution of a
758  * wimlib_add_command.
759  *
760  * This assumes the file can be accessed using the standard POSIX open(),
761  * read(), and close().  On Windows this will not necessarily be the case (since
762  * the file may need FILE_FLAG_BACKUP_SEMANTICS to be opened, or the file may be
763  * encrypted), so Windows uses its own code for its equivalent case.  */
764 static int
765 read_file_on_disk_prefix(const struct blob_descriptor *blob, u64 size,
766                          consume_data_callback_t cb, void *cb_ctx)
767 {
768         int ret;
769         int raw_fd;
770         struct filedes fd;
771
772         wimlib_assert(size <= blob->size);
773
774         DEBUG("Reading %"PRIu64" bytes from \"%"TS"\"", size, blob->file_on_disk);
775
776         raw_fd = topen(blob->file_on_disk, O_BINARY | O_RDONLY);
777         if (raw_fd < 0) {
778                 ERROR_WITH_ERRNO("Can't open \"%"TS"\"", blob->file_on_disk);
779                 return WIMLIB_ERR_OPEN;
780         }
781         filedes_init(&fd, raw_fd);
782         ret = read_raw_file_data(&fd, 0, size, cb, cb_ctx);
783         filedes_close(&fd);
784         return ret;
785 }
786
787 #ifdef WITH_FUSE
788 static int
789 read_staging_file_prefix(const struct blob_descriptor *blob, u64 size,
790                          consume_data_callback_t cb, void *cb_ctx)
791 {
792         int raw_fd;
793         struct filedes fd;
794         int ret;
795
796         wimlib_assert(size <= blob->size);
797
798         DEBUG("Reading %"PRIu64" bytes from staging file \"%s\"",
799               size, blob->staging_file_name);
800
801         raw_fd = openat(blob->staging_dir_fd, blob->staging_file_name,
802                         O_RDONLY | O_NOFOLLOW);
803         if (raw_fd < 0) {
804                 ERROR_WITH_ERRNO("Can't open staging file \"%s\"",
805                                  blob->staging_file_name);
806                 return WIMLIB_ERR_OPEN;
807         }
808         filedes_init(&fd, raw_fd);
809         ret = read_raw_file_data(&fd, 0, size, cb, cb_ctx);
810         filedes_close(&fd);
811         return ret;
812 }
813 #endif
814
815 /* This function handles the trivial case of reading blob data that is, in fact,
816  * already located in an in-memory buffer.  */
817 static int
818 read_buffer_prefix(const struct blob_descriptor *blob,
819                    u64 size, consume_data_callback_t cb, void *cb_ctx)
820 {
821         wimlib_assert(size <= blob->size);
822         return (*cb)(blob->attached_buffer, size, cb_ctx);
823 }
824
825 typedef int (*read_blob_prefix_handler_t)(const struct blob_descriptor *blob,
826                                           u64 size,
827                                           consume_data_callback_t cb,
828                                           void *cb_ctx);
829
830 /*
831  * read_blob_prefix()-
832  *
833  * Reads the first @size bytes from a generic "blob", which may be located in
834  * any one of several locations, such as in a WIM file (compressed or
835  * uncompressed), in an external file, or directly in an in-memory buffer.
836  *
837  * This function feeds the data to a callback function @cb in chunks of
838  * unspecified size.
839  *
840  * Returns 0 on success; nonzero on error.  A nonzero value will be returned if
841  * the blob data cannot be successfully read (for a number of different reasons,
842  * depending on the blob location), or if @cb returned nonzero in which case
843  * that error code will be returned.
844  */
845 static int
846 read_blob_prefix(const struct blob_descriptor *blob, u64 size,
847                  consume_data_callback_t cb, void *cb_ctx)
848 {
849         static const read_blob_prefix_handler_t handlers[] = {
850                 [BLOB_IN_WIM] = read_wim_blob_prefix,
851                 [BLOB_IN_FILE_ON_DISK] = read_file_on_disk_prefix,
852                 [BLOB_IN_ATTACHED_BUFFER] = read_buffer_prefix,
853         #ifdef WITH_FUSE
854                 [BLOB_IN_STAGING_FILE] = read_staging_file_prefix,
855         #endif
856         #ifdef WITH_NTFS_3G
857                 [BLOB_IN_NTFS_VOLUME] = read_ntfs_attribute_prefix,
858         #endif
859         #ifdef __WIN32__
860                 [BLOB_IN_WINNT_FILE_ON_DISK] = read_winnt_stream_prefix,
861                 [BLOB_WIN32_ENCRYPTED] = read_win32_encrypted_file_prefix,
862         #endif
863         };
864         wimlib_assert(blob->blob_location < ARRAY_LEN(handlers)
865                       && handlers[blob->blob_location] != NULL);
866         return handlers[blob->blob_location](blob, size, cb, cb_ctx);
867 }
868
869 /* Read the full uncompressed data of the specified blob into the specified
870  * buffer, which must have space for at least blob->size bytes.  */
871 int
872 read_full_blob_into_buf(const struct blob_descriptor *blob, void *_buf)
873 {
874         u8 *buf = _buf;
875         return read_blob_prefix(blob, blob->size, bufferer_cb, &buf);
876 }
877
878 /* Retrieve the full uncompressed data of the specified blob.  A buffer large
879  * enough hold the data is allocated and returned in @buf_ret.  */
880 int
881 read_full_blob_into_alloc_buf(const struct blob_descriptor *blob, void **buf_ret)
882 {
883         int ret;
884         void *buf;
885
886         if ((size_t)blob->size != blob->size) {
887                 ERROR("Can't read %"PRIu64" byte blob into memory", blob->size);
888                 return WIMLIB_ERR_NOMEM;
889         }
890
891         buf = MALLOC(blob->size);
892         if (buf == NULL)
893                 return WIMLIB_ERR_NOMEM;
894
895         ret = read_full_blob_into_buf(blob, buf);
896         if (ret) {
897                 FREE(buf);
898                 return ret;
899         }
900
901         *buf_ret = buf;
902         return 0;
903 }
904
905 /* Retrieve the full uncompressed data of a WIM resource specified as a raw
906  * `wim_reshdr' and the corresponding WIM file.  A buffer large enough hold the
907  * data is allocated and returned in @buf_ret.  */
908 int
909 wim_reshdr_to_data(const struct wim_reshdr *reshdr, WIMStruct *wim, void **buf_ret)
910 {
911         struct wim_resource_descriptor rdesc;
912         struct blob_descriptor blob;
913
914         wim_res_hdr_to_desc(reshdr, wim, &rdesc);
915         blob_set_is_located_in_nonsolid_wim_resource(&blob, &rdesc);
916
917         return read_full_blob_into_alloc_buf(&blob, buf_ret);
918 }
919
920 int
921 wim_reshdr_to_hash(const struct wim_reshdr *reshdr, WIMStruct *wim,
922                    u8 hash[SHA1_HASH_SIZE])
923 {
924         struct wim_resource_descriptor rdesc;
925         struct blob_descriptor blob;
926         int ret;
927
928         wim_res_hdr_to_desc(reshdr, wim, &rdesc);
929         blob_set_is_located_in_nonsolid_wim_resource(&blob, &rdesc);
930         blob.unhashed = 1;
931
932         ret = sha1_blob(&blob);
933         if (ret)
934                 return ret;
935         copy_hash(hash, blob.hash);
936         return 0;
937 }
938
939 struct blobifier_context {
940         struct read_blob_list_callbacks cbs;
941         struct blob_descriptor *cur_blob;
942         struct blob_descriptor *next_blob;
943         u64 cur_blob_offset;
944         struct blob_descriptor *final_blob;
945         size_t list_head_offset;
946 };
947
948 static struct blob_descriptor *
949 next_blob(struct blob_descriptor *blob, size_t list_head_offset)
950 {
951         struct list_head *cur;
952
953         cur = (struct list_head*)((u8*)blob + list_head_offset);
954
955         return (struct blob_descriptor*)((u8*)cur->next - list_head_offset);
956 }
957
958 /* A consume_data_callback_t implementation that translates raw resource data
959  * into blobs, calling the begin_blob, consume_chunk, and end_blob callback
960  * functions as appropriate.  */
961 static int
962 blobifier_cb(const void *chunk, size_t size, void *_ctx)
963 {
964         struct blobifier_context *ctx = _ctx;
965         int ret;
966
967         DEBUG("%zu bytes passed to blobifier", size);
968
969         wimlib_assert(ctx->cur_blob != NULL);
970         wimlib_assert(size <= ctx->cur_blob->size - ctx->cur_blob_offset);
971
972         if (ctx->cur_blob_offset == 0) {
973
974                 /* Starting a new blob.  */
975                 DEBUG("Begin new blob (size=%"PRIu64").", ctx->cur_blob->size);
976
977                 ret = (*ctx->cbs.begin_blob)(ctx->cur_blob,
978                                              ctx->cbs.begin_blob_ctx);
979                 if (ret)
980                         return ret;
981         }
982
983         /* Consume the chunk.  */
984         ret = (*ctx->cbs.consume_chunk)(chunk, size,
985                                         ctx->cbs.consume_chunk_ctx);
986         ctx->cur_blob_offset += size;
987         if (ret)
988                 return ret;
989
990         if (ctx->cur_blob_offset == ctx->cur_blob->size) {
991                 /* Finished reading all the data for a blob.  */
992
993                 ctx->cur_blob_offset = 0;
994
995                 DEBUG("End blob (size=%"PRIu64").", ctx->cur_blob->size);
996                 ret = (*ctx->cbs.end_blob)(ctx->cur_blob, 0,
997                                            ctx->cbs.end_blob_ctx);
998                 if (ret)
999                         return ret;
1000
1001                 /* Advance to next blob.  */
1002                 ctx->cur_blob = ctx->next_blob;
1003                 if (ctx->cur_blob != NULL) {
1004                         if (ctx->cur_blob != ctx->final_blob)
1005                                 ctx->next_blob = next_blob(ctx->cur_blob,
1006                                                            ctx->list_head_offset);
1007                         else
1008                                 ctx->next_blob = NULL;
1009                 }
1010         }
1011         return 0;
1012 }
1013
1014 struct hasher_context {
1015         SHA_CTX sha_ctx;
1016         int flags;
1017         struct read_blob_list_callbacks cbs;
1018 };
1019
1020 /* Callback for starting to read a blob while calculating its SHA-1 message
1021  * digest.  */
1022 static int
1023 hasher_begin_blob(struct blob_descriptor *blob, void *_ctx)
1024 {
1025         struct hasher_context *ctx = _ctx;
1026
1027         sha1_init(&ctx->sha_ctx);
1028
1029         if (ctx->cbs.begin_blob == NULL)
1030                 return 0;
1031         else
1032                 return (*ctx->cbs.begin_blob)(blob, ctx->cbs.begin_blob_ctx);
1033 }
1034
1035 /* A consume_data_callback_t implementation that continues calculating the SHA-1
1036  * message digest of the blob being read, then optionally passes the data on to
1037  * another consume_data_callback_t implementation.  This allows checking the
1038  * SHA-1 message digest of a blob being extracted, for example.  */
1039 static int
1040 hasher_consume_chunk(const void *chunk, size_t size, void *_ctx)
1041 {
1042         struct hasher_context *ctx = _ctx;
1043
1044         sha1_update(&ctx->sha_ctx, chunk, size);
1045         if (ctx->cbs.consume_chunk == NULL)
1046                 return 0;
1047         else
1048                 return (*ctx->cbs.consume_chunk)(chunk, size, ctx->cbs.consume_chunk_ctx);
1049 }
1050
1051 /* Callback for finishing reading a blob while calculating its SHA-1 message
1052  * digest.  */
1053 static int
1054 hasher_end_blob(struct blob_descriptor *blob, int status, void *_ctx)
1055 {
1056         struct hasher_context *ctx = _ctx;
1057         u8 hash[SHA1_HASH_SIZE];
1058         int ret;
1059
1060         if (status) {
1061                 /* Error occurred; the full blob may not have been read.  */
1062                 ret = status;
1063                 goto out_next_cb;
1064         }
1065
1066         /* Retrieve the final SHA-1 message digest.  */
1067         sha1_final(hash, &ctx->sha_ctx);
1068
1069         if (blob->unhashed) {
1070                 if (ctx->flags & COMPUTE_MISSING_BLOB_HASHES) {
1071                         /* No SHA-1 message digest was previously present for the
1072                          * blob.  Set it to the one just calculated.  */
1073                         DEBUG("Set SHA-1 message digest for blob "
1074                               "(size=%"PRIu64").", blob->size);
1075                         copy_hash(blob->hash, hash);
1076                 }
1077         } else {
1078                 if (ctx->flags & VERIFY_BLOB_HASHES) {
1079                         /* The blob already had a SHA-1 message digest present.
1080                          * Verify that it is the same as the calculated value.
1081                          */
1082                         if (!hashes_equal(hash, blob->hash)) {
1083                                 if (wimlib_print_errors) {
1084                                         tchar expected_hashstr[SHA1_HASH_SIZE * 2 + 1];
1085                                         tchar actual_hashstr[SHA1_HASH_SIZE * 2 + 1];
1086                                         sprint_hash(blob->hash, expected_hashstr);
1087                                         sprint_hash(hash, actual_hashstr);
1088                                         ERROR("The blob is corrupted!\n"
1089                                               "        (Expected SHA-1=%"TS",\n"
1090                                               "              got SHA-1=%"TS")",
1091                                               expected_hashstr, actual_hashstr);
1092                                 }
1093                                 ret = WIMLIB_ERR_INVALID_RESOURCE_HASH;
1094                                 errno = EINVAL;
1095                                 goto out_next_cb;
1096                         }
1097                         DEBUG("SHA-1 message digest okay for "
1098                               "blob (size=%"PRIu64").", blob->size);
1099                 }
1100         }
1101         ret = 0;
1102 out_next_cb:
1103         if (ctx->cbs.end_blob == NULL)
1104                 return ret;
1105         else
1106                 return (*ctx->cbs.end_blob)(blob, ret, ctx->cbs.end_blob_ctx);
1107 }
1108
1109 static int
1110 read_full_blob_with_cbs(struct blob_descriptor *blob,
1111                         const struct read_blob_list_callbacks *cbs)
1112 {
1113         int ret;
1114
1115         ret = (*cbs->begin_blob)(blob, cbs->begin_blob_ctx);
1116         if (ret)
1117                 return ret;
1118
1119         ret = read_blob_prefix(blob, blob->size, cbs->consume_chunk,
1120                                cbs->consume_chunk_ctx);
1121
1122         return (*cbs->end_blob)(blob, ret, cbs->end_blob_ctx);
1123 }
1124
1125 /* Read the full data of the specified blob, passing the data into the specified
1126  * callbacks (all of which are optional) and either checking or computing the
1127  * SHA-1 message digest of the blob.  */
1128 static int
1129 read_full_blob_with_sha1(struct blob_descriptor *blob,
1130                          const struct read_blob_list_callbacks *cbs)
1131 {
1132         struct hasher_context hasher_ctx = {
1133                 .flags = VERIFY_BLOB_HASHES | COMPUTE_MISSING_BLOB_HASHES,
1134                 .cbs = *cbs,
1135         };
1136         struct read_blob_list_callbacks hasher_cbs = {
1137                 .begin_blob             = hasher_begin_blob,
1138                 .begin_blob_ctx         = &hasher_ctx,
1139                 .consume_chunk          = hasher_consume_chunk,
1140                 .consume_chunk_ctx      = &hasher_ctx,
1141                 .end_blob               = hasher_end_blob,
1142                 .end_blob_ctx           = &hasher_ctx,
1143         };
1144         return read_full_blob_with_cbs(blob, &hasher_cbs);
1145 }
1146
1147 static int
1148 read_blobs_in_solid_resource(struct blob_descriptor *first_blob,
1149                              struct blob_descriptor *last_blob,
1150                              u64 blob_count,
1151                              size_t list_head_offset,
1152                              const struct read_blob_list_callbacks *sink_cbs)
1153 {
1154         struct data_range *ranges;
1155         bool ranges_malloced;
1156         struct blob_descriptor *cur_blob;
1157         size_t i;
1158         int ret;
1159         u64 ranges_alloc_size;
1160
1161         DEBUG("Reading %"PRIu64" blobs combined in same WIM resource",
1162               blob_count);
1163
1164         /* Setup data ranges array (one range per blob to read); this way
1165          * read_compressed_wim_resource() does not need to be aware of blobs.
1166          */
1167
1168         ranges_alloc_size = blob_count * sizeof(ranges[0]);
1169
1170         if (unlikely((size_t)ranges_alloc_size != ranges_alloc_size)) {
1171                 ERROR("Too many blobs in one resource!");
1172                 return WIMLIB_ERR_NOMEM;
1173         }
1174         if (likely(ranges_alloc_size <= STACK_MAX)) {
1175                 ranges = alloca(ranges_alloc_size);
1176                 ranges_malloced = false;
1177         } else {
1178                 ranges = MALLOC(ranges_alloc_size);
1179                 if (ranges == NULL) {
1180                         ERROR("Too many blobs in one resource!");
1181                         return WIMLIB_ERR_NOMEM;
1182                 }
1183                 ranges_malloced = true;
1184         }
1185
1186         for (i = 0, cur_blob = first_blob;
1187              i < blob_count;
1188              i++, cur_blob = next_blob(cur_blob, list_head_offset))
1189         {
1190                 ranges[i].offset = cur_blob->offset_in_res;
1191                 ranges[i].size = cur_blob->size;
1192         }
1193
1194         struct blobifier_context blobifier_ctx = {
1195                 .cbs                    = *sink_cbs,
1196                 .cur_blob               = first_blob,
1197                 .next_blob              = next_blob(first_blob, list_head_offset),
1198                 .cur_blob_offset        = 0,
1199                 .final_blob             = last_blob,
1200                 .list_head_offset       = list_head_offset,
1201         };
1202
1203         ret = read_compressed_wim_resource(first_blob->rdesc,
1204                                            ranges,
1205                                            blob_count,
1206                                            blobifier_cb,
1207                                            &blobifier_ctx);
1208
1209         if (ranges_malloced)
1210                 FREE(ranges);
1211
1212         if (ret) {
1213                 if (blobifier_ctx.cur_blob_offset != 0) {
1214                         ret = (*blobifier_ctx.cbs.end_blob)
1215                                 (blobifier_ctx.cur_blob,
1216                                  ret,
1217                                  blobifier_ctx.cbs.end_blob_ctx);
1218                 }
1219         }
1220         return ret;
1221 }
1222
1223 /*
1224  * Read a list of blobs, each of which may be in any supported location (e.g.
1225  * in a WIM or in an external file).  This function optimizes the case where
1226  * multiple blobs are combined into a single solid compressed WIM resource by
1227  * reading the blobs in sequential order, only decompressing the solid resource
1228  * one time.
1229  *
1230  * @blob_list
1231  *      List of blobs to read.
1232  * @list_head_offset
1233  *      Offset of the `struct list_head' within each `struct blob_descriptor' that makes up
1234  *      the @blob_list.
1235  * @cbs
1236  *      Callback functions to accept the blob data.
1237  * @flags
1238  *      Bitwise OR of zero or more of the following flags:
1239  *
1240  *      VERIFY_BLOB_HASHES:
1241  *              For all blobs being read that have already had SHA-1 message
1242  *              digests computed, calculate the SHA-1 message digest of the read
1243  *              data and compare it with the previously computed value.  If they
1244  *              do not match, return WIMLIB_ERR_INVALID_RESOURCE_HASH.
1245  *
1246  *      COMPUTE_MISSING_BLOB_HASHES
1247  *              For all blobs being read that have not yet had their SHA-1
1248  *              message digests computed, calculate and save their SHA-1 message
1249  *              digests.
1250  *
1251  *      BLOB_LIST_ALREADY_SORTED
1252  *              @blob_list is already sorted in sequential order for reading.
1253  *
1254  * The callback functions are allowed to delete the current blob from the list
1255  * if necessary.
1256  *
1257  * Returns 0 on success; a nonzero error code on failure.  Failure can occur due
1258  * to an error reading the data or due to an error status being returned by any
1259  * of the callback functions.
1260  */
1261 int
1262 read_blob_list(struct list_head *blob_list,
1263                size_t list_head_offset,
1264                const struct read_blob_list_callbacks *cbs,
1265                int flags)
1266 {
1267         int ret;
1268         struct list_head *cur, *next;
1269         struct blob_descriptor *blob;
1270         struct hasher_context *hasher_ctx;
1271         struct read_blob_list_callbacks *sink_cbs;
1272
1273         if (!(flags & BLOB_LIST_ALREADY_SORTED)) {
1274                 ret = sort_blob_list_by_sequential_order(blob_list, list_head_offset);
1275                 if (ret)
1276                         return ret;
1277         }
1278
1279         if (flags & (VERIFY_BLOB_HASHES | COMPUTE_MISSING_BLOB_HASHES)) {
1280                 hasher_ctx = alloca(sizeof(*hasher_ctx));
1281                 *hasher_ctx = (struct hasher_context) {
1282                         .flags  = flags,
1283                         .cbs    = *cbs,
1284                 };
1285                 sink_cbs = alloca(sizeof(*sink_cbs));
1286                 *sink_cbs = (struct read_blob_list_callbacks) {
1287                         .begin_blob             = hasher_begin_blob,
1288                         .begin_blob_ctx         = hasher_ctx,
1289                         .consume_chunk          = hasher_consume_chunk,
1290                         .consume_chunk_ctx      = hasher_ctx,
1291                         .end_blob               = hasher_end_blob,
1292                         .end_blob_ctx           = hasher_ctx,
1293                 };
1294         } else {
1295                 sink_cbs = (struct read_blob_list_callbacks*)cbs;
1296         }
1297
1298         for (cur = blob_list->next, next = cur->next;
1299              cur != blob_list;
1300              cur = next, next = cur->next)
1301         {
1302                 blob = (struct blob_descriptor*)((u8*)cur - list_head_offset);
1303
1304                 if (blob->blob_location == BLOB_IN_WIM &&
1305                     blob->size != blob->rdesc->uncompressed_size)
1306                 {
1307                         struct blob_descriptor *blob_next, *blob_last;
1308                         struct list_head *next2;
1309                         u64 blob_count;
1310
1311                         /* The next blob is a proper sub-sequence of a WIM
1312                          * resource.  See if there are other blobs in the same
1313                          * resource that need to be read.  Since
1314                          * sort_blob_list_by_sequential_order() sorted the blobs
1315                          * by offset in the WIM, this can be determined by
1316                          * simply scanning forward in the list.  */
1317
1318                         blob_last = blob;
1319                         blob_count = 1;
1320                         for (next2 = next;
1321                              next2 != blob_list
1322                              && (blob_next = (struct blob_descriptor*)
1323                                                 ((u8*)next2 - list_head_offset),
1324                                  blob_next->blob_location == BLOB_IN_WIM
1325                                  && blob_next->rdesc == blob->rdesc);
1326                              next2 = next2->next)
1327                         {
1328                                 blob_last = blob_next;
1329                                 blob_count++;
1330                         }
1331                         if (blob_count > 1) {
1332                                 /* Reading multiple blobs combined into a single
1333                                  * WIM resource.  They are in the blob list,
1334                                  * sorted by offset; @blob specifies the first
1335                                  * blob in the resource that needs to be read
1336                                  * and @blob_last specifies the last blob in the
1337                                  * resource that needs to be read.  */
1338                                 next = next2;
1339                                 ret = read_blobs_in_solid_resource(blob, blob_last,
1340                                                                    blob_count,
1341                                                                    list_head_offset,
1342                                                                    sink_cbs);
1343                                 if (ret)
1344                                         return ret;
1345                                 continue;
1346                         }
1347                 }
1348
1349                 ret = read_full_blob_with_cbs(blob, sink_cbs);
1350                 if (ret && ret != BEGIN_BLOB_STATUS_SKIP_BLOB)
1351                         return ret;
1352         }
1353         return 0;
1354 }
1355
1356 /*
1357  * Extract the first @size bytes of the specified blob.
1358  *
1359  * If @size specifies the full uncompressed size of the blob, then the SHA-1
1360  * message digest of the uncompressed blob is checked while being extracted.
1361  *
1362  * The uncompressed data of the blob is passed in chunks of unspecified size to
1363  * the @extract_chunk function, passing it @extract_chunk_arg.
1364  */
1365 int
1366 extract_blob(struct blob_descriptor *blob, u64 size,
1367              consume_data_callback_t extract_chunk, void *extract_chunk_arg)
1368 {
1369         wimlib_assert(size <= blob->size);
1370         if (size == blob->size) {
1371                 /* Do SHA-1.  */
1372                 struct read_blob_list_callbacks cbs = {
1373                         .consume_chunk          = extract_chunk,
1374                         .consume_chunk_ctx      = extract_chunk_arg,
1375                 };
1376                 return read_full_blob_with_sha1(blob, &cbs);
1377         } else {
1378                 /* Don't do SHA-1.  */
1379                 return read_blob_prefix(blob, size, extract_chunk,
1380                                         extract_chunk_arg);
1381         }
1382 }
1383
1384 /* A consume_data_callback_t implementation that writes the chunk of data to a
1385  * file descriptor.  */
1386 static int
1387 extract_chunk_to_fd(const void *chunk, size_t size, void *_fd_p)
1388 {
1389         struct filedes *fd = _fd_p;
1390
1391         int ret = full_write(fd, chunk, size);
1392         if (ret) {
1393                 ERROR_WITH_ERRNO("Error writing to file descriptor");
1394                 return ret;
1395         }
1396         return 0;
1397 }
1398
1399 /* Extract the first @size bytes of the specified blob to the specified file
1400  * descriptor.  */
1401 int
1402 extract_blob_to_fd(struct blob_descriptor *blob, struct filedes *fd, u64 size)
1403 {
1404         return extract_blob(blob, size, extract_chunk_to_fd, fd);
1405 }
1406
1407 /* Extract the full uncompressed contents of the specified blob to the specified
1408  * file descriptor.  */
1409 int
1410 extract_full_blob_to_fd(struct blob_descriptor *blob, struct filedes *fd)
1411 {
1412         return extract_blob_to_fd(blob, fd, blob->size);
1413 }
1414
1415 /* Calculate the SHA-1 message digest of a blob and store it in @blob->hash.  */
1416 int
1417 sha1_blob(struct blob_descriptor *blob)
1418 {
1419         wimlib_assert(blob->unhashed);
1420         struct read_blob_list_callbacks cbs = {
1421         };
1422         return read_full_blob_with_sha1(blob, &cbs);
1423 }
1424
1425 /*
1426  * Convert a short WIM resource header to a stand-alone WIM resource descriptor.
1427  *
1428  * Note: for solid resources some fields still need to be overridden.
1429  */
1430 void
1431 wim_res_hdr_to_desc(const struct wim_reshdr *reshdr, WIMStruct *wim,
1432                     struct wim_resource_descriptor *rdesc)
1433 {
1434         rdesc->wim = wim;
1435         rdesc->offset_in_wim = reshdr->offset_in_wim;
1436         rdesc->size_in_wim = reshdr->size_in_wim;
1437         rdesc->uncompressed_size = reshdr->uncompressed_size;
1438         INIT_LIST_HEAD(&rdesc->blob_list);
1439         rdesc->flags = reshdr->flags;
1440         rdesc->is_pipable = wim_is_pipable(wim);
1441         if (rdesc->flags & WIM_RESHDR_FLAG_COMPRESSED) {
1442                 rdesc->compression_type = wim->compression_type;
1443                 rdesc->chunk_size = wim->chunk_size;
1444         } else {
1445                 rdesc->compression_type = WIMLIB_COMPRESSION_TYPE_NONE;
1446                 rdesc->chunk_size = 0;
1447         }
1448 }
1449
1450 /* Convert a stand-alone resource descriptor to a WIM resource header.  */
1451 void
1452 wim_res_desc_to_hdr(const struct wim_resource_descriptor *rdesc,
1453                     struct wim_reshdr *reshdr)
1454 {
1455         reshdr->offset_in_wim     = rdesc->offset_in_wim;
1456         reshdr->size_in_wim       = rdesc->size_in_wim;
1457         reshdr->flags             = rdesc->flags;
1458         reshdr->uncompressed_size = rdesc->uncompressed_size;
1459 }
1460
1461 /* Translates a WIM resource header from the on-disk format into an in-memory
1462  * format.  */
1463 void
1464 get_wim_reshdr(const struct wim_reshdr_disk *disk_reshdr,
1465                struct wim_reshdr *reshdr)
1466 {
1467         reshdr->offset_in_wim = le64_to_cpu(disk_reshdr->offset_in_wim);
1468         reshdr->size_in_wim = (((u64)disk_reshdr->size_in_wim[0] <<  0) |
1469                                ((u64)disk_reshdr->size_in_wim[1] <<  8) |
1470                                ((u64)disk_reshdr->size_in_wim[2] << 16) |
1471                                ((u64)disk_reshdr->size_in_wim[3] << 24) |
1472                                ((u64)disk_reshdr->size_in_wim[4] << 32) |
1473                                ((u64)disk_reshdr->size_in_wim[5] << 40) |
1474                                ((u64)disk_reshdr->size_in_wim[6] << 48));
1475         reshdr->uncompressed_size = le64_to_cpu(disk_reshdr->uncompressed_size);
1476         reshdr->flags = disk_reshdr->flags;
1477 }
1478
1479 /* Translates a WIM resource header from an in-memory format into the on-disk
1480  * format.  */
1481 void
1482 put_wim_reshdr(const struct wim_reshdr *reshdr,
1483                struct wim_reshdr_disk *disk_reshdr)
1484 {
1485         disk_reshdr->size_in_wim[0] = reshdr->size_in_wim  >>  0;
1486         disk_reshdr->size_in_wim[1] = reshdr->size_in_wim  >>  8;
1487         disk_reshdr->size_in_wim[2] = reshdr->size_in_wim  >> 16;
1488         disk_reshdr->size_in_wim[3] = reshdr->size_in_wim  >> 24;
1489         disk_reshdr->size_in_wim[4] = reshdr->size_in_wim  >> 32;
1490         disk_reshdr->size_in_wim[5] = reshdr->size_in_wim  >> 40;
1491         disk_reshdr->size_in_wim[6] = reshdr->size_in_wim  >> 48;
1492         disk_reshdr->flags = reshdr->flags;
1493         disk_reshdr->offset_in_wim = cpu_to_le64(reshdr->offset_in_wim);
1494         disk_reshdr->uncompressed_size = cpu_to_le64(reshdr->uncompressed_size);
1495 }