lib/rpminstall.c

Go to the documentation of this file.

#include "system.h"

#include <rpmcli.h>

#include "rpmdb.h"
#include "rpmds.h"

#include "rpmte.h"      /* XXX: rpmts.h needs this for rpmtsScoreEntries */
#define _RPMTS_INTERNAL         /* ts->goal, ts->dbmode, ts->suggests */
#include "rpmts.h"

#include "manifest.h"
#include "misc.h"       /* XXX for rpmGlob() */
#include "debug.h"

/*@access rpmts @*/     /* XXX ts->goal, ts->dbmode */
/*@access IDTX @*/
/*@access IDT @*/

/*@unchecked@*/
int rpmcliPackagesTotal = 0;
/*@unchecked@*/
int rpmcliHashesCurrent = 0;
/*@unchecked@*/
int rpmcliHashesTotal = 0;
/*@unchecked@*/
int rpmcliProgressCurrent = 0;
/*@unchecked@*/
int rpmcliProgressTotal = 0;

static void printHash(const unsigned long amount, const unsigned long total)
        /*@globals rpmcliHashesCurrent, rpmcliHashesTotal,
                rpmcliProgressCurrent, fileSystem @*/
        /*@modifies rpmcliHashesCurrent, rpmcliHashesTotal,
                rpmcliProgressCurrent, fileSystem @*/
{
    int hashesNeeded;

    rpmcliHashesTotal = (isatty (STDOUT_FILENO) ? 44 : 50);

    if (rpmcliHashesCurrent != rpmcliHashesTotal) {
/*@+relaxtypes@*/
        float pct = (total ? (((float) amount) / total) : 1.0);
        hashesNeeded = (rpmcliHashesTotal * pct) + 0.5;
/*@=relaxtypes@*/
        while (hashesNeeded > rpmcliHashesCurrent) {
            if (isatty (STDOUT_FILENO)) {
                int i;
                for (i = 0; i < rpmcliHashesCurrent; i++)
                    (void) putchar ('#');
                for (; i < rpmcliHashesTotal; i++)
                    (void) putchar (' ');
                fprintf(stdout, "(%3d%%)", (int)((100 * pct) + 0.5));
                for (i = 0; i < (rpmcliHashesTotal + 6); i++)
                    (void) putchar ('\b');
            } else
                fprintf(stdout, "#");

            rpmcliHashesCurrent++;
        }
        (void) fflush(stdout);

        if (rpmcliHashesCurrent == rpmcliHashesTotal) {
            int i;
            rpmcliProgressCurrent++;
            if (isatty(STDOUT_FILENO)) {
                for (i = 1; i < rpmcliHashesCurrent; i++)
                    (void) putchar ('#');
/*@+relaxtypes@*/
                pct = (rpmcliProgressTotal
                    ? (((float) rpmcliProgressCurrent) / rpmcliProgressTotal)
                    : 1);
/*@=relaxtypes@*/
                fprintf(stdout, " [%3d%%]", (int)((100 * pct) + 0.5));
            }
            fprintf(stdout, "\n");
        }
        (void) fflush(stdout);
    }
}

