pd.if.org Git - zpackage/blob - lib/findpkg.c

   1 #define _POSIX_C_SOURCE 200809L
   2
   3 #include <stdlib.h>
   4 #include <stdio.h>
   5 #include <string.h>
   6 #include <ctype.h>
   7
   8 #include "zpm.h"
   9
  10 #include "sqlite3.h"
  11
  12 #define DMARK fprintf(stderr, "mark %s %s:%d\n", __FILE__, __func__, __LINE__)
  13
  14 int zpm_parse_package(char *pstr, char *name, char *ver, int *rel) {
  15         if (name) *name = 0;
  16         if (ver) *ver = 0;
  17         if (rel) *rel = 0;
  18         int havename = 0;
  19         int havever = 0;
  20         int haverel = 0;
  21
  22         /* string - ver - rel */
  23         /* rel is all digits */
  24         /* possible forms:
  25          * ^(.+)-([0-9][^-]*)-([\d+])$
  26          * ^(.+)-([0-9][^-]*)$
  27          * ^(.+)$
  28          * The main problem in parsing is that the package name itself
  29          * can contain a '-', so you can't just split on '-'
  30          * Also, the version can be just digits.
  31          */
  32
  33         /* everything up to the first '-' is in the name */
  34         while (*pstr) {
  35                 if (*pstr == '\'' || !isgraph(*pstr)) {
  36                         return 0;
  37                 }
  38                 if (*pstr == '-' && isdigit(*(pstr+1))) {
  39                         break;
  40                 }
  41                 if (name) {
  42                         *name++ = *pstr;
  43                 }
  44                 pstr++;
  45                 havename = 1;
  46         }
  47         if (name) *name = 0;
  48         if (*pstr == '-') {
  49                 pstr++;
  50         }
  51         while (*pstr && *pstr != '-') {
  52                 if (*pstr == '\'' || !isgraph(*pstr)) {
  53                         return 0;
  54                 }
  55                 if (ver) {
  56                         *ver++ = *pstr;
  57                 }
  58                 pstr++;
  59                 havever = 1;
  60         }
  61         if (ver) *ver = 0;
  62         if (*pstr == '-') {
  63                 pstr++;
  64         }
  65         /* TODO use strtol */
  66         if (rel && *pstr) {
  67                 haverel = 1;
  68                 *rel = atoi(pstr);
  69         }
  70
  71         return havename + havever + haverel;
  72 }
  73
  74 /*
  75  * flags 0 = find installed
  76  * flags 1 = skip installed
  77  * flags 2 = skip not installed
  78  */
  79
  80 struct zpm_package *zpm_package_alloc(struct zpm *zpm) {
  81         struct zpm_package *pkg;
  82
  83         pkg = malloc(sizeof *pkg);
  84         if (pkg) {
  85                 pkg->zpm = zpm;
  86                 pkg->release = 0;
  87         }
  88         return pkg;
  89 }
  90
  91 void zpm_sqlite_error(struct zpm *zpm) {
  92         zpm->error = 1;
  93         if (zpm->errmsg) free(zpm->errmsg);
  94         zpm->errmsg = strdup((const char *)sqlite3_errmsg(zpm->db));
  95 }
  96
  97 char *zpm_findpkg(struct zpm *zpm, char *pkgstr) {
  98         char *select = "select pkgid, package, version, release from packages_pkgid";
  99         char *group = "group by package having max( version||'-'||release collate vercmp) order by length(package), package, version||'-'||release collate vercmp";
 100 #if 0
 101         char *sstr[] = {
 102                 "status = 'installed'",
 103                 "",
 104                 "status != 'installed'"
 105         };
 106 #endif
 107
 108 //      char *order = "order by package, version collate vercmp, cast(release as integer)";
 109         sqlite3_str *sql;
 110         sqlite3_stmt *stmt;
 111         char *query, *pkgid = 0;
 112         char package[32];
 113         char version[32];
 114         int release;
 115
 116         if (pkgstr == NULL) {
 117                 fprintf(stderr, "trying to parse null string\n");
 118                 return NULL;
 119         }
 120
 121         /* null pkgstr find "best" package
 122          * best is shortest complete package if any are complete
 123          * shortest incomplete if any are incomplete
 124          * where more than one version is in those sets, best is
 125          * latest as determined by vercmp
 126          */
 127
 128         /* given a package name, get the packages */
 129         /* no package name, get all */
 130
 131         //              char where[1024] = "";
 132
 133         zpm_parse_package(pkgstr, package, version, &release);
 134
 135         /* install a collation function */
 136         zpm_addvercmp(zpm);
 137
 138         /* TODO allow more args to nail down version and release */
 139
 140         sql = sqlite3_str_new(zpm->db);
 141         sqlite3_str_appendall(sql, select);
 142         sqlite3_str_appendf(sql, " where package = %Q", package);
 143         if (*version) {
 144                 sqlite3_str_appendf(sql, " and version = %Q", version);
 145         }
 146         if (release) {
 147                 sqlite3_str_appendf(sql, " and release = %d", release);
 148         }
 149         sqlite3_str_appendf(sql, " %s", group);
 150         sqlite3_str_appendf(sql, " limit 1");
 151
 152         if (sqlite3_str_errcode(sql)) {
 153                 zpm->error = 1;
 154                 sqlite3_free(sqlite3_str_finish(sql));
 155                 return 0;
 156         }
 157
 158         query = sqlite3_str_finish(sql);
 159         sqlite3_prepare_v2(zpm->db, query, strlen(query), &stmt, NULL);
 160         sqlite3_free(query);
 161
 162 #if 0
 163         if (zpm->pkgid) {
 164                 free(zpm->pkgid);
 165         }
 166         zpm->pkgid = 0;
 167 #endif
 168
 169         switch (sqlite3_step(stmt)) {
 170                 case SQLITE_ROW:
 171                         pkgid = strdup((const char *)sqlite3_column_text(stmt, 0));
 172                         break;
 173                 case SQLITE_DONE:
 174                         /* not found */
 175                         break;
 176                 default:
 177                         zpm_sqlite_error(zpm);
 178                         break;
 179         }
 180         sqlite3_finalize(stmt);
 181
 182         return pkgid;
 183 }