#pragma once

#include "types.hh"

#include <sys/types.h>
#include <sys/stat.h>
#include <dirent.h>
#include <unistd.h>
#include <signal.h>
#include <functional>

#include <cstdio>


namespace nix {


#define foreach(it_type, it, collection)                                \
    for (it_type it = (collection).begin(); it != (collection).end(); ++it)

#define foreach_reverse(it_type, it, collection)                                \
    for (it_type it = (collection).rbegin(); it != (collection).rend(); ++it)


/* Return an environment variable. */
string getEnv(const string & key, const string & def = "");

/* Return an absolutized path, resolving paths relative to the
   specified directory, or the current directory otherwise.  The path
   is also canonicalised. */
Path absPath(Path path, Path dir = "");

/* Canonicalise a path by removing all `.' or `..' components and
   double or trailing slashes.  Optionally resolves all symlink
   components such that each component of the resulting path is *not*
   a symbolic link. */
Path canonPath(const Path & path, bool resolveSymlinks = false);

/* Return the directory part of the given canonical path, i.e.,
   everything before the final `/'.  If the path is the root or an
   immediate child thereof (e.g., `/foo'), this means an empty string
   is returned. */
Path dirOf(const Path & path);

/* Return the base name of the given canonical path, i.e., everything
   following the final `/'. */
string baseNameOf(const Path & path);

/* Check whether a given path is a descendant of the given
   directory. */
bool isInDir(const Path & path, const Path & dir);

/* Get status of `path'. */
struct stat lstat(const Path & path);

/* Return true iff the given path exists. */
bool pathExists(const Path & path);

/* Read the contents (target) of a symbolic link.  The result is not
   in any way canonicalised. */
Path readLink(const Path & path);

bool isLink(const Path & path);

/* Read the contents of a directory.  The entries `.' and `..' are
   removed. */
struct DirEntry
{
    string name;
    ino_t ino;
    unsigned char type; // one of DT_*
    DirEntry(const string & name, ino_t ino, unsigned char type)
        : name(name), ino(ino), type(type) { }
};

typedef vector<DirEntry> DirEntries;

DirEntries readDirectory(const Path & path);

unsigned char getFileType(const Path & path);

/* Read the contents of a file into a string. */
string readFile(int fd);
string readFile(const Path & path, bool drain = false);

/* Write a string to a file. */
void writeFile(const Path & path, const string & s);

/* Read a line from a file descriptor. */
string readLine(int fd);

/* Write a line to a file descriptor. */
void writeLine(int fd, string s);

/* Del<tr class='logheader'><td><span title='2019-12-05 15:38:52 +0100'>2019-12-05</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=d9544d91a6421da9e4d428536c6138bc5b01e1d3'>Revert "gnu: Properly move lisp libraries to lisp-xyz, uglify-js to ↵</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
javascript and stumpwm to wm."

This reverts commit ac1ee30f4f7f9d0ae2a655676b0e8b9eb90a35dd, which
still breaks ‘guix pull’.


</td></tr>
<tr class='logheader'><td><span title='2019-12-05 16:31:21 +0200'>2019-12-05</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=b665a246194be0205f07ae03696e2c378a1bfd0d'>gnu: librsvg-next: Use generate-all-checksums.</a></td><td>Efraim Flashner</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/gnome.scm (librsvg-next)[arguments]: Use
generate-all-checksums instead of manually traversing the directories.


</td></tr>
<tr class='logheader'><td><span title='2019-12-05 13:48:47 +0100'>2019-12-05</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=ac1ee30f4f7f9d0ae2a655676b0e8b9eb90a35dd'>gnu: Properly move lisp libraries to lisp-xyz, uglify-js to javascript and ↵</a></td><td>Pierre Neidhardt</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
stumpwm to wm.

* gnu/local.mk: Include lisp-xyz.scm.
* gnu/packages/lisp-xyz.scm: New file.
* gnu/packages/lisp.scm: Move all lisp libraries to lisp-xyz.scm, uglify-js to
  javascript.scm and stumpwm to wm.scm.
* gnu/packages/javascript.scm: Add uglify-js.
* gnu/packages/wm.scm: Add stumpwm.
* gnu/packages/bioinformatics.scm: Find uglify-js in javascript.scm.
* gnu/packages/machine-learning.scm: Depend on lisp-xyz.scm instead of lisp.scm.
* gnu/packages/web.scm: Find uglify-js in javascript.scm.
* gnu/packages/web-browsers.scm: Depend on lisp-xyz.scm instead of lisp.scm.
* guix/build-system/minify.scm (default-uglify-js): Find uglify-js in
  javascript module instead of lisp.


</td></tr>
<tr class='logheader'><td><span title='2019-12-04 23:18:24 +0100'>2019-12-04</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=29e621a0134841705c007917e9a107013c8b0adb'>gnu: Remove unused module import.</a></td><td>Marius Bakke</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/image.scm: Do not import (gnu packages gcc).


</td></tr>
<tr class='logheader'><td><span title='2019-12-04 23:18:24 +0100'>2019-12-04</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=0fa9f29a5100f19a8494521659a1fa3baaa7fd0e'>gnu: libjpeg-turbo: Fix CVE-2019-13960 and CVE-2019-2201.</a></td><td>Marius Bakke</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/patches/libjpeg-turbo-CVE-2019-2201.patch: New file.
* gnu/local.mk (dist_patch_DATA): Adjust accordingly.
* gnu/packages/image.scm (libjpeg-turbo/fixed): New variable.
(libjpeg-turbo)[replacement]: New field.


</td></tr>
<tr class='logheader'><td><span title='2019-12-04 23:10:21 +0100'>2019-12-04</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=4fe7adcbcc5465da8adfd5d85375546905cf9eca'>gnu: pd: Update to 0.50-2.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/music.scm (pd): Update to 0.50-2.


</td></tr>
<tr class='logheader'><td><span title='2019-12-04 23:10:21 +0100'>2019-12-04</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=ce63a3b90a224ea6363cb0d5522a58033537bfdf'>gnu: libgig: Update to 4.2.0.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/music.scm (libgig): Update to 4.2.0.


</td></tr>
<tr class='logheader'><td><span title='2019-12-04 23:10:21 +0100'>2019-12-04</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=29a87ed18c57cd4c084f73a349e9ac54f0e621c7'>gnu: imapfilter: Update to 2.6.16.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/mail.scm (imapfilter): Update to 2.6.16.
[arguments]: Remove ‘fix-include-path’ phase.


</td></tr>
<tr class='logheader'><td><span title='2019-12-04 23:10:21 +0100'>2019-12-04</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=8f15c1c9fe71bf2f1f5304481223d06f59103347'>gnu: mpop: Update to 1.4.6.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/mail.scm (mpop): Update to 1.4.6.


</td></tr>
<tr class='logheader'><td><span title='2019-12-04 23:10:21 +0100'>2019-12-04</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=f3d4015385bdfc652ff1fe024254fd5e73c6fca8'>gnu: girara: Fetch sources from git.</a></td><td>Tobias Geerinckx-Rice</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
The tarball URI is having server issues.  Use the upstream git
repository instead until this is resolved.

Reported by Marius Bakke &lt;mbakke@fastmail.com&gt;.

* gnu/packages/gtk.scm (girara)[source]: Switch to GIT-FETCH.


</td></tr>
<tr class='logheader'><td><span title='2019-12-04 22:29:38 +0100'>2019-12-04</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=6b84a31d905653d6493b5130e8230df0456ae6ba'>gnu: emacs-org-contrib: Fix build.</a></td><td>Pierre Neidhardt</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/emacs-xyz.scm (emacs-org-contrib): Refer to the updated
installation directory.


</td></tr>
<tr class='logheader'><td><span title='2019-12-04 22:29:38 +0100'>2019-12-04</span></td><td class='logsubject'><a href='/guix/commit/gnu/packages?id=e18aeb416dadedc9d90fae3370d9536f1115f718'>gnu: emacs-scel: Fix build.</a></td><td>Pierre Neidhardt</td></tr>
<tr class='nohover-highlight'><td/><td colspan='3' class='logmsg'>
* gnu/packages/emacs-xyz.scm (emacs-scel): Refer to the updated installation
directory.


</td></tr>
<tr class='lo