without rowid
;
+create index package_status_index on packages (status);
+
create view packages_pkgid as
select printf('%s-%s-%s', package, version, release) as pkgid, *
from packages;
+create trigger packages_update_trigger instead of
+update on packages_pkgid
+begin
+ update packages
+ set package = NEW.package,
+ version = NEW.version,
+ release = NEW.release,
+ description = NEW.description,
+ architecture = NEW.architecture,
+ url = NEW.url,
+ status = NEW.status,
+ licenses = NEW.licenses,
+ packager = NEW.packager,
+ build_time = NEW.build_time,
+ install_time = NEW.install_time,
+ checksum = NEW.checksum
+ where package = OLD.package
+ and version = OLD.version
+ and release = OLD.release
+ ;
+end
+;
+
-- handle package status history with a logging trigger.
create trigger logpkgstatus after update of status on packages
begin insert into zpmlog (action,target,info)
tag text,
set_time integer default (strftime('%s', 'now')),
primary key (package,version,release,tag),
- foreign key (package,version,release) references packages (package,version,release) on delete cascade
+ foreign key (package,version,release) references packages (package,version,release) on delete cascade on update cascade
);
-- packagefile hash is columns as text, joined with null bytes, then
hash text, -- null if no actual content, i.e. anything but a regular file
mtime integer, -- seconds since epoch, finer resolution probably not needed
primary key (package,version,release,path),
- foreign key (package,version,release) references packages (package,version,release) on delete cascade,
+ foreign key (package,version,release) references packages (package,version,release) on delete cascade on update cascade,
check (not (filetype = 'l' and target is null)),
check (not (filetype = 'r' and hash is null)),
- check (not (filetype = 'c' and (devmajor is null or devminor is null)))
+ check (not (filetype = 'c' and (devmajor is null or devminor is null))),
+ check (not (filetype = 'b' and (devmajor is null or devminor is null))),
+ check (configuration = 0 or configuration = 1)
)
without rowid
;
create view packagefiles_pkgid as
-select printf('%s-%s-%s', package, version, release) as pkgid, *
+select printf('%s-%s-%s', package, version, release) as pkgid, *,
+printf('%s:%o:%s:%s', filetype, mode, username, groupname) as mds
from packagefiles
;
+create trigger packagefiles_update_trigger instead of
+update on packagefiles_pkgid
+begin
+ update packagefiles
+ set package = NEW.package,
+ version = NEW.version,
+ release = NEW.release,
+ path = NEW.path,
+ mode = NEW.mode,
+ username = NEW.username,
+ groupname = NEW.groupname,
+ uid = NEW.uid,
+ gid = NEW.gid,
+ configuration = NEW.configuration,
+ filetype = NEW.filetype,
+ target = NEW.target,
+ devmajor = NEW.devmajor,
+ devminor = NEW.devminor,
+ hash = NEW.hash,
+ mtime = NEW.mtime
+ where package = OLD.package
+ and version = OLD.version
+ and release = OLD.release
+ and path = OLD.path
+ ;
+end
+;
+
create view installed_ref_count as
select I.path, count(*) as refcount
from installedfiles I
group by I.path
;
+create view sync_status_ref_count as
+select path, status, count(*) as refcount
+from packagefiles_status
+where status in ('installed', 'installing', 'removing')
+group by path, status
+;
+
create view packagefiles_status as
select P.status, PF.*
from packagefiles_pkgid PF
;
create view install_status as
+
select 'new' as op, PN.*
from packagefiles_status PN
left join installed_ref_count RC on RC.path = PN.path
left join installed_ref_count RC on RC.path = PN.path
where RC.refcount = 1
and PN.status = 'installing'
+and PI.hash is not PN.hash
union all
where PN.status = 'installing'
union all
-
select 'remove' as op, PI.*
from installedfiles PI
left join packagefiles_status PN
on PI.path = PN.path and PI.package = PN.package
+ and PI.pkgid != PN.pkgid
where PN.path is null
-and PN.status = 'installing'
+and PI.package in (select package from packages where status = 'installing')
+
+union all
+-- remove files in removing, but not installing
+select distinct 'remove' as op, PR.*
+from packagefiles_status PR
+left join packagefiles_status PN
+on PR.path = PN.path
+and PR.pkgid != PN.pkgid and PN.status in ('installing', 'installed')
+where PN.path is null
+and PR.status = 'removing'
;
create table pathtags (
path text, -- filesystem path
tag text,
- primary key (package,version,release,path,tag)
+ primary key (package,version,release,path,tag),
+ foreign key (package,version,release,path)
+ references packagefiles on delete cascade on update cascade
)
without rowid
;
-create table elfinfo (
- file text primary key, -- hash of blob
- elftype text,
- foreign key (file) references files on delete cascade
-)
-without rowid
-;
-
-create table elfdeps (
- file text,
- soname text,
- dependency text,
- primary key (file, soname, dependency),
- foreign key (file) references files on delete cascade
-)
-without rowid
+create view elfdeps as
+select PF.pkgid, PF.status, PF.path, N.needed as needs,
+PL.path as library, PL.pkgid provider, PL.status as library_status
+from packagefiles_status PF
+join elfneeded N on N.file = PF.hash
+left join elflibraries L on N.needed = L.soname
+left join packagefiles_status PL on PL.hash = L.file
;
-- TODO just elf information?
stage text,
hash text,
primary key (package,version,release,stage),
- foreign key (package,version,release) references packages (package,version,release) on delete cascade
+ foreign key (package,version,release) references packages (package,version,release) on delete cascade on update cascade
);
create view scripts_pkgid as
package text,
version text,
release integer,
- required text, -- package name
- -- following can be null for not checked
- minversion text,
- minrelease integer,
- maxversion text,
- maxrelease integer
+ requires text, -- package name (only)
+ minimum text,
+ maximum text,
+ primary key (package,version,release,package),
+ foreign key (package,version,release) references packages (package,version,release) on delete cascade on update cascade
);
-- capability labels
projects / zpackage / blobdiff