diff options
author | Clément Lassieur <clement@lassieur.org> | 2018-06-26 11:18:23 +0200 |
---|---|---|
committer | Clément Lassieur <clement@lassieur.org> | 2018-07-16 21:33:14 +0200 |
commit | 7b2f9e0de1ad2d320973b7aea132a8afcad8bece (patch) | |
tree | 6143d4bf334b645001ebde583247125123a8c853 /src/sql | |
parent | be713f8a30788861806a74865b07403aa6774117 (diff) | |
download | cuirass-7b2f9e0de1ad2d320973b7aea132a8afcad8bece.tar cuirass-7b2f9e0de1ad2d320973b7aea132a8afcad8bece.tar.gz |
Add support for multiple inputs.
* Makefile.am (dist_sql_DATA): Add src/sql/upgrade-1.sql.
* bin/cuirass.in (show-help, %options, main): Remove the LOAD-PATH option that
was used afterwards as %GUIX-PACKAGE-PATH.
* bin/evaluate.in (absolutize, input-checkout, spec-source, spec-load-path,
spec-package-path, format-checkouts): New procedures.
(%not-colon): Remove variable.
(main): Take the load path, package path and PROC from the checkouts that
result from the inputs. Format the checkouts before sending them to the
procedure. Remove the LOAD-PATH argument.
* doc/cuirass.texi (Overview, Database schema): Document the changes.
* examples/{guix-jobs.scm, hello-git.scm, hello-singleton.scm,
hello-subset.scm, random.scm}: Adapt to the new specification format.
* examples/guix-track-git.scm (package->spec): Rename to PACKAGE->INPUT.
(package->git-tracked): Replace FETCH-REPOSITORY with FETCH-INPUT and handle
the new format of its return value.
* examples/random-jobs.scm (make-random-jobs): Rename RANDOM to CHECKOUT.
Rename the checkout from 'random (which is a specification) to 'cuirass (which
is a checkout resulting from an input).
* src/cuirass/base.scm (fetch-repository): Rename to fetch-input. Rename SPEC
to INPUT. Return a checkout object instead of returning two values.
(evaluate): Take a list of CHECKOUTS and COMMITS as arguments, instead of
SOURCE. Remove TOKENIZE and LOAD-PATH. Pass the CHECKOUTS instead of the
SOURCE to "evaluate". Remove %GUIX-PACKAGE-PATH. Build the EVAL object
instead of getting it from "evaluate".
(compile?, fetch-inputs, compile-checkouts): New procedures.
(process-specs): Fetch all inputs instead of only fetching one repository.
The result of that fetching operation is a list of CHECKOUTS whose COMMITS are
used as a STAMP.
(%guix-package-path, set-guix-package-path): Remove them.
* src/cuirass/database.scm (db-add-input, db-get-inputs): New procedures.
(db-add-specification, db-get-specifications): Adapt to the new specification
format. Add/get all inputs as well.
(db-add-evaluation): Rename REVISION to COMMITS. Store COMMITS as space
separated commit hashes.
(db-get-builds): Rename REPO_NAME to NAME.
(db-get-stamp): Rename COMMIT to STAMP. Return #f when there is no STAMP.
(db-add-stamp): Rename COMMIT to STAMP. Deal with DB-GET-STAMP's new return
value.
(db-get-evaluations): Rename REVISION to COMMITS. Tokenize COMMITS.
* src/cuirass/utils.scm (%non-blocking): Export it.
* src/schema.sql (Inputs): New table that refers to the Specifications table.
(Specifications): Move input related fields to the Inputs table. Rename
REPO_NAME to NAME. Rename ARGUMENTS to PROC_ARGS. Rename FILE to PROC_FILE.
Add LOAD_PATH_INPUTS, PACKAGE_PATH_INPUTS and PROC_INPUT fields that refer to
the Inputs table.
(Stamps): Rename REPO_NAME to NAME.
(Evaluations): Rename REPO_NAME to NAME. Rename REVISION to COMMITS.
(Specifications_index): Replace with Inputs_index.
* src/sql/upgrade-1.sql: New file.
* tests/database.scm (example-spec, make-dummy-eval, sqlite-exec): Adapt to
the new specifications format. Rename REVISION to COMMITS.
* tests/http.scm (evaluations-query-result, fill-db): Idem.
Diffstat (limited to 'src/sql')
-rw-r--r-- | src/sql/upgrade-1.sql | 78 |
1 files changed, 78 insertions, 0 deletions
diff --git a/src/sql/upgrade-1.sql b/src/sql/upgrade-1.sql new file mode 100644 index 0000000..7874f94 --- /dev/null +++ b/src/sql/upgrade-1.sql @@ -0,0 +1,78 @@ +BEGIN TRANSACTION; + +DROP INDEX Specifications_index; + +ALTER TABLE Specifications RENAME TO tmp_Specifications; +ALTER TABLE Stamps RENAME TO tmp_Stamps; +ALTER TABLE Evaluations RENAME TO tmp_Evaluations; + +CREATE TABLE Specifications ( + name TEXT NOT NULL PRIMARY KEY, + load_path_inputs TEXT NOT NULL, -- list of input names whose load path will be in Guile's %load-path + package_path_inputs TEXT NOT NULL, -- list of input names whose load paths will be in GUIX_PACKAGE_PATH + proc_input TEXT NOT NULL, -- name of the input containing the proc that does the evaluation + proc_file TEXT NOT NULL, -- file containing the procedure that does the evaluation, relative to proc_input + proc TEXT NOT NULL, -- defined in proc_file + proc_args TEXT NOT NULL -- passed to proc +); + +CREATE TABLE Inputs ( + specification TEXT NOT NULL, + name TEXT NOT NULL, + url TEXT NOT NULL, + load_path TEXT NOT NULL, + -- The following columns are optional. + branch TEXT, + tag TEXT, + revision TEXT, + no_compile_p INTEGER, + PRIMARY KEY (specification, name), + FOREIGN KEY (specification) REFERENCES Specifications (name) +); + +CREATE TABLE Stamps ( + specification TEXT NOT NULL PRIMARY KEY, + stamp TEXT NOT NULL, + FOREIGN KEY (specification) REFERENCES Specifications (name) +); + +CREATE TABLE Evaluations ( + id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT, + specification TEXT NOT NULL, + commits TEXT NOT NULL, + FOREIGN KEY (specification) REFERENCES Specifications (name) +); + +INSERT INTO Specifications (name, load_path_inputs, package_path_inputs, proc_input, proc_file, proc, proc_args) +SELECT printf('%s-%s', repo_name, branch) AS name, + printf('("%s")', repo_name) AS load_path_inputs, + '()' AS package_path_inputs, + repo_name AS proc_input, + file AS proc_file, + proc, + arguments AS proc_args +FROM tmp_Specifications; + +INSERT INTO Inputs (specification, name, url, load_path, branch, tag, revision, no_compile_p) +SELECT printf('%s-%s', repo_name, branch) AS specification, + repo_name AS name, + url, load_path, branch, tag, revision, no_compile_p +FROM tmp_Specifications; + +INSERT INTO Stamps (specification, stamp) +SELECT Specifications.name AS specification, stamp +FROM tmp_Stamps +LEFT JOIN Specifications ON Specifications.proc_input = tmp_Stamps.specification; + +INSERT INTO Evaluations (id, specification, commits) +SELECT id, Specifications.name AS specification, revision +FROM tmp_Evaluations +LEFT JOIN Specifications ON Specifications.proc_input = tmp_Evaluations.specification; + +CREATE INDEX Inputs_index ON Inputs(specification, name, branch); + +DROP TABLE tmp_Specifications; +DROP TABLE tmp_Stamps; +DROP TABLE tmp_Evaluations; + +COMMIT; |