]> wimlib.net Git - wimlib/blobdiff - src/write.c
Fix creating large solid blocks
[wimlib] / src / write.c
index 0aacdf13e04fc57e5abd3574c7321a929201c99c..aa3585a75b9fa7fd82c59cbed03a26539e3d2dc7 100644 (file)
 #include "wimlib/error.h"
 #include "wimlib/file_io.h"
 #include "wimlib/header.h"
+#include "wimlib/inode.h"
 #include "wimlib/integrity.h"
 #include "wimlib/lookup_table.h"
 #include "wimlib/metadata.h"
+#include "wimlib/progress.h"
 #include "wimlib/resource.h"
 #ifdef __WIN32__
 #  include "wimlib/win32.h" /* win32_rename_replacement() */
@@ -168,12 +170,11 @@ can_raw_copy(const struct wim_lookup_table_entry *lte,
        if (rspec->is_pipable != !!(write_resource_flags & WRITE_RESOURCE_FLAG_PIPABLE))
                return false;
 
-
        if (rspec->flags & WIM_RESHDR_FLAG_COMPRESSED) {
                /* Normal compressed resource: Must use same compression type
                 * and chunk size.  */
-               return (rspec->wim->compression_type == out_ctype &&
-                       rspec->wim->chunk_size == out_chunk_size);
+               return (rspec->compression_type == out_ctype &&
+                       rspec->chunk_size == out_chunk_size);
        }
 
        if ((rspec->flags & WIM_RESHDR_FLAG_PACKED_STREAMS) &&
@@ -181,7 +182,7 @@ can_raw_copy(const struct wim_lookup_table_entry *lte,
        {
                /* Packed resource: Such resources may contain multiple streams,
                 * and in general only a subset of them need to be written.  As
-                * a heuristic, re-use the raw data if at least half the
+                * a heuristic, re-use the raw data if more than two-thirds the
                 * uncompressed size is being written.  */
 
                /* Note: packed resources contain a header that specifies the
@@ -196,8 +197,9 @@ can_raw_copy(const struct wim_lookup_table_entry *lte,
                        if (res_stream->will_be_in_output_wim)
                                write_size += res_stream->size;
 
-               return (write_size > rspec->uncompressed_size / 2);
+               return (write_size > rspec->uncompressed_size * 2 / 3);
        }
+
        return false;
 }
 
@@ -228,7 +230,7 @@ stream_set_out_reshdr_for_reuse(struct wim_lookup_table_entry *lte)
 
                lte->out_res_offset_in_wim = rspec->offset_in_wim;
                lte->out_res_size_in_wim = rspec->size_in_wim;
-               /*lte->out_res_uncompressed_size = rspec->uncompressed_size;*/
+               lte->out_res_uncompressed_size = rspec->uncompressed_size;
        } else {
                wimlib_assert(!(lte->flags & WIM_RESHDR_FLAG_PACKED_STREAMS));
 
@@ -269,48 +271,44 @@ write_pwm_stream_header(const struct wim_lookup_table_entry *lte,
 }
 
 struct write_streams_progress_data {
-       wimlib_progress_func_t progress_func;
+       wimlib_progress_func_t progfunc;
+       void *progctx;
        union wimlib_progress_info progress;
        uint64_t next_progress;
-       WIMStruct *prev_wim_part;
 };
 
-static void
+static int
 do_write_streams_progress(struct write_streams_progress_data *progress_data,
-                         u64 size,
-                         bool discarded,
-                         struct wim_lookup_table_entry *cur_stream)
+                         struct wim_lookup_table_entry *cur_stream,
+                         u64 complete_size,
+                         u32 complete_count,
+                         bool discarded)
 {
        union wimlib_progress_info *progress = &progress_data->progress;
-       bool new_wim_part;
+       int ret;
 
        if (discarded) {
-               progress->write_streams.total_bytes -= size;
+               progress->write_streams.total_bytes -= complete_size;
+               progress->write_streams.total_streams -= complete_count;
                if (progress_data->next_progress != ~(uint64_t)0 &&
                    progress_data->next_progress > progress->write_streams.total_bytes)
                {
                        progress_data->next_progress = progress->write_streams.total_bytes;
                }
        } else {
-               progress->write_streams.completed_bytes += size;
+               progress->write_streams.completed_bytes += complete_size;
+               progress->write_streams.completed_streams += complete_count;
        }
-       new_wim_part = false;
-       if (cur_stream->resource_location == RESOURCE_IN_WIM &&
-           cur_stream->rspec->wim != progress_data->prev_wim_part)
-       {
-               if (progress_data->prev_wim_part) {
-                       new_wim_part = true;
-                       progress->write_streams.completed_parts++;
-               }
-               progress_data->prev_wim_part = cur_stream->rspec->wim;
-       }
-       progress->write_streams.completed_streams++;
-       if (progress_data->progress_func
-           && (progress->write_streams.completed_bytes >= progress_data->next_progress
-               || new_wim_part))
+
+       if (progress->write_streams.completed_bytes >= progress_data->next_progress)
        {
-               progress_data->progress_func(WIMLIB_PROGRESS_MSG_WRITE_STREAMS,
-                                            progress);
+               ret = call_progress(progress_data->progfunc,
+                                   WIMLIB_PROGRESS_MSG_WRITE_STREAMS,
+                                   progress,
+                                   progress_data->progctx);
+               if (ret)
+                       return ret;
+
                if (progress_data->next_progress == progress->write_streams.total_bytes) {
                        progress_data->next_progress = ~(uint64_t)0;
                } else {
@@ -320,6 +318,7 @@ do_write_streams_progress(struct write_streams_progress_data *progress_data,
                                        progress->write_streams.total_bytes / 100);
                }
        }
+       return 0;
 }
 
 struct write_streams_ctx {
@@ -363,20 +362,24 @@ struct write_streams_ctx {
        /* List of streams that currently have chunks being compressed.  */
        struct list_head pending_streams;
 
+       /* List of streams in the resource pack.  Streams are moved here after
+        * @pending_streams only when writing a packed resource.  */
+       struct list_head pack_streams;
+
        /* Set to true if the stream currently being read was a duplicate, and
         * therefore the corresponding stream entry needs to be freed once the
         * read finishes.  (In this case we add the duplicate entry to
         * pending_streams rather than the entry being read.)  */
        bool stream_was_duplicate;
 
-       /* Current uncompressed offset in the resource being read.  */
-       u64 cur_read_res_offset;
+       /* Current uncompressed offset in the stream being read.  */
+       u64 cur_read_stream_offset;
 
-       /* Uncompressed size of the resource currently being read.  */
-       u64 cur_read_res_size;
+       /* Uncompressed size of the stream currently being read.  */
+       u64 cur_read_stream_size;
 
-       /* Current uncompressed offset in the resource being written.  */
-       u64 cur_write_res_offset;
+       /* Current uncompressed offset in the stream being written.  */
+       u64 cur_write_stream_offset;
 
        /* Uncompressed size of resource currently being written.  */
        u64 cur_write_res_size;
@@ -396,16 +399,6 @@ struct write_streams_ctx {
        u64 chunks_start_offset;
 };
 
-static u64
-get_chunk_entry_size(u64 res_size, int write_resource_flags)
-{
-       if (res_size <= UINT32_MAX ||
-           (write_resource_flags & WIM_RESHDR_FLAG_PACKED_STREAMS))
-               return 4;
-       else
-               return 8;
-}
-
 /* Reserve space for the chunk table and prepare to accumulate the chunk table
  * in memory.  */
 static int
@@ -457,7 +450,8 @@ begin_chunk_table(struct write_streams_ctx *ctx, u64 res_expected_size)
                 * are unknown.  */
                reserve_size = expected_num_chunk_entries *
                               get_chunk_entry_size(res_expected_size,
-                                                   ctx->write_resource_flags);
+                                                   0 != (ctx->write_resource_flags &
+                                                         WRITE_RESOURCE_FLAG_PACK_STREAMS));
                if (ctx->write_resource_flags & WRITE_RESOURCE_FLAG_PACK_STREAMS)
                        reserve_size += sizeof(struct alt_chunk_table_header_disk);
                memset(ctx->chunk_csizes, 0, reserve_size);
@@ -484,7 +478,7 @@ begin_write_resource(struct write_streams_ctx *ctx, u64 res_expected_size)
        /* Output file descriptor is now positioned at the offset at which to
         * write the first chunk of the resource.  */
        ctx->chunks_start_offset = ctx->out_fd->offset;
-       ctx->cur_write_res_offset = 0;
+       ctx->cur_write_stream_offset = 0;
        ctx->cur_write_res_size = res_expected_size;
        return 0;
 }
@@ -504,7 +498,8 @@ end_chunk_table(struct write_streams_ctx *ctx, u64 res_actual_size,
                actual_num_chunk_entries--;
 
        chunk_entry_size = get_chunk_entry_size(res_actual_size,
-                                               ctx->write_resource_flags);
+                                               0 != (ctx->write_resource_flags &
+                                                     WRITE_RESOURCE_FLAG_PACK_STREAMS));
 
        typedef le64 __attribute__((may_alias)) aliased_le64_t;
        typedef le32 __attribute__((may_alias)) aliased_le32_t;
@@ -563,8 +558,8 @@ end_chunk_table(struct write_streams_ctx *ctx, u64 res_actual_size,
                        hdr.chunk_size = cpu_to_le32(ctx->out_chunk_size);
                        hdr.compression_format = cpu_to_le32(ctx->out_ctype);
 
-                       BUILD_BUG_ON(WIMLIB_COMPRESSION_TYPE_LZX != 1);
-                       BUILD_BUG_ON(WIMLIB_COMPRESSION_TYPE_XPRESS != 2);
+                       BUILD_BUG_ON(WIMLIB_COMPRESSION_TYPE_XPRESS != 1);
+                       BUILD_BUG_ON(WIMLIB_COMPRESSION_TYPE_LZX != 2);
                        BUILD_BUG_ON(WIMLIB_COMPRESSION_TYPE_LZMS != 3);
 
                        ret = full_pwrite(ctx->out_fd, &hdr, sizeof(hdr),
@@ -602,7 +597,8 @@ end_write_resource(struct write_streams_ctx *ctx, struct wim_reshdr *out_reshdr)
        u64 res_uncompressed_size;
        u64 res_offset_in_wim;
 
-       wimlib_assert(ctx->cur_write_res_size == ctx->cur_write_res_offset);
+       wimlib_assert(ctx->cur_write_stream_offset == ctx->cur_write_res_size ||
+                     (ctx->write_resource_flags & WRITE_RESOURCE_FLAG_PACK_STREAMS));
        res_uncompressed_size = ctx->cur_write_res_size;
 
        if (ctx->compressor) {
@@ -625,15 +621,15 @@ end_write_resource(struct write_streams_ctx *ctx, struct wim_reshdr *out_reshdr)
 /* Begin processing a stream for writing.  */
 static int
 write_stream_begin_read(struct wim_lookup_table_entry *lte,
-                       bool is_partial_res, void *_ctx)
+                       u32 flags, void *_ctx)
 {
        struct write_streams_ctx *ctx = _ctx;
        int ret;
 
        wimlib_assert(lte->size > 0);
 
-       ctx->cur_read_res_offset = 0;
-       ctx->cur_read_res_size = lte->size;
+       ctx->cur_read_stream_offset = 0;
+       ctx->cur_read_stream_size = lte->size;
 
        /* As an optimization, we allow some streams to be "unhashed", meaning
         * their SHA1 message digests are unknown.  This is the case with
@@ -649,7 +645,7 @@ write_stream_begin_read(struct wim_lookup_table_entry *lte,
        ctx->stream_was_duplicate = false;
        if (ctx->lookup_table != NULL && lte->unhashed && !lte->unique_size) {
 
-               wimlib_assert(!is_partial_res);
+               wimlib_assert(!(flags & BEGIN_STREAM_FLAG_PARTIAL_RESOURCE));
 
                struct wim_lookup_table_entry *lte_new;
 
@@ -670,8 +666,9 @@ write_stream_begin_read(struct wim_lookup_table_entry *lte,
                                 * duplicate stream in the former case.  */
                                DEBUG("Discarding duplicate stream of "
                                      "length %"PRIu64, lte->size);
-                               do_write_streams_progress(&ctx->progress_data,
-                                                         lte->size, true, lte);
+                               ret = do_write_streams_progress(&ctx->progress_data,
+                                                               lte, lte->size,
+                                                               1, true);
                                list_del(&lte->write_streams_list);
                                list_del(&lte->lookup_table_list);
                                if (lte_new->will_be_in_output_wim)
@@ -679,6 +676,8 @@ write_stream_begin_read(struct wim_lookup_table_entry *lte,
                                if (ctx->write_resource_flags & WRITE_RESOURCE_FLAG_PACK_STREAMS)
                                        ctx->cur_write_res_size -= lte->size;
                                free_lookup_table_entry(lte);
+                               if (ret)
+                                       return ret;
                                return BEGIN_STREAM_STATUS_SKIP_STREAM;
                        } else {
                                /* The duplicate stream can validly be written,
@@ -704,27 +703,48 @@ write_stream_begin_read(struct wim_lookup_table_entry *lte,
        return 0;
 }
 
+/* Rewrite a stream that was just written compressed as uncompressed instead.
+ * This function is optional, but if a stream did not compress to less than its
+ * original size, it might as well be written uncompressed.  */
 static int
 write_stream_uncompressed(struct wim_lookup_table_entry *lte,
                          struct filedes *out_fd)
 {
        int ret;
+       u64 begin_offset = lte->out_reshdr.offset_in_wim;
+       u64 end_offset = out_fd->offset;
 
-       if (-1 == lseek(out_fd->fd, lte->out_reshdr.offset_in_wim, SEEK_SET) ||
-           0 != ftruncate(out_fd->fd, lte->out_reshdr.offset_in_wim))
+       if (filedes_seek(out_fd, begin_offset) == -1)
+               return 0;
+
+       ret = extract_full_stream_to_fd(lte, out_fd);
+       if (ret) {
+               /* Error reading the uncompressed data.  */
+               if (out_fd->offset == begin_offset &&
+                   filedes_seek(out_fd, end_offset) != -1)
+               {
+                       /* Nothing was actually written yet, and we successfully
+                        * seeked to the end of the compressed resource, so
+                        * don't issue a hard error; just keep the compressed
+                        * resource instead.  */
+                       WARNING("Recovered compressed stream of "
+                               "size %"PRIu64", continuing on.",
+                               lte->size);
+                       return 0;
+               }
+               return ret;
+       }
+
+       wimlib_assert(out_fd->offset - begin_offset == lte->size);
+
+       if (out_fd->offset < end_offset &&
+           0 != ftruncate(out_fd->fd, out_fd->offset))
        {
                ERROR_WITH_ERRNO("Can't truncate output file to "
-                                "offset %"PRIu64, lte->out_reshdr.offset_in_wim);
+                                "offset %"PRIu64, out_fd->offset);
                return WIMLIB_ERR_WRITE;
        }
 
-       out_fd->offset = lte->out_reshdr.offset_in_wim;
-
-       ret = extract_stream_to_fd(lte, out_fd, lte->size);
-       if (ret)
-               return ret;
-
-       wimlib_assert(out_fd->offset - lte->out_reshdr.offset_in_wim == lte->size);
        lte->out_reshdr.size_in_wim = lte->size;
        lte->out_reshdr.flags &= ~(WIM_RESHDR_FLAG_COMPRESSED |
                                   WIM_RESHDR_FLAG_PACKED_STREAMS);
@@ -740,11 +760,13 @@ write_chunk(struct write_streams_ctx *ctx, const void *cchunk,
        int ret;
 
        struct wim_lookup_table_entry *lte;
+       u32 completed_stream_count;
+       u32 completed_size;
 
        lte = list_entry(ctx->pending_streams.next,
                         struct wim_lookup_table_entry, write_streams_list);
 
-       if (ctx->cur_write_res_offset == 0 &&
+       if (ctx->cur_write_stream_offset == 0 &&
            !(ctx->write_resource_flags & WRITE_RESOURCE_FLAG_PACK_STREAMS))
        {
                /* Starting to write a new stream in non-packed mode.  */
@@ -791,57 +813,82 @@ write_chunk(struct write_streams_ctx *ctx, const void *cchunk,
        if (ret)
                goto error;
 
-       ctx->cur_write_res_offset += usize;
+       ctx->cur_write_stream_offset += usize;
 
-       do_write_streams_progress(&ctx->progress_data,
-                                 usize, false, lte);
+       completed_size = usize;
+       completed_stream_count = 0;
+       if (ctx->write_resource_flags & WRITE_RESOURCE_FLAG_PACK_STREAMS) {
+               /* Wrote chunk in packed mode.  It may have finished multiple
+                * streams.  */
+               while (ctx->cur_write_stream_offset > lte->size) {
+                       struct wim_lookup_table_entry *next;
 
-       if (ctx->cur_write_res_offset == ctx->cur_write_res_size &&
-           !(ctx->write_resource_flags & WRITE_RESOURCE_FLAG_PACK_STREAMS))
-       {
-               struct wim_lookup_table_entry *lte;
+                       ctx->cur_write_stream_offset -= lte->size;
 
-               lte = list_entry(ctx->pending_streams.next,
-                                struct wim_lookup_table_entry, write_streams_list);
-               wimlib_assert(ctx->cur_write_res_offset == lte->size);
+                       wimlib_assert(!list_is_singular(&ctx->pending_streams) &&
+                                     !list_empty(&ctx->pending_streams));
+                       next = list_entry(lte->write_streams_list.next,
+                                         struct wim_lookup_table_entry,
+                                         write_streams_list);
+                       list_move_tail(&lte->write_streams_list,
+                                      &ctx->pack_streams);
+                       lte = next;
+                       completed_stream_count++;
+               }
+               if (ctx->cur_write_stream_offset == lte->size) {
+                       ctx->cur_write_stream_offset = 0;
+                       list_move_tail(&lte->write_streams_list,
+                                      &ctx->pack_streams);
+                       completed_stream_count++;
+               }
+       } else {
+               /* Wrote chunk in non-packed mode.  It may have finished a
+                * stream.  */
+               if (ctx->cur_write_stream_offset == lte->size) {
 
-               /* Finished writing a stream in non-packed mode.  */
+                       completed_stream_count++;
 
-               ret = end_write_resource(ctx, &lte->out_reshdr);
-               if (ret)
-                       return ret;
+                       list_del(&lte->write_streams_list);
 
-               lte->out_reshdr.flags = filter_resource_flags(lte->flags);
-               if (ctx->compressor != NULL)
-                       lte->out_reshdr.flags |= WIM_RESHDR_FLAG_COMPRESSED;
+                       wimlib_assert(ctx->cur_write_stream_offset ==
+                                     ctx->cur_write_res_size);
 
-               if (ctx->compressor != NULL &&
-                   lte->out_reshdr.size_in_wim >= lte->out_reshdr.uncompressed_size &&
-                   !(ctx->write_resource_flags & WRITE_RESOURCE_FLAG_PIPABLE) &&
-                   !(lte->flags & WIM_RESHDR_FLAG_PACKED_STREAMS))
-               {
-                       /* Stream did not compress to less than its original
-                        * size.  If we're not writing a pipable WIM (which
-                        * could mean the output file descriptor is
-                        * non-seekable), and the stream isn't located in a
-                        * resource pack (which would make reading it again
-                        * costly), truncate the file to the start of the stream
-                        * and write it uncompressed instead.  */
-                       DEBUG("Stream of size %"PRIu64" did not compress to "
-                             "less than original size; writing uncompressed.",
-                             lte->size);
-                       ret = write_stream_uncompressed(lte, ctx->out_fd);
+                       ret = end_write_resource(ctx, &lte->out_reshdr);
                        if (ret)
                                return ret;
-               }
 
-               wimlib_assert(lte->out_reshdr.uncompressed_size == lte->size);
+                       lte->out_reshdr.flags = filter_resource_flags(lte->flags);
+                       if (ctx->compressor != NULL)
+                               lte->out_reshdr.flags |= WIM_RESHDR_FLAG_COMPRESSED;
 
-               list_del(&lte->write_streams_list);
-               ctx->cur_write_res_offset = 0;
+                       if (ctx->compressor != NULL &&
+                           lte->out_reshdr.size_in_wim >= lte->out_reshdr.uncompressed_size &&
+                           !(ctx->write_resource_flags & WRITE_RESOURCE_FLAG_PIPABLE) &&
+                           !(lte->flags & WIM_RESHDR_FLAG_PACKED_STREAMS))
+                       {
+                               /* Stream did not compress to less than its original
+                                * size.  If we're not writing a pipable WIM (which
+                                * could mean the output file descriptor is
+                                * non-seekable), and the stream isn't located in a
+                                * resource pack (which would make reading it again
+                                * costly), truncate the file to the start of the stream
+                                * and write it uncompressed instead.  */
+                               DEBUG("Stream of size %"PRIu64" did not compress to "
+                                     "less than original size; writing uncompressed.",
+                                     lte->size);
+                               ret = write_stream_uncompressed(lte, ctx->out_fd);
+                               if (ret)
+                                       return ret;
+                       }
+                       wimlib_assert(lte->out_reshdr.uncompressed_size == lte->size);
+
+                       ctx->cur_write_stream_offset = 0;
+               }
        }
 
-       return 0;
+       return do_write_streams_progress(&ctx->progress_data, lte,
+                                        completed_size, completed_stream_count,
+                                        false);
 
 error:
        ERROR_WITH_ERRNO("Write error");
@@ -857,8 +904,8 @@ submit_chunk_for_compression(struct write_streams_ctx *ctx,
         * compressed chunk.  */
        while (!ctx->compressor->submit_chunk(ctx->compressor, chunk, size)) {
                const void *cchunk;
-               unsigned csize;
-               unsigned usize;
+               u32 csize;
+               u32 usize;
                bool bret;
                int ret;
 
@@ -889,7 +936,7 @@ write_stream_process_chunk(const void *chunk, size_t size, void *_ctx)
                 ret = write_chunk(ctx, chunk, size, size);
                 if (ret)
                         return ret;
-                ctx->cur_read_res_offset += size;
+                ctx->cur_read_stream_offset += size;
                 return 0;
        }
 
@@ -907,8 +954,8 @@ write_stream_process_chunk(const void *chunk, size_t size, void *_ctx)
                } else {
                        u64 res_bytes_remaining;
 
-                       res_bytes_remaining = ctx->cur_read_res_size -
-                                             ctx->cur_read_res_offset;
+                       res_bytes_remaining = ctx->cur_read_stream_size -
+                                             ctx->cur_read_stream_offset;
                        needed_chunk_size = min(ctx->out_chunk_size,
                                                ctx->chunk_buf_filled +
                                                        res_bytes_remaining);
@@ -920,7 +967,7 @@ write_stream_process_chunk(const void *chunk, size_t size, void *_ctx)
                        /* No intermediate buffering needed.  */
                        resized_chunk = chunkptr;
                        chunkptr += needed_chunk_size;
-                       ctx->cur_read_res_offset += needed_chunk_size;
+                       ctx->cur_read_stream_offset += needed_chunk_size;
                } else {
                        /* Intermediate buffering needed.  */
                        size_t bytes_consumed;
@@ -931,10 +978,8 @@ write_stream_process_chunk(const void *chunk, size_t size, void *_ctx)
                        memcpy(&ctx->chunk_buf[ctx->chunk_buf_filled],
                               chunkptr, bytes_consumed);
 
-                       resized_chunk = ctx->chunk_buf;
-
                        chunkptr += bytes_consumed;
-                       ctx->cur_read_res_offset += bytes_consumed;
+                       ctx->cur_read_stream_offset += bytes_consumed;
                        ctx->chunk_buf_filled += bytes_consumed;
                        if (ctx->chunk_buf_filled == needed_chunk_size) {
                                resized_chunk = ctx->chunk_buf;
@@ -962,7 +1007,7 @@ write_stream_end_read(struct wim_lookup_table_entry *lte, int status, void *_ctx
 {
        struct write_streams_ctx *ctx = _ctx;
        if (status == 0)
-               wimlib_assert(ctx->cur_read_res_offset == ctx->cur_read_res_size);
+               wimlib_assert(ctx->cur_read_stream_offset == ctx->cur_read_stream_size);
        if (ctx->stream_was_duplicate) {
                free_lookup_table_entry(lte);
        } else if (lte->unhashed && ctx->lookup_table != NULL) {
@@ -1005,24 +1050,23 @@ compute_stream_list_stats(struct list_head *stream_list,
        ctx->progress_data.progress.write_streams.total_parts       = total_parts;
        ctx->progress_data.progress.write_streams.completed_parts   = 0;
        ctx->progress_data.next_progress = 0;
-       ctx->progress_data.prev_wim_part = NULL;
 }
 
 /* Find streams in @stream_list that can be copied to the output WIM in raw form
- * rather than compressed.  Delete these streams from @stream_list, and move one
- * per resource to @raw_copy_resources.  Return the total uncompressed size of
- * the streams that need to be compressed.  */
+ * rather than compressed.  Delete these streams from @stream_list and move them
+ * to @raw_copy_streams.  Return the total uncompressed size of the streams that
+ * need to be compressed.  */
 static u64
-find_raw_copy_resources(struct list_head *stream_list,
-                       int write_resource_flags,
-                       int out_ctype,
-                       u32 out_chunk_size,
-                       struct list_head *raw_copy_resources)
+find_raw_copy_streams(struct list_head *stream_list,
+                     int write_resource_flags,
+                     int out_ctype,
+                     u32 out_chunk_size,
+                     struct list_head *raw_copy_streams)
 {
        struct wim_lookup_table_entry *lte, *tmp;
        u64 num_bytes_to_compress = 0;
 
-       INIT_LIST_HEAD(raw_copy_resources);
+       INIT_LIST_HEAD(raw_copy_streams);
 
        /* Initialize temporary raw_copy_ok flag.  */
        list_for_each_entry(lte, stream_list, write_streams_list)
@@ -1033,13 +1077,14 @@ find_raw_copy_resources(struct list_head *stream_list,
                if (lte->resource_location == RESOURCE_IN_WIM &&
                    lte->rspec->raw_copy_ok)
                {
-                       list_del(&lte->write_streams_list);
+                       list_move_tail(&lte->write_streams_list,
+                                      raw_copy_streams);
                } else if (can_raw_copy(lte, write_resource_flags,
                                 out_ctype, out_chunk_size))
                {
                        lte->rspec->raw_copy_ok = 1;
                        list_move_tail(&lte->write_streams_list,
-                                      raw_copy_resources);
+                                      raw_copy_streams);
                } else {
                        num_bytes_to_compress += lte->size;
                }
@@ -1110,21 +1155,32 @@ write_raw_copy_resource(struct wim_resource_spec *in_rspec,
        return 0;
 }
 
-/* Copy a list of raw compressed resources located other WIM file(s) to the WIM
- * file being written.  */
+/* Copy a list of raw compressed resources located in other WIM file(s) to the
+ * WIM file being written.  */
 static int
-write_raw_copy_resources(struct list_head *raw_copy_resources,
+write_raw_copy_resources(struct list_head *raw_copy_streams,
                         struct filedes *out_fd,
                         struct write_streams_progress_data *progress_data)
 {
        struct wim_lookup_table_entry *lte;
        int ret;
 
-       list_for_each_entry(lte, raw_copy_resources, write_streams_list) {
-               ret = write_raw_copy_resource(lte->rspec, out_fd);
+       list_for_each_entry(lte, raw_copy_streams, write_streams_list)
+               lte->rspec->raw_copy_ok = 1;
+
+       list_for_each_entry(lte, raw_copy_streams, write_streams_list) {
+               if (lte->rspec->raw_copy_ok) {
+                       /* Write each packed resource only one time, no matter
+                        * how many streams reference it.  */
+                       ret = write_raw_copy_resource(lte->rspec, out_fd);
+                       if (ret)
+                               return ret;
+                       lte->rspec->raw_copy_ok = 0;
+               }
+               ret = do_write_streams_progress(progress_data, lte, lte->size,
+                                               1, false);
                if (ret)
                        return ret;
-               do_write_streams_progress(progress_data, lte->size, false, lte);
        }
        return 0;
 }
@@ -1134,8 +1190,8 @@ static int
 finish_remaining_chunks(struct write_streams_ctx *ctx)
 {
        const void *cdata;
-       unsigned csize;
-       unsigned usize;
+       u32 csize;
+       u32 usize;
        int ret;
 
        if (ctx->compressor == NULL)
@@ -1177,7 +1233,7 @@ remove_zero_length_streams(struct list_head *stream_list)
  * Write a list of streams to the output WIM file.
  *
  * @stream_list
- *     The list of streams to write, specifies a list of `struct
+ *     The list of streams to write, specified by a list of `struct
  *     wim_lookup_table_entry's linked by the 'write_streams_list' member.
  *
  * @out_fd
@@ -1188,20 +1244,20 @@ remove_zero_length_streams(struct list_head *stream_list)
  *
  *     WRITE_RESOURCE_FLAG_RECOMPRESS:
  *             Force compression of all resources, even if they could otherwise
- *             be re-used by caping the raw data, due to being located in a WIM
+ *             be re-used by copying the raw data, due to being located in a WIM
  *             file with compatible compression parameters.
  *
  *     WRITE_RESOURCE_FLAG_PIPABLE:
  *             Write the resources in the wimlib-specific pipable format, and
  *             furthermore do so in such a way that no seeking backwards in
- *             @out_fd will be performed (so it may be a pipe, contrary to the
- *             default behavior).
+ *             @out_fd will be performed (so it may be a pipe).
  *
  *     WRITE_RESOURCE_FLAG_PACK_STREAMS:
  *             Pack all the streams into a single resource rather than writing
- *             them in separate resources.  This format is only valid if the
- *             WIM version number is WIM_VERSION_PACKED_STREAMS.  This flag
- *             currently may not be combined with WRITE_RESOURCE_FLAG_PIPABLE.
+ *             them in separate resources.  This flag is only valid if the WIM
+ *             version number has been, or will be, set to
+ *             WIM_VERSION_PACKED_STREAMS.  This flag may not be combined with
+ *             WRITE_RESOURCE_FLAG_PIPABLE.
  *
  * @out_ctype
  *     Compression format to use to write the output streams, specified as one
@@ -1232,27 +1288,21 @@ remove_zero_length_streams(struct list_head *stream_list)
  *     no streams are hard-filtered or no streams are unhashed, this parameter
  *     can be NULL.
  *
- * @progress_func
- *     If non-NULL, a progress function that will be called periodically with
- *     WIMLIB_PROGRESS_MSG_WRITE_STREAMS messages.  Note that on-the-fly
- *     deduplication of unhashed streams may result in the total bytes provided
- *     in the progress data to decrease from one message to the next.
- *
  * This function will write the streams in @stream_list to resources in
  * consecutive positions in the output WIM file, or to a single packed resource
  * if WRITE_RESOURCE_FLAG_PACK_STREAMS was specified in @write_resource_flags.
  * In both cases, the @out_reshdr of the `struct wim_lookup_table_entry' for
  * each stream written will be updated to specify its location, size, and flags
  * in the output WIM.  In the packed resource case,
- * WIM_RESHDR_FLAG_PACKED_STREAMS shall be set in the @flags field of the
- * @out_reshdr, and @out_res_offset_in_wim and @out_res_size_in_wim will also
- * be set to the offset and size, respectively, in the output WIM of the full
- * packed resource containing the corresponding stream.
+ * WIM_RESHDR_FLAG_PACKED_STREAMS will be set in the @flags field of each
+ * @out_reshdr, and furthermore @out_res_offset_in_wim and @out_res_size_in_wim
+ * of each @out_reshdr will be set to the offset and size, respectively, in the
+ * output WIM of the packed resource containing the corresponding stream.
  *
  * Each of the streams to write may be in any location supported by the
  * resource-handling code (specifically, read_stream_list()), such as the
  * contents of external file that has been logically added to the output WIM, or
- * a stream in another WIM file that has been imported, or even stream in the
+ * a stream in another WIM file that has been imported, or even stream in the
  * "same" WIM file of which a modified copy is being written.  In the case that
  * a stream is already in a WIM file and uses compatible compression parameters,
  * by default this function will re-use the raw data instead of decompressing
@@ -1260,32 +1310,31 @@ remove_zero_length_streams(struct list_head *stream_list)
  * specified in @write_resource_flags, this is not done.
  *
  * As a further requirement, this function requires that the
- * @will_be_in_output_wim member be set on all streams in @stream_list as well
- * as any other streams not in @stream_list that will be in the output WIM file,
- * but not on any other streams in the output WIM's lookup table or sharing a
- * packed resource with a stream in @stream_list.  Still furthermore, if
- * on-the-fly deduplication of streams is possible, then all streams in
+ * @will_be_in_output_wim member be set to 1 on all streams in @stream_list as
+ * well as any other streams not in @stream_list that will be in the output WIM
+ * file, but set to 0 on any other streams in the output WIM's lookup table or
+ * sharing a packed resource with a stream in @stream_list.  Still furthermore,
+ * if on-the-fly deduplication of streams is possible, then all streams in
  * @stream_list must also be linked by @lookup_table_list along with any other
  * streams that have @will_be_in_output_wim set.
  *
  * This function handles on-the-fly deduplication of streams for which SHA1
- * message digests have not yet been calculated and it is therefore known
- * whether such streams are already in @stream_list or in the WIM's lookup table
- * at all.  If @lookup_table is non-NULL, then each stream in @stream_list that
- * has @unhashed set but not @unique_size set is checksummed immediately before
- * it would otherwise be read for writing in order to determine if it is
- * identical to another stream already being written or one that would be
- * filtered out of the output WIM using stream_filtered() with the context
- * @filter_ctx.  Each such duplicate stream will be removed from @stream_list, its
- * reference count transfered to the pre-existing duplicate stream, its memory
- * freed, and will not be written.  Alternatively, if a stream in @stream_list
- * is a duplicate with any stream in @lookup_table that has not been marked for
- * writing or would not be hard-filtered, it is freed and the pre-existing
- * duplicate is written instead, taking ownership of the reference count and
- * slot in the @lookup_table_list.
- *
- * Returns 0 if all streams were written successfully (or did not need to be
- * written); otherwise a non-zero error code.
+ * message digests have not yet been calculated.  Such streams may or may not
+ * need to be written.  If @lookup_table is non-NULL, then each stream in
+ * @stream_list that has @unhashed set but not @unique_size set is checksummed
+ * immediately before it would otherwise be read for writing in order to
+ * determine if it is identical to another stream already being written or one
+ * that would be filtered out of the output WIM using stream_filtered() with the
+ * context @filter_ctx.  Each such duplicate stream will be removed from
+ * @stream_list, its reference count transfered to the pre-existing duplicate
+ * stream, its memory freed, and will not be written.  Alternatively, if a
+ * stream in @stream_list is a duplicate with any stream in @lookup_table that
+ * has not been marked for writing or would not be hard-filtered, it is freed
+ * and the pre-existing duplicate is written instead, taking ownership of the
+ * reference count and slot in the @lookup_table_list.
+ *
+ * Returns 0 if every stream was either written successfully or did not need to
+ * be written; otherwise returns a non-zero error code.
  */
 static int
 write_stream_list(struct list_head *stream_list,
@@ -1296,11 +1345,12 @@ write_stream_list(struct list_head *stream_list,
                  unsigned num_threads,
                  struct wim_lookup_table *lookup_table,
                  struct filter_context *filter_ctx,
-                 wimlib_progress_func_t progress_func)
+                 wimlib_progress_func_t progfunc,
+                 void *progctx)
 {
        int ret;
        struct write_streams_ctx ctx;
-       struct list_head raw_copy_resources;
+       struct list_head raw_copy_streams;
 
        wimlib_assert((write_resource_flags &
                       (WRITE_RESOURCE_FLAG_PACK_STREAMS |
@@ -1332,7 +1382,8 @@ write_stream_list(struct list_head *stream_list,
        ctx.write_resource_flags = write_resource_flags;
        ctx.filter_ctx = filter_ctx;
 
-       if (out_chunk_size != 0) {
+       if (out_ctype != WIMLIB_COMPRESSION_TYPE_NONE) {
+               wimlib_assert(out_chunk_size != 0);
                if (out_chunk_size <= STACK_MAX) {
                        ctx.chunk_buf = alloca(out_chunk_size);
                } else {
@@ -1347,13 +1398,14 @@ write_stream_list(struct list_head *stream_list,
 
        compute_stream_list_stats(stream_list, &ctx);
 
-       ctx.progress_data.progress_func = progress_func;
+       ctx.progress_data.progfunc = progfunc;
+       ctx.progress_data.progctx = progctx;
 
-       ctx.num_bytes_to_compress = find_raw_copy_resources(stream_list,
-                                                           write_resource_flags,
-                                                           out_ctype,
-                                                           out_chunk_size,
-                                                           &raw_copy_resources);
+       ctx.num_bytes_to_compress = find_raw_copy_streams(stream_list,
+                                                         write_resource_flags,
+                                                         out_ctype,
+                                                         out_chunk_size,
+                                                         &raw_copy_streams);
 
        DEBUG("Writing stream list "
              "(offset = %"PRIu64", write_resource_flags=0x%08x, "
@@ -1373,17 +1425,11 @@ write_stream_list(struct list_head *stream_list,
         * to do compression.  There are serial and parallel implementations of
         * the chunk_compressor interface.  We default to parallel using the
         * specified number of threads, unless the upper bound on the number
-        * bytes needing to be compressed is less 2000000 (heuristic value).  */
+        * bytes needing to be compressed is less than a heuristic value.  */
        if (out_ctype != WIMLIB_COMPRESSION_TYPE_NONE) {
 
-               if (out_ctype == WIMLIB_COMPRESSION_TYPE_LZMS &&
-                   ctx.lookup_table != NULL) {
-                       WARNING("LZMS compression not implemented; data will "
-                               "actually be written uncompressed.");
-               }
-
        #ifdef ENABLE_MULTITHREADED_COMPRESSION
-               if (ctx.num_bytes_to_compress >= 2000000) {
+               if (ctx.num_bytes_to_compress > max(2000000, out_chunk_size)) {
                        ret = new_parallel_chunk_compressor(out_ctype,
                                                            out_chunk_size,
                                                            num_threads, 0,
@@ -1412,11 +1458,14 @@ write_stream_list(struct list_head *stream_list,
              ctx.progress_data.progress.write_streams.num_threads);
 
        INIT_LIST_HEAD(&ctx.pending_streams);
+       INIT_LIST_HEAD(&ctx.pack_streams);
 
-       if (ctx.progress_data.progress_func) {
-               (*ctx.progress_data.progress_func)(WIMLIB_PROGRESS_MSG_WRITE_STREAMS,
-                                                  &ctx.progress_data.progress);
-       }
+       ret = call_progress(ctx.progress_data.progfunc,
+                           WIMLIB_PROGRESS_MSG_WRITE_STREAMS,
+                           &ctx.progress_data.progress,
+                           ctx.progress_data.progctx);
+       if (ret)
+               goto out_destroy_context;
 
        if (write_resource_flags & WRITE_RESOURCE_FLAG_PACK_STREAMS) {
                ret = begin_write_resource(&ctx, ctx.num_bytes_to_compress);
@@ -1465,7 +1514,7 @@ write_stream_list(struct list_head *stream_list,
                      reshdr.uncompressed_size);
 
                offset_in_res = 0;
-               list_for_each_entry(lte, &ctx.pending_streams, write_streams_list) {
+               list_for_each_entry(lte, &ctx.pack_streams, write_streams_list) {
                        lte->out_reshdr.size_in_wim = lte->size;
                        lte->out_reshdr.flags = filter_resource_flags(lte->flags);
                        lte->out_reshdr.flags |= WIM_RESHDR_FLAG_PACKED_STREAMS;
@@ -1473,7 +1522,7 @@ write_stream_list(struct list_head *stream_list,
                        lte->out_reshdr.offset_in_wim = offset_in_res;
                        lte->out_res_offset_in_wim = reshdr.offset_in_wim;
                        lte->out_res_size_in_wim = reshdr.size_in_wim;
-                       /*lte->out_res_uncompressed_size = reshdr.uncompressed_size;*/
+                       lte->out_res_uncompressed_size = reshdr.uncompressed_size;
                        offset_in_res += lte->size;
                }
                wimlib_assert(offset_in_res == reshdr.uncompressed_size);
@@ -1482,11 +1531,11 @@ write_stream_list(struct list_head *stream_list,
 out_write_raw_copy_resources:
        /* Copy any compressed resources for which the raw data can be reused
         * without decompression.  */
-       ret = write_raw_copy_resources(&raw_copy_resources, ctx.out_fd,
+       ret = write_raw_copy_resources(&raw_copy_streams, ctx.out_fd,
                                       &ctx.progress_data);
 
 out_destroy_context:
-       if (out_chunk_size > STACK_MAX)
+       if (out_ctype != WIMLIB_COMPRESSION_TYPE_NONE && out_chunk_size > STACK_MAX)
                FREE(ctx.chunk_buf);
        FREE(ctx.chunk_csizes);
        if (ctx.compressor)
@@ -1495,6 +1544,61 @@ out_destroy_context:
        return ret;
 }
 
+static int
+is_stream_packed(struct wim_lookup_table_entry *lte, void *_ignore)
+{
+       return lte_is_partial(lte);
+}
+
+static bool
+wim_has_packed_streams(WIMStruct *wim)
+{
+       return for_lookup_table_entry(wim->lookup_table, is_stream_packed, NULL);
+}
+
+static int
+wim_write_stream_list(WIMStruct *wim,
+                     struct list_head *stream_list,
+                     int write_flags,
+                     unsigned num_threads,
+                     struct filter_context *filter_ctx)
+{
+       int out_ctype;
+       u32 out_chunk_size;
+       int write_resource_flags;
+
+       write_resource_flags = write_flags_to_resource_flags(write_flags);
+
+       /* wimlib v1.7.0: pack streams by default if the WIM version has been
+        * set to WIM_VERSION_PACKED_STREAMS and at least one stream in the
+        * WIM's lookup table is located in a packed resource (may be the same
+        * WIM, or a different one in the case of export).  */
+       if (wim->hdr.wim_version == WIM_VERSION_PACKED_STREAMS &&
+           wim_has_packed_streams(wim))
+       {
+               write_resource_flags |= WRITE_RESOURCE_FLAG_PACK_STREAMS;
+       }
+
+       if (write_resource_flags & WRITE_RESOURCE_FLAG_PACK_STREAMS) {
+               out_chunk_size = wim->out_pack_chunk_size;
+               out_ctype = wim->out_pack_compression_type;
+       } else {
+               out_chunk_size = wim->out_chunk_size;
+               out_ctype = wim->out_compression_type;
+       }
+
+       return write_stream_list(stream_list,
+                                &wim->out_fd,
+                                write_resource_flags,
+                                out_ctype,
+                                out_chunk_size,
+                                num_threads,
+                                wim->lookup_table,
+                                filter_ctx,
+                                wim->progfunc,
+                                wim->progctx);
+}
+
 static int
 write_wim_resource(struct wim_lookup_table_entry *lte,
                   struct filedes *out_fd,
@@ -1513,6 +1617,7 @@ write_wim_resource(struct wim_lookup_table_entry *lte,
                                 1,
                                 NULL,
                                 NULL,
+                                NULL,
                                 NULL);
 }
 
@@ -1758,7 +1863,7 @@ determine_stream_size_uniquity(struct list_head *stream_list,
        struct stream_size_table tab;
        struct wim_lookup_table_entry *lte;
 
-       ret = init_stream_size_table(&tab, lt->capacity);
+       ret = init_stream_size_table(&tab, 9001);
        if (ret)
                return ret;
 
@@ -1829,7 +1934,7 @@ filter_stream_list_for_write(struct list_head *stream_list,
  *     @stream_list_ret.
  *
  *     SKIP_EXTERNAL_WIMS:  Streams already present in a WIM file, but not
- *     @wim, shall be be returned in neither @stream_list_ret nor
+ *     @wim, shall be returned in neither @stream_list_ret nor
  *     @lookup_table_list_ret.
  *
  * @stream_list_ret
@@ -1910,7 +2015,6 @@ prepare_stream_list_for_write(WIMStruct *wim, int image,
 static int
 write_wim_streams(WIMStruct *wim, int image, int write_flags,
                  unsigned num_threads,
-                 wimlib_progress_func_t progress_func,
                  struct list_head *stream_list_override,
                  struct list_head *lookup_table_list_ret)
 {
@@ -1947,20 +2051,15 @@ write_wim_streams(WIMStruct *wim, int image, int write_flags,
                }
        }
 
-       return write_stream_list(stream_list,
-                                &wim->out_fd,
-                                write_flags_to_resource_flags(write_flags),
-                                wim->out_compression_type,
-                                wim->out_chunk_size,
-                                num_threads,
-                                wim->lookup_table,
-                                filter_ctx,
-                                progress_func);
+       return wim_write_stream_list(wim,
+                                    stream_list,
+                                    write_flags,
+                                    num_threads,
+                                    filter_ctx);
 }
 
 static int
-write_wim_metadata_resources(WIMStruct *wim, int image, int write_flags,
-                            wimlib_progress_func_t progress_func)
+write_wim_metadata_resources(WIMStruct *wim, int image, int write_flags)
 {
        int ret;
        int start_image;
@@ -1979,8 +2078,11 @@ write_wim_metadata_resources(WIMStruct *wim, int image, int write_flags,
        DEBUG("Writing metadata resources (offset=%"PRIu64")",
              wim->out_fd.offset);
 
-       if (progress_func)
-               progress_func(WIMLIB_PROGRESS_MSG_WRITE_METADATA_BEGIN, NULL);
+       ret = call_progress(wim->progfunc,
+                           WIMLIB_PROGRESS_MSG_WRITE_METADATA_BEGIN,
+                           NULL, wim->progctx);
+       if (ret)
+               return ret;
 
        if (image == WIMLIB_ALL_IMAGES) {
                start_image = 1;
@@ -2019,9 +2121,10 @@ write_wim_metadata_resources(WIMStruct *wim, int image, int write_flags,
                if (ret)
                        return ret;
        }
-       if (progress_func)
-               progress_func(WIMLIB_PROGRESS_MSG_WRITE_METADATA_END, NULL);
-       return 0;
+
+       return call_progress(wim->progfunc,
+                            WIMLIB_PROGRESS_MSG_WRITE_METADATA_END,
+                            NULL, wim->progctx);
 }
 
 static int
@@ -2185,7 +2288,6 @@ write_wim_lookup_table(WIMStruct *wim, int image, int write_flags,
  */
 static int
 finish_write(WIMStruct *wim, int image, int write_flags,
-            wimlib_progress_func_t progress_func,
             struct list_head *lookup_table_list)
 {
        int ret;
@@ -2254,8 +2356,7 @@ finish_write(WIMStruct *wim, int image, int write_flags,
 
                ret = write_integrity_table(wim,
                                            new_lookup_table_end,
-                                           old_lookup_table_end,
-                                           progress_func);
+                                           old_lookup_table_end);
                if (ret)
                        return ret;
        } else {
@@ -2299,28 +2400,30 @@ finish_write(WIMStruct *wim, int image, int write_flags,
 }
 
 #if defined(HAVE_SYS_FILE_H) && defined(HAVE_FLOCK)
+
+/* Set advisory lock on WIM file (if not already done so)  */
 int
-lock_wim(WIMStruct *wim, int fd)
+lock_wim_for_append(WIMStruct *wim)
 {
-       int ret = 0;
-       if (fd != -1 && !wim->wim_locked) {
-               ret = flock(fd, LOCK_EX | LOCK_NB);
-               if (ret != 0) {
-                       if (errno == EWOULDBLOCK) {
-                               ERROR("`%"TS"' is already being modified or has been "
-                                     "mounted read-write\n"
-                                     "        by another process!", wim->filename);
-                               ret = WIMLIB_ERR_ALREADY_LOCKED;
-                       } else {
-                               WARNING_WITH_ERRNO("Failed to lock `%"TS"'",
-                                                  wim->filename);
-                               ret = 0;
-                       }
-               } else {
-                       wim->wim_locked = 1;
-               }
+       if (wim->locked_for_append)
+               return 0;
+       if (!flock(wim->in_fd.fd, LOCK_EX | LOCK_NB)) {
+               wim->locked_for_append = 1;
+               return 0;
+       }
+       if (errno != EWOULDBLOCK)
+               return 0;
+       return WIMLIB_ERR_ALREADY_LOCKED;
+}
+
+/* Remove advisory lock on WIM file (if present)  */
+void
+unlock_wim_for_append(WIMStruct *wim)
+{
+       if (wim->locked_for_append) {
+               flock(wim->in_fd.fd, LOCK_UN);
+               wim->locked_for_append = 0;
        }
-       return ret;
 }
 #endif
 
@@ -2404,7 +2507,7 @@ lock_wim(WIMStruct *wim, int fd)
  */
 static int
 write_pipable_wim(WIMStruct *wim, int image, int write_flags,
-                 unsigned num_threads, wimlib_progress_func_t progress_func,
+                 unsigned num_threads,
                  struct list_head *stream_list_override,
                  struct list_head *lookup_table_list_ret)
 {
@@ -2439,16 +2542,14 @@ write_pipable_wim(WIMStruct *wim, int image, int write_flags,
 
        /* Write metadata resources for the image(s) being included in the
         * output WIM.  */
-       ret = write_wim_metadata_resources(wim, image, write_flags,
-                                          progress_func);
+       ret = write_wim_metadata_resources(wim, image, write_flags);
        if (ret)
                return ret;
 
        /* Write streams needed for the image(s) being included in the output
         * WIM, or streams needed for the split WIM part.  */
        return write_wim_streams(wim, image, write_flags, num_threads,
-                                progress_func, stream_list_override,
-                                lookup_table_list_ret);
+                                stream_list_override, lookup_table_list_ret);
 
        /* The lookup table, XML data, and header at end are handled by
         * finish_write().  */
@@ -2462,7 +2563,6 @@ write_wim_part(WIMStruct *wim,
               int image,
               int write_flags,
               unsigned num_threads,
-              wimlib_progress_func_t progress_func,
               unsigned part_number,
               unsigned total_parts,
               struct list_head *stream_list_override,
@@ -2489,8 +2589,14 @@ write_wim_part(WIMStruct *wim,
        if (write_flags & WIMLIB_WRITE_FLAG_CHECK_INTEGRITY)
                DEBUG("\tCHECK_INTEGRITY");
 
-       if (write_flags & WIMLIB_WRITE_FLAG_REBUILD)
-               DEBUG("\tREBUILD");
+       if (write_flags & WIMLIB_WRITE_FLAG_NO_CHECK_INTEGRITY)
+               DEBUG("\tNO_CHECK_INTEGRITY");
+
+       if (write_flags & WIMLIB_WRITE_FLAG_PIPABLE)
+               DEBUG("\tPIPABLE");
+
+       if (write_flags & WIMLIB_WRITE_FLAG_NOT_PIPABLE)
+               DEBUG("\tNOT_PIPABLE");
 
        if (write_flags & WIMLIB_WRITE_FLAG_RECOMPRESS)
                DEBUG("\tRECOMPRESS");
@@ -2498,24 +2604,27 @@ write_wim_part(WIMStruct *wim,
        if (write_flags & WIMLIB_WRITE_FLAG_FSYNC)
                DEBUG("\tFSYNC");
 
+       if (write_flags & WIMLIB_WRITE_FLAG_REBUILD)
+               DEBUG("\tREBUILD");
+
        if (write_flags & WIMLIB_WRITE_FLAG_SOFT_DELETE)
-               DEBUG("\tFSYNC");
+               DEBUG("\tSOFT_DELETE");
 
        if (write_flags & WIMLIB_WRITE_FLAG_IGNORE_READONLY_FLAG)
                DEBUG("\tIGNORE_READONLY_FLAG");
 
-       if (write_flags & WIMLIB_WRITE_FLAG_PIPABLE)
-               DEBUG("\tPIPABLE");
+       if (write_flags & WIMLIB_WRITE_FLAG_SKIP_EXTERNAL_WIMS)
+               DEBUG("\tSKIP_EXTERNAL_WIMS");
 
-       if (write_flags & WIMLIB_WRITE_FLAG_NOT_PIPABLE)
-               DEBUG("\tNOT_PIPABLE");
+       if (write_flags & WIMLIB_WRITE_FLAG_STREAMS_OK)
+               DEBUG("\tSTREAMS_OK");
+
+       if (write_flags & WIMLIB_WRITE_FLAG_RETAIN_GUID)
+               DEBUG("\tRETAIN_GUID");
 
        if (write_flags & WIMLIB_WRITE_FLAG_PACK_STREAMS)
                DEBUG("\tPACK_STREAMS");
 
-       if (write_flags & WIMLIB_WRITE_FLAG_NO_PACK_STREAMS)
-               DEBUG("\tNO_PACK_STREAMS");
-
        if (write_flags & WIMLIB_WRITE_FLAG_FILE_DESCRIPTOR)
                DEBUG("\tFILE_DESCRIPTOR");
 
@@ -2529,10 +2638,11 @@ write_wim_part(WIMStruct *wim,
                DEBUG("Number of threads: autodetect");
        else
                DEBUG("Number of threads: %u", num_threads);
-       DEBUG("Progress function: %s", (progress_func ? "yes" : "no"));
+       DEBUG("Progress function: %s", (wim->progfunc ? "yes" : "no"));
        DEBUG("Stream list:       %s", (stream_list_override ? "specified" : "autodetect"));
-       DEBUG("GUID:              %s", ((guid || wim->guid_set_explicitly) ?
-                                       "specified" : "generate new"));
+       DEBUG("GUID:              %s", (write_flags &
+                                       WIMLIB_WRITE_FLAG_RETAIN_GUID) ? "retain"
+                                               : guid ? "explicit" : "generate new");
 
        /* Internally, this is always called with a valid part number and total
         * parts.  */
@@ -2564,12 +2674,6 @@ write_wim_part(WIMStruct *wim,
                                    WIMLIB_WRITE_FLAG_NOT_PIPABLE))
                return WIMLIB_ERR_INVALID_PARAM;
 
-       if ((write_flags & (WIMLIB_WRITE_FLAG_PACK_STREAMS |
-                           WIMLIB_WRITE_FLAG_NO_PACK_STREAMS))
-                               == (WIMLIB_WRITE_FLAG_PACK_STREAMS |
-                                   WIMLIB_WRITE_FLAG_NO_PACK_STREAMS))
-               return WIMLIB_ERR_INVALID_PARAM;
-
        /* Save previous header, then start initializing the new one.  */
        memcpy(&hdr_save, &wim->hdr, sizeof(struct wim_header));
 
@@ -2588,13 +2692,6 @@ write_wim_part(WIMStruct *wim,
                        write_flags |= WIMLIB_WRITE_FLAG_CHECK_INTEGRITY;
                }
 
-       if (!(write_flags & (WIMLIB_WRITE_FLAG_PACK_STREAMS |
-                            WIMLIB_WRITE_FLAG_NO_PACK_STREAMS)))
-               if (wim->hdr.wim_version == WIM_VERSION_PACKED_STREAMS) {
-                       DEBUG("WIM version 3584; default to PACK_STREAMS.");
-                       write_flags |= WIMLIB_WRITE_FLAG_PACK_STREAMS;
-               }
-
        if ((write_flags & (WIMLIB_WRITE_FLAG_PIPABLE |
                            WIMLIB_WRITE_FLAG_PACK_STREAMS))
                                    == (WIMLIB_WRITE_FLAG_PIPABLE |
@@ -2611,7 +2708,8 @@ write_wim_part(WIMStruct *wim,
                wim->hdr.magic = WIM_MAGIC;
 
        /* Set appropriate version number.  */
-       if (write_flags & WIMLIB_WRITE_FLAG_PACK_STREAMS)
+       if ((write_flags & WIMLIB_WRITE_FLAG_PACK_STREAMS) ||
+           wim->out_compression_type == WIMLIB_COMPRESSION_TYPE_LZMS)
                wim->hdr.wim_version = WIM_VERSION_PACKED_STREAMS;
        else
                wim->hdr.wim_version = WIM_VERSION_DEFAULT;
@@ -2640,11 +2738,13 @@ write_wim_part(WIMStruct *wim,
        /* Set chunk size if different.  */
        wim->hdr.chunk_size = wim->out_chunk_size;
 
-       /* Use GUID if specified; otherwise generate a new one.  */
-       if (guid)
-               memcpy(wim->hdr.guid, guid, WIMLIB_GUID_LEN);
-       else if (!wim->guid_set_explicitly)
-               randomize_byte_array(wim->hdr.guid, WIMLIB_GUID_LEN);
+       /* Set GUID.  */
+       if (!(write_flags & WIMLIB_WRITE_FLAG_RETAIN_GUID)) {
+               if (guid)
+                       memcpy(wim->hdr.guid, guid, WIMLIB_GUID_LEN);
+               else
+                       randomize_byte_array(wim->hdr.guid, WIMLIB_GUID_LEN);
+       }
 
        /* Clear references to resources that have not been written yet.  */
        zero_reshdr(&wim->hdr.lookup_table_reshdr);
@@ -2706,19 +2806,18 @@ write_wim_part(WIMStruct *wim,
        if (!(write_flags & WIMLIB_WRITE_FLAG_PIPABLE)) {
                /* Default case: create a normal (non-pipable) WIM.  */
                ret = write_wim_streams(wim, image, write_flags, num_threads,
-                                       progress_func, stream_list_override,
+                                       stream_list_override,
                                        &lookup_table_list);
                if (ret)
                        goto out_restore_hdr;
 
-               ret = write_wim_metadata_resources(wim, image, write_flags,
-                                                  progress_func);
+               ret = write_wim_metadata_resources(wim, image, write_flags);
                if (ret)
                        goto out_restore_hdr;
        } else {
                /* Non-default case: create pipable WIM.  */
                ret = write_pipable_wim(wim, image, write_flags, num_threads,
-                                       progress_func, stream_list_override,
+                                       stream_list_override,
                                        &lookup_table_list);
                if (ret)
                        goto out_restore_hdr;
@@ -2727,8 +2826,7 @@ write_wim_part(WIMStruct *wim,
 
 
        /* Write lookup table, XML data, and (optional) integrity table.  */
-       ret = finish_write(wim, image, write_flags, progress_func,
-                          &lookup_table_list);
+       ret = finish_write(wim, image, write_flags, &lookup_table_list);
 out_restore_hdr:
        memcpy(&wim->hdr, &hdr_save, sizeof(struct wim_header));
        (void)close_wim_writable(wim, write_flags);
@@ -2739,42 +2837,40 @@ out_restore_hdr:
 /* Write a standalone WIM to a file or file descriptor.  */
 static int
 write_standalone_wim(WIMStruct *wim, const void *path_or_fd,
-                    int image, int write_flags, unsigned num_threads,
-                    wimlib_progress_func_t progress_func)
+                    int image, int write_flags, unsigned num_threads)
 {
        return write_wim_part(wim, path_or_fd, image, write_flags,
-                             num_threads, progress_func, 1, 1, NULL, NULL);
+                             num_threads, 1, 1, NULL, NULL);
 }
 
 /* API function documented in wimlib.h  */
 WIMLIBAPI int
 wimlib_write(WIMStruct *wim, const tchar *path,
-            int image, int write_flags, unsigned num_threads,
-            wimlib_progress_func_t progress_func)
+            int image, int write_flags, unsigned num_threads)
 {
-       if (!path)
+       if (write_flags & ~WIMLIB_WRITE_MASK_PUBLIC)
                return WIMLIB_ERR_INVALID_PARAM;
 
-       write_flags &= WIMLIB_WRITE_MASK_PUBLIC;
+       if (path == NULL || path[0] == T('\0'))
+               return WIMLIB_ERR_INVALID_PARAM;
 
-       return write_standalone_wim(wim, path, image, write_flags,
-                                   num_threads, progress_func);
+       return write_standalone_wim(wim, path, image, write_flags, num_threads);
 }
 
 /* API function documented in wimlib.h  */
 WIMLIBAPI int
 wimlib_write_to_fd(WIMStruct *wim, int fd,
-                  int image, int write_flags, unsigned num_threads,
-                  wimlib_progress_func_t progress_func)
+                  int image, int write_flags, unsigned num_threads)
 {
+       if (write_flags & ~WIMLIB_WRITE_MASK_PUBLIC)
+               return WIMLIB_ERR_INVALID_PARAM;
+
        if (fd < 0)
                return WIMLIB_ERR_INVALID_PARAM;
 
-       write_flags &= WIMLIB_WRITE_MASK_PUBLIC;
        write_flags |= WIMLIB_WRITE_FLAG_FILE_DESCRIPTOR;
 
-       return write_standalone_wim(wim, &fd, image, write_flags,
-                                   num_threads, progress_func);
+       return write_standalone_wim(wim, &fd, image, write_flags, num_threads);
 }
 
 static bool
@@ -2872,15 +2968,13 @@ check_resource_offsets(WIMStruct *wim, off_t end_offset)
  *                   Integrity table (optional) (variable size)
  *
  * This method allows an image to be appended to a large WIM very quickly, and
- * is is crash-safe except in the case of write re-ordering, but the
+ * is crash-safe except in the case of write re-ordering, but the
  * disadvantage is that a small hole is left in the WIM where the old lookup
  * table, xml data, and integrity table were.  (These usually only take up a
  * small amount of space compared to the streams, however.)
  */
 static int
-overwrite_wim_inplace(WIMStruct *wim, int write_flags,
-                     unsigned num_threads,
-                     wimlib_progress_func_t progress_func)
+overwrite_wim_inplace(WIMStruct *wim, int write_flags, unsigned num_threads)
 {
        int ret;
        off_t old_wim_end;
@@ -2901,20 +2995,9 @@ overwrite_wim_inplace(WIMStruct *wim, int write_flags,
                if (wim_has_integrity_table(wim))
                        write_flags |= WIMLIB_WRITE_FLAG_CHECK_INTEGRITY;
 
-       /* Set default packed flag.  */
-       if (!(write_flags & (WIMLIB_WRITE_FLAG_PACK_STREAMS |
-                            WIMLIB_WRITE_FLAG_NO_PACK_STREAMS)))
-       {
-       #if 0
-               if (wim->hdr.wim_version == WIM_VERSION_PACKED_STREAMS)
-                       write_flags |= WIMLIB_WRITE_FLAG_PACK_STREAMS;
-       #endif
-               /* wimlib allows multiple packs in a single WIM, but they don't
-                * seem to be compatible with WIMGAPI.  Write new streams
-                * unpacked.  */
-       } else if (write_flags & WIMLIB_WRITE_FLAG_PACK_STREAMS) {
+       /* Set WIM version if adding packed streams.  */
+       if (write_flags & WIMLIB_WRITE_FLAG_PACK_STREAMS)
                wim->hdr.wim_version = WIM_VERSION_PACKED_STREAMS;
-       }
 
        /* Set additional flags for overwrite.  */
        write_flags |= WIMLIB_WRITE_FLAG_OVERWRITE |
@@ -2981,7 +3064,7 @@ overwrite_wim_inplace(WIMStruct *wim, int write_flags,
        if (ret)
                goto out_restore_memory_hdr;
 
-       ret = lock_wim(wim, wim->out_fd.fd);
+       ret = lock_wim_for_append(wim);
        if (ret)
                goto out_close_wim;
 
@@ -2999,30 +3082,25 @@ overwrite_wim_inplace(WIMStruct *wim, int write_flags,
                goto out_restore_physical_hdr;
        }
 
-       ret = write_stream_list(&stream_list,
-                               &wim->out_fd,
-                               write_flags_to_resource_flags(write_flags),
-                               wim->compression_type,
-                               wim->chunk_size,
-                               num_threads,
-                               wim->lookup_table,
-                               &filter_ctx,
-                               progress_func);
+       ret = wim_write_stream_list(wim,
+                                   &stream_list,
+                                   write_flags,
+                                   num_threads,
+                                   &filter_ctx);
        if (ret)
                goto out_truncate;
 
-       ret = write_wim_metadata_resources(wim, WIMLIB_ALL_IMAGES,
-                                          write_flags, progress_func);
+       ret = write_wim_metadata_resources(wim, WIMLIB_ALL_IMAGES, write_flags);
        if (ret)
                goto out_truncate;
 
        write_flags |= WIMLIB_WRITE_FLAG_REUSE_INTEGRITY_TABLE;
        ret = finish_write(wim, WIMLIB_ALL_IMAGES, write_flags,
-                          progress_func, &lookup_table_list);
+                          &lookup_table_list);
        if (ret)
                goto out_truncate;
 
-       wim->wim_locked = 0;
+       unlock_wim_for_append(wim);
        return 0;
 
 out_truncate:
@@ -3036,7 +3114,7 @@ out_truncate:
 out_restore_physical_hdr:
        (void)write_wim_header_flags(hdr_save.flags, &wim->out_fd);
 out_unlock_wim:
-       wim->wim_locked = 0;
+       unlock_wim_for_append(wim);
 out_close_wim:
        (void)close_wim_writable(wim, write_flags);
 out_restore_memory_hdr:
@@ -3045,9 +3123,7 @@ out_restore_memory_hdr:
 }
 
 static int
-overwrite_wim_via_tmpfile(WIMStruct *wim, int write_flags,
-                         unsigned num_threads,
-                         wimlib_progress_func_t progress_func)
+overwrite_wim_via_tmpfile(WIMStruct *wim, int write_flags, unsigned num_threads)
 {
        size_t wim_name_len;
        int ret;
@@ -3063,14 +3139,19 @@ overwrite_wim_via_tmpfile(WIMStruct *wim, int write_flags,
        tmpfile[wim_name_len + 9] = T('\0');
 
        ret = wimlib_write(wim, tmpfile, WIMLIB_ALL_IMAGES,
-                          write_flags | WIMLIB_WRITE_FLAG_FSYNC,
-                          num_threads, progress_func);
+                          write_flags |
+                               WIMLIB_WRITE_FLAG_FSYNC |
+                               WIMLIB_WRITE_FLAG_RETAIN_GUID,
+                          num_threads);
        if (ret) {
                tunlink(tmpfile);
                return ret;
        }
 
-       close_wim(wim);
+       if (filedes_valid(&wim->in_fd)) {
+               filedes_close(&wim->in_fd);
+               filedes_invalidate(&wim->in_fd);
+       }
 
        /* Rename the new WIM file to the original WIM file.  Note: on Windows
         * this actually calls win32_rename_replacement(), not _wrename(), so
@@ -3089,13 +3170,11 @@ overwrite_wim_via_tmpfile(WIMStruct *wim, int write_flags,
                return WIMLIB_ERR_RENAME;
        }
 
-       if (progress_func) {
-               union wimlib_progress_info progress;
-               progress.rename.from = tmpfile;
-               progress.rename.to = wim->filename;
-               progress_func(WIMLIB_PROGRESS_MSG_RENAME, &progress);
-       }
-       return 0;
+       union wimlib_progress_info progress;
+       progress.rename.from = tmpfile;
+       progress.rename.to = wim->filename;
+       return call_progress(wim->progfunc, WIMLIB_PROGRESS_MSG_RENAME,
+                            &progress, wim->progctx);
 }
 
 /* Determine if the specified WIM file may be updated by appending in-place
@@ -3116,14 +3195,6 @@ can_overwrite_wim_inplace(const WIMStruct *wim, int write_flags)
        if (wim_is_pipable(wim) || (write_flags & WIMLIB_WRITE_FLAG_PIPABLE))
                return false;
 
-       /* wimlib allows multiple packs in a single WIM, but they don't seem to
-        * be compatible with WIMGAPI, so force all streams to be repacked if
-        * the WIM already may have contained a pack and PACK_STREAMS was
-        * requested.  */
-       if (write_flags & WIMLIB_WRITE_FLAG_PACK_STREAMS &&
-           wim->hdr.wim_version == WIM_VERSION_PACKED_STREAMS)
-               return false;
-
        /* The default compression type and compression chunk size selected for
         * the output WIM must be the same as those currently used for the WIM.
         */
@@ -3137,16 +3208,12 @@ can_overwrite_wim_inplace(const WIMStruct *wim, int write_flags)
 
 /* API function documented in wimlib.h  */
 WIMLIBAPI int
-wimlib_overwrite(WIMStruct *wim, int write_flags,
-                unsigned num_threads,
-                wimlib_progress_func_t progress_func)
+wimlib_overwrite(WIMStruct *wim, int write_flags, unsigned num_threads)
 {
        int ret;
        u32 orig_hdr_flags;
 
-       write_flags &= WIMLIB_WRITE_MASK_PUBLIC;
-
-       if (write_flags & WIMLIB_WRITE_FLAG_FILE_DESCRIPTOR)
+       if (write_flags & ~WIMLIB_WRITE_MASK_PUBLIC)
                return WIMLIB_ERR_INVALID_PARAM;
 
        if (!wim->filename)
@@ -3161,12 +3228,10 @@ wimlib_overwrite(WIMStruct *wim, int write_flags,
                return ret;
 
        if (can_overwrite_wim_inplace(wim, write_flags)) {
-               ret = overwrite_wim_inplace(wim, write_flags, num_threads,
-                                           progress_func);
+               ret = overwrite_wim_inplace(wim, write_flags, num_threads);
                if (ret != WIMLIB_ERR_RESOURCE_ORDER)
                        return ret;
                WARNING("Falling back to re-building entire WIM");
        }
-       return overwrite_wim_via_tmpfile(wim, write_flags, num_threads,
-                                        progress_func);
+       return overwrite_wim_via_tmpfile(wim, write_flags, num_threads);
 }