build/rpmfc.c

   1 #include "system.h"
   2
   3 #include <signal.h>
   4 #if HAVE_GELF_H
   5 #include <gelf.h>
   6
   7 #if !defined(DT_GNU_HASH)
   8 #define DT_GNU_HASH             0x6ffffef5
   9 #endif
  10
  11 #endif
  12
  13 #include <rpm/header.h>
  14 #include <rpm/rpmbuild.h>
  15 #include <rpm/argv.h>
  16 #include <rpm/rpmfc.h>
  17 #include <rpm/rpmlog.h>
  18 #include <rpm/rpmfileutil.h>
  19
  20 #include <rpm/rpmds.h>
  21 #include <rpm/rpmfi.h>
  22
  23 #include "debug.h"
  24
  25 /**
  26  */
  27 struct rpmfc_s {
  28     int nfiles;         /*!< no. of files */
  29     int fknown;         /*!< no. of classified files */
  30     int fwhite;         /*!< no. of "white" files */
  31     int ix;             /*!< current file index */
  32     int skipProv;       /*!< Don't auto-generate Provides:? */
  33     int skipReq;        /*!< Don't auto-generate Requires:? */
  34     int tracked;        /*!< Versioned Provides: tracking dependency added? */
  35     size_t brlen;       /*!< strlen(spec->buildRoot) */
  36
  37     ARGV_t fn;          /*!< (no. files) file names */
  38     ARGI_t fcolor;      /*!< (no. files) file colors */
  39     ARGI_t fcdictx;     /*!< (no. files) file class dictionary indices */
  40     ARGI_t fddictx;     /*!< (no. files) file depends dictionary start */
  41     ARGI_t fddictn;     /*!< (no. files) file depends dictionary no. entries */
  42     ARGV_t cdict;       /*!< (no. classes) file class dictionary */
  43     ARGV_t ddict;       /*!< (no. dependencies) file depends dictionary */
  44     ARGI_t ddictx;      /*!< (no. dependencies) file->dependency mapping */
  45
  46     rpmds provides;     /*!< (no. provides) package provides */
  47     rpmds requires;     /*!< (no. requires) package requires */
  48
  49     StringBuf sb_java;  /*!< concatenated list of java colored files. */
  50     StringBuf sb_perl;  /*!< concatenated list of perl colored files. */
  51     StringBuf sb_python;/*!< concatenated list of python colored files. */
  52
  53 };
  54
  55 /**
  56  */
  57 struct rpmfcTokens_s {
  58     const char * token;
  59     rpm_color_t colors;
  60 };
  61
  62 /**
  63  */
  64 static int rpmfcExpandAppend(ARGV_t * argvp, const ARGV_t av)
  65 {
  66     ARGV_t argv = *argvp;
  67     int argc = argvCount(argv);
  68     int ac = argvCount(av);
  69     int i;
  70
  71     argv = xrealloc(argv, (argc + ac + 1) * sizeof(*argv));
  72     for (i = 0; i < ac; i++)
  73         argv[argc + i] = rpmExpand(av[i], NULL);
  74     argv[argc + ac] = NULL;
  75     *argvp = argv;
  76     return 0;
  77 }
  78
  79 /** \ingroup rpmbuild
  80  * Return output from helper script.
  81  * @todo Use poll(2) rather than select(2), if available.
  82  * @param dir           directory to run in (or NULL)
  83  * @param argv          program and arguments to run
  84  * @param writePtr      bytes to feed to script on stdin (or NULL)
  85  * @param writeBytesLeft no. of bytes to feed to script on stdin
  86  * @param failNonZero   is script failure an error?
  87  * @return              buffered stdout from script, NULL on error
  88  */
  89 static StringBuf getOutputFrom(const char * dir, ARGV_t argv,
  90                         const char * writePtr, size_t writeBytesLeft,
  91                         int failNonZero)
  92 {
  93     pid_t child, reaped;
  94     int toProg[2];
  95     int fromProg[2];
  96     int status;
  97     void *oldhandler;
  98     StringBuf readBuff;
  99     int done;
 100
 101     /* FIX: cast? */
 102     oldhandler = signal(SIGPIPE, SIG_IGN);
 103
 104     toProg[0] = toProg[1] = 0;
 105     (void) pipe(toProg);
 106     fromProg[0] = fromProg[1] = 0;
 107     (void) pipe(fromProg);
 108
 109     if (!(child = fork())) {
 110         (void) close(toProg[1]);
 111         (void) close(fromProg[0]);
 112
 113         (void) dup2(toProg[0], STDIN_FILENO);   /* Make stdin the in pipe */
 114         (void) dup2(fromProg[1], STDOUT_FILENO); /* Make stdout the out pipe */
 115
 116         (void) close(toProg[0]);
 117         (void) close(fromProg[1]);
 118
 119         if (dir) {
 120             (void) chdir(dir);
 121         }
 122
 123         rpmlog(RPMLOG_DEBUG, "\texecv(%s) pid %d\n",
 124                         argv[0], (unsigned)getpid());
 125
 126         unsetenv("MALLOC_CHECK_");
 127         (void) execvp(argv[0], (char *const *)argv);
 128         /* XXX this error message is probably not seen. */
 129         rpmlog(RPMLOG_ERR, _("Couldn't exec %s: %s\n"),
 130                 argv[0], strerror(errno));
 131         _exit(EXIT_FAILURE);
 132     }
 133     if (child < 0) {
 134         rpmlog(RPMLOG_ERR, _("Couldn't fork %s: %s\n"),
 135                 argv[0], strerror(errno));
 136         return NULL;
 137     }
 138
 139     (void) close(toProg[0]);
 140     (void) close(fromProg[1]);
 141
 142     /* Do not block reading or writing from/to prog. */
 143     (void) fcntl(fromProg[0], F_SETFL, O_NONBLOCK);
 144     (void) fcntl(toProg[1], F_SETFL, O_NONBLOCK);
 145
 146     readBuff = newStringBuf();
 147
 148     do {
 149         fd_set ibits, obits;
 150         struct timeval tv;
 151         int nfd, nbw, nbr;
 152         int rc;
 153
 154         done = 0;
 155 top:
 156         FD_ZERO(&ibits);
 157         FD_ZERO(&obits);
 158         if (fromProg[0] >= 0) {
 159             FD_SET(fromProg[0], &ibits);
 160         }
 161         if (toProg[1] >= 0) {
 162             FD_SET(toProg[1], &obits);
 163         }
 164         /* XXX values set to limit spinning with perl doing ~100 forks/sec. */
 165         tv.tv_sec = 0;
 166         tv.tv_usec = 10000;
 167         nfd = ((fromProg[0] > toProg[1]) ? fromProg[0] : toProg[1]);
 168         if ((rc = select(nfd, &ibits, &obits, NULL, &tv)) < 0) {
 169             if (errno == EINTR)
 170                 goto top;
 171             break;
 172         }
 173
 174         /* Write any data to program */
 175         if (toProg[1] >= 0 && FD_ISSET(toProg[1], &obits)) {
 176           if (writePtr && writeBytesLeft > 0) {
 177             if ((nbw = write(toProg[1], writePtr,
 178                     (1024<writeBytesLeft) ? 1024 : writeBytesLeft)) < 0) {
 179                 if (errno != EAGAIN) {
 180                     perror("getOutputFrom()");
 181                     exit(EXIT_FAILURE);
 182                 }
 183                 nbw = 0;
 184             }
 185             writeBytesLeft -= nbw;
 186             writePtr += nbw;
 187           } else if (toProg[1] >= 0) {  /* close write fd */
 188             (void) close(toProg[1]);
 189             toProg[1] = -1;
 190           }
 191         }
 192
 193         /* Read any data from prog */
 194         {   char buf[BUFSIZ+1];
 195             while ((nbr = read(fromProg[0], buf, sizeof(buf)-1)) > 0) {
 196                 buf[nbr] = '\0';
 197                 appendStringBuf(readBuff, buf);
 198             }
 199         }
 200
 201         /* terminate on (non-blocking) EOF or error */
 202         done = (nbr == 0 || (nbr < 0 && errno != EAGAIN));
 203
 204     } while (!done);
 205
 206     /* Clean up */
 207     if (toProg[1] >= 0)
 208         (void) close(toProg[1]);
 209     if (fromProg[0] >= 0)
 210         (void) close(fromProg[0]);
 211     /* FIX: cast? */
 212     (void) signal(SIGPIPE, oldhandler);
 213
 214     /* Collect status from prog */
 215     reaped = waitpid(child, &status, 0);
 216     rpmlog(RPMLOG_DEBUG, "\twaitpid(%d) rc %d status %x\n",
 217         (unsigned)child, (unsigned)reaped, status);
 218
 219     if (failNonZero && (!WIFEXITED(status) || WEXITSTATUS(status))) {
 220         rpmlog(RPMLOG_ERR, _("%s failed\n"), argv[0]);
 221         return NULL;
 222     }
 223     if (writeBytesLeft) {
 224         rpmlog(RPMLOG_ERR, _("failed to write all data to %s\n"), argv[0]);
 225         return NULL;
 226     }
 227     return readBuff;
 228 }
 229
 230 int rpmfcExec(ARGV_t av, StringBuf sb_stdin, StringBuf * sb_stdoutp,
 231                 int failnonzero)
 232 {
 233     char * s = NULL;
 234     ARGV_t xav = NULL;
 235     ARGV_t pav = NULL;
 236     int pac = 0;
 237     int ec = -1;
 238     StringBuf sb = NULL;
 239     const char * buf_stdin = NULL;
 240     size_t buf_stdin_len = 0;
 241     int xx;
 242
 243     if (sb_stdoutp)
 244         *sb_stdoutp = NULL;
 245     if (!(av && *av))
 246         goto exit;
 247
 248     /* Find path to executable with (possible) args. */
 249     s = rpmExpand(av[0], NULL);
 250     if (!(s && *s))
 251         goto exit;
 252
 253     /* Parse args buried within expanded exacutable. */
 254     pac = 0;
 255     xx = poptParseArgvString(s, &pac, (const char ***)&pav);
 256     if (!(xx == 0 && pac > 0 && pav != NULL))
 257         goto exit;
 258
 259     /* Build argv, appending args to the executable args. */
 260     xav = NULL;
 261     xx = argvAppend(&xav, pav);
 262     if (av[1])
 263         xx = rpmfcExpandAppend(&xav, av + 1);
 264
 265     if (sb_stdin != NULL) {
 266         buf_stdin = getStringBuf(sb_stdin);
 267         buf_stdin_len = strlen(buf_stdin);
 268     }
 269
 270     /* Read output from exec'd helper. */
 271     sb = getOutputFrom(NULL, xav, buf_stdin, buf_stdin_len, failnonzero);
 272
 273     if (sb_stdoutp != NULL) {
 274         *sb_stdoutp = sb;
 275         sb = NULL;      /* XXX don't free */
 276     }
 277
 278     ec = 0;
 279
 280 exit:
 281     sb = freeStringBuf(sb);
 282     xav = argvFree(xav);
 283     pav = _free(pav);   /* XXX popt mallocs in single blob. */
 284     s = _free(s);
 285     return ec;
 286 }
 287
 288 /**
 289  */
 290 static int rpmfcSaveArg(ARGV_t * argvp, char * key)
 291 {
 292     int rc = 0;
 293
 294     if (argvSearch(*argvp, key, NULL) == NULL) {
 295         rc = argvAdd(argvp, key);
 296         rc = argvSort(*argvp, NULL);
 297     }
 298     return rc;
 299 }
 300
 301 static char * rpmfcFileDep(int ix, rpmds ds)
 302 {
 303     rpmTag tagN = rpmdsTagN(ds);
 304     char *buf = NULL;
 305     char deptype;
 306
 307     if (ds == NULL) {
 308         return xstrdup("");
 309     }
 310
 311     assert(tagN == RPMTAG_PROVIDENAME || tagN == RPMTAG_REQUIRENAME);
 312
 313     switch ((rpm_tag_t) tagN) {
 314     case RPMTAG_PROVIDENAME:
 315         deptype = 'P';
 316         break;
 317     case RPMTAG_REQUIRENAME:
 318         deptype = 'R';
 319         break;
 320     }
 321
 322     rasprintf(&buf, "%08d%c %s %s 0x%08x", ix, deptype,
 323                 rpmdsN(ds), rpmdsEVR(ds), rpmdsFlags(ds));
 324
 325     return buf;
 326 }
 327
 328 static void rpmfcAddFileDep(ARGV_t * argvp, int ix, rpmds ds)
 329 {
 330         char *key = rpmfcFileDep(ix, ds);
 331         rpmfcSaveArg(argvp, key);
 332         free(key);
 333 }
 334
 335 /**
 336  * Run per-interpreter dependency helper.
 337  * @param fc            file classifier
 338  * @param deptype       'P' == Provides:, 'R' == Requires:, helper
 339  * @param nsdep         class name for interpreter (e.g. "perl")
 340  * @return              0 on success
 341  */
 342 static int rpmfcHelper(rpmfc fc, unsigned char deptype, const char * nsdep)
 343 {
 344     const char * fn = fc->fn[fc->ix];
 345     char *buf = NULL;
 346     StringBuf sb_stdout = NULL;
 347     StringBuf sb_stdin;
 348     const char *av[2];
 349     rpmds * depsp, ds;
 350     const char * N;
 351     const char * EVR;
 352     rpmsenseFlags Flags;
 353     int32_t dsContext, tagN;
 354     ARGV_t pav;
 355     const char * s;
 356     int pac;
 357     int xx;
 358     int i;
 359
 360     switch (deptype) {
 361     default:
 362         return -1;
 363         break;
 364     case 'P':
 365         if (fc->skipProv)
 366             return 0;
 367         rasprintf(&buf, "%%{?__%s_provides}", nsdep);
 368         depsp = &fc->provides;
 369         dsContext = RPMSENSE_FIND_PROVIDES;
 370         tagN = RPMTAG_PROVIDENAME;
 371         break;
 372     case 'R':
 373         if (fc->skipReq)
 374             return 0;
 375         rasprintf(&buf, "%%{?__%s_requires}", nsdep);
 376         depsp = &fc->requires;
 377         dsContext = RPMSENSE_FIND_REQUIRES;
 378         tagN = RPMTAG_REQUIRENAME;
 379         break;
 380     }
 381     av[0] = buf;
 382     av[1] = NULL;
 383
 384     sb_stdin = newStringBuf();
 385     appendLineStringBuf(sb_stdin, fn);
 386     sb_stdout = NULL;
 387     xx = rpmfcExec(av, sb_stdin, &sb_stdout, 0);
 388     sb_stdin = freeStringBuf(sb_stdin);
 389
 390     if (xx == 0 && sb_stdout != NULL) {
 391         pav = NULL;
 392         xx = argvSplit(&pav, getStringBuf(sb_stdout), " \t\n\r");
 393         pac = argvCount(pav);
 394         if (pav)
 395         for (i = 0; i < pac; i++) {
 396             N = pav[i];
 397             EVR = "";
 398             Flags = dsContext;
 399             if (pav[i+1] && strchr("=<>", *pav[i+1])) {
 400                 i++;
 401                 for (s = pav[i]; *s; s++) {
 402                     switch(*s) {
 403                     default:
 404 assert(*s != '\0');
 405                         break;
 406                     case '=':
 407                         Flags |= RPMSENSE_EQUAL;
 408                         break;
 409                     case '<':
 410                         Flags |= RPMSENSE_LESS;
 411                         break;
 412                     case '>':
 413                         Flags |= RPMSENSE_GREATER;
 414                         break;
 415                     }
 416                 }
 417                 i++;
 418                 EVR = pav[i];
 419 assert(EVR != NULL);
 420             }
 421
 422
 423             /* Add tracking dependency for versioned Provides: */
 424             if (!fc->tracked && deptype == 'P' && *EVR != '\0') {
 425                 ds = rpmdsSingle(RPMTAG_REQUIRENAME,
 426                         "rpmlib(VersionedDependencies)", "3.0.3-1",
 427                         RPMSENSE_RPMLIB|(RPMSENSE_LESS|RPMSENSE_EQUAL));
 428                 xx = rpmdsMerge(&fc->requires, ds);
 429                 ds = rpmdsFree(ds);
 430                 fc->tracked = 1;
 431             }
 432
 433             ds = rpmdsSingle(tagN, N, EVR, Flags);
 434
 435             /* Add to package dependencies. */
 436             xx = rpmdsMerge(depsp, ds);
 437
 438             /* Add to file dependencies. */
 439             rpmfcAddFileDep(&fc->ddict, fc->ix, ds);
 440
 441             ds = rpmdsFree(ds);
 442         }
 443
 444         pav = argvFree(pav);
 445     }
 446     sb_stdout = freeStringBuf(sb_stdout);
 447     free(buf);
 448
 449     return 0;
 450 }
 451
 452 /**
 453  */
 454 static const struct rpmfcTokens_s const rpmfcTokens[] = {
 455   { "directory",                RPMFC_DIRECTORY|RPMFC_INCLUDE },
 456
 457   { " shared object",           RPMFC_LIBRARY },
 458   { " executable",              RPMFC_EXECUTABLE },
 459   { " statically linked",       RPMFC_STATIC },
 460   { " not stripped",            RPMFC_NOTSTRIPPED },
 461   { " archive",                 RPMFC_ARCHIVE },
 462
 463   { "ELF 32-bit",               RPMFC_ELF32|RPMFC_INCLUDE },
 464   { "ELF 64-bit",               RPMFC_ELF64|RPMFC_INCLUDE },
 465
 466   { " script",                  RPMFC_SCRIPT },
 467   { " text",                    RPMFC_TEXT },
 468   { " document",                RPMFC_DOCUMENT },
 469
 470   { " compressed",              RPMFC_COMPRESSED },
 471
 472   { "troff or preprocessor input",      RPMFC_MANPAGE|RPMFC_INCLUDE },
 473   { "GNU Info",                 RPMFC_MANPAGE|RPMFC_INCLUDE },
 474
 475   { "perl script text",         RPMFC_PERL|RPMFC_INCLUDE },
 476   { "Perl5 module source text", RPMFC_PERL|RPMFC_MODULE|RPMFC_INCLUDE },
 477
 478   { " /usr/bin/python",         RPMFC_PYTHON|RPMFC_INCLUDE },
 479
 480   /* XXX "a /usr/bin/python -t script text executable" */
 481   /* XXX "python 2.3 byte-compiled" */
 482   { "python ",                  RPMFC_PYTHON|RPMFC_INCLUDE },
 483
 484   { "libtool library ",         RPMFC_LIBTOOL|RPMFC_INCLUDE },
 485   { "pkgconfig ",               RPMFC_PKGCONFIG|RPMFC_INCLUDE },
 486
 487   /* XXX .NET executables and libraries.  file(1) cannot differ from win32
 488    * executables unfortunately :( */
 489   { "PE executable",            RPMFC_MONO|RPMFC_INCLUDE },
 490
 491   { "current ar archive",       RPMFC_STATIC|RPMFC_LIBRARY|RPMFC_ARCHIVE|RPMFC_INCLUDE },
 492
 493   { "Zip archive data",         RPMFC_COMPRESSED|RPMFC_ARCHIVE|RPMFC_INCLUDE },
 494   { "tar archive",              RPMFC_ARCHIVE|RPMFC_INCLUDE },
 495   { "cpio archive",             RPMFC_ARCHIVE|RPMFC_INCLUDE },
 496   { "RPM v3",                   RPMFC_ARCHIVE|RPMFC_INCLUDE },
 497   { "RPM v4",                   RPMFC_ARCHIVE|RPMFC_INCLUDE },
 498
 499   { " image",                   RPMFC_IMAGE|RPMFC_INCLUDE },
 500   { " font",                    RPMFC_FONT|RPMFC_INCLUDE },
 501   { " Font",                    RPMFC_FONT|RPMFC_INCLUDE },
 502
 503   { " commands",                RPMFC_SCRIPT|RPMFC_INCLUDE },
 504   { " script",                  RPMFC_SCRIPT|RPMFC_INCLUDE },
 505
 506   { "empty",                    RPMFC_WHITE|RPMFC_INCLUDE },
 507
 508   { "HTML",                     RPMFC_WHITE|RPMFC_INCLUDE },
 509   { "SGML",                     RPMFC_WHITE|RPMFC_INCLUDE },
 510   { "XML",                      RPMFC_WHITE|RPMFC_INCLUDE },
 511
 512   { " program text",            RPMFC_WHITE|RPMFC_INCLUDE },
 513   { " source",                  RPMFC_WHITE|RPMFC_INCLUDE },
 514   { "GLS_BINARY_LSB_FIRST",     RPMFC_WHITE|RPMFC_INCLUDE },
 515   { " DB ",                     RPMFC_WHITE|RPMFC_INCLUDE },
 516
 517   { "ASCII English text",       RPMFC_WHITE|RPMFC_INCLUDE },
 518   { "ASCII text",               RPMFC_WHITE|RPMFC_INCLUDE },
 519   { "ISO-8859 text",            RPMFC_WHITE|RPMFC_INCLUDE },
 520
 521   { "symbolic link to",         RPMFC_SYMLINK },
 522   { "socket",                   RPMFC_DEVICE },
 523   { "special",                  RPMFC_DEVICE },
 524
 525   { "ASCII",                    RPMFC_WHITE },
 526   { "ISO-8859",                 RPMFC_WHITE },
 527
 528   { "data",                     RPMFC_WHITE },
 529
 530   { "application",              RPMFC_WHITE },
 531   { "boot",                     RPMFC_WHITE },
 532   { "catalog",                  RPMFC_WHITE },
 533   { "code",                     RPMFC_WHITE },
 534   { "file",                     RPMFC_WHITE },
 535   { "format",                   RPMFC_WHITE },
 536   { "message",                  RPMFC_WHITE },
 537   { "program",                  RPMFC_WHITE },
 538
 539   { "broken symbolic link to ", RPMFC_WHITE|RPMFC_ERROR },
 540   { "can't read",               RPMFC_WHITE|RPMFC_ERROR },
 541   { "can't stat",               RPMFC_WHITE|RPMFC_ERROR },
 542   { "executable, can't read",   RPMFC_WHITE|RPMFC_ERROR },
 543   { "core file",                RPMFC_WHITE|RPMFC_ERROR },
 544
 545   { NULL,                       RPMFC_BLACK }
 546 };
 547
 548 int rpmfcColoring(const char * fmstr)
 549 {
 550     rpmfcToken fct;
 551     rpm_color_t fcolor = RPMFC_BLACK;
 552
 553     for (fct = rpmfcTokens; fct->token != NULL; fct++) {
 554         if (strstr(fmstr, fct->token) == NULL)
 555             continue;
 556         fcolor |= fct->colors;
 557         if (fcolor & RPMFC_INCLUDE)
 558             return fcolor;
 559     }
 560     return fcolor;
 561 }
 562
 563 void rpmfcPrint(const char * msg, rpmfc fc, FILE * fp)
 564 {
 565     rpm_color_t fcolor;
 566     int ndx;
 567     int cx;
 568     int dx;
 569     int fx;
 570
 571 int nprovides;
 572 int nrequires;
 573
 574     if (fp == NULL) fp = stderr;
 575
 576     if (msg)
 577         fprintf(fp, "===================================== %s\n", msg);
 578
 579 nprovides = rpmdsCount(fc->provides);
 580 nrequires = rpmdsCount(fc->requires);
 581
 582     if (fc)
 583     for (fx = 0; fx < fc->nfiles; fx++) {
 584 assert(fx < fc->fcdictx->nvals);
 585         cx = fc->fcdictx->vals[fx];
 586 assert(fx < fc->fcolor->nvals);
 587         fcolor = fc->fcolor->vals[fx];
 588
 589         fprintf(fp, "%3d %s", fx, fc->fn[fx]);
 590         if (fcolor != RPMFC_BLACK)
 591                 fprintf(fp, "\t0x%x", fc->fcolor->vals[fx]);
 592         else
 593                 fprintf(fp, "\t%s", fc->cdict[cx]);
 594         fprintf(fp, "\n");
 595
 596         if (fc->fddictx == NULL || fc->fddictn == NULL)
 597             continue;
 598
 599 assert(fx < fc->fddictx->nvals);
 600         dx = fc->fddictx->vals[fx];
 601 assert(fx < fc->fddictn->nvals);
 602         ndx = fc->fddictn->vals[fx];
 603
 604         while (ndx-- > 0) {
 605             const char * depval;
 606             unsigned char deptype;
 607             unsigned ix;
 608
 609             ix = fc->ddictx->vals[dx++];
 610             deptype = ((ix >> 24) & 0xff);
 611             ix &= 0x00ffffff;
 612             depval = NULL;
 613             switch (deptype) {
 614             default:
 615 assert(depval != NULL);
 616                 break;
 617             case 'P':
 618                 if (nprovides > 0) {
 619 assert(ix < nprovides);
 620                     (void) rpmdsSetIx(fc->provides, ix-1);
 621                     if (rpmdsNext(fc->provides) >= 0)
 622                         depval = rpmdsDNEVR(fc->provides);
 623                 }
 624                 break;
 625             case 'R':
 626                 if (nrequires > 0) {
 627 assert(ix < nrequires);
 628                     (void) rpmdsSetIx(fc->requires, ix-1);
 629                     if (rpmdsNext(fc->requires) >= 0)
 630                         depval = rpmdsDNEVR(fc->requires);
 631                 }
 632                 break;
 633             }
 634             if (depval)
 635                 fprintf(fp, "\t%s\n", depval);
 636         }
 637     }
 638 }
 639
 640 rpmfc rpmfcFree(rpmfc fc)
 641 {
 642     if (fc) {
 643         fc->fn = argvFree(fc->fn);
 644         fc->fcolor = argiFree(fc->fcolor);
 645         fc->fcdictx = argiFree(fc->fcdictx);
 646         fc->fddictx = argiFree(fc->fddictx);
 647         fc->fddictn = argiFree(fc->fddictn);
 648         fc->cdict = argvFree(fc->cdict);
 649         fc->ddict = argvFree(fc->ddict);
 650         fc->ddictx = argiFree(fc->ddictx);
 651
 652         fc->provides = rpmdsFree(fc->provides);
 653         fc->requires = rpmdsFree(fc->requires);
 654
 655         fc->sb_java = freeStringBuf(fc->sb_java);
 656         fc->sb_perl = freeStringBuf(fc->sb_perl);
 657         fc->sb_python = freeStringBuf(fc->sb_python);
 658
 659     }
 660     fc = _free(fc);
 661     return NULL;
 662 }
 663
 664 rpmfc rpmfcNew(void)
 665 {
 666     rpmfc fc = xcalloc(1, sizeof(*fc));
 667     return fc;
 668 }
 669
 670 rpmds rpmfcProvides(rpmfc fc)
 671 {
 672     return (fc != NULL ? fc->provides : NULL);
 673 }
 674
 675 rpmds rpmfcRequires(rpmfc fc)
 676 {
 677     return (fc != NULL ? fc->requires : NULL);
 678 }
 679
 680
 681 /**
 682  * Extract script dependencies.
 683  * @param fc            file classifier
 684  * @return              0 on success
 685  */
 686 static int rpmfcSCRIPT(rpmfc fc)
 687 {
 688     const char * fn = fc->fn[fc->ix];
 689     const char * bn;
 690     rpmds ds;
 691     char buf[BUFSIZ];
 692     FILE * fp;
 693     char * s, * se;
 694     int i;
 695     struct stat sb, * st = &sb;
 696     int is_executable;
 697     int xx;
 698
 699     /* Only executable scripts are searched. */
 700     if (stat(fn, st) < 0)
 701         return -1;
 702     is_executable = (st->st_mode & (S_IXUSR|S_IXGRP|S_IXOTH));
 703
 704     fp = fopen(fn, "r");
 705     if (fp == NULL || ferror(fp)) {
 706         if (fp) (void) fclose(fp);
 707         return -1;
 708     }
 709
 710     /* Look for #! interpreter in first 10 lines. */
 711     for (i = 0; i < 10; i++) {
 712
 713         s = fgets(buf, sizeof(buf) - 1, fp);
 714         if (s == NULL || ferror(fp) || feof(fp))
 715             break;
 716         s[sizeof(buf)-1] = '\0';
 717         if (!(s[0] == '#' && s[1] == '!'))
 718             continue;
 719         s += 2;
 720
 721         while (*s && strchr(" \t\n\r", *s) != NULL)
 722             s++;
 723         if (*s == '\0')
 724             continue;
 725         if (*s != '/')
 726             continue;
 727
 728         for (se = s+1; *se; se++) {
 729             if (strchr(" \t\n\r", *se) != NULL)
 730                 break;
 731         }
 732         *se = '\0';
 733         se++;
 734
 735         if (is_executable) {
 736             /* Add to package requires. */
 737             ds = rpmdsSingle(RPMTAG_REQUIRENAME, s, "", RPMSENSE_FIND_REQUIRES);
 738             xx = rpmdsMerge(&fc->requires, ds);
 739
 740             /* Add to file requires. */
 741             rpmfcAddFileDep(&fc->ddict, fc->ix, ds);
 742
 743             ds = rpmdsFree(ds);
 744         }
 745
 746         /* Set color based on interpreter name. */
 747         bn = basename(s);
 748         if (!strcmp(bn, "perl"))
 749             fc->fcolor->vals[fc->ix] |= RPMFC_PERL;
 750         else if (!strncmp(bn, "python", sizeof("python")-1))
 751             fc->fcolor->vals[fc->ix] |= RPMFC_PYTHON;
 752
 753         break;
 754     }
 755
 756     (void) fclose(fp);
 757
 758     if (fc->fcolor->vals[fc->ix] & RPMFC_PERL) {
 759         if (fc->fcolor->vals[fc->ix] & RPMFC_MODULE)
 760             xx = rpmfcHelper(fc, 'P', "perl");
 761         if (is_executable || (fc->fcolor->vals[fc->ix] & RPMFC_MODULE))
 762             xx = rpmfcHelper(fc, 'R', "perl");
 763     }
 764     if (fc->fcolor->vals[fc->ix] & RPMFC_PYTHON) {
 765         xx = rpmfcHelper(fc, 'P', "python");
 766 #ifdef  NOTYET
 767         if (is_executable)
 768 #endif
 769             xx = rpmfcHelper(fc, 'R', "python");
 770     } else
 771     if (fc->fcolor->vals[fc->ix] & RPMFC_LIBTOOL) {
 772         xx = rpmfcHelper(fc, 'P', "libtool");
 773 #ifdef  NOTYET
 774         if (is_executable)
 775 #endif
 776             xx = rpmfcHelper(fc, 'R', "libtool");
 777     } else
 778     if (fc->fcolor->vals[fc->ix] & RPMFC_PKGCONFIG) {
 779         xx = rpmfcHelper(fc, 'P', "pkgconfig");
 780 #ifdef  NOTYET
 781         if (is_executable)
 782 #endif
 783             xx = rpmfcHelper(fc, 'R', "pkgconfig");
 784     } else
 785     if (fc->fcolor->vals[fc->ix] & RPMFC_MONO) {
 786         xx = rpmfcHelper(fc, 'P', "mono");
 787         if (is_executable)
 788             xx = rpmfcHelper(fc, 'R', "mono");
 789     }
 790
 791     return 0;
 792 }
 793
 794 /**
 795  * Extract Elf dependencies.
 796  * @param fc            file classifier
 797  * @return              0 on success
 798  */
 799 static int rpmfcELF(rpmfc fc)
 800 {
 801 #if HAVE_GELF_H && HAVE_LIBELF
 802     const char * fn = fc->fn[fc->ix];
 803     Elf * elf;
 804     Elf_Scn * scn;
 805     Elf_Data * data;
 806     GElf_Ehdr ehdr_mem, * ehdr;
 807     GElf_Shdr shdr_mem, * shdr;
 808     GElf_Verdef def_mem, * def;
 809     GElf_Verneed need_mem, * need;
 810     GElf_Dyn dyn_mem, * dyn;
 811     unsigned int auxoffset;
 812     unsigned int offset;
 813     int fdno;
 814     int cnt2;
 815     int cnt;
 816     char buf[BUFSIZ];
 817     const char * s;
 818     struct stat sb, * st = &sb;
 819     char * soname = NULL;
 820     rpmds * depsp, ds;
 821     rpmTag tagN;
 822     int32_t dsContext;
 823     char * t;
 824     int xx;
 825     int isElf64;
 826     int isDSO;
 827     int gotSONAME = 0;
 828     int gotDEBUG = 0;
 829     int gotHASH = 0;
 830     int gotGNUHASH = 0;
 831     static int filter_GLIBC_PRIVATE = 0;
 832     static int oneshot = 0;
 833
 834     if (oneshot == 0) {
 835         oneshot = 1;
 836         filter_GLIBC_PRIVATE = rpmExpandNumeric("%{?_filter_GLIBC_PRIVATE}");
 837     }
 838
 839     /* Files with executable bit set only. */
 840     if (stat(fn, st) != 0)
 841         return(-1);
 842
 843     fdno = open(fn, O_RDONLY);
 844     if (fdno < 0)
 845         return fdno;
 846
 847     (void) elf_version(EV_CURRENT);
 848
 849     elf = NULL;
 850     if ((elf = elf_begin (fdno, ELF_C_READ, NULL)) == NULL
 851      || elf_kind(elf) != ELF_K_ELF
 852      || (ehdr = gelf_getehdr(elf, &ehdr_mem)) == NULL
 853      || !(ehdr->e_type == ET_DYN || ehdr->e_type == ET_EXEC))
 854         goto exit;
 855
 856     isElf64 = ehdr->e_ident[EI_CLASS] == ELFCLASS64;
 857     isDSO = ehdr->e_type == ET_DYN;
 858
 859     scn = NULL;
 860     while ((scn = elf_nextscn(elf, scn)) != NULL) {
 861         shdr = gelf_getshdr(scn, &shdr_mem);
 862         if (shdr == NULL)
 863             break;
 864
 865         soname = _free(soname);
 866         switch (shdr->sh_type) {
 867         default:
 868             continue;
 869             break;
 870         case SHT_GNU_verdef:
 871             data = NULL;
 872             if (!fc->skipProv)
 873             while ((data = elf_getdata (scn, data)) != NULL) {
 874                 offset = 0;
 875                 for (cnt = shdr->sh_info; --cnt >= 0; ) {
 876
 877                     def = gelf_getverdef (data, offset, &def_mem);
 878                     if (def == NULL)
 879                         break;
 880                     auxoffset = offset + def->vd_aux;
 881                     for (cnt2 = def->vd_cnt; --cnt2 >= 0; ) {
 882                         GElf_Verdaux aux_mem, * aux;
 883
 884                         aux = gelf_getverdaux (data, auxoffset, &aux_mem);
 885                         if (aux == NULL)
 886                             break;
 887
 888                         s = elf_strptr(elf, shdr->sh_link, aux->vda_name);
 889                         if (s == NULL)
 890                             break;
 891                         if (def->vd_flags & VER_FLG_BASE) {
 892                             soname = _free(soname);
 893                             soname = xstrdup(s);
 894                             auxoffset += aux->vda_next;
 895                             continue;
 896                         } else
 897                         if (soname != NULL
 898                          && !(filter_GLIBC_PRIVATE != 0
 899                                 && !strcmp(s, "GLIBC_PRIVATE")))
 900                         {
 901                             buf[0] = '\0';
 902                             t = buf;
 903                             t = stpcpy( stpcpy( stpcpy( stpcpy(t, soname), "("), s), ")");
 904
 905 #if !defined(__alpha__)
 906                             if (isElf64)
 907                                 t = stpcpy(t, "(64bit)");
 908 #endif
 909                             t++;
 910
 911                             /* Add to package provides. */
 912                             ds = rpmdsSingle(RPMTAG_PROVIDES,
 913                                         buf, "", RPMSENSE_FIND_PROVIDES);
 914                             xx = rpmdsMerge(&fc->provides, ds);
 915
 916                             /* Add to file dependencies. */
 917                             rpmfcAddFileDep(&fc->ddict, fc->ix, ds);
 918
 919                             ds = rpmdsFree(ds);
 920                         }
 921                         auxoffset += aux->vda_next;
 922                     }
 923                     offset += def->vd_next;
 924                 }
 925             }
 926             break;
 927         case SHT_GNU_verneed:
 928             data = NULL;
 929             /* Files with executable bit set only. */
 930             if (!fc->skipReq && (st->st_mode & (S_IXUSR|S_IXGRP|S_IXOTH)))
 931             while ((data = elf_getdata (scn, data)) != NULL) {
 932                 offset = 0;
 933                 for (cnt = shdr->sh_info; --cnt >= 0; ) {
 934                     need = gelf_getverneed (data, offset, &need_mem);
 935                     if (need == NULL)
 936                         break;
 937
 938                     s = elf_strptr(elf, shdr->sh_link, need->vn_file);
 939                     if (s == NULL)
 940                         break;
 941                     soname = _free(soname);
 942                     soname = xstrdup(s);
 943                     auxoffset = offset + need->vn_aux;
 944                     for (cnt2 = need->vn_cnt; --cnt2 >= 0; ) {
 945                         GElf_Vernaux aux_mem, * aux;
 946
 947                         aux = gelf_getvernaux (data, auxoffset, &aux_mem);
 948                         if (aux == NULL)
 949                             break;
 950
 951                         s = elf_strptr(elf, shdr->sh_link, aux->vna_name);
 952                         if (s == NULL)
 953                             break;
 954
 955                         /* Filter dependencies that contain GLIBC_PRIVATE */
 956                         if (soname != NULL
 957                          && !(filter_GLIBC_PRIVATE != 0
 958                                 && !strcmp(s, "GLIBC_PRIVATE")))
 959                         {
 960                             buf[0] = '\0';
 961                             t = buf;
 962                             t = stpcpy( stpcpy( stpcpy( stpcpy(t, soname), "("), s), ")");
 963
 964 #if !defined(__alpha__)
 965                             if (isElf64)
 966                                 t = stpcpy(t, "(64bit)");
 967 #endif
 968                             t++;
 969
 970                             /* Add to package dependencies. */
 971                             ds = rpmdsSingle(RPMTAG_REQUIRENAME,
 972                                         buf, "", RPMSENSE_FIND_REQUIRES);
 973                             xx = rpmdsMerge(&fc->requires, ds);
 974
 975                             /* Add to file dependencies. */
 976                             rpmfcAddFileDep(&fc->ddict, fc->ix, ds);
 977                             ds = rpmdsFree(ds);
 978                         }
 979                         auxoffset += aux->vna_next;
 980                     }
 981                     offset += need->vn_next;
 982                 }
 983             }
 984             break;
 985         case SHT_DYNAMIC:
 986             data = NULL;
 987             while ((data = elf_getdata (scn, data)) != NULL) {
 988                 for (cnt = 0; cnt < (shdr->sh_size / shdr->sh_entsize); ++cnt) {
 989                     dyn = gelf_getdyn (data, cnt, &dyn_mem);
 990                     if (dyn == NULL)
 991                         break;
 992                     s = NULL;
 993                     switch (dyn->d_tag) {
 994                     default:
 995                         continue;
 996                         break;
 997                     case DT_HASH:
 998                         gotHASH= 1;
 999                         continue;
1000                     case DT_GNU_HASH:
1001                         gotGNUHASH= 1;
1002                         continue;
1003                     case DT_DEBUG:
1004                         gotDEBUG = 1;
1005                         continue;
1006                     case DT_NEEDED:
1007                         /* Files with executable bit set only. */
1008                         if (fc->skipReq || !(st->st_mode & (S_IXUSR|S_IXGRP|S_IXOTH)))
1009                             continue;
1010                         /* Add to package requires. */
1011                         depsp = &fc->requires;
1012                         tagN = RPMTAG_REQUIRENAME;
1013                         dsContext = RPMSENSE_FIND_REQUIRES;
1014                         s = elf_strptr(elf, shdr->sh_link, dyn->d_un.d_val);
1015 assert(s != NULL);
1016                         break;
1017                     case DT_SONAME:
1018                         gotSONAME = 1;
1019                         /* Add to package provides. */
1020                         if (fc->skipProv)
1021                             continue;
1022                         depsp = &fc->provides;
1023                         tagN = RPMTAG_PROVIDENAME;
1024                         dsContext = RPMSENSE_FIND_PROVIDES;
1025                         s = elf_strptr(elf, shdr->sh_link, dyn->d_un.d_val);
1026 assert(s != NULL);
1027                         break;
1028                     }
1029                     if (s == NULL)
1030                         continue;
1031
1032                     buf[0] = '\0';
1033                     t = buf;
1034                     t = stpcpy(t, s);
1035
1036 #if !defined(__alpha__)
1037                     if (isElf64)
1038                         t = stpcpy(t, "()(64bit)");
1039 #endif
1040                     t++;
1041
1042                     /* Add to package dependencies. */
1043                     ds = rpmdsSingle(tagN, buf, "", dsContext);
1044                     xx = rpmdsMerge(depsp, ds);
1045
1046                     /* Add to file dependencies. */
1047                     rpmfcAddFileDep(&fc->ddict, fc->ix, ds);
1048
1049                     ds = rpmdsFree(ds);
1050                 }
1051             }
1052             break;
1053         }
1054     }
1055
1056     /* For DSOs which use the .gnu_hash section and don't have a .hash
1057      * section, we need to ensure that we have a new enough glibc. */
1058     if (gotGNUHASH && !gotHASH) {
1059         ds = rpmdsSingle(RPMTAG_REQUIRENAME, "rtld(GNU_HASH)", "",
1060                          RPMSENSE_FIND_REQUIRES);
1061         rpmdsMerge(&fc->requires, ds);
1062         buf[0] = '\0';
1063         t = buf;
1064         rpmfcAddFileDep(&fc->ddict, fc->ix, ds);
1065         ds = rpmdsFree(ds);
1066     }
1067
1068     /* For DSO's, provide the basename of the file if DT_SONAME not found. */
1069     if (!fc->skipProv && isDSO && !gotDEBUG && !gotSONAME) {
1070         depsp = &fc->provides;
1071         tagN = RPMTAG_PROVIDENAME;
1072         dsContext = RPMSENSE_FIND_PROVIDES;
1073
1074         s = strrchr(fn, '/');
1075         if (s)
1076             s++;
1077         else
1078             s = fn;
1079
1080         buf[0] = '\0';
1081         t = buf;
1082 /* LCL: s is not null. */
1083         t = stpcpy(t, s);
1084
1085 #if !defined(__alpha__)
1086         if (isElf64)
1087             t = stpcpy(t, "()(64bit)");
1088 #endif
1089         t++;
1090
1091         /* Add to package dependencies. */
1092         ds = rpmdsSingle(tagN, buf, "", dsContext);
1093         xx = rpmdsMerge(depsp, ds);
1094
1095         /* Add to file dependencies. */
1096         rpmfcAddFileDep(&fc->ddict, fc->ix, ds);
1097
1098         ds = rpmdsFree(ds);
1099     }
1100
1101 exit:
1102     soname = _free(soname);
1103     if (elf) (void) elf_end(elf);
1104     xx = close(fdno);
1105     return 0;
1106 #else
1107     return -1;
1108 #endif
1109 }
1110
1111 typedef const struct rpmfcApplyTbl_s {
1112     int (*func) (rpmfc fc);
1113     int colormask;
1114 } * rpmfcApplyTbl;
1115
1116 /**
1117  */
1118 static const struct rpmfcApplyTbl_s const rpmfcApplyTable[] = {
1119     { rpmfcELF,         RPMFC_ELF },
1120     { rpmfcSCRIPT,      (RPMFC_SCRIPT|RPMFC_PERL) },
1121     { rpmfcSCRIPT,      (RPMFC_SCRIPT|RPMFC_PYTHON) },
1122     { rpmfcSCRIPT,      (RPMFC_SCRIPT|RPMFC_PKGCONFIG) },
1123     { rpmfcSCRIPT,      (RPMFC_SCRIPT|RPMFC_LIBTOOL) },
1124     { rpmfcSCRIPT,      RPMFC_MONO },
1125     { NULL, 0 }
1126 };
1127
1128 rpmRC rpmfcApply(rpmfc fc)
1129 {
1130     rpmfcApplyTbl fcat;
1131     const char * s;
1132     char * se;
1133     rpmds ds;
1134     const char * N;
1135     const char * EVR;
1136     rpmsenseFlags Flags;
1137     unsigned char deptype;
1138     int nddict;
1139     int previx;
1140     unsigned int val;
1141     int dix;
1142     int ix;
1143     int i;
1144     int xx;
1145
1146     /* Generate package and per-file dependencies. */
1147     for (fc->ix = 0; fc->fn[fc->ix] != NULL; fc->ix++) {
1148
1149         /* XXX Insure that /usr/lib{,64}/python files are marked RPMFC_PYTHON */
1150         /* XXX HACK: classification by path is intrinsically stupid. */
1151         {   const char *fn = strstr(fc->fn[fc->ix], "/usr/lib");
1152             if (fn) {
1153                 fn += sizeof("/usr/lib")-1;
1154                 if (fn[0] == '6' && fn[1] == '4')
1155                     fn += 2;
1156                 if (!strncmp(fn, "/python", sizeof("/python")-1))
1157                     fc->fcolor->vals[fc->ix] |= RPMFC_PYTHON;
1158             }
1159         }
1160
1161         if (fc->fcolor->vals[fc->ix])
1162         for (fcat = rpmfcApplyTable; fcat->func != NULL; fcat++) {
1163             if (!(fc->fcolor->vals[fc->ix] & fcat->colormask))
1164                 continue;
1165             xx = (*fcat->func) (fc);
1166         }
1167     }
1168
1169     /* Generate per-file indices into package dependencies. */
1170     nddict = argvCount(fc->ddict);
1171     previx = -1;
1172     for (i = 0; i < nddict; i++) {
1173         s = fc->ddict[i];
1174
1175         /* Parse out (file#,deptype,N,EVR,Flags) */
1176         ix = strtol(s, &se, 10);
1177 assert(se != NULL);
1178         deptype = *se++;
1179         se++;
1180         N = se;
1181         while (*se && *se != ' ')
1182             se++;
1183         *se++ = '\0';
1184         EVR = se;
1185         while (*se && *se != ' ')
1186             se++;
1187         *se++ = '\0';
1188         Flags = strtol(se, NULL, 16);
1189
1190         dix = -1;
1191         switch (deptype) {
1192         default:
1193             break;
1194         case 'P':
1195             ds = rpmdsSingle(RPMTAG_PROVIDENAME, N, EVR, Flags);
1196             dix = rpmdsFind(fc->provides, ds);
1197             ds = rpmdsFree(ds);
1198             break;
1199         case 'R':
1200             ds = rpmdsSingle(RPMTAG_REQUIRENAME, N, EVR, Flags);
1201             dix = rpmdsFind(fc->requires, ds);
1202             ds = rpmdsFree(ds);
1203             break;
1204         }
1205
1206 /* XXX assertion incorrect while generating -debuginfo deps. */
1207 #if 0
1208 assert(dix >= 0);
1209 #else
1210         if (dix < 0)
1211             continue;
1212 #endif
1213
1214         val = (deptype << 24) | (dix & 0x00ffffff);
1215         xx = argiAdd(&fc->ddictx, -1, val);
1216
1217         if (previx != ix) {
1218             previx = ix;
1219             xx = argiAdd(&fc->fddictx, ix, argiCount(fc->ddictx)-1);
1220         }
1221         if (fc->fddictn && fc->fddictn->vals)
1222             fc->fddictn->vals[ix]++;
1223     }
1224
1225     return 0;
1226 }
1227
1228 rpmRC rpmfcClassify(rpmfc fc, ARGV_t argv, rpm_mode_t * fmode)
1229 {
1230     ARGV_t fcav = NULL;
1231     ARGV_t dav;
1232     const char * s, * se;
1233     size_t slen;
1234     int fcolor;
1235     int xx;
1236     int msflags = MAGIC_CHECK;  /* XXX MAGIC_COMPRESS flag? */
1237     magic_t ms = NULL;
1238
1239     if (fc == NULL || argv == NULL)
1240         return 0;
1241
1242     fc->nfiles = argvCount(argv);
1243
1244     /* Initialize the per-file dictionary indices. */
1245     xx = argiAdd(&fc->fddictx, fc->nfiles-1, 0);
1246     xx = argiAdd(&fc->fddictn, fc->nfiles-1, 0);
1247
1248     /* Build (sorted) file class dictionary. */
1249     xx = argvAdd(&fc->cdict, "");
1250     xx = argvAdd(&fc->cdict, "directory");
1251
1252     ms = magic_open(msflags);
1253     if (ms == NULL) {
1254         rpmlog(RPMLOG_ERR, _("magic_open(0x%x) failed: %s\n"),
1255                 msflags, strerror(errno));
1256 assert(ms != NULL);     /* XXX figger a proper return path. */
1257     }
1258
1259     xx = magic_load(ms, NULL);
1260     if (xx == -1) {
1261         rpmlog(RPMLOG_ERR, _("magic_load failed: %s\n"), magic_error(ms));
1262 assert(xx != -1);       /* XXX figger a proper return path. */
1263     }
1264
1265     for (fc->ix = 0; fc->ix < fc->nfiles; fc->ix++) {
1266         const char * ftype;
1267         rpm_mode_t mode = (fmode ? fmode[fc->ix] : 0);
1268
1269         s = argv[fc->ix];
1270 assert(s != NULL);
1271         slen = strlen(s);
1272
1273         switch (mode & S_IFMT) {
1274         case S_IFCHR:   ftype = "character special";    break;
1275         case S_IFBLK:   ftype = "block special";        break;
1276         case S_IFIFO:   ftype = "fifo (named pipe)";    break;
1277         case S_IFSOCK:  ftype = "socket";               break;
1278         case S_IFDIR:
1279         case S_IFLNK:
1280         case S_IFREG:
1281         default:
1282             /* XXX all files with extension ".pm" are perl modules for now. */
1283             if (rpmFileHasSuffix(s, ".pm"))
1284                 ftype = "Perl5 module source text";
1285
1286             /* XXX all files with extension ".la" are libtool for now. */
1287             else if (rpmFileHasSuffix(s, ".la"))
1288                 ftype = "libtool library file";
1289
1290             /* XXX all files with extension ".pc" are pkgconfig for now. */
1291             else if (rpmFileHasSuffix(s, ".pc"))
1292                 ftype = "pkgconfig file";
1293
1294             /* XXX skip all files in /dev/ which are (or should be) %dev dummies. */
1295             else if (slen >= fc->brlen+sizeof("/dev/") && !strncmp(s+fc->brlen, "/dev/", sizeof("/dev/")-1))
1296                 ftype = "";
1297             else
1298                 ftype = magic_file(ms, s);
1299
1300             if (ftype == NULL) {
1301                 rpmlog(RPMLOG_ERR,
1302                        _("magic_file(ms, \"%s\") failed: mode %06o %s\n"),
1303                        s, mode, magic_error(ms));
1304 assert(ftype != NULL);  /* XXX figger a proper return path. */
1305             }
1306         }
1307
1308         se = ftype;
1309         rpmlog(RPMLOG_DEBUG, "%s: %s\n", s, se);
1310
1311         /* Save the path. */
1312         xx = argvAdd(&fc->fn, s);
1313
1314         /* Save the file type string. */
1315         xx = argvAdd(&fcav, se);
1316
1317         /* Add (filtered) entry to sorted class dictionary. */
1318         fcolor = rpmfcColoring(se);
1319         xx = argiAdd(&fc->fcolor, fc->ix, fcolor);
1320
1321         if (fcolor != RPMFC_WHITE && (fcolor & RPMFC_INCLUDE))
1322             xx = rpmfcSaveArg(&fc->cdict, xstrdup(se));
1323     }
1324
1325     /* Build per-file class index array. */
1326     fc->fknown = 0;
1327     for (fc->ix = 0; fc->ix < fc->nfiles; fc->ix++) {
1328         se = fcav[fc->ix];
1329 assert(se != NULL);
1330
1331         dav = argvSearch(fc->cdict, se, NULL);
1332         if (dav) {
1333             xx = argiAdd(&fc->fcdictx, fc->ix, (dav - fc->cdict));
1334             fc->fknown++;
1335         } else {
1336             xx = argiAdd(&fc->fcdictx, fc->ix, 0);
1337             fc->fwhite++;
1338         }
1339     }
1340
1341     fcav = argvFree(fcav);
1342
1343     if (ms != NULL)
1344         magic_close(ms);
1345
1346     return 0;
1347 }
1348
1349 /**
1350  */
1351 typedef struct DepMsg_s * DepMsg_t;
1352
1353 /**
1354  */
1355 struct DepMsg_s {
1356     const char * msg;
1357     const char * argv[4];
1358     rpmTag ntag;
1359     rpmTag vtag;
1360     rpmTag ftag;
1361     int mask;
1362     int xor;
1363 };
1364
1365 /**
1366  */
1367 static struct DepMsg_s depMsgs[] = {
1368   { "Provides",         { "%{?__find_provides}", NULL, NULL, NULL },
1369         RPMTAG_PROVIDENAME, RPMTAG_PROVIDEVERSION, RPMTAG_PROVIDEFLAGS,
1370         0, -1 },
1371   { "Requires(interp)", { NULL, "interp", NULL, NULL },
1372         RPMTAG_REQUIRENAME, RPMTAG_REQUIREVERSION, RPMTAG_REQUIREFLAGS,
1373         _notpre(RPMSENSE_INTERP), 0 },
1374   { "Requires(rpmlib)", { NULL, "rpmlib", NULL, NULL },
1375         -1, -1, RPMTAG_REQUIREFLAGS,
1376         _notpre(RPMSENSE_RPMLIB), 0 },
1377   { "Requires(verify)", { NULL, "verify", NULL, NULL },
1378         -1, -1, RPMTAG_REQUIREFLAGS,
1379         RPMSENSE_SCRIPT_VERIFY, 0 },
1380   { "Requires(pre)",    { NULL, "pre", NULL, NULL },
1381         -1, -1, RPMTAG_REQUIREFLAGS,
1382         _notpre(RPMSENSE_SCRIPT_PRE), 0 },
1383   { "Requires(post)",   { NULL, "post", NULL, NULL },
1384         -1, -1, RPMTAG_REQUIREFLAGS,
1385         _notpre(RPMSENSE_SCRIPT_POST), 0 },
1386   { "Requires(preun)",  { NULL, "preun", NULL, NULL },
1387         -1, -1, RPMTAG_REQUIREFLAGS,
1388         _notpre(RPMSENSE_SCRIPT_PREUN), 0 },
1389   { "Requires(postun)", { NULL, "postun", NULL, NULL },
1390         -1, -1, RPMTAG_REQUIREFLAGS,
1391         _notpre(RPMSENSE_SCRIPT_POSTUN), 0 },
1392   { "Requires",         { "%{?__find_requires}", NULL, NULL, NULL },
1393         -1, -1, RPMTAG_REQUIREFLAGS,    /* XXX inherit name/version arrays */
1394         RPMSENSE_FIND_REQUIRES|RPMSENSE_TRIGGERIN|RPMSENSE_TRIGGERUN|RPMSENSE_TRIGGERPOSTUN|RPMSENSE_TRIGGERPREIN, 0 },
1395   { "Conflicts",        { "%{?__find_conflicts}", NULL, NULL, NULL },
1396         RPMTAG_CONFLICTNAME, RPMTAG_CONFLICTVERSION, RPMTAG_CONFLICTFLAGS,
1397         0, -1 },
1398   { "Obsoletes",        { "%{?__find_obsoletes}", NULL, NULL, NULL },
1399         RPMTAG_OBSOLETENAME, RPMTAG_OBSOLETEVERSION, RPMTAG_OBSOLETEFLAGS,
1400         0, -1 },
1401   { NULL,               { NULL, NULL, NULL, NULL },     0, 0, 0, 0, 0 }
1402 };
1403
1404 static DepMsg_t DepMsgs = depMsgs;
1405
1406 /**
1407  */
1408 static void printDeps(Header h)
1409 {
1410     DepMsg_t dm;
1411     rpmds ds = NULL;
1412     int flags = 0;      /* XXX !scareMem */
1413     const char * DNEVR;
1414     rpmsenseFlags Flags;
1415     int bingo = 0;
1416
1417     for (dm = DepMsgs; dm->msg != NULL; dm++) {
1418         if (dm->ntag != -1) {
1419             ds = rpmdsFree(ds);
1420             ds = rpmdsNew(h, dm->ntag, flags);
1421         }
1422         if (dm->ftag == 0)
1423             continue;
1424
1425         ds = rpmdsInit(ds);
1426         if (ds == NULL)
1427             continue;   /* XXX can't happen */
1428
1429         bingo = 0;
1430         while (rpmdsNext(ds) >= 0) {
1431
1432             Flags = rpmdsFlags(ds);
1433
1434             if (!((Flags & dm->mask) ^ dm->xor))
1435                 continue;
1436             if (bingo == 0) {
1437                 rpmlog(RPMLOG_NOTICE, "%s:", (dm->msg ? dm->msg : ""));
1438                 bingo = 1;
1439             }
1440             if ((DNEVR = rpmdsDNEVR(ds)) == NULL)
1441                 continue;       /* XXX can't happen */
1442             rpmlog(RPMLOG_NOTICE, " %s", DNEVR+2);
1443         }
1444         if (bingo)
1445             rpmlog(RPMLOG_NOTICE, "\n");
1446     }
1447     ds = rpmdsFree(ds);
1448 }
1449
1450 /**
1451  */
1452 static int rpmfcGenerateDependsHelper(const rpmSpec spec, Package pkg, rpmfi fi)
1453 {
1454     StringBuf sb_stdin;
1455     StringBuf sb_stdout;
1456     DepMsg_t dm;
1457     int failnonzero = 0;
1458     int rc = 0;
1459
1460     /*
1461      * Create file manifest buffer to deliver to dependency finder.
1462      */
1463     sb_stdin = newStringBuf();
1464     fi = rpmfiInit(fi, 0);
1465     if (fi != NULL)
1466     while (rpmfiNext(fi) >= 0)
1467         appendLineStringBuf(sb_stdin, rpmfiFN(fi));
1468
1469     for (dm = DepMsgs; dm->msg != NULL; dm++) {
1470         rpmTag tag;
1471         rpmsenseFlags tagflags;
1472         char * s;
1473         int xx;
1474
1475         tag = (dm->ftag > 0) ? dm->ftag : dm->ntag;
1476         tagflags = 0;
1477         s = NULL;
1478
1479         switch(tag) {
1480         case RPMTAG_PROVIDEFLAGS:
1481             if (!pkg->autoProv)
1482                 continue;
1483             failnonzero = 1;
1484             tagflags = RPMSENSE_FIND_PROVIDES;
1485             break;
1486         case RPMTAG_REQUIREFLAGS:
1487             if (!pkg->autoReq)
1488                 continue;
1489             failnonzero = 0;
1490             tagflags = RPMSENSE_FIND_REQUIRES;
1491             break;
1492         default:
1493             continue;
1494             break;
1495         }
1496
1497         xx = rpmfcExec(dm->argv, sb_stdin, &sb_stdout, failnonzero);
1498         if (xx == -1)
1499             continue;
1500
1501         s = rpmExpand(dm->argv[0], NULL);
1502         rpmlog(RPMLOG_NOTICE, _("Finding  %s: %s\n"), dm->msg,
1503                 (s ? s : ""));
1504         s = _free(s);
1505
1506         if (sb_stdout == NULL) {
1507             rc = RPMRC_FAIL;
1508             rpmlog(rc, _("Failed to find %s:\n"), dm->msg);
1509             break;
1510         }
1511
1512         /* Parse dependencies into header */
1513         rc = parseRCPOT(spec, pkg, getStringBuf(sb_stdout), tag, 0, tagflags);
1514         sb_stdout = freeStringBuf(sb_stdout);
1515
1516         if (rc) {
1517             rpmlog(rc, _("Failed to find %s:\n"), dm->msg);
1518             break;
1519         }
1520     }
1521
1522     sb_stdin = freeStringBuf(sb_stdin);
1523
1524     return rc;
1525 }
1526
1527 rpmRC rpmfcGenerateDepends(const rpmSpec spec, Package pkg)
1528 {
1529     rpmfi fi = pkg->cpioList;
1530     rpmfc fc = NULL;
1531     rpmds ds;
1532     int flags = 0;      /* XXX !scareMem */
1533     ARGV_t av;
1534     rpm_mode_t * fmode;
1535     int ac = rpmfiFC(fi);
1536     const void ** p;
1537     char *buf = NULL;
1538     const char * N;
1539     const char * EVR;
1540     int genConfigDeps;
1541     rpm_count_t c;
1542     int rc = 0;
1543     int xx;
1544     int idx;
1545
1546     /* Skip packages with no files. */
1547     if (ac <= 0)
1548         return 0;
1549
1550     /* Skip packages that have dependency generation disabled. */
1551     if (! (pkg->autoReq || pkg->autoProv))
1552         return 0;
1553
1554     /* If new-fangled dependency generation is disabled ... */
1555     if (!rpmExpandNumeric("%{?_use_internal_dependency_generator}")) {
1556         /* ... then generate dependencies using %{__find_requires} et al. */
1557         rc = rpmfcGenerateDependsHelper(spec, pkg, fi);
1558         printDeps(pkg->header);
1559         return rc;
1560     }
1561
1562     /* Extract absolute file paths in argv format. */
1563     av = xcalloc(ac+1, sizeof(*av));
1564     fmode = xcalloc(ac+1, sizeof(*fmode));
1565
1566     genConfigDeps = 0;
1567     fi = rpmfiInit(fi, 0);
1568     if (fi != NULL)
1569     while ((idx = rpmfiNext(fi)) >= 0) {
1570         rpmfileAttrs fileAttrs;
1571
1572         /* Does package have any %config files? */
1573         fileAttrs = rpmfiFFlags(fi);
1574         genConfigDeps |= (fileAttrs & RPMFILE_CONFIG);
1575
1576         av[idx] = xstrdup(rpmfiFN(fi));
1577         fmode[idx] = rpmfiFMode(fi);
1578     }
1579     av[ac] = NULL;
1580
1581     fc = rpmfcNew();
1582     fc->skipProv = !pkg->autoProv;
1583     fc->skipReq = !pkg->autoReq;
1584     fc->tracked = 0;
1585     fc->brlen = (spec->buildRootURL ? strlen(spec->buildRootURL) : 0);
1586
1587     /* Copy (and delete) manually generated dependencies to dictionary. */
1588     if (!fc->skipProv) {
1589         ds = rpmdsNew(pkg->header, RPMTAG_PROVIDENAME, flags);
1590         xx = rpmdsMerge(&fc->provides, ds);
1591         ds = rpmdsFree(ds);
1592         xx = headerRemoveEntry(pkg->header, RPMTAG_PROVIDENAME);
1593         xx = headerRemoveEntry(pkg->header, RPMTAG_PROVIDEVERSION);
1594         xx = headerRemoveEntry(pkg->header, RPMTAG_PROVIDEFLAGS);
1595
1596         /* Add config dependency, Provides: config(N) = EVR */
1597         if (genConfigDeps) {
1598             N = rpmdsN(pkg->ds);
1599 assert(N != NULL);
1600             EVR = rpmdsEVR(pkg->ds);
1601 assert(EVR != NULL);
1602             rasprintf(&buf, "config(%s)", N);
1603             ds = rpmdsSingle(RPMTAG_PROVIDENAME, buf, EVR,
1604                         (RPMSENSE_EQUAL|RPMSENSE_CONFIG));
1605             free(buf);
1606             xx = rpmdsMerge(&fc->provides, ds);
1607             ds = rpmdsFree(ds);
1608         }
1609     }
1610
1611     if (!fc->skipReq) {
1612         ds = rpmdsNew(pkg->header, RPMTAG_REQUIRENAME, flags);
1613         xx = rpmdsMerge(&fc->requires, ds);
1614         ds = rpmdsFree(ds);
1615         xx = headerRemoveEntry(pkg->header, RPMTAG_REQUIRENAME);
1616         xx = headerRemoveEntry(pkg->header, RPMTAG_REQUIREVERSION);
1617         xx = headerRemoveEntry(pkg->header, RPMTAG_REQUIREFLAGS);
1618
1619         /* Add config dependency,  Requires: config(N) = EVR */
1620         if (genConfigDeps) {
1621             N = rpmdsN(pkg->ds);
1622 assert(N != NULL);
1623             EVR = rpmdsEVR(pkg->ds);
1624 assert(EVR != NULL);
1625             rasprintf(&buf, "config(%s)", N);
1626             ds = rpmdsSingle(RPMTAG_REQUIRENAME, buf, EVR,
1627                         (RPMSENSE_EQUAL|RPMSENSE_CONFIG));
1628             free(buf);
1629             xx = rpmdsMerge(&fc->requires, ds);
1630             ds = rpmdsFree(ds);
1631         }
1632     }
1633
1634     /* Build file class dictionary. */
1635     xx = rpmfcClassify(fc, av, fmode);
1636
1637     /* Build file/package dependency dictionary. */
1638     xx = rpmfcApply(fc);
1639
1640     /* Add per-file colors(#files) */
1641     p = (const void **) argiData(fc->fcolor);
1642     c = argiCount(fc->fcolor);
1643 assert(ac == c);
1644     if (p != NULL && c > 0) {
1645         rpm_color_t * fcolors = (rpm_color_t *)p;
1646         int i;
1647
1648         /* XXX Make sure only primary (i.e. Elf32/Elf64) colors are added. */
1649         for (i = 0; i < c; i++)
1650             fcolors[i] &= 0x0f;
1651         xx = headerAddEntry(pkg->header, RPMTAG_FILECOLORS, RPM_INT32_TYPE,
1652                         p, c);
1653     }
1654
1655     /* Add classes(#classes) */
1656     p = (const void **) argvData(fc->cdict);
1657     c = argvCount(fc->cdict);
1658     if (p != NULL && c > 0)
1659         xx = headerAddEntry(pkg->header, RPMTAG_CLASSDICT, RPM_STRING_ARRAY_TYPE,
1660                         p, c);
1661
1662     /* Add per-file classes(#files) */
1663     p = (const void **) argiData(fc->fcdictx);
1664     c = argiCount(fc->fcdictx);
1665 assert(ac == c);
1666     if (p != NULL && c > 0)
1667         xx = headerAddEntry(pkg->header, RPMTAG_FILECLASS, RPM_INT32_TYPE,
1668                         p, c);
1669
1670     /* Add Provides: */
1671     if (fc->provides != NULL && (c = rpmdsCount(fc->provides)) > 0 && !fc->skipProv) {
1672         const char **names = xcalloc(c, sizeof(char *));
1673         const char **evrs = xcalloc(c, sizeof(char *));
1674         rpmsenseFlags *flags = xcalloc(c, sizeof(rpmsenseFlags *));
1675         int i;
1676         rpmds pi = rpmdsInit(fc->provides);
1677         while ((i = rpmdsNext(pi)) >= 0) {
1678             names[i] = rpmdsN(pi);
1679             evrs[i] = rpmdsEVR(pi);
1680             flags[i] = rpmdsFlags(pi);
1681         }
1682
1683 assert(names != NULL);
1684         xx = headerAddEntry(pkg->header,
1685                             RPMTAG_PROVIDENAME,
1686                             RPM_STRING_ARRAY_TYPE,
1687                             names, c);
1688     /* XXX rpm prior to 3.0.2 did not always supply EVR and Flags. */
1689 assert(evrs != NULL);
1690         xx = headerAddEntry(pkg->header,
1691                             RPMTAG_PROVIDEVERSION,
1692                             RPM_STRING_ARRAY_TYPE,
1693                             evrs, c);
1694 assert(flags != NULL);
1695         xx = headerAddEntry(pkg->header,
1696                              RPMTAG_PROVIDEFLAGS,
1697                              RPM_INT32_TYPE,
1698                              flags, c);
1699         free(names);
1700         free(evrs);
1701         free(flags);
1702     }
1703
1704     /* Add Requires: */
1705     if (fc->requires != NULL && (c = rpmdsCount(fc->requires)) > 0 && !fc->skipReq) {
1706         const char **names = xcalloc(c, sizeof(char *));
1707         const char **evrs = xcalloc(c, sizeof(char *));
1708         rpmsenseFlags *flags = xcalloc(c, sizeof(rpmsenseFlags *));
1709         int i;
1710         rpmds ri = rpmdsInit(fc->requires);
1711         while ((i = rpmdsNext(ri)) >= 0) {
1712             names[i] = rpmdsN(ri);
1713             evrs[i] = rpmdsEVR(ri);
1714             flags[i] = rpmdsFlags(ri);
1715         }
1716
1717 assert(names != NULL);
1718         xx = headerAddEntry(pkg->header,
1719                             RPMTAG_REQUIRENAME,
1720                             RPM_STRING_ARRAY_TYPE,
1721                             names, c);
1722     /* XXX rpm prior to 3.0.2 did not always supply EVR and Flags. */
1723 assert(evrs != NULL);
1724         xx = headerAddEntry(pkg->header,
1725                             RPMTAG_REQUIREVERSION,
1726                             RPM_STRING_ARRAY_TYPE,
1727                             evrs, c);
1728 assert(flags != NULL);
1729         xx = headerAddEntry(pkg->header,
1730                              RPMTAG_REQUIREFLAGS,
1731                              RPM_INT32_TYPE,
1732                              flags, c);
1733         free(names);
1734         free(evrs);
1735         free(flags);
1736     }
1737
1738     /* Add dependency dictionary(#dependencies) */
1739     p = (const void **) argiData(fc->ddictx);
1740     c = argiCount(fc->ddictx);
1741     if (p != NULL)
1742         xx = headerAddEntry(pkg->header, RPMTAG_DEPENDSDICT, RPM_INT32_TYPE,
1743                         p, c);
1744
1745     /* Add per-file dependency (start,number) pairs (#files) */
1746     p = (const void **) argiData(fc->fddictx);
1747     c = argiCount(fc->fddictx);
1748 assert(ac == c);
1749     if (p != NULL)
1750         xx = headerAddEntry(pkg->header, RPMTAG_FILEDEPENDSX, RPM_INT32_TYPE,
1751                         p, c);
1752
1753     p = (const void **) argiData(fc->fddictn);
1754     c = argiCount(fc->fddictn);
1755 assert(ac == c);
1756     if (p != NULL)
1757         xx = headerAddEntry(pkg->header, RPMTAG_FILEDEPENDSN, RPM_INT32_TYPE,
1758                         p, c);
1759
1760     printDeps(pkg->header);
1761
1762 if (fc != NULL && _rpmfc_debug) {
1763 char *msg = NULL;
1764 rasprintf(&msg, "final: files %d cdict[%d] %d%% ddictx[%d]", fc->nfiles, argvCount(fc->cdict), ((100 * fc->fknown)/fc->nfiles), argiCount(fc->ddictx));
1765 rpmfcPrint(msg, fc, NULL);
1766 free(msg);
1767 }
1768
1769     /* Clean up. */
1770     fmode = _free(fmode);
1771     fc = rpmfcFree(fc);
1772     av = argvFree(av);
1773
1774     return rc;
1775 }