void * rpmShowProgress(/*@null@*/ const void * arg,
                        const rpmCallbackType what,
                        const unsigned long amount,
                        const unsigned long total,
                        /*@null@*/ fnpyKey key,
                        /*@null@*/ void * data)
        /*@globals rpmcliHashesCurrent, rpmcliProgressCurrent, rpmcliProgressTotal,
                fileSystem @*/
        /*@modifies rpmcliHashesCurrent, rpmcliProgressCurrent, rpmcliProgressTotal,
                fileSystem @*/
{
/*@-abstract -castexpose @*/
    Header h = (Header) arg;
/*@=abstract =castexpose @*/
    char * s;
    int flags = (int) ((long)data);
    void * rc = NULL;
/*@-abstract -assignexpose @*/
    const char * filename = (const char *)key;
/*@=abstract =assignexpose @*/
    static FD_t fd = NULL;
    int xx;

    switch (what) {
    case RPMCALLBACK_INST_OPEN_FILE:
/*@-boundsread@*/
        if (filename == NULL || filename[0] == '\0')
            return NULL;
/*@=boundsread@*/
        fd = Fopen(filename, "r.ufdio");
        /*@-type@*/ /* FIX: still necessary? */
        if (fd == NULL || Ferror(fd)) {
            rpmError(RPMERR_OPEN, _("open of %s failed: %s\n"), filename,
                        Fstrerror(fd));
            if (fd != NULL) {
                xx = Fclose(fd);
                fd = NULL;
            }
        } else
            fd = fdLink(fd, "persist (showProgress)");
        /*@=type@*/
/*@+voidabstract@*/
        return (void *)fd;
/*@=voidabstract@*/
        /*@notreached@*/ break;

    case RPMCALLBACK_INST_CLOSE_FILE:
        /*@-type@*/ /* FIX: still necessary? */
        fd = fdFree(fd, "persist (showProgress)");
        /*@=type@*/
        if (fd != NULL) {
            xx = Fclose(fd);
            fd = NULL;
        }
        break;

    case RPMCALLBACK_INST_START:
        rpmcliHashesCurrent = 0;
        if (h == NULL || !(flags & INSTALL_LABEL))
            break;
        /* @todo Remove headerSprintf() on a progress callback. */
        if (flags & INSTALL_HASH) {
            s = headerSprintf(h, "%{NAME}",
                                rpmTagTable, rpmHeaderFormats, NULL);
            if (isatty (STDOUT_FILENO))
                fprintf(stdout, "%4d:%-23.23s", rpmcliProgressCurrent + 1, s);
            else
                fprintf(stdout, "%-28.28s", s);
            (void) fflush(stdout);
            s = _free(s);
        } else {
            s = headerSprintf(h, "%{NAME}-%{VERSION}-%{RELEASE}",
                                  rpmTagTable, rpmHeaderFormats, NULL);
            fprintf(stdout, "%s\n", s);
            (void) fflush(stdout);
            s = _free(s);
        }
        break;

    case RPMCALLBACK_TRANS_PROGRESS:
    case RPMCALLBACK_INST_PROGRESS:
/*@+relaxtypes@*/
        if (flags & INSTALL_PERCENT)
            fprintf(stdout, "%%%% %f\n", (double) (total
                                ? ((((float) amount) / total) * 100)
                                : 100.0));
        else if (flags & INSTALL_HASH)
            printHash(amount, total);
/*@=relaxtypes@*/
        (void) fflush(stdout);
        break;

    case RPMCALLBACK_TRANS_START:
        rpmcliHashesCurrent = 0;
        rpmcliProgressTotal = 1;
        rpmcliProgressCurrent = 0;
        if (!(flags & INSTALL_LABEL))
            break;
        if (flags & INSTALL_HASH)
            fprintf(stdout, "%-28s", _("Preparing..."));
        else
            fprintf(stdout, "%s\n", _("Preparing packages for installation..."));
        (void) fflush(stdout);
        break;

    case RPMCALLBACK_TRANS_STOP:
        if (flags & INSTALL_HASH)
            printHash(1, 1);    /* Fixes "preparing..." progress bar */
        rpmcliProgressTotal = rpmcliPackagesTotal;
        rpmcliProgressCurrent = 0;
        break;

    case RPMCALLBACK_REPACKAGE_START:
        rpmcliHashesCurrent = 0;
        rpmcliProgressTotal = total;
        rpmcliProgressCurrent = 0;
        if (!(flags & INSTALL_LABEL))
            break;
        if (flags & INSTALL_HASH)
            fprintf(stdout, "%-28s\n", _("Repackaging..."));
        else
            fprintf(stdout, "%s\n", _("Repackaging erased files..."));
        (void) fflush(stdout);
        break;

    case RPMCALLBACK_REPACKAGE_PROGRESS:
        if (amount && (flags & INSTALL_HASH))
            printHash(1, 1);    /* Fixes "preparing..." progress bar */
        break;

    case RPMCALLBACK_REPACKAGE_STOP:
        rpmcliProgressTotal = total;
        rpmcliProgressCurrent = total;
        if (flags & INSTALL_HASH)
            printHash(1, 1);    /* Fixes "preparing..." progress bar */
        rpmcliProgressTotal = rpmcliPackagesTotal;
        rpmcliProgressCurrent = 0;
        if (!(flags & INSTALL_LABEL))
            break;
        if (flags & INSTALL_HASH)
            fprintf(stdout, "%-28s\n", _("Upgrading..."));
        else
            fprintf(stdout, "%s\n", _("Upgrading packages..."));
        (void) fflush(stdout);
        break;

    case RPMCALLBACK_UNINST_PROGRESS:
        break;
    case RPMCALLBACK_UNINST_START:
        break;
    case RPMCALLBACK_UNINST_STOP:
        break;
    case RPMCALLBACK_UNPACK_ERROR:
        break;
    case RPMCALLBACK_CPIO_ERROR:
        break;
    case RPMCALLBACK_UNKNOWN:
    default:
        break;
    }

    return rc;
}       

typedef /*@only@*/ /*@null@*/ const char * str_t;

struct rpmEIU {
    Header h;
    FD_t fd;
    int numFailed;
    int numPkgs;
/*@only@*/
    str_t * pkgURL;
/*@dependent@*/ /*@null@*/
    str_t * fnp;
/*@only@*/
    char * pkgState;
    int prevx;
    int pkgx;
    int numRPMS;
    int numSRPMS;
/*@only@*/ /*@null@*/
    str_t * sourceURL;
    int isSource;
    int argc;
/*@only@*/ /*@null@*/
    str_t * argv;
/*@dependent@*/
    rpmRelocation * relocations;
    rpmRC rpmrc;
};

