#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) {
        }
    }
}

}
h'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=2dfacc1d33b82c8c30396725aaa350bfd12497cc'>root</a>/<a href='/guix/log/gnu?id=2dfacc1d33b82c8c30396725aaa350bfd12497cc'>gnu</a>/<a href='/guix/log/gnu/installer?id=2dfacc1d33b82c8c30396725aaa350bfd12497cc'>installer</a>/<a href='/guix/log/gnu/installer/parted.scm?id=2dfacc1d33b82c8c30396725aaa350bfd12497cc'>parted.scm</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/gnu/installer/parted.scm?id=2dfacc1d33b82c8c30396725aaa350bfd12497cc&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-11-01 23:56:29 +0100'>2020-11-01</span></td><td><a href='/guix/commit/gnu/installer/parted.scm?id=8f71305e8f87bf15d158fb2726c4a46cdf36eaf5'>installer: parted: Internationalize the partition handling code.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/installer/parted.scm (user-partition-description): Use 'format'
and 'G_' for i18n.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-10-30 01:14:21 +0100'>2020-10-30</span></td><td><a href='/guix/commit/gnu/installer/parted.scm?id=1c6d98533153bc8e0e36236e7fbcf1eb5e178d26'>installer: Use UUIDs in the 'swap-devices' field.</a><span class='msg-avail'>...<span class='msg-tooltip'>Note: This change requires an updated 'guix' package that contains
Linux-swap support in (gnu build file-systems).

* gnu/installer/parted.scm (user-partitions-&gt;configuration): Use UUIDs
in the 'swap-devices' field.
* gnu/installer/newt/final.scm (run-final-page)[wait-for-clients]: New
procedure.   Use it.
* gnu/installer/tests.scm (choose-partitioning): Wait for
'starting-final-step' message and move configuration file dialog
handling to...
(conclude-installation): ... here.  Send over PORT the reply
corresponding to 'starting-final-step'.
* gnu/tests/install.scm (gui-test-program): When ENCRYPTED? is false,
invoke 'swaplabel' in the marionette.
(installation-target-os-for-gui-tests): When ENCRYPTED? is false, except
a fixed UUID.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-10-19 21:54:25 +0200'>2020-10-19</span></td><td><a href='/guix/commit/gnu/installer/parted.scm?id=19c14d95b3261dd54c56686b5d11ef8008e99620'>installer: Create bios_grub partition when it is needed.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/installer/parted.scm (auto-partition!): Only check for ESP on EFI
installations.
</span></span></td><td>Miguel Ángel Arruga Vivas</td></tr>
<tr><td><span title='2020-09-21 00:31:15 +0200'>2020-09-21</span></td><td><a href='/guix/commit/gnu/installer/parted.scm?id=e1f3788944ee154ba9b33c891c4ccf039a1ff39a'>installer: Fix docstring typoes.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/installer/connman.scm (connman-state, run-locale-page)
(start-swapping, stop-swapping, run-installer-steps): Fix typo in
docstring.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-08-06 11:31:38 +0200'>2020-08-06</span></td><td><a href='/guix/commit/gnu/installer/parted.scm?id=5697a524a75efae6144fcfaad730115910a34171'>installer: Remove logical devices.</a><span class='msg-avail'>...<span class='msg-tooltip'>If a device contains an active logical volume, BLKRRPART will report that the
device is busy. This will cause this device to be filtered by
"non-install-devices" procedure, which is not desired.

Make sure to deactivate all logical volumes before device probing.

Fixes &lt;https://issues.guix.gnu.org/42683&gt;.

* gnu/installer.scm (installer-program): Add lvm2-static to the inputs.
* gnu/installer/parted.scm (remove-logical-devices): New procedure,
(init-parted): call it.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-07-26 18:35:10 +0200'>2020-07-26</span></td><td><a href='/guix/commit/gnu/installer/parted.scm?id=218a67dfabcdf592325a8f8c49b86478f69ff589'>installer: Add NTFS support.</a><span class='msg-avail'>...<span class='msg-tooltip'>This adds support for creating and editing NTFS partitions. It is however not
possible yet to create root NTFS partitions, as overlaying on top of a fuse
partition does not seem supported.

* gnu/installer.scm (installer-program): Add "ntfs-3g" to the inputs.
* gnu/installer/parted.scm (user-fs-type-name, user-fs-type-&gt;mount-type,
partition-filesystem-user-type, create-ntfs-file-system,
format-user-partitions): Add NTFS support.
* gnu/installer/newt/partition.scm (run-fs-type-page): Add NTFS support.
</span></span></td><td>Mathieu Othacehe</td></tr>