;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; 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 <http://www.gnu.org/licenses/>.

(define-module (gnu packages stb)
  #:use-module (guix packages)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system trivial)
  #:use-module ((guix licenses) #:select (expat public-domain)))

(define stb
  ;; stb is a collection of libraries developed within the same repository.
  ;; When updating this, remember to change versions below as appropriate.
  (let ((commit "b42009b3b9d4ca35bc703f5310eedc74f584be58")
        (revision "2"))
    (package
      (name "stb")
      (home-page "https://github.com/nothings/stb")
      (version (git-version "0.0" revision commit))
      (source (origin
                (method git-fetch)
                (uri (git-reference
                      (url home-page)
                      (commit commit)))
                (sha256
                 (base32
                  "1gmcjhmj62mfdscrsg2hv4j4j9v447y8zj3rbrm7mqn94cx73z1i"))
                (file-name (git-file-name name version))))
      (build-system gnu-build-system)
      (arguments
       `(#:modules ((ice-9 ftw)
                    (ice-9 regex)
 <pre>
# GNU Guix --- Functional package management for GNU
# Copyright © 2012, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès &lt;ludo@gnu.org&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 daemon and its interaction with &apos;guix substitute&apos;.
#

set -e

guix-daemon --version
guix build --version

drv=&quot;`guix build emacs -d`&quot;
out=&quot;`guile -c &apos;								\
  (use-modules (guix) (gnu packages emacs))					\
  (define store (open-connection))						\
  (%graft? #f)
  (display (derivation-&gt;output-path (package-derivation store emacs)))&apos;`&quot;

hash_part=&quot;`basename $out | cut -c 1-32`&quot;
narinfo=&quot;$hash_part.narinfo&quot;
substitute_dir=&quot;`echo $GUIX_BINARY_SUBSTITUTE_URL | sed -&apos;es,file://,,g&apos;`&quot;

cat &gt; &quot;$substitute_dir/nix-cache-info&quot;&lt;&lt;EOF
StoreDir: `dirname $drv`
WantMassQuery: 0
EOF

cat &gt; &quot;$substitute_dir/$narinfo&quot;&lt;&lt;EOF
StorePath: $out
URL: /nowhere/example.nar
Compression: none
NarSize: 1234
References: 
System: `guile -c &apos;(use-modules (guix)) (display (%current-system))&apos;`
Deriver: $drv
EOF

# Remove the cached narinfo.
rm -f &quot;$XDG_CACHE_HOME/guix/substitute/$hash_part&quot;

# Make sure we see the substitute.
guile -c &quot;
  (use-modules (guix))
  (define store (open-connection))
  (set-build-options store #:use-substitutes? #t
                     #:substitute-urls (list \&quot;$GUIX_BINARY_SUBSTITUTE_URL\&quot;))
  (exit (has-substitutes? store \&quot;$out\&quot;))&quot;

# Now, run guix-daemon --no-substitutes.
socket=&quot;$GUIX_STATE_DIRECTORY/alternate-socket&quot;
guix-daemon --no-substitutes --listen=&quot;$socket&quot; --disable-chroot &amp;
daemon_pid=$!
trap &apos;kill $daemon_pid&apos; EXIT

# Make sure we DON&apos;T see the substitute.
guile -c &quot;
  (use-modules (guix))
  (define store (open-connection \&quot;$socket\&quot;))

  ;; This setting MUST NOT override the daemon&apos;s --no-substitutes.
  (set-build-options store #:use-substitutes? #t
                     #:substitute-urls (list \&quot;$GUIX_BINARY_SUBSTITUTE_URL\&quot;))

  (exit (not (has-substitutes? store \&quot;$out\&quot;)))&quot;

kill &quot;$daemon_pid&quot;

# Pass several &apos;--listen&apos; options, and make sure they are al