fork download

copy

;; Two reader macros to help interaction with the shell, from the REPL.  
;; You may put that in your rc files.
 
 
;; A dispatching reader macro for #! lines, so that you may load lisp scripts.
;; It may be advisable to guard the entry point of the script; I use:
;; #-testing (main)
;; and I have (push :testing *features*) in my REPL rc files 
;; (that are not loaded by my scripts).
;; Thus, I can load the scripts without executing them, and I can try and 
;; debug them in the REPL.
 
(defun executable-reader (stream ch subch)
  (declare (ignorable ch subch))
  #+clisp (sys::unix-executable-reader stream ch subch)
  #-clisp (progn
            (read-line stream)
            (values)))
(set-dispatch-macro-character #\# #\! (function executable-reader))
 
 
;; Then, a reader macro on ! to read and run shell commands.
;; 1- the reader macro reads a form.  So you can see what it without 
;;    executing the command by quoting it:
;;        '!ls -la
;; 2- status is stored in *shell-command-status* if you need to test it
;;    (eg. in a script).
;; 3- before executing the command, it sources ~/.bashrc, and it pipes the 
;;    command thru expand -8 to expand the tabs.  uiop:run-program doesn't 
;;    use a pty/tty, so we cannot use stty to deal with tabs.
;; 4- the lines following the ! reader macro may be terminated with a backslash,
;;    and continued on the following line. All the lines are copied as-is 
;;    (with the backslash and newline) to the script, until a line without final 
;;    backslash is read.
;;    Example:
;;         ! ls \
;;              -l \
;;              -a
;;
(defvar *shell-command-status* 0)
(defun shell-escape (stream ch)
  (declare (ignore ch))
  `(progn
     (setf *shell-command-status*
           (nth-value 2
                      (uiop:run-program
                       ,(with-output-to-string (out)
                          (write-string "source ~/.bashrc ; ( " out)
                          (loop
                            :for line := (read-line stream nil nil)
                            :while (and line (char= #\\ (aref line (1- (length line)))))
                            :do (write-line line out)
                            :finally (write-string line out))
                          (write-string " ) | expand -8" out))
                       :input nil
                       :output t
                       :error-output t
                       :ignore-error-status t
                       :force-shell t)))
     (values)))
(set-macro-character #\! 'shell-escape)# your code goes here
 
 
;; Have fun!

; compiling file "/home/zDaGKQ/prog.lisp" (written 18 MAY 2021 07:51:39 PM):
; compiling (DEFUN EXECUTABLE-READER ...)
; compiling (SET-DISPATCH-MACRO-CHARACTER #\# ...)
; compiling (DEFVAR *SHELL-COMMAND-STATUS* ...); 
; caught ERROR:
;   READ error during COMPILE-FILE:
;   
;     Package UIOP does not exist.
;   
;       Line: 47, Column: -1, File-Position: 1800
;   
;       Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/zDaGKQ/prog.lisp" {1001B885C3}>
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 ERROR condition

; compilation aborted after 0:00:00.056
Unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
                                    {10005D05B3}>:
  compilation failed

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005D05B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR "compilation failed" {1001BAD093}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR "compilation failed" {1001BAD093}>)
2: (INVOKE-DEBUGGER #<SIMPLE-ERROR "compilation failed" {1001BAD093}>)
3: (ERROR "compilation failed")
4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ERROR "compilation failed") #<NULL-LEXENV>)
5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WHEN (NTH-VALUE 2 (COMPILE-FILE "prog.lisp")) (ERROR "compilation failed")) #<NULL-LEXENV>)
6: (EVAL (WHEN (NTH-VALUE 2 (COMPILE-FILE "prog.lisp")) (ERROR "compilation failed")))
7: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(when(nth-value 2(compile-file \"prog.lisp\"))(error \"compilation failed\"))") (:EVAL . "(quit)")))
8: (SB-IMPL::TOPLEVEL-INIT)
9: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
10: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE))
11: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting

Standard output is empty