Break down indexer into independent source files

* Generate test result output
* Add helper function to manage changing file extensions

1 files changed, 0 insertions, 958 deletions

diff --git a/src/cli/stasis_indexer/stasis_indexer.c b/src/cli/stasis_indexer/stasis_indexer.c
deleted file mode 100644
index f45f073..0000000
--- a/src/cli/stasis_indexer/stasis_indexer.c
+++ /dev/null
@@ -1,958 +0,0 @@
-#include <getopt.h>
-#include <fnmatch.h>
-#include "delivery.h"
-#include "junitxml.h"
-
-static struct option long_options[] = {
-        {"help", no_argument, 0, 'h'},
-        {"destdir", required_argument, 0, 'd'},
-        {"verbose", no_argument, 0, 'v'},
-        {"unbuffered", no_argument, 0, 'U'},
-        {"web", no_argument, 0, 'w'},
-        {0, 0, 0, 0},
-};
-
-const char *long_options_help[] = {
-        "Display this usage statement",
-        "Destination directory",
-        "Increase output verbosity",
-        "Disable line buffering",
-        "Generate HTML indexes (requires pandoc)",
-        NULL,
-};
-
-static void usage(char *name) {
-    int maxopts = sizeof(long_options) / sizeof(long_options[0]);
-    char *opts = calloc(maxopts + 1, sizeof(char));
-    for (int i = 0; i < maxopts; i++) {
-        opts[i] = (char) long_options[i].val;
-    }
-    printf("usage: %s [-%s] {{STASIS_ROOT}...}\n", name, opts);
-    guard_free(opts);
-
-    for (int i = 0; i < maxopts - 1; i++) {
-        char line[255] = {0};
-        sprintf(line, "  --%s  -%c  %-20s", long_options[i].name, long_options[i].val, long_options_help[i]);
-        puts(line);
-    }
-
-}
-
-int indexer_combine_rootdirs(const char *dest, char **rootdirs, const size_t rootdirs_total) {
-    char cmd[PATH_MAX];
-    char destdir_bare[PATH_MAX];
-    char destdir_with_output[PATH_MAX];
-    char *destdir = destdir_bare;
-
-    memset(cmd, 0, sizeof(cmd));
-    memset(destdir_bare, 0, sizeof(destdir_bare));
-    memset(destdir_with_output, 0, sizeof(destdir_bare));
-
-    strcpy(destdir_bare, dest);
-    strcpy(destdir_with_output, dest);
-    strcat(destdir_with_output, "/output");
-
-    if (!access(destdir_with_output, F_OK)) {
-        destdir = destdir_with_output;
-    }
-
-    sprintf(cmd, "rsync -ah%s --delete --exclude 'tools/' --exclude 'tmp/' --exclude 'build/' ", globals.verbose ? "v" : "q");
-    for (size_t i = 0; i < rootdirs_total; i++) {
-        char srcdir_bare[PATH_MAX] = {0};
-        char srcdir_with_output[PATH_MAX] = {0};
-        char *srcdir = srcdir_bare;
-        strcpy(srcdir_bare, rootdirs[i]);
-        strcpy(srcdir_with_output, rootdirs[i]);
-        strcat(srcdir_with_output, "/output");
-
-        if (access(srcdir_bare, F_OK)) {
-            fprintf(stderr, "%s does not exist\n", srcdir_bare);
-            continue;
-        }
-
-        if (!access(srcdir_with_output, F_OK)) {
-            srcdir = srcdir_with_output;
-        }
-        snprintf(cmd + strlen(cmd), sizeof(srcdir) - strlen(srcdir) + 4, "'%s'/ ", srcdir);
-    }
-    snprintf(cmd + strlen(cmd), sizeof(cmd) - strlen(destdir) + 1, " %s/", destdir);
-
-    if (globals.verbose) {
-        puts(cmd);
-    }
-
-    if (system(cmd)) {
-        return -1;
-    }
-    return 0;
-}
-
-int indexer_wheels(struct Delivery *ctx) {
-    return delivery_index_wheel_artifacts(ctx);
-}
-
-int indexer_load_metadata(struct Delivery *ctx, const char *filename) {
-    char line[STASIS_NAME_MAX] = {0};
-
-    FILE *fp = fopen(filename, "r");
-    if (!fp) {
-        return -1;
-    }
-
-    while (fgets(line, sizeof(line) - 1, fp) != NULL) {
-        char **parts = split(line, " ", 1);
-        char *name = parts[0];
-        char *value = parts[1];
-        strip(value);
-        if (!strcmp(name, "name")) {
-            ctx->meta.name = strdup(value);
-        } else if (!strcmp(name, "version")) {
-            ctx->meta.version = strdup(value);
-        } else if (!strcmp(name, "rc")) {
-            ctx->meta.rc = (int) strtol(value, NULL, 10);
-        } else if (!strcmp(name, "python")) {
-            ctx->meta.python = strdup(value);
-        } else if (!strcmp(name, "python_compact")) {
-            ctx->meta.python_compact = strdup(value);
-        } else if (!strcmp(name, "mission")) {
-            ctx->meta.mission = strdup(value);
-        } else if (!strcmp(name, "codename")) {
-            ctx->meta.codename = strdup(value);
-        } else if (!strcmp(name, "platform")) {
-            ctx->system.platform = split(value, " ", 0);
-        } else if (!strcmp(name, "arch")) {
-            ctx->system.arch = strdup(value);
-        } else if (!strcmp(name, "time")) {
-            ctx->info.time_str_epoch = strdup(value);
-        } else if (!strcmp(name, "release_fmt")) {
-            ctx->rules.release_fmt = strdup(value);
-        } else if (!strcmp(name, "release_name")) {
-            ctx->info.release_name = strdup(value);
-        } else if (!strcmp(name, "build_name_fmt")) {
-            ctx->rules.build_name_fmt = strdup(value);
-        } else if (!strcmp(name, "build_name")) {
-            ctx->info.build_name = strdup(value);
-        } else if (!strcmp(name, "build_number_fmt")) {
-            ctx->rules.build_number_fmt = strdup(value);
-        } else if (!strcmp(name, "build_number")) {
-            ctx->info.build_number = strdup(value);
-        } else if (!strcmp(name, "conda_installer_baseurl")) {
-            ctx->conda.installer_baseurl = strdup(value);
-        } else if (!strcmp(name, "conda_installer_name")) {
-            ctx->conda.installer_name = strdup(value);
-        } else if (!strcmp(name, "conda_installer_version")) {
-            ctx->conda.installer_version = strdup(value);
-        } else if (!strcmp(name, "conda_installer_platform")) {
-            ctx->conda.installer_platform = strdup(value);
-        } else if (!strcmp(name, "conda_installer_arch")) {
-            ctx->conda.installer_arch = strdup(value);
-        }
-        GENERIC_ARRAY_FREE(parts);
-    }
-    fclose(fp);
-
-    return 0;
-}
-
-int indexer_get_files(struct StrList **out, const char *path, const char *pattern, ...) {
-    va_list args;
-    va_start(args, pattern);
-    char userpattern[PATH_MAX] = {0};
-    vsprintf(userpattern, pattern, args);
-    va_end(args);
-    struct StrList *list = listdir(path);
-    if (!list) {
-        return -1;
-    }
-
-    if (!(*out)) {
-        (*out) = strlist_init();
-        if (!(*out)) {
-            guard_strlist_free(&list);
-            return -1;
-        }
-    }
-
-    size_t no_match = 0;
-    for (size_t i = 0; i < strlist_count(list); i++) {
-        char *item = strlist_item(list, i);
-        if (fnmatch(userpattern, item, 0)) {
-            no_match++;
-        } else {
-            strlist_append((out), item);
-        }
-    }
-    if (no_match >= strlist_count(list)) {
-        fprintf(stderr, "no files matching the pattern: %s\n", userpattern);
-        guard_strlist_free(&list);
-        return -1;
-    }
-    guard_strlist_free(&list);
-    return 0;
-}
-
-int get_latest_rc(struct Delivery ctx[], size_t nelem) {
-    int result = 0;
-    for (size_t i = 0; i < nelem; i++) {
-        if (ctx[i].meta.rc > result) {
-            result = ctx[i].meta.rc;
-        }
-    }
-    return result;
-}
-
-struct Delivery **get_latest_deliveries(struct Delivery ctx[], size_t nelem) {
-    struct Delivery **result = NULL;
-    int latest = 0;
-    size_t n = 0;
-
-    result = calloc(nelem + 1, sizeof(result));
-    if (!result) {
-        fprintf(stderr, "Unable to allocate %zu bytes for result delivery array: %s\n", nelem * sizeof(result), strerror(errno));
-        return NULL;
-    }
-
-    latest = get_latest_rc(ctx, nelem);
-    for (size_t i = 0; i < nelem; i++) {
-        if (ctx[i].meta.rc == latest) {
-            result[n] = &ctx[i];
-            n++;
-        }
-    }
-
-    return result;
-}
-
-int get_pandoc_version(size_t *result) {
-    *result = 0;
-    int state = 0;
-    char *version_str = shell_output("pandoc --version", &state);
-    if (state || !version_str) {
-        // an error occurred
-        return -1;
-    }
-
-    // Verify that we're looking at pandoc
-    if (strlen(version_str) > 7 && !strncmp(version_str, "pandoc ", 7)) {
-        // we have pandoc
-        char *v_begin = &version_str[7];
-        if (!v_begin) {
-            SYSERROR("unexpected pandoc output: %s", version_str);
-            return -1;
-        }
-        char *v_end = strchr(version_str, '\n');
-        if (v_end) {
-            *v_end = 0;
-        }
-
-        char **parts = split(v_begin, ".", 0);
-        if (!parts) {
-            SYSERROR("unable to split pandoc version string, '%s': %s", version_str, strerror(errno));
-            return -1;
-        }
-
-        size_t parts_total;
-        for (parts_total = 0; parts[parts_total] != NULL; parts_total++) {}
-
-        // generate the version as an integer
-        // note: pandoc version scheme never exceeds four elements (or bytes in this case)
-        for (size_t i = 0; i < 4; i++) {
-            unsigned char tmp = 0;
-            if (i < parts_total) {
-                // only process version elements we have. the rest will be zeros.
-                tmp = strtoul(parts[i], NULL, 10);
-            }
-            // pack version element into result
-            *result = (*result << 8) | tmp;
-        }
-    } else {
-        // invalid version string
-        return 1;
-    }
-
-    return 0;
-}
-
-int indexer_make_website(struct Delivery *ctx) {
-    const char *pattern = "*.md";
-
-    if (!find_program("pandoc")) {
-        fprintf(stderr, "pandoc is not installed: unable to generate HTML indexes\n");
-        return 0;
-    }
-
-    char *css_filename = calloc(PATH_MAX, sizeof(*css_filename));
-    if (!css_filename) {
-        SYSERROR("unable to allocate string for CSS file path: %s", strerror(errno));
-        return -1;
-    }
-
-    sprintf(css_filename, "%s/%s", globals.sysconfdir, "stasis_pandoc.css");
-    int have_css = access(css_filename, F_OK | R_OK) == 0;
-
-    char pandoc_versioned_args[255] = {0};
-    size_t pandoc_version = 0;
-
-    if (!get_pandoc_version(&pandoc_version)) {
-        // < 2.19
-        if (pandoc_version < 0x02130000) {
-            strcat(pandoc_versioned_args, "--self-contained ");
-        } else {
-            // >= 2.19
-            strcat(pandoc_versioned_args, "--embed-resources ");
-        }
-
-        // >= 1.15.0.4
-        if (pandoc_version >= 0x010f0004) {
-            strcat(pandoc_versioned_args, "--standalone ");
-        }
-
-        // >= 1.10.0.1
-        if (pandoc_version >= 0x010a0001) {
-            strcat(pandoc_versioned_args, "-f gfm+autolink_bare_uris ");
-        }
-
-        // > 3.1.9
-        if (pandoc_version > 0x03010900) {
-            strcat(pandoc_versioned_args, "-f gfm+alerts ");
-        }
-    }
-
-    struct StrList *dirs = strlist_init();
-    strlist_append(&dirs, ctx->storage.delivery_dir);
-    strlist_append(&dirs, ctx->storage.results_dir);
-
-    struct StrList *inputs = NULL;
-    for (size_t i = 0; i < strlist_count(dirs); i++) {
-        if (indexer_get_files(&inputs, ctx->storage.delivery_dir, pattern)) {
-            SYSERROR("%s does not contain files with pattern: %s", ctx->storage.delivery_dir, pattern);
-            guard_strlist_free(&inputs);
-            continue;
-        }
-        char *root = strlist_item(dirs, i);
-        for (size_t x = 0; x < strlist_count(inputs); x++) {
-            char cmd[PATH_MAX] = {0};
-            char *filename = strlist_item(inputs, x);
-            char fullpath_src[PATH_MAX] = {0};
-            char fullpath_dest[PATH_MAX] = {0};
-            sprintf(fullpath_src, "%s/%s", root, filename);
-            if (access(fullpath_src, F_OK)) {
-                continue;
-            }
-
-            // Replace *.md extension with *.html.
-            strcpy(fullpath_dest, fullpath_src);
-            char *ext = strrchr(fullpath_dest, '.');
-            if (ext) {
-                *ext = '\0';
-            }
-            strcat(fullpath_dest, ".html");
-
-            // Converts a markdown file to html
-            strcpy(cmd, "pandoc ");
-            strcat(cmd, pandoc_versioned_args);
-            if (have_css) {
-                strcat(cmd, "--css ");
-                strcat(cmd, css_filename);
-            }
-            strcat(cmd, " ");
-            strcat(cmd, "--metadata title=\"STASIS\" ");
-            strcat(cmd, "-o ");
-            strcat(cmd, fullpath_dest);
-            strcat(cmd, " ");
-            strcat(cmd, fullpath_src);
-            if (globals.verbose) {
-                puts(cmd);
-            }
-            // This might be negative when killed by a signal.
-            // Otherwise, the return code is not critical to us.
-            if (system(cmd) < 0) {
-                guard_free(css_filename);
-                guard_strlist_free(&dirs);
-                return 1;
-            }
-            if (file_replace_text(fullpath_dest, ".md", ".html", 0)) {
-                // inform-only
-                SYSERROR("%s: failed to rewrite *.md urls with *.html extension", fullpath_dest);
-            }
-
-            // Link the nearest README.html to index.html
-            if (!strcmp(filename, "README.md")) {
-                char link_from[PATH_MAX] = {0};
-                char link_dest[PATH_MAX] = {0};
-                strcpy(link_from, "README.html");
-                sprintf(link_dest, "%s/%s", root, "index.html");
-                if (symlink(link_from, link_dest)) {
-                    SYSERROR("Warning: symlink(%s, %s) failed: %s", link_from, link_dest, strerror(errno));
-                }
-            }
-        }
-        guard_strlist_free(&inputs);
-    }
-    guard_free(css_filename);
-    guard_strlist_free(&dirs);
-
-    return 0;
-}
-
-static int micromamba_configure(const struct Delivery *ctx, struct MicromambaInfo *m) {
-    int status = 0;
-    char *micromamba_prefix = NULL;
-    if (asprintf(&micromamba_prefix, "%s/bin", ctx->storage.tools_dir) < 0) {
-        return -1;
-    }
-    m->conda_prefix = globals.conda_install_prefix;
-    m->micromamba_prefix = micromamba_prefix;
-
-    size_t pathvar_len = (strlen(getenv("PATH")) + strlen(m->micromamba_prefix) + strlen(m->conda_prefix)) + 3 + 4 + 1;
-    // ^^^^^^^^^^^^^^^^^^
-    // 3 = separators
-    // 4 = chars (/bin)
-    // 1 = nul terminator
-    char *pathvar = calloc(pathvar_len, sizeof(*pathvar));
-    if (!pathvar) {
-        SYSERROR("%s", "Unable to allocate bytes for temporary path string");
-        exit(1);
-    }
-    snprintf(pathvar, pathvar_len, "%s/bin:%s:%s", m->conda_prefix, m->micromamba_prefix, getenv("PATH"));
-    setenv("PATH", pathvar, 1);
-    guard_free(pathvar);
-
-    status += micromamba(m, "config prepend --env channels conda-forge");
-    if (!globals.verbose) {
-        status += micromamba(m, "config set --env quiet true");
-    }
-    status += micromamba(m, "config set --env always_yes true");
-    status += micromamba(m, "install conda-build pandoc");
-
-    return status;
-}
-
-int indexer_conda(struct Delivery *ctx, struct MicromambaInfo m) {
-    int status = 0;
-
-    status += micromamba(&m, "run conda index %s", ctx->storage.conda_artifact_dir);
-    return status;
-}
-
-static struct StrList *get_architectures(struct Delivery ctx[], size_t nelem) {
-    struct StrList *architectures = strlist_init();
-    for (size_t i = 0; i < nelem; i++) {
-        if (!strstr_array(architectures->data, ctx[i].system.arch)) {
-            strlist_append(&architectures, ctx[i].system.arch);
-        }
-    }
-    return architectures;
-}
-
-static struct StrList *get_platforms(struct Delivery ctx[], size_t nelem) {
-    struct StrList *platforms = strlist_init();
-    for (size_t i = 0; i < nelem; i++) {
-        if (!strstr_array(platforms->data, ctx[i].system.platform[DELIVERY_PLATFORM_RELEASE])) {
-            strlist_append(&platforms, ctx[i].system.platform[DELIVERY_PLATFORM_RELEASE]);
-        }
-    }
-    return platforms;
-}
-
-int indexer_symlinks(struct Delivery ctx[], size_t nelem) {
-    struct Delivery **data = NULL;
-    data = get_latest_deliveries(ctx, nelem);
-    //int latest = get_latest_rc(ctx, nelem);
-
-    if (!pushd(ctx->storage.delivery_dir)) {
-        for (size_t i = 0; i < nelem; i++) {
-            char link_name_spec[PATH_MAX];
-            char link_name_readme[PATH_MAX];
-
-            char file_name_spec[PATH_MAX];
-            char file_name_readme[PATH_MAX];
-
-            if (!data[i]) {
-                continue;
-            }
-            sprintf(link_name_spec, "latest-py%s-%s-%s.yml", data[i]->meta.python_compact, data[i]->system.platform[DELIVERY_PLATFORM_RELEASE], data[i]->system.arch);
-            sprintf(file_name_spec, "%s.yml", data[i]->info.release_name);
-
-            sprintf(link_name_readme, "README-py%s-%s-%s.md", data[i]->meta.python_compact, data[i]->system.platform[DELIVERY_PLATFORM_RELEASE], data[i]->system.arch);
-            sprintf(file_name_readme, "README-%s.md", data[i]->info.release_name);
-
-            if (!access(link_name_spec, F_OK)) {
-                if (unlink(link_name_spec)) {
-                    fprintf(stderr, "Unable to remove spec link: %s\n", link_name_spec);
-                }
-            }
-            if (!access(link_name_readme, F_OK)) {
-                if (unlink(link_name_readme)) {
-                    fprintf(stderr, "Unable to remove readme link: %s\n", link_name_readme);
-                }
-            }
-
-            if (globals.verbose) {
-                printf("%s -> %s\n", file_name_spec, link_name_spec);
-            }
-            if (symlink(file_name_spec, link_name_spec)) {
-                fprintf(stderr, "Unable to link %s as %s\n", file_name_spec, link_name_spec);
-            }
-
-            if (globals.verbose) {
-                printf("%s -> %s\n", file_name_readme, link_name_readme);
-            }
-            if (symlink(file_name_readme, link_name_readme)) {
-                fprintf(stderr, "Unable to link %s as %s\n", file_name_readme, link_name_readme);
-            }
-        }
-        popd();
-    } else {
-        fprintf(stderr, "Unable to enter delivery directory: %s\n", ctx->storage.delivery_dir);
-        guard_free(data);
-        return -1;
-    }
-
-    // "latest" is an array of pointers to ctx[]. Do not free the contents of the array.
-    guard_free(data);
-    return 0;
-}
-
-int indexer_readmes(struct Delivery ctx[], size_t nelem) {
-    struct Delivery **latest = NULL;
-    latest = get_latest_deliveries(ctx, nelem);
-
-    char indexfile[PATH_MAX] = {0};
-    sprintf(indexfile, "%s/README.md", ctx->storage.delivery_dir);
-
-    if (!pushd(ctx->storage.delivery_dir)) {
-        FILE *indexfp = fopen(indexfile, "w+");
-        if (!indexfp) {
-            fprintf(stderr, "Unable to open %s for writing\n", indexfile);
-            return -1;
-        }
-        struct StrList *archs = get_architectures(*latest, nelem);
-        struct StrList *platforms = get_platforms(*latest, nelem);
-
-        fprintf(indexfp, "# %s-%s\n\n", ctx->meta.name, ctx->meta.version);
-        fprintf(indexfp, "## Current Release\n\n");
-        for (size_t p = 0; p < strlist_count(platforms); p++) {
-            char *platform = strlist_item(platforms, p);
-            for (size_t a = 0; a < strlist_count(archs); a++) {
-                char *arch = strlist_item(archs, a);
-                int have_combo = 0;
-                for (size_t i = 0; i < nelem; i++) {
-                    if (latest[i] && latest[i]->system.platform) {
-                        if (strstr(latest[i]->system.platform[DELIVERY_PLATFORM_RELEASE], platform) &&
-                            strstr(latest[i]->system.arch, arch)) {
-                            have_combo = 1;
-                        }
-                    }
-                }
-                if (!have_combo) {
-                    continue;
-                }
-                fprintf(indexfp, "### %s-%s\n\n", platform, arch);
-
-                fprintf(indexfp, "|Release|Info|Receipt|\n");
-                fprintf(indexfp, "|:----:|:----:|:----:|\n");
-                for (size_t i = 0; i < nelem; i++) {
-                    char link_name[PATH_MAX];
-                    char readme_name[PATH_MAX];
-                    char conf_name[PATH_MAX];
-                    char conf_name_relative[PATH_MAX];
-                    if (!latest[i]) {
-                        continue;
-                    }
-                    sprintf(link_name, "latest-py%s-%s-%s.yml", latest[i]->meta.python_compact, latest[i]->system.platform[DELIVERY_PLATFORM_RELEASE], latest[i]->system.arch);
-                    sprintf(readme_name, "README-py%s-%s-%s.md", latest[i]->meta.python_compact, latest[i]->system.platform[DELIVERY_PLATFORM_RELEASE], latest[i]->system.arch);
-                    sprintf(conf_name, "%s.ini", latest[i]->info.release_name);
-                    sprintf(conf_name_relative, "../config/%s-rendered.ini", latest[i]->info.release_name);
-                    if (strstr(link_name, platform) && strstr(link_name, arch)) {
-                        fprintf(indexfp, "|[%s](%s)|[%s](%s)|[%s](%s)|\n", link_name, link_name, readme_name, readme_name, conf_name, conf_name_relative);
-                    }
-                }
-                fprintf(indexfp, "\n");
-            }
-            fprintf(indexfp, "\n");
-        }
-        guard_strlist_free(&archs);
-        guard_strlist_free(&platforms);
-        fclose(indexfp);
-        popd();
-    } else {
-        fprintf(stderr, "Unable to enter delivery directory: %s\n", ctx->storage.delivery_dir);
-        guard_free(latest);
-        return -1;
-    }
-
-    // "latest" is an array of pointers to ctxs[]. Do not free the contents of the array.
-    guard_free(latest);
-    return 0;
-}
-
-int indexer_junitxml_report(struct Delivery ctx[], size_t nelem) {
-    struct Delivery **latest = NULL;
-    latest = get_latest_deliveries(ctx, nelem);
-
-    char indexfile[PATH_MAX] = {0};
-    sprintf(indexfile, "%s/README.md", ctx->storage.results_dir);
-
-    struct StrList *file_listing = listdir(ctx->storage.results_dir);
-    if (!file_listing) {
-        // no test results to process
-        return 0;
-    }
-
-    if (!pushd(ctx->storage.results_dir)) {
-        FILE *indexfp = fopen(indexfile, "w+");
-        if (!indexfp) {
-            fprintf(stderr, "Unable to open %s for writing\n", indexfile);
-            return -1;
-        }
-        struct StrList *archs = get_architectures(*latest, nelem);
-        struct StrList *platforms = get_platforms(*latest, nelem);
-
-        fprintf(indexfp, "# %s-%s Test Report\n\n", ctx->meta.name, ctx->meta.version);
-        fprintf(indexfp, "## Current Release\n\n");
-        for (size_t p = 0; p < strlist_count(platforms); p++) {
-            char *platform = strlist_item(platforms, p);
-            for (size_t a = 0; a < strlist_count(archs); a++) {
-                char *arch = strlist_item(archs, a);
-                int have_combo = 0;
-                for (size_t i = 0; i < nelem; i++) {
-                    if (latest[i] && latest[i]->system.platform) {
-                        if (strstr(latest[i]->system.platform[DELIVERY_PLATFORM_RELEASE], platform) &&
-                            strstr(latest[i]->system.arch, arch)) {
-                            have_combo = 1;
-                            break;
-                        }
-                    }
-                }
-                if (!have_combo) {
-                    continue;
-                }
-                fprintf(indexfp, "### %s-%s\n\n", platform, arch);
-
-                fprintf(indexfp, "|Suite|Duration|Fail    |Skip |Error |\n");
-                fprintf(indexfp, "|:----|:------:|:------:|:---:|:----:|\n");
-                for (size_t f = 0; f < strlist_count(file_listing); f++) {
-                    char *filename = strlist_item(file_listing, f);
-                    if (!endswith(filename, ".xml")) {
-                        continue;
-                    }
-
-                    if (strstr(filename, platform) && strstr(filename, arch)) {
-                        struct JUNIT_Testsuite *testsuite = junitxml_testsuite_read(filename);
-                        if (testsuite) {
-                            if (globals.verbose) {
-                                printf("%s: duration: %0.4f, failed: %d, skipped: %d, errors: %d\n", filename, testsuite->time, testsuite->failures, testsuite->skipped, testsuite->errors);
-                            }
-                            fprintf(indexfp, "|[%s](%s)|%0.4f|%d|%d|%d|\n", filename, filename, testsuite->time, testsuite->failures, testsuite->skipped, testsuite->errors);
-                            /*
-                             * TODO: Display failure/skip/error output.
-                             *
-                            for (size_t i = 0; i < testsuite->_tc_inuse; i++) {
-                                if (testsuite->testcase[i]->tc_result_state_type) {
-                                    printf("testcase: %s :: %s\n", testsuite->testcase[i]->classname, testsuite->testcase[i]->name);
-                                    if (testsuite->testcase[i]->tc_result_state_type == JUNIT_RESULT_STATE_FAILURE) {
-                                        printf("failure: %s\n", testsuite->testcase[i]->result_state.failure->message);
-                                    } else if (testsuite->testcase[i]->tc_result_state_type == JUNIT_RESULT_STATE_SKIPPED) {
-                                        printf("skipped: %s\n", testsuite->testcase[i]->result_state.skipped->message);
-                                    }
-                                }
-                            }
-                             */
-                            junitxml_testsuite_free(&testsuite);
-                        } else {
-                            fprintf(stderr, "bad test suite: %s: %s\n", strerror(errno), filename);
-                            continue;
-                        }
-                    }
-                }
-                fprintf(indexfp, "\n");
-            }
-            fprintf(indexfp, "\n");
-        }
-        guard_strlist_free(&archs);
-        guard_strlist_free(&platforms);
-        fclose(indexfp);
-        popd();
-    } else {
-        fprintf(stderr, "Unable to enter delivery directory: %s\n", ctx->storage.delivery_dir);
-        guard_free(latest);
-        return -1;
-    }
-
-    // "latest" is an array of pointers to ctxs[]. Do not free the contents of the array.
-    guard_free(latest);
-    return 0;
-}
-
-void indexer_init_dirs(struct Delivery *ctx, const char *workdir) {
-    path_store(&ctx->storage.root, PATH_MAX, workdir, "");
-    path_store(&ctx->storage.tmpdir, PATH_MAX, ctx->storage.root, "tmp");
-    if (delivery_init_tmpdir(ctx)) {
-        fprintf(stderr, "Failed to configure temporary storage directory\n");
-        exit(1);
-    }
-    path_store(&ctx->storage.output_dir, PATH_MAX, ctx->storage.root, "");
-    path_store(&ctx->storage.tools_dir, PATH_MAX, ctx->storage.output_dir, "tools");
-    path_store(&globals.conda_install_prefix, PATH_MAX, ctx->storage.tools_dir, "conda");
-    path_store(&ctx->storage.cfgdump_dir, PATH_MAX, ctx->storage.output_dir, "config");
-    path_store(&ctx->storage.meta_dir, PATH_MAX, ctx->storage.output_dir, "meta");
-    path_store(&ctx->storage.delivery_dir, PATH_MAX, ctx->storage.output_dir, "delivery");
-    path_store(&ctx->storage.package_dir, PATH_MAX, ctx->storage.output_dir, "packages");
-    path_store(&ctx->storage.results_dir, PATH_MAX, ctx->storage.output_dir, "results");
-    path_store(&ctx->storage.wheel_artifact_dir, PATH_MAX, ctx->storage.package_dir, "wheels");
-    path_store(&ctx->storage.conda_artifact_dir, PATH_MAX, ctx->storage.package_dir, "conda");
-
-    char newpath[PATH_MAX] = {0};
-    if (getenv("PATH")) {
-        sprintf(newpath, "%s/bin:%s", ctx->storage.tools_dir, getenv("PATH"));
-        setenv("PATH", newpath, 1);
-    } else {
-        SYSERROR("%s", "environment variable PATH is undefined. Unable to continue.");
-        exit(1);
-    }
-}
-
-static int sort_deliveries_cmpfn(const void *a, const void *b) {
-    const struct Delivery *delivery1 = (struct Delivery *) a;
-    const size_t delivery1_python = strtoul(delivery1->meta.python_compact, NULL, 10);
-    const struct Delivery *delivery2 = (struct Delivery *) b;
-    const size_t delivery2_python = strtoul(delivery2->meta.python_compact, NULL, 10);
-
-    if (delivery2_python > delivery1_python) {
-        return 1;
-    }
-    if (delivery2_python < delivery1_python) {
-        return -1;
-    }
-    return 0;
-}
-
-int main(int argc, char *argv[]) {
-    size_t rootdirs_total = 0;
-    char *destdir = NULL;
-    char **rootdirs = NULL;
-    int do_html = 0;
-    int c = 0;
-    int option_index = 0;
-    while ((c = getopt_long(argc, argv, "hd:vUw", long_options, &option_index)) != -1) {
-        switch (c) {
-            case 'h':
-                usage(path_basename(argv[0]));
-                exit(0);
-            case 'd':
-                if (mkdir(optarg, 0755)) {
-                    if (errno != 0 && errno != EEXIST) {
-                        SYSERROR("Unable to create destination directory, '%s': %s", optarg, strerror(errno));
-                        exit(1);
-                    }
-                }
-                destdir = realpath(optarg, NULL);
-                break;
-            case 'U':
-                fflush(stdout);
-                fflush(stderr);
-                setvbuf(stdout, NULL, _IONBF, 0);
-                setvbuf(stderr, NULL, _IONBF, 0);
-                break;
-            case 'v':
-                globals.verbose = 1;
-                break;
-            case 'w':
-                do_html = 1;
-                break;
-            case '?':
-            default:
-                exit(1);
-        }
-    }
-
-    int current_index = optind;
-    if (optind < argc) {
-        rootdirs_total = argc - current_index;
-        rootdirs = calloc(rootdirs_total + 1, sizeof(**rootdirs));
-
-        int i = 0;
-        while (optind < argc) {
-            if (argv[optind]) {
-                if (access(argv[optind], F_OK) < 0) {
-                    fprintf(stderr, "%s: %s\n", argv[optind], strerror(errno));
-                    exit(1);
-                }
-            }
-            // use first positional argument
-            rootdirs[i] = realpath(argv[optind], NULL);
-            optind++;
-            break;
-        }
-    }
-
-    if (isempty(destdir)) {
-        if (mkdir("output", 0755)) {
-            if (errno != 0 && errno != EEXIST) {
-                SYSERROR("Unable to create destination directory, '%s': %s", "output", strerror(errno));
-                exit(1);
-            }
-        }
-        destdir = realpath("output", NULL);
-    }
-
-    if (!rootdirs || !rootdirs_total) {
-        fprintf(stderr, "You must specify at least one STASIS root directory to index\n");
-        exit(1);
-    } else {
-        for (size_t i = 0; i < rootdirs_total; i++) {
-            if (isempty(rootdirs[i]) || !strcmp(rootdirs[i], "/") || !strcmp(rootdirs[i], "\\")) {
-                SYSERROR("Unsafe directory: %s", rootdirs[i]);
-                exit(1);
-            } else if (access(rootdirs[i], F_OK)) {
-                SYSERROR("%s: %s", rootdirs[i], strerror(errno));
-                exit(1);
-            }
-        }
-    }
-
-    char stasis_sysconfdir_tmp[PATH_MAX];
-    if (getenv("STASIS_SYSCONFDIR")) {
-        strncpy(stasis_sysconfdir_tmp, getenv("STASIS_SYSCONFDIR"), sizeof(stasis_sysconfdir_tmp) - 1);
-    } else {
-        strncpy(stasis_sysconfdir_tmp, STASIS_SYSCONFDIR, sizeof(stasis_sysconfdir_tmp) - 1);
-    }
-
-    globals.sysconfdir = realpath(stasis_sysconfdir_tmp, NULL);
-    if (!globals.sysconfdir) {
-        msg(STASIS_MSG_ERROR | STASIS_MSG_L1, "Unable to resolve path to configuration directory: %s\n", stasis_sysconfdir_tmp);
-        exit(1);
-    }
-
-    char workdir_template[PATH_MAX] = {0};
-    char *system_tmp = getenv("TMPDIR");
-    if (system_tmp) {
-        strcat(workdir_template, system_tmp);
-    } else {
-        strcat(workdir_template, "/tmp");
-    }
-    strcat(workdir_template, "/stasis-combine.XXXXXX");
-    char *workdir = mkdtemp(workdir_template);
-    if (!workdir) {
-        SYSERROR("Unable to create temporary directory: %s", workdir_template);
-        exit(1);
-    } else if (isempty(workdir) || !strcmp(workdir, "/") || !strcmp(workdir, "\\")) {
-        SYSERROR("Unsafe directory: %s", workdir);
-        exit(1);
-    }
-
-    struct Delivery ctx = {0};
-
-    printf(BANNER, VERSION, AUTHOR);
-
-    indexer_init_dirs(&ctx, workdir);
-
-    msg(STASIS_MSG_L1, "%s delivery root %s\n",
-        rootdirs_total > 1 ? "Merging" : "Indexing",
-        rootdirs_total > 1 ? "directories" : "directory");
-    if (indexer_combine_rootdirs(workdir, rootdirs, rootdirs_total)) {
-        SYSERROR("%s", "Copy operation failed");
-        rmtree(workdir);
-        exit(1);
-    }
-
-    if (access(ctx.storage.conda_artifact_dir, F_OK)) {
-        mkdirs(ctx.storage.conda_artifact_dir, 0755);
-    }
-
-    if (access(ctx.storage.wheel_artifact_dir, F_OK)) {
-        mkdirs(ctx.storage.wheel_artifact_dir, 0755);
-    }
-
-    struct MicromambaInfo m;
-    if (micromamba_configure(&ctx, &m)) {
-        SYSERROR("%s", "Unable to configure micromamba");
-        exit(1);
-    }
-
-    msg(STASIS_MSG_L1, "Indexing conda packages\n");
-    if (indexer_conda(&ctx, m)) {
-        SYSERROR("%s", "Conda package indexing operation failed");
-        exit(1);
-    }
-
-    msg(STASIS_MSG_L1, "Indexing wheel packages\n");
-    if (indexer_wheels(&ctx)) {
-        SYSERROR("%s", "Python package indexing operation failed");
-        exit(1);
-    }
-
-    msg(STASIS_MSG_L1, "Loading metadata\n");
-    struct StrList *metafiles = NULL;
-    indexer_get_files(&metafiles, ctx.storage.meta_dir, "*.stasis");
-    strlist_sort(metafiles, STASIS_SORT_LEN_ASCENDING);
-    struct Delivery local[strlist_count(metafiles)];
-
-    for (size_t i = 0; i < strlist_count(metafiles); i++) {
-        char *item = strlist_item(metafiles, i);
-        memset(&local[i], 0, sizeof(ctx));
-        memcpy(&local[i], &ctx, sizeof(ctx));
-        char path[PATH_MAX];
-        sprintf(path, "%s/%s", ctx.storage.meta_dir, item);
-        if (globals.verbose) {
-            puts(path);
-        }
-        indexer_load_metadata(&local[i], path);
-    }
-    qsort(local, strlist_count(metafiles), sizeof(*local), sort_deliveries_cmpfn);
-
-    msg(STASIS_MSG_L1, "Generating links to latest release iteration\n");
-    if (indexer_symlinks(local, strlist_count(metafiles))) {
-        SYSERROR("%s", "Link generation failed");
-        exit(1);
-    }
-
-    msg(STASIS_MSG_L1, "Generating README.md\n");
-    if (indexer_readmes(local, strlist_count(metafiles))) {
-        SYSERROR("%s", "README indexing operation failed");
-        exit(1);
-    }
-
-    msg(STASIS_MSG_L1, "Indexing test results\n");
-    if (indexer_junitxml_report(local, strlist_count(metafiles))) {
-        SYSERROR("%s", "Test result indexing operation failed");
-        exit(1);
-    }
-
-    if (do_html) {
-        msg(STASIS_MSG_L1, "Generating HTML indexes\n");
-        if (indexer_make_website(local)) {
-            SYSERROR("%s", "Site creation failed");
-            exit(1);
-        }
-    }
-
-    msg(STASIS_MSG_L1, "Copying indexed delivery to '%s'\n", destdir);
-    char cmd[PATH_MAX] = {0};
-    sprintf(cmd, "rsync -ah%s --delete --exclude 'tmp/' --exclude 'tools/' '%s/' '%s/'", globals.verbose ? "v" : "q", workdir, destdir);
-    guard_free(destdir);
-
-    if (globals.verbose) {
-        puts(cmd);
-    }
-
-    if (system(cmd)) {
-        SYSERROR("%s", "Copy operation failed");
-        rmtree(workdir);
-        exit(1);
-    }
-
-    msg(STASIS_MSG_L1, "Removing work directory: %s\n", workdir);
-    if (rmtree(workdir)) {
-        SYSERROR("Failed to remove work directory: %s", strerror(errno));
-    }
-
-    guard_free(destdir);
-    GENERIC_ARRAY_FREE(rootdirs);
-    guard_strlist_free(&metafiles);
-    delivery_free(&ctx);
-    globals_free();
-    msg(STASIS_MSG_L1, "Done!\n");
-    return 0;
-}