newlisp - 在 Newlisp 中读取标准输入到字符串

Question

如何在 Newlisp 中将标准输入的全部内容读入字符串？（即当前读取位置之后的全部剩余内容 - 此操作通常称为“slurp文件”）

Answer 1

你可以使用这个：

(define (read-all)
  (let (r "" ch "")
      (while (setf ch (read-char))
        (setf r (append r (char ch))))
    r))

另见： http: //www.newlisp.org/downloads/newlisp_manual.html#read-char