#! /usr/bin/guile-3.0 \
--no-auto-compile -e main -L /usr/share/guile/site/3.0/ -C /usr/lib/s390x-linux-gnu/guile/3.0/site-ccache/ -L . -C . -s
!#
;;; Gash --- Guile As SHell
;;; Copyright © 2016,2017,2018 R.E.W. van Beusekom <rutger.van.beusekom@gmail.com>
;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of Gash.
;;;
;;; Gash 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.
;;;
;;; Gash 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 Gash.  If not, see <http://www.gnu.org/licenses/>.

(define (main args)
  ;; Reserve file descriptors 5 to 12 (roughly) before the signal and
  ;; finalization threads grab them so that a script willing to use them can
  ;; do so without breaking Guile.  (Guile <= 2.2.7 did not define O_CLOEXEC;
  ;; in that case, just keep those FDs open in the child.)
  (let ((O_CLOEXEC (if (module-defined? the-root-module 'O_CLOEXEC)
                       O_CLOEXEC
                       0)))
    (let loop ((i 3))
      (when (<= i 10)
        (open-fdes "/dev/null" (logior O_RDONLY O_CLOEXEC))
        (loop (+ i 1)))))

  (setenv "SHELL" ((compose canonicalize-path car command-line)))
  ((module-ref (resolve-interface '(gash gash)) 'main) (command-line)))
