spec2make.c

   1 /*
   2  * Parses RPM spec file into Makefile fragment. See
   3  *
   4  * http://fedora.redhat.com/docs/drafts/rpm-guide-en/ch-programming-c.html
   5  *
   6  * Mark Huang <mlhuang@cs.princeton.edu>
   7  * Copyright (C) 2006 The Trustees of Princeton University
   8  *
   9  * $Id$
  10  */
  11
  12 #include <stdio.h>
  13 #include <stdlib.h>
  14 #include <string.h>
  15 #include <libgen.h>
  16 #include <errno.h>
  17 #include <rpm/rpmlib.h>
  18 #include <rpm/rpmts.h>
  19 #include <rpm/rpmcli.h>
  20 #include <rpm/rpmbuild.h>
  21 #include <rpm/rpmspec.h>
  22
  23 extern size_t strnlen(const char *s, size_t maxlen);
  24
  25 /* the structure describing the options we take and the defaults */
  26 static struct poptOption optionsTable[] = {
  27   { NULL, '\0', POPT_ARG_INCLUDE_TABLE, rpmcliAllPoptTable, 0,
  28     "Common options for all rpm modes and executables:",
  29     NULL },
  30
  31   POPT_AUTOALIAS
  32   POPT_AUTOHELP
  33   POPT_TABLEEND
  34 };
  35
  36 /* Stolen from rpm/build/spec.c:rpmspecQuery() */
  37 Spec
  38 rpmspecGet(rpmts ts, const char * arg)
  39 {
  40   char * buildRoot = NULL;
  41   int recursing = 0;
  42   char * passPhrase = "";
  43   char *cookie = NULL;
  44   int anyarch = 1;
  45   int force = 1;
  46
  47   if (parseSpec(ts, arg, "/", buildRoot, recursing, passPhrase,
  48                 cookie, anyarch, force)) {
  49     fprintf(stderr, "query of specfile %s failed, can't parse\n", arg);
  50     return NULL;
  51   }
  52
  53   return rpmtsSpec(ts);
  54 }
  55
  56 int
  57 main(int argc, char *argv[])
  58 {
  59   poptContext context;
  60   rpmts ts = NULL;
  61   int ec = 0;
  62   Spec spec;
  63   struct Source *source;
  64   Package pkg;
  65   const char *name, *version, *release, *arch, *unused;
  66   const char *package_name;
  67
  68   /* BEGIN: support to pull out --target from the args list */
  69   int  alen, i;
  70   char *target = NULL;
  71   int args = 1;
  72   int tlen = strlen("--target");
  73
  74
  75   /* walk argv list looking for --target */
  76   while ((args+1)<argc) {
  77     if(strncmp(argv[args],"--target",tlen)==0){
  78       char **dash;
  79
  80       /* get arch component of the --target option */
  81       dash = (char**)strchr(argv[args+1],'-');
  82       if (dash != NULL) *dash=NULL;
  83
  84       /* copy arch component of --target option to target */
  85       alen = strnlen(argv[args+1],32);
  86       target = (char*)malloc(alen+1);
  87       if (target == NULL) return errno;
  88       strncpy(target,argv[args+1],alen);
  89       target[alen]='\0';
  90
  91       /* change argc, argv to take out the "--target xxx" */
  92       for (i=args;i<argc;i++) argv[i]=argv[i+2];
  93       argc-=2;
  94
  95       break;
  96     }
  97     args++;
  98   }
  99   argv[1]=argv[argc-2];
 100   argv[2]=argv[argc-1];
 101   argv[3]=0;
 102   argc=3;
 103   /* END: support to pull out --target from the args list */
 104
 105   /* Parse common options for all rpm modes and executables */
 106   context = rpmcliInit(argc, argv, optionsTable);
 107
 108   /* Create transaction state */
 109   ts = rpmtsCreate();
 110
 111   /* Parse spec file. The rpmcli functions don't allow you to
 112    * access the Spec structure directly, so we call our own
 113    * version of rpmSpecQuery() directly. */
 114   spec = rpmspecGet(ts, argv[1]);
 115   package_name = argv[2];
 116   if (!spec) {
 117     ec = 1;
 118     goto done;
 119   }
 120
 121   /* Print sources */
 122   for (source = spec->sources; source; source = source->next) {
 123     char fullSource[PATH_MAX];
 124
 125     strncpy(fullSource, source->fullSource, sizeof(fullSource));
 126     printf("%s.tarballs += SOURCES/%s\n", package_name, basename(fullSource));
 127     /* computes the SOURCEDIR variable by removing .tar.gz or .tar.bz2 */
 128     {
 129       char *suffixes[] = {".tar.gz",".tgz",".tar.bz2", NULL};
 130       char **suffix;
 131       char *suffix_index;
 132
 133       for (suffix=suffixes ; *suffix ; suffix++) {
 134         printf("# trying %s\n",*suffix);
 135         suffix_index=strstr(fullSource,*suffix);
 136         if (suffix_index) {
 137           char sourcename[PATH_MAX];
 138           size_t len = (size_t)(suffix_index-fullSource);
 139           strncpy(sourcename,fullSource,len);
 140           sourcename[len]='\0';
 141           printf ("%s.source := SOURCES/%s\n",package_name,basename(sourcename));
 142           printf ("%s.codebase := CODEBASES/%s\n",package_name,package_name);
 143           break;
 144         }
 145       }
 146     }
 147
 148   }
 149
 150   /* Get SRPM name from name of first package */
 151   pkg = spec->packages;
 152   name = version = release = NULL;
 153   (void) headerNVR(pkg->header, &name, &version, &release);
 154   if (name && version && release)
 155     printf("%s.srpm := SRPMS/%s-%s-%s.src.rpm\n",
 156            package_name, name, version, release);
 157
 158   /* Print non-empty packages */
 159   for (pkg = spec->packages; pkg != NULL; pkg = pkg->next) {
 160     name = version = release = arch = NULL;
 161     (void) headerNEVRA(pkg->header, &name, &unused, &version, &release, &arch);
 162     if (name && version && release && arch) {
 163       if (target != NULL) {
 164         if (strcmp(arch,target)!=0) {
 165           arch=target;
 166         }
 167       }
 168       /* skip empty packages */
 169       if (pkg->fileList) {
 170         /* attach (add) rpm path to package */
 171         printf("%s.rpms += RPMS/%s/%s-%s-%s.%s.rpm\n",
 172                package_name, arch, name, version, release, arch);
 173         /* convenience */
 174         printf("%s.rpmnames += %s\n",
 175                package_name, name);
 176         /* attach path to rpm name */
 177         printf("%s.rpm-path := RPMS/%s/%s-%s-%s.%s.rpm\n",
 178                name,arch, name, version, release, arch);
 179         /* attach package to rpm name for backward resolution - should be unique */
 180         printf("%s.package := %s\n",
 181                name,package_name);
 182       }
 183     }
 184   }
 185
 186   /* export some macros to make */
 187   /* note : this relies on pl-specific conventions and might be wrong */
 188   {
 189     char *macros[] = { "release" , "name" , "version" , "taglevel" , NULL } ;
 190     char **nav;
 191     char *macro=malloc(32);
 192     for (nav=macros; *nav; nav++) {
 193       sprintf(macro,"%%{%s}",*nav);
 194       char *value = rpmExpand(macro,NULL);
 195       printf ("%s.rpm-%s := %s\n",package_name,*nav,value);
 196     }
 197   }
 198
 199   /* export arch */
 200   printf ("%s.rpm-arch := %s\n",package_name,target);
 201
 202   spec = freeSpec(spec);
 203
 204  done:
 205   ts = rpmtsFree(ts);
 206   context = rpmcliFini(context);
 207   return ec;
 208 }