--- /dev/null
+/*
+ * Parses RPM spec file into Makefile fragment. See
+ *
+ * http://fedora.redhat.com/docs/drafts/rpm-guide-en/ch-programming-c.html
+ *
+ * Mark Huang <mlhuang@cs.princeton.edu>
+ * Copyright (C) 2006 The Trustees of Princeton University
+ *
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <libgen.h>
+#include <errno.h>
+#include <rpm/rpmlib.h>
+#include <rpm/rpmts.h>
+#include <rpm/rpmcli.h>
+#include <rpm/rpmbuild.h>
+#include <rpm/rpmspec.h>
+
+/* from f10 and up, Spec is renamed rpmSpec */
+#ifndef _RPMTYPES_H
+#define rpmSpec Spec
+#endif
+
+#define MAX_WHITELIST_SIZE 16
+
+#ifndef PATH_MAX
+#include <linux/limits.h>
+#endif
+extern size_t strnlen(const char *s, size_t maxlen);
+
+/* the structure describing the options we take and the defaults */
+static struct poptOption optionsTable[] = {
+ { NULL, '\0', POPT_ARG_INCLUDE_TABLE, rpmBuildPoptTable, 0,
+ "Build options with [ <specfile> | <tarball> | <source package> ]:",
+ NULL },
+
+ { NULL, '\0', POPT_ARG_INCLUDE_TABLE, rpmcliAllPoptTable, 0,
+ "Common options for all rpm modes and executables:",
+ NULL },
+
+ POPT_AUTOALIAS
+ POPT_AUTOHELP
+ POPT_TABLEEND
+};
+
+/* Stolen from rpm/build/spec.c:rpmspecQuery() */
+rpmSpec
+rpmspecGet(rpmts ts, const char * arg)
+{
+ char * buildRoot = NULL;
+ int recursing = 0;
+ char * passPhrase = "";
+ char *cookie = NULL;
+ int anyarch = 1;
+ int force = 1;
+
+ if (parseSpec(ts, arg, "/", buildRoot, recursing, passPhrase,
+ cookie, anyarch, force)) {
+ fprintf(stderr, "query of specfile %s failed, can't parse\n", arg);
+ return NULL;
+ }
+
+ return rpmtsSpec(ts);
+}
+
+int
+main(int argc, char *argv[])
+{
+ poptContext context;
+ rpmts ts = NULL;
+ int ec = 0;
+ rpmSpec spec;
+ struct Source *source;
+ Package pkg;
+ const char *name, *version, *release, *arch, *unused;
+ const char *package_name;
+
+ char **package_whitelist;
+
+ /* BEGIN: support to pull out --target from the args list */
+ int alen, i;
+ char *target = NULL;
+ int args = 1;
+ int whitelist_size=0;
+ package_whitelist = (char **) malloc(MAX_WHITELIST_SIZE * sizeof(char *));
+
+ if (!package_whitelist) {
+ perror("Could not allocate package whitelist\n");
+ exit(1);
+ }
+
+ /* walk argv list looking for options */
+ while ((args+1)<argc) {
+ /* whitelist-rpms are packages that need to be considered even if the parsing logic of spec2make (second half of this file) concludes otherwise */
+ if (strcmp(argv[args],"--whitelist-rpms")==0) {
+ /* Split "whitelist-rpms" which is a comma-separated list, remove --whitelist-rpms <option> from argv */
+
+ int option_offset = 1;
+ char *whitelist_str = argv[args+1];
+ if (whitelist_str != NULL) {
+ char *saveptr = NULL, *str;
+ option_offset = 2;
+ for (str = whitelist_str; ; str = NULL) {
+ char *token;
+ token = strtok_r(str, "," , &saveptr);
+ if (token == NULL) break;
+ package_whitelist[whitelist_size++] = token;
+ }
+ }
+ for (i=args;i<argc-2+option_offset;i++) argv[i]=argv[i+option_offset];
+ argc-=option_offset;
+
+ } else if (strcmp(argv[args],"--target")==0) {
+ char **dash;
+
+ /* get arch component of the --target option */
+ dash = (char**)strchr(argv[args+1],'-');
+ if (dash != NULL) *dash=NULL;
+
+ /* copy arch component of --target option to target */
+ alen = strnlen(argv[args+1],32);
+ target = (char*)malloc(alen+1);
+ if (target == NULL) return errno;
+ strncpy(target,argv[args+1],alen);
+ target[alen]='\0';
+
+ /* change argc, argv to take out the "--target xxx" */
+ for (i=args;i<argc;i++) argv[i]=argv[i+2];
+ argc-=2;
+
+ break;
+ }
+ else
+ args++;
+ }
+ argv[1]=argv[argc-2];
+ argv[2]=argv[argc-1];
+ argv[3]=0;
+ argc=3;
+ /* END: support to pull out --target from the args list */
+
+ /* Parse common options for all rpm modes and executables */
+ context = rpmcliInit(argc, argv, optionsTable);
+
+ /* Create transaction state */
+ ts = rpmtsCreate();
+
+ /* Parse spec file. The rpmcli functions don't allow you to
+ * access the Spec structure directly, so we call our own
+ * version of rpmSpecQuery() directly. */
+ spec = rpmspecGet(ts, argv[1]);
+ package_name = argv[2];
+ if (!spec) {
+ ec = 1;
+ goto done;
+ }
+
+ /* Print sources */
+ for (source = spec->sources; source; source = source->next) {
+ char fullSource[PATH_MAX];
+
+ strncpy(fullSource, source->fullSource, sizeof(fullSource));
+ printf("%s.tarballs += SOURCES/%s\n", package_name, basename(fullSource));
+ /* computes the SOURCEDIR variable by removing .tar.gz or .tar.bz2 */
+ {
+ char *suffixes[] = {".tar.gz",".tgz",".tar.bz2", NULL};
+ char **suffix;
+ char *suffix_index;
+
+ for (suffix=suffixes ; *suffix ; suffix++) {
+ /*printf("# trying %s\n",*suffix);*/
+ suffix_index=strstr(fullSource,*suffix);
+ if (suffix_index) {
+ char sourcename[PATH_MAX];
+ size_t len = (size_t)(suffix_index-fullSource);
+ strncpy(sourcename,fullSource,len);
+ sourcename[len]='\0';
+ printf ("%s.source := SOURCES/%s\n",package_name,basename(sourcename));
+ break;
+ }
+ }
+ }
+
+ }
+
+ /* Get SRPM name from name of first package */
+ pkg = spec->packages;
+ name = version = release = NULL;
+ (void) headerNVR(pkg->header, &name, &version, &release);
+ if (name && version && release)
+ printf("%s.srpm := SRPMS/%s-%s-%s.src.rpm\n",
+ package_name, name, version, release);
+
+ /* Print non-empty packages */
+ for (pkg = spec->packages; pkg != NULL; pkg = pkg->next) {
+ int force = 0;
+ name = version = release = arch = NULL;
+ (void) headerNEVRA(pkg->header, &name, &unused, &version, &release, &arch);
+ if (name && version && release && arch) {
+ if (target != NULL) {
+ if (strcmp(arch,target)!=0) {
+ arch=target;
+ }
+ }
+ /* skip empty packages
+ *
+ * Unfortunately, f8 + the RHEL kernel break this bit of cleverness. The following
+ * line returns false for the kernel-devel package even though it is not empty thereby breaking the build.
+ * Rather than unfolding the kernel package macros in the current specfile,
+ * this hack should work till f8 dies its natural death.
+ * To add rpms that are exempted in this way, add a "<package>-WHITELIST-RPMS" tag in the tags file.
+ */
+
+ for (i=0;i<whitelist_size;i++) if (strncmp(package_whitelist[i], name, strlen(name)) == 0) force = 1;
+
+ if (pkg->fileList || force) {
+ /* attach (add) rpm path to package */
+ printf("%s.rpms += RPMS/%s/%s-%s-%s.%s.rpm\n",
+ package_name, arch, name, version, release, arch);
+ /* convenience */
+ printf("%s.rpmnames += %s\n",
+ package_name, name);
+ /* attach path to rpm name */
+ printf("%s.rpm-path := RPMS/%s/%s-%s-%s.%s.rpm\n",
+ name,arch, name, version, release, arch);
+ /* attach package to rpm name for backward resolution - should be unique */
+ printf("%s.package := %s\n",
+ name,package_name);
+ }
+ }
+ }
+
+ /* export some macros to make */
+ /* note : this relies on pl-specific conventions and might be wrong */
+ {
+ char *macros[] = { "release" , "name" , "version" , "taglevel" , NULL } ;
+ char **nav;
+ char *macro=malloc(32);
+ for (nav=macros; *nav; nav++) {
+ sprintf(macro,"%%{%s}",*nav);
+ char *value = rpmExpand(macro,NULL);
+ printf ("%s.rpm-%s := %s\n",package_name,*nav,value);
+ }
+ }
+
+ /* export arch */
+ printf ("%s.rpm-arch := %s\n",package_name,target);
+
+ spec = freeSpec(spec);
+
+ done:
+ ts = rpmtsFree(ts);
+ context = rpmcliFini(context);
+ return ec;
+}