/*@-bounds@*/
int rpmInstall(rpmts ts,
                struct rpmInstallArguments_s * ia,
                const char ** fileArgv)
{
    struct rpmEIU * eiu = memset(alloca(sizeof(*eiu)), 0, sizeof(*eiu));
    rpmps ps;
    rpmprobFilterFlags probFilter;
    rpmRelocation * relocations;
/*@only@*/ /*@null@*/ const char * fileURL = NULL;
    int stopInstall = 0;
    const char ** av = NULL;
    rpmVSFlags vsflags, ovsflags, tvsflags;
    int ac = 0;
    int rc;
    int xx;
    int i;

    if (fileArgv == NULL) goto exit;

    ts->goal = TSM_INSTALL;
    rpmcliPackagesTotal = 0;

    if (rpmExpandNumeric("%{?_repackage_all_erasures}"))
        ia->transFlags |= RPMTRANS_FLAG_REPACKAGE;

    /* Initialize security context patterns (if not already done). */
    if (rpmtsSELinuxEnabled(ts) &&
        !(ia->transFlags & RPMTRANS_FLAG_NOCONTEXTS)) {
            const char *fn = rpmGetPath("%{?_install_file_context_path}", NULL);
            if (fn != NULL && *fn != '\0') {
                    matchpathcon_init(fn);
            }
    }
    (void) rpmtsSetFlags(ts, ia->transFlags);

    probFilter = ia->probFilter;
    relocations = ia->relocations;

    if (ia->installInterfaceFlags & INSTALL_UPGRADE)
        vsflags = rpmExpandNumeric("%{?_vsflags_erase}");
    else
        vsflags = rpmExpandNumeric("%{?_vsflags_install}");
    if (ia->qva_flags & VERIFY_DIGEST)
        vsflags |= _RPMVSF_NODIGESTS;
    if (ia->qva_flags & VERIFY_SIGNATURE)
        vsflags |= _RPMVSF_NOSIGNATURES;
    if (ia->qva_flags & VERIFY_HDRCHK)
        vsflags |= RPMVSF_NOHDRCHK;
    ovsflags = rpmtsSetVSFlags(ts, (vsflags | RPMVSF_NEEDPAYLOAD));

    {   int notifyFlags;
        notifyFlags = ia->installInterfaceFlags | (rpmIsVerbose() ? INSTALL_LABEL : 0 );
        xx = rpmtsSetNotifyCallback(ts,
                        rpmShowProgress, (void *) ((long)notifyFlags));
    }

    if ((eiu->relocations = relocations) != NULL) {
        while (eiu->relocations->oldPath)
            eiu->relocations++;
        if (eiu->relocations->newPath == NULL)
            eiu->relocations = NULL;
    }

    /* Build fully globbed list of arguments in argv[argc]. */
    /*@-branchstate@*/
    /*@-temptrans@*/
    for (eiu->fnp = fileArgv; *eiu->fnp != NULL; eiu->fnp++) {
    /*@=temptrans@*/
        av = _free(av); ac = 0;
        rc = rpmGlob(*eiu->fnp, &ac, &av);
        if (rc || ac == 0) {
            rpmError(RPMERR_OPEN, _("File not found by glob: %s\n"), *eiu->fnp);
            continue;
        }

        eiu->argv = xrealloc(eiu->argv, (eiu->argc+ac+1) * sizeof(*eiu->argv));
        memcpy(eiu->argv+eiu->argc, av, ac * sizeof(*av));
        eiu->argc += ac;
        eiu->argv[eiu->argc] = NULL;
    }
    /*@=branchstate@*/
    av = _free(av);     ac = 0;

restart:
    /* Allocate sufficient storage for next set of args. */
    if (eiu->pkgx >= eiu->numPkgs) {
        eiu->numPkgs = eiu->pkgx + eiu->argc;
        eiu->pkgURL = xrealloc(eiu->pkgURL,
                        (eiu->numPkgs + 1) * sizeof(*eiu->pkgURL));
        memset(eiu->pkgURL + eiu->pkgx, 0,
                        ((eiu->argc + 1) * sizeof(*eiu->pkgURL)));
        eiu->pkgState = xrealloc(eiu->pkgState,
                        (eiu->numPkgs + 1) * sizeof(*eiu->pkgState));
        memset(eiu->pkgState + eiu->pkgx, 0,
                        ((eiu->argc + 1) * sizeof(*eiu->pkgState)));
    }

    /* Retrieve next set of args, cache on local storage. */
    for (i = 0; i < eiu->argc; i++) {
        fileURL = _free(fileURL);
        fileURL = eiu->argv[i];
        eiu->argv[i] = NULL;

#ifdef  NOTYET
if (fileURL[0] == '=') {
    rpmds this = rpmdsSingle(RPMTAG_REQUIRENAME, fileURL+1, NULL, 0);

    xx = rpmtsSolve(ts, this, NULL);
    if (ts->suggests && ts->nsuggests > 0) {
        fileURL = _free(fileURL);
        fileURL = ts->suggests[0];
        ts->suggests[0] = NULL;
        while (ts->nsuggests-- > 0) {
            if (ts->suggests[ts->nsuggests] == NULL)
                continue;
            ts->suggests[ts->nsuggests] = _free(ts->suggests[ts->nsuggests]);
        }
        ts->suggests = _free(ts->suggests);
        rpmMessage(RPMMESS_DEBUG, _("Adding goal: %s\n"), fileURL);
        eiu->pkgURL[eiu->pkgx] = fileURL;
        fileURL = NULL;
        eiu->pkgx++;
    }
    this = rpmdsFree(this);
} else
#endif

        switch (urlIsURL(fileURL)) {
        case URL_IS_HTTPS:
        case URL_IS_HTTP:
        case URL_IS_FTP:
        {   const char *tfn;

            if (rpmIsVerbose())
                fprintf(stdout, _("Retrieving %s\n"), fileURL);

            {   char tfnbuf[64];
                const char * rootDir = rpmtsRootDir(ts);
                if (!(rootDir && * rootDir))
                    rootDir = "";
                strcpy(tfnbuf, "rpm-xfer.XXXXXX");
                (void) mktemp(tfnbuf);
                tfn = rpmGenPath(rootDir, "%{_tmppath}/", tfnbuf);
            }

            /* XXX undefined %{name}/%{version}/%{release} here */
            /* XXX %{_tmpdir} does not exist */
            rpmMessage(RPMMESS_DEBUG, _(" ... as %s\n"), tfn);
            rc = urlGetFile(fileURL, tfn);
            if (rc < 0) {
                rpmMessage(RPMMESS_ERROR,
                        _("skipping %s - transfer failed - %s\n"),
                        fileURL, ftpStrerror(rc));
                eiu->numFailed++;
                eiu->pkgURL[eiu->pkgx] = NULL;
                tfn = _free(tfn);
                /*@switchbreak@*/ break;
            }
            eiu->pkgState[eiu->pkgx] = 1;
            eiu->pkgURL[eiu->pkgx] = tfn;
            eiu->pkgx++;
        }   /*@switchbreak@*/ break;
        case URL_IS_PATH:
        case URL_IS_DASH:       /* WRONG WRONG WRONG */
        case URL_IS_HKP:        /* WRONG WRONG WRONG */
        default:
            eiu->pkgURL[eiu->pkgx] = fileURL;
            fileURL = NULL;
            eiu->pkgx++;
            /*@switchbreak@*/ break;
        }
    }
    fileURL = _free(fileURL);

    if (eiu->numFailed) goto exit;

    /* Continue processing file arguments, building transaction set. */
    for (eiu->fnp = eiu->pkgURL+eiu->prevx;
         *eiu->fnp != NULL;
         eiu->fnp++, eiu->prevx++)
    {
        const char * fileName;

        rpmMessage(RPMMESS_DEBUG, "============== %s\n", *eiu->fnp);
        (void) urlPath(*eiu->fnp, &fileName);

        /* Try to read the header from a package file. */
        eiu->fd = Fopen(*eiu->fnp, "r.ufdio");
        if (eiu->fd == NULL || Ferror(eiu->fd)) {
            rpmError(RPMERR_OPEN, _("open of %s failed: %s\n"), *eiu->fnp,
                        Fstrerror(eiu->fd));
            if (eiu->fd != NULL) {
                xx = Fclose(eiu->fd);
                eiu->fd = NULL;
            }
            eiu->numFailed++; *eiu->fnp = NULL;
            continue;
        }

        /* Read the header, verifying signatures (if present). */
        tvsflags = rpmtsSetVSFlags(ts, vsflags);
        eiu->rpmrc = rpmReadPackageFile(ts, eiu->fd, *eiu->fnp, &eiu->h);
        tvsflags = rpmtsSetVSFlags(ts, tvsflags);
        xx = Fclose(eiu->fd);
        eiu->fd = NULL;

        switch (eiu->rpmrc) {
        case RPMRC_FAIL:
            rpmMessage(RPMMESS_ERROR, _("%s cannot be installed\n"), *eiu->fnp);
            eiu->numFailed++; *eiu->fnp = NULL;
            continue;
            /*@notreached@*/ /*@switchbreak@*/ break;
        case RPMRC_NOTFOUND:
            goto maybe_manifest;
            /*@notreached@*/ /*@switchbreak@*/ break;
        case RPMRC_NOTTRUSTED:
        case RPMRC_NOKEY:
        case RPMRC_OK:
        default:
            /*@switchbreak@*/ break;
        }

        eiu->isSource = headerIsEntry(eiu->h, RPMTAG_SOURCEPACKAGE);

        if (eiu->isSource) {
            rpmMessage(RPMMESS_DEBUG, _("\tadded source package [%d]\n"),
                eiu->numSRPMS);
            eiu->sourceURL = xrealloc(eiu->sourceURL,
                                (eiu->numSRPMS + 2) * sizeof(*eiu->sourceURL));
            eiu->sourceURL[eiu->numSRPMS] = *eiu->fnp;
            *eiu->fnp = NULL;
            eiu->numSRPMS++;
            eiu->sourceURL[eiu->numSRPMS] = NULL;
            continue;
        }

        if (eiu->relocations) {
            const char ** paths;
            int pft;
            int c;

            if (headerGetEntry(eiu->h, RPMTAG_PREFIXES, &pft,
                                       (void **) &paths, &c) && (c == 1))
            {
                eiu->relocations->oldPath = xstrdup(paths[0]);
                paths = headerFreeData(paths, pft);
            } else {
                const char * name;
                xx = headerNVR(eiu->h, &name, NULL, NULL);
                rpmMessage(RPMMESS_ERROR,
                               _("package %s is not relocatable\n"), name);
                eiu->numFailed++;
                goto exit;
                /*@notreached@*/
            }
        }

        /* On --freshen, verify package is installed and newer */
        if (ia->installInterfaceFlags & INSTALL_FRESHEN) {
            rpmdbMatchIterator mi;
            const char * name;
            Header oldH;
            int count;

            xx = headerNVR(eiu->h, &name, NULL, NULL);
            mi = rpmtsInitIterator(ts, RPMTAG_NAME, name, 0);
            count = rpmdbGetIteratorCount(mi);
            while ((oldH = rpmdbNextIterator(mi)) != NULL) {
                if (rpmVersionCompare(oldH, eiu->h) < 0)
                    /*@innercontinue@*/ continue;
                /* same or newer package already installed */
                count = 0;
                /*@innerbreak@*/ break;
            }
            mi = rpmdbFreeIterator(mi);
            if (count == 0) {
                eiu->h = headerFree(eiu->h);
                continue;
            }
            /* Package is newer than those currently installed. */
        }

        /*@-abstract@*/
        rc = rpmtsAddInstallElement(ts, eiu->h, (fnpyKey)fileName,
                        (ia->installInterfaceFlags & INSTALL_UPGRADE) != 0,
                        relocations);
        /*@=abstract@*/

        /* XXX reference held by transaction set */
        eiu->h = headerFree(eiu->h);
        if (eiu->relocations)
            eiu->relocations->oldPath = _free(eiu->relocations->oldPath);

        switch(rc) {
        case 0:
            rpmMessage(RPMMESS_DEBUG, _("\tadded binary package [%d]\n"),
                        eiu->numRPMS);
            /*@switchbreak@*/ break;
        case 1:
            rpmMessage(RPMMESS_ERROR,
                            _("error reading from file %s\n"), *eiu->fnp);
            eiu->numFailed++;
            goto exit;
            /*@notreached@*/ /*@switchbreak@*/ break;
        case 2:
            rpmMessage(RPMMESS_ERROR,
                            _("file %s requires a newer version of RPM\n"),
                            *eiu->fnp);
            eiu->numFailed++;
            goto exit;
            /*@notreached@*/ /*@switchbreak@*/ break;
        default:
            eiu->numFailed++;
            goto exit;
            /*@notreached@*/ /*@switchbreak@*/ break;
        }

        eiu->numRPMS++;
        continue;

maybe_manifest:
        /* Try to read a package manifest. */
        eiu->fd = Fopen(*eiu->fnp, "r.fpio");
        if (eiu->fd == NULL || Ferror(eiu->fd)) {
            rpmError(RPMERR_OPEN, _("open of %s failed: %s\n"), *eiu->fnp,
                        Fstrerror(eiu->fd));
            if (eiu->fd != NULL) {
                xx = Fclose(eiu->fd);
                eiu->fd = NULL;
            }
            eiu->numFailed++; *eiu->fnp = NULL;
            break;
        }

        /* Read list of packages from manifest. */
/*@-nullstate@*/ /* FIX: *eiu->argv can be NULL */
        rc = rpmReadPackageManifest(eiu->fd, &eiu->argc, &eiu->argv);
/*@=nullstate@*/
        if (rc != RPMRC_OK)
            rpmError(RPMERR_MANIFEST, _("%s: not an rpm package (or package manifest): %s\n"),
                        *eiu->fnp, Fstrerror(eiu->fd));
        xx = Fclose(eiu->fd);
        eiu->fd = NULL;

        /* If successful, restart the query loop. */
        if (rc == RPMRC_OK) {
            eiu->prevx++;
            goto restart;
        }

        eiu->numFailed++; *eiu->fnp = NULL;
        break;
    }

    rpmMessage(RPMMESS_DEBUG, _("found %d source and %d binary packages\n"),
                eiu->numSRPMS, eiu->numRPMS);

    if (eiu->numFailed) goto exit;

    if (eiu->numRPMS && !(ia->installInterfaceFlags & INSTALL_NODEPS)) {

        if (rpmtsCheck(ts)) {
            eiu->numFailed = eiu->numPkgs;
            stopInstall = 1;
        }

        ps = rpmtsProblems(ts);
        if (!stopInstall && rpmpsNumProblems(ps) > 0) {
            rpmMessage(RPMMESS_ERROR, _("Failed dependencies:\n"));
            rpmpsPrint(NULL, ps);
            eiu->numFailed = eiu->numPkgs;
            stopInstall = 1;

            /*@-branchstate@*/
            if (ts->suggests != NULL && ts->nsuggests > 0) {
                rpmMessage(RPMMESS_NORMAL, _("    Suggested resolutions:\n"));
                for (i = 0; i < ts->nsuggests; i++) {
                    const char * str = ts->suggests[i];

                    if (str == NULL)
                        break;

                    rpmMessage(RPMMESS_NORMAL, "\t%s\n", str);
                
                    ts->suggests[i] = NULL;
                    str = _free(str);
                }
                ts->suggests = _free(ts->suggests);
            }
            /*@=branchstate@*/
        }
        ps = rpmpsFree(ps);
    }

    if (eiu->numRPMS && !(ia->installInterfaceFlags & INSTALL_NOORDER)) {
        if (rpmtsOrder(ts)) {
            eiu->numFailed = eiu->numPkgs;
            stopInstall = 1;
        }
    }

    if (eiu->numRPMS && !stopInstall) {

        rpmcliPackagesTotal += eiu->numSRPMS;

        rpmMessage(RPMMESS_DEBUG, _("installing binary packages\n"));

        /* Drop added/available package indices and dependency sets. */
        rpmtsClean(ts);

        rc = rpmtsRun(ts, NULL, probFilter);
        ps = rpmtsProblems(ts);

        if (rc < 0) {
            eiu->numFailed += eiu->numRPMS;
        } else if (rc > 0) {
            eiu->numFailed += rc;
            if (rpmpsNumProblems(ps) > 0)
                rpmpsPrint(stderr, ps);
        }
        ps = rpmpsFree(ps);
    }

    if (eiu->numSRPMS && !stopInstall) {
        if (eiu->sourceURL != NULL)
        for (i = 0; i < eiu->numSRPMS; i++) {
            if (eiu->sourceURL[i] == NULL) continue;
            eiu->fd = Fopen(eiu->sourceURL[i], "r.ufdio");
            if (eiu->fd == NULL || Ferror(eiu->fd)) {
                rpmMessage(RPMMESS_ERROR, _("cannot open file %s: %s\n"),
                           eiu->sourceURL[i], Fstrerror(eiu->fd));
                if (eiu->fd != NULL) {
                    xx = Fclose(eiu->fd);
                    eiu->fd = NULL;
                }
                continue;
            }

            if (!(rpmtsFlags(ts) & RPMTRANS_FLAG_TEST)) {
                eiu->rpmrc = rpmInstallSourcePackage(ts, eiu->fd, NULL, NULL);
                if (eiu->rpmrc != RPMRC_OK) eiu->numFailed++;
            }

            xx = Fclose(eiu->fd);
            eiu->fd = NULL;
        }
    }

exit:
    if (eiu->pkgURL != NULL)
    for (i = 0; i < eiu->numPkgs; i++) {
        if (eiu->pkgURL[i] == NULL) continue;
        if (eiu->pkgState[i] == 1)
            (void) Unlink(eiu->pkgURL[i]);
        eiu->pkgURL[i] = _free(eiu->pkgURL[i]);
    }
    eiu->pkgState = _free(eiu->pkgState);
    eiu->pkgURL = _free(eiu->pkgURL);
    eiu->argv = _free(eiu->argv);

    rpmtsEmpty(ts);

    return eiu->numFailed;
}
/*@=bounds@*/

