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 #include "lib/jsw/jsw_atree.h"
  12
  13 #define DMARK fprintf(stderr, "mark %s %s:%d\n", __FILE__, __func__, __LINE__)
  14
  15 /*
  16  * flags 0 = find installed
  17  * flags 1 = skip installed
  18  * flags 2 = skip not installed
  19  */
  20
  21 struct zpm_package *zpm_package_alloc(struct zpm *zpm) {
  22         struct zpm_package *pkg;
  23
  24         pkg = malloc(sizeof *pkg);
  25         if (pkg) {
  26                 pkg->zpm = zpm;
  27                 pkg->release = 0;
  28         }
  29         return pkg;
  30 }
  31
  32 void zpm_sqlite_error(struct zpm *zpm) {
  33         zpm->error = 1;
  34         if (zpm->errmsg) free(zpm->errmsg);
  35         zpm->errmsg = strdup((const char *)sqlite3_errmsg(zpm->db));
  36 }
  37
  38 char *zpm_findlib(struct zpm *zpm, char *soname, char *where) {
  39         char *select = "select pkgid, package, version, release from packagefiles_status join elflibraries on file = hash";
  40         char *group = "order by package, version collate vercmp desc, cast(release as integer)";
  41         sqlite3_str *sql;
  42         char *query, *pkgid = 0;
  43
  44         /* null pkgstr find "best" package
  45          * best is shortest complete package if any are complete
  46          * shortest incomplete if any are incomplete
  47          * where more than one version is in those sets, best is
  48          * latest as determined by vercmp
  49          */
  50
  51         sql = sqlite3_str_new(zpm->db);
  52
  53         sqlite3_str_appendall(sql, select);
  54         sqlite3_str_appendf(sql, " where soname = %Q", soname);
  55
  56         if (where) {
  57                 sqlite3_str_appendall(sql, " and ");
  58                 sqlite3_str_appendall(sql, where);
  59         }
  60
  61         sqlite3_str_appendall(sql, " ");
  62         sqlite3_str_appendall(sql, group);
  63         sqlite3_str_appendall(sql, " limit 1;");
  64
  65         if (sqlite3_str_errcode(sql)) {
  66                 zpm->error = 1;
  67                 sqlite3_free(sqlite3_str_finish(sql));
  68                 return 0;
  69         }
  70
  71         query = sqlite3_str_finish(sql);
  72
  73         pkgid = zpm_db_string(zpm, query);;
  74
  75         sqlite3_free(query);
  76
  77         return pkgid;
  78 }
  79
  80 int zpm_libraries_needed(struct zpm *zpm, char *pkgid, jsw_atree_t *list) {
  81         char *pkglibsneeded = "\
  82                                with pkglibs as (\
  83                                                select distinct EN.needed as soname, PF.pkgid\
  84                                                from elfneeded EN\
  85                                                join packagefiles_pkgid PF on PF.hash = EN.file\
  86                                                ),\
  87                                pkgprovides as (\
  88                                                select distinct EL.soname, PF.pkgid\
  89                                                from elflibraries EL\
  90                                                join packagefiles_pkgid PF on PF.hash = EL.file\
  91                                               )\
  92                                select distinct PL.soname, PP.soname is not null as selfsatisfied\
  93                                from pkglibs PL\
  94                                left join pkgprovides PP on PL.pkgid = PP.pkgid and PL.soname = PP.soname\
  95                                where PL.pkgid = %Q\
  96                                ";
  97
  98         sqlite3_stmt *st;
  99         int count = 0;
 100         int rv;
 101
 102         st = zpm_dbquery(zpm, pkglibsneeded, pkgid);
 103
 104         while ((rv = sqlite3_step(st)) == SQLITE_ROW) {
 105                 char *soname;
 106                 int self;
 107
 108                 soname = (char *)sqlite3_column_text(st, 0);
 109                 /* TODO check and skip self sats */
 110                 self = sqlite3_column_int(st,1);
 111                 if (self) {
 112                         continue;
 113                 }
 114                 count++;
 115
 116                 /* if it's in needed, we've already looked at this one */
 117                 if (list && !jsw_afind(list, soname)) {
 118                         jsw_ainsert(list, soname);
 119                 }
 120         }
 121
 122         sqlite3_finalize(st);
 123         return count;
 124 }
 125
 126 char *zpm_findpkg(struct zpm *zpm, char *pkgstr, char *where) {
 127         char *select = "select pkgid, package, version, release from packages_pkgid";
 128 #if 0
 129         char *group = "group by package having max( version||'-'||release collate vercmp) order by length(package), package, version||'-'||release collate vercmp";
 130 #else
 131         char *group = "order by package, version collate vercmp desc, cast(release as integer)";
 132         //group = "order by package, version , cast(release as integer)";
 133 #endif
 134         sqlite3_str *sql;
 135         char *query, *pkgid = 0;
 136
 137         /* null pkgstr find "best" package
 138          * best is shortest complete package if any are complete
 139          * shortest incomplete if any are incomplete
 140          * where more than one version is in those sets, best is
 141          * latest as determined by vercmp
 142          */
 143
 144         sql = sqlite3_str_new(zpm->db);
 145
 146         sqlite3_str_appendall(sql, select);
 147         sqlite3_str_appendall(sql, " where true");
 148
 149         if (pkgstr) {
 150                 int release;
 151                 char version[32];
 152                 char package[32];
 153
 154                 zpm_parse_package(pkgstr, package, version, &release);
 155                 if (*package != 0) {
 156                         sqlite3_str_appendf(sql, " and package = %Q",
 157                                         package);
 158                 }
 159                 if (*version != 0) {
 160                         sqlite3_str_appendf(sql, " and version = %Q",
 161                                         version);
 162                 }
 163                 if (release != 0) {
 164                         sqlite3_str_appendf(sql, " and release = %d",
 165                                         release);
 166                 }
 167         }
 168
 169         if (where) {
 170                 sqlite3_str_appendall(sql, " and ");
 171                 sqlite3_str_appendall(sql, where);
 172         }
 173
 174
 175         sqlite3_str_appendall(sql, " ");
 176         sqlite3_str_appendall(sql, group);
 177         sqlite3_str_appendall(sql, " limit 1;");
 178
 179         if (sqlite3_str_errcode(sql)) {
 180                 zpm->error = 1;
 181                 sqlite3_free(sqlite3_str_finish(sql));
 182                 return 0;
 183         }
 184
 185         query = sqlite3_str_finish(sql);
 186
 187         pkgid = zpm_db_string(zpm, query);;
 188
 189         sqlite3_free(query);
 190
 191         return pkgid;
 192 }