11/20: squash! Keep store prefix in database.

[guix-commits]

civodul pushed a commit to branch wip-guix-index
in repository guix.

commit 24f86dded744cd9bee46729ef9240f99a02b428c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun May 21 18:07:48 2023 +0200

    squash! Keep store prefix in database.
    
    This shaves 1 MiB out of 149 MiB...
---
 guix/scripts/index.scm | 27 ++++++++++++++++++++-------
 1 file changed, 20 insertions(+), 7 deletions(-)

diff --git a/guix/scripts/index.scm b/guix/scripts/index.scm
index 37f1ef9c15..c4996815b5 100644
--- a/guix/scripts/index.scm
+++ b/guix/scripts/index.scm
@@ -63,7 +63,8 @@
   "
 create table if not exists SchemaVersion (
   version integer primary key not null,
-  date date,
+  date    date,
+  store   text not null,    -- value of (%store-prefix)
   unique (version)
 );
 
@@ -131,11 +132,13 @@ add column output text;
   "Insert application VERSION into the DB."
   (define stmt-insert-version
     (sqlite-prepare db "\
-INSERT OR IGNORE INTO SchemaVersion(version, date)
-VALUES (:version, CURRENT_TIMESTAMP);"
+INSERT OR IGNORE INTO SchemaVersion(version, date, store)
+VALUES (:version, CURRENT_TIMESTAMP, :store);"
                     #:cache? #t))
   (sqlite-exec db "begin immediate;")
-  (sqlite-bind-arguments stmt-insert-version #:version version)
+  (sqlite-bind-arguments stmt-insert-version
+                         #:version version
+                         #:store (%store-prefix))
   (sqlite-fold (const #t) #t stmt-insert-version)
   (sqlite-exec db "commit;"))
 
@@ -208,7 +211,7 @@ VALUES (:name, :basename, :directory);"
                    ;; DIRECTORY is missing so insert it and traverse it.
                    (sqlite-reset stmt-insert-directory)
                    (sqlite-bind-arguments stmt-insert-directory
-                                          #:name directory
+                                          #:name (store-path-base directory)
                                           #:package package-id)
                    (sqlite-fold (const #t) #t stmt-insert-directory)
 
@@ -336,12 +339,22 @@ ON f.basename = :file
   AND d.id = f.directory
   AND p.id = d.package;"))
 
+  (define prefix
+    (match (sqlite-fold (lambda (value _) value)
+                        #f
+                        (sqlite-prepare db "SELECT store FROM SchemaVersion;"))
+      (#(prefix) prefix)))
+
   (sqlite-bind-arguments lookup-stmt #:file file)
   (sqlite-fold (lambda (result lst)
                  (match result
                    (#(package version output directory file)
-                    (cons (package-match package version output
-                                         (string-append directory "/" file))
+                    (cons (package-match package version
+                                         (match output
+                                           ("" "out")
+                                           (_ output))
+                                         (string-append prefix "/"
+                                                        directory "/" file))
                           lst))))
                '() lookup-stmt))