int rpmErase(rpmts ts, struct rpmInstallArguments_s * ia,
                const char ** argv)
{
    int count;
    const char ** arg;
    int numFailed = 0;
    int stopUninstall = 0;
    int numPackages = 0;
    rpmVSFlags vsflags, ovsflags;
    rpmps ps;

    if (argv == NULL) return 0;

    vsflags = rpmExpandNumeric("%{?_vsflags_erase}");
    if (ia->qva_flags & VERIFY_DIGEST)
        vsflags |= _RPMVSF_NODIGESTS;
    if (ia->qva_flags & VERIFY_SIGNATURE)
        vsflags |= _RPMVSF_NOSIGNATURES;
    if (ia->qva_flags & VERIFY_HDRCHK)
        vsflags |= RPMVSF_NOHDRCHK;
    ovsflags = rpmtsSetVSFlags(ts, vsflags);

    if (rpmExpandNumeric("%{?_repackage_all_erasures}"))
        ia->transFlags |= RPMTRANS_FLAG_REPACKAGE;

    (void) rpmtsSetFlags(ts, ia->transFlags);

#ifdef  NOTYET  /* XXX no callbacks on erase yet */
    {   int notifyFlags;
        notifyFlags = ia->eraseInterfaceFlags | (rpmIsVerbose() ? INSTALL_LABEL : 0 );
        xx = rpmtsSetNotifyCallback(ts,
                        rpmShowProgress, (void *) ((long)notifyFlags)
    }
#endif

    ts->goal = TSM_ERASE;

    for (arg = argv; *arg; arg++) {
        rpmdbMatchIterator mi;

        /* XXX HACK to get rpmdbFindByLabel out of the API */
        mi = rpmtsInitIterator(ts, RPMDBI_LABEL, *arg, 0);
        if (mi == NULL) {
            rpmMessage(RPMMESS_ERROR, _("package %s is not installed\n"), *arg);
            numFailed++;
        } else {
            Header h;   /* XXX iterator owns the reference */
            count = 0;
            while ((h = rpmdbNextIterator(mi)) != NULL) {
                unsigned int recOffset = rpmdbGetIteratorOffset(mi);

                if (!(count++ == 0 || (ia->eraseInterfaceFlags & UNINSTALL_ALLMATCHES))) {
                    rpmMessage(RPMMESS_ERROR, _("\"%s\" specifies multiple packages\n"),
                        *arg);
                    numFailed++;
                    /*@innerbreak@*/ break;
                }
                if (recOffset) {
                    (void) rpmtsAddEraseElement(ts, h, recOffset);
                    numPackages++;
                }
            }
        }
        mi = rpmdbFreeIterator(mi);
    }

    if (numFailed) goto exit;

    if (!(ia->eraseInterfaceFlags & UNINSTALL_NODEPS)) {

        if (rpmtsCheck(ts)) {
            numFailed = numPackages;
            stopUninstall = 1;
        }

        ps = rpmtsProblems(ts);
        if (!stopUninstall && rpmpsNumProblems(ps) > 0) {
            rpmMessage(RPMMESS_ERROR, _("Failed dependencies:\n"));
            rpmpsPrint(NULL, ps);
            numFailed += numPackages;
            stopUninstall = 1;
        }
        ps = rpmpsFree(ps);
    }

    if (!stopUninstall && !(ia->installInterfaceFlags & INSTALL_NOORDER)) {
        if (rpmtsOrder(ts)) {
            numFailed += numPackages;
            stopUninstall = 1;
        }
    }

    if (numPackages && !stopUninstall) {
        (void) rpmtsSetFlags(ts, (rpmtsFlags(ts) | RPMTRANS_FLAG_REVERSE));

        /* Drop added/available package indices and dependency sets. */
        rpmtsClean(ts);

        numPackages = rpmtsRun(ts, NULL, ia->probFilter & (RPMPROB_FILTER_DISKSPACE|RPMPROB_FILTER_DISKNODES));
        ps = rpmtsProblems(ts);
        if (rpmpsNumProblems(ps) > 0)
            rpmpsPrint(NULL, ps);
        numFailed += numPackages;
        stopUninstall = 1;
        ps = rpmpsFree(ps);
    }

exit:
    rpmtsEmpty(ts);

    return numFailed;
}

int rpmInstallSource(rpmts ts, const char * arg,
                const char ** specFilePtr, const char ** cookie)
{
    FD_t fd;
    int rc;


    fd = Fopen(arg, "r.ufdio");
    if (fd == NULL || Ferror(fd)) {
        rpmMessage(RPMMESS_ERROR, _("cannot open %s: %s\n"), arg, Fstrerror(fd));
        if (fd != NULL) (void) Fclose(fd);
        return 1;
    }

    if (rpmIsVerbose())
        fprintf(stdout, _("Installing %s\n"), arg);

    {
        rpmVSFlags ovsflags =
                rpmtsSetVSFlags(ts, (rpmtsVSFlags(ts) | RPMVSF_NEEDPAYLOAD));
        rpmRC rpmrc = rpmInstallSourcePackage(ts, fd, specFilePtr, cookie);
        rc = (rpmrc == RPMRC_OK ? 0 : 1);
        ovsflags = rpmtsSetVSFlags(ts, ovsflags);
    }
    if (rc != 0) {
        rpmMessage(RPMMESS_ERROR, _("%s cannot be installed\n"), arg);
        /*@-unqualifiedtrans@*/
        if (specFilePtr && *specFilePtr)
            *specFilePtr = _free(*specFilePtr);
        if (cookie && *cookie)
            *cookie = _free(*cookie);
        /*@=unqualifiedtrans@*/
    }

    (void) Fclose(fd);

    return rc;
}

/*@unchecked@*/
static int reverse = -1;

static int IDTintcmp(const void * a, const void * b)
        /*@*/
{
    /*@-castexpose@*/
    return ( reverse * (((IDT)a)->val.u32 - ((IDT)b)->val.u32) );
    /*@=castexpose@*/
}

IDTX IDTXfree(IDTX idtx)
{
    if (idtx) {
        int i;
        if (idtx->idt)
        for (i = 0; i < idtx->nidt; i++) {
            IDT idt = idtx->idt + i;
            idt->h = headerFree(idt->h);
            idt->key = _free(idt->key);
        }
        idtx->idt = _free(idtx->idt);
        idtx = _free(idtx);
    }
    return NULL;
}

IDTX IDTXnew(void)
{
    IDTX idtx = xcalloc(1, sizeof(*idtx));
    idtx->delta = 10;
    idtx->size = sizeof(*((IDT)0));
    return idtx;
}

IDTX IDTXgrow(IDTX idtx, int need)
{
    if (need < 0) return NULL;
    if (idtx == NULL)
        idtx = IDTXnew();
    if (need == 0) return idtx;

    if ((idtx->nidt + need) > idtx->alloced) {
        while (need > 0) {
            idtx->alloced += idtx->delta;
            need -= idtx->delta;
        }
        idtx->idt = xrealloc(idtx->idt, (idtx->alloced * idtx->size) );
    }
    return idtx;
}

IDTX IDTXsort(IDTX idtx)
{
    if (idtx != NULL && idtx->idt != NULL && idtx->nidt > 0)
        qsort(idtx->idt, idtx->nidt, idtx->size, IDTintcmp);
    return idtx;
}

IDTX IDTXload(rpmts ts, rpmTag tag)
{
    IDTX idtx = NULL;
    rpmdbMatchIterator mi;
    HGE_t hge = (HGE_t) headerGetEntry;
    Header h;

    /*@-branchstate@*/
    mi = rpmtsInitIterator(ts, tag, NULL, 0);
#ifdef  NOTYET
    (void) rpmdbSetIteratorRE(mi, RPMTAG_NAME, RPMMIRE_DEFAULT, '!gpg-pubkey');
#endif
    while ((h = rpmdbNextIterator(mi)) != NULL) {
        rpmTagType type = RPM_NULL_TYPE;
        int_32 count = 0;
        int_32 * tidp;

        tidp = NULL;
        if (!hge(h, tag, &type, (void **)&tidp, &count) || tidp == NULL)
            continue;

        if (type == RPM_INT32_TYPE && (*tidp == 0 || *tidp == -1))
            continue;

        idtx = IDTXgrow(idtx, 1);
        if (idtx == NULL)
            continue;
        if (idtx->idt == NULL)
            continue;

        {   IDT idt;
            /*@-nullderef@*/
            idt = idtx->idt + idtx->nidt;
            /*@=nullderef@*/
            idt->h = headerLink(h);
            idt->key = NULL;
            idt->instance = rpmdbGetIteratorOffset(mi);
            idt->val.u32 = *tidp;
        }
        idtx->nidt++;
    }
    mi = rpmdbFreeIterator(mi);
    /*@=branchstate@*/

    return IDTXsort(idtx);
}

IDTX IDTXglob(rpmts ts, const char * globstr, rpmTag tag)
{
    IDTX idtx = NULL;
    HGE_t hge = (HGE_t) headerGetEntry;
    Header h;
    int_32 * tidp;
    FD_t fd;
    const char ** av = NULL;
    int ac = 0;
    rpmRC rpmrc;
    int xx;
    int i;

    av = NULL;  ac = 0;
    xx = rpmGlob(globstr, &ac, &av);

    if (xx == 0)
    for (i = 0; i < ac; i++) {
        rpmTagType type;
        int_32 count;
        int isSource;

        fd = Fopen(av[i], "r.ufdio");
        if (fd == NULL || Ferror(fd)) {
            rpmError(RPMERR_OPEN, _("open of %s failed: %s\n"), av[i],
                        Fstrerror(fd));
            if (fd != NULL) (void) Fclose(fd);
            continue;
        }

        rpmrc = rpmReadPackageFile(ts, fd, av[i], &h);
        (void) Fclose(fd);
        switch (rpmrc) {
        default:
            goto bottom;
            /*@notreached@*/ /*@switchbreak@*/ break;
        case RPMRC_NOTTRUSTED:
        case RPMRC_NOKEY:
        case RPMRC_OK:
            isSource = headerIsEntry(h, RPMTAG_SOURCEPACKAGE);
            if (isSource)
                goto bottom;
            /*@switchbreak@*/ break;
        }

        tidp = NULL;
        /*@-branchstate@*/
        if (hge(h, tag, &type, (void **) &tidp, &count) && tidp != NULL) {

            idtx = IDTXgrow(idtx, 1);
            if (idtx == NULL || idtx->idt == NULL)
                goto bottom;

            {   IDT idt;
                idt = idtx->idt + idtx->nidt;
                idt->h = headerLink(h);
                idt->key = av[i];
                av[i] = NULL;
                idt->instance = 0;
                idt->val.u32 = *tidp;
            }
            idtx->nidt++;
        }
        /*@=branchstate@*/
bottom:
        h = headerFree(h);
    }

    for (i = 0; i < ac; i++)
        av[i] = _free(av[i]);
    av = _free(av);     ac = 0;

    return IDTXsort(idtx);
}

int rpmRollback(rpmts ts, struct rpmInstallArguments_s * ia, const char ** argv)
{
    int ifmask= (INSTALL_UPGRADE|INSTALL_FRESHEN|INSTALL_INSTALL|INSTALL_ERASE);
    unsigned thistid = 0xffffffff;
    unsigned prevtid;
    time_t tid;
    IDTX itids = NULL;
    IDTX rtids = NULL;
    IDT rp;
    int nrids = 0;
    IDT ip;
    int niids = 0;
    int rc = 0;
    int vsflags, ovsflags;
    int numAdded;
    int numRemoved;
    rpmps ps;
    int _unsafe_rollbacks = 0;
    rpmtransFlags transFlags = ia->transFlags;

    if (argv != NULL && *argv != NULL) {
        rc = -1;
        goto exit;
    }

    _unsafe_rollbacks = rpmExpandNumeric("%{?_unsafe_rollbacks}");

    vsflags = rpmExpandNumeric("%{?_vsflags_erase}");
    if (ia->qva_flags & VERIFY_DIGEST)
        vsflags |= _RPMVSF_NODIGESTS;
    if (ia->qva_flags & VERIFY_SIGNATURE)
        vsflags |= _RPMVSF_NOSIGNATURES;
    if (ia->qva_flags & VERIFY_HDRCHK)
        vsflags |= RPMVSF_NOHDRCHK;
    vsflags |= RPMVSF_NEEDPAYLOAD;      /* XXX no legacy signatures */
    ovsflags = rpmtsSetVSFlags(ts, vsflags);

    (void) rpmtsSetFlags(ts, transFlags);

    /*  Make the transaction a rollback transaction.  In a rollback
     *  a best effort is what we want 
     */
    rpmtsSetType(ts, RPMTRANS_TYPE_ROLLBACK);

    itids = IDTXload(ts, RPMTAG_INSTALLTID);
    if (itids != NULL) {
        ip = itids->idt;
        niids = itids->nidt;
    } else {
        ip = NULL;
        niids = 0;
    }

    {   const char * globstr = rpmExpand("%{_repackage_dir}/*.rpm", NULL);
        if (globstr == NULL || *globstr == '%') {
            globstr = _free(globstr);
            rc = -1;
            goto exit;
        }
        rtids = IDTXglob(ts, globstr, RPMTAG_REMOVETID);

        if (rtids != NULL) {
            rp = rtids->idt;
            nrids = rtids->nidt;
        } else {
            rp = NULL;
            nrids = 0;
        }
        globstr = _free(globstr);
    }

    {   int notifyFlags, xx;
        notifyFlags = ia->installInterfaceFlags | (rpmIsVerbose() ? INSTALL_LABEL : 0 );
        xx = rpmtsSetNotifyCallback(ts,
                        rpmShowProgress, (void *) ((long)notifyFlags));
    }

    /* Run transactions until rollback goal is achieved. */
    do {
        prevtid = thistid;
        rc = 0;
        rpmcliPackagesTotal = 0;
        numAdded = 0;
        numRemoved = 0;
        ia->installInterfaceFlags &= ~ifmask;

        /* Find larger of the remaining install/erase transaction id's. */
        thistid = 0;
        if (ip != NULL && ip->val.u32 > thistid)
            thistid = ip->val.u32;
        if (rp != NULL && rp->val.u32 > thistid)
            thistid = rp->val.u32;

        /* If we've achieved the rollback goal, then we're done. */
        if (thistid == 0 || thistid < ia->rbtid)
            break;

        /* If we've reached the (configured) rollback goal, then we're done. */
        if (_unsafe_rollbacks && thistid <= _unsafe_rollbacks)
            break;

        rpmtsEmpty(ts);
        (void) rpmtsSetFlags(ts, transFlags);

        /* Install the previously erased packages for this transaction. */
        while (rp != NULL && rp->val.u32 == thistid) {

            rpmMessage(RPMMESS_DEBUG, "\t+++ install %s\n",
                        (rp->key ? rp->key : "???"));

/*@-abstract@*/
            rc = rpmtsAddInstallElement(ts, rp->h, (fnpyKey)rp->key,
                               0, ia->relocations);
/*@=abstract@*/
            if (rc != 0)
                goto exit;

            numAdded++;
            rpmcliPackagesTotal++;
            if (!(ia->installInterfaceFlags & ifmask))
                ia->installInterfaceFlags |= INSTALL_UPGRADE;

#ifdef  NOTYET
            rp->h = headerFree(rp->h);
#endif
            nrids--;
            if (nrids > 0)
                rp++;
            else
                rp = NULL;
        }

        /* Erase the previously installed packages for this transaction. */
        while (ip != NULL && ip->val.u32 == thistid) {

            rpmMessage(RPMMESS_DEBUG,
                        "\t--- erase h#%u\n", ip->instance);

            rc = rpmtsAddEraseElement(ts, ip->h, ip->instance);
            if (rc != 0)
                goto exit;

            numRemoved++;

            if (_unsafe_rollbacks)
                rpmcliPackagesTotal++;

            if (!(ia->installInterfaceFlags & ifmask)) {
                ia->installInterfaceFlags |= INSTALL_ERASE;
                (void) rpmtsSetFlags(ts, (transFlags | RPMTRANS_FLAG_REVERSE));
            }

#ifdef  NOTYET
            ip->instance = 0;
#endif
            niids--;
            if (niids > 0)
                ip++;
            else
                ip = NULL;
        }

        /* Anything to do? */
        if (rpmcliPackagesTotal <= 0)
            break;

        tid = (time_t)thistid;
        rpmMessage(RPMMESS_NORMAL,
                _("Rollback packages (+%d/-%d) to %-24.24s (0x%08x):\n"),
                        numAdded, numRemoved, ctime(&tid), tid);

        rc = rpmtsCheck(ts);
        ps = rpmtsProblems(ts);
        if (rc != 0 && rpmpsNumProblems(ps) > 0) {
            rpmMessage(RPMMESS_ERROR, _("Failed dependencies:\n"));
            rpmpsPrint(NULL, ps);
            ps = rpmpsFree(ps);
            goto exit;
        }
        ps = rpmpsFree(ps);

        rc = rpmtsOrder(ts);
        if (rc != 0)
            goto exit;

        /* Drop added/available package indices and dependency sets. */
        rpmtsClean(ts);

        rc = rpmtsRun(ts, NULL, (ia->probFilter|RPMPROB_FILTER_OLDPACKAGE));
        ps = rpmtsProblems(ts);
        if (rc > 0 && rpmpsNumProblems(ps) > 0)
            rpmpsPrint(stderr, ps);
        ps = rpmpsFree(ps);
        if (rc)
            goto exit;

        /* Clean up after successful rollback. */
        if (rtids && !rpmIsDebug()) {
            int i;
            rpmMessage(RPMMESS_NORMAL, _("Cleaning up repackaged packages:\n"));
            if (rtids->idt)
            for (i = 0; i < rtids->nidt; i++) {
                IDT rrp = rtids->idt + i;
                if (rrp->val.u32 != thistid)
                    /*@innercontinue@*/ continue;
                if (rrp->key) { /* XXX can't happen */
                    rpmMessage(RPMMESS_NORMAL, _("\tRemoving %s:\n"), rrp->key);
                    (void) unlink(rrp->key);    /* XXX: Should check rc??? */
                }
            }
        }


    } while (1);

exit:
    rtids = IDTXfree(rtids);
    itids = IDTXfree(itids);

    rpmtsEmpty(ts);
    (void) rpmtsSetFlags(ts, transFlags);

    return rc;
}

---