Re: Need help with redirfd, to s6-echo

From: Jean Louis <bugs_at_gnu.support>
Date: Fri, 30 Dec 2016 20:46:33 +0300

Thank you, good to know.

Even I have re-worked it into lisp in the meantime. I will do next
time with execlineb.

Jean

On Fri, Dec 30, 2016 at 04:55:40PM +0000, Laurent Bercot wrote:
> > if { redirfd -u 1 /proc/sys/fs/binfmt_misc/register s6-echo
> > ':CLISP1:E::cl::/usr/bin/clisp:' }
>
> ' is not a special character to execline, so it gets written as is.
> Remove the single quotes around your strings, or replace them with
> double quotes.
>
> --
> Laurent

/etc/s6-rc/service/enable-lisp:

/usr/bin/clisp /etc/system-lisp/enable-lisp.lisp

and /etc/system-lisp/enable-lisp.lisp:

;;; Enables .cl .lisp and .fas files to be run by CLISP directly
;;; This file is used by /etc/s6-rc/services/enable-lisp/up

(defparameter register "/proc/sys/fs/binfmt_misc/register")
;;(setf register "/tmp/do")

;; TODO: which clisp
(with-open-file (stream register
                :direction :output
                :if-does-not-exist :error)
                (princ ":CLISP1:E::cl::/usr/bin/clisp:" stream)
                (princ ":CLISP2:E::lisp::/usr/bin/clisp:" stream)
                (princ ":CLISP3:E::fas::/usr/bin/clisp:" stream))
Received on Fri Dec 30 2016 - 17:46:33 UTC