#pragma once

#include "config.h"

#include <string>
#include <list>
#include <set>

#include <boost/format.hpp>

/* Before 4.7, gcc's std::exception uses empty throw() specifiers for
 * its (virtual) destructor and what() in c++11 mode, in violation of spec
 */
#ifdef __GNUC__
#if __GNUC__ < 4 || (__GNUC__ == 4 && __GNUC_MINOR__ < 7)
#define EXCEPTION_NEEDS_THROW_SPEC
#endif
#endif


namespace nix {


/* Inherit some names from other namespaces for convenience. */
using std::string;
using std::list;
using std::set;
using std::vector;
using boost::format;


struct FormatOrString
{
    string s;
    FormatOrString(const string & s) : s(s) { };
    FormatOrString(const format & f) : s(f.str()) { };
    FormatOrString(const char * s) : s(s) { };
};


/* BaseError should generally not be caught, as it has Interrupted as
   a subclass. Catch Error instead. */
class BaseError : public std::exception
{
protected:
    string prefix_; // used for location traces etc.
    string err;
public:
    unsigned int status; // exit status
    BaseError(const FormatOrString & fs, unsigned int status = 1);
#ifdef EXCEPTION_NEEDS_THROW_SPEC
    ~BaseError() throw () { };
    const char * what() const throw () { return err.c_str(); }
#else
    const char * what() const noexcept { return err.c_str(); }
#endif
    const string & msg() const { return err; }
    const string & prefix() const { return prefix_; }
    BaseError & addPrefix(const FormatOrString & fs);
};

#define MakeError(newClass, superClass) \
    class newClass : public superClass                  \
    {                                                   \
    public:                                             \
        newClass(const FormatOrString & fs, unsigned int status = 1) : superClass(fs, status) { }; \
    };

MakeError(Error, BaseError)

class SysError : public Error
{
public:
    int errNo;
    SysError(const FormatOrString & fs);
};


typedef list<string> Strings;
typedef set<string> StringSet;


/* Paths are just strings. */
typedef string Path;
typedef list<Path> Paths;
typedef set<Path> PathSet;


typedef enum {
    lvlError = 0,
    lvlInfo,
    lvlTalkative,
    lvlChatty,
    lvlDebug,
    lvlVomit
} Verbosity;


}
/services.scm?id=ba8679fb2452f4466a98a99edf050ea7452c83f4'>services.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/services.scm?id=ba8679fb2452f4466a98a99edf050ea7452c83f4&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-08-30 00:40:04 +0200'>2022-08-30</span></td><td><a href='/guix/commit/gnu/services.scm?id=9096bc28a30d48486efa13488ac4814b2ccd0fa2'>services: provenance: Use 'current-channels' to obtain provenance data.</a><span class='msg-avail'>...<span class='msg-tooltip'>Previously, build-time metadata from (guix config) would be ignored when
available--e.g., when running /run/current-system/profile/bin/guix.

This is a followup to 316fc2acbb112bfa572ae30f95a93bcd56621234.

* gnu/services.scm (provenance-entry): Use 'current-channels' instead of
'current-profile' + 'profile-channels'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-05-29 02:00:19 +0200'>2022-05-29</span></td><td><a href='/guix/commit/gnu/services.scm?id=4cb6994790d1b499bc07f183ac9d7b4fbfc3c9bc'>gnu: services: Update setuid service description.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services.scm (setuid-program-service-type)[description]:
Remove ‘root’, add ‘setgid’.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2022-05-18 22:29:54 +0200'>2022-05-18</span></td><td><a href='/guix/commit/gnu/services.scm?id=3948ac25b1dccc40c7fdf56377f94a0775a835ee'>services: Make &lt;service-type&gt; 'description' field mandatory.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services.scm (&lt;service-type&gt;)[description]: Remove default value.
* tests/services.scm: Add 'description' field to each 'service-type' form.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-05-18 22:29:54 +0200'>2022-05-18</span></td><td><a href='/guix/commit/gnu/services.scm?id=9a5d68692314bebd16dbcdc0d4e4e52fa4d5812f'>services: Add more description fields.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services.scm (simple-service): Add 'description' field.
* gnu/services/base.scm (udev-rules-service): Likewise.
* gnu/system/install.scm (configuration-template-service-type): Likewise.
* gnu/tests.scm (marionette-service-type): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-10 23:46:51 +0100'>2022-03-10</span></td><td><a href='/guix/commit/gnu/services.scm?id=1b8f6a4cadf1715d3e4dc03dde06956fa3defdb6'>services: startup: Add description.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services.scm (hurd-startup-service-type)[description]: New field.
</span></span></td><td>Ludovic Courtès</td></tr>