]> wimlib.net Git - wimlib/blobdiff - src/extract.c
wimlib_extract_flags(): Free memory used in linked extraction mode
[wimlib] / src / extract.c
index 3438ca73327ba3f29684967a2ba91536027810d8..44076db02b58e4ecef6da9d617c51005d4f720e7 100644 (file)
@@ -49,6 +49,7 @@
 #include "wimlib/error.h"
 #include "wimlib/lookup_table.h"
 #include "wimlib/metadata.h"
+#include "wimlib/pathlist.h"
 #include "wimlib/paths.h"
 #include "wimlib/reparse.h"
 #include "wimlib/resource.h"
@@ -57,6 +58,7 @@
 #  include "wimlib/win32.h" /* for realpath() equivalent */
 #endif
 #include "wimlib/xml.h"
+#include "wimlib/wildcard.h"
 #include "wimlib/wim.h"
 
 #include <errno.h>
@@ -67,7 +69,8 @@
 
 #define WIMLIB_EXTRACT_FLAG_MULTI_IMAGE 0x80000000
 #define WIMLIB_EXTRACT_FLAG_FROM_PIPE   0x40000000
-#define WIMLIB_EXTRACT_MASK_PUBLIC      0x3fffffff
+#define WIMLIB_EXTRACT_FLAG_PATHMODE    0x20000000
+#define WIMLIB_EXTRACT_MASK_PUBLIC      0x1fffffff
 
 /* Given a WIM dentry in the tree to be extracted, resolve all streams in the
  * corresponding inode and set 'out_refcnt' in each to 0.  */
@@ -140,7 +143,7 @@ ref_stream_to_extract(struct wim_lookup_table_entry *lte,
                ctx->num_streams_remaining++;
        }
 
