build/rpmfc.c

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