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

}
lue=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=cd4bf5ecb46ac73e88076de036e24df1280215c9'>root</a>/<a href='/guix/log/gnu?id=cd4bf5ecb46ac73e88076de036e24df1280215c9'>gnu</a>/<a href='/guix/log/gnu/installer?id=cd4bf5ecb46ac73e88076de036e24df1280215c9'>installer</a>/<a href='/guix/log/gnu/installer/newt?id=cd4bf5ecb46ac73e88076de036e24df1280215c9'>newt</a>/<a href='/guix/log/gnu/installer/newt/network.scm?id=cd4bf5ecb46ac73e88076de036e24df1280215c9'>network.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/newt/network.scm?id=cd4bf5ecb46ac73e88076de036e24df1280215c9&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-01-14 14:29:08 +0100'>2022-01-14</span></td><td><a href='/guix/commit/gnu/installer/newt/network.scm?id=ee897e5f51104f41b3c2a0c2cbc7eb4e6c1e4d3e'>installer: Check if ci.guix.gnu.org can be reached.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/installer.scm (installer-program): Add gnutls extension.
* gnu/installer/newt/network.scm (wait-service-online): Check if the CI server
can be reached.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-11-07 13:19:25 +0100'>2020-11-07</span></td><td><a href='/guix/commit/gnu/installer/newt/network.scm?id=8338d414b361e4fb961221642c1064e9dc89ba65'>installer: Limit listbox height.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes: &lt;https://issues.guix.gnu.org/44428&gt;.

* gnu/installer/newt.scm (init): Print screen size.
* gnu/installer/newt/page.scm (default-listbox-height): New variable.
(run-listbox-selection-page): Use it.
* gnu/installer/newt/wifi.scm (wifi-listbox-height): Ditto.
* gnu/installer/newt/network.scm (run-technology-page): Set the maximum
listbox height to 5.
* gnu/installer/newt/ethernet.scm (run-ethernet-page): Ditto.
* gnu/installer/newt/final.scm (run-config-display-page): Change listbox
height.
* gnu/installer/newt/partition.scm (run-disk-page): Ditto.
* gnu/installer/newt/welcome.scm (display-logo?): New procedure.
(run-menu-page): Use it.
* gnu/installer/steps.scm (%configuration-file-width): Remove it.
</span></span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2020-03-05 23:40:22 +0100'>2020-03-05</span></td><td><a href='/guix/commit/gnu/installer/newt/network.scm?id=f901f5d2bc7ed37235ea8b4c51fde80c227234bb'>installer: Bypass connectivity check when /tmp/installer-assume-online exists.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is useful for automated tests.

* gnu/installer/newt/network.scm (wait-service-online)[online?]: New
procedure.  Check for /tmp/installer-assume-online.
Use it instead of 'connman-online?'.
</span></span></td><td>Ludovic Courtès</td></tr>