1 #define _POSIX_C_SOURCE 200809L
11 #include "lib/jsw/jsw_atree.h"
13 #define DMARK fprintf(stderr, "mark %s %s:%d\n", __FILE__, __func__, __LINE__)
16 * flags 0 = find installed
17 * flags 1 = skip installed
18 * flags 2 = skip not installed
21 struct zpm_package *zpm_package_alloc(struct zpm *zpm) {
22 struct zpm_package *pkg;
24 pkg = malloc(sizeof *pkg);
32 void zpm_sqlite_error(struct zpm *zpm) {
34 if (zpm->errmsg) free(zpm->errmsg);
35 zpm->errmsg = strdup((const char *)sqlite3_errmsg(zpm->db));
38 char *zpm_findlib(struct zpm *zpm, char *soname, char *where) {
40 char *query, *pkgid = 0;
42 char *select = "select printf('%%s-%%s-%%s',P.package,P.version,P.release) as pkgid, P.package, P.version, P.release\
44 join elflibraries EL on EL.file = PF.hash\
45 join packages P on P.package = PF.package and P.version = PF.version and P.release = PF.release";
46 char *order = "order by P.package, P.version, cast(P.release as integer)";
48 /* null pkgstr find "best" package
49 * best is shortest complete package if any are complete
50 * shortest incomplete if any are incomplete
51 * where more than one version is in those sets, best is
52 * latest as determined by vercmp
55 sql = sqlite3_str_new(zpm->db);
57 sqlite3_str_appendall(sql, select);
58 sqlite3_str_appendf(sql, " where P.hash is not null and EL.soname = %Q", soname);
61 sqlite3_str_appendall(sql, " and ");
62 sqlite3_str_appendall(sql, where);
65 sqlite3_str_appendall(sql, " ");
66 sqlite3_str_appendall(sql, order);
67 sqlite3_str_appendall(sql, " limit 1;");
69 if (sqlite3_str_errcode(sql)) {
71 sqlite3_free(sqlite3_str_finish(sql));
75 query = sqlite3_str_finish(sql);
77 pkgid = zpm_db_string(zpm, query);;
84 int zpm_packages_needed(struct zpm *zpm, char *pkgid, jsw_atree_t *list) {
85 char *pkglibsneeded = "select soname, selfsatisfied from package_libraries_needed where pkgid = %Q";
90 st = zpm_dbquery(zpm, pkglibsneeded, pkgid);
92 while ((rv = sqlite3_step(st)) == SQLITE_ROW) {
96 soname = (char *)sqlite3_column_text(st, 0);
97 /* TODO check and skip self sats */
98 self = sqlite3_column_int(st,1);
104 /* if it's in needed, we've already looked at this one */
105 if (list && !jsw_afind(list, soname)) {
106 jsw_ainsert(list, soname);
110 sqlite3_finalize(st);
115 int zpm_libraries_needed(struct zpm *zpm, char *pkgid, jsw_atree_t *list) {
116 char *pkglibsneeded = "select soname, selfsatisfied from package_libraries_needed where pkgid = %Q";
121 st = zpm_dbquery(zpm, pkglibsneeded, pkgid);
123 while ((rv = sqlite3_step(st)) == SQLITE_ROW) {
127 soname = (char *)sqlite3_column_text(st, 0);
128 /* TODO check and skip self sats */
129 self = sqlite3_column_int(st,1);
135 /* if it's in needed, we've already looked at this one */
136 if (list && !jsw_afind(list, soname)) {
137 jsw_ainsert(list, soname);
141 sqlite3_finalize(st);
145 char *zpm_findpkg(struct zpm *zpm, char *pkgstr, char *where) {
146 char *select = "select pkgid, package, version, release from packages_pkgid";
148 char *group = "group by package having max( version||'-'||release collate vercmp) order by length(package), package, version||'-'||release collate vercmp";
150 char *group = "order by package, version collate vercmp desc, cast(release as integer)";
151 //group = "order by package, version , cast(release as integer)";
154 char *query, *pkgid = 0;
156 /* null pkgstr find "best" package
157 * best is shortest complete package if any are complete
158 * shortest incomplete if any are incomplete
159 * where more than one version is in those sets, best is
160 * latest as determined by vercmp
163 sql = sqlite3_str_new(zpm->db);
165 sqlite3_str_appendall(sql, select);
166 sqlite3_str_appendall(sql, " where true");
173 zpm_parse_package(pkgstr, package, version, &release);
175 sqlite3_str_appendf(sql, " and package = %Q",
179 sqlite3_str_appendf(sql, " and version = %Q",
183 sqlite3_str_appendf(sql, " and release = %d",
189 sqlite3_str_appendall(sql, " and ");
190 sqlite3_str_appendall(sql, where);
194 sqlite3_str_appendall(sql, " ");
195 sqlite3_str_appendall(sql, group);
196 sqlite3_str_appendall(sql, " limit 1;");
198 if (sqlite3_str_errcode(sql)) {
200 sqlite3_free(sqlite3_str_finish(sql));
204 query = sqlite3_str_finish(sql);
206 pkgid = zpm_db_string(zpm, query);;
213 char *zpm_findpkg_range(struct zpm *zpm, char *minpkg, char *maxpkg, char *where, int wantleast) {
218 char *select = "select pkgid, package, version, release from packages_pkgid";
219 char *last = "order by version collate vercmp desc, cast(release as integer) desc";
220 char *first = "order by version collate vercmp, cast(release as integer)";
223 char *query, *pkgid = 0;
226 group = wantleast ? first : last;
227 /* null pkgstr find "best" package
228 * best is shortest complete package if any are complete
229 * shortest incomplete if any are incomplete
230 * where more than one version is in those sets, best is
231 * latest as determined by vercmp
234 sql = sqlite3_str_new(zpm->db);
236 sqlite3_str_appendall(sql, select);
237 sqlite3_str_appendall(sql, " where true");
240 sqlite3_str_appendf(sql, " and pkgid >= %Q collate vercmp",
242 zpm_parse_package(minpkg, package, version, &release);
244 sqlite3_str_appendf(sql, " and package = %Q",
250 sqlite3_str_appendf(sql, " and pkgid <= %Q collate vercmp",
252 zpm_parse_package(maxpkg, package, version, &release);
254 sqlite3_str_appendf(sql, " and package = %Q",
260 sqlite3_str_appendall(sql, " and ");
261 sqlite3_str_appendall(sql, where);
264 sqlite3_str_appendall(sql, " ");
265 sqlite3_str_appendall(sql, group);
266 sqlite3_str_appendall(sql, " limit 1;");
268 if (sqlite3_str_errcode(sql)) {
270 sqlite3_free(sqlite3_str_finish(sql));
274 query = sqlite3_str_finish(sql);
276 pkgid = zpm_db_string(zpm, query);;