-       if (ctx->extract_flags & WIMLIB_EXTRACT_FLAG_SEQUENTIAL) {
+       if (!(ctx->extract_flags & WIMLIB_EXTRACT_FLAG_FILE_ORDER)) {
                struct wim_dentry **lte_dentries;
 
                /* Append dentry to this stream's array of dentries referencing
@@ -534,10 +537,10 @@ error:
  * This function operates slightly differently depending on whether @lte_spec is
  * NULL or not.  When @lte_spec is NULL, the behavior is to extract the default
  * file contents (unnamed stream), and, if named data streams are supported in
- * the extract mode and volume, any named data streams.  When @lte_spec is NULL,
- * the behavior is to extract only all copies of the stream @lte_spec, and in
- * addition use @lte_spec to set the reparse data or create the symbolic link if
- * appropriate.
+ * the extract mode and volume, any named data streams.  When @lte_spec is not
+ * NULL, the behavior is to extract only all copies of the stream @lte_spec, and
+ * in addition use @lte_spec to set the reparse data or create the symbolic link
+ * if appropriate.
  *
  * @path
  *     Path to file to extract (as can be passed to apply_operations
@@ -1182,8 +1185,7 @@ dentry_extract_dir_skeleton(struct wim_dentry *dentry, void *_ctx)
        return 0;
 }
 
-/* Create a file or directory, then immediately extract all streams.  This
- * assumes that WIMLIB_EXTRACT_FLAG_SEQUENTIAL is not specified, since the WIM
+/* Create a file or directory, then immediately extract all streams.  The WIM
  * may not be read sequentially by this function.  */
 static int
 dentry_extract(struct wim_dentry *dentry, void *_ctx)
@@ -1308,7 +1310,8 @@ need_tmpfile_to_extract(struct wim_lookup_table_entry *lte,
 
 static int
 begin_extract_stream_to_tmpfile(struct wim_lookup_table_entry *lte,
-                               bool is_partial_res, void *_ctx)
+                               bool is_partial_res,
+                               void *_ctx)
 {
        struct apply_ctx *ctx = _ctx;
        int ret;
@@ -1320,10 +1323,7 @@ begin_extract_stream_to_tmpfile(struct wim_lookup_table_entry *lte,
                if (ret)
                        return ret;
 
-               /* Negative return value here means the function was successful,
-                * but the consume_chunk and end_chunk callbacks need not be
-                * called.  */
-               return -1;
+               return BEGIN_STREAM_STATUS_SKIP_STREAM;
        }
 
        DEBUG("Temporary file needed for stream (size=%"PRIu64")", lte->size);
@@ -1377,7 +1377,7 @@ out_delete_tmpfile:
 static int
 extract_stream_list(struct apply_ctx *ctx)
 {
-       if (ctx->extract_flags & WIMLIB_EXTRACT_FLAG_SEQUENTIAL) {
+       if (!(ctx->extract_flags & WIMLIB_EXTRACT_FLAG_FILE_ORDER)) {
                /* Sequential extraction: read the streams in the order in which
                 * they appear in the WIM file.  */
                struct read_stream_list_callbacks cbs = {
@@ -1390,7 +1390,7 @@ extract_stream_list(struct apply_ctx *ctx)
                };
                return read_stream_list(&ctx->stream_list,
                                        offsetof(struct wim_lookup_table_entry, extraction_list),
-                                       0, &cbs);
+                                       &cbs, VERIFY_STREAM_HASHES);
        } else {
                /* Extract the streams in unsorted order.  */
                struct wim_lookup_table_entry *lte;
@@ -1437,7 +1437,7 @@ read_pwm_stream_header(WIMStruct *pwm, struct wim_lookup_table_entry *lte,
                return 0;
        }
 
-       if (buf.stream_hdr.magic != PWM_STREAM_MAGIC) {
+       if (le64_to_cpu(buf.stream_hdr.magic) != PWM_STREAM_MAGIC) {
                ERROR("Data read on pipe is invalid (expected stream header).");
                return WIMLIB_ERR_INVALID_PIPABLE_WIM;
        }
@@ -1510,7 +1510,7 @@ extract_streams_from_pipe(struct apply_ctx *ctx)
                    && (needed_lte = lookup_resource(lookup_table, found_lte->hash))
                    && (needed_lte->out_refcnt))
                {
-                       char *tmpfile_name = NULL;
+                       tchar *tmpfile_name = NULL;
                        struct wim_lookup_table_entry *lte_override;
                        struct wim_lookup_table_entry tmpfile_lte;
 
@@ -1530,8 +1530,8 @@ extract_streams_from_pipe(struct apply_ctx *ctx)
                                if (ret)
                                        goto out_free_found_lte;
 
-                               ret = extract_stream_to_fd(needed_lte, &tmpfile_fd,
-                                                          needed_lte->size);
+                               ret = extract_full_stream_to_fd(needed_lte,
+                                                               &tmpfile_fd);
                                if (ret) {
                                        filedes_close(&tmpfile_fd);
                                        goto delete_tmpfile;
@@ -1651,7 +1651,7 @@ extract_dentry_to_stdout(struct wim_dentry *dentry)
                if (lte) {
                        struct filedes _stdout;
                        filedes_init(&_stdout, STDOUT_FILENO);
-                       ret = extract_stream_to_fd(lte, &_stdout, lte->size);
+                       ret = extract_full_stream_to_fd(lte, &_stdout);
                }
        }
        return ret;
@@ -1746,8 +1746,6 @@ dentry_calculate_extraction_path(struct wim_dentry *dentry, void *_args)
        struct apply_ctx *ctx = _args;
        int ret;
 
-       dentry->in_extraction_tree = 1;
-
        if (dentry == ctx->extract_root || dentry->extraction_skipped)
                return 0;
 
@@ -1762,38 +1760,36 @@ dentry_calculate_extraction_path(struct wim_dentry *dentry, void *_args)
                goto skip_dentry;
        }
 
-#ifdef __WIN32__
        if (!ctx->ops->supports_case_sensitive_filenames)
        {
                struct wim_dentry *other;
                list_for_each_entry(other, &dentry->case_insensitive_conflict_list,
                                    case_insensitive_conflict_list)
                {
-                       if (ctx->extract_flags &
-                           WIMLIB_EXTRACT_FLAG_ALL_CASE_CONFLICTS) {
-                               WARNING("\"%"TS"\" has the same "
-                                       "case-insensitive name as "
-                                       "\"%"TS"\"; extracting "
-                                       "dummy name instead",
-                                       dentry_full_path(dentry),
-                                       dentry_full_path(other));
-                               goto out_replace;
-                       } else {
-                               WARNING("Not extracting \"%"TS"\": "
-                                       "has same case-insensitive "
-                                       "name as \"%"TS"\"",
-                                       dentry_full_path(dentry),
-                                       dentry_full_path(other));
-                               goto skip_dentry;
+                       if (!other->extraction_skipped) {
+                               if (ctx->extract_flags &
+                                   WIMLIB_EXTRACT_FLAG_ALL_CASE_CONFLICTS) {
+                                       WARNING("\"%"TS"\" has the same "
+                                               "case-insensitive name as "
+                                               "\"%"TS"\"; extracting "
+                                               "dummy name instead",
+                                               dentry_full_path(dentry),
+                                               dentry_full_path(other));
+                                       goto out_replace;
+                               } else {
+                                       WARNING("Not extracting \"%"TS"\": "
+                                               "has same case-insensitive "
+                                               "name as \"%"TS"\"",
+                                               dentry_full_path(dentry),
+                                               dentry_full_path(other));
+                                       goto skip_dentry;
+                               }
                        }
                }
        }
-#else  /* __WIN32__ */
-       wimlib_assert(ctx->ops->supports_case_sensitive_filenames);
-#endif /* !__WIN32__ */
 
        if (file_name_valid(dentry->file_name, dentry->file_name_nbytes / 2, false)) {
-#ifdef __WIN32__
+#if TCHAR_IS_UTF16LE
                dentry->extraction_name = dentry->file_name;
                dentry->extraction_name_nchars = dentry->file_name_nbytes / 2;
                return 0;
@@ -1828,7 +1824,7 @@ out_replace:
 
                tchar *tchar_name;
                size_t tchar_nchars;
-       #ifdef __WIN32__
+       #if TCHAR_IS_UTF16LE
                tchar_name = utf16_name_copy;
                tchar_nchars = dentry->file_name_nbytes / 2;
        #else
@@ -1845,7 +1841,7 @@ out_replace:
                fixed_name_num_chars += tsprintf(fixed_name + tchar_nchars,
                                                 T(" (invalid filename #%lu)"),
                                                 ++ctx->invalid_sequence);
-       #ifndef __WIN32__
+       #if !TCHAR_IS_UTF16LE
                FREE(tchar_name);
        #endif
                dentry->extraction_name = memdup(fixed_name,
@@ -1888,6 +1884,9 @@ dentry_tally_features(struct wim_dentry *dentry, void *_features)
        struct wim_features *features = _features;
        struct wim_inode *inode = dentry->d_inode;
 
+       if (dentry->extraction_skipped)
+               return 0;
+
        if (inode->i_attributes & FILE_ATTRIBUTE_ARCHIVE)
                features->archive_files++;
        if (inode->i_attributes & FILE_ATTRIBUTE_HIDDEN)
@@ -1970,7 +1969,8 @@ do_feature_check(const struct wim_features *required_features,
                 const struct wim_features *supported_features,
                 int extract_flags,
                 const struct apply_operations *ops,
-                const tchar *wim_source_path)
+                const tchar *wim_source_path,
+                bool warn)
 {
        const tchar *loc;
        const tchar *mode = T("this extraction mode");
@@ -1980,148 +1980,150 @@ do_feature_check(const struct wim_features *required_features,
        else
                loc = wim_source_path;
 
-       /* We're an archive program, so theoretically we can do what we want
-        * with FILE_ATTRIBUTE_ARCHIVE (which is a dumb flag anyway).  Don't
-        * bother the user about it.  */
+       if (warn) {
+               /* We're an archive program, so theoretically we can do what we want
+                * with FILE_ATTRIBUTE_ARCHIVE (which is a dumb flag anyway).  Don't
+                * bother the user about it.  */
 #if 0
-       if (required_features->archive_files && !supported_features->archive_files)
-       {
-               WARNING(
-          "%lu files in %"TS" are marked as archived, but this attribute\n"
-"          is not supported in %"TS".",
-                       required_features->archive_files, loc, mode);
-       }
+               if (required_features->archive_files && !supported_features->archive_files)
+               {
+                       WARNING(
+                 "%lu files in %"TS" are marked as archived, but this attribute\n"
+       "          is not supported in %"TS".",
+                               required_features->archive_files, loc, mode);
+               }
 #endif
 
-       if (required_features->hidden_files && !supported_features->hidden_files)
-       {
-               WARNING(
-          "%lu files in %"TS" are marked as hidden, but this\n"
-"          attribute is not supported in %"TS".",
-                       required_features->hidden_files, loc, mode);
-       }
+               if (required_features->hidden_files && !supported_features->hidden_files)
+               {
+                       WARNING(
+                 "%lu files in %"TS" are marked as hidden, but this\n"
+       "          attribute is not supported in %"TS".",
+                               required_features->hidden_files, loc, mode);
+               }
 
-       if (required_features->system_files && !supported_features->system_files)
-       {
-               WARNING(
-          "%lu files in %"TS" are marked as system files,\n"
-"          but this attribute is not supported in %"TS".",
-                       required_features->system_files, loc, mode);
-       }
+               if (required_features->system_files && !supported_features->system_files)
+               {
+                       WARNING(
+                 "%lu files in %"TS" are marked as system files,\n"
+       "          but this attribute is not supported in %"TS".",
+                               required_features->system_files, loc, mode);
+               }
 
-       if (required_features->compressed_files && !supported_features->compressed_files)
-       {
-               WARNING(
-          "%lu files in %"TS" are marked as being transparently\n"
-"          compressed, but transparent compression is not supported in\n"
-"          %"TS".  These files will be extracted as uncompressed.",
-                       required_features->compressed_files, loc, mode);
-       }
+               if (required_features->compressed_files && !supported_features->compressed_files)
+               {
+                       WARNING(
+                 "%lu files in %"TS" are marked as being transparently\n"
+       "          compressed, but transparent compression is not supported in\n"
+       "          %"TS".  These files will be extracted as uncompressed.",
+                               required_features->compressed_files, loc, mode);
+               }
 
-       if (required_features->encrypted_files && !supported_features->encrypted_files)
-       {
-               WARNING(
-          "%lu files in %"TS" are marked as being encrypted,\n"
-"           but encryption is not supported in %"TS".  These files\n"
-"           will not be extracted.",
-                       required_features->encrypted_files, loc, mode);
-       }
+               if (required_features->encrypted_files && !supported_features->encrypted_files)
+               {
+                       WARNING(
+                 "%lu files in %"TS" are marked as being encrypted,\n"
+       "           but encryption is not supported in %"TS".  These files\n"
+       "           will not be extracted.",
+                               required_features->encrypted_files, loc, mode);
+               }
 
-       if (required_features->encrypted_directories &&
-           !supported_features->encrypted_directories)
-       {
-               WARNING(
-          "%lu directories in %"TS" are marked as being encrypted,\n"
-"           but encryption is not supported in %"TS".\n"
-"           These directories will be extracted as unencrypted.",
-                       required_features->encrypted_directories, loc, mode);
-       }
+               if (required_features->encrypted_directories &&
+                   !supported_features->encrypted_directories)
+               {
+                       WARNING(
+                 "%lu directories in %"TS" are marked as being encrypted,\n"
+       "           but encryption is not supported in %"TS".\n"
+       "           These directories will be extracted as unencrypted.",
+                               required_features->encrypted_directories, loc, mode);
+               }
 
-       if (required_features->not_context_indexed_files &&
-           !supported_features->not_context_indexed_files)
-       {
-               WARNING(
-          "%lu files in %"TS" are marked as not content indexed,\n"
-"          but this attribute is not supported in %"TS".",
-                       required_features->not_context_indexed_files, loc, mode);
-       }
+               if (required_features->not_context_indexed_files &&
+                   !supported_features->not_context_indexed_files)
+               {
+                       WARNING(
+                 "%lu files in %"TS" are marked as not content indexed,\n"
+       "          but this attribute is not supported in %"TS".",
+                               required_features->not_context_indexed_files, loc, mode);
+               }
 
-       if (required_features->sparse_files && !supported_features->sparse_files)
-       {
-               WARNING(
-          "%lu files in %"TS" are marked as sparse, but creating\n"
-"           sparse files is not supported in %"TS".  These files\n"
-"           will be extracted as non-sparse.",
-                       required_features->sparse_files, loc, mode);
-       }
+               if (required_features->sparse_files && !supported_features->sparse_files)
+               {
+                       WARNING(
+                 "%lu files in %"TS" are marked as sparse, but creating\n"
+       "           sparse files is not supported in %"TS".  These files\n"
+       "           will be extracted as non-sparse.",
+                               required_features->sparse_files, loc, mode);
+               }
 
-       if (required_features->named_data_streams &&
-           !supported_features->named_data_streams)
-       {
-               WARNING(
-          "%lu files in %"TS" contain one or more alternate (named)\n"
-"          data streams, which are not supported in %"TS".\n"
-"          Alternate data streams will NOT be extracted.",
-                       required_features->named_data_streams, loc, mode);
-       }
+               if (required_features->named_data_streams &&
+                   !supported_features->named_data_streams)
+               {
+                       WARNING(
+                 "%lu files in %"TS" contain one or more alternate (named)\n"
+       "          data streams, which are not supported in %"TS".\n"
+       "          Alternate data streams will NOT be extracted.",
+                               required_features->named_data_streams, loc, mode);
+               }
 
-       if (unlikely(extract_flags & (WIMLIB_EXTRACT_FLAG_HARDLINK |
-                                     WIMLIB_EXTRACT_FLAG_SYMLINK)) &&
-           required_features->named_data_streams &&
-           supported_features->named_data_streams)
-       {
-               WARNING(
-          "%lu files in %"TS" contain one or more alternate (named)\n"
-"          data streams, which are not supported in linked extraction mode.\n"
-"          Alternate data streams will NOT be extracted.",
-                       required_features->named_data_streams, loc);
-       }
+               if (unlikely(extract_flags & (WIMLIB_EXTRACT_FLAG_HARDLINK |
+                                             WIMLIB_EXTRACT_FLAG_SYMLINK)) &&
+                   required_features->named_data_streams &&
+                   supported_features->named_data_streams)
+               {
+                       WARNING(
+                 "%lu files in %"TS" contain one or more alternate (named)\n"
+       "          data streams, which are not supported in linked extraction mode.\n"
+       "          Alternate data streams will NOT be extracted.",
+                               required_features->named_data_streams, loc);
+               }
 
-       if (required_features->hard_links && !supported_features->hard_links)
-       {
-               WARNING(
-          "%lu files in %"TS" are hard links, but hard links are\n"
-"          not supported in %"TS".  Hard links will be extracted as\n"
-"          duplicate copies of the linked files.",
-                       required_features->hard_links, loc, mode);
-       }
+               if (required_features->hard_links && !supported_features->hard_links)
+               {
+                       WARNING(
+                 "%lu files in %"TS" are hard links, but hard links are\n"
+       "          not supported in %"TS".  Hard links will be extracted as\n"
+       "          duplicate copies of the linked files.",
+                               required_features->hard_links, loc, mode);
+               }
 
-       if (required_features->reparse_points && !supported_features->reparse_points)
-       {
-               if (supported_features->symlink_reparse_points) {
-                       if (required_features->other_reparse_points) {
+               if (required_features->reparse_points && !supported_features->reparse_points)
+               {
+                       if (supported_features->symlink_reparse_points) {
+                               if (required_features->other_reparse_points) {
+                                       WARNING(
+                 "%lu files in %"TS" are reparse points that are neither\n"
+       "          symbolic links nor junction points and are not supported in\n"
+       "          %"TS".  These reparse points will not be extracted.",
+                                               required_features->other_reparse_points, loc,
+                                               mode);
+                               }
+                       } else {
                                WARNING(
-          "%lu files in %"TS" are reparse points that are neither\n"
-"          symbolic links nor junction points and are not supported in\n"
-"          %"TS".  These reparse points will not be extracted.",
-                                       required_features->other_reparse_points, loc,
-                                       mode);
+                 "%lu files in %"TS" are reparse points, which are\n"
+       "          not supported in %"TS" and will not be extracted.",
+                                       required_features->reparse_points, loc, mode);
                        }
-               } else {
-                       WARNING(
-          "%lu files in %"TS" are reparse points, which are\n"
-"          not supported in %"TS" and will not be extracted.",
-                               required_features->reparse_points, loc, mode);
                }
-       }
 
-       if (required_features->security_descriptors &&
-           !supported_features->security_descriptors)
-       {
-               WARNING(
-          "%lu files in %"TS" have Windows NT security descriptors,\n"
-"          but extracting security descriptors is not supported in\n"
-"          %"TS".  No security descriptors will be extracted.",
-                       required_features->security_descriptors, loc, mode);
-       }
+               if (required_features->security_descriptors &&
+                   !supported_features->security_descriptors)
+               {
+                       WARNING(
+                 "%lu files in %"TS" have Windows NT security descriptors,\n"
+       "          but extracting security descriptors is not supported in\n"
+       "          %"TS".  No security descriptors will be extracted.",
+                               required_features->security_descriptors, loc, mode);
+               }
 
-       if (required_features->short_names && !supported_features->short_names)
-       {
-               WARNING(
-          "%lu files in %"TS" have short (DOS) names, but\n"
-"          extracting short names is not supported in %"TS".\n"
-"          Short names will not be extracted.\n",
-                       required_features->short_names, loc, mode);
+               if (required_features->short_names && !supported_features->short_names)
+               {
+                       WARNING(
+                 "%lu files in %"TS" have short (DOS) names, but\n"
+       "          extracting short names is not supported in %"TS".\n"
+       "          Short names will not be extracted.\n",
+                               required_features->short_names, loc, mode);
+               }
        }
 
        if ((extract_flags & WIMLIB_EXTRACT_FLAG_UNIX_DATA) &&
@@ -2205,54 +2207,38 @@ do_extract_warnings(struct apply_ctx *ctx)
 #endif
 }
 
-/*
- * extract_tree - Extract a file or directory tree from the currently selected
- *               WIM image.
- *
- * @wim:       WIMStruct for the WIM file, with the desired image selected
- *             (as wim->current_image).
- *
- * @wim_source_path:
- *             "Canonical" (i.e. no leading or trailing slashes, path
- *             separators WIM_PATH_SEPARATOR) path inside the WIM image to
- *             extract.  An empty string means the full image.
- *
- * @target:
- *             Filesystem path to extract the file or directory tree to.
- *             (Or, with WIMLIB_EXTRACT_FLAG_NTFS: the name of a NTFS volume.)
- *
- * @extract_flags:
- *             WIMLIB_EXTRACT_FLAG_*.  Also, the private flag
- *             WIMLIB_EXTRACT_FLAG_MULTI_IMAGE will be set if this is being
- *             called through wimlib_extract_image() with WIMLIB_ALL_IMAGES as
- *             the image.
- *
- * @progress_func:
- *             If non-NULL, progress function for the extraction.  The messages
- *             that may be sent in this function are:
- *
- *             WIMLIB_PROGRESS_MSG_EXTRACT_TREE_BEGIN or
- *                     WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_BEGIN;
- *             WIMLIB_PROGRESS_MSG_EXTRACT_DIR_STRUCTURE_BEGIN;
- *             WIMLIB_PROGRESS_MSG_EXTRACT_DIR_STRUCTURE_END;
- *             WIMLIB_PROGRESS_MSG_EXTRACT_DENTRY;
- *             WIMLIB_PROGRESS_MSG_EXTRACT_STREAMS;
- *             WIMLIB_PROGRESS_MSG_APPLY_TIMESTAMPS;
- *             WIMLIB_PROGRESS_MSG_EXTRACT_TREE_END or
- *                     WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_END.
- *
- * Returns 0 on success; a positive WIMLIB_ERR_* code on failure.
- */
 static int
-extract_tree(WIMStruct *wim, const tchar *wim_source_path, const tchar *target,
-            int extract_flags, wimlib_progress_func_t progress_func)
+dentry_set_skipped(struct wim_dentry *dentry, void *_ignore)
+{
+       dentry->in_extraction_tree = 1;
+       dentry->extraction_skipped = 1;
+       return 0;
+}
+
+static int
+dentry_set_not_skipped(struct wim_dentry *dentry, void *_ignore)
+{
+       dentry->in_extraction_tree = 1;
+       dentry->extraction_skipped = 0;
+       return 0;
+}
+
+static int
+extract_trees(WIMStruct *wim, struct wim_dentry **trees, size_t num_trees,
+             const tchar *wim_source_path, const tchar *target,
+             int extract_flags, wimlib_progress_func_t progress_func)
 {
-       struct wim_dentry *root;
        struct wim_features required_features;
        struct apply_ctx ctx;
        int ret;
        struct wim_lookup_table_entry *lte;
 
+       wimlib_assert(num_trees != 0);
+       wimlib_assert(target != NULL);
+
+       if (num_trees > 1)
+               wimlib_assert((extract_flags & WIMLIB_EXTRACT_FLAG_PATHMODE));
+
        /* Start initializing the apply_ctx.  */
        memset(&ctx, 0, sizeof(struct apply_ctx));
        ctx.wim = wim;
@@ -2272,19 +2258,32 @@ extract_tree(WIMStruct *wim, const tchar *wim_source_path, const tchar *target,
        }
        INIT_LIST_HEAD(&ctx.stream_list);
 
-       /* Translate the path to extract into the corresponding
-        * `struct wim_dentry', which will be the root of the
-        * "dentry tree" to extract.  */
-       root = get_dentry(wim, wim_source_path);
-       if (!root) {
-               ERROR("Path \"%"TS"\" does not exist in WIM image %d",
-                     wim_source_path, wim->current_image);
-               ret = WIMLIB_ERR_PATH_DOES_NOT_EXIST;
-               goto out;
+       if (extract_flags & WIMLIB_EXTRACT_FLAG_PATHMODE) {
+               /* Path mode --- there may be multiple trees, and targets are
+                * set relative to the root of the image.
+                *
+                * Consider all dentries to be in the extraction tree, but
+                * assume all to be skipped unless in one of the subtrees being
+                * extracted or one of the ancestors of the subtrees up to the
+                * image root.  */
+               ctx.extract_root = wim_root_dentry(wim);
+               for_dentry_in_tree(ctx.extract_root, dentry_set_skipped, NULL);
+
+               for (size_t i = 0; i < num_trees; i++) {
+                       struct wim_dentry *d;
+
+                       for_dentry_in_tree(trees[i], dentry_set_not_skipped, NULL);
+                       d = trees[i];
+                       while (d != ctx.extract_root) {
+                               d = d->parent;
+                               dentry_set_not_skipped(d, NULL);
+                       }
+               }
+       } else {
+               ctx.extract_root = trees[0];
+               for_dentry_in_tree(ctx.extract_root, dentry_set_not_skipped, NULL);
        }
 
-       ctx.extract_root = root;
-
        /* Select the appropriate apply_operations based on the
         * platform and extract_flags.  */
 #ifdef __WIN32__
@@ -2309,11 +2308,14 @@ extract_tree(WIMStruct *wim, const tchar *wim_source_path, const tchar *target,
         */
        ret = ctx.ops->start_extract(target, &ctx);
        if (ret)
-               goto out;
+               goto out_dentry_reset_needs_extraction;
 
-       dentry_tree_get_features(root, &required_features);
+       /* Get and check the features required to extract the dentry tree.  */
+       dentry_tree_get_features(ctx.extract_root, &required_features);
        ret = do_feature_check(&required_features, &ctx.supported_features,
-                              extract_flags, ctx.ops, wim_source_path);
+                              extract_flags, ctx.ops,
+                              wim_source_path,
+                              !(extract_flags & WIMLIB_EXTRACT_FLAG_PATHMODE));
        if (ret)
                goto out_finish_or_abort_extract;
 
@@ -2328,8 +2330,9 @@ extract_tree(WIMStruct *wim, const tchar *wim_source_path, const tchar *target,
 
        /* Calculate the actual filename component of each extracted dentry.  In
         * the process, set the dentry->extraction_skipped flag on dentries that
-        * are being skipped for some reason (e.g. invalid filename).  */
-       ret = for_dentry_in_tree(root, dentry_calculate_extraction_path, &ctx);
+        * are being skipped because of filename or supported features problems.  */
+       ret = for_dentry_in_tree(ctx.extract_root,
+                                dentry_calculate_extraction_path, &ctx);
        if (ret)
                goto out_dentry_reset_needs_extraction;
 
@@ -2371,7 +2374,7 @@ extract_tree(WIMStruct *wim, const tchar *wim_source_path, const tchar *target,
         * directory tree.  (If not, extract_dentry_to_stdout() will
         * return an error.)  */
        if (extract_flags & WIMLIB_EXTRACT_FLAG_TO_STDOUT) {
-               ret = extract_dentry_to_stdout(root);
+               ret = extract_dentry_to_stdout(ctx.extract_root);
                goto out_teardown_stream_list;
        }
 
@@ -2388,17 +2391,20 @@ extract_tree(WIMStruct *wim, const tchar *wim_source_path, const tchar *target,
        }
 
        if (progress_func) {
-               progress_func(*wim_source_path ? WIMLIB_PROGRESS_MSG_EXTRACT_TREE_BEGIN :
-                                                WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_BEGIN,
-                             &ctx.progress);
+               int msg;
+               if (*wim_source_path || (extract_flags & WIMLIB_EXTRACT_FLAG_PATHMODE))
+                       msg = WIMLIB_PROGRESS_MSG_EXTRACT_TREE_BEGIN;
+               else
+                       msg = WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_BEGIN;
+               progress_func(msg, &ctx.progress);
        }
 
        if (!ctx.root_dentry_is_special)
        {
                tchar path[ctx.ops->path_max];
-               if (build_extraction_path(path, root, &ctx))
+               if (build_extraction_path(path, ctx.extract_root, &ctx))
                {
-                       ret = extract_inode(path, &ctx, root->d_inode);
+                       ret = extract_inode(path, &ctx, ctx.extract_root->d_inode);
                        if (ret)
                                goto out_free_realtarget;
                }
@@ -2425,15 +2431,14 @@ extract_tree(WIMStruct *wim, const tchar *wim_source_path, const tchar *target,
        }
 
        if (ctx.ops->requires_short_name_reordering) {
-               ret = for_dentry_in_tree(root, dentry_extract_dir_skeleton,
+               ret = for_dentry_in_tree(ctx.extract_root, dentry_extract_dir_skeleton,
                                         &ctx);
                if (ret)
                        goto out_free_realtarget;
        }
 
        /* Finally, the important part: extract the tree of files.  */
-       if (extract_flags & (WIMLIB_EXTRACT_FLAG_SEQUENTIAL |
-                            WIMLIB_EXTRACT_FLAG_FROM_PIPE)) {
+       if (!(extract_flags & WIMLIB_EXTRACT_FLAG_FILE_ORDER)) {
                /* Sequential extraction requested, so two passes are needed
                 * (one for directory structure, one for streams.)  */
                if (progress_func)
@@ -2441,7 +2446,7 @@ extract_tree(WIMStruct *wim, const tchar *wim_source_path, const tchar *target,
                                      &ctx.progress);
 
                if (!(extract_flags & WIMLIB_EXTRACT_FLAG_RESUME)) {
-                       ret = for_dentry_in_tree(root, dentry_extract_skeleton, &ctx);
+                       ret = for_dentry_in_tree(ctx.extract_root, dentry_extract_skeleton, &ctx);
                        if (ret)
                                goto out_free_realtarget;
                }
@@ -2461,7 +2466,7 @@ extract_tree(WIMStruct *wim, const tchar *wim_source_path, const tchar *target,
                if (progress_func)
                        progress_func(WIMLIB_PROGRESS_MSG_EXTRACT_DIR_STRUCTURE_BEGIN,
                                      &ctx.progress);
-               ret = for_dentry_in_tree(root, dentry_extract, &ctx);
+               ret = for_dentry_in_tree(ctx.extract_root, dentry_extract, &ctx);
                if (ret)
                        goto out_free_realtarget;
                if (progress_func)
@@ -2493,14 +2498,17 @@ extract_tree(WIMStruct *wim, const tchar *wim_source_path, const tchar *target,
        if (progress_func)
                progress_func(WIMLIB_PROGRESS_MSG_APPLY_TIMESTAMPS,
                              &ctx.progress);
-       ret = for_dentry_in_tree_depth(root, dentry_extract_final, &ctx);
+       ret = for_dentry_in_tree_depth(ctx.extract_root, dentry_extract_final, &ctx);
        if (ret)
                goto out_free_realtarget;
 
        if (progress_func) {
-               progress_func(*wim_source_path ? WIMLIB_PROGRESS_MSG_EXTRACT_TREE_END :
-                             WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_END,
-                             &ctx.progress);
+               int msg;
+               if (*wim_source_path || (extract_flags & WIMLIB_EXTRACT_FLAG_PATHMODE))
+                       msg = WIMLIB_PROGRESS_MSG_EXTRACT_TREE_END;
+               else
+                       msg = WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_END;
+               progress_func(msg, &ctx.progress);
        }
 
        do_extract_warnings(&ctx);
@@ -2511,12 +2519,10 @@ out_free_realtarget:
 out_teardown_stream_list:
        /* Free memory allocated as part of the mapping from each
         * wim_lookup_table_entry to the dentries that reference it.  */
-       if (ctx.extract_flags & WIMLIB_EXTRACT_FLAG_SEQUENTIAL)
+       if (!(ctx.extract_flags & WIMLIB_EXTRACT_FLAG_FILE_ORDER))
                list_for_each_entry(lte, &ctx.stream_list, extraction_list)
                        if (lte->out_refcnt > ARRAY_LEN(lte->inline_lte_dentries))
                                FREE(lte->lte_dentries);
-out_dentry_reset_needs_extraction:
-       for_dentry_in_tree(root, dentry_reset_needs_extraction, NULL);
 out_finish_or_abort_extract:
        if (ret) {
                if (ctx.ops->abort_extract)
@@ -2525,23 +2531,73 @@ out_finish_or_abort_extract:
                if (ctx.ops->finish_extract)
                        ret = ctx.ops->finish_extract(&ctx);
        }
-out:
+out_dentry_reset_needs_extraction:
+       for_dentry_in_tree(ctx.extract_root, dentry_reset_needs_extraction, NULL);
        return ret;
 }
 
-/* Validates a single wimlib_extract_command, mostly checking to make sure the
- * extract flags make sense. */
+/*
+ * extract_tree - Extract a file or directory tree from the currently selected
+ *               WIM image.
+ *
+ * @wim:       WIMStruct for the WIM file, with the desired image selected
+ *             (as wim->current_image).
+ *
+ * @wim_source_path:
+ *             "Canonical" (i.e. no leading or trailing slashes, path
+ *             separators WIM_PATH_SEPARATOR) path inside the WIM image to
+ *             extract.  An empty string means the full image.
+ *
+ * @target:
+ *             Filesystem path to extract the file or directory tree to.
+ *             (Or, with WIMLIB_EXTRACT_FLAG_NTFS: the name of a NTFS volume.)
+ *
+ * @extract_flags:
+ *             WIMLIB_EXTRACT_FLAG_*.  Also, the private flag
+ *             WIMLIB_EXTRACT_FLAG_MULTI_IMAGE will be set if this is being
+ *             called through wimlib_extract_image() with WIMLIB_ALL_IMAGES as
+ *             the image.
+ *
+ * @progress_func:
+ *             If non-NULL, progress function for the extraction.  The messages
+ *             that may be sent in this function are:
+ *
+ *             WIMLIB_PROGRESS_MSG_EXTRACT_TREE_BEGIN or
+ *                     WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_BEGIN;
+ *             WIMLIB_PROGRESS_MSG_EXTRACT_DIR_STRUCTURE_BEGIN;
+ *             WIMLIB_PROGRESS_MSG_EXTRACT_DIR_STRUCTURE_END;
+ *             WIMLIB_PROGRESS_MSG_EXTRACT_DENTRY;
+ *             WIMLIB_PROGRESS_MSG_EXTRACT_STREAMS;
+ *             WIMLIB_PROGRESS_MSG_APPLY_TIMESTAMPS;
+ *             WIMLIB_PROGRESS_MSG_EXTRACT_TREE_END or
+ *                     WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_END.
+ *
+ * Returns 0 on success; a positive WIMLIB_ERR_* code on failure.
+ */
 static int
-check_extract_command(struct wimlib_extract_command *cmd, int wim_header_flags)
+extract_tree(WIMStruct *wim, const tchar *wim_source_path,
+            const tchar *target, int extract_flags,
+            wimlib_progress_func_t progress_func)
 {
-       int extract_flags;
+       struct wim_dentry *root;
 
-       /* Empty destination path? */
-       if (cmd->fs_dest_path[0] == T('\0'))
-               return WIMLIB_ERR_INVALID_PARAM;
+       root = get_dentry(wim, wim_source_path, WIMLIB_CASE_PLATFORM_DEFAULT);
 
-       extract_flags = cmd->extract_flags;
+       if (root == NULL) {
+                 ERROR("Path \"%"TS"\" does not exist in WIM image %d",
+                       wim_source_path, wim->current_image);
+                 return WIMLIB_ERR_PATH_DOES_NOT_EXIST;
+       }
+       return extract_trees(wim, &root, 1, wim_source_path,
+                            target, extract_flags, progress_func);
+}
 
+/* Make sure the extraction flags make sense, and update them if needed.  */
+static int
+check_extract_flags(int extract_flags,
+                   const u32 wim_header_flags,
+                   int *updated_extract_flags_ret)
+{
        /* Check for invalid flag combinations  */
        if ((extract_flags &
             (WIMLIB_EXTRACT_FLAG_SYMLINK |
@@ -2566,13 +2622,13 @@ check_extract_command(struct wimlib_extract_command *cmd, int wim_header_flags)
              WIMLIB_EXTRACT_FLAG_FROM_PIPE)) == WIMLIB_EXTRACT_FLAG_RESUME)
                return WIMLIB_ERR_INVALID_PARAM;
 
-       if (extract_flags & WIMLIB_EXTRACT_FLAG_NTFS) {
 #ifndef WITH_NTFS_3G
+       if (extract_flags & WIMLIB_EXTRACT_FLAG_NTFS) {
                ERROR("wimlib was compiled without support for NTFS-3g, so\n"
                      "        we cannot apply a WIM image directly to a NTFS volume.");
                return WIMLIB_ERR_UNSUPPORTED;
-#endif
        }
+#endif
 
        if ((extract_flags & (WIMLIB_EXTRACT_FLAG_RPFIX |
                              WIMLIB_EXTRACT_FLAG_NORPFIX)) == 0)
@@ -2588,9 +2644,8 @@ check_extract_command(struct wimlib_extract_command *cmd, int wim_header_flags)
         * corresponding file or symbolic link data.  This needs to be handled
         * better.  */
        if ((extract_flags & (WIMLIB_EXTRACT_FLAG_UNIX_DATA |
-                             WIMLIB_EXTRACT_FLAG_SEQUENTIAL))
-                                   == (WIMLIB_EXTRACT_FLAG_UNIX_DATA |
-                                       WIMLIB_EXTRACT_FLAG_SEQUENTIAL))
+                             WIMLIB_EXTRACT_FLAG_FILE_ORDER))
+                                   == WIMLIB_EXTRACT_FLAG_UNIX_DATA)
        {
                if (extract_flags & WIMLIB_EXTRACT_FLAG_FROM_PIPE) {
                        WARNING("Setting UNIX file/owner group may "
@@ -2598,13 +2653,14 @@ check_extract_command(struct wimlib_extract_command *cmd, int wim_header_flags)
                                "          symbolic links "
                                "when applying from a pipe.");
                } else {
-                       extract_flags &= ~WIMLIB_EXTRACT_FLAG_SEQUENTIAL;
+                       extract_flags |= WIMLIB_EXTRACT_FLAG_FILE_ORDER;
                        WARNING("Disabling sequential extraction for "
                                "UNIX data mode");
                }
        }
 
-       cmd->extract_flags = extract_flags;
+       if (updated_extract_flags_ret)
+               *updated_extract_flags_ret = extract_flags;
        return 0;
 }
 
@@ -2635,7 +2691,16 @@ do_wimlib_extract_files(WIMStruct *wim,
 
        /* Check for problems with the extraction commands */
        for (size_t i = 0; i < num_cmds; i++) {
-               ret = check_extract_command(&cmds[i], wim->hdr.flags);
+
+               if (cmds[i].fs_dest_path[0] == T('\0'))
+                       return WIMLIB_ERR_INVALID_PARAM;
+
+               if (cmds[i].extract_flags & WIMLIB_EXTRACT_FLAG_GLOB_PATHS)
+                       return WIMLIB_ERR_INVALID_PARAM;
+
+               ret = check_extract_flags(cmds[i].extract_flags,
+                                         wim->hdr.flags,
+                                         &cmds[i].extract_flags);
                if (ret)
                        return ret;
                if (cmds[i].extract_flags & (WIMLIB_EXTRACT_FLAG_SYMLINK |
@@ -2880,8 +2945,6 @@ wimlib_extract_image_from_pipe(int pipe_fd, const tchar *image_num_or_name,
        if (extract_flags & WIMLIB_EXTRACT_FLAG_TO_STDOUT)
                return WIMLIB_ERR_INVALID_PARAM;
 
-       extract_flags |= WIMLIB_EXTRACT_FLAG_SEQUENTIAL;
-
        /* Read the WIM header from the pipe and get a WIMStruct to represent
         * the pipable WIM.  Caveats:  Unlike getting a WIMStruct with
         * wimlib_open_wim(), getting a WIMStruct in this way will result in
@@ -3039,3 +3102,159 @@ wimlib_extract_image(WIMStruct *wim,
        return do_wimlib_extract_image(wim, image, target, extract_flags,
                                       progress_func);
 }
+
+/* API function documented in wimlib.h  */
+WIMLIBAPI int
+wimlib_extract_pathlist(WIMStruct *wim, int image,
+                       const tchar *target,
+                       const tchar *path_list_file,
+                       int extract_flags,
+                       wimlib_progress_func_t progress_func)
+{
+       int ret;
+       tchar **paths;
+       size_t num_paths;
+       void *mem;
+
+       ret = read_path_list_file(path_list_file, &paths, &num_paths, &mem);
+       if (ret) {
+               ERROR("Failed to read path list file \"%"TS"\"",
+                     path_list_file);
+               return ret;
+       }
+
+       ret = wimlib_extract_paths(wim, image, target,
+                                  (const tchar * const *)paths, num_paths,
+                                  extract_flags, progress_func);
+       FREE(paths);
+       FREE(mem);
+       return ret;
+}
+
+struct append_dentry_ctx {
+       struct wim_dentry **dentries;
+       size_t num_dentries;
+       size_t num_alloc_dentries;
+};
+
+static int
+append_dentry_cb(struct wim_dentry *dentry, void *_ctx)
+{
+       struct append_dentry_ctx *ctx = _ctx;
+
+       if (ctx->num_dentries == ctx->num_alloc_dentries) {
+               struct wim_dentry **new_dentries;
+               size_t new_length;
+
+               new_length = max(ctx->num_alloc_dentries + 8,
+                                ctx->num_alloc_dentries * 3 / 2);
+               new_dentries = REALLOC(ctx->dentries,
+                                      new_length * sizeof(ctx->dentries[0]));
+               if (new_dentries == NULL)
+                       return WIMLIB_ERR_NOMEM;
+               ctx->dentries = new_dentries;
+               ctx->num_alloc_dentries = new_length;
+       }
+       ctx->dentries[ctx->num_dentries++] = dentry;
+       return 0;
+}
+
+/* API function documented in wimlib.h  */
+WIMLIBAPI int
+wimlib_extract_paths(WIMStruct *wim,
+                    int image,
+                    const tchar *target,
+                    const tchar * const *paths,
+                    size_t num_paths,
+                    int extract_flags,
+                    wimlib_progress_func_t progress_func)
+{
+       int ret;
+       struct append_dentry_ctx append_dentry_ctx = {
+               .dentries = NULL,
+               .num_dentries = 0,
+               .num_alloc_dentries = 0,
+       };
+       struct wim_dentry **trees;
+       size_t num_trees;
+
+       extract_flags &= WIMLIB_EXTRACT_MASK_PUBLIC;
+
+       if (wim == NULL || target == NULL || target[0] == T('\0') ||
+           (num_paths != 0 && paths == NULL))
+               return WIMLIB_ERR_INVALID_PARAM;
+
+       ret = check_extract_flags(extract_flags, wim->hdr.flags,
+                                 &extract_flags);
+       if (ret)
+               return ret;
+
+       ret = select_wim_image(wim, image);
+       if (ret)
+               return ret;
+
+       if (extract_flags & WIMLIB_EXTRACT_FLAG_GLOB_PATHS) {
+               u32 wildcard_flags = 0;
+
+               if (extract_flags & WIMLIB_EXTRACT_FLAG_STRICT_GLOB)
+                       wildcard_flags |= WILDCARD_FLAG_ERROR_IF_NO_MATCH;
+               else
+                       wildcard_flags |= WILDCARD_FLAG_WARN_IF_NO_MATCH;
+
+               if (default_ignore_case)
+                       wildcard_flags |= WILDCARD_FLAG_CASE_INSENSITIVE;
+
+               for (size_t i = 0; i < num_paths; i++) {
+                       ret = expand_wildcard(wim, paths[i],
+                                             append_dentry_cb,
+                                             &append_dentry_ctx,
+                                             wildcard_flags);
+                       if (ret) {
+                               trees = append_dentry_ctx.dentries;
+                               goto out_free_trees;
+                       }
+               }
+               trees = append_dentry_ctx.dentries;
+               num_trees = append_dentry_ctx.num_dentries;
+       } else {
+               trees = MALLOC(num_paths * sizeof(trees[0]));
+               if (trees == NULL)
+                       return WIMLIB_ERR_NOMEM;
+
+               for (size_t i = 0; i < num_paths; i++) {
+                       trees[i] = get_dentry(wim, paths[i],
+                                             WIMLIB_CASE_PLATFORM_DEFAULT);
+                       if (trees[i] == NULL) {
+                                 ERROR("Path \"%"TS"\" does not exist "
+                                       "in WIM image %d",
+                                       paths[i], wim->current_image);
+                                 ret = WIMLIB_ERR_PATH_DOES_NOT_EXIST;
+                                 goto out_free_trees;
+                       }
+               }
+               num_trees = num_paths;
+       }
+
+       if (num_trees == 0) {
+               ret = 0;
+               goto out_free_trees;
+       }
+
+       ret = extract_trees(wim, trees, num_trees,
+                           T(""), target,
+                           ((extract_flags &
+                               ~WIMLIB_EXTRACT_FLAG_GLOB_PATHS)
+                               | WIMLIB_EXTRACT_FLAG_PATHMODE),
+                           progress_func);
+
+       if (extract_flags & (WIMLIB_EXTRACT_FLAG_SYMLINK |
+                            WIMLIB_EXTRACT_FLAG_HARDLINK))
+       {
+               for_lookup_table_entry(wim->lookup_table,
+                                      lte_free_extracted_file,
+                                      NULL);
+       }
+out_free_trees:
+       FREE(trees);
+       return ret;
+}