kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-11-10 12:47:45 +03:00
Code Issues Projects Releases Wiki Activity

Common Lisp: Initialize standard streams in GNU CLISP on startup

Browse Source 
Without the initialization CLISP seems to be interacting wierdly with PERL_RL
flag
This commit is contained in:
Iqbal Ansari 2016-11-17 17:14:33 +05:30
parent e7e61f3274
commit 89676a9fba
11 changed files with 139 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
common-lisp/step0_repl.lisp
View File

@ -39,7 +39,20 @@
(defun main (&optional (argv nil argv-provided-p))
(declare (ignorable argv argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(loop do (let ((line (mal-readline "user> ")))
(if line (mal-writeline (rep line)) (return)))))

13
common-lisp/step1_read_print.lisp
View File

@ -47,7 +47,20 @@
(defun main (&optional (argv nil argv-provided-p))
(declare (ignorable argv argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(loop do (let ((line (mal-readline "user> ")))
(if line (mal-writeline (rep line)) (return)))))

13
common-lisp/step2_eval.lisp
View File

@ -110,7 +110,20 @@
(defun main (&optional (argv nil argv-provided-p))
(declare (ignorable argv argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(loop do (let ((line (mal-readline "user> ")))
(if line (mal-writeline (rep line)) (return)))))

13
common-lisp/step3_env.lisp
View File

@ -139,7 +139,20 @@
(defun main (&optional (argv nil argv-provided-p))
(declare (ignorable argv argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(loop do (let ((line (mal-readline "user> ")))
(if line (mal-writeline (rep line)) (return)))))

13
common-lisp/step4_if_fn_do.lisp
View File

@ -142,7 +142,20 @@
(defun main (&optional (argv nil argv-provided-p))
(declare (ignorable argv argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(loop do (let ((line (mal-readline "user> ")))
(if line (mal-writeline (rep line)) (return)))))

13
common-lisp/step5_tco.lisp
View File

@ -153,7 +153,20 @@
(defun main (&optional (argv nil argv-provided-p))
(declare (ignorable argv argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(loop do (let ((line (mal-readline "user> ")))
(if line (mal-writeline (rep line)) (return)))))

12
common-lisp/step6_file.lisp
View File

@ -168,9 +168,21 @@
(rep (format nil "(load-file \"~a\")" file)))
(defun main (&optional (argv nil argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(let ((args (if argv-provided-p
argv
(cdr (utils:raw-command-line-arguments)))))

12
common-lisp/step7_quote.lisp
View File

@ -204,9 +204,21 @@
(rep (format nil "(load-file \"~a\")" file)))
(defun main (&optional (argv nil argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(let ((args (if argv-provided-p
argv
(cdr (utils:raw-command-line-arguments)))))

12
common-lisp/step8_macros.lisp
View File

@ -263,9 +263,21 @@
(rep (format nil "(load-file \"~a\")" file)))
(defun main (&optional (argv nil argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(let ((args (if argv-provided-p
argv
(cdr (utils:raw-command-line-arguments)))))

12
common-lisp/step9_try.lisp
View File

@ -291,9 +291,21 @@
(rep (format nil "(load-file \"~a\")" file)))
(defun main (&optional (argv nil argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(let ((args (if argv-provided-p
argv
(cdr (utils:raw-command-line-arguments)))))

13
common-lisp/stepA_mal.lisp
View File

@ -303,8 +303,21 @@
(rep (format nil "(load-file \"~a\")" file)))
(defun main (&optional (argv nil argv-provided-p))
(setf *use-readline-p* (not (or (string= (uiop:getenv "PERL_RL") "false")
(string= (uiop:getenv "TERM") "dumb"))))
;; In GNU CLISP's batch mode the standard-input seems to be set to some sort
;; of input string-stream, this interacts wierdly with the PERL_RL enviroment
;; variable which the test runner sets causing `read-line' on *standard-input*
;; to fail with an empty stream error. The following reinitializes the
;; standard streams
;;
;; See http://www.gnu.org/software/clisp/impnotes/streams-interactive.html
#+clisp (setf *standard-input* (ext:make-stream :input)
*standard-output* (ext:make-stream :output :buffered t)
*error-output* (ext:make-stream :error :buffered t))
(let ((args (if argv-provided-p
argv
(cdr (utils:raw-command-line-arguments)))))