#include "sqlite.hh"
#include "util.hh"

#include <sqlite3.h>

namespace nix {

[[noreturn]] void throwSQLiteError(sqlite3 * db, const format & f)
{
    int err = sqlite3_errcode(db);
    if (err == SQLITE_BUSY || err == SQLITE_PROTOCOL) {
        if (err == SQLITE_PROTOCOL)
            printMsg(lvlError, "warning: SQLite database is busy (SQLITE_PROTOCOL)");
        else {
            static bool warned = false;
            if (!warned) {
                printMsg(lvlError, "warning: SQLite database is busy");
                warned = true;
            }
        }
        /* Sleep for a while since retrying the transaction right away
           is likely to fail again. */
#if HAVE_NANOSLEEP
        struct timespec t;
        t.tv_sec = 0;
        t.tv_nsec = (random() % 100) * 1000 * 1000; /* <= 0.1s */
        nanosleep(&t, 0);
#else
        sleep(1);
#endif
        throw SQLiteBusy(format("%1%: %2%") % f.str() % sqlite3_errmsg(db));
    }
    else
        throw SQLiteError(format("%1%: %2%") % </td></tr></table>
<table class='tabs'><tr><td>
<a class='active' href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=ccac5118f7ce844e90798c23da2e1a0da696cc52'>refs</a><a href='/guix/log/'>log</a><a href='/guix/tree/?id=ccac5118f7ce844e90798c23da2e1a0da696cc52'>tree</a><a href='/guix/commit/?id=ccac5118f7ce844e90798c23da2e1a0da696cc52'>commit</a><a href='/guix/diff/?id=ccac5118f7ce844e90798c23da2e1a0da696cc52'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/'>
<input type='hidden' name='id' value='ccac5118f7ce844e90798c23da2e1a0da696cc52'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='content'><div id='summary'><pre>
# GNU Guix --- Functional package management for GNU
# Copyright © 2018, 2019, 2020, 2023 Ludovic Courtès &lt;ludo@gnu.org&gt;
# Copyright © 2020 Eric Bavier &lt;bavier@posteo.net&gt;
#
# This file is part of GNU Guix.
#
# GNU Guix is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or (at
# your option) any later version.
#
# GNU Guix is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Guix.  If not, see &lt;http://www.gnu.org/licenses/&gt;.

#
# Test the &apos;guix pack --relocatable&apos; using the external store, if any.
#

guix pack --version

# &apos;guix pack --relocatable&apos; requires a C compiler and libc.a, which our
# bootstrap binaries don&apos;t provide.  To make the test relatively inexpensive,
# run it on the user&apos;s global store if possible, on the grounds that binaries
# may already be there or can be built or downloaded inexpensively.

storedir=&quot;`guile -c &apos;(use-modules (guix config))(display %storedir)&apos;`&quot;
localstatedir=&quot;`guile -c &apos;(use-modules (guix config))(display %localstatedir)&apos;`&quot;
NIX_STORE_DIR=&quot;$storedir&quot;
GUIX_DAEMON_SOCKET=&quot;$localstatedir/guix/daemon-socket/socket&quot;
export NIX_STORE_DIR GUIX_DAEMON_SOCKET

if ! guile -c &apos;(use-modules (guix)) (exit (false-if-exception (open-connection)))&apos;
then
    exit 77
fi

# Attempt to run the given command in a namespace where the store is
# invisible.  This makes sure the presence of the store does not hide
# problems.
run_without_store ()
{
    if unshare -r true		# Are user namespaces supported?
    then
	# Run that relocatable executable in a user nam