#pragma once

#include <functional>
#include <string>

#include "types.hh"

class sqlite3;
class sqlite3_stmt;

namespace nix {

/* RAII wrapper to close a SQLite database automatically. */
struct SQLite
{
    sqlite3 * db;
    SQLite() { db = 0; }
    ~SQLite();
    operator sqlite3 * () { return db; }
};

/* RAII wrapper to create and destroy SQLite prepared statements. */
struct SQLiteStmt
{
    sqlite3 * db = 0;
    sqlite3_stmt * stmt = 0;
    SQLiteStmt() { }
    void create(sqlite3 * db, const std::string & s);
    ~SQLiteStmt();
    operator sqlite3_stmt * () { return stmt; }

    /* Helper for binding / executing statements. */
    class Use
    {
        friend struct SQLiteStmt;
    private:
        SQLiteStmt & stmt;
        unsigned int curArg = 1;
        Use(SQLiteStmt & stmt);

    public:

        ~Use();

        /* Bind the next parameter. */
        Use & operator () (const std::string & value, bool notNull = true);
        Use & operator () (int64_t value, bool notNull = true);
        Use & bind(); // null

        int step();

        /* Execute a statement that does not return rows. */
        void exec();

        /* For statements that return 0 or more rows. Returns true iff
           a row is available. */
        bool next();

        std::string getStr(int col);
        int64_t getInt(int col);
    };

    Use use()
    {
        return Use(*this);
    }
};

/* RAII helper that ensures transactions are aborted unless explicitly
   committed. */
struct SQLiteTxn
{
    bool active = false;
    sqlite3 * db;

    SQLiteTxn(sqlite3 * db);

    void commit();

    ~SQLiteTxn();
};


MakeError(SQLiteError, Error);
MakeError(SQLiteBusy, SQLiteError);

[[noreturn]] void throwSQLiteError(sqlite3 * db, const format & f);

/* Convenience function for retrying a SQLite transaction when the
   database is busy. */
template<typename T>
T retrySQLite(std::function<T()> fun)
{
    while (true) {
        try {
            return fun();
        } catch (SQLiteBusy & e) {
        }
    }
}

}
='path'>path: <a href='/guix/log/?id=fb7e6ccba7cc243cd96cdc3fde3daa9a5f08e531'>root</a>/<a href='/guix/log/tests?id=fb7e6ccba7cc243cd96cdc3fde3daa9a5f08e531'>tests</a>/<a href='/guix/log/tests/guix-home.sh?id=fb7e6ccba7cc243cd96cdc3fde3daa9a5f08e531'>guix-home.sh</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/guix-home.sh?id=fb7e6ccba7cc243cd96cdc3fde3daa9a5f08e531&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-04-19 18:07:49 +0200'>2022-04-19</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=d4af1ff177e2b8a70535aa078c07556c25607a66'>tests: Adjust 'guix home' test to 'home-files-service-type' changes.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to 5832d9fb601c7d4ec5380654db2b62b906bc658f.

* tests/guix-home.sh: Change "config" to ".config" in
'home-files-service-type' extension.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-19 18:51:09 +0100'>2022-03-19</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=094a2cfbe45c104d0da30ff9d975d052ca0c118c'>guix home: Add 'container' command.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/home.scm (show-help, %options): Add '--network',
'--share', and '--expose'.
(not-config?, user-shell, spawn-home-container): New procedures.
(%default-system-profile): New variable.
(perform-action): Add #:file-system-mappings, #:container-command,
and #:network?; honor them.
(process-action): Adjust accordingly.
(guix-home)[parse-sub-command]: Add "container".
[parse-args]: New procedure.
Use it instead of 'parse-command-line'.
* tests/guix-home.sh: Add tests.
* doc/guix.texi (Declaring the Home Environment): Mention 'guix home
container' as a way to test configuration.
(Invoking guix home): Document it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-18 16:03:33 +0100'>2022-03-18</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=25261cbf96a3bf58abc6e836d71bdabe9154a83c'>guix home: Implement the 'extension-graph' and 'shepherd-graph' actions.</a><span class='msg-avail'>...<span class='msg-tooltip'>Until now these two actions were silently ignored.

* guix/scripts/home.scm (show-help, %options): Add "--graph-backend".
(%default-options): Add 'graph-backend' key.
(export-extension-graph, export-shepherd-graph): New procedures.
(perform-action): Add #:graph-backend parameter.  Add cases for the
'extension-graph' and 'shepherd-graph' actions.
(process-action): Pass #:graph-backend to 'perform-action'.
* guix/scripts/system.scm (service-node-type)
(shepherd-service-node-type): Export
* tests/guix-home.sh: Add tests.
* doc/guix.texi (Invoking guix home): Document it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-10 11:43:14 +0100'>2022-03-10</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=5fabaf112858c5c5e8787e83f8f2002fdc710917'>tests: Check 'guix home reconfigure' for a second generation.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/guix-home.sh: Invoke "guix home reconfigure" a second time with
a modify config file and check the result.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-10 11:43:14 +0100'>2022-03-10</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=26e67e0280f9e35543c8ea71c6a3d58beb83287d'>tests: Simplify use of 'local-file' in 'tests/guix-home.sh'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/guix-home.sh: Remove 'current-filename' trickery since
'local-file' resolves file names relative to the containing file.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-10 11:43:14 +0100'>2022-03-10</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=7b7e32d5adc22582c0b0b23157432eb7ea0cc5da'>tests: Make sure 'guix home reconfigure' backs up files.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/guix-home.sh: Create ~/.bashrc and ~/.config/test.conf prior to
'reconfigure' and check whether they were backed up.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-10-09 19:24:19 +0300'>2021-10-09</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=fee0bced7fec2f9950957976a28f033edd4f877c'>home: services: configuration: Support file-like objects.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/home/services/configuration.scm (interpose): Operate only with file-like
objects.
(string-or-gexp?): Delete procedure.
(serialize-string-or-gexp): Rename to 'serialize-file-like'.
(text-config?): Call 'file-like' intead of 'string-or-gexp?'.
* guix/scripts/home/import.scm:
(generate-bash-module+configuration): Don't call slurp-file-gexp.
* gnu/home/services/configuration.scm: Move content ...
* gnu/services/configuration.scm: here.
* gnu/home/services/shells.scm: Delete (gnu home services configuration).
* gnu/home/services/xdg.scm: Same.
* gnu/local.mk: Same.
* tests/guix-home.sh:
Test home-bash-service-type and extension with home-bash-extension.
</span></span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2021-10-09 19:24:19 +0300'>2021-10-09</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=5e68f7a7b338951dcc227799a51c59d9ac77c696'>tests: Add guix-home.sh.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/guix-home.sh: New file.
* Makefile.am (SH_TESTS): Add this.
</span></span></td><td>Oleg Pykhalov</td